Quellcodebibliothek
Statistik
Leitseite
products
/
Sources
/
formale Sprachen
/
C
/
Gnome
/
gdk
/ (
Gnome Linux Desktop
Version 4.23.2
©
) Datei vom 30.5.2026 mit Größe 21 kB
Bilddatei
yts810.mco
products/Sources/formale Sprachen/Cobol/Test-Suite/SQL M/yts810.mco
-- SQL Test Suite, V6.0, SQL Module yts810.mco -- 59-byte ID -- MODULE YTS810 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); CREATE VIEW TA AS SELECT GRADE, DEPTNO, LOC, HOURS FROM CTS1.CL_EMPLOYEE; PROCEDURE SUB4 (SQLCODE, SQLSTATE); COMMIT WORK; PROCEDURE SUB5 (SQLCODE, SQLSTATE); CREATE VIEW TB AS SELECT EMPNAME, HOURS, EMPNUM, SALARY, PNUM FROM CTS1.STAFFa; PROCEDURE SUB6 (SQLCODE, SQLSTATE); COMMIT WORK; PROCEDURE SUB7 (SQLCODE, SQLSTATE); DELETE FROM CTS1.staffa; PROCEDURE SUB8 (SQLCODE, SQLSTATE); DELETE FROM CL_EMPLOYEE; PROCEDURE SUB9 (SQLCODE, SQLSTATE); INSERT INTO CL_EMPLOYEE VALUES ( 1, 'abc', 'Susan', NULL, NULL, 1, 100); PROCEDURE SUB10 (SQLCODE, SQLSTATE); INSERT INTO CL_EMPLOYEE VALUES ( 2, 'abc', 'Matthew', NULL, NULL, 7, 100); PROCEDURE SUB11 (SQLCODE, SQLSTATE); INSERT INTO CL_EMPLOYEE VALUES ( 3, 'abc', 'Peter', NULL, NULL, 2, 100); PROCEDURE SUB12 (SQLCODE, SQLSTATE); INSERT INTO CL_EMPLOYEE VALUES ( 4, 'abc', 'Rosemary', NULL, NULL, 8, 100); PROCEDURE SUB13 (SQLCODE, SQLSTATE); INSERT INTO TB VALUES ('Praze-an-beeble ',1,'aaa',100,3); PROCEDURE SUB14 (SQLCODE, SQLSTATE); INSERT INTO TB VALUES ('Chy-an-gwel ',2,'abc',100,4); PROCEDURE SUB15 (SQLCODE, SQLSTATE); INSERT INTO TB VALUES ('Ponsonooth ',3,'abc',100,5); PROCEDURE SUB16 (SQLCODE, SQLSTATE); INSERT INTO TB VALUES ('Tregwedyn ',4,'abc',100,6); PROCEDURE SUB17 (SQLCODE, SQLSTATE); DELETE FROM CONCATBUF; PROCEDURE SUB18 (SQLCODE, SQLSTATE); INSERT INTO CONCATBUF VALUES ( 'SELECT GRADE, COUNT (*) AS CC, EMPNUM' || ' FROM TA FULL OUTER JOIN TB ON GRADE > PNUM' || ' AND EMPNUM = DEPTNO WHERE' || ' GRADE IS NOT NULL GROUP BY GRADE, EMPNUM' || ' ORDER BY CC DESC, GRADE' ); PROCEDURE SUB19 (SQLCODE, SQLSTATE, :LONGST CHAR(240)); SELECT ZZ INTO :LONGST FROM CONCATBUF; PROCEDURE SUB20 (SQLCODE, SQLSTATE, :LONGST CHAR(240)); PREPARE sn FROM :LONGST; PROCEDURE SUB21 (SQLCODE, SQLSTATE); ALLOCATE DESCRIPTOR 'dn' WITH MAX 3; PROCEDURE SUB22 (SQLCODE, SQLSTATE); DESCRIBE sn USING SQL DESCRIPTOR 'dn'; PROCEDURE SUB23 (SQLCODE, SQLSTATE, :COLNAM CHAR(25), :COLTYP NUMERIC (9)); GET DESCRIPTOR 'dn' VALUE 1 :COLNAM = NAME, :COLTYP = TYPE; PROCEDURE SUB24 (SQLCODE, SQLSTATE, :COLNAM CHAR(25), :COLTYP NUMERIC (9)); GET DESCRIPTOR 'dn' VALUE 2 :COLNAM = NAME, :COLTYP = TYPE; PROCEDURE SUB25 (SQLCODE, SQLSTATE, :COLNAM CHAR(25), :COLTYP NUMERIC (9)); GET DESCRIPTOR 'dn' VALUE 3 :COLNAM = NAME, :COLTYP = TYPE; PROCEDURE SUB26 (SQLCODE, SQLSTATE); OPEN cn; PROCEDURE SUB27 (SQLCODE, SQLSTATE, :GRD NUMERIC (9), :GRPNO NUMERIC (4), :ENO CHAR(3), :INDIC1 NUMERIC (4)); FETCH cn INTO :GRD, :GRPNO, :ENO:INDIC1; PROCEDURE SUB28 (SQLCODE, SQLSTATE, :GRD NUMERIC (9), :GRPNO NUMERIC (4), :ENO CHAR(3), :INDIC1 NUMERIC (4)); FETCH cn INTO :GRD, :GRPNO, :ENO:INDIC1; PROCEDURE SUB29 (SQLCODE, SQLSTATE, :GRD NUMERIC (9), :GRPNO NUMERIC (4), :ENO CHAR(3), :INDIC1 NUMERIC (4)); FETCH cn INTO :GRD, :GRPNO, :ENO:INDIC1; PROCEDURE SUB30 (SQLCODE, SQLSTATE, :GRD NUMERIC (9), :GRPNO NUMERIC (4), :ENO CHAR(3), :INDIC1 NUMERIC (4)); FETCH cn INTO :GRD, :GRPNO, :ENO:INDIC1; PROCEDURE SUB31 (SQLCODE, SQLSTATE, :GRD NUMERIC (9), :GRPNO NUMERIC (4), :ENO CHAR(3), :INDIC1 NUMERIC (4)); FETCH cn INTO :GRD, :GRPNO, :ENO:INDIC1; PROCEDURE SUB32 (SQLCODE, SQLSTATE); CLOSE cn; PROCEDURE SUB33 (SQLCODE, SQLSTATE); DEALLOCATE PREPARE sn; PROCEDURE SUB34 (SQLCODE, SQLSTATE); DEALLOCATE DESCRIPTOR 'dn'; PROCEDURE SUB35 (SQLCODE, SQLSTATE); ROLLBACK WORK; PROCEDURE SUB36 (SQLCODE, SQLSTATE); DROP VIEW TA CASCADE; PROCEDURE SUB37 (SQLCODE, SQLSTATE); COMMIT WORK; PROCEDURE SUB38 (SQLCODE, SQLSTATE); DROP VIEW TB CASCADE; PROCEDURE SUB39 (SQLCODE, SQLSTATE); COMMIT WORK; PROCEDURE SUB40 (SQLCODE, SQLSTATE); INSERT INTO CTS1.TESTREPORT VALUES('7567','pass','MCO'); PROCEDURE SUB41 (SQLCODE, SQLSTATE); INSERT INTO CTS1.TESTREPORT VALUES('7567','fail','MCO'); PROCEDURE SUB42 (SQLCODE, SQLSTATE); COMMIT WORK;
2026-08-25
