Quelle  yts751.mco

-- SQL Test Suite, V6.0, SQL Module yts751.mco
-- 59-byte ID
-- 
MODULE YTS751
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 chardomain
                    AS CHAR(10) DEFAULT 'MANCHESTER';

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :CO NUMERIC (4));
      SELECT COUNT(*) INTO :CO
                    FROM INFORMATION_SCHEMA.DOMAINS
                    WHERE DOMAIN_NAME = 'CHARDOMAIN'
                    AND DOMAIN_SCHEMA = 'CTS1';

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :DOMCAT CHAR(128),
    :INDIC1 NUMERIC (4),
    :DTYPE CHAR(29),
    :CNUM NUMERIC (9),
    :OLEN NUMERIC (9),
    :INDIC2 NUMERIC (4),
    :COLCAT CHAR(128),
    :INDIC3 NUMERIC (4),
    :COLSCH CHAR(128),
    :INDIC4 NUMERIC (4),
    :COLNAM CHAR(128),
    :INDIC5 NUMERIC (4),
    :CHRSET CHAR(128),
    :INDIC6 NUMERIC (4),
    :CHRSCH CHAR(128),
    :INDIC7 NUMERIC (4),
    :CHRNME CHAR(128),
    :INDIC8 NUMERIC (4),
    :NUMPRE NUMERIC (9),
    :INDIC9 NUMERIC (4),
    :NUMRAD NUMERIC (9),
    :INDICA NUMERIC (4),
    :NUMSCL NUMERIC (9),
    :INDICB NUMERIC (4),
    :DTTIME NUMERIC (9),
    :INDICC NUMERIC (4),
    :DOMDEF CHAR(10));
      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
                    INTO :DOMCAT:INDIC1,
                    :DTYPE, :CNUM, :OLEN:INDIC2,
                    :COLCAT:INDIC3, :COLSCH:INDIC4, :COLNAM:INDIC5,
                    :CHRSET:INDIC6, :CHRSCH:INDIC7, :CHRNME:INDIC8,
                    :NUMPRE:INDIC9, :NUMRAD:INDICA,
                    :NUMSCL:INDICB, :DTTIME:INDICC,
                    :DOMDEF
                    FROM INFORMATION_SCHEMA.DOMAINS
                    WHERE DOMAIN_NAME = 'CHARDOMAIN'
                    AND DOMAIN_SCHEMA = 'CTS1';

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      DROP DOMAIN chardomain CASCADE;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      COMMIT WORK;