Quelle  yts750.mco

-- SQL Test Suite, V6.0, SQL Module yts750.mco
-- 59-byte ID
-- 
MODULE YTS750
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 DOMAIN intdomain INTEGER;

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :DOMCAT CHAR(128),
    :INDIC1 NUMERIC (4),
    :DTYPE CHAR(29),
    :CNUM NUMERIC (9),
    :INDIC2 NUMERIC (4),
    :OLEN NUMERIC (9),
    :INDIC3 NUMERIC (4),
    :COLCAT CHAR(128),
    :INDIC4 NUMERIC (4),
    :COLSCH CHAR(128),
    :INDIC5 NUMERIC (4),
    :COLNAM CHAR(128),
    :INDIC6 NUMERIC (4),
    :CHRSET CHAR(128),
    :INDIC7 NUMERIC (4),
    :CHRSCH CHAR(128),
    :INDIC8 NUMERIC (4),
    :CHRNME CHAR(128),
    :INDIC9 NUMERIC (4),
    :NUMPRE NUMERIC (9),
    :INDICA NUMERIC (4),
    :NUMRAD NUMERIC (9),
    :NUMSCL NUMERIC (9),
    :DTTIME NUMERIC (9),
    :INDICB NUMERIC (4),
    :DOMDEF CHAR(256),
    :INDICC NUMERIC (4),
    :INTTYP CHAR(128),
    :INDICD NUMERIC (4),
    :INTPRE NUMERIC (9),
    :INDICE NUMERIC (4));
      SELECT DOMAIN_CATALOG,
                    DATA_TYPE, CHARACTER_MAXIMUM_LENGTH,
                    CHARACTER_OCTET_LENGTH, COLLATION_CATALOG,
                    COLLATION_SCHEMA, COLLATION_NAME,
                    CHARACTER_SET_CATALOG, CHARACTER_SET_SCHEMA,
                    CHARACTER_SET_NAME, NUMERIC_PRECISION,
                    NUMERIC_PRECISION_RADIX, NUMERIC_SCALE,
                    DATETIME_PRECISION, DOMAIN_DEFAULT,
                    INTERVAL_TYPE, INTERVAL_PRECISION
                    INTO :DOMCAT:INDIC1, :DTYPE, :CNUM:INDIC2,
                    :OLEN:INDIC3, :COLCAT:INDIC4, :COLSCH:INDIC5,
                    :COLNAM:INDIC6,  :CHRSET:INDIC7, :CHRSCH:INDIC8,
                    :CHRNME:INDIC9, :NUMPRE:INDICA, :NUMRAD,
                    :NUMSCL, :DTTIME:INDICB, :DOMDEF:INDICC,
                    :INTTYP:INDICD, :INTPRE:INDICE
                    FROM INFORMATION_SCHEMA.DOMAINS
                    WHERE DOMAIN_NAME = 'INTDOMAIN'
                    AND DOMAIN_SCHEMA = 'CTS1';

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      DROP DOMAIN intdomain CASCADE;

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      COMMIT WORK;