|
-- SQL Test Suite, V6.0, SQL Module dml068.mco
-- 59-byte ID
MODULE DML068
LANGUAGE COBOL
AUTHORIZATION HU
DECLARE ROCK CURSOR FOR SELECT * FROM AA
ORDER BY CHARTEST
PROCEDURE AUTHCK SQLCODE
:UIDX CHAR(18);
SELECT USER INTO :UIDX FROM HU.ECCO;
PROCEDURE SUB1 SQLCODE;
DELETE FROM AA;
PROCEDURE SUB2 SQLCODE;
OPEN ROCK;
PROCEDURE SUB3 SQLCODE;
CLOSE ROCK;
PROCEDURE SUB4 SQLCODE;
ROLLBACK WORK;
PROCEDURE SUB5 SQLCODE;
INSERT INTO TESTREPORT
VALUES('0389','pass','MCO');
PROCEDURE SUB6 SQLCODE;
INSERT INTO TESTREPORT
VALUES('0389','fail','MCO');
PROCEDURE SUB7 SQLCODE;
COMMIT WORK;
PROCEDURE SUB8 SQLCODE
:MID CHAR(4);
INSERT INTO AA
VALUES ( :MID);
PROCEDURE SUB9 SQLCODE
:MID CHAR(4);
FETCH ROCK INTO :MID;
[ Dauer der Verarbeitung: 0.21 Sekunden
(vorverarbeitet)
]
|
