Columbo aufrufen.mco zum Wurzelverzeichnis wechselnLex {Lex[83] Fortran[90] CS[117]}Datei anzeigen
-- SQL Test Suite, V6.0, SQL Module dml040.mco
-- 59-byte ID
MODULE DML040
LANGUAGE COBOL
AUTHORIZATION HU
DECLARE X CURSOR FOR
SELECT COL1, EMPNUM, GRADE
FROM CUGINI.VTABLE, STAFF
WHERE COL1 < 200 AND GRADE > 12
PROCEDURE AUTHCK SQLCODE
:UIDX CHAR(18);
SELECT USER INTO :UIDX FROM HU.ECCO;
PROCEDURE SUB1 SQLCODE;
INSERT INTO CUGINI.VTABLE
SELECT *
FROM VTABLE;
PROCEDURE SUB2 SQLCODE;
OPEN X;
PROCEDURE SUB3 SQLCODE;
ROLLBACK WORK;
PROCEDURE SUB4 SQLCODE;
INSERT INTO TESTREPORT
VALUES('0209','pass','MCO');
PROCEDURE SUB5 SQLCODE;
INSERT INTO TESTREPORT
VALUES('0209','fail','MCO');
PROCEDURE SUB6 SQLCODE;
COMMIT WORK;
PROCEDURE SUB7 SQLCODE
:COL2 NUMERIC (9)
:EMPNO1 CHAR(3)
:GRADE1 NUMERIC (9);
FETCH X INTO :COL2, :EMPNO1, :GRADE1;
[ Original von:0.140Diese Quellcodebibliothek enthält Beispiele in vielen Programmiersprachen.
Man kann per Verzeichnistruktur darin navigieren.
Der Code wird farblich markiert angezeigt.
]
