Quelle  dml075.mco

-- SQL Test Suite, V6.0, SQL Module dml075.mco
-- 59-byte ID

MODULE DML075
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE FIDO CURSOR FOR 
               SELECT PNUM, SUM(HOURS)
               FROM WORKS
               GROUP BY PNUM
               HAVING EXISTS (SELECT PNAME FROM PROJ
               WHERE PROJ.PNUM = WORKS.PNUM AND
               SUM(WORKS.HOURS) > PROJ.BUDGET/200)
DECLARE YY CURSOR FOR 
               SELECT PTYPE, CITY
               FROM PROJ
               GROUP BY PTYPE, CITY
               HAVING AVG(BUDGET) > 21000
DECLARE ZZ CURSOR FOR 
               SELECT DISTINCT PTYPE, CITY 
               FROM PROJ
               GROUP BY PTYPE, CITY
               HAVING AVG(BUDGET) > 21000
DECLARE AA CURSOR FOR 
               SELECT DISTINCT SUM(BUDGET) 
               FROM PROJ
               GROUP BY PTYPE, CITY
               HAVING AVG(BUDGET) > 21000


PROCEDURE AUTHCK SQLCODE
  :UIDX CHAR(18);
      SELECT USER INTO :UIDX FROM HU.ECCO;

PROCEDURE SUB1 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                    FROM STAFF
                    WHERE EMPNUM IN
                    (SELECT EMPNUM FROM WORKS);

PROCEDURE SUB2 SQLCODE;
      INSERT INTO STAFF1
                    SELECT * FROM STAFF;

PROCEDURE SUB3 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT2
                    FROM STAFF1
                    WHERE EMPNUM IN
                    (SELECT EMPNUM FROM WORKS);

PROCEDURE SUB4 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB5 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0431','pass','MCO');

PROCEDURE SUB6 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0431','fail','MCO');

PROCEDURE SUB7 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB8 SQLCODE;
      UPDATE PROJ SET CITY = NULL 
                    WHERE PNUM = 'P3';

PROCEDURE SUB9 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                    FROM STAFF
                    WHERE CITY = ALL (SELECT CITY
                    FROM PROJ
                    WHERE PNAME = 'SDP');

PROCEDURE SUB10 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT2 
                    FROM STAFF
                    WHERE CITY <> ALL (SELECT CITY 
                    FROM PROJ
                    WHERE PNAME = 'SDP');

PROCEDURE SUB11 SQLCODE
    :COUNT3 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT3
                    FROM STAFF
                    WHERE CITY = ANY (SELECT CITY    
                    FROM PROJ
                    WHERE PNAME = 'SDP');

PROCEDURE SUB12 SQLCODE
    :COUNT4 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT4
                    FROM STAFF
                    WHERE CITY <> ANY (SELECT CITY
                    FROM PROJ
                    WHERE PNAME = 'SDP');

PROCEDURE SUB13 SQLCODE
    :COUNT5 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT5
                    FROM STAFF
                    WHERE CITY = SOME (SELECT CITY
                    FROM PROJ
                    WHERE PNAME = 'SDP');

PROCEDURE SUB14 SQLCODE
    :COUNT6 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT6
                    FROM STAFF
                    WHERE CITY <> SOME (SELECT CITY
                    FROM PROJ
                    WHERE PNAME = 'SDP');

PROCEDURE SUB15 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB16 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0432','pass','MCO');

PROCEDURE SUB17 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0432','fail','MCO');

PROCEDURE SUB18 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB19 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                    FROM PROJ
                    WHERE PNUM = ALL (SELECT PNUM
                    FROM WORKS
                    WHERE EMPNUM = 'E8');

PROCEDURE SUB20 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT2
                    FROM PROJ
                    WHERE PNUM <> ALL (SELECT PNUM
                    FROM WORKS
                    WHERE EMPNUM = 'E8');

PROCEDURE SUB21 SQLCODE
    :COUNT3 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT3
                    FROM PROJ
                    WHERE PNUM = ANY (SELECT PNUM
                    FROM WORKS
                    WHERE EMPNUM = 'E8');

PROCEDURE SUB22 SQLCODE
    :COUNT4 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT4
                    FROM PROJ
                    WHERE PNUM <> ANY (SELECT PNUM
                    FROM WORKS
                    WHERE EMPNUM = 'E8');

PROCEDURE SUB23 SQLCODE
    :COUNT5 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT5
                    FROM PROJ
                    WHERE PNUM = SOME (SELECT PNUM
                    FROM WORKS
                    WHERE EMPNUM = 'E8');

PROCEDURE SUB24 SQLCODE
    :COUNT6 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT6
                    FROM PROJ
                    WHERE PNUM <> SOME (SELECT PNUM
                    FROM WORKS
                    WHERE EMPNUM = 'E8');

PROCEDURE SUB25 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0433','pass','MCO');

PROCEDURE SUB26 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0433','fail','MCO');

PROCEDURE SUB27 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB28 SQLCODE;
    OPEN FIDO;

PROCEDURE SUB29 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0434','pass','MCO');

PROCEDURE SUB30 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0434','fail','MCO');

PROCEDURE SUB31 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB32 SQLCODE;
    OPEN YY;

PROCEDURE SUB33 SQLCODE;
      CLOSE YY;

PROCEDURE SUB34 SQLCODE;
    OPEN ZZ;

PROCEDURE SUB35 SQLCODE;
      CLOSE ZZ;

PROCEDURE SUB36 SQLCODE;
    OPEN AA;

PROCEDURE SUB37 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0442','pass','MCO');

PROCEDURE SUB38 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0442','fail','MCO');

PROCEDURE SUB39 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB40 SQLCODE
    :NUM CHAR(3)
    :HRS NUMERIC (9);
      FETCH FIDO INTO :NUM, :HRS;

PROCEDURE SUB41 SQLCODE
    :PTPE CHAR(6)
    :CTY CHAR(15);
      FETCH YY INTO :PTPE, :CTY;

PROCEDURE SUB42 SQLCODE
    :PTPE CHAR(6)
    :CTY CHAR(15);
      FETCH ZZ INTO :PTPE, :CTY;

PROCEDURE SUB43 SQLCODE
    :TOTAL1 NUMERIC (9);
      FETCH AA INTO :TOTAL1;