Quelle yts781.mco Sprache: unbekannt

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

DECLARE DATA781  CURSOR FOR
               SELECT PK,
               EXTRACT (YEAR FROM TS),
               EXTRACT (MONTH FROM TS),
               EXTRACT (DAY FROM TS),
               EXTRACT (MINUTE FROM TS),
               EXTRACT (HOUR FROM TS),
               EXTRACT (MINUTE FROM TT),
               EXTRACT (HOUR FROM TT)
               FROM TTIME
               ORDER BY PK

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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      SET TIME ZONE INTERVAL '00:00' HOUR TO MINUTE
                 ;

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

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME VALUES
                    (1, TIME '12:00:00', TIMESTAMP '1995-04-10 12:00:00')
                 ;

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME VALUES
                    (2, TIME '00:15:22', TIMESTAMP '1995-04-10 01:45:33')
                 ;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME VALUES
                    (3, TIME '23:28:54', TIMESTAMP '1995-04-10 22:54:12')
                 ;

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME VALUES
                    (4, TIME '06:31:01', TIMESTAMP '1995-04-10 11:59:59')
                 ;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME VALUES
                    (5, TIME '18:49:34', TIMESTAMP '1995-04-10 19:30:02')
                 ;

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      SET TIME ZONE LOCAL;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :H NUMERIC (4));
      SELECT EXTRACT (TIMEZONE_HOUR FROM CURRENT_TIME)
                    INTO :H FROM CTS1.ECCO;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :M NUMERIC (4));
      SELECT EXTRACT (TIMEZONE_MINUTE FROM CURRENT_TIME)
                    INTO :M FROM CTS1.ECCO;

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
    OPEN data781;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :PK1 NUMERIC (4),
    :YR NUMERIC (4),
    :MON NUMERIC (4),
    :DYA NUMERIC (4),
    :MNI NUMERIC (4),
    :HR NUMERIC (4),
    :MIN2 NUMERIC (4),
    :HR2 NUMERIC (4));
      FETCH data781 INTO
                    :PK1, :YR, :MON, :DYA, :MNI, :HR, :MIN2, :HR2;

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :PK1 NUMERIC (4),
    :YR NUMERIC (4),
    :MON NUMERIC (4),
    :DYA NUMERIC (4),
    :MNI NUMERIC (4),
    :HR NUMERIC (4),
    :MIN2 NUMERIC (4),
    :HR2 NUMERIC (4));
      FETCH data781 INTO
                    :PK1, :YR, :MON, :DYA, :MNI, :HR, :MIN2, :HR2;

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :PK1 NUMERIC (4),
    :YR NUMERIC (4),
    :MON NUMERIC (4),
    :DYA NUMERIC (4),
    :MNI NUMERIC (4),
    :HR NUMERIC (4),
    :MIN2 NUMERIC (4),
    :HR2 NUMERIC (4));
      FETCH data781 INTO
                    :PK1, :YR, :MON, :DYA, :MNI, :HR, :MIN2, :HR2;

PROCEDURE SUB17 (SQLCODE, SQLSTATE,
    :PK1 NUMERIC (4),
    :YR NUMERIC (4),
    :MON NUMERIC (4),
    :DYA NUMERIC (4),
    :MNI NUMERIC (4),
    :HR NUMERIC (4),
    :MIN2 NUMERIC (4),
    :HR2 NUMERIC (4));
      FETCH data781 INTO
                    :PK1, :YR, :MON, :DYA, :MNI, :HR, :MIN2, :HR2;

PROCEDURE SUB18 (SQLCODE, SQLSTATE,
    :PK1 NUMERIC (4),
    :YR NUMERIC (4),
    :MON NUMERIC (4),
    :DYA NUMERIC (4),
    :MNI NUMERIC (4),
    :HR NUMERIC (4),
    :MIN2 NUMERIC (4),
    :HR2 NUMERIC (4));
      FETCH data781 INTO
                    :PK1, :YR, :MON, :DYA, :MNI, :HR, :MIN2, :HR2;

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      CLOSE data781;

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      SET TIME ZONE INTERVAL '05:41' HOUR TO MINUTE
                 ;

PROCEDURE SUB22 (SQLCODE, SQLSTATE,
    :PK1 NUMERIC (4),
    :YR NUMERIC (4),
    :MON NUMERIC (4),
    :DYA NUMERIC (4),
    :MNI NUMERIC (4),
    :HR NUMERIC (4),
    :MIN2 NUMERIC (4),
    :HR2 NUMERIC (4));
      FETCH data781 INTO
                    :PK1, :YR, :MON, :DYA, :MNI, :HR, :MIN2, :HR2;

PROCEDURE SUB23 (SQLCODE, SQLSTATE,
    :PK1 NUMERIC (4),
    :YR NUMERIC (4),
    :MON NUMERIC (4),
    :DYA NUMERIC (4),
    :MNI NUMERIC (4),
    :HR NUMERIC (4),
    :MIN2 NUMERIC (4),
    :HR2 NUMERIC (4));
      FETCH data781 INTO
                    :PK1, :YR, :MON, :DYA, :MNI, :HR, :MIN2, :HR2;

PROCEDURE SUB24 (SQLCODE, SQLSTATE,
    :PK1 NUMERIC (4),
    :YR NUMERIC (4),
    :MON NUMERIC (4),
    :DYA NUMERIC (4),
    :MNI NUMERIC (4),
    :HR NUMERIC (4),
    :MIN2 NUMERIC (4),
    :HR2 NUMERIC (4));
      FETCH data781 INTO
                    :PK1, :YR, :MON, :DYA, :MNI, :HR, :MIN2, :HR2;

PROCEDURE SUB25 (SQLCODE, SQLSTATE,
    :PK1 NUMERIC (4),
    :YR NUMERIC (4),
    :MON NUMERIC (4),
    :DYA NUMERIC (4),
    :MNI NUMERIC (4),
    :HR NUMERIC (4),
    :MIN2 NUMERIC (4),
    :HR2 NUMERIC (4));
      FETCH data781 INTO
                    :PK1, :YR, :MON, :DYA, :MNI, :HR, :MIN2, :HR2;

PROCEDURE SUB26 (SQLCODE, SQLSTATE,
    :PK1 NUMERIC (4),
    :YR NUMERIC (4),
    :MON NUMERIC (4),
    :DYA NUMERIC (4),
    :MNI NUMERIC (4),
    :HR NUMERIC (4),
    :MIN2 NUMERIC (4),
    :HR2 NUMERIC (4));
      FETCH data781 INTO
                    :PK1, :YR, :MON, :DYA, :MNI, :HR, :MIN2, :HR2;

PROCEDURE SUB27 (SQLCODE, SQLSTATE);
      CLOSE data781;

PROCEDURE SUB28 (SQLCODE, SQLSTATE);
      SET TIME ZONE INTERVAL '-12:58' HOUR TO MINUTE
                 ;

PROCEDURE SUB29 (SQLCODE, SQLSTATE,
    :CO NUMERIC (4));
      SELECT COUNT (*) INTO :CO FROM TTIME
                    WHERE TT BETWEEN
                    CAST (TIME '05:00:00' AS TIME WITH TIME ZONE) AND
                    CAST (TIME '11:00:00' AS TIME WITH TIME ZONE);

PROCEDURE SUB30 (SQLCODE, SQLSTATE);
      SET TIME ZONE INTERVAL '12:27' HOUR TO MINUTE
                 ;

PROCEDURE SUB31 (SQLCODE, SQLSTATE,
    :CO NUMERIC (4));
      SELECT COUNT (*) INTO :CO FROM TTIME
                    WHERE TT BETWEEN
                    CAST (TIME '05:00:00' AS TIME WITH TIME ZONE) AND
                    CAST (TIME '11:00:00' AS TIME WITH TIME ZONE);

PROCEDURE SUB32 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB35 (SQLCODE, SQLSTATE);
      COMMIT WORK;

Quelle yts781.mco Sprache: unbekannt

[ Dauer der Verarbeitung: 0.21 Sekunden (vorverarbeitet) ]