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 mpa001.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module mpa001.mco
-- 59-byte ID
--
MODULE MPA001
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_NEXTKEY;

PROCEDURE SUB4 SQLCODE;
      INSERT
                    INTO MP1_NEXTKEY (KEYNUM,AUTHOR)
                    VALUES (1,'A');

PROCEDURE SUB5 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB6 SQLCODE;
      DELETE FROM MP1_NN;

PROCEDURE SUB7 SQLCODE
    :I NUMERIC (9);
      INSERT INTO MP1_NN VALUES (:I);

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

PROCEDURE SUB9 SQLCODE;
      COMMIT WORK;

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

PROCEDURE SUB11 SQLCODE;
      COMMIT WORK;

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

PROCEDURE SUB13 SQLCODE;
      COMMIT WORK;

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

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

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

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

PROCEDURE SUB18 SQLCODE;
      COMMIT WORK;