Quelle  dml086.mco

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

DECLARE QWERTY  CURSOR FOR 
               SELECT HOURS FROM V_WORKS3 
               WHERE EMPNUM = 'E6' AND PNUM = 'P2'


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

PROCEDURE SUB2 SQLCODE;
      INSERT INTO V_WORKS2
                    VALUES('E9','P7',13);

PROCEDURE SUB3 SQLCODE;
      INSERT INTO V_WORKS2
                    VALUES('E7','P4',95);

PROCEDURE SUB4 SQLCODE;
      INSERT INTO V_WORKS3
                    VALUES('E8','P2',85);

PROCEDURE SUB5 SQLCODE;
      INSERT INTO V_WORKS3
                    VALUES('E1','P7',90);

PROCEDURE SUB6 SQLCODE;
      INSERT INTO V_WORKS3
                    VALUES('E9','P2',10);

PROCEDURE SUB7 SQLCODE
    :I NUMERIC (9);
      SELECT COUNT(*)
                    INTO  :I
                    FROM  WORKS
                    WHERE EMPNUM = 'E9';

PROCEDURE SUB8 SQLCODE
    :I NUMERIC (9);
      SELECT COUNT(*)
                    INTO  :I
                    FROM  WORKS
                    WHERE HOURS > 85;

PROCEDURE SUB9 SQLCODE;
      UPDATE V_WORKS3
                    SET EMPNUM = 'E12', HOURS = 222
                    WHERE EMPNUM = 'E1' AND PNUM = 'P2';

PROCEDURE SUB10 SQLCODE;
      INSERT INTO WORKS VALUES ('E6','P2',55);

PROCEDURE SUB11 SQLCODE;
    OPEN QWERTY;

PROCEDURE SUB12 SQLCODE
    :HOURS1 NUMERIC (9);
      FETCH QWERTY INTO :HOURS1;

PROCEDURE SUB13 SQLCODE;
      UPDATE V_WORKS3
                    SET EMPNUM = 'E13', HOURS = 222
                    WHERE CURRENT OF QWERTY;

PROCEDURE SUB14 SQLCODE
    :I NUMERIC (9);
      SELECT COUNT(*) INTO :I FROM WORKS WHERE HOURS =
                  222;

PROCEDURE SUB15 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB16 SQLCODE;
      INSERT INTO TESTREPORT
                  VALUES('0511','pass','MCO');

PROCEDURE SUB17 SQLCODE;
      INSERT INTO TESTREPORT
                  VALUES('0511','fail','MCO');

PROCEDURE SUB18 SQLCODE;
      COMMIT WORK;