| products/Sources/formale Sprachen/Cobol/Test-Suite/SQL M/ |
|
Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei: mpa013.mco Sprache: Unknown
|
Untersuchungsergebnis.mco Download desBAT {BAT[119] Ada[240] Abap[295]}zum Wurzelverzeichnis wechseln -- 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; [ Dauer der Verarbeitung: 0.156 Sekunden ] |