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 6 kB

Quelle isi003.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module isi003.mco
-- 59-byte ID
--
MODULE ISI003
LANGUAGE COBOL
AUTHORIZATION FLATER

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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.COLUMNS
                    WHERE ORDINAL_POSITION IS NULL;

PROCEDURE SUB4 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.COLUMNS
                    WHERE TABLE_SCHEMA IS NULL
                    OR TABLE_NAME IS NULL
                    OR COLUMN_NAME IS NULL;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.COLUMNS;

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :CTR2 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR2
                    FROM INFORMATION_SCHEMA.COLUMNS A,
                    INFORMATION_SCHEMA.COLUMNS B
                    WHERE A.TABLE_SCHEMA = B.TABLE_SCHEMA
                    AND A.TABLE_NAME = B.TABLE_NAME
                    AND A.COLUMN_NAME = B.COLUMN_NAME;

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :CTR2 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR2
                    FROM INFORMATION_SCHEMA.COLUMNS A,
                    INFORMATION_SCHEMA.COLUMNS B
                    WHERE A.TABLE_SCHEMA = B.TABLE_SCHEMA
                    AND A.TABLE_NAME = B.TABLE_NAME
                    AND A.ORDINAL_POSITION = B.ORDINAL_POSITION;

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.COLUMNS A
                    WHERE NOT EXISTS (SELECT * FROM
                    INFORMATION_SCHEMA.TABLES B WHERE
                    A.TABLE_SCHEMA = B.TABLE_SCHEMA AND
                    A.TABLE_NAME = B.TABLE_NAME);

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.COLUMNS A
                    WHERE NOT EXISTS (
                    SELECT * FROM INFORMATION_SCHEMA.DOMAINS B
                    WHERE A.DOMAIN_SCHEMA = B.DOMAIN_SCHEMA
                    AND A.DOMAIN_NAME = B.DOMAIN_NAME)
                    AND A.DOMAIN_SCHEMA IS NOT NULL;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.COLUMNS
                    WHERE ORDINAL_POSITION < 1;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.COLUMNS
                    WHERE (IS_NULLABLE <> 'YES'
                    AND IS_NULLABLE <> 'NO')
                    OR IS_NULLABLE IS NULL;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.COLUMNS
                    WHERE TABLE_SCHEMA = 'FLATER' AND
                    TABLE_NAME = 'USIG' AND
                    COLUMN_NAME = 'C1' AND
                    COLUMN_DEFAULT IS NULL AND
                    IS_NULLABLE = 'YES' AND
                    ORDINAL_POSITION = 1 AND
                    DATA_TYPE = 'INTEGER' AND
                    NUMERIC_SCALE = 0 AND
                    CHARACTER_MAXIMUM_LENGTH IS NULL AND
                    CHARACTER_OCTET_LENGTH IS NULL AND
                    NUMERIC_PRECISION_RADIX IN (2, 10)
                    AND DATETIME_PRECISION IS NULL;

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.COLUMNS
                    WHERE TABLE_SCHEMA = 'FLATER' AND
                    TABLE_NAME = 'USIG' AND
                    COLUMN_NAME = 'C_1' AND
                    COLUMN_DEFAULT IS NULL AND
                    IS_NULLABLE = 'YES' AND
                    ORDINAL_POSITION = 2 AND
                    DATA_TYPE = 'INTEGER' AND
                    NUMERIC_SCALE = 0 AND
                    CHARACTER_MAXIMUM_LENGTH IS NULL AND
                    CHARACTER_OCTET_LENGTH IS NULL AND
                    NUMERIC_PRECISION_RADIX IN (2, 10)
                    AND DATETIME_PRECISION IS NULL;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.COLUMNS
                    WHERE TABLE_SCHEMA = 'FLATER' AND
                    TABLE_NAME = 'USIG' AND
                    ORDINAL_POSITION > 2;

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.COLUMNS
                    WHERE TABLE_SCHEMA = 'FLATER' AND
                    TABLE_NAME = 'BASE_WCOV' AND
                    COLUMN_NAME = 'C1' AND
                    COLUMN_DEFAULT IS NULL AND
                    IS_NULLABLE = 'YES' AND
                    ORDINAL_POSITION = 1 AND
                    DATA_TYPE = 'INTEGER' AND
                    NUMERIC_SCALE = 0 AND
                    CHARACTER_MAXIMUM_LENGTH IS NULL AND
                    CHARACTER_OCTET_LENGTH IS NULL AND
                    NUMERIC_PRECISION_RADIX IN (2, 10)
                    AND DATETIME_PRECISION IS NULL;

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.COLUMNS
                    WHERE TABLE_SCHEMA = 'FLATER' AND
                    TABLE_NAME = 'BASE_WCOV' AND
                    ORDINAL_POSITION <> 1;

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      COMMIT WORK;