Quelle  dml186.mco

-- SQL Test Suite, V6.0, SQL Module dml186.mco
-- 59-byte ID
-- 
MODULE DML186
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 TIMEPREC (
                    C1 INTERVAL YEAR (7) TO MONTH,
                    C2 INTERVAL MONTH (7),
                    C3 INTERVAL DAY (7) TO HOUR,
                    C4 INTERVAL HOUR (7) TO MINUTE,
                    C5 INTERVAL MINUTE (7) TO SECOND,
                    C6 INTERVAL SECOND (7),
                    C7 INTERVAL SECOND (7, 0));

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      INSERT INTO TIMEPREC VALUES (
                    INTERVAL '9999999-03' YEAR TO MONTH,
                    INTERVAL '9999999' MONTH,
                    INTERVAL '9999999 3' DAY TO HOUR,
                    INTERVAL '9999999:03' HOUR TO MINUTE,
                    INTERVAL '9999999:03' MINUTE TO SECOND,
                    INTERVAL '9999999.444444' SECOND,
                    INTERVAL '9999999' SECOND);

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9),
    :INT4 NUMERIC (9),
    :INT5 NUMERIC (9),
    :INT6 NUMERIC (9),
    :INT7 NUMERIC (9));
      SELECT EXTRACT (YEAR FROM C1),
                    EXTRACT (MONTH FROM C2),
                    EXTRACT (DAY FROM C3),
                    EXTRACT (HOUR FROM C4),
                    EXTRACT (MINUTE FROM C5),
                    EXTRACT (SECOND FROM C6),
                    EXTRACT (SECOND FROM C7)
                    INTO :INT1, :INT2, :INT3, :INT4, :INT5, :INT6, :INT7
                    FROM TIMEPREC;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      DELETE FROM TIMEPREC;

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      INSERT INTO TIMEPREC VALUES (
                    INTERVAL -'9999999-03' YEAR TO MONTH,
                    INTERVAL -'9999999' MONTH,
                    INTERVAL -'9999999 3' DAY TO HOUR,
                    INTERVAL -'9999999:03' HOUR TO MINUTE,
                    INTERVAL -'9999999:03' MINUTE TO SECOND,
                    INTERVAL -'9999999.444444' SECOND,
                    INTERVAL -'9999999' SECOND);

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9),
    :INT4 NUMERIC (9),
    :INT5 NUMERIC (9),
    :INT6 NUMERIC (9),
    :INT7 NUMERIC (9));
      SELECT EXTRACT (YEAR FROM C1),
                    EXTRACT (MONTH FROM C2),
                    EXTRACT (DAY FROM C3),
                    EXTRACT (HOUR FROM C4),
                    EXTRACT (MINUTE FROM C5),
                    EXTRACT (SECOND FROM C6),
                    EXTRACT (SECOND FROM C7)
                    INTO :INT1, :INT2, :INT3, :INT4, :INT5, :INT6, :INT7
                    FROM TIMEPREC;

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      DROP TABLE TIMEPREC CASCADE;

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      COMMIT WORK;