Quelle  dml130.mco

-- SQL Test Suite, V6.0, SQL Module dml130.mco
-- 59-byte ID
-- 
MODULE DML130
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;
      CREATE TABLE CH1 (
                    CH1A CHARACTER (10) NOT NULL,
                    CH1B CHARACTER NOT NULL,
                    CH1C CHAR (10) NOT NULL);

PROCEDURE SUB4 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB5 SQLCODE SQLSTATE;
      CREATE TABLE NUM1 (
                    NUM1C1 NUMERIC (3, 2) NOT NULL,
                    NUM1C2 NUMERIC (2) NOT NULL,
                    NUM1C3 NUMERIC NOT NULL);

PROCEDURE SUB6 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB7 SQLCODE SQLSTATE;
      INSERT INTO CH1 VALUES ('FOO', '', '0123456789')
                 ;

PROCEDURE SUB8 SQLCODE SQLSTATE
    :X1 CHAR(10)
    :X2 CHAR(1)
    :X3 CHAR(10);
      SELECT CH1A, CH1B, CH1C
                    INTO :X1, :X2, :X3 FROM CH1;

PROCEDURE SUB9 SQLCODE SQLSTATE
    :X1 CHAR(10)
    :X2 CHAR(1)
    :X5 CHAR(4);
      SELECT CH1A, CH1B, CH1C
                    INTO :X1, :X2, :X5 FROM CH1;

PROCEDURE SUB10 SQLCODE SQLSTATE;
      INSERT INTO CH1 VALUES ('FOO',
                    'F', 'LITTLETOOLONG');

PROCEDURE SUB11 SQLCODE SQLSTATE;
      DELETE FROM CH1;

PROCEDURE SUB12 SQLCODE SQLSTATE;
      INSERT INTO CH1 VALUES ('FOO',
                    'F', 'BLANKS       ');

PROCEDURE SUB13 SQLCODE SQLSTATE
    :X1 CHAR(10)
    :X2 CHAR(1)
    :X3 CHAR(10);
      SELECT CH1A, CH1B, CH1C
                    INTO :X1, :X2, :X3 FROM CH1;

PROCEDURE SUB14 SQLCODE SQLSTATE;
      INSERT INTO NUM1 VALUES (9.99, -99, 9);

PROCEDURE SUB15 SQLCODE SQLSTATE
    :Y1 NUMERIC (9)
    :Y2 NUMERIC (9)
    :Y3 NUMERIC (9);
      SELECT NUM1C1 * 100, NUM1C2, NUM1C3
                    INTO :Y1, :Y2, :Y3 FROM NUM1;

PROCEDURE SUB16 SQLCODE SQLSTATE;
      DELETE FROM NUM1;

PROCEDURE SUB17 SQLCODE SQLSTATE;
      INSERT INTO NUM1 VALUES (-10, 0, 0);

PROCEDURE SUB18 SQLCODE SQLSTATE;
      INSERT INTO NUM1 VALUES (0, 100, 0);

PROCEDURE SUB19 SQLCODE SQLSTATE;
      INSERT INTO NUM1 VALUES (0, 0, 0.1);

PROCEDURE SUB20 SQLCODE SQLSTATE
    :Y1 NUMERIC (9)
    :Y2 NUMERIC (9)
    :Y3 NUMERIC (9);
      SELECT NUM1C1 * 100, NUM1C2, NUM1C3
                    INTO :Y1, :Y2, :Y3 FROM NUM1;

PROCEDURE SUB21 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB22 SQLCODE SQLSTATE;
      DROP TABLE NUM1 CASCADE;

PROCEDURE SUB23 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB24 SQLCODE SQLSTATE;
      DROP TABLE CH1 CASCADE;

PROCEDURE SUB25 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB28 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB29 SQLCODE SQLSTATE;
      CREATE TABLE LOTSA_TYPES (
                    FLAAG CHAR DEFAULT 'Y', KODE CHAR (5) NOT NULL,
                    AMPL REAL DEFAULT 3,
                    COORD DOUBLE PRECISION, SWAY FLOAT, REVS INTEGER,
                    PITCH SMALLINT, DEGREE NUMERIC (3, 2), RUDDER DECIMAL
                  (2));

PROCEDURE SUB30 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB31 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.TABLES
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_TYPES'
                    AND TABLE_TYPE = 'BASE TABLE';

PROCEDURE SUB32 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.VIEWS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_TYPES';

PROCEDURE SUB33 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_TYPES'
                    AND COLUMN_NAME = 'FLAAG' AND ORDINAL_POSITION = 1
                    AND COLUMN_DEF = '''Y''' AND DATA_TYPE = 'CHARACTER'
                    AND CHAR_MAX_LENGTH = 1 AND CHAR_OCTET_LENGTH
                    > 0 AND NUM_PREC IS NULL AND NUM_PREC_RADIX
                    IS NULL AND NUM_SCALE IS NULL AND DATETIME_PREC IS
                    NULL AND INTERVAL_TYPE IS NULL AND INTERVAL_PREC IS
                    NULL AND IS_NULLABLE = 'YES';

PROCEDURE SUB34 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_TYPES'
                    AND COLUMN_NAME = 'KODE' AND ORDINAL_POSITION = 2
                    AND COLUMN_DEF IS NULL AND DATA_TYPE = 'CHARACTER'
                    AND CHAR_MAX_LENGTH = 5 AND CHAR_OCTET_LENGTH
                    > 3 AND NUM_PREC IS NULL AND NUM_PREC_RADIX
                    IS NULL AND NUM_SCALE IS NULL AND DATETIME_PREC IS
                    NULL AND INTERVAL_TYPE IS NULL AND INTERVAL_PREC IS
                    NULL AND IS_NULLABLE = 'NO';

PROCEDURE SUB35 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_TYPES'
                    AND COLUMN_NAME = 'AMPL' AND ORDINAL_POSITION = 3
                    AND COLUMN_DEF IS NOT NULL AND DATA_TYPE = 'REAL'
                    AND CHAR_MAX_LENGTH IS NULL AND CHAR_OCTET_LENGTH
                    IS NULL AND NUM_PREC >= 8 AND NUM_PREC_RADIX
                    = 2 AND NUM_SCALE IS NULL AND DATETIME_PREC IS
                    NULL AND INTERVAL_TYPE IS NULL AND INTERVAL_PREC IS
                    NULL AND IS_NULLABLE = 'YES';

PROCEDURE SUB36 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_TYPES'
                    AND COLUMN_NAME = 'COORD' AND ORDINAL_POSITION = 4
                    AND COLUMN_DEF IS NULL AND DATA_TYPE = 'DOUBLE PRECISION'
                    AND CHAR_MAX_LENGTH IS NULL AND CHAR_OCTET_LENGTH
                    IS NULL AND NUM_PREC > 8 AND NUM_PREC_RADIX
                    = 2 AND NUM_SCALE IS NULL AND DATETIME_PREC IS
                    NULL AND INTERVAL_TYPE IS NULL AND INTERVAL_PREC IS
                    NULL AND IS_NULLABLE = 'YES';

PROCEDURE SUB37 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_TYPES'
                    AND COLUMN_NAME = 'SWAY' AND ORDINAL_POSITION = 5
                    AND COLUMN_DEF IS NULL AND DATA_TYPE = 'FLOAT'
                    AND CHAR_MAX_LENGTH IS NULL AND CHAR_OCTET_LENGTH
                    IS NULL AND NUM_PREC >= 8 AND NUM_PREC_RADIX
                    = 2 AND NUM_SCALE IS NULL AND DATETIME_PREC IS
                    NULL AND INTERVAL_TYPE IS NULL AND INTERVAL_PREC IS
                    NULL AND IS_NULLABLE = 'YES';

PROCEDURE SUB38 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_TYPES'
                    AND COLUMN_NAME = 'REVS' AND ORDINAL_POSITION = 6
                    AND COLUMN_DEF IS NULL AND DATA_TYPE = 'INTEGER'
                    AND CHAR_MAX_LENGTH IS NULL AND CHAR_OCTET_LENGTH
                    IS NULL AND NUM_PREC > 0 AND NUM_SCALE = 0 AND
                    (NUM_PREC_RADIX = 2 OR NUM_PREC_RADIX = 10)
                    AND DATETIME_PREC IS NULL AND INTERVAL_TYPE IS NULL AND
                    INTERVAL_PREC IS NULL AND IS_NULLABLE = 'YES';

PROCEDURE SUB39 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_TYPES'
                    AND COLUMN_NAME = 'PITCH' AND ORDINAL_POSITION = 7
                    AND COLUMN_DEF IS NULL AND DATA_TYPE = 'SMALLINT'
                    AND CHAR_MAX_LENGTH IS NULL AND CHAR_OCTET_LENGTH
                    IS NULL AND NUM_PREC > 0 AND NUM_SCALE = 0 AND
                    (NUM_PREC_RADIX = 2 OR NUM_PREC_RADIX = 10)
                    AND DATETIME_PREC IS NULL AND INTERVAL_TYPE IS NULL AND
                    INTERVAL_PREC IS NULL AND IS_NULLABLE = 'YES';

PROCEDURE SUB40 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_TYPES'
                    AND COLUMN_NAME = 'DEGREE' AND ORDINAL_POSITION = 8
                    AND COLUMN_DEF IS NULL AND DATA_TYPE = 'NUMERIC'
                    AND CHAR_MAX_LENGTH IS NULL AND CHAR_OCTET_LENGTH
                    IS NULL AND NUM_PREC = 3 AND NUM_SCALE = 2
                    AND NUM_PREC_RADIX = 10
                    AND DATETIME_PREC IS NULL AND INTERVAL_TYPE IS NULL AND
                    INTERVAL_PREC IS NULL AND IS_NULLABLE = 'YES';

PROCEDURE SUB41 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_TYPES'
                    AND COLUMN_NAME = 'RUDDER' AND ORDINAL_POSITION = 9
                    AND COLUMN_DEF IS NULL AND DATA_TYPE = 'DECIMAL'
                    AND CHAR_MAX_LENGTH IS NULL AND CHAR_OCTET_LENGTH
                    IS NULL AND NUM_PREC >= 2 AND NUM_SCALE = 0
                    AND NUM_PREC_RADIX = 10
                    AND DATETIME_PREC IS NULL AND INTERVAL_TYPE IS NULL AND
                    INTERVAL_PREC IS NULL AND IS_NULLABLE = 'YES';

PROCEDURE SUB42 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB43 SQLCODE SQLSTATE;
      DROP TABLE LOTSA_TYPES CASCADE;

PROCEDURE SUB44 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB47 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB48 SQLCODE SQLSTATE;
      CREATE TABLE LT1 (
                    FLAAG CHAR DEFAULT 'Y', KODE CHAR (5) NOT NULL,
                    AMPL REAL DEFAULT 3,
                    COORD DOUBLE PRECISION, SWAY FLOAT, REVS INTEGER)
                 ;

PROCEDURE SUB49 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB50 SQLCODE SQLSTATE;
      CREATE TABLE LT2 (
                    PITCH SMALLINT, DEGREE NUMERIC (3, 2), RUDDER DECIMAL
                  (2));

PROCEDURE SUB51 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB52 SQLCODE SQLSTATE;
      CREATE VIEW LOTSA_TYPES AS
                    SELECT * FROM LT1, LT2;

PROCEDURE SUB53 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB54 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.TABLES
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_TYPES'
                    AND TABLE_TYPE = 'VIEW';

PROCEDURE SUB55 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.VIEWS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_TYPES';

PROCEDURE SUB56 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_TYPES'
                    AND COLUMN_NAME = 'FLAAG' AND ORDINAL_POSITION = 1
                    AND COLUMN_DEF = '''Y''' AND DATA_TYPE = 'CHARACTER'
                    AND CHAR_MAX_LENGTH = 1 AND CHAR_OCTET_LENGTH
                    > 0 AND NUM_PREC IS NULL AND NUM_PREC_RADIX
                    IS NULL AND NUM_SCALE IS NULL AND DATETIME_PREC IS
                    NULL AND INTERVAL_TYPE IS NULL AND INTERVAL_PREC IS
                    NULL AND IS_NULLABLE = 'YES';

PROCEDURE SUB57 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_TYPES'
                    AND COLUMN_NAME = 'KODE' AND ORDINAL_POSITION = 2
                    AND COLUMN_DEF IS NULL AND DATA_TYPE = 'CHARACTER'
                    AND CHAR_MAX_LENGTH = 5 AND CHAR_OCTET_LENGTH
                    > 0 AND NUM_PREC IS NULL AND NUM_PREC_RADIX
                    IS NULL AND NUM_SCALE IS NULL AND DATETIME_PREC IS
                    NULL AND INTERVAL_TYPE IS NULL AND INTERVAL_PREC IS
                    NULL AND IS_NULLABLE = 'NO';

PROCEDURE SUB58 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_TYPES'
                    AND COLUMN_NAME = 'AMPL' AND ORDINAL_POSITION = 3
                    AND COLUMN_DEF IS NOT NULL AND DATA_TYPE = 'REAL'
                    AND CHAR_MAX_LENGTH IS NULL AND CHAR_OCTET_LENGTH
                    IS NULL AND NUM_PREC >= 8 AND NUM_PREC_RADIX
                    = 2 AND NUM_SCALE IS NULL AND DATETIME_PREC IS
                    NULL AND INTERVAL_TYPE IS NULL AND INTERVAL_PREC IS
                    NULL AND IS_NULLABLE = 'YES';

PROCEDURE SUB59 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_TYPES'
                    AND COLUMN_NAME = 'COORD' AND ORDINAL_POSITION = 4
                    AND COLUMN_DEF IS NULL AND DATA_TYPE = 'DOUBLE PRECISION'
                    AND CHAR_MAX_LENGTH IS NULL AND CHAR_OCTET_LENGTH
                    IS NULL AND NUM_PREC > 8 AND NUM_PREC_RADIX
                    = 2 AND NUM_SCALE IS NULL AND DATETIME_PREC IS
                    NULL AND INTERVAL_TYPE IS NULL AND INTERVAL_PREC IS
                    NULL AND IS_NULLABLE = 'YES';

PROCEDURE SUB60 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_TYPES'
                    AND COLUMN_NAME = 'SWAY' AND ORDINAL_POSITION = 5
                    AND COLUMN_DEF IS NULL AND DATA_TYPE = 'FLOAT'
                    AND CHAR_MAX_LENGTH IS NULL AND CHAR_OCTET_LENGTH
                    IS NULL AND NUM_PREC >= 8 AND NUM_PREC_RADIX
                    = 2 AND NUM_SCALE IS NULL AND DATETIME_PREC IS
                    NULL AND INTERVAL_TYPE IS NULL AND INTERVAL_PREC IS
                    NULL AND IS_NULLABLE = 'YES';

PROCEDURE SUB61 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_TYPES'
                    AND COLUMN_NAME = 'REVS' AND ORDINAL_POSITION = 6
                    AND COLUMN_DEF IS NULL AND DATA_TYPE = 'INTEGER'
                    AND CHAR_MAX_LENGTH IS NULL AND CHAR_OCTET_LENGTH
                    IS NULL AND NUM_PREC > 0 AND NUM_SCALE = 0 AND
                    (NUM_PREC_RADIX = 2 OR NUM_PREC_RADIX = 10)
                    AND DATETIME_PREC IS NULL AND INTERVAL_TYPE IS NULL AND
                    INTERVAL_PREC IS NULL AND IS_NULLABLE = 'YES';

PROCEDURE SUB62 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_TYPES'
                    AND COLUMN_NAME = 'PITCH' AND ORDINAL_POSITION = 7
                    AND COLUMN_DEF IS NULL AND DATA_TYPE = 'SMALLINT'
                    AND CHAR_MAX_LENGTH IS NULL AND CHAR_OCTET_LENGTH
                    IS NULL AND NUM_PREC > 0 AND NUM_SCALE = 0 AND
                    (NUM_PREC_RADIX = 2 OR NUM_PREC_RADIX = 10)
                    AND DATETIME_PREC IS NULL AND INTERVAL_TYPE IS NULL AND
                    INTERVAL_PREC IS NULL AND IS_NULLABLE = 'YES';

PROCEDURE SUB63 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_TYPES'
                    AND COLUMN_NAME = 'DEGREE' AND ORDINAL_POSITION = 8
                    AND COLUMN_DEF IS NULL AND DATA_TYPE = 'NUMERIC'
                    AND CHAR_MAX_LENGTH IS NULL AND CHAR_OCTET_LENGTH
                    IS NULL AND NUM_PREC = 3 AND NUM_SCALE = 2
                    AND NUM_PREC_RADIX = 10
                    AND DATETIME_PREC IS NULL AND INTERVAL_TYPE IS NULL AND
                    INTERVAL_PREC IS NULL AND IS_NULLABLE = 'YES';

PROCEDURE SUB64 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_TYPES'
                    AND COLUMN_NAME = 'RUDDER' AND ORDINAL_POSITION = 9
                    AND COLUMN_DEF IS NULL AND DATA_TYPE = 'DECIMAL'
                    AND CHAR_MAX_LENGTH IS NULL AND CHAR_OCTET_LENGTH
                    IS NULL AND NUM_PREC >= 2 AND NUM_SCALE = 0
                    AND NUM_PREC_RADIX = 10
                    AND DATETIME_PREC IS NULL AND INTERVAL_TYPE IS NULL AND
                    INTERVAL_PREC IS NULL AND IS_NULLABLE = 'YES';

PROCEDURE SUB65 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB66 SQLCODE SQLSTATE;
      DROP TABLE LT1 CASCADE;

PROCEDURE SUB67 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB68 SQLCODE SQLSTATE;
      DROP TABLE LT2 CASCADE;

PROCEDURE SUB69 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB72 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB73 SQLCODE SQLSTATE;
      CREATE TABLE LOTSA_DATETIMES (
                    C1 DATE, C2 TIME, C3 TIMESTAMP,
                    C4 INTERVAL YEAR, C5 INTERVAL MONTH, C6 INTERVAL DAY,
                    C7 INTERVAL HOUR, C8 INTERVAL MINUTE, C9 INTERVAL SECOND,
                    C10 INTERVAL YEAR TO MONTH,
                    C11 INTERVAL DAY TO HOUR,
                    C12 INTERVAL DAY TO MINUTE,
                    C13 INTERVAL DAY TO SECOND,
                    C14 INTERVAL HOUR TO MINUTE,
                    C15 INTERVAL HOUR TO SECOND,
                    C16 INTERVAL MINUTE TO SECOND);

PROCEDURE SUB74 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB75 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.TABLES
                    WHERE TABLE_SCHEM = 'FLATER'
                    AND TABLE_NAME = 'LOTSA_DATETIMES'
                    AND TABLE_TYPE = 'BASE TABLE';

PROCEDURE SUB76 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_DATETIMES'
                    AND COLUMN_NAME = 'C1' AND ORDINAL_POSITION = 1
                    AND COLUMN_DEF IS NULL AND DATA_TYPE = 'DATE'
                    AND CHAR_MAX_LENGTH IS NULL AND CHAR_OCTET_LENGTH
                    IS NULL AND NUM_PREC IS NULL AND NUM_PREC_RADIX
                    IS NULL AND NUM_SCALE IS NULL AND DATETIME_PREC IS
                    NOT NULL AND INTERVAL_TYPE IS NULL AND INTERVAL_PREC IS
                    NULL AND IS_NULLABLE = 'YES';

PROCEDURE SUB77 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_DATETIMES'
                    AND COLUMN_NAME = 'C2' AND ORDINAL_POSITION = 2
                    AND COLUMN_DEF IS NULL AND DATA_TYPE = 'TIME'
                    AND CHAR_MAX_LENGTH IS NULL AND CHAR_OCTET_LENGTH
                    IS NULL AND NUM_PREC IS NULL AND NUM_PREC_RADIX
                    IS NULL AND NUM_SCALE IS NULL AND DATETIME_PREC = 0
                    AND INTERVAL_TYPE IS NULL AND INTERVAL_PREC IS
                    NULL AND IS_NULLABLE = 'YES';

PROCEDURE SUB78 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_DATETIMES'
                    AND COLUMN_NAME = 'C3' AND ORDINAL_POSITION = 3
                    AND COLUMN_DEF IS NULL AND DATA_TYPE = 'TIMESTAMP'
                    AND CHAR_MAX_LENGTH IS NULL AND CHAR_OCTET_LENGTH
                    IS NULL AND NUM_PREC IS NULL AND NUM_PREC_RADIX
                    IS NULL AND NUM_SCALE IS NULL AND DATETIME_PREC = 6
                    AND INTERVAL_TYPE IS NULL AND INTERVAL_PREC IS
                    NULL AND IS_NULLABLE = 'YES';

PROCEDURE SUB79 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_DATETIMES'
                    AND COLUMN_NAME = 'C4' AND ORDINAL_POSITION = 4
                    AND COLUMN_DEF IS NULL AND DATA_TYPE = 'INTERVAL'
                    AND CHAR_MAX_LENGTH IS NULL AND CHAR_OCTET_LENGTH
                    IS NULL AND NUM_PREC IS NULL AND NUM_PREC_RADIX
                    IS NULL AND NUM_SCALE IS NULL AND DATETIME_PREC IS NOT
                  NULL
                    AND INTERVAL_TYPE = 'YEAR' AND INTERVAL_PREC = 2
                    AND IS_NULLABLE = 'YES';

PROCEDURE SUB80 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_DATETIMES'
                    AND COLUMN_NAME = 'C5' AND ORDINAL_POSITION = 5
                    AND COLUMN_DEF IS NULL AND DATA_TYPE = 'INTERVAL'
                    AND CHAR_MAX_LENGTH IS NULL AND CHAR_OCTET_LENGTH
                    IS NULL AND NUM_PREC IS NULL AND NUM_PREC_RADIX
                    IS NULL AND NUM_SCALE IS NULL AND DATETIME_PREC IS NOT
                  NULL
                    AND INTERVAL_TYPE = 'MONTH' AND INTERVAL_PREC = 2
                    AND IS_NULLABLE = 'YES';

PROCEDURE SUB81 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_DATETIMES'
                    AND COLUMN_NAME = 'C6' AND ORDINAL_POSITION = 6
                    AND COLUMN_DEF IS NULL AND DATA_TYPE = 'INTERVAL'
                    AND CHAR_MAX_LENGTH IS NULL AND CHAR_OCTET_LENGTH
                    IS NULL AND NUM_PREC IS NULL AND NUM_PREC_RADIX
                    IS NULL AND NUM_SCALE IS NULL AND DATETIME_PREC IS NOT
                  NULL
                    AND INTERVAL_TYPE = 'DAY' AND INTERVAL_PREC = 2
                    AND IS_NULLABLE = 'YES';

PROCEDURE SUB82 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_DATETIMES'
                    AND COLUMN_NAME = 'C7' AND ORDINAL_POSITION = 7
                    AND COLUMN_DEF IS NULL AND DATA_TYPE = 'INTERVAL'
                    AND CHAR_MAX_LENGTH IS NULL AND CHAR_OCTET_LENGTH
                    IS NULL AND NUM_PREC IS NULL AND NUM_PREC_RADIX
                    IS NULL AND NUM_SCALE IS NULL AND DATETIME_PREC IS NOT
                  NULL
                    AND INTERVAL_TYPE = 'HOUR' AND INTERVAL_PREC = 2
                    AND IS_NULLABLE = 'YES';

PROCEDURE SUB83 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_DATETIMES'
                    AND COLUMN_NAME = 'C8' AND ORDINAL_POSITION = 8
                    AND COLUMN_DEF IS NULL AND DATA_TYPE = 'INTERVAL'
                    AND CHAR_MAX_LENGTH IS NULL AND CHAR_OCTET_LENGTH
                    IS NULL AND NUM_PREC IS NULL AND NUM_PREC_RADIX
                    IS NULL AND NUM_SCALE IS NULL AND DATETIME_PREC IS NOT
                  NULL
                    AND INTERVAL_TYPE = 'MINUTE' AND INTERVAL_PREC = 2
                    AND IS_NULLABLE = 'YES';

PROCEDURE SUB84 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_DATETIMES'
                    AND COLUMN_NAME = 'C9' AND ORDINAL_POSITION = 9
                    AND COLUMN_DEF IS NULL AND DATA_TYPE = 'INTERVAL'
                    AND CHAR_MAX_LENGTH IS NULL AND CHAR_OCTET_LENGTH
                    IS NULL AND NUM_PREC IS NULL AND NUM_PREC_RADIX
                    IS NULL AND NUM_SCALE IS NULL AND DATETIME_PREC = 6
                    AND INTERVAL_TYPE = 'SECOND' AND INTERVAL_PREC = 2
                    AND IS_NULLABLE = 'YES';

PROCEDURE SUB85 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_DATETIMES'
                    AND COLUMN_NAME = 'C10' AND ORDINAL_POSITION = 10
                    AND COLUMN_DEF IS NULL AND DATA_TYPE = 'INTERVAL'
                    AND CHAR_MAX_LENGTH IS NULL AND CHAR_OCTET_LENGTH
                    IS NULL AND NUM_PREC IS NULL AND NUM_PREC_RADIX
                    IS NULL AND NUM_SCALE IS NULL AND DATETIME_PREC IS NOT
                  NULL
                    AND INTERVAL_TYPE = 'YEAR TO MONTH' AND INTERVAL_PREC = 2
                    AND IS_NULLABLE = 'YES';

PROCEDURE SUB86 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_DATETIMES'
                    AND COLUMN_NAME = 'C11' AND ORDINAL_POSITION = 11
                    AND COLUMN_DEF IS NULL AND DATA_TYPE = 'INTERVAL'
                    AND CHAR_MAX_LENGTH IS NULL AND CHAR_OCTET_LENGTH
                    IS NULL AND NUM_PREC IS NULL AND NUM_PREC_RADIX
                    IS NULL AND NUM_SCALE IS NULL AND DATETIME_PREC IS NOT
                  NULL
                    AND INTERVAL_TYPE = 'DAY TO HOUR' AND INTERVAL_PREC = 2
                    AND IS_NULLABLE = 'YES';

PROCEDURE SUB87 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_DATETIMES'
                    AND COLUMN_NAME = 'C12' AND ORDINAL_POSITION = 12
                    AND COLUMN_DEF IS NULL AND DATA_TYPE = 'INTERVAL'
                    AND CHAR_MAX_LENGTH IS NULL AND CHAR_OCTET_LENGTH
                    IS NULL AND NUM_PREC IS NULL AND NUM_PREC_RADIX
                    IS NULL AND NUM_SCALE IS NULL AND DATETIME_PREC IS NOT
                  NULL
                    AND INTERVAL_TYPE = 'DAY TO MINUTE' AND INTERVAL_PREC = 2
                    AND IS_NULLABLE = 'YES';

PROCEDURE SUB88 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_DATETIMES'
                    AND COLUMN_NAME = 'C13' AND ORDINAL_POSITION = 13
                    AND COLUMN_DEF IS NULL AND DATA_TYPE = 'INTERVAL'
                    AND CHAR_MAX_LENGTH IS NULL AND CHAR_OCTET_LENGTH
                    IS NULL AND NUM_PREC IS NULL AND NUM_PREC_RADIX
                    IS NULL AND NUM_SCALE IS NULL AND DATETIME_PREC = 6
                    AND INTERVAL_TYPE = 'DAY TO SECOND' AND INTERVAL_PREC = 2
                    AND IS_NULLABLE = 'YES';

PROCEDURE SUB89 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_DATETIMES'
                    AND COLUMN_NAME = 'C14' AND ORDINAL_POSITION = 14
                    AND COLUMN_DEF IS NULL AND DATA_TYPE = 'INTERVAL'
                    AND CHAR_MAX_LENGTH IS NULL AND CHAR_OCTET_LENGTH
                    IS NULL AND NUM_PREC IS NULL AND NUM_PREC_RADIX
                    IS NULL AND NUM_SCALE IS NULL AND DATETIME_PREC IS NOT
                  NULL
                    AND INTERVAL_TYPE = 'HOUR TO MINUTE' AND INTERVAL_PREC =
                  2
                    AND IS_NULLABLE = 'YES';

PROCEDURE SUB90 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_DATETIMES'
                    AND COLUMN_NAME = 'C15' AND ORDINAL_POSITION = 15
                    AND COLUMN_DEF IS NULL AND DATA_TYPE = 'INTERVAL'
                    AND CHAR_MAX_LENGTH IS NULL AND CHAR_OCTET_LENGTH
                    IS NULL AND NUM_PREC IS NULL AND NUM_PREC_RADIX
                    IS NULL AND NUM_SCALE IS NULL AND DATETIME_PREC = 6
                    AND INTERVAL_TYPE = 'HOUR TO SECOND' AND INTERVAL_PREC =
                  2
                    AND IS_NULLABLE = 'YES';

PROCEDURE SUB91 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME =
                  'LOTSA_DATETIMES'
                    AND COLUMN_NAME = 'C16' AND ORDINAL_POSITION = 16
                    AND COLUMN_DEF IS NULL AND DATA_TYPE = 'INTERVAL'
                    AND CHAR_MAX_LENGTH IS NULL AND CHAR_OCTET_LENGTH
                    IS NULL AND NUM_PREC IS NULL AND NUM_PREC_RADIX
                    IS NULL AND NUM_SCALE IS NULL AND DATETIME_PREC = 6
                    AND INTERVAL_TYPE = 'MINUTE TO SECOND' AND INTERVAL_PREC
                  = 2
                    AND IS_NULLABLE = 'YES';

PROCEDURE SUB92 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB93 SQLCODE SQLSTATE;
      DROP TABLE LOTSA_DATETIMES CASCADE;

PROCEDURE SUB94 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB97 SQLCODE SQLSTATE;
      COMMIT WORK;