Quelle  dml050.mco

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

MODULE DML050
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE T10 CURSOR FOR
             SELECT EMPNUM, EMPNAME 
             FROM STAFF 
             WHERE EMPNUM IN 
             (SELECT EMPNUM  FROM WORKS 
             WHERE PNUM IN 
             (SELECT PNUM  FROM PROJ 
             WHERE PTYPE IN 
             (SELECT PTYPE  FROM PROJ 
             WHERE PNUM IN 
             (SELECT PNUM  FROM WORKS 
             WHERE EMPNUM IN 
             (SELECT EMPNUM  FROM WORKS 
             WHERE PNUM IN 
             (SELECT PNUM   FROM PROJ 
             WHERE PTYPE IN
             (SELECT PTYPE  FROM PROJ
             WHERE CITY IN
             (SELECT CITY  FROM STAFF
             WHERE EMPNUM IN
             (SELECT EMPNUM  FROM WORKS
             WHERE HOURS = 20 
             AND PNUM = 'P2' )))))))))


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

PROCEDURE SUB1 SQLCODE;
    OPEN T10;

PROCEDURE SUB2 SQLCODE;
      CLOSE T10;

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

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

PROCEDURE SUB5 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB6 SQLCODE
    :EMPNO1 CHAR(3)
    :EMPNA1 CHAR(20);
      FETCH T10 INTO
                     :EMPNO1, :EMPNA1;