Quelle  yts788.mco

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



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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE,
    :I NUMERIC (4));
      SELECT COUNT (*) INTO :I
                    FROM INFORMATION_SCHEMA.CHARACTER_SETS
                    WHERE CHARACTER_SET_SCHEMA = 'CTS1'
                    AND CHARACTER_SET_NAME = 'TEST_SET';

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      CREATE CHARACTER SET test_set GET SQL_TEXT
                 ;

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :I NUMERIC (4));
      SELECT COUNT (*) INTO :I
                    FROM INFORMATION_SCHEMA.CHARACTER_SETS
                    WHERE CHARACTER_SET_SCHEMA = 'CTS1'
                    AND CHARACTER_SET_NAME = 'TEST_SET';

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :FORM1 CHAR(128),
    :NUM1 NUMERIC (9),
    :CAT1 CHAR(128),
    :SCHEM1 CHAR(128),
    :NAME1 CHAR(128));
      SELECT FORM_OF_USE, NUMBER_OF_CHARACTERS,
                    DEFAULT_COLLATE_CATALOG, DEFAULT_COLLATE_SCHEMA,
                    DEFAULT_COLLATE_NAME 
                    INTO :FORM1, :NUM1, :CAT1, :SCHEM1, :NAME1
                    FROM INFORMATION_SCHEMA.CHARACTER_SETS
                    WHERE CHARACTER_SET_SCHEMA = 'CTS1'
                    AND CHARACTER_SET_NAME = 'TEST_SET';

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :FORM2 CHAR(128),
    :NUM2 NUMERIC (9),
    :CAT2 CHAR(128),
    :SCHEM2 CHAR(128),
    :NAME2 CHAR(128));
      SELECT FORM_OF_USE, NUMBER_OF_CHARACTERS,
                    DEFAULT_COLLATE_CATALOG, DEFAULT_COLLATE_SCHEMA,
                    DEFAULT_COLLATE_NAME 
                    INTO :FORM2, :NUM2, :CAT2, :SCHEM2, :NAME2
                    FROM INFORMATION_SCHEMA.CHARACTER_SETS
                    WHERE CHARACTER_SET_SCHEMA = 'INFORMATION_SCHEMA'
                    AND CHARACTER_SET_NAME = 'SQL_TEXT';

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      DROP CHARACTER SET test_set;

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      COMMIT WORK;