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 Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/Sources/formale Sprachen/Cobol/Test-Suite/SQL M/ Datei vom 4.1.2008 mit Größe 1 kB

Quelle mpb001.mco Sprache: unbekannt

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

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

PROCEDURE SUB2 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB3 SQLCODE;
      DELETE FROM MP1_MM2;

PROCEDURE SUB4 SQLCODE
    :I NUMERIC (9);
      INSERT INTO MP1_MM2 VALUES (:I);

PROCEDURE SUB5 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB6 SQLCODE
    :I NUMERIC (9);
      SELECT COUNT(*)
                    INTO    :I
                    FROM    MP1_NEXTKEY;

PROCEDURE SUB7 SQLCODE
    :KNUM NUMERIC (9)
    :AUTH CHAR(1);
      SELECT KEYNUM, AUTHOR
                    INTO    :KNUM, :AUTH
                    FROM    MP1_NEXTKEY;

PROCEDURE SUB8 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB9 SQLCODE;
      INSERT
                    INTO MP1_NEXTKEY (KEYNUM,AUTHOR)
                    VALUES(2,'B');

PROCEDURE SUB10 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB11 SQLCODE
    :NEWMAX NUMERIC (9);
      SELECT MAX(KEYNUM)
                    INTO :NEWMAX
                    FROM MP1_NEXTKEY;

PROCEDURE SUB12 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB13 SQLCODE
    :NEWMAX NUMERIC (9);
      INSERT
                    INTO MP1_NEXTKEY (KEYNUM,AUTHOR)
                    VALUES (:NEWMAX,'B');

PROCEDURE SUB14 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB15 SQLCODE
    :I NUMERIC (9);
      SELECT COUNT(*)
                    INTO :I
                    FROM MP1_NEXTKEY;

PROCEDURE SUB16 SQLCODE
    :II NUMERIC (9);
      SELECT COUNT(DISTINCT KEYNUM)
                    INTO :II
                    FROM MP1_NEXTKEY;

PROCEDURE SUB17 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0230','pass','MCO');

PROCEDURE SUB18 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0230','fail','MCO');

PROCEDURE SUB19 SQLCODE;
      COMMIT WORK;