Quelle  dml085.mco

-- 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;