Quelle  dml172.mco

-- SQL Test Suite, V6.0, SQL Module dml172.mco
-- 59-byte ID
-- 
MODULE DML172
LANGUAGE COBOL
AUTHORIZATION FLATER



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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      CREATE TABLE T0884 (
                    C1 CHAR (4) CHARACTER SET ASCII_FULL,
                    C2 CHAR (4) CHARACTER SET SQL_TEXT);

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
   :HLC1 CHAR(4) CHARACTER SET ASCII_FULL);
      INSERT INTO T0884 VALUES (:HLC1,
                    _SQL_TEXT 'This');

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM T0884
                    WHERE C1 = _ASCII_FULL '^#|~'
                    AND C2 = _SQL_TEXT 'This';

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      DROP TABLE T0884 CASCADE;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0884','pass','MCO');

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0884','fail','MCO');

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      COMMIT WORK;