Quelle  dml167.mco

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



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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT (DISTINCT TABLE_CATALOG)
                    INTO :INT1 FROM INFORMATION_SCHEMA.TABLE_CONSTRAINTS
                 ;

PROCEDURE SUB4 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM INFORMATION_SCHEMA.TABLE_CONSTRAINTS
                    WHERE TABLE_CATALOG <> (
                    SELECT CATALOG_NAME FROM
                    INFORMATION_SCHEMA.INFORMATION_SCHEMA_CATALOG_NAME)
                    OR TABLE_CATALOG IS NULL;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT (DISTINCT CONSTRAINT_CATALOG)
                    INTO :INT1 FROM INFORMATION_SCHEMA.KEY_COLUMN_USAGE
                 ;

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM INFORMATION_SCHEMA.KEY_COLUMN_USAGE
                    WHERE CONSTRAINT_CATALOG <> (
                    SELECT CATALOG_NAME FROM
                    INFORMATION_SCHEMA.INFORMATION_SCHEMA_CATALOG_NAME)
                    OR CONSTRAINT_CATALOG IS NULL
                    OR TABLE_CATALOG IS NULL;

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT (DISTINCT VIEW_CATALOG)
                    INTO :INT1 FROM INFORMATION_SCHEMA.VIEW_TABLE_USAGE
                 ;

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM INFORMATION_SCHEMA.VIEW_TABLE_USAGE
                    WHERE VIEW_CATALOG <> (
                    SELECT CATALOG_NAME FROM
                    INFORMATION_SCHEMA.INFORMATION_SCHEMA_CATALOG_NAME)
                    OR VIEW_CATALOG IS NULL
                    OR TABLE_CATALOG IS NULL;

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT (DISTINCT VIEW_CATALOG)
                    INTO :INT1 FROM INFORMATION_SCHEMA.VIEW_COLUMN_USAGE
                 ;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM INFORMATION_SCHEMA.VIEW_COLUMN_USAGE
                    WHERE VIEW_CATALOG <> (
                    SELECT CATALOG_NAME FROM
                    INFORMATION_SCHEMA.INFORMATION_SCHEMA_CATALOG_NAME)
                    OR VIEW_CATALOG IS NULL
                    OR TABLE_CATALOG IS NULL;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT (DISTINCT CONSTRAINT_CATALOG)
                    INTO :INT1 FROM INFORMATION_SCHEMA.CONSTRAINT_TABLE_USAGE
                 ;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM INFORMATION_SCHEMA.CONSTRAINT_TABLE_USAGE
                    WHERE CONSTRAINT_CATALOG <> (
                    SELECT CATALOG_NAME FROM
                    INFORMATION_SCHEMA.INFORMATION_SCHEMA_CATALOG_NAME)
                    OR CONSTRAINT_CATALOG IS NULL
                    OR TABLE_CATALOG IS NULL;

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT (DISTINCT CONSTRAINT_CATALOG)
                    INTO :INT1 FROM
                  INFORMATION_SCHEMA.CONSTRAINT_COLUMN_USAGE;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM INFORMATION_SCHEMA.CONSTRAINT_COLUMN_USAGE
                    WHERE CONSTRAINT_CATALOG <> (
                    SELECT CATALOG_NAME FROM
                    INFORMATION_SCHEMA.INFORMATION_SCHEMA_CATALOG_NAME)
                    OR CONSTRAINT_CATALOG IS NULL
                    OR TABLE_CATALOG IS NULL;

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT (DISTINCT DOMAIN_CATALOG)
                    INTO :INT1 FROM INFORMATION_SCHEMA.COLUMN_DOMAIN_USAGE
                 ;

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM INFORMATION_SCHEMA.COLUMN_DOMAIN_USAGE
                    WHERE DOMAIN_CATALOG <> (
                    SELECT CATALOG_NAME FROM
                    INFORMATION_SCHEMA.INFORMATION_SCHEMA_CATALOG_NAME)
                    OR DOMAIN_CATALOG IS NULL
                    OR TABLE_CATALOG IS NULL;

PROCEDURE SUB17 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT (DISTINCT CONSTRAINT_CATALOG)
                    INTO :INT1 FROM INFORMATION_SCHEMA.DOMAIN_CONSTRAINTS
                 ;

PROCEDURE SUB18 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM INFORMATION_SCHEMA.DOMAIN_CONSTRAINTS
                    WHERE CONSTRAINT_CATALOG <> (
                    SELECT CATALOG_NAME FROM
                    INFORMATION_SCHEMA.INFORMATION_SCHEMA_CATALOG_NAME)
                    OR CONSTRAINT_CATALOG IS NULL
                    OR DOMAIN_CATALOG IS NULL;

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0874','pass','MCO');

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0874','fail','MCO');

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB23 (SQLCODE, SQLSTATE);
      CREATE TABLE TAB1 (
                    C1 INT, C2 INT, C3 INT,
                    PRIMARY KEY (C1, C2));

PROCEDURE SUB24 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB25 (SQLCODE, SQLSTATE);
      CREATE TABLE TAB2 (
                    D1 INT PRIMARY KEY, D2 INT, D3 INT,
                    FOREIGN KEY (D2, D3) REFERENCES TAB1);

PROCEDURE SUB26 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB27 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT ORDINAL_POSITION INTO :INT1
                    FROM INFORMATION_SCHEMA.KEY_COLUMN_USAGE
                    WHERE COLUMN_NAME = 'CONST_ID'
                    AND TABLE_NAME = 'CONSTITUENTS'
                    AND TABLE_SCHEMA = 'TIDES';

PROCEDURE SUB28 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT ORDINAL_POSITION INTO :INT1
                    FROM INFORMATION_SCHEMA.KEY_COLUMN_USAGE
                    WHERE COLUMN_NAME = 'D2'
                    AND TABLE_NAME = 'TAB2'
                    AND TABLE_SCHEMA = 'FLATER';

PROCEDURE SUB29 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT ORDINAL_POSITION INTO :INT1
                    FROM INFORMATION_SCHEMA.KEY_COLUMN_USAGE
                    WHERE COLUMN_NAME = 'D1'
                    AND TABLE_NAME = 'TAB2'
                    AND TABLE_SCHEMA = 'FLATER';

PROCEDURE SUB30 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM INFORMATION_SCHEMA.CONSTRAINT_COLUMN_USAGE
                    WHERE TABLE_NAME = 'TAB1'
                    AND COLUMN_NAME = 'C1'
                    AND TABLE_SCHEMA = 'FLATER'
                    AND CONSTRAINT_SCHEMA IS NOT NULL;

PROCEDURE SUB31 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM INFORMATION_SCHEMA.DOMAIN_CONSTRAINTS;

PROCEDURE SUB32 (SQLCODE, SQLSTATE,
    :INT2 NUMERIC (9));
      SELECT COUNT(*) INTO :INT2
                    FROM INFORMATION_SCHEMA.DOMAIN_CONSTRAINTS
                    WHERE (IS_DEFERRABLE = 'NO' AND INITIALLY_DEFERRED =
                  'NO') OR
                    (IS_DEFERRABLE = 'YES' AND (INITIALLY_DEFERRED = 'NO' OR
                    INITIALLY_DEFERRED = 'YES'));

PROCEDURE SUB33 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB34 (SQLCODE, SQLSTATE);
      DROP TABLE TAB1 CASCADE;

PROCEDURE SUB35 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB36 (SQLCODE, SQLSTATE);
      DROP TABLE TAB2 CASCADE;

PROCEDURE SUB37 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB38 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0875','pass','MCO');

PROCEDURE SUB39 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0875','fail','MCO');

PROCEDURE SUB40 (SQLCODE, SQLSTATE);
      COMMIT WORK;