Quellcode-Bibliothek dml073.mco

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

MODULE DML073
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE JUPITER CURSOR FOR 
               SELECT STAFF.EMPNUM, SUM(HOURS), MIN(HOURS)
               FROM  STAFF, WORKS
               GROUP BY STAFF.EMPNUM
               ORDER BY 1
DECLARE VENUS CURSOR FOR
               SELECT STAFF.EMPNUM, AVG(HOURS), MIN(HOURS)
               FROM  STAFF, WORKS
               WHERE STAFF.EMPNUM IN ('E1','E4','E3') AND
               STAFF.EMPNUM = WORKS.EMPNUM
               GROUP BY STAFF.EMPNUM
               HAVING COUNT(*) > 1
               ORDER BY 1
DECLARE PLUTO CURSOR FOR
               SELECT MAX(STAFF1.GRADE), SUM(STAFF1.GRADE)
               FROM STAFF1, STAFF
               GROUP BY STAFF1.CITY, STAFF.CITY


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

PROCEDURE SUB1 SQLCODE
    :HOUR1 NUMERIC (9)
    :HOUR2 NUMERIC (9);
      SELECT SUM(HOURS), MAX(HOURS)
                    INTO  :HOUR1,  :HOUR2
                    FROM  STAFF, WORKS;

PROCEDURE SUB2 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0393','pass','MCO');

PROCEDURE SUB3 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0393','fail','MCO');

PROCEDURE SUB4 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB5 SQLCODE
    :HOUR1 NUMERIC (9)
    :HOUR2 NUMERIC (9);
      SELECT AVG(HOURS), MIN(HOURS)
                    INTO  :HOUR1,  :HOUR2
                    FROM  STAFF, WORKS
                    WHERE STAFF.EMPNUM = 'E2'
                    AND STAFF.EMPNUM = WORKS.EMPNUM;

PROCEDURE SUB6 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0394','pass','MCO');

PROCEDURE SUB7 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0394','fail','MCO');

PROCEDURE SUB8 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB9 SQLCODE;
    OPEN JUPITER;

PROCEDURE SUB10 SQLCODE
    :EMPNO1 CHAR(3)
    :HOUR1 NUMERIC (9)
    :HOUR2 NUMERIC (9);
      FETCH JUPITER INTO  :EMPNO1,  :HOUR1,  :HOUR2
                 ;

PROCEDURE SUB11 SQLCODE
    :EMPNO1 CHAR(3)
    :HOUR1 NUMERIC (9)
    :HOUR2 NUMERIC (9);
      FETCH JUPITER INTO  :EMPNO1,  :HOUR1,  :HOUR2
                 ;

PROCEDURE SUB12 SQLCODE
    :EMPNO1 CHAR(3)
    :HOUR1 NUMERIC (9)
    :HOUR2 NUMERIC (9);
      FETCH JUPITER INTO  :EMPNO1,  :HOUR1,  :HOUR2
                 ;

PROCEDURE SUB13 SQLCODE
    :EMPNO1 CHAR(3)
    :HOUR1 NUMERIC (9)
    :HOUR2 NUMERIC (9);
      FETCH JUPITER INTO  :EMPNO1,  :HOUR1,  :HOUR2
                 ;

PROCEDURE SUB14 SQLCODE
    :EMPNO1 CHAR(3)
    :HOUR1 NUMERIC (9)
    :HOUR2 NUMERIC (9);
      FETCH JUPITER INTO  :EMPNO1,  :HOUR1,  :HOUR2
                 ;

PROCEDURE SUB15 SQLCODE
    :EMPNO1 CHAR(3)
    :HOUR1 NUMERIC (9)
    :HOUR2 NUMERIC (9);
      FETCH JUPITER INTO  :EMPNO1,  :HOUR1,  :HOUR2
                 ;

PROCEDURE SUB16 SQLCODE;
      CLOSE JUPITER;

PROCEDURE SUB17 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0395','pass','MCO');

PROCEDURE SUB18 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0395','fail','MCO');

PROCEDURE SUB19 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB20 SQLCODE;
    OPEN VENUS;

PROCEDURE SUB21 SQLCODE
    :EMPNO1 CHAR(3)
    :HOUR1 NUMERIC (9)
    :HOUR2 NUMERIC (9);
      FETCH VENUS INTO  :EMPNO1,  :HOUR1,  :HOUR2;

PROCEDURE SUB22 SQLCODE
    :EMPNO1 CHAR(3)
    :HOUR1 NUMERIC (9)
    :HOUR2 NUMERIC (9);
      FETCH VENUS INTO  :EMPNO1,  :HOUR1,  :HOUR2;

PROCEDURE SUB23 SQLCODE
    :EMPNO1 CHAR(3)
    :HOUR1 NUMERIC (9)
    :HOUR2 NUMERIC (9);
      FETCH VENUS INTO  :EMPNO1,  :HOUR1,  :HOUR2;

PROCEDURE SUB24 SQLCODE;
      CLOSE VENUS;

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

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

PROCEDURE SUB27 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB28 SQLCODE;
      DELETE FROM STAFF1;

PROCEDURE SUB29 SQLCODE;
      INSERT INTO STAFF
                    VALUES ('E6', 'David', 17, NULL);

PROCEDURE SUB30 SQLCODE;
      INSERT INTO STAFF
                    VALUES ('E7', 'Tony', 18, NULL);

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

PROCEDURE SUB32 SQLCODE;
    OPEN PLUTO;

PROCEDURE SUB33 SQLCODE;
      CLOSE PLUTO;

PROCEDURE SUB34 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB35 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0417','pass','MCO');

PROCEDURE SUB36 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0417','fail','MCO');

PROCEDURE SUB37 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB38 SQLCODE
    :AVG1 NUMERIC (9)
    :AVG2 NUMERIC (9)
    :SUM1 NUMERIC (9)
    :CNT1 NUMERIC (9);
      SELECT AVG(T1.COL4), AVG(T1.COL4 + T2.COL4),
                    SUM(T2.COL4), COUNT(DISTINCT T1.COL4)
                    INTO  :AVG1,  :AVG2,  :SUM1,  :CNT1
                    FROM VTABLE T1, VTABLE T2;

PROCEDURE SUB39 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0418','pass','MCO');

PROCEDURE SUB40 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0418','fail','MCO');

PROCEDURE SUB41 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB42 SQLCODE
    :SUM1 NUMERIC (9)
    :MAX1 NUMERIC (9)
    :MIN1 NUMERIC (9);
      SELECT SUM(COST), MAX(COST), MIN(COST)
                    INTO  :SUM1,  :MAX1,  :MIN1
                    FROM STAFF_WORKS_DESIGN;

PROCEDURE SUB43 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0419','pass','MCO');

PROCEDURE SUB44 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0419','fail','MCO');

PROCEDURE SUB45 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB46 SQLCODE
    :GRD1 NUMERIC (9)
    :GRD2 NUMERIC (9);
      FETCH PLUTO INTO  :GRD1,  :GRD2;