| products/Sources/formale Sprachen/Cobol/Test-Suite/SQL M/ |
|
Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei: cdr009.mco Sprache: Unknown
|
Spracherkennung für: .mco vermutete Sprache: Python {Python[105] Lex[143] BAT[160]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen] -- SQL Test Suite, V6.0, SQL Module xts725.mco -- 59-byte ID -- MODULE XTS725 LANGUAGE COBOL AUTHORIZATION CTS1 DECLARE CLCURS INSENSITIVE CURSOR FOR SELECT COL_NUM1, COL_CH1, COL_NUM2,COL_CH2 FROM CL_STANDARD ORDER BY COL_NUM1 DESC PROCEDURE SUB1 (SQLCODE, SQLSTATE, :UIDX CHAR(18)); SELECT USER INTO :UIDX FROM CTS1.ECCO; PROCEDURE SUB2 (SQLCODE, SQLSTATE); ROLLBACK WORK; PROCEDURE SUB3 (SQLCODE, SQLSTATE); OPEN CLCURS; PROCEDURE SUB4 (SQLCODE, SQLSTATE); INSERT INTO CL_STANDARD VALUES(1005,'KEVIN',4005,'XIOS'); PROCEDURE SUB5 (SQLCODE, SQLSTATE, :C_NUM1 NUMERIC (9), :C_CH1 CHAR(10), :C_NUM2 NUMERIC (9), :C_CH2 CHAR(10)); SELECT COL_NUM1,COL_CH1,COL_NUM2,COL_CH2 INTO :C_NUM1, :C_CH1, :C_NUM2, :C_CH2 FROM CL_STANDARD WHERE COL_NUM1 = 1005; PROCEDURE SUB6 (SQLCODE, SQLSTATE, :C_NUM1 NUMERIC (9), :C_CH1 CHAR(10), :C_NUM2 NUMERIC (9), :C_CH2 CHAR(10)); FETCH CLCURS INTO :C_NUM1, :C_CH1, :C_NUM2, :C_CH2 ; PROCEDURE SUB7 (SQLCODE, SQLSTATE, :C_NUM1 NUMERIC (9), :C_CH1 CHAR(10), :C_NUM2 NUMERIC (9), :C_CH2 CHAR(10)); FETCH CLCURS INTO :C_NUM1, :C_CH1, :C_NUM2, :C_CH2 ; PROCEDURE SUB8 (SQLCODE, SQLSTATE, :C_NUM1 NUMERIC (9), :C_CH1 CHAR(10), :C_NUM2 NUMERIC (9), :C_CH2 CHAR(10)); FETCH CLCURS INTO :C_NUM1, :C_CH1, :C_NUM2, :C_CH2 ; PROCEDURE SUB9 (SQLCODE, SQLSTATE, :C_NUM1 NUMERIC (9), :C_CH1 CHAR(10), :C_NUM2 NUMERIC (9), :C_CH2 CHAR(10)); FETCH CLCURS INTO :C_NUM1, :C_CH1, :C_NUM2, :C_CH2 ; PROCEDURE SUB10 (SQLCODE, SQLSTATE, :C_NUM1 NUMERIC (9), :C_CH1 CHAR(10), :C_NUM2 NUMERIC (9), :C_CH2 CHAR(10)); FETCH CLCURS INTO :C_NUM1, :C_CH1, :C_NUM2, :C_CH2 ; PROCEDURE SUB11 (SQLCODE, SQLSTATE); CLOSE CLCURS; PROCEDURE SUB13 (SQLCODE, SQLSTATE, :C_NUM1 NUMERIC (9), :C_CH1 CHAR(10), :C_NUM2 NUMERIC (9), :C_CH2 CHAR(10)); FETCH CLCURS INTO :C_NUM1, :C_CH1, :C_NUM2, :C_CH2 ; PROCEDURE SUB14 (SQLCODE, SQLSTATE, :C_NUM1 NUMERIC (9), :C_CH1 CHAR(10), :C_NUM2 NUMERIC (9), :C_CH2 CHAR(10)); FETCH CLCURS INTO :C_NUM1, :C_CH1, :C_NUM2, :C_CH2 ; PROCEDURE SUB15 (SQLCODE, SQLSTATE, :C_NUM1 NUMERIC (9), :C_CH1 CHAR(10), :C_NUM2 NUMERIC (9), :C_CH2 CHAR(10)); FETCH CLCURS INTO :C_NUM1, :C_CH1, :C_NUM2, :C_CH2 ; PROCEDURE SUB16 (SQLCODE, SQLSTATE, :C_NUM1 NUMERIC (9), :C_CH1 CHAR(10), :C_NUM2 NUMERIC (9), :C_CH2 CHAR(10)); FETCH CLCURS INTO :C_NUM1, :C_CH1, :C_NUM2, :C_CH2 ; PROCEDURE SUB17 (SQLCODE, SQLSTATE, :C_NUM1 NUMERIC (9), :C_CH1 CHAR(10), :C_NUM2 NUMERIC (9), :C_CH2 CHAR(10)); FETCH CLCURS INTO :C_NUM1, :C_CH1, :C_NUM2, :C_CH2 ; PROCEDURE SUB18 (SQLCODE, SQLSTATE, :C_NUM1 NUMERIC (9), :C_CH1 CHAR(10), :C_NUM2 NUMERIC (9), :C_CH2 CHAR(10)); FETCH CLCURS INTO :C_NUM1, :C_CH1, :C_NUM2, :C_CH2 ; PROCEDURE SUB19 (SQLCODE, SQLSTATE); CLOSE CLCURS; PROCEDURE SUB20 (SQLCODE, SQLSTATE); ROLLBACK WORK; PROCEDURE SUB21 (SQLCODE, SQLSTATE); INSERT INTO CTS1.TESTREPORT VALUES('7025','pass','MCO'); PROCEDURE SUB22 (SQLCODE, SQLSTATE); INSERT INTO CTS1.TESTREPORT VALUES('7025','NOGO','MCO'); PROCEDURE SUB23 (SQLCODE, SQLSTATE); COMMIT WORK; [ Dauer der Verarbeitung: 0.95 Sekunden ] |