Quelle  dml110.mco

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

DECLARE C11011  CURSOR FOR
               SELECT EXTRACT (MINUTE FROM LUNCH) FROM TEMPS
DECLARE C11012  CURSOR FOR
               SELECT EXTRACT (YEAR FROM ENTERED) FROM TEMPS WHERE
               LUNCH = INTERVAL '0:45' HOUR TO MINUTE


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 TEMPS (
                    ENTERED  TIMESTAMP,
                    START    DATE,
                    APPT     INTERVAL DAY,
                    HOUR_IN  TIME,
                    HOUR_OUT TIME,
                    LUNCH    INTERVAL HOUR TO MINUTE);

PROCEDURE SUB4 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB5 SQLCODE SQLSTATE;
      INSERT INTO TEMPS VALUES (
                    TIMESTAMP '1993-11-10 12:25:14',
                    DATE '1993-11-12',
                    INTERVAL '4' DAY,
                    TIME '08:30:00',
                    TIME '16:30:00',
                    INTERVAL '1:00' HOUR TO MINUTE);

PROCEDURE SUB6 SQLCODE SQLSTATE;
      INSERT INTO TEMPS VALUES (
                    TIMESTAMP '1993-11-10 13:15:14',
                    DATE '1993-11-15',
                    INTERVAL '5' DAY,
                    TIME '08:30:00',
                    TIME '17:30:00',
                    INTERVAL '0:30' HOUR TO MINUTE);

PROCEDURE SUB7 SQLCODE SQLSTATE;
      INSERT INTO TEMPS VALUES (
                    TIMESTAMP '1993-11-17 09:56:48',
                    DATE '1994-11-18',
                    INTERVAL '3' DAY,
                    TIME '09:00:00',
                    TIME '17:00:00',
                    INTERVAL '1:00' HOUR TO MINUTE);

PROCEDURE SUB8 SQLCODE SQLSTATE;
    OPEN C11011;

PROCEDURE SUB9 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11011 INTO :INT1;

PROCEDURE SUB10 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11011 INTO :INT1;

PROCEDURE SUB11 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11011 INTO :INT1;

PROCEDURE SUB12 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11011 INTO :INT1;

PROCEDURE SUB13 SQLCODE SQLSTATE;
      CLOSE C11011;

PROCEDURE SUB15 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11011 INTO :INT1;

PROCEDURE SUB16 SQLCODE SQLSTATE;
      UPDATE TEMPS
                    SET LUNCH = INTERVAL '0:45' HOUR TO MINUTE
                    WHERE CURRENT OF C11011;

PROCEDURE SUB17 SQLCODE SQLSTATE;
      CLOSE C11011;

PROCEDURE SUB18 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM TEMPS WHERE
                    EXTRACT (MINUTE FROM LUNCH) <> 0
                    AND EXTRACT (MINUTE FROM LUNCH)
                    <> 30;

PROCEDURE SUB19 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM TEMPS WHERE
                    EXTRACT (MINUTE FROM LUNCH) = 45;

PROCEDURE SUB20 SQLCODE SQLSTATE;
    OPEN C11012;

PROCEDURE SUB21 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11012 INTO :INT1;

PROCEDURE SUB22 SQLCODE SQLSTATE;
      DELETE FROM TEMPS
                    WHERE CURRENT OF C11012;

PROCEDURE SUB23 SQLCODE SQLSTATE;
      CLOSE C11012;

PROCEDURE SUB24 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM TEMPS WHERE
                    EXTRACT (MINUTE FROM LUNCH) = 45;

PROCEDURE SUB25 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM TEMPS;

PROCEDURE SUB26 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB27 SQLCODE SQLSTATE;
      DROP TABLE TEMPS CASCADE;

PROCEDURE SUB28 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB31 SQLCODE SQLSTATE;
      COMMIT WORK;