Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Thinking Intellekt

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/sources/formale Sprachen/Cobol/Test-Suite/SQL M/

Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: mpa008.mco Sprache: Unknown

Spracherkennung für: .mco vermutete Sprache: Shell {Shell[66] Scala[71] Pl1[98]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

-- SQL Test Suite, V6.0, SQL Module mpa008.mco
-- 59-byte ID
--
MODULE MPA008
LANGUAGE COBOL
AUTHORIZATION SULLIVAN1

PROCEDURE SUB1 SQLCODE
    :UIDX CHAR(18);
      SELECT USER INTO :UIDX FROM HU.ECCO;

PROCEDURE SUB2 SQLCODE;
      DELETE FROM MP8_AA;

PROCEDURE SUB3 SQLCODE;
      INSERT INTO MP8_AA VALUES (1,'A');

PROCEDURE SUB4 SQLCODE;
      INSERT INTO MP8_AA VALUES (2,'A');

PROCEDURE SUB5 SQLCODE;
      INSERT INTO MP8_AA VALUES (3,'A');

PROCEDURE SUB6 SQLCODE;
      INSERT INTO MP8_AA VALUES (4,'A');

PROCEDURE SUB7 SQLCODE;
      INSERT INTO MP8_AA VALUES (5,'A');

PROCEDURE SUB8 SQLCODE;
      DELETE FROM MP8_NEXTKEY;

PROCEDURE SUB9 SQLCODE;
      INSERT
                    INTO MP8_NEXTKEY (KEYNUM,AUTHOR)
                    VALUES (1,'A');

PROCEDURE SUB10 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB11 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB12 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB13 SQLCODE;
      UPDATE MP8_NN
                    SET NUMTEST = 1;

PROCEDURE SUB14 SQLCODE
    :KNUM NUMERIC (9);
      SELECT COUNT(*)
                    INTO :KNUM
                    FROM MP8_NEXTKEY WHERE AUTHOR = 'B';

PROCEDURE SUB15 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB16 SQLCODE;
      UPDATE MP8_NN
                    SET NUMTEST = 1;

PROCEDURE SUB17 SQLCODE
    :TMPINT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPINT
                    FROM MP8_AA WHERE ANUM = 3;

PROCEDURE SUB18 SQLCODE;
      DELETE FROM MP8_AA
                    WHERE ANUM = 3;

PROCEDURE SUB19 SQLCODE;
      UPDATE MP8_NN
                    SET NUMTEST = 1;

PROCEDURE SUB20 SQLCODE;
      INSERT INTO MP8_AA VALUES (3,'A');

PROCEDURE SUB21 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB22 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB23 SQLCODE;
      UPDATE MP8_NN
                    SET NUMTEST = 1;

PROCEDURE SUB24 SQLCODE;
      UPDATE MP8_NEXTKEY
                    SET KEYNUM = KEYNUM +1;

PROCEDURE SUB25 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB26 SQLCODE
    :TMPINT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPINT
                    FROM MP8_AA WHERE ANUM = 3;

PROCEDURE SUB27 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB28 SQLCODE
    :TMPINT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPINT
                    FROM MP8_AA WHERE AUTHOR = 'B';

PROCEDURE SUB29 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB30 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0517','pass','MCO');

PROCEDURE SUB31 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0517','fail','MCO');

PROCEDURE SUB32 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB33 SQLCODE;
      DELETE FROM MP8_NEXTKEY;

PROCEDURE SUB34 SQLCODE;
      COMMIT WORK;