Quellcode-Bibliothek dml080.mco

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



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

PROCEDURE SUB2 SQLCODE;
      DELETE FROM HU.STAFF WHERE EMPNUM = 'E7';

PROCEDURE SUB3 SQLCODE;
      DELETE FROM HU.STAFF;

PROCEDURE SUB4 SQLCODE;
      DELETE FROM HU.STAFF;

PROCEDURE SUB5 SQLCODE;
      DELETE FROM HU.STAFF WHERE EMPNUM = 'E1';

PROCEDURE SUB6 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB9 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB10 SQLCODE;
      UPDATE HU.STAFF
                    SET CITY = 'NOWHERE'
                    WHERE EMPNAME = 'NOBODY';

PROCEDURE SUB11 SQLCODE;
      UPDATE HU.STAFF
                    SET GRADE = 11;

PROCEDURE SUB12 SQLCODE;
      DELETE FROM HU.STAFF;

PROCEDURE SUB13 SQLCODE;
      UPDATE HU.STAFF SET CITY = 'NOWHERE';

PROCEDURE SUB14 SQLCODE;
      UPDATE HU.STAFF
                    SET CITY = 'NOWHERE'
                    WHERE EMPNAME = 'NOBODY';

PROCEDURE SUB15 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB18 SQLCODE;
      COMMIT WORK;