Quelle  dml064.mco

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

MODULE DML064
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE C1 CURSOR FOR
             SELECT * FROM UPDATE_VIEW1
DECLARE C2 CURSOR FOR
             SELECT HOURS, EMPNUM, PNUM FROM UPDATE_VIEW2
DECLARE C3 CURSOR FOR
             SELECT * FROM UPDATE_VIEW3
DECLARE C4 CURSOR FOR
             SELECT PNUM, EMPNUM FROM UPDATE_VIEW4
DECLARE C5 CURSOR FOR
             SELECT EMPNUM, EMPNAME FROM UPDATE_VIEW5
DECLARE C6 CURSOR FOR
             SELECT EMPNAME, CITY, GRADE FROM UPDATE_VIEW6
DECLARE C7 CURSOR FOR
             SELECT EMPNAME, CITY, GRADE FROM UPDATE_VIEW7
DECLARE C8 CURSOR FOR
             SELECT EMPNUM, EMPNAME FROM UPDATE_VIEW8
DECLARE C9 CURSOR FOR
             SELECT EMPNAME, CITY, GRADE FROM UPDATE_VIEW9


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

PROCEDURE SUB1 SQLCODE;
      DELETE FROM UPDATE_VIEW1 WHERE CITY = 'Tampa'
                 ;

PROCEDURE SUB2 SQLCODE;
    OPEN C1;

PROCEDURE SUB3 SQLCODE;
      CLOSE C1;

PROCEDURE SUB4 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT (*) INTO  :COUNT1 FROM PROJ;

PROCEDURE SUB5 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB6 SQLCODE;
      INSERT INTO UPDATE_VIEW2 VALUES (10, 'E9', 'P7')
                 ;

PROCEDURE SUB7 SQLCODE;
    OPEN C2;

PROCEDURE SUB8 SQLCODE;
      CLOSE C2;

PROCEDURE SUB9 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT (*) INTO  :COUNT2 FROM WORKS WHERE HOURS
                  = 10;

PROCEDURE SUB10 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB11 SQLCODE;
      UPDATE UPDATE_VIEW3 SET EMPNUM = 'E7' WHERE EMPNUM =
                  'E1';

PROCEDURE SUB12 SQLCODE;
    OPEN C3;

PROCEDURE SUB13 SQLCODE;
      CLOSE C3;

PROCEDURE SUB14 SQLCODE
    :COUNT3 NUMERIC (9);
      SELECT COUNT (*) INTO  :COUNT3 FROM WORKS WHERE
                  EMPNUM = 'E7';

PROCEDURE SUB15 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB16 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0281','pass','MCO');

PROCEDURE SUB17 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0281','fail','MCO');

PROCEDURE SUB18 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB19 SQLCODE;
      DELETE FROM UPDATE_VIEW4 WHERE EMPNUM = 'E1'
                 ;

PROCEDURE SUB20 SQLCODE;
    OPEN C4;

PROCEDURE SUB21 SQLCODE;
      CLOSE C4;

PROCEDURE SUB22 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT (*) INTO  :COUNT1 
                  FROM WORKS;

PROCEDURE SUB23 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB24 SQLCODE;
      INSERT INTO UPDATE_VIEW5 VALUES ('E6',NULL,11,NULL)
                 ;

PROCEDURE SUB25 SQLCODE;
      INSERT INTO UPDATE_VIEW5 VALUES
                  ('E7',NULL,11,'Deale');

PROCEDURE SUB26 SQLCODE;
      INSERT INTO UPDATE_VIEW5 VALUES
                  ('E8','Mary',11,NULL);

PROCEDURE SUB27 SQLCODE;
    OPEN C5;

PROCEDURE SUB28 SQLCODE;
      CLOSE C5;

PROCEDURE SUB29 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT (*) INTO  :COUNT2 
                  FROM STAFF;

PROCEDURE SUB30 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB31 SQLCODE;
      UPDATE UPDATE_VIEW6 SET GRADE = 12 WHERE CITY =
                  'Vienna';

PROCEDURE SUB32 SQLCODE;
    OPEN C6;

PROCEDURE SUB33 SQLCODE;
      CLOSE C6;

PROCEDURE SUB34 SQLCODE
    :COUNT3 NUMERIC (9);
      SELECT COUNT (*) INTO  :COUNT3 
                  FROM STAFF WHERE GRADE = 13;

PROCEDURE SUB35 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB36 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0282','pass','MCO');

PROCEDURE SUB37 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0282','fail','MCO');

PROCEDURE SUB38 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB39 SQLCODE;
      UPDATE UPDATE_VIEW7 SET GRADE = 15;

PROCEDURE SUB40 SQLCODE;
    OPEN C7;

PROCEDURE SUB41 SQLCODE;
      CLOSE C7;

PROCEDURE SUB42 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT (*) INTO  :COUNT1 
                  FROM STAFF WHERE GRADE = 15;

PROCEDURE SUB43 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB44 SQLCODE;
      INSERT INTO UPDATE_VIEW8 VALUES ('E6','GEORGE')
                 ;

PROCEDURE SUB45 SQLCODE;
      INSERT INTO UPDATE_VIEW8 VALUES ('E7','SHARA')
                 ;

PROCEDURE SUB46 SQLCODE;
      INSERT INTO UPDATE_VIEW8 VALUES ('E8','DAVID')
                 ;

PROCEDURE SUB47 SQLCODE;
      INSERT INTO UPDATE_VIEW8 VALUES ('E9','JOHNNY')
                 ;

PROCEDURE SUB48 SQLCODE;
    OPEN C8;

PROCEDURE SUB49 SQLCODE;
      CLOSE C8;

PROCEDURE SUB50 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT (*) INTO  :COUNT2 FROM STAFF
                  WHERE GRADE IS NULL OR EMPNAME = 'Kathy';

PROCEDURE SUB51 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB52 SQLCODE;
      DELETE FROM UPDATE_VIEW9 WHERE GRADE = 12;

PROCEDURE SUB53 SQLCODE;
    OPEN C9;

PROCEDURE SUB54 SQLCODE;
      CLOSE C9;

PROCEDURE SUB55 SQLCODE
    :COUNT3 NUMERIC (9);
      SELECT COUNT (*) INTO  :COUNT3 
                  FROM STAFF WHERE GRADE = 15;

PROCEDURE SUB56 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB57 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0283','pass','MCO');

PROCEDURE SUB58 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0283','fail','MCO');

PROCEDURE SUB59 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB60 SQLCODE
    :CITY1 CHAR(15);
      FETCH C1 INTO  :CITY1;

PROCEDURE SUB61 SQLCODE;
      DELETE FROM UPDATE_VIEW1 WHERE CURRENT OF C1
                 ;

PROCEDURE SUB62 SQLCODE
    :HOURS1 NUMERIC (9)
    :EMPNO CHAR(3)
    :PNUM1 CHAR(3);
      FETCH C2 INTO  :HOURS1,  :EMPNO,  :PNUM1;

PROCEDURE SUB63 SQLCODE;
      UPDATE UPDATE_VIEW2 SET HOURS = 10 WHERE CURRENT
                  OF C2;

PROCEDURE SUB64 SQLCODE
    :EMPNO CHAR(3)
    :PNUM1 CHAR(3)
    :HOURS1 NUMERIC (9);
      FETCH C3 INTO  :EMPNO,  :PNUM1,  :HOURS1;

PROCEDURE SUB65 SQLCODE;
      DELETE FROM UPDATE_VIEW3 WHERE CURRENT OF C3
                 ;

PROCEDURE SUB66 SQLCODE
    :PNUM1 CHAR(3)
    :EMPNO CHAR(3);
      FETCH C4 INTO  :PNUM1,  :EMPNO;

PROCEDURE SUB67 SQLCODE;
      DELETE FROM UPDATE_VIEW4 WHERE CURRENT OF C4
                 ;

PROCEDURE SUB68 SQLCODE
    :EMPNO CHAR(3)
    :EMPNAM CHAR(20);
      FETCH C5 INTO  :EMPNO,  :EMPNAM;

PROCEDURE SUB69 SQLCODE;
      DELETE FROM UPDATE_VIEW5 WHERE CURRENT OF C5
                 ;

PROCEDURE SUB70 SQLCODE
    :EMPNAM CHAR(20)
    :CITY1 CHAR(15)
    :GRADE1 NUMERIC (9);
      FETCH C6 INTO  :EMPNAM, :CITY1, :GRADE1;

PROCEDURE SUB71 SQLCODE;
      DELETE FROM UPDATE_VIEW6 WHERE CURRENT OF C6
                 ;

PROCEDURE SUB72 SQLCODE
    :EMPNAM CHAR(20)
    :CITY1 CHAR(15)
    :GRADE1 NUMERIC (9);
      FETCH C7 INTO  :EMPNAM,  :CITY1,  :GRADE1;

PROCEDURE SUB73 SQLCODE;
      DELETE FROM UPDATE_VIEW7 WHERE CURRENT OF C7
                 ;

PROCEDURE SUB74 SQLCODE
    :EMPNO CHAR(3)
    :EMPNAM CHAR(20);
      FETCH C8 INTO  :EMPNO,  :EMPNAM;

PROCEDURE SUB75 SQLCODE;
      UPDATE UPDATE_VIEW8 SET EMPNAME = 'Kathy' WHERE
                  CURRENT OF C8;

PROCEDURE SUB76 SQLCODE
    :EMPNAM CHAR(20)
    :CITY1 CHAR(15)
    :GRADE1 NUMERIC (9);
      FETCH C9 INTO  :EMPNAM,  :CITY1,  :GRADE1;

PROCEDURE SUB77 SQLCODE;
      UPDATE UPDATE_VIEW9 SET GRADE = 15 WHERE CURRENT
                  OF C9;