Quelle  xts744.mco

-- SQL Test Suite, V6.0, SQL Module xts744.mco
-- 59-byte ID
-- 
MODULE XTS744
LANGUAGE COBOL
AUTHORIZATION CTS1

DECLARE F  CURSOR FOR SELECT CHARACTER_SET_SCHEMA,
             CHARACTER_SET_NAME,NUMBER_OF_CHARACTERS,
             CHARACTER_SET_CATALOG,DEFAULT_COLLATE_CATALOG, 
             DEFAULT_COLLATE_SCHEMA,DEFAULT_COLLATE_NAME FROM
             INFORMATION_SCHEMA.CHARACTER_SETS
             WHERE CHARACTER_SET_SCHEMA = 'INFORMATION_SCHEMA'
             AND CHARACTER_SET_NAME = 'SQL_CHARACTER'


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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
    OPEN F;

PROCEDURE SUB4 (SQLCODE, SQLSTATE,
    :CSSCHE CHAR(128),
    :CSNAME CHAR(128),
    :NOFCHA NUMERIC (9),
    :CH_CAT CHAR(128),
    :INDIC1 NUMERIC (4),
    :COLCAT CHAR(128),
    :INDIC2 NUMERIC (4),
    :COLSCH CHAR(128),
    :INDIC3 NUMERIC (4),
    :COLNAM CHAR(128),
    :INDIC4 NUMERIC (4));
      FETCH F INTO
                  :CSSCHE,:CSNAME,:NOFCHA,:CH_CAT:INDIC1,
                    :COLCAT:INDIC2, :COLSCH:INDIC3, :COLNAM:INDIC4;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      CLOSE F;

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7044','pass','MCO');

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7044','fail','MCO');

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      COMMIT WORK;