Quelle  sdl037.mco

-- SQL Test Suite, V6.0, SQL Module sdl037.mco
-- 59-byte ID
-- 
MODULE SDL037
LANGUAGE COBOL
AUTHORIZATION SULLIVAN1



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

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

PROCEDURE SUB3 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB4 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0495','pass','MCO');

PROCEDURE SUB5 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0495','fail','MCO');

PROCEDURE SUB6 SQLCODE;
      COMMIT WORK;