Quelle  dml070.mco

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

MODULE DML070
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE SCALLOP CURSOR FOR
               SELECT  PNUM, WORKS.EMPNUM, EMPNAME, HOURS 
               FROM WORKS,STAFF
               WHERE STAFF.EMPNUM = WORKS.EMPNUM
               ORDER BY 2
DECLARE FISH CURSOR FOR 
               SELECT  'ZZ', EMPNUM, EMPNAME, -99
               FROM STAFF
               WHERE NOT EXISTS (SELECT * FROM WORKS
               WHERE WORKS.EMPNUM = STAFF.EMPNUM)
               ORDER BY EMPNUM
DECLARE SMURF CURSOR FOR
               SELECT W1.EMPNUM FROM WORKS W1
               WHERE  W1.PNUM = 'P2'
               AND NOT EXISTS (SELECT * FROM WORKS W2
               WHERE W2.EMPNUM = W1.EMPNUM
               AND W2.PNUM = 'P1')
               ORDER BY 1 ASC
DECLARE BULL CURSOR FOR
               SELECT W1.EMPNUM FROM WORKS W1
               WHERE  W1.PNUM = 'P2'
               AND EXISTS (SELECT * FROM WORKS W2
               WHERE W1.EMPNUM = W2.EMPNUM
               AND W2.PNUM = 'P1')
               ORDER BY EMPNUM ASC


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

PROCEDURE SUB1 SQLCODE;
      INSERT INTO STAFF
                    VALUES ('E6', 'Lendle', 17, 'Potomac');

PROCEDURE SUB2 SQLCODE;
    OPEN SCALLOP;

PROCEDURE SUB3 SQLCODE;
      CLOSE SCALLOP;

PROCEDURE SUB4 SQLCODE;
    OPEN FISH;

PROCEDURE SUB5 SQLCODE
    :PNUM1 CHAR(9)
    :EMPNO1 CHAR(3)
    :EMPNA1 CHAR(20)
    :HOURS1 NUMERIC (9);
      FETCH FISH INTO  :PNUM1,
                     :EMPNO1,  :EMPNA1,  :HOURS1;

PROCEDURE SUB6 SQLCODE
    :PNUM1 CHAR(9)
    :EMPNO1 CHAR(3)
    :EMPNA1 CHAR(20)
    :HOURS1 NUMERIC (9);
      FETCH FISH INTO  :PNUM1,
                     :EMPNO1,  :EMPNA1,  :HOURS1;

PROCEDURE SUB7 SQLCODE
    :PNUM1 CHAR(9)
    :EMPNO1 CHAR(3)
    :EMPNA1 CHAR(20)
    :HOURS1 NUMERIC (9);
      FETCH FISH INTO  :PNUM1,
                     :EMPNO1,  :EMPNA1,  :HOURS1;

PROCEDURE SUB8 SQLCODE;
      CLOSE FISH;

PROCEDURE SUB9 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB12 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB21 SQLCODE;
    OPEN SMURF;

PROCEDURE SUB22 SQLCODE
    :EMPNO1 CHAR(3);
      FETCH SMURF INTO  :EMPNO1;

PROCEDURE SUB23 SQLCODE
    :EMPNO1 CHAR(3);
      FETCH SMURF INTO  :EMPNO1;

PROCEDURE SUB24 SQLCODE
    :EMPNO1 CHAR(3);
      FETCH SMURF INTO  :EMPNO1;

PROCEDURE SUB25 SQLCODE;
      CLOSE SMURF;

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

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

PROCEDURE SUB28 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB29 SQLCODE;
    OPEN BULL;

PROCEDURE SUB30 SQLCODE
    :EMPNO1 CHAR(3);
      FETCH BULL INTO  :EMPNO1;

PROCEDURE SUB31 SQLCODE
    :EMPNO1 CHAR(3);
      FETCH BULL INTO  :EMPNO1;

PROCEDURE SUB32 SQLCODE
    :EMPNO1 CHAR(3);
      FETCH BULL INTO  :EMPNO1;

PROCEDURE SUB33 SQLCODE;
      CLOSE BULL;

PROCEDURE SUB34 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0412','pass','MCO');

PROCEDURE SUB35 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0412','fail','MCO');

PROCEDURE SUB36 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB37 SQLCODE
    :PNUM1 CHAR(9)
    :EMPNO1 CHAR(3)
    :EMPNA1 CHAR(20)
    :HOURS1 NUMERIC (9);
      FETCH SCALLOP INTO  :PNUM1,
                       :EMPNO1,  :EMPNA1,  :HOURS1;