Quelle  dml090.mco

-- SQL Test Suite, V6.0, SQL Module dml090.mco
-- 59-byte ID
-- 
MODULE DML090
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE ZZZ  CURSOR FOR
               SELECT CITY, COUNT(*) FROM PROJ
               GROUP BY CITY
               HAVING (MAX(BUDGET) - MIN(BUDGET)) / :II
               IN (:II, :JJ, :KK)
               ORDER BY CITY DESC
DECLARE KKK  CURSOR FOR
               SELECT CITY, COUNT(*) FROM PROJ
               GROUP BY CITY
               HAVING :JJ + 2 BETWEEN 33000 AND SUM(BUDGET) - 20
            
DECLARE P_JONES  CURSOR FOR 
               SELECT EMPNUM, GRADE*1000
               FROM HU.STAFF WHERE GRADE * 1000 > ANY
               (SELECT SUM(BUDGET) FROM HU.PROJ
               GROUP BY CITY, PTYPE 
               HAVING HU.PROJ.CITY = HU.STAFF.CITY)


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

PROCEDURE SUB2 SQLCODE
    :PTYPE1 CHAR(6)
    :KK NUMERIC (9)
    :JJ NUMERIC (9);
      SELECT MIN(PNAME) INTO :PTYPE1
                    FROM PROJ, WORKS, STAFF
                    WHERE PROJ.PNUM = WORKS.PNUM
                    AND WORKS.EMPNUM = STAFF.EMPNUM
                    AND BUDGET - GRADE * HOURS * 100 IN
                    (:KK, -1000, :JJ);

PROCEDURE SUB3 SQLCODE
    :II NUMERIC (9)
    :JJ NUMERIC (9)
    :KK NUMERIC (9);
    OPEN ZZZ;

PROCEDURE SUB4 SQLCODE
    :CITY1 CHAR(15)
    :LONG1 NUMERIC (9);
      FETCH ZZZ INTO :CITY1, :LONG1;

PROCEDURE SUB5 SQLCODE
    :CITY1 CHAR(15)
    :LONG1 NUMERIC (9);
      FETCH ZZZ INTO :CITY1, :LONG1;

PROCEDURE SUB6 SQLCODE
    :CITY1 CHAR(15)
    :LONG1 NUMERIC (9);
      FETCH ZZZ INTO :CITY1, :LONG1;

PROCEDURE SUB7 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB8 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0512','pass','MCO');

PROCEDURE SUB9 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0512','fail','MCO');

PROCEDURE SUB10 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB11 SQLCODE;
      DELETE FROM TEMP_OBSERV;

PROCEDURE SUB12 SQLCODE;
      INSERT INTO TEMP_OBSERV (YEAR_OBSERV)
                    VALUES (9999);

PROCEDURE SUB13 SQLCODE;
      INSERT INTO TEMP_OBSERV (YEAR_OBSERV)
                    VALUES (10000);

PROCEDURE SUB14 SQLCODE;
      UPDATE TEMP_OBSERV
                    SET YEAR_OBSERV = -10000
                    WHERE YEAR_OBSERV = 9999;

PROCEDURE SUB15 SQLCODE;
      INSERT INTO TEMP_OBSERV (YEAR_OBSERV, MAX_TEMP)
                    VALUES (-9999, 123.4517);

PROCEDURE SUB16 SQLCODE
    :LONG1 NUMERIC (9);
      SELECT COUNT(*) INTO :LONG1 FROM TEMP_OBSERV
                    WHERE MAX_TEMP = 123.45
                    AND MAX_TEMP NOT BETWEEN 123.4516 AND 123.4518;

PROCEDURE SUB17 SQLCODE;
      INSERT INTO TEMP_OBSERV (YEAR_OBSERV, MAX_TEMP)
                    VALUES (-9999, 1234.51);

PROCEDURE SUB18 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB19 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0513','pass','MCO');

PROCEDURE SUB20 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0513','fail','MCO');

PROCEDURE SUB21 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB22 SQLCODE
    :LONG1 NUMERIC (9)
    :KK NUMERIC (9)
    :II NUMERIC (9)
    :JJ NUMERIC (9);
      SELECT COUNT(*) INTO :LONG1
                    FROM PROJ
                    WHERE :KK * :II BETWEEN BUDGET - 5000 AND :JJ / 1.7
                 ;

PROCEDURE SUB23 SQLCODE
    :PTYPE1 CHAR(6)
    :CITY1 CHAR(15);
      SELECT PNAME INTO :PTYPE1
                    FROM PROJ
                    WHERE :CITY1 NOT BETWEEN CITY AND 'Vienna'
                    AND PNUM > 'P2';

PROCEDURE SUB24 SQLCODE
    :JJ NUMERIC (9);
    OPEN KKK;

PROCEDURE SUB25 SQLCODE
    :CITY1 CHAR(15)
    :LONG1 NUMERIC (9);
      FETCH KKK INTO :CITY1, :LONG1;

PROCEDURE SUB26 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB27 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0523','pass','MCO');

PROCEDURE SUB28 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0523','fail','MCO');

PROCEDURE SUB29 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB30 SQLCODE;
    OPEN P_JONES;

PROCEDURE SUB31 SQLCODE
    :PTYPE1 CHAR(6)
    :LONG1 NUMERIC (9);
      FETCH P_JONES INTO :PTYPE1, :LONG1;

PROCEDURE SUB32 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB33 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0564','pass','MCO');

PROCEDURE SUB34 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0564','fail','MCO');

PROCEDURE SUB35 SQLCODE;
      COMMIT WORK;