Quelle  ist003.mco

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