Quelle  dml158.mco

-- SQL Test Suite, V6.0, SQL Module dml158.mco
-- 59-byte ID
-- 
MODULE DML158
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE C15811  CURSOR FOR
               SELECT EMPNUM, PNUM FROM WORKS
               ORDER BY EMPNUM, PNUM
DECLARE C15812  CURSOR FOR
               SELECT EMPNUM, SUM (HOURS) FROM WORKS OWORKS
               GROUP BY EMPNUM
               HAVING EMPNUM IN (
               SELECT WORKS.EMPNUM FROM WORKS JOIN STAFF
               ON WORKS.EMPNUM = STAFF.EMPNUM
               AND HOURS < SUM (OWORKS.HOURS) / 3
               AND GRADE > 10)
               ORDER BY EMPNUM
DECLARE C15813  CURSOR FOR
               SELECT EMPNUM, SUM (HOURS) FROM WORKS OWORKS
               GROUP BY EMPNUM
               HAVING EMPNUM IN (
               SELECT WORKS.EMPNUM FROM WORKS JOIN STAFF
               ON WORKS.EMPNUM = STAFF.EMPNUM
               AND HOURS >= 10 + AVG (OWORKS.HOURS)
               AND CITY = 'Deale')
               ORDER BY EMPNUM


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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      DELETE FROM WORKS
                    WHERE EXISTS (
                    SELECT * FROM PROJ JOIN STAFF
                    ON PROJ.CITY <> STAFF.CITY
                    AND EMPNUM = WORKS.EMPNUM
                    AND PNUM = WORKS.PNUM
                    );

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
    OPEN C15811;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :EMNUM CHAR(3),
    :PRNUM CHAR(3));
      FETCH C15811 INTO :EMNUM, :PRNUM;

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :EMNUM CHAR(3),
    :PRNUM CHAR(3));
      FETCH C15811 INTO :EMNUM, :PRNUM;

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :EMNUM CHAR(3),
    :PRNUM CHAR(3));
      FETCH C15811 INTO :EMNUM, :PRNUM;

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :EMNUM CHAR(3),
    :PRNUM CHAR(3));
      FETCH C15811 INTO :EMNUM, :PRNUM;

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :EMNUM CHAR(3),
    :PRNUM CHAR(3));
      FETCH C15811 INTO :EMNUM, :PRNUM;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :EMNUM CHAR(3),
    :PRNUM CHAR(3));
      FETCH C15811 INTO :EMNUM, :PRNUM;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :EMNUM CHAR(3),
    :PRNUM CHAR(3));
      FETCH C15811 INTO :EMNUM, :PRNUM;

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
    OPEN C15812;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :EMNUM CHAR(3),
    :SUMH NUMERIC (9));
      FETCH C15812 INTO :EMNUM, :SUMH;

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :EMNUM CHAR(3),
    :SUMH NUMERIC (9));
      FETCH C15812 INTO :EMNUM, :SUMH;

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :EMNUM CHAR(3),
    :SUMH NUMERIC (9));
      FETCH C15812 INTO :EMNUM, :SUMH;

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      CLOSE C15812;

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
    OPEN C15813;

PROCEDURE SUB19 (SQLCODE, SQLSTATE,
    :EMNUM CHAR(3),
    :SUMH NUMERIC (9));
      FETCH C15813 INTO :EMNUM, :SUMH;

PROCEDURE SUB20 (SQLCODE, SQLSTATE,
    :EMNUM CHAR(3),
    :SUMH NUMERIC (9));
      FETCH C15813 INTO :EMNUM, :SUMH;

PROCEDURE SUB21 (SQLCODE, SQLSTATE,
    :EMNUM CHAR(3),
    :SUMH NUMERIC (9));
      FETCH C15813 INTO :EMNUM, :SUMH;

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB23 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0857','pass','MCO');

PROCEDURE SUB24 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0857','fail','MCO');

PROCEDURE SUB25 (SQLCODE, SQLSTATE);
      COMMIT WORK;