Quelle  dml048.mco

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

MODULE DML048
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE B CURSOR
             FOR SELECT EMPNUM,PNUM
             FROM   WORKS
             ORDER  BY EMPNUM ASC,PNUM ASC
DECLARE D CURSOR
             FOR SELECT CITY
             FROM   STAFF
             WHERE  EMPNUM =  :EMPNO1
DECLARE E CURSOR
             FOR SELECT CITY
             FROM   PROJ
             WHERE  PNUM =  :PNO1
DECLARE F CURSOR
             FOR SELECT SUM(HOURS)
             FROM WORKS
             WHERE EMPNUM =  :EMPNO1
DECLARE G CURSOR
             FOR SELECT SUM(HOURS)
             FROM WORKS
             WHERE PNUM =  :PNO1
DECLARE H CURSOR
             FOR SELECT SUM(GRADE)
             FROM STAFF
             WHERE CITY =  :SCITY
DECLARE I CURSOR
             FOR SELECT SUM(BUDGET)
             FROM PROJ
             WHERE CITY =  :PCITY
DECLARE J CURSOR 
             FOR SELECT COUNT(*)
             FROM STAFF
             WHERE CITY =  :SCITY
DECLARE K CURSOR
             FOR SELECT COUNT(*)
             FROM PROJ
             WHERE CITY =  :PCITY
DECLARE L CURSOR
             FOR SELECT MAX(BUDGET)
             FROM PROJ
             WHERE CITY =  :PCITY


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

PROCEDURE SUB1 SQLCODE;
    OPEN B;

PROCEDURE SUB2 SQLCODE
    :EMPNO1 CHAR(3)
    :PNO1 CHAR(3);
      FETCH B INTO  :EMPNO1, :PNO1;

PROCEDURE SUB3 SQLCODE
    :EMPNO1 CHAR(3);
    OPEN D;

PROCEDURE SUB4 SQLCODE
    :PNO1 CHAR(3);
    OPEN E;

PROCEDURE SUB5 SQLCODE
    :SCITY CHAR(15);
      FETCH D INTO  :SCITY;

PROCEDURE SUB6 SQLCODE
    :PCITY CHAR(15);
      FETCH E INTO  :PCITY;

PROCEDURE SUB7 SQLCODE
    :EMPNO1 CHAR(3);
    OPEN F;

PROCEDURE SUB8 SQLCODE
    :PNO1 CHAR(3);
    OPEN G;

PROCEDURE SUB9 SQLCODE
    :SCITY CHAR(15);
    OPEN H;

PROCEDURE SUB10 SQLCODE
    :PCITY CHAR(15);
    OPEN I;

PROCEDURE SUB11 SQLCODE
    :SCITY CHAR(15);
    OPEN J;

PROCEDURE SUB12 SQLCODE
    :PCITY CHAR(15);
    OPEN K;

PROCEDURE SUB13 SQLCODE
    :PCITY CHAR(15);
    OPEN L;

PROCEDURE SUB14 SQLCODE
    :FSUM NUMERIC (9);
      FETCH F INTO  :FSUM;

PROCEDURE SUB15 SQLCODE
    :GSUM NUMERIC (9);
      FETCH G INTO  :GSUM;

PROCEDURE SUB16 SQLCODE
    :HSUM NUMERIC (9);
      FETCH H INTO  :HSUM;

PROCEDURE SUB17 SQLCODE
    :ISUM NUMERIC (9);
      FETCH I INTO  :ISUM;

PROCEDURE SUB18 SQLCODE
    :JCOUNT NUMERIC (9);
      FETCH J INTO  :JCOUNT;

PROCEDURE SUB19 SQLCODE
    :KCOUNT NUMERIC (9);
      FETCH K INTO  :KCOUNT;

PROCEDURE SUB20 SQLCODE
    :LMAX NUMERIC (9);
      FETCH L INTO  :LMAX;

PROCEDURE SUB21 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0224','pass','MCO');

PROCEDURE SUB22 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0224','fail','MCO');

PROCEDURE SUB23 SQLCODE;
      COMMIT WORK;