Quelle  dml001.mco

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

MODULE DML001
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE X CURSOR
             FOR SELECT EMPNUM,HOURS
             FROM   WORKS
             WHERE  PNUM='P2'
             ORDER  BY EMPNUM DESC
DECLARE Y CURSOR
             FOR SELECT EMPNUM,HOURS
             FROM   WORKS
             WHERE  PNUM='P2'
             ORDER  BY 2 ASC
DECLARE Z CURSOR
             FOR SELECT EMPNUM,HOURS
             FROM   WORKS
             WHERE  PNUM='P2'
             ORDER  BY 2 DESC,EMPNUM DESC
DECLARE A CURSOR
             FOR SELECT WORKS.EMPNUM 
             FROM   WORKS
             WHERE  WORKS.PNUM='P2'
             UNION
             SELECT STAFF.EMPNUM  
             FROM   STAFF
             WHERE  STAFF.GRADE=13 
             ORDER BY 1 DESC
DECLARE B CURSOR
             FOR SELECT WORKS.EMPNUM 
             FROM   WORKS
             WHERE  WORKS.PNUM='P2'
             UNION ALL    
             SELECT STAFF.EMPNUM  
             FROM   STAFF
             WHERE  STAFF.GRADE=13
DECLARE CC CURSOR
             FOR SELECT EMPNAME,PNUM,HOURS
             FROM   STAFF,WORKS
             WHERE  STAFF.EMPNUM = WORKS.EMPNUM
             UNION
             SELECT EMPNAME,PNUM,HOURS
             FROM   STAFF,WORKS
             WHERE  NOT EXISTS
             (SELECT HOURS 
             FROM   WORKS
             WHERE  STAFF.EMPNUM = WORKS.EMPNUM)
DECLARE D CURSOR
             FOR SELECT PNUM,EMPNUM,HOURS
             FROM WORKS
             WHERE HOURS=80
             UNION
             SELECT PNUM,EMPNUM,HOURS
             FROM WORKS
             WHERE HOURS=40
             UNION
             SELECT PNUM,EMPNUM,HOURS
             FROM WORKS
             WHERE HOURS=20
             ORDER BY 3,1
DECLARE E CURSOR
             FOR (SELECT PNUM,EMPNUM,HOURS
             FROM WORKS
             UNION
             SELECT PNUM,EMPNUM,HOURS
             FROM WORKS
             WHERE HOURS=80)
             UNION ALL 
             SELECT PNUM,EMPNUM,HOURS
             FROM WORKS
             WHERE HOURS=12
             ORDER BY 2,1


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

PROCEDURE SUB1 SQLCODE;
    OPEN X;

PROCEDURE SUB2 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0001','pass','MCO');

PROCEDURE SUB3 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0001','fail','MCO');

PROCEDURE SUB4 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB5 SQLCODE;
    OPEN Y;

PROCEDURE SUB6 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0002','pass','MCO');

PROCEDURE SUB7 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0002','fail','MCO');

PROCEDURE SUB8 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB9 SQLCODE;
    OPEN Z;

PROCEDURE SUB10 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0003','pass','MCO');

PROCEDURE SUB11 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0003','fail','MCO');

PROCEDURE SUB12 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB13 SQLCODE;
    OPEN A;

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

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

PROCEDURE SUB16 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB17 SQLCODE;
    OPEN B;

PROCEDURE SUB18 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0005','pass','MCO');

PROCEDURE SUB19 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0005','fail','MCO');

PROCEDURE SUB20 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB21 SQLCODE;
    OPEN CC;

PROCEDURE SUB22 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0158','pass','MCO');

PROCEDURE SUB23 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0158','fail','MCO');

PROCEDURE SUB24 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB25 SQLCODE;
    OPEN D;

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

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

PROCEDURE SUB28 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB29 SQLCODE;
    OPEN E;

PROCEDURE SUB30 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0160','pass','MCO');

PROCEDURE SUB31 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0160','fail','MCO');

PROCEDURE SUB32 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB33 SQLCODE
    :EMPNO CHAR(3)
    :HOUR1 NUMERIC (9);
      FETCH X INTO  :EMPNO, :HOUR1;

PROCEDURE SUB34 SQLCODE
    :EMPNO CHAR(3)
    :HOUR1 NUMERIC (9);
      FETCH Y INTO  :EMPNO, :HOUR1;

PROCEDURE SUB35 SQLCODE
    :EMPNO CHAR(3)
    :HOUR1 NUMERIC (9);
      FETCH Z INTO  :EMPNO, :HOUR1;

PROCEDURE SUB36 SQLCODE
    :EMPNO CHAR(3);
      FETCH A INTO  :EMPNO;

PROCEDURE SUB37 SQLCODE
    :EMPNO CHAR(3);
      FETCH B INTO  :EMPNO;

PROCEDURE SUB38 SQLCODE
    :EMPNM1 CHAR(20)
    :PNO1 CHAR(3)
    :HOUR1 NUMERIC (9);
      FETCH CC INTO  :EMPNM1, :PNO1, :HOUR1;

PROCEDURE SUB39 SQLCODE
    :PNO1 CHAR(3)
    :EMPNO CHAR(3)
    :HOUR1 NUMERIC (9);
      FETCH D INTO  :PNO1, :EMPNO, :HOUR1;

PROCEDURE SUB40 SQLCODE
    :PNO1 CHAR(3)
    :EMPNO CHAR(3)
    :HOUR1 NUMERIC (9);
      FETCH E INTO  :PNO1, :EMPNO, :HOUR1;