Quelle  dml069.mco

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

MODULE DML069
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE SMURF CURSOR FOR
               SELECT PNUM, HOURS FROM WORKS
               WHERE  EMPNUM = 'E1'
               ORDER BY HOURS DESC
DECLARE BEE CURSOR FOR
               SELECT PNUM, HOURS FROM WORKS
               WHERE EMPNUM = 'E1'
               ORDER BY HOURS DESC
DECLARE FLOWER CURSOR FOR
               SELECT COL1, COL2 FROM CUGINI.VTABLE
               ORDER BY COL1 DESC
DECLARE TURTLE CURSOR FOR
               SELECT * FROM WORKS1
               WHERE EMPNUM = 'P2'
               ORDER BY EMPNUM, PNUM ASC


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

PROCEDURE SUB1 SQLCODE;
    OPEN SMURF;

PROCEDURE SUB2 SQLCODE
    :PNUM1 CHAR(2)
    :HOURS1 NUMERIC (9);
      FETCH SMURF INTO  :PNUM1,  :HOURS1;

PROCEDURE SUB3 SQLCODE
    :PNUM2 CHAR(9)
    :HOURS2 NUMERIC (9,2);
      FETCH SMURF INTO  :PNUM2,  :HOURS2;

PROCEDURE SUB4 SQLCODE;
      CLOSE SMURF;

PROCEDURE SUB5 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0404','pass','MCO');

PROCEDURE SUB6 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0404','fail','MCO');

PROCEDURE SUB7 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB8 SQLCODE;
      DELETE FROM CUGINI.VTABLE;

PROCEDURE SUB9 SQLCODE;
      INSERT INTO CUGINI.VTABLE
                    VALUES (80, 100, 100, 100, 100.0);

PROCEDURE SUB10 SQLCODE;
      INSERT INTO CUGINI.VTABLE
                    VALUES (40, 200, 100, 100, 100.0);

PROCEDURE SUB11 SQLCODE;
    OPEN FLOWER;

PROCEDURE SUB12 SQLCODE;
      CLOSE FLOWER;

PROCEDURE SUB13 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB14 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0405','pass','MCO');

PROCEDURE SUB15 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0405','fail','MCO');

PROCEDURE SUB16 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB17 SQLCODE;
      DELETE FROM CUGINI.VTABLE;

PROCEDURE SUB18 SQLCODE;
      INSERT INTO CUGINI.VTABLE
                    VALUES (80, 100, 100, 100, 100.0);

PROCEDURE SUB19 SQLCODE;
      INSERT INTO CUGINI.VTABLE
                    VALUES (40, 200, 100, 100, 100.0);

PROCEDURE SUB20 SQLCODE
    :PNUM1 CHAR(2);
      SELECT PNUM INTO  :PNUM1 FROM WORKS
                    WHERE EMPNUM = 'E1' AND HOURS IN 
                    (SELECT COL1 FROM CUGINI.VTABLE
                    WHERE  COL1 > 50);

PROCEDURE SUB21 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB22 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0406','pass','MCO');

PROCEDURE SUB23 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0406','fail','MCO');

PROCEDURE SUB24 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB25 SQLCODE
    :PNUM1 CHAR(2)
    :HOURS1 NUMERIC (9);
      SELECT  PNUM, HOURS INTO  :PNUM1,  :HOURS1
                    FROM WORKS
                    WHERE   :HOURS1 < HOURS AND PNUM >  :PNUM1;

PROCEDURE SUB26 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0407','pass','MCO');

PROCEDURE SUB27 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0407','fail','MCO');

PROCEDURE SUB28 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB29 SQLCODE;
      DELETE FROM WORKS1;

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

PROCEDURE SUB31 SQLCODE;
      UPDATE WORKS1
                    SET PNUM = EMPNUM, EMPNUM = PNUM, HOURS = (HOURS + 3) *
                  HOURS;

PROCEDURE SUB32 SQLCODE;
    OPEN TURTLE;

PROCEDURE SUB33 SQLCODE
    :EMPNO1 CHAR(2)
    :PNUM1 CHAR(2)
    :HOURS1 NUMERIC (9);
      FETCH TURTLE INTO  :EMPNO1,  :PNUM1,  :HOURS1
                 ;

PROCEDURE SUB34 SQLCODE
    :EMPNO1 CHAR(2)
    :PNUM1 CHAR(2)
    :HOURS1 NUMERIC (9);
      FETCH TURTLE INTO  :EMPNO1,  :PNUM1,  :HOURS1
                 ;

PROCEDURE SUB35 SQLCODE
    :EMPNO1 CHAR(2)
    :PNUM1 CHAR(2)
    :HOURS1 NUMERIC (9);
      FETCH TURTLE INTO  :EMPNO1,  :PNUM1,  :HOURS1
                 ;

PROCEDURE SUB36 SQLCODE
    :EMPNO1 CHAR(2)
    :PNUM1 CHAR(2)
    :HOURS1 NUMERIC (9);
      FETCH TURTLE INTO  :EMPNO1,  :PNUM1,  :HOURS1
                 ;

PROCEDURE SUB37 SQLCODE;
      CLOSE TURTLE;

PROCEDURE SUB38 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB41 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB42 SQLCODE
    :TEMP1 NUMERIC (9)
    :TEMP2 NUMERIC (9);
      FETCH FLOWER INTO  :TEMP1,  :TEMP2;

PROCEDURE SUB43 SQLCODE;
    OPEN BEE;

PROCEDURE SUB44 SQLCODE;
      CLOSE BEE;

PROCEDURE SUB45 SQLCODE
    :PNUM1 CHAR(2)
    :HOURS1 NUMERIC (9);
      FETCH BEE INTO  :PNUM1,  :HOURS1;