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


Quellcodebibliothek Statistik Leitseite products/sources/formale Sprachen/Cobol/Test-Suite/SQL M/ Datei vom 4.1.2008 mit Größe 4 kB

Quelle dml024.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module dml024.mco
-- 59-byte ID

MODULE DML024
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE S1 CURSOR FOR
             SELECT EMPNUM,CITY
             FROM   STAFF
             WHERE  EMPNUM='E1' OR NOT(EMPNUM='E1')
DECLARE S2 CURSOR FOR
             SELECT EMPNUM,CITY
             FROM   STAFF
             WHERE  EMPNUM='E1' AND NOT(EMPNUM='E1')
DECLARE S3 CURSOR FOR
             SELECT EMPNUM,PNUM
             FROM   WORKS
             WHERE HOURS < (SELECT HOURS FROM WORKS
             WHERE EMPNUM = 'E8')
             OR NOT(HOURS< (SELECT HOURS FROM WORKS
             WHERE EMPNUM = 'E8'))
DECLARE S4 CURSOR FOR
             SELECT EMPNUM,PNUM
             FROM   WORKS
             WHERE HOURS < (SELECT HOURS FROM WORKS
             WHERE EMPNUM = 'E8')
             AND NOT(HOURS< (SELECT HOURS FROM WORKS
             WHERE EMPNUM = 'E8'))
DECLARE S5 CURSOR FOR
             SELECT EMPNUM,PNUM
             FROM   WORKS
             WHERE HOURS < (SELECT HOURS FROM WORKS
             WHERE EMPNUM = 'E8')
             AND   HOURS IN (SELECT HOURS FROM WORKS)
DECLARE S6 CURSOR FOR
             SELECT EMPNUM,PNUM
             FROM   WORKS
             WHERE HOURS < (SELECT HOURS FROM WORKS
             WHERE EMPNUM = 'E8')
             OR    HOURS IN (SELECT HOURS FROM WORKS)

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

PROCEDURE SUB1 SQLCODE;
    OPEN S1;

PROCEDURE SUB2 SQLCODE;
      CLOSE S1;

PROCEDURE SUB3 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0108','pass','MCO');

PROCEDURE SUB4 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0108','fail','MCO');

PROCEDURE SUB5 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB6 SQLCODE;
    OPEN S2;

PROCEDURE SUB7 SQLCODE;
      CLOSE S2;

PROCEDURE SUB8 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0109','pass','MCO');

PROCEDURE SUB9 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0109','fail','MCO');

PROCEDURE SUB10 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB11 SQLCODE;
      INSERT INTO WORKS
                  VALUES('E8','P8',NULL);

PROCEDURE SUB12 SQLCODE;
    OPEN S3;

PROCEDURE SUB13 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB14 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0110','pass','MCO');

PROCEDURE SUB15 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0110','fail','MCO');

PROCEDURE SUB16 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB17 SQLCODE;
      INSERT INTO WORKS
                  VALUES('E8','P8',NULL);

PROCEDURE SUB18 SQLCODE;
    OPEN S4;

PROCEDURE SUB19 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB20 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0111','pass','MCO');

PROCEDURE SUB21 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0111','fail','MCO');

PROCEDURE SUB22 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB23 SQLCODE;
      INSERT INTO WORKS
                  VALUES('E8','P8',NULL);

PROCEDURE SUB24 SQLCODE;
    OPEN S5;

PROCEDURE SUB25 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB26 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0112','pass','MCO');

PROCEDURE SUB27 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0112','fail','MCO');

PROCEDURE SUB28 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB29 SQLCODE;
      INSERT INTO WORKS
                  VALUES('E8','P8',NULL);

PROCEDURE SUB30 SQLCODE;
    OPEN S6;

PROCEDURE SUB31 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB32 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0113','pass','MCO');

PROCEDURE SUB33 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0113','fail','MCO');

PROCEDURE SUB34 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB35 SQLCODE
    :EMPNO1 CHAR(3)
    :SCITY CHAR(15);
      FETCH S1 INTO
                     :EMPNO1, :SCITY;

PROCEDURE SUB36 SQLCODE
    :EMPNO1 CHAR(3)
    :SCITY CHAR(15);
      FETCH S2 INTO
                     :EMPNO1, :SCITY;

PROCEDURE SUB37 SQLCODE
    :WEMP CHAR(3)
    :WPNUM CHAR(3);
      FETCH S3 INTO
                     :WEMP, :WPNUM;

PROCEDURE SUB38 SQLCODE
    :WEMP CHAR(3)
    :WPNUM CHAR(3);
      FETCH S4 INTO
                     :WEMP, :WPNUM;

PROCEDURE SUB39 SQLCODE
    :WEMP CHAR(3)
    :WPNUM CHAR(3);
      FETCH S5 INTO
                     :WEMP, :WPNUM;

PROCEDURE SUB40 SQLCODE
    :WEMP CHAR(3)
    :WPNUM CHAR(3);
      FETCH S6 INTO
                     :WEMP, :WPNUM;