SSL yts809.mco

-- SQL Test Suite, V6.0, SQL Module yts809.mco
-- 59-byte ID
-- 
MODULE YTS809
LANGUAGE COBOL
AUTHORIZATION CTS1

DECLARE DATA809  CURSOR FOR
               SELECT COUNT(*) FROM TTIME3
               WHERE TT2 AT TIME ZONE
               ((SELECT TS2 FROM TTIME3
               WHERE PK = 1)
               -
               (SELECT TS2 FROM TTIME3
               WHERE PK = 6))
               HOUR TO MINUTE
               < TIME '02:00:00+10:00'


PROCEDURE SUB1 (SQLCODE, SQLSTATE,
    :UIDX CHAR(18));
      SELECT USER INTO :UIDX FROM CTS1.ECCO;

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE,
    :CO NUMERIC (4));
      SELECT COUNT (*) INTO :CO
                    FROM CTS1.TTIME3
                    WHERE TT2 AT TIME ZONE
                    ((SELECT TT2 FROM TTIME3
                    WHERE PK = 1)
                    -
                    (SELECT TT2 FROM TTIME3
                    WHERE PK = 3))
                    HOUR TO MINUTE
                    < TIME '02:00:00+10:00';

PROCEDURE SUB4 (SQLCODE, SQLSTATE,
    :CO2 NUMERIC (4));
      SELECT COUNT (*) INTO :CO2
                    FROM CTS1.TTIME3
                    WHERE TIME '16:00:00+00:00'
                    <= TT2 AT TIME ZONE (
                    ((SELECT TT2 FROM TTIME3
                    WHERE PK = 2)
                    -
                    (SELECT TT2 FROM TTIME3
                    WHERE PK = 5))
                    HOUR TO MINUTE
                    - INTERVAL '08:02' HOUR TO MINUTE);

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :CO NUMERIC (4));
      SELECT COUNT (*) INTO :CO
                    FROM CTS1.TTIME3
                    WHERE TS2 AT TIME ZONE
                    ((SELECT TS2 FROM TTIME3
                    WHERE PK = 5)
                    -
                    (SELECT TS2 FROM TTIME3
                    WHERE PK = 6))
                    HOUR TO MINUTE
                    < TIMESTAMP '1995-02-10 23:48:00+10:06';

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :CO2 NUMERIC (4));
      SELECT COUNT (*) INTO :CO2
                    FROM CTS1.TTIME3
                    WHERE TS2 AT TIME ZONE (
                    ((SELECT TS2 FROM TTIME3
                    WHERE PK = 1)
                    -
                    (SELECT TS2 FROM TTIME3
                    WHERE PK = 6))
                    HOUR TO MINUTE
                    + INTERVAL -'4500:15' HOUR TO MINUTE)
                    >= TIMESTAMP '1995-02-10 03:12:00-10:30';

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
    OPEN data809;

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :CO NUMERIC (4));
      FETCH data809 into :CO;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7566','pass','MCO');

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7566','fail','MCO');

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      COMMIT WORK;