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 ist003.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module ist003.mco
-- 59-byte ID
--
MODULE IST003
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 INFO_SCHEM.COLUMNS
                    WHERE ORDINAL_POSITION IS NULL;

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

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

PROCEDURE SUB6 SQLCODE SQLSTATE
    :CTR2 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR2
                    FROM INFO_SCHEM.COLUMNS A,
                    INFO_SCHEM.COLUMNS B
                    WHERE A.TABLE_SCHEM = B.TABLE_SCHEM
                    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 INFO_SCHEM.COLUMNS A,
                    INFO_SCHEM.COLUMNS B
                    WHERE A.TABLE_SCHEM = B.TABLE_SCHEM
                    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 INFO_SCHEM.COLUMNS A
                    WHERE NOT EXISTS (SELECT * FROM
                    INFO_SCHEM.TABLES B WHERE
                    A.TABLE_SCHEM = B.TABLE_SCHEM AND
                    A.TABLE_NAME = B.TABLE_NAME);

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

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

PROCEDURE SUB11 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND
                    TABLE_NAME = 'USIG' AND
                    COLUMN_NAME = 'C1' AND
                    COLUMN_DEF IS NULL AND
                    IS_NULLABLE = 'YES' AND
                    ORDINAL_POSITION = 1 AND
                    DATA_TYPE = 'INTEGER' AND
                    NUM_SCALE = 0 AND
                    CHAR_MAX_LENGTH IS NULL AND
                    CHAR_OCTET_LENGTH IS NULL AND
                    NUM_PREC_RADIX IN (2, 10)
                    AND DATETIME_PREC IS NULL;

PROCEDURE SUB12 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND
                    TABLE_NAME = 'USIG' AND
                    COLUMN_NAME = 'C_1' AND
                    COLUMN_DEF IS NULL AND
                    IS_NULLABLE = 'YES' AND
                    ORDINAL_POSITION = 2 AND
                    DATA_TYPE = 'INTEGER' AND
                    NUM_SCALE = 0 AND
                    CHAR_MAX_LENGTH IS NULL AND
                    CHAR_OCTET_LENGTH IS NULL AND
                    NUM_PREC_RADIX IN (2, 10)
                    AND DATETIME_PREC IS NULL;

PROCEDURE SUB13 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND
                    TABLE_NAME = 'USIG' AND
                    ORDINAL_POSITION > 2;

PROCEDURE SUB14 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND
                    TABLE_NAME = 'BASE_WCOV' AND
                    COLUMN_NAME = 'C1' AND
                    COLUMN_DEF IS NULL AND
                    IS_NULLABLE = 'YES' AND
                    ORDINAL_POSITION = 1 AND
                    DATA_TYPE = 'INTEGER' AND
                    NUM_SCALE = 0 AND
                    CHAR_MAX_LENGTH IS NULL AND
                    CHAR_OCTET_LENGTH IS NULL AND
                    NUM_PREC_RADIX IN (2, 10)
                    AND DATETIME_PREC IS NULL;

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

PROCEDURE SUB16 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB17 SQLCODE SQLSTATE;
      CREATE TABLE UUUSIG (IRREVERENT DEC (5, 2)
                    DEFAULT 111.22);

PROCEDURE SUB18 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND
                    TABLE_NAME = 'UUUSIG' AND
                    COLUMN_NAME = 'IRREVERENT' AND
                    COLUMN_DEF LIKE '%111.22%' AND
                    IS_NULLABLE = 'YES' AND
                    ORDINAL_POSITION = 1 AND
                    DATA_TYPE = 'DECIMAL' AND
                    NUM_SCALE = 2 AND
                    CHAR_MAX_LENGTH IS NULL AND
                    CHAR_OCTET_LENGTH IS NULL AND
                    NUM_PREC_RADIX = 10
                    AND DATETIME_PREC IS NULL;

PROCEDURE SUB19 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB22 SQLCODE SQLSTATE;
      COMMIT WORK;