Quelle  yts808.mco

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



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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      DELETE FROM TTIME_BASE;

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME VALUES
                    (1, TIME '00:00:00', TIMESTAMP '1995-06-07 00:00:00')
                 ;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME VALUES
                    (2, TIME '10:15:13', TIMESTAMP '1980-04-10 10:15:13')
                 ;

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME VALUES
                    (3, TIME '23:14:09', TIMESTAMP '1973-09-22 23:14:09')
                 ;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME VALUES
                    (4, TIME '05:39:42', TIMESTAMP '1999-12-31 05:39:42')
                 ;

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME VALUES
                    (5, TIME '17:56:26', TIMESTAMP '1961-10-28 17:56:26')
                 ;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME VALUES
                    (6, TIME '17:56:26', TIMESTAMP '1961-10-28 17:56:26')
                 ;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :CO1 NUMERIC (4));
      SELECT COUNT (*) INTO :CO1
                    FROM TTIME
                    WHERE TT AT LOCAL > TIME '10:30:05+01:45';

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :CO2 NUMERIC (4));
      SELECT COUNT (*) INTO :CO2
                    FROM TTIME
                    WHERE TIME '06:15:05-02:30' >= TT AT LOCAL;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :CO3 NUMERIC (4));
      SELECT COUNT (*) INTO :CO3
                    FROM TTIME
                    WHERE TS AT LOCAL > TIMESTAMP '1980-04-10 10:30:05+01:45'
                 ;

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :CO4 NUMERIC (4));
      SELECT COUNT (*) INTO :CO4
                    FROM TTIME
                    WHERE TIMESTAMP '1980-04-10 06:15:05-02:30' >= TS AT
                  LOCAL;

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      COMMIT WORK;