|
-- SQL Test Suite, V6.0, SQL Module sdl004.mco
-- 59-byte ID
MODULE SDL004
LANGUAGE COBOL
AUTHORIZATION SULLIVAN
PROCEDURE AUTHCK SQLCODE
:UIDX CHAR(18);
SELECT USER INTO :UIDX FROM HU.ECCO;
PROCEDURE SUB1 SQLCODE
:PNO1 CHAR(3)
:PNAME1 CHAR(20)
:USERID CHAR(19);
SELECT PNUM,PNAME,USER
INTO :PNO1, :PNAME1, :USERID
FROM HU.PROJ
WHERE PNUM = 'P3';
PROCEDURE SUB2 SQLCODE;
INSERT INTO HU.PROJ
VALUES('P7','PROGRAM','RISC',15000,'Gaithersburg');
PROCEDURE SUB3 SQLCODE;
ROLLBACK WORK;
PROCEDURE SUB4 SQLCODE;
INSERT INTO HU.TESTREPORT
VALUES('0140','pass','MCO');
PROCEDURE SUB5 SQLCODE;
INSERT INTO HU.TESTREPORT
VALUES('0140','fail','MCO');
PROCEDURE SUB6 SQLCODE;
COMMIT WORK;
[ Dauer der Verarbeitung: 0.20 Sekunden
(vorverarbeitet)
]
|
