Quelle  dml019.mco

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

MODULE DML019
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE WORKS1 CURSOR FOR
             SELECT PNUM, SUM(HOURS)
             FROM WORKS
             GROUP BY PNUM
DECLARE WORKS2 CURSOR FOR
             SELECT EMPNUM
             FROM WORKS
             GROUP BY EMPNUM
DECLARE WORKS4 CURSOR FOR
             SELECT EMPNUM,HOURS
             FROM WORKS
             GROUP BY EMPNUM,HOURS
DECLARE WORKS5 CURSOR FOR
             SELECT *
             FROM WORKS
             GROUP BY PNUM,EMPNUM,HOURS
DECLARE WORKS10 CURSOR FOR
             SELECT PNUM,EMPNUM
             FROM WORKS
             GROUP BY EMPNUM,PNUM,HOURS
DECLARE WORKS11 CURSOR FOR
             SELECT SUM(GRADE)
             FROM   STAFF
             WHERE  CITY IS NULL
             GROUP BY CITY


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

PROCEDURE SUB1 SQLCODE;
    OPEN WORKS1;

PROCEDURE SUB2 SQLCODE;
      CLOSE WORKS1;

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

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

PROCEDURE SUB5 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB6 SQLCODE;
    OPEN WORKS2;

PROCEDURE SUB7 SQLCODE;
      CLOSE WORKS2;

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

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

PROCEDURE SUB10 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB11 SQLCODE;
    OPEN WORKS4;

PROCEDURE SUB12 SQLCODE;
      CLOSE WORKS4;

PROCEDURE SUB13 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0076','pass','MCO');

PROCEDURE SUB14 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0076','fail','MCO');

PROCEDURE SUB15 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB16 SQLCODE;
    OPEN WORKS5;

PROCEDURE SUB17 SQLCODE;
      CLOSE WORKS5;

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

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

PROCEDURE SUB20 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB21 SQLCODE;
    OPEN WORKS10;

PROCEDURE SUB22 SQLCODE;
      CLOSE WORKS10;

PROCEDURE SUB23 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0078','pass','MCO');

PROCEDURE SUB24 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0078','fail','MCO');

PROCEDURE SUB25 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB26 SQLCODE;
      INSERT INTO STAFF(EMPNUM,EMPNAME,GRADE)
                  VALUES('E6','WANG',40);

PROCEDURE SUB27 SQLCODE;
      INSERT INTO STAFF(EMPNUM,EMPNAME,GRADE)
                  VALUES('E7','Song',50);

PROCEDURE SUB28 SQLCODE;
    OPEN WORKS11;

PROCEDURE SUB29 SQLCODE
    :I NUMERIC (9);
      FETCH WORKS11 INTO  :I;

PROCEDURE SUB30 SQLCODE;
      CLOSE WORKS11;

PROCEDURE SUB31 SQLCODE;
      DELETE FROM STAFF WHERE CITY IS NULL;

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

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

PROCEDURE SUB34 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB35 SQLCODE
    :PNO1 CHAR(3)
    :HOURS1 NUMERIC (9);
      FETCH WORKS1 INTO
                     :PNO1, :HOURS1;

PROCEDURE SUB36 SQLCODE
    :EMPNO1 CHAR(3);
      FETCH WORKS2 INTO
                     :EMPNO1;

PROCEDURE SUB37 SQLCODE
    :EMPNO1 CHAR(3)
    :HOURS1 NUMERIC (9);
      FETCH WORKS4 INTO
                     :EMPNO1, :HOURS1;

PROCEDURE SUB38 SQLCODE
    :EMPNO1 CHAR(3)
    :PNO1 CHAR(3)
    :HOURS1 NUMERIC (9);
      FETCH WORKS5 INTO
                     :EMPNO1, :PNO1, :HOURS1;

PROCEDURE SUB39 SQLCODE
    :PNO1 CHAR(3)
    :EMPNO1 CHAR(3);
      FETCH WORKS10 INTO
                     :PNO1, :EMPNO1;