Quelle  yts789.mco

-- SQL Test Suite, V6.0, SQL Module yts789.mco
-- 59-byte ID
-- 
MODULE YTS789
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);
      CREATE SCHEMA CTSC
                    
                    CREATE CHARACTER SET CST GET SQL_TEXT
                    COLLATION FROM DEFAULT
                    
                    CREATE TABLE Tab 
                    (Col1  CHARACTER(3) CHARACTER SET CST);

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

PROCEDURE SUB6 (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 = 'CTSC'
                    AND CHARACTER_SET_NAME = 'CST';

PROCEDURE SUB7 (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 SUB8 (SQLCODE, SQLSTATE);
      INSERT INTO CTSC.Tab VALUES (_CTSC.CST 'f')
                 ;

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :I NUMERIC (4));
      SELECT COUNT (*) INTO :I FROM CTSC.Tab;

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      DROP SCHEMA CTSC CASCADE;

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      COMMIT WORK;