|
-- SQL Test Suite, V6.0, SQL Module dml039.mco
-- 59-byte ID
MODULE DML039
LANGUAGE COBOL
AUTHORIZATION HU
PROCEDURE AUTHCK SQLCODE
:UIDX CHAR(18);
SELECT USER INTO :UIDX FROM HU.ECCO;
PROCEDURE SUB1 SQLCODE;
INSERT INTO STAFF
VALUES('E7', 'yanping',26,'China');
PROCEDURE SUB2 SQLCODE;
INSERT INTO STAFF
VALUES('E8','YANPING',30,'NIST');
PROCEDURE SUB3 SQLCODE
:CITY1 CHAR(15);
SELECT CITY
INTO :CITY1
FROM STAFF
WHERE EMPNAME LIKE 'yan____%';
PROCEDURE SUB4 SQLCODE
:CITY2 CHAR(15);
SELECT CITY
INTO :CITY2
FROM STAFF
WHERE EMPNAME LIKE 'YAN____%';
PROCEDURE SUB5 SQLCODE;
ROLLBACK WORK;
PROCEDURE SUB6 SQLCODE;
INSERT INTO TESTREPORT
VALUES('0208','pass','MCO');
PROCEDURE SUB7 SQLCODE;
INSERT INTO TESTREPORT
VALUES('0208','fail','MCO');
PROCEDURE SUB8 SQLCODE;
COMMIT WORK;
[ zur Elbe Produktseite wechseln0.13Quellennavigators
Analyse erneut starten
]
|
