Quelle  sdl031.mco

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



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

PROCEDURE SUB2 SQLCODE;
      DELETE FROM CUGINI.VTABLE;

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

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

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

PROCEDURE SUB6 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB9 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB10 SQLCODE;
      DELETE FROM CUGINI.II;

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

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

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

PROCEDURE SUB14 SQLCODE;
      DELETE FROM CUGINI.II;

PROCEDURE SUB15 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB18 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB19 SQLCODE;
      DELETE FROM CUGINI.JJ;

PROCEDURE SUB20 SQLCODE;
      INSERT INTO CUGINI.JJ VALUES (2);

PROCEDURE SUB21 SQLCODE;
      UPDATE CUGINI.JJ
                    SET C1 = 3
                    WHERE C1 = 2;

PROCEDURE SUB22 SQLCODE
    :TMPINT NUMERIC (9);
      SELECT C1 INTO :TMPINT
                    FROM CUGINI.JJ;

PROCEDURE SUB23 SQLCODE;
      DELETE FROM CUGINI.JJ;

PROCEDURE SUB24 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB25 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0470','pass','MCO');

PROCEDURE SUB26 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0470','fail','MCO');

PROCEDURE SUB27 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB28 SQLCODE;
      UPDATE HU.STAFF3
                    SET GRADE = 15
                    WHERE EMPNUM = 'E2';

PROCEDURE SUB29 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB30 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0471','pass','MCO');

PROCEDURE SUB31 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0471','fail','MCO');

PROCEDURE SUB32 SQLCODE;
      COMMIT WORK;