|
-- SQL Test Suite, V6.0, SQL Module dml133.mco
-- 59-byte ID
--
MODULE DML133
LANGUAGE COBOL
AUTHORIZATION FLATER
PROCEDURE SUB1 SQLCODE SQLSTATE
:UIDX CHAR(18);
SELECT USER INTO :UIDX FROM HU.ECCO;
PROCEDURE SUB2 SQLCODE SQLSTATE;
ROLLBACK WORK;
PROCEDURE SUB3 SQLCODE SQLSTATE;
INSERT INTO SHIRLEY_HURWITZ.MEETINGS VALUES (
10, 'RDA');
PROCEDURE SUB4 SQLCODE SQLSTATE;
INSERT INTO LEN_GALLAGHER.TRAVEL VALUES (
'NXMONOTECU', 'RDA', '123456789');
PROCEDURE SUB5 SQLCODE SQLSTATE
:INT1 NUMERIC (9);
SELECT TIMESLOT INTO :INT1
FROM SHIRLEY_HURWITZ.MEETINGS, LEN_GALLAGHER.TRAVEL
WHERE AGENDA = DESTINATION;
PROCEDURE SUB6 SQLCODE SQLSTATE;
ROLLBACK WORK;
PROCEDURE SUB7 SQLCODE SQLSTATE;
INSERT INTO HU.TESTREPORT
VALUES('0643','pass','MCO');
PROCEDURE SUB8 SQLCODE SQLSTATE;
INSERT INTO HU.TESTREPORT
VALUES('0643','fail','MCO');
PROCEDURE SUB9 SQLCODE SQLSTATE;
COMMIT WORK;
[ Dauer der Verarbeitung: 0.20 Sekunden
(vorverarbeitet)
]
|
