Quelle  yts807.mco

-- SQL Test Suite, V6.0, SQL Module yts807.mco
-- 59-byte ID
-- 
MODULE YTS807
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 (PK, TT)
                    VALUES (1, TIME '00:00:00');

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :ID NUMERIC (4),
    :HRS NUMERIC (4),
    :MIN NUMERIC (4));
      SELECT PK,
                    EXTRACT (TIMEZONE_HOUR FROM CAST (TT AS TIME WITH TIME
                  ZONE)),
                    EXTRACT (TIMEZONE_MINUTE FROM CAST (TT AS TIME WITH TIME
                  ZONE))
                    INTO :ID, :HRS, :MIN
                    FROM TTIME
                    WHERE PK = 1;

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

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME2 
                    VALUES (1, TIME '00:00:00+07:35',
                    TIMESTAMP '1995-12-25 00:00:00+07:35');

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME2 
                    VALUES (2, TIME '01:00:15+09:15',
                    TIMESTAMP '1990-07-13 10:30:16+12:35');

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME2 
                    VALUES (3, TIME '23:30:10-16:12',
                    TIMESTAMP '1989-03-30 07:58:10-02:20');

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME2 
                    VALUES (4, TIME '12:55:05-07:35',
                    TIMESTAMP '1970-06-28 20:10:15-10:07');

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME2 
                    VALUES (5, TIME '09:45:45+09:15',
                    TIMESTAMP '1961-04-21 01:02:03+05:29');

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :ID2 NUMERIC (4),
    :HR1 NUMERIC (4),
    :MN1 NUMERIC (4),
    :HR2 NUMERIC (4),
    :MN2 NUMERIC (4));
      SELECT PK,
                    EXTRACT (TIMEZONE_HOUR FROM TT2),
                    EXTRACT (TIMEZONE_MINUTE FROM TT2),
                    EXTRACT (TIMEZONE_HOUR FROM TS2),
                    EXTRACT (TIMEZONE_MINUTE FROM TS2)
                    INTO :ID2, :HR1, :MN1, :HR2, :MN2
                    FROM TTIME2
                    WHERE PK = 1;

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      INSERT INTO ET (col5)  
                    SELECT EXTRACT (TIMEZONE_MINUTE FROM TS2) AS AA
                    FROM TTIME2;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :CO NUMERIC (4));
      SELECT COUNT (DISTINCT COL5) INTO :CO
                    FROM CTS1.ET;

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      COMMIT WORK;