Quelle  dml054.mco

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

MODULE DML054
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE C1 CURSOR FOR
             SELECT ALL CITY FROM PROJ
DECLARE C2 CURSOR FOR
             SELECT HOURS, EMPNUM, PNUM FROM WORKS
             WHERE HOURS IN (10, 20, 40)
DECLARE C3 CURSOR FOR
             SELECT * FROM WORKS
             WHERE PNUM BETWEEN 'P2' AND 'P4'
             AND EMPNUM NOT BETWEEN 'E2' AND 'E3'
DECLARE C4 CURSOR FOR
             SELECT PNUM, EMPNUM FROM WORKS
             WHERE PNUM LIKE '_2%'
DECLARE C5 CURSOR FOR
             SELECT EMPNUM, EMPNAME FROM STAFF
             WHERE EMPNAME IS NOT NULL AND CITY IS NULL
DECLARE C6 CURSOR FOR
             SELECT EMPNAME, CITY, GRADE FROM STAFF
             WHERE EMPNAME >= 'Betty' AND EMPNUM < 'E35'
             OR CITY <= 'Deale          ' AND GRADE > 12
             OR GRADE = 13 AND CITY <> 'Akron'
DECLARE C7 CURSOR FOR
             SELECT EMPNAME, CITY, GRADE FROM STAFFV2
             WHERE EMPNAME >= 'Betty' AND EMPNUM < 'E35'
             OR CITY <= 'Deale          ' AND GRADE > 12
             OR GRADE = 13 AND CITY <> 'Akron'
DECLARE C8 CURSOR FOR
             SELECT MYTABLE.EMPNUM, MYTABLE.EMPNAME FROM STAFF MYTABLE
             WHERE MYTABLE.GRADE =12
DECLARE C9 CURSOR FOR
             SELECT EMPNAME, CITY, GRADE FROM STAFF
             WHERE NOT EMPNAME >= 'Betty' AND EMPNUM < 'E35'
             OR NOT (CITY <= 'Deale          ') AND GRADE > 9 
             AND NOT (GRADE = 13 AND CITY <> 'Akron')
             OR NOT CITY IN ('Vienna','New York','Deale')


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

PROCEDURE SUB1 SQLCODE;
    OPEN C1;

PROCEDURE SUB2 SQLCODE;
      CLOSE C1;

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

PROCEDURE SUB4 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB5 SQLCODE;
    OPEN C2;

PROCEDURE SUB6 SQLCODE;
      CLOSE C2;

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

PROCEDURE SUB8 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB9 SQLCODE;
    OPEN C3;

PROCEDURE SUB10 SQLCODE;
      CLOSE C3;

PROCEDURE SUB11 SQLCODE
    :COUNT3 NUMERIC (9);
      SELECT COUNT (*) INTO  :COUNT3 FROM WORKS;

PROCEDURE SUB12 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB15 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB16 SQLCODE;
    OPEN C4;

PROCEDURE SUB17 SQLCODE;
      CLOSE C4;

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

PROCEDURE SUB19 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB20 SQLCODE;
      INSERT INTO STAFF VALUES ('E6',NULL,11,NULL)
                 ;

PROCEDURE SUB21 SQLCODE;
      INSERT INTO STAFF VALUES ('E7',NULL,11,'Deale')
                 ;

PROCEDURE SUB22 SQLCODE;
      INSERT INTO STAFF VALUES ('E8','Mary',11,NULL)
                 ;

PROCEDURE SUB23 SQLCODE;
    OPEN C5;

PROCEDURE SUB24 SQLCODE;
      CLOSE C5;

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

PROCEDURE SUB26 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB27 SQLCODE;
    OPEN C6;

PROCEDURE SUB28 SQLCODE;
      CLOSE C6;

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

PROCEDURE SUB30 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB31 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0241','pass','MCO');

PROCEDURE SUB32 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0241','fail','MCO');

PROCEDURE SUB33 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB34 SQLCODE;
    OPEN C7;

PROCEDURE SUB35 SQLCODE;
      CLOSE C7;

PROCEDURE SUB36 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT (*) INTO  :COUNT1 
                  FROM STAFF;

PROCEDURE SUB37 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB38 SQLCODE;
    OPEN C8;

PROCEDURE SUB39 SQLCODE;
      CLOSE C8;

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

PROCEDURE SUB41 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB42 SQLCODE;
    OPEN C9;

PROCEDURE SUB43 SQLCODE;
      CLOSE C9;

PROCEDURE SUB44 SQLCODE
    :COUNT3 NUMERIC (9);
      SELECT COUNT (*) INTO  :COUNT3 
                  FROM STAFF;

PROCEDURE SUB45 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB46 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0242','pass','MCO');

PROCEDURE SUB47 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0242','fail','MCO');

PROCEDURE SUB48 SQLCODE;
      COMMIT WORK;

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

PROCEDURE SUB50 SQLCODE;
      DELETE FROM PROJ WHERE CURRENT OF C1;

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

PROCEDURE SUB52 SQLCODE;
      UPDATE WORKS SET HOURS = 10 WHERE CURRENT OF C2
                 ;

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

PROCEDURE SUB54 SQLCODE;
      DELETE FROM WORKS WHERE CURRENT OF C3;

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

PROCEDURE SUB56 SQLCODE;
      DELETE FROM WORKS WHERE CURRENT OF C4;

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

PROCEDURE SUB58 SQLCODE;
      DELETE FROM STAFF WHERE CURRENT OF C5;

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

PROCEDURE SUB60 SQLCODE;
      DELETE FROM STAFF WHERE CURRENT OF C6;

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

PROCEDURE SUB62 SQLCODE;
      DELETE FROM STAFFV2 WHERE CURRENT OF C7;

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

PROCEDURE SUB64 SQLCODE;
      DELETE FROM STAFF WHERE CURRENT OF C8;

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

PROCEDURE SUB66 SQLCODE;
      DELETE FROM STAFF WHERE CURRENT OF C9;