Quelle  sdl036.mco

-- SQL Test Suite, V6.0, SQL Module sdl036.mco
-- 59-byte ID
-- 
MODULE SDL036
LANGUAGE COBOL
AUTHORIZATION SCHANZLE



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

PROCEDURE SUB2 SQLCODE;
      DELETE FROM CUGINI.VVTABLE;

PROCEDURE SUB3 SQLCODE;
      INSERT INTO CUGINI.VVTABLE
                    VALUES (0,1,2,3,4.25);

PROCEDURE SUB4 SQLCODE
    :TMPINT NUMERIC (9);
      SELECT COL2 INTO :TMPINT FROM CUGINI.VVTABLE
                    WHERE COL1 = 0;

PROCEDURE SUB5 SQLCODE;
      UPDATE CUGINI.VVTABLE
                    SET COL2 = 2;

PROCEDURE SUB6 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB7 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0481','pass','MCO');

PROCEDURE SUB8 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0481','fail','MCO');

PROCEDURE SUB9 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB10 SQLCODE;
      DELETE FROM CUGINI.VII;

PROCEDURE SUB11 SQLCODE;
      INSERT INTO CUGINI.VII VALUES (2);

PROCEDURE SUB12 SQLCODE;
      UPDATE CUGINI.VII
                    SET C1 = 3
                    WHERE C1 = 2;

PROCEDURE SUB13 SQLCODE
    :TMPINT NUMERIC (9);
      SELECT C1 INTO :TMPINT
                    FROM CUGINI.VII;

PROCEDURE SUB14 SQLCODE;
      DELETE FROM CUGINI.VII;

PROCEDURE SUB15 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB16 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0482','pass','MCO');

PROCEDURE SUB17 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0482','fail','MCO');

PROCEDURE SUB18 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB19 SQLCODE;
      UPDATE HU.VSTAFF3
                    SET GRADE = 15
                    WHERE EMPNUM = 'E2';

PROCEDURE SUB20 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB21 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0483','pass','MCO');

PROCEDURE SUB22 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0483','fail','MCO');

PROCEDURE SUB23 SQLCODE;
      COMMIT WORK;