Quelle  dml058.mco

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

MODULE DML058
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE SUN CURSOR  
             FOR SELECT NUMKEY FROM UPUNIQ
             ORDER BY NUMKEY DESC


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

PROCEDURE SUB1 SQLCODE;
      DELETE FROM STAFF1;

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

PROCEDURE SUB3 SQLCODE
    :II NUMERIC (9);
      SELECT COUNT(*) INTO  :II
                  FROM STAFF1;

PROCEDURE SUB4 SQLCODE;
      INSERT INTO STAFF1
                  VALUES ('E9','Tom',50,'London');

PROCEDURE SUB5 SQLCODE;
      UPDATE STAFF1
                  SET GRADE = 40
                  WHERE EMPNUM = 'E2';

PROCEDURE SUB6 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB7 SQLCODE;
      DELETE FROM STAFF1;

PROCEDURE SUB8 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB9 SQLCODE
    :I NUMERIC (9);
      SELECT COUNT(*) INTO  :I
                  FROM STAFF1
                  WHERE GRADE > 12;

PROCEDURE SUB10 SQLCODE;
      DELETE FROM STAFF1;

PROCEDURE SUB11 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0251','pass','MCO');

PROCEDURE SUB12 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0251','fail','MCO');

PROCEDURE SUB13 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB14 SQLCODE;
      DELETE FROM STAFF1;

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

PROCEDURE SUB16 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB17 SQLCODE;
      INSERT INTO STAFF1
                  VALUES ('E10','Tom',50,'London');

PROCEDURE SUB18 SQLCODE;
      UPDATE STAFF1
                  SET GRADE = 40
                  WHERE EMPNUM = 'E1';

PROCEDURE SUB19 SQLCODE;
      DELETE FROM STAFF1
                  WHERE EMPNUM = 'E2';

PROCEDURE SUB20 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB21 SQLCODE
    :I NUMERIC (9);
      SELECT SUM(GRADE) INTO  :I
                  FROM STAFF1;

PROCEDURE SUB22 SQLCODE;
      DELETE FROM STAFF1;

PROCEDURE SUB23 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0252','pass','MCO');

PROCEDURE SUB24 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0252','fail','MCO');

PROCEDURE SUB25 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB26 SQLCODE;
    OPEN SUN;

PROCEDURE SUB27 SQLCODE;
      CLOSE SUN;

PROCEDURE SUB28 SQLCODE
    :I NUMERIC (9)
    :II NUMERIC (9);
      SELECT MAX(NUMKEY), MIN(NUMKEY)
                  INTO    :I, :II
                  FROM   UPUNIQ;

PROCEDURE SUB29 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB30 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0253','pass','MCO');

PROCEDURE SUB31 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0253','fail','MCO');

PROCEDURE SUB32 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB33 SQLCODE;
      DELETE FROM PROJ1;

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

PROCEDURE SUB35 SQLCODE;
      UPDATE PROJ1
                  SET  CITY = PTYPE;

PROCEDURE SUB36 SQLCODE
    :CITY1 CHAR(15);
      SELECT CITY INTO  :CITY1
                  FROM PROJ1
                  WHERE PNUM = 'P1';

PROCEDURE SUB37 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB38 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0254','pass','MCO');

PROCEDURE SUB39 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0254','fail','MCO');

PROCEDURE SUB40 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB41 SQLCODE;
      DELETE FROM T4;

PROCEDURE SUB42 SQLCODE;
      INSERT INTO T4
                  VALUES (USER,100,'good','luck');

PROCEDURE SUB43 SQLCODE
    :TUSER1 CHAR(110);
      SELECT STR110 INTO  :TUSER1 FROM T4
                  WHERE NUM6 = 100;

PROCEDURE SUB44 SQLCODE;
      INSERT INTO T4
                  VALUES ('Hello',101,'good','luck');

PROCEDURE SUB45 SQLCODE;
      UPDATE T4
                  SET STR110 = USER
                  WHERE NUM6 = 101;

PROCEDURE SUB46 SQLCODE
    :TUSER2 CHAR(110);
      SELECT STR110 INTO  :TUSER2 FROM T4
                  WHERE NUM6 = 101;

PROCEDURE SUB47 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB48 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0255','pass','MCO');

PROCEDURE SUB49 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0255','fail','MCO');

PROCEDURE SUB50 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB51 SQLCODE;
      DELETE FROM T4;

PROCEDURE SUB52 SQLCODE;
      INSERT INTO T4
                  VALUES ('HU',100,'good','luck');

PROCEDURE SUB53 SQLCODE
    :TUSER1 CHAR(110);
      SELECT STR110 INTO  :TUSER1 FROM T4
                  WHERE STR110 = USER;

PROCEDURE SUB54 SQLCODE;
      INSERT INTO T4
                  VALUES ('Hello',101,'good','luck');

PROCEDURE SUB55 SQLCODE;
      DELETE FROM T4
                  WHERE STR110 = USER;

PROCEDURE SUB56 SQLCODE
    :II NUMERIC (9);
      SELECT COUNT(*) INTO  :II FROM T4
                  WHERE STR110 LIKE '%HU%';

PROCEDURE SUB57 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB58 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0256','pass','MCO');

PROCEDURE SUB59 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0256','fail','MCO');

PROCEDURE SUB60 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB61 SQLCODE
    :JJ NUMERIC (9);
      FETCH SUN INTO  :JJ;

PROCEDURE SUB62 SQLCODE
    :JJ NUMERIC (9);
      UPDATE UPUNIQ
                    SET NUMKEY =  :JJ + 1 
                    WHERE NUMKEY =  :JJ;