Quelle  dml049.mco   Sprache: unbekannt

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

MODULE DML049
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE TEN CURSOR
             FOR SELECT STAFF.EMPNUM,PROJ.PNUM,WORKS.HOURS,
             STAFF3.GRADE,STAFF4.CITY,WORKS1.HOURS,
             TEMP_S.GRADE,PROJ1.PNUM,STAFF1.GRADE,
             UPUNIQ.COL2
             FROM   STAFF,PROJ,WORKS,STAFF3,STAFF4,WORKS1,
             TEMP_S,PROJ1,STAFF1,UPUNIQ
             WHERE  STAFF.EMPNUM = WORKS.EMPNUM    AND
             PROJ.PNUM = WORKS.PNUM         AND
             STAFF3.EMPNUM = WORKS.EMPNUM   AND
             STAFF4.EMPNUM = WORKS.EMPNUM   AND
             WORKS1.EMPNUM = WORKS.EMPNUM   AND
             WORKS1.PNUM = WORKS.PNUM       AND
             TEMP_S.EMPNUM = WORKS.EMPNUM   AND
             PROJ1.PNUM = WORKS.PNUM        AND
             STAFF1.EMPNUM = WORKS.EMPNUM   AND
             UPUNIQ.COL2 = 'A'
             ORDER BY 1, 2


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

PROCEDURE SUB1 SQLCODE;
      INSERT INTO TEMP_S
                  SELECT EMPNUM,GRADE,CITY
                  FROM STAFF
                  WHERE GRADE > 11;

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

PROCEDURE SUB3 SQLCODE;
      INSERT INTO WORKS1
                  SELECT *
                  FROM WORKS;

PROCEDURE SUB4 SQLCODE;
      INSERT INTO STAFF4
                  SELECT *
                  FROM STAFF;

PROCEDURE SUB5 SQLCODE;
      INSERT INTO PROJ1
                  SELECT *
                  FROM PROJ;

PROCEDURE SUB6 SQLCODE;
    OPEN TEN;

PROCEDURE SUB7 SQLCODE
    :EMPNO1 CHAR(3)
    :PNO1 CHAR(3)
    :HOURS1 NUMERIC (9)
    :GRADE1 NUMERIC (9)
    :CITY1 CHAR(15)
    :HOURS2 NUMERIC (9)
    :GRADE2 NUMERIC (9)
    :PNO2 CHAR(3)
    :GRADE4 NUMERIC (9)
    :COLUM2 CHAR(2);
      FETCH TEN INTO
                   :EMPNO1, :PNO1, :HOURS1, :GRADE1, :CITY1, :HOURS2,
                   :GRADE2, :PNO2, :GRADE4, :COLUM2;

PROCEDURE SUB8 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB9 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0225','pass','MCO');

PROCEDURE SUB10 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0225','fail','MCO');

PROCEDURE SUB11 SQLCODE;
      COMMIT WORK;