|
-- SQL Test Suite, V6.0, SQL Module dml033.mco
-- 59-byte ID
MODULE DML033
LANGUAGE COBOL
AUTHORIZATION HU
PROCEDURE AUTHCK SQLCODE
:UIDX CHAR(18);
SELECT USER INTO :UIDX FROM HU.ECCO;
PROCEDURE SUB1 SQLCODE;
INSERT INTO WORKS
VALUES('UPP','low',100);
PROCEDURE SUB2 SQLCODE
:UPER CHAR(3)
:LOER CHAR(3);
SELECT EMPNUM,PNUM
INTO :UPER, :LOER
FROM WORKS
WHERE EMPNUM='UPP' AND PNUM='low';
PROCEDURE SUB3 SQLCODE
:UPER1 CHAR(3)
:LOER1 CHAR(3);
SELECT EMPNUM,PNUM
INTO :UPER1, :LOER1
FROM WORKS
WHERE EMPNUM='upp' OR PNUM='LOW';
PROCEDURE SUB4 SQLCODE;
ROLLBACK WORK;
PROCEDURE SUB5 SQLCODE;
INSERT INTO TESTREPORT
VALUES('0135','pass','MCO');
PROCEDURE SUB6 SQLCODE;
INSERT INTO TESTREPORT
VALUES('0135','fail','MCO');
PROCEDURE SUB7 SQLCODE;
COMMIT WORK;
[ Dauer der Verarbeitung: 0.13 Sekunden
(vorverarbeitet)
]
|
