Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/sources/formale Sprachen/Cobol/Test-Suite/SQL M/ Datei vom 4.1.2008 mit Größe 8 kB

Quelle dml167.mco Sprache: unbekannt

-- 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;