-- SQL Test Suite, V6.0, SQL Module dml085.mco
-- 59-byte ID
--
MODULE "DML085"
LANGUAGE COBOL
AUTHORIZATION SCHANZLE
DECLARE "A < a" CURSOR FOR
SELECT "A<a"."sullivan.select"
FROM "FLATER"."SULLIVAN.SELECT" "A<a"
DECLARE "0" CURSOR FOR
SELECT COUNT(*) FROM HU.STAFF
DECLARE """" CURSOR FOR
SELECT COUNT(*) FROM HU.STAFF
DECLARE "%" CURSOR FOR
SELECT COUNT(*) FROM HU.STAFF
DECLARE "&" CURSOR FOR
SELECT COUNT(*) FROM HU.STAFF
DECLARE "'" CURSOR FOR
SELECT COUNT(*) FROM HU.STAFF
DECLARE "(" CURSOR FOR
SELECT COUNT(*) FROM HU.STAFF
DECLARE ")" CURSOR FOR
SELECT COUNT(*) FROM HU.STAFF
DECLARE "*" CURSOR FOR
SELECT COUNT(*) FROM HU.STAFF
DECLARE "+" CURSOR FOR
SELECT COUNT(*) FROM HU.STAFF
DECLARE "," CURSOR FOR
SELECT COUNT(*) FROM HU.STAFF
DECLARE "-" CURSOR FOR
SELECT COUNT(*) FROM HU.STAFF
DECLARE "." CURSOR FOR
SELECT COUNT(*) FROM HU.STAFF
DECLARE "/" CURSOR FOR
SELECT COUNT(*) FROM HU.STAFF
DECLARE ":" CURSOR FOR
SELECT COUNT(*) FROM HU.STAFF
DECLARE ";" CURSOR FOR
SELECT COUNT(*) FROM HU.STAFF
DECLARE "<" CURSOR FOR
SELECT COUNT(*) FROM HU.STAFF
DECLARE "=" CURSOR FOR
SELECT COUNT(*) FROM HU.STAFF
DECLARE ">" CURSOR FOR
SELECT COUNT(*) FROM HU.STAFF
DECLARE "?" CURSOR FOR
SELECT COUNT(*) FROM HU.STAFF
DECLARE "_" CURSOR FOR
SELECT COUNT(*) FROM HU.STAFF
DECLARE "|" CURSOR FOR
SELECT COUNT(*) FROM HU.STAFF
DECLARE "|_?=;:/. -,+*)'&""%" CURSOR FOR
SELECT COUNT(*) FROM HU.STAFF
DECLARE CHEDDAR CURSOR FOR
SELECT GRADE AS PROVOLONE, EMPNAME AS EDAM
FROM HU.STAFF
ORDER BY PROVOLONE, EDAM DESC
PROCEDURE SUB1 SQLCODE
:UIDX CHAR(18);
SELECT USER INTO :UIDX FROM HU.ECCO;
PROCEDURE "SUB2" SQLCODE
:TMPCNT NUMERIC (9);
SELECT COUNT(DISTINCT "sullivan.select") INTO
:TMPCNT
FROM "FLATER"."SULLIVAN.SELECT";
PROCEDURE SUB3 SQLCODE;
OPEN "A < a";
PROCEDURE SUB4 SQLCODE
:"a????" NUMERIC (9);
FETCH "A < a" INTO :"a????";
PROCEDURE SUB5 SQLCODE;
CLOSE "A < a";
PROCEDURE SUB6 SQLCODE;
OPEN "0";
PROCEDURE SUB7 SQLCODE
:TMPCNT NUMERIC (9);
FETCH "0" INTO :TMPCNT;
PROCEDURE SUB8 SQLCODE;
CLOSE "0";
PROCEDURE SUB9 SQLCODE;
OPEN """";
PROCEDURE SUB10 SQLCODE
:TMPCNT NUMERIC (9);
FETCH """" INTO :TMPCNT;
PROCEDURE SUB11 SQLCODE;
CLOSE """";
PROCEDURE SUB12 SQLCODE;
OPEN "%";
PROCEDURE SUB13 SQLCODE
:TMPCNT NUMERIC (9);
FETCH "%" INTO :TMPCNT;
PROCEDURE SUB14 SQLCODE;
CLOSE "%";
PROCEDURE SUB15 SQLCODE;
OPEN "&";
PROCEDURE SUB16 SQLCODE
:TMPCNT NUMERIC (9);
FETCH "&" INTO :TMPCNT;
PROCEDURE SUB17 SQLCODE;
CLOSE "&";
PROCEDURE SUB18 SQLCODE;
OPEN "'";
PROCEDURE SUB19 SQLCODE
:TMPCNT NUMERIC (9);
FETCH "'" INTO :TMPCNT;
PROCEDURE SUB20 SQLCODE;
CLOSE "'";
PROCEDURE SUB21 SQLCODE;
OPEN "(";
PROCEDURE SUB22 SQLCODE
:TMPCNT NUMERIC (9);
FETCH "(" INTO :TMPCNT;
PROCEDURE SUB23 SQLCODE;
CLOSE "(";
PROCEDURE SUB24 SQLCODE;
OPEN ")";
PROCEDURE SUB25 SQLCODE
:TMPCNT NUMERIC (9);
FETCH ")" INTO :TMPCNT;
PROCEDURE SUB26 SQLCODE;
CLOSE ")";
PROCEDURE SUB27 SQLCODE;
OPEN "*";
PROCEDURE SUB28 SQLCODE
:TMPCNT NUMERIC (9);
FETCH "*" INTO :TMPCNT;
PROCEDURE SUB29 SQLCODE;
CLOSE "*";
PROCEDURE SUB30 SQLCODE;
OPEN "+";
PROCEDURE SUB31 SQLCODE
:TMPCNT NUMERIC (9);
FETCH "+" INTO :TMPCNT;
PROCEDURE SUB32 SQLCODE;
CLOSE "+";
PROCEDURE SUB33 SQLCODE;
OPEN ",";
PROCEDURE SUB34 SQLCODE
:TMPCNT NUMERIC (9);
FETCH "," INTO :TMPCNT;
PROCEDURE SUB35 SQLCODE;
CLOSE ",";
PROCEDURE SUB36 SQLCODE;
OPEN "-";
PROCEDURE SUB37 SQLCODE
:TMPCNT NUMERIC (9);
FETCH "-" INTO :TMPCNT;
PROCEDURE SUB38 SQLCODE;
CLOSE "-";
PROCEDURE SUB39 SQLCODE;
OPEN ".";
PROCEDURE SUB40 SQLCODE
:TMPCNT NUMERIC (9);
FETCH "." INTO :TMPCNT;
PROCEDURE SUB41 SQLCODE;
CLOSE ".";
PROCEDURE SUB42 SQLCODE;
OPEN "/";
PROCEDURE SUB43 SQLCODE
:TMPCNT NUMERIC (9);
FETCH "/" INTO :TMPCNT;
PROCEDURE SUB44 SQLCODE;
CLOSE "/";
PROCEDURE SUB45 SQLCODE;
OPEN ":";
PROCEDURE SUB46 SQLCODE
:TMPCNT NUMERIC (9);
FETCH ":" INTO :TMPCNT;
PROCEDURE SUB47 SQLCODE;
CLOSE ":";
PROCEDURE SUB48 SQLCODE;
OPEN ";";
PROCEDURE SUB49 SQLCODE
:TMPCNT NUMERIC (9);
FETCH ";" INTO :TMPCNT;
PROCEDURE SUB50 SQLCODE;
CLOSE ";";
PROCEDURE SUB51 SQLCODE;
OPEN "<";
PROCEDURE SUB52 SQLCODE
:TMPCNT NUMERIC (9);
FETCH "<" INTO :TMPCNT;
PROCEDURE SUB53 SQLCODE;
CLOSE "<";
PROCEDURE SUB54 SQLCODE;
OPEN "=";
PROCEDURE SUB55 SQLCODE
:TMPCNT NUMERIC (9);
FETCH "=" INTO :TMPCNT;
PROCEDURE SUB56 SQLCODE;
CLOSE "=";
PROCEDURE SUB57 SQLCODE;
OPEN ">";
PROCEDURE SUB58 SQLCODE
:TMPCNT NUMERIC (9);
FETCH ">" INTO :TMPCNT;
PROCEDURE SUB59 SQLCODE;
CLOSE ">";
PROCEDURE SUB60 SQLCODE;
OPEN "?";
PROCEDURE SUB61 SQLCODE
:TMPCNT NUMERIC (9);
FETCH "?" INTO :TMPCNT;
PROCEDURE SUB62 SQLCODE;
CLOSE "?";
PROCEDURE SUB63 SQLCODE;
OPEN "_";
PROCEDURE SUB64 SQLCODE
:TMPCNT NUMERIC (9);
FETCH "_" INTO :TMPCNT;
PROCEDURE SUB65 SQLCODE;
CLOSE "_";
PROCEDURE SUB66 SQLCODE;
OPEN "|";
PROCEDURE SUB67 SQLCODE
:TMPCNT NUMERIC (9);
FETCH "|" INTO :TMPCNT;
PROCEDURE SUB68 SQLCODE;
CLOSE "|";
PROCEDURE SUB69 SQLCODE;
OPEN "|_?=;:/. -,+*)'&""%";
PROCEDURE SUB70 SQLCODE
:TMPCNT NUMERIC (9);
FETCH "|_?=;:/. -,+*)'&""%" INTO :TMPCNT;
PROCEDURE SUB71 SQLCODE;
CLOSE "|_?=;:/. -,+*)'&""%";
PROCEDURE SUB72 SQLCODE;
ROLLBACK WORK;
PROCEDURE SUB73 SQLCODE;
INSERT INTO HU.TESTREPORT
VALUES('0508','pass','MCO');
PROCEDURE SUB74 SQLCODE;
INSERT INTO HU.TESTREPORT
VALUES('0508','fail','MCO');
PROCEDURE SUB75 SQLCODE;
COMMIT WORK;
PROCEDURE SUB76 SQLCODE;
OPEN CHEDDAR;
PROCEDURE SUB77 SQLCODE
:GRD NUMERIC (9)
:NAM CHAR(20);
FETCH CHEDDAR INTO :GRD, :NAM;
PROCEDURE SUB78 SQLCODE;
ROLLBACK WORK;
PROCEDURE SUB79 SQLCODE;
INSERT INTO HU.TESTREPORT
VALUES('0509','pass','MCO');
PROCEDURE SUB80 SQLCODE;
INSERT INTO HU.TESTREPORT
VALUES('0509','fail','MCO');
PROCEDURE SUB81 SQLCODE;
COMMIT WORK;
PROCEDURE SUB82 SQLCODE
:GRADE NUMERIC (9);
SELECT GRADE INTO :GRADE FROM HU.STAFF
WHERE EMPNUM = 'E1';
PROCEDURE SUB83 SQLCODE;
ROLLBACK WORK;
PROCEDURE SUB84 SQLCODE;
INSERT INTO HU.TESTREPORT
VALUES('0510','pass','MCO');
PROCEDURE SUB85 SQLCODE;
INSERT INTO HU.TESTREPORT
VALUES('0510','fail','MCO');
PROCEDURE SUB86 SQLCODE;
COMMIT WORK;
PROCEDURE SUB87 SQLCODE
:TC1 CHAR(19)
:TC2 CHAR(19)
:TI NUMERIC (9);
SELECT HU.PROJ.CITY AS PCITY, HU.STAFF.CITY SCITY,
BUDGET + GRADE * HOURS * 100 REAL_BUDGET
INTO :TC1, :TC2, :TI
FROM HU.STAFF, HU.PROJ, HU.WORKS
WHERE HU.WORKS.EMPNUM = HU.STAFF.EMPNUM
AND HU.WORKS.PNUM = HU.PROJ.PNUM
AND EMPNAME = 'Alice'
AND HU.PROJ.PNUM = 'P3';
PROCEDURE SUB88 SQLCODE;
ROLLBACK WORK;
PROCEDURE SUB89 SQLCODE;
INSERT INTO HU.TESTREPORT
VALUES('0554','pass','MCO');
PROCEDURE SUB90 SQLCODE;
INSERT INTO HU.TESTREPORT
VALUES('0554','fail','MCO');
PROCEDURE SUB91 SQLCODE;
COMMIT WORK;
