Quelle  dml024.mco

-- 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;