| 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: dml126.cob Sprache: Unknown
|
Untersuchungsergebnis.mco Download desPython {Python[82] Fortran[152] CS[195]}zum Wurzelverzeichnis wechseln -- SQL Test Suite, V6.0, SQL Module yts806.mco -- 59-byte ID -- MODULE YTS806 LANGUAGE COBOL AUTHORIZATION CTS1 DECLARE CN CURSOR FOR sn PROCEDURE SUB1 (SQLCODE, SQLSTATE, :UIDX CHAR(18)); SELECT USER INTO :UIDX FROM CTS1.ECCO; PROCEDURE SUB2 (SQLCODE, SQLSTATE); ROLLBACK WORK; PROCEDURE SUB3 (SQLCODE, SQLSTATE); DELETE FROM CTS1.STAFF1; PROCEDURE SUB4 (SQLCODE, SQLSTATE); DELETE FROM CTS1.STAFFa; PROCEDURE SUB5 (SQLCODE, SQLSTATE); INSERT INTO CTS1.STAFF1 VALUES ('E1','Alice',4,'Lyon'); PROCEDURE SUB6 (SQLCODE, SQLSTATE); INSERT INTO CTS1.STAFF1 VALUES ('E1','Alice',8,'Lyon'); PROCEDURE SUB7 (SQLCODE, SQLSTATE); INSERT INTO CTS1.STAFF1 VALUES ('E1','Alice',12,'Geneva'); PROCEDURE SUB8 (SQLCODE, SQLSTATE); INSERT INTO CTS1.STAFF1 VALUES ('E2','Betty',16,'Strasbourg'); PROCEDURE SUB9 (SQLCODE, SQLSTATE); INSERT INTO CTS1.STAFF1 VALUES ('E2','Betty',20,'Munich'); PROCEDURE SUB10 (SQLCODE, SQLSTATE); INSERT INTO CTS1.STAFF1 VALUES ('E3','Colin',24,'Leuven'); PROCEDURE SUB11 (SQLCODE, SQLSTATE); INSERT INTO CTS1.STAFF1 VALUES ('E4','Daniel',28,'Cologne'); PROCEDURE SUB12 (SQLCODE, SQLSTATE); INSERT INTO CTS1.STAFFa VALUES (20,40000,'E1',11,'Alice'); PROCEDURE SUB13 (SQLCODE, SQLSTATE); INSERT INTO CTS1.STAFFa VALUES (15,20000,'E2',12,'Betty'); PROCEDURE SUB14 (SQLCODE, SQLSTATE); INSERT INTO CTS1.STAFFa VALUES (15,20000,'E2',13,'Betty'); PROCEDURE SUB15 (SQLCODE, SQLSTATE); INSERT INTO CTS1.STAFFa VALUES (10,15000,'E3',14,'Colin'); PROCEDURE SUB16 (SQLCODE, SQLSTATE); INSERT INTO CTS1.STAFFa VALUES (10,8000,'E3',15,'Colin'); PROCEDURE SUB17 (SQLCODE, SQLSTATE); INSERT INTO CTS1.STAFFa VALUES (10,8000,'E3',16,'Colin'); PROCEDURE SUB18 (SQLCODE, SQLSTATE); INSERT INTO CTS1.STAFFa VALUES (30,50000,'E5',17,'Edward'); PROCEDURE SUB19 (SQLCODE, SQLSTATE); DELETE FROM CTS1.CONCATBUF; PROCEDURE SUB20 (SQLCODE, SQLSTATE); INSERT INTO CTS1.CONCATBUF VALUES ( 'SELECT * FROM STAFF1 NATURAL FULL OUTER JOIN' || ' STAFFA ORDER BY EMPNUM, EMPNAME, GRADE, PNUM' ); PROCEDURE SUB21 (SQLCODE, SQLSTATE, :LONGST CHAR(240)); SELECT ZZ INTO :LONGST FROM CTS1.CONCATBUF ; PROCEDURE SUB22 (SQLCODE, SQLSTATE, :LONGST CHAR(240)); PREPARE sn FROM :LONGST; PROCEDURE SUB23 (SQLCODE, SQLSTATE); ALLOCATE DESCRIPTOR 'dn' WITH MAX 7; PROCEDURE SUB24 (SQLCODE, SQLSTATE); DESCRIBE sn USING SQL DESCRIPTOR 'dn'; PROCEDURE SUB25 (SQLCODE, SQLSTATE, :COLNAM CHAR(20), :COLTYP NUMERIC (9)); GET DESCRIPTOR 'dn' VALUE 1 :COLNAM = NAME, :COLTYP = TYPE; PROCEDURE SUB26 (SQLCODE, SQLSTATE, :COLNAM CHAR(20), :COLTYP NUMERIC (9)); GET DESCRIPTOR 'dn' VALUE 2 :COLNAM = NAME, :COLTYP = TYPE; PROCEDURE SUB27 (SQLCODE, SQLSTATE, :COLNAM CHAR(20), :COLTYP NUMERIC (9)); GET DESCRIPTOR 'dn' VALUE 3 :COLNAM = NAME, :COLTYP = TYPE; PROCEDURE SUB28 (SQLCODE, SQLSTATE, :COLNAM CHAR(20), :COLTYP NUMERIC (9)); GET DESCRIPTOR 'dn' VALUE 4 :COLNAM = NAME, :COLTYP = TYPE; PROCEDURE SUB29 (SQLCODE, SQLSTATE, :COLNAM CHAR(20), :COLTYP NUMERIC (9)); GET DESCRIPTOR 'dn' VALUE 5 :COLNAM = NAME, :COLTYP = TYPE; PROCEDURE SUB30 (SQLCODE, SQLSTATE, :COLNAM CHAR(20), :COLTYP NUMERIC (9)); GET DESCRIPTOR 'dn' VALUE 6 :COLNAM = NAME, :COLTYP = TYPE; PROCEDURE SUB31 (SQLCODE, SQLSTATE, :COLNAM CHAR(20), :COLTYP NUMERIC (9)); GET DESCRIPTOR 'dn' VALUE 7 :COLNAM = NAME, :COLTYP = TYPE; PROCEDURE SUB32 (SQLCODE, SQLSTATE); OPEN cn; PROCEDURE SUB33 (SQLCODE, SQLSTATE, :ENO CHAR(3), :ENAAM CHAR(20), :GRD NUMERIC (4), :CIT CHAR(15), :HRS NUMERIC (4), :SAL NUMERIC (9), :PNO NUMERIC (4)); FETCH cn INTO :ENO, :ENAAM, :GRD, :CIT, :HRS, :SAL, :PNO; PROCEDURE SUB34 (SQLCODE, SQLSTATE, :ENO CHAR(3), :ENAAM CHAR(20), :GRD NUMERIC (4), :CIT CHAR(15), :HRS NUMERIC (4), :SAL NUMERIC (9), :PNO NUMERIC (4)); FETCH cn INTO :ENO, :ENAAM, :GRD, :CIT, :HRS, :SAL, :PNO; PROCEDURE SUB35 (SQLCODE, SQLSTATE, :ENO CHAR(3), :ENAAM CHAR(20), :GRD NUMERIC (4), :CIT CHAR(15), :HRS NUMERIC (4), :SAL NUMERIC (9), :PNO NUMERIC (4)); FETCH cn INTO :ENO, :ENAAM, :GRD, :CIT, :HRS, :SAL, :PNO; PROCEDURE SUB36 (SQLCODE, SQLSTATE, :ENO CHAR(3), :ENAAM CHAR(20), :GRD NUMERIC (4), :CIT CHAR(15), :HRS NUMERIC (4), :SAL NUMERIC (9), :PNO NUMERIC (4)); FETCH cn INTO :ENO, :ENAAM, :GRD, :CIT, :HRS, :SAL, :PNO; PROCEDURE SUB37 (SQLCODE, SQLSTATE, :ENO CHAR(3), :ENAAM CHAR(20), :GRD NUMERIC (4), :CIT CHAR(15), :HRS NUMERIC (4), :SAL NUMERIC (9), :PNO NUMERIC (4)); FETCH cn INTO :ENO, :ENAAM, :GRD, :CIT, :HRS, :SAL, :PNO; PROCEDURE SUB38 (SQLCODE, SQLSTATE, :ENO CHAR(3), :ENAAM CHAR(20), :GRD NUMERIC (4), :CIT CHAR(15), :HRS NUMERIC (4), :SAL NUMERIC (9), :PNO NUMERIC (4)); FETCH cn INTO :ENO, :ENAAM, :GRD, :CIT, :HRS, :SAL, :PNO; PROCEDURE SUB39 (SQLCODE, SQLSTATE, :ENO CHAR(3), :ENAAM CHAR(20), :GRD NUMERIC (4), :CIT CHAR(15), :HRS NUMERIC (4), :SAL NUMERIC (9), :PNO NUMERIC (4)); FETCH cn INTO :ENO, :ENAAM, :GRD, :CIT, :HRS, :SAL, :PNO; PROCEDURE SUB40 (SQLCODE, SQLSTATE, :ENO CHAR(3), :ENAAM CHAR(20), :GRD NUMERIC (4), :CIT CHAR(15), :HRS NUMERIC (4), :SAL NUMERIC (9), :PNO NUMERIC (4)); FETCH cn INTO :ENO, :ENAAM, :GRD, :CIT, :HRS, :SAL, :PNO; PROCEDURE SUB41 (SQLCODE, SQLSTATE, :ENO CHAR(3), :ENAAM CHAR(20), :GRD NUMERIC (4), :CIT CHAR(15), :HRS NUMERIC (4), :SAL NUMERIC (9), :PNO NUMERIC (4)); FETCH cn INTO :ENO, :ENAAM, :GRD, :CIT, :HRS, :SAL, :PNO; PROCEDURE SUB42 (SQLCODE, SQLSTATE, :ENO CHAR(3), :ENAAM CHAR(20), :GRD NUMERIC (4), :CIT CHAR(15), :HRS NUMERIC (4), :SAL NUMERIC (9), :PNO NUMERIC (4)); FETCH cn INTO :ENO, :ENAAM, :GRD, :CIT, :HRS, :SAL, :PNO; PROCEDURE SUB43 (SQLCODE, SQLSTATE, :ENO CHAR(3), :ENAAM CHAR(20), :GRD NUMERIC (4), :CIT CHAR(15), :HRS NUMERIC (4), :INDIC1 NUMERIC (4), :SAL NUMERIC (9), :INDIC2 NUMERIC (4), :PNO NUMERIC (4), :INDIC3 NUMERIC (4)); FETCH cn INTO :ENO, :ENAAM, :GRD, :CIT, :HRS:INDIC1, :SAL:INDIC2, :PNO:INDIC3; PROCEDURE SUB44 (SQLCODE, SQLSTATE, :ENO CHAR(3), :ENAAM CHAR(20), :GRD NUMERIC (4), :INDIC1 NUMERIC (4), :CIT CHAR(15), :INDIC2 NUMERIC (4), :HRS NUMERIC (4), :SAL NUMERIC (9), :PNO NUMERIC (4)); FETCH cn INTO :ENO, :ENAAM, :GRD:INDIC1, :CIT:INDIC2, :HRS, :SAL, :PNO ; PROCEDURE SUB45 (SQLCODE, SQLSTATE, :ENO CHAR(3), :ENAAM CHAR(20), :GRD NUMERIC (4), :CIT CHAR(15), :HRS NUMERIC (4), :SAL NUMERIC (9), :PNO NUMERIC (4)); FETCH cn INTO :ENO, :ENAAM, :GRD, :CIT, :HRS, :SAL, :PNO; PROCEDURE SUB46 (SQLCODE, SQLSTATE); CLOSE cn; PROCEDURE SUB47 (SQLCODE, SQLSTATE); ROLLBACK WORK; PROCEDURE SUB48 (SQLCODE, SQLSTATE); INSERT INTO CTS1.TESTREPORT VALUES('7563','pass','MCO'); PROCEDURE SUB49 (SQLCODE, SQLSTATE); INSERT INTO CTS1.TESTREPORT VALUES('7563','fail','MCO'); PROCEDURE SUB50 (SQLCODE, SQLSTATE); COMMIT WORK; [ zur Elbe Produktseite wechseln0.95Quellennavigators ] |