| 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: sdl012.mco Sprache: Unknown
|
Untersuchungsergebnis.mco Download desPython {Python[77] Fortran[161] Ada[167]}zum Wurzelverzeichnis wechseln -- SQL Test Suite, V6.0, SQL Module xts739.mco -- 59-byte ID -- MODULE XTS739 LANGUAGE COBOL AUTHORIZATION CTS1 DECLARE A SCROLL CURSOR FOR SELECT COL_NUM1,COL_CH1,COL_NUM2,COL_CH2 FROM CL_STANDARD ORDER BY 4, COL_CH1 ASC DECLARE B SCROLL CURSOR FOR SELECT COL_NUM1,COL_CH1,COL_NUM2,COL_CH2 FROM CL_STANDARD ORDER BY 3, COL_NUM1 ASC DECLARE Z CURSOR FOR SELECT COL_NUM1,COL_CH1,COL_NUM2,COL_CH2 FROM CL_STANDARD ORDER BY COL_NUM1 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 a; PROCEDURE SUB4 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH LAST FROM a INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2; PROCEDURE SUB5 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH PRIOR FROM a INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2; PROCEDURE SUB6 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH PRIOR FROM a INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2; PROCEDURE SUB7 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH PRIOR FROM a INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2; PROCEDURE SUB8 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH PRIOR FROM a INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2; PROCEDURE SUB9 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH PRIOR FROM a INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2; PROCEDURE SUB10 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH LAST FROM a INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2; PROCEDURE SUB11 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH FIRST FROM a INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2; PROCEDURE SUB12 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH NEXT FROM a INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2; PROCEDURE SUB13 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH NEXT FROM a INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2; PROCEDURE SUB14 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH NEXT FROM a INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2; PROCEDURE SUB15 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH NEXT FROM a INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2; PROCEDURE SUB16 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH NEXT FROM a INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2; PROCEDURE SUB17 (SQLCODE, SQLSTATE); CLOSE a; PROCEDURE SUB18 (SQLCODE, SQLSTATE); OPEN b; PROCEDURE SUB19 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH LAST FROM b INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2; PROCEDURE SUB20 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH PRIOR FROM b INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2; PROCEDURE SUB21 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH PRIOR FROM b INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2; PROCEDURE SUB22 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH PRIOR FROM b INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2; PROCEDURE SUB23 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH PRIOR FROM b INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2; PROCEDURE SUB24 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH PRIOR FROM b INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2; PROCEDURE SUB25 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH LAST FROM b INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2; PROCEDURE SUB26 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH FIRST FROM b INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2; PROCEDURE SUB27 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH NEXT FROM b INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2; PROCEDURE SUB28 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH NEXT FROM b INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2; PROCEDURE SUB29 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH NEXT FROM b INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2; PROCEDURE SUB30 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH NEXT FROM b INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2; PROCEDURE SUB31 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH NEXT FROM b INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2; PROCEDURE SUB32 (SQLCODE, SQLSTATE); CLOSE b; PROCEDURE SUB33 (SQLCODE, SQLSTATE); OPEN Z; PROCEDURE SUB34 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH Z INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2 ; PROCEDURE SUB35 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH Z INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2 ; PROCEDURE SUB36 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH Z INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2 ; PROCEDURE SUB37 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH Z INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2 ; PROCEDURE SUB38 (SQLCODE, SQLSTATE, :VARNM1 NUMERIC (9), :VARCH1 CHAR(10), :VARNM2 NUMERIC (9), :VARCH2 CHAR(10)); FETCH Z INTO :VARNM1,:VARCH1,:VARNM2,:VARCH2 ; PROCEDURE SUB39 (SQLCODE, SQLSTATE); CLOSE Z; PROCEDURE SUB40 (SQLCODE, SQLSTATE); ROLLBACK WORK; PROCEDURE SUB41 (SQLCODE, SQLSTATE); INSERT INTO CTS1.TESTREPORT VALUES('7039','pass','MCO'); PROCEDURE SUB42 (SQLCODE, SQLSTATE); INSERT INTO CTS1.TESTREPORT VALUES('7039','fail','MCO'); PROCEDURE SUB43 (SQLCODE, SQLSTATE); COMMIT WORK; [ zur Elbe Produktseite wechseln0.105Quellennavigators ] |