Quelle  dml020.mco

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

MODULE DML020
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE SNP1 CURSOR FOR
             SELECT EMPNUM,EMPNAME,GRADE,STAFF.CITY, PNAME, PROJ.CITY
             FROM STAFF, PROJ
             WHERE STAFF.CITY = PROJ.CITY
DECLARE SNP3 CURSOR FOR
             SELECT EMPNUM,EMPNAME,GRADE,STAFF.CITY,PNUM,PNAME,
             PTYPE,BUDGET,PROJ.CITY
             FROM STAFF, PROJ
             WHERE STAFF.CITY = PROJ.CITY
             AND GRADE <> 12
DECLARE SNP5 CURSOR FOR
             SELECT DISTINCT STAFF.CITY, PROJ.CITY
             FROM STAFF, WORKS, PROJ
             WHERE STAFF.EMPNUM = WORKS.EMPNUM
             AND WORKS.PNUM = PROJ.PNUM
DECLARE SNP6 CURSOR FOR
             SELECT FIRST1.EMPNUM, SECOND2.EMPNUM
             FROM STAFF FIRST1, STAFF SECOND2
             WHERE FIRST1.CITY = SECOND2.CITY
             AND FIRST1.EMPNUM < SECOND2.EMPNUM


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

PROCEDURE SUB1 SQLCODE;
    OPEN SNP1;

PROCEDURE SUB2 SQLCODE;
      CLOSE SNP1;

PROCEDURE SUB3 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0080','pass','MCO');

PROCEDURE SUB4 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0080','fail','MCO');

PROCEDURE SUB5 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB6 SQLCODE;
    OPEN SNP3;

PROCEDURE SUB7 SQLCODE;
      CLOSE SNP3;

PROCEDURE SUB8 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0081','pass','MCO');

PROCEDURE SUB9 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0081','fail','MCO');

PROCEDURE SUB10 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB11 SQLCODE;
    OPEN SNP5;

PROCEDURE SUB12 SQLCODE;
      CLOSE SNP5;

PROCEDURE SUB13 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0082','pass','MCO');

PROCEDURE SUB14 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0082','fail','MCO');

PROCEDURE SUB15 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB16 SQLCODE;
    OPEN SNP6;

PROCEDURE SUB17 SQLCODE;
      CLOSE SNP6;

PROCEDURE SUB18 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0083','pass','MCO');

PROCEDURE SUB19 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0083','fail','MCO');

PROCEDURE SUB20 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB21 SQLCODE
    :EMPNO1 CHAR(3)
    :EMPNA1 CHAR(20)
    :GRADE1 NUMERIC (9)
    :SCITY CHAR(15)
    :PNAME1 CHAR(20)
    :PCITY CHAR(15);
      FETCH SNP1 INTO
                     :EMPNO1, :EMPNA1, :GRADE1, :SCITY, :PNAME1, :PCITY;

PROCEDURE SUB22 SQLCODE
    :EMPNO1 CHAR(3)
    :EMPNA1 CHAR(20)
    :GRADE1 NUMERIC (9)
    :SCITY CHAR(15)
    :PPNUM CHAR(3)
    :PNAME1 CHAR(20)
    :PTYPE CHAR(15)
    :BUGET1 NUMERIC (9)
    :PCITY CHAR(15);
      FETCH SNP3 INTO
                     :EMPNO1, :EMPNA1, :GRADE1, :SCITY, :PPNUM,
                     :PNAME1, :PTYPE, :BUGET1, :PCITY;

PROCEDURE SUB23 SQLCODE
    :SCITY CHAR(15)
    :PCITY CHAR(15);
      FETCH SNP5 INTO
                     :SCITY, :PCITY;

PROCEDURE SUB24 SQLCODE
    :EMPNO1 CHAR(3)
    :PPNUM CHAR(3);
      FETCH SNP6 INTO
                     :EMPNO1, :PPNUM;