products
/
Sources
/
formale Sprachen
/
C
/
Firefox
/
third_party
/
aom
/
aom_dsp
/ (
Firefox Browser
Version 153.0.1
©
) Datei vom 27.6.2026 mit Größe 1 kB
Bilddatei
xts798.mco
products/Sources/formale Sprachen/COBOL/Test-Suite/SQL M/xts798.mco
-- SQL Test Suite, V6.0, SQL Module xts798.mco -- 59-byte ID -- MODULE XTS798 LANGUAGE COBOL AUTHORIZATION CTS1 DECLARE F CURSOR FOR SELECT EMPNAME, NULLIF (SALARY,HOURS) FROM CTS1.STAFFb WHERE SEX = 'M' AND PNUM NOT IN ('P1','P2','P3','P6','P8') AND (SALARY <> HOURS OR SALARY IS NULL OR HOURS IS NULL) ORDER BY PNUM DECLARE G CURSOR FOR SELECT NULLIF (EMPNAME,CITY), SALARY FROM CTS1.STAFFb WHERE SEX = 'M' AND PNUM NOT IN ('P1','P2','P3','P5','P7') AND (EMPNAME <> CITY OR EMPNAME IS NULL OR CITY IS NULL) ORDER BY PNUM DECLARE H CURSOR FOR SELECT * FROM CTS1.TEMP1426 ORDER BY EMPNAME PROCEDURE SUB1 (SQLCODE, SQLSTATE, :UIDX CHAR(18)); SELECT USER INTO :UIDX FROM CTS1.ECCO; PROCEDURE SUB2 (SQLCODE, SQLSTATE); ROLLBACK WORK; PROCEDURE SUB3 (SQLCODE, SQLSTATE); INSERT INTO STAFFb VALUES(10000,'Kilroy',10000,'P4','Athens','M'); PROCEDURE SUB4 (SQLCODE, SQLSTATE); INSERT INTO STAFFb VALUES(15000,'Nickos',20000,'P6','Nickos','M'); PROCEDURE SUB5 (SQLCODE, SQLSTATE); INSERT INTO STAFFb VALUES(NULL,'Nickos',NULL,'P5','Rhodes','M'); PROCEDURE SUB6 (SQLCODE, SQLSTATE); INSERT INTO STAFFb VALUES(10010,'George',NULL,'P7','Georgia','M'); PROCEDURE SUB7 (SQLCODE, SQLSTATE); INSERT INTO STAFFb VALUES(10005,NULL,30000,'P8',NULL,'M'); PROCEDURE SUB8 (SQLCODE, SQLSTATE); INSERT INTO STAFFb VALUES(10001,'Gregory',12000,'P9',NULL,'M'); PROCEDURE SUB9 (SQLCODE, SQLSTATE); OPEN F; PROCEDURE SUB10 (SQLCODE, SQLSTATE, :ENAME CHAR(20), :SAL NUMERIC (9), :INDIC1 NUMERIC (4)); FETCH F INTO :ENAME, :SAL:INDIC1; PROCEDURE SUB11 (SQLCODE, SQLSTATE, :ENAME CHAR(20), :SAL NUMERIC (9), :INDIC1 NUMERIC (4)); FETCH F INTO :ENAME, :SAL:INDIC1; PROCEDURE SUB12 (SQLCODE, SQLSTATE, :ENAME CHAR(20), :SAL NUMERIC (9), :INDIC1 NUMERIC (4)); FETCH F INTO :ENAME, :SAL:INDIC1; PROCEDURE SUB13 (SQLCODE, SQLSTATE); CLOSE F; PROCEDURE SUB14 (SQLCODE, SQLSTATE); OPEN G; PROCEDURE SUB15 (SQLCODE, SQLSTATE, :ENAME CHAR(20), :INDIC1 NUMERIC (4), :SAL NUMERIC (9)); FETCH G INTO :ENAME:INDIC1, :SAL; PROCEDURE SUB16 (SQLCODE, SQLSTATE, :ENAME CHAR(20), :INDIC1 NUMERIC (4), :SAL NUMERIC (9)); FETCH G INTO :ENAME:INDIC1, :SAL; PROCEDURE SUB17 (SQLCODE, SQLSTATE, :ENAME CHAR(20), :INDIC1 NUMERIC (4), :SAL NUMERIC (9)); FETCH G INTO :ENAME:INDIC1, :SAL; PROCEDURE SUB18 (SQLCODE, SQLSTATE); CLOSE G; PROCEDURE SUB19 (SQLCODE, SQLSTATE); ROLLBACK WORK; PROCEDURE SUB20 (SQLCODE, SQLSTATE); CREATE TABLE TEMP1426 (SALARY DECIMAL(6), EMPNAME CHAR(20)); PROCEDURE SUB21 (SQLCODE, SQLSTATE); COMMIT WORK; PROCEDURE SUB22 (SQLCODE, SQLSTATE); INSERT INTO STAFFb VALUES(10000,'Kilroy',10000,'P4','Athens','M'); PROCEDURE SUB23 (SQLCODE, SQLSTATE); INSERT INTO STAFFb VALUES(15000,'Nickos',20000,'P6','Nickos','M'); PROCEDURE SUB24 (SQLCODE, SQLSTATE); INSERT INTO STAFFb VALUES(NULL,'Nickos',NULL,'P5','Rhodes','M'); PROCEDURE SUB25 (SQLCODE, SQLSTATE); INSERT INTO STAFFb VALUES(10010,'George',NULL,'P7','Georgia','M'); PROCEDURE SUB26 (SQLCODE, SQLSTATE); INSERT INTO STAFFb VALUES(10005,NULL,30000,'P8',NULL,'M'); PROCEDURE SUB27 (SQLCODE, SQLSTATE); INSERT INTO STAFFb VALUES(10001,'Gregory',12000,'P9',NULL,'M'); PROCEDURE SUB28 (SQLCODE, SQLSTATE); INSERT INTO TEMP1426 SELECT NULLIF (10000,SALARY), EMPNAME FROM STAFFb WHERE SEX = 'M' AND PNUM NOT IN ('P1','P2','P3','P6','P8','P9'); PROCEDURE SUB29 (SQLCODE, SQLSTATE); OPEN H; PROCEDURE SUB30 (SQLCODE, SQLSTATE, :SAL NUMERIC (9), :INDIC1 NUMERIC (4), :ENAME CHAR(20)); FETCH H INTO :SAL:INDIC1, :ENAME; PROCEDURE SUB31 (SQLCODE, SQLSTATE, :SAL NUMERIC (9), :INDIC1 NUMERIC (4), :ENAME CHAR(20)); FETCH H INTO :SAL:INDIC1, :ENAME; PROCEDURE SUB32 (SQLCODE, SQLSTATE, :SAL NUMERIC (9), :INDIC1 NUMERIC (4), :ENAME CHAR(20)); FETCH H INTO :SAL:INDIC1, :ENAME; PROCEDURE SUB33 (SQLCODE, SQLSTATE); CLOSE H; PROCEDURE SUB34 (SQLCODE, SQLSTATE); ROLLBACK WORK; PROCEDURE SUB35 (SQLCODE, SQLSTATE); DROP TABLE TEMP1426 CASCADE; PROCEDURE SUB36 (SQLCODE, SQLSTATE); COMMIT WORK; PROCEDURE SUB37 (SQLCODE, SQLSTATE); INSERT INTO CTS1.TESTREPORT VALUES('7002','pass','MCO'); PROCEDURE SUB38 (SQLCODE, SQLSTATE); INSERT INTO CTS1.TESTREPORT VALUES('7002','fail','MCO'); PROCEDURE SUB39 (SQLCODE, SQLSTATE); COMMIT WORK;
2026-10-10
