Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/sources/formale Sprachen/Cobol/Test-Suite/SQL M/ Datei vom 4.1.2008 mit Größe 18 kB

Quelle dml135.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module dml135.mco
-- 59-byte ID
--
MODULE DML135
LANGUAGE COBOL
AUTHORIZATION FLATER

DECLARE C13511  CURSOR FOR
               SELECT * FROM PTYPES ORDER BY NUM
DECLARE C13512  CURSOR FOR S13512
DECLARE C13521  CURSOR FOR
               SELECT TABLE_NAME, TABLE_TYPE, COLUMN_NAME,
               EXTRACT (HOUR FROM CREATE_TIME)
               FROM TABLESCOLUMNS
               ORDER BY TABLE_NAME, COLUMN_NAME
               FOR READ ONLY
DECLARE C13531  CURSOR FOR
               SELECT EXTRACT (HOUR FROM HOURS),
               EXTRACT (MINUTE FROM HOURS)
               FROM PROJ_HOURS ORDER BY PNUM
DECLARE C13532  CURSOR FOR
               SELECT EXTRACT (SECOND FROM RUN_SECONDS)
               FROM TYPE_TIMES ORDER BY JOB_TYPE
DECLARE C13541  CURSOR FOR
               SELECT GRADE FROM HU.STAFF
               FOR READ ONLY
DECLARE C13542  CURSOR FOR
               SELECT * FROM HU.STAFF
               FOR UPDATE OF GRADE, CITY
DECLARE C13543  CURSOR FOR
               SELECT * FROM HU.STAFF
               FOR UPDATE

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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB3 SQLCODE SQLSTATE;
      CREATE TABLE "Proj" (
                    PNUM     CHAR(3) PRIMARY KEY,
                    PNAME    CHAR(20),
                    PTYPE    CHAR(6)    DEFAULT 'Code',
                    BUDGET   DECIMAL(9) DEFAULT 10000,
                    CITY     CHAR(15)   DEFAULT 'Berlin');

PROCEDURE SUB4 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB5 SQLCODE SQLSTATE;
      CREATE VIEW "PTypes" ("TYPE", NUM) AS
                    SELECT PTYPE, COUNT(*) FROM "Proj"
                    GROUP BY PTYPE;

PROCEDURE SUB6 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB7 SQLCODE SQLSTATE;
      CREATE VIEW PTYPES AS
                    SELECT * FROM "PTypes"
                    WHERE NUM > 1;

PROCEDURE SUB8 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB9 SQLCODE SQLSTATE;
      CREATE TABLE "Works" (
                    EMPNUM   CHAR(3),
                    PNUM     CHAR(3)
                    REFERENCES "Proj" ON DELETE CASCADE,
                    HOURS    DECIMAL(5),
                    PRIMARY KEY (EMPNUM,PNUM));

PROCEDURE SUB10 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB11 SQLCODE SQLSTATE;
      CREATE VIEW "PStaff" (PNUM, NUM) AS
                    SELECT PNUM, COUNT(*) FROM "Works"
                    WHERE HOURS >= 20
                    GROUP BY PNUM;

PROCEDURE SUB12 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB13 SQLCODE SQLSTATE;
      INSERT INTO "Proj"
                    SELECT * FROM Hu.Proj;

PROCEDURE SUB14 SQLCODE SQLSTATE;
      INSERT INTO "Proj" (PNUM, PNAME, BUDGET)
                    VALUES ('P7', 'FROB', DEFAULT);

PROCEDURE SUB15 SQLCODE SQLSTATE;
      INSERT INTO "Proj" (PNUM, PNAME, BUDGET)
                    VALUES ('P8', 'BORF', 15000);

PROCEDURE SUB16 SQLCODE SQLSTATE;
      INSERT INTO "Proj" (PNUM, PNAME, PTYPE)
                    VALUES ('P9', 'FORB', DEFAULT);

PROCEDURE SUB17 SQLCODE SQLSTATE;
      INSERT INTO "Proj" VALUES
                    ('P10', 'ROBF', 'Docs', 1000, 'Sofia');

PROCEDURE SUB18 SQLCODE SQLSTATE;
      INSERT INTO "Works"
                    SELECT * FROM Hu.Works;

PROCEDURE SUB19 SQLCODE SQLSTATE;
    OPEN C13511;

PROCEDURE SUB20 SQLCODE SQLSTATE
    :TCHAR CHAR(6)
    :INT1 NUMERIC (9);
      FETCH C13511 INTO :TCHAR, :INT1;

PROCEDURE SUB21 SQLCODE SQLSTATE
    :TCHAR CHAR(6)
    :INT1 NUMERIC (9);
      FETCH C13511 INTO :TCHAR, :INT1;

PROCEDURE SUB22 SQLCODE SQLSTATE
    :TCHAR CHAR(6)
    :INT1 NUMERIC (9);
      FETCH C13511 INTO :TCHAR, :INT1;

PROCEDURE SUB23 SQLCODE SQLSTATE
    :TCHAR CHAR(6)
    :INT1 NUMERIC (9);
      FETCH C13511 INTO :TCHAR, :INT1;

PROCEDURE SUB24 SQLCODE SQLSTATE;
      CLOSE C13511;

PROCEDURE SUB25 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB26 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT NUM, COUNT(*) FROM "PStaff"' ||
                    '  GROUP BY NUM ORDER BY NUM'
                    );

PROCEDURE SUB27 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      SELECT ZZ INTO :LONGST FROM CONCATBUF;

PROCEDURE SUB28 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S13512 FROM :LONGST;

PROCEDURE SUB29 SQLCODE SQLSTATE;
    OPEN C13512;

PROCEDURE SUB30 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      FETCH C13512 INTO :INT1, :INT2;

PROCEDURE SUB31 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      FETCH C13512 INTO :INT1, :INT2;

PROCEDURE SUB32 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      FETCH C13512 INTO :INT1, :INT2;

PROCEDURE SUB33 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      FETCH C13512 INTO :INT1, :INT2;

PROCEDURE SUB34 SQLCODE SQLSTATE;
      CLOSE C13512;

PROCEDURE SUB35 SQLCODE SQLSTATE;
      DELETE FROM "Proj" WHERE PTYPE = 'Design'
                 ;

PROCEDURE SUB37 SQLCODE SQLSTATE
    :TCHAR CHAR(6)
    :INT1 NUMERIC (9);
      FETCH C13511 INTO :TCHAR, :INT1;

PROCEDURE SUB38 SQLCODE SQLSTATE
    :TCHAR CHAR(6)
    :INT1 NUMERIC (9);
      FETCH C13511 INTO :TCHAR, :INT1;

PROCEDURE SUB39 SQLCODE SQLSTATE
    :TCHAR CHAR(6)
    :INT1 NUMERIC (9);
      FETCH C13511 INTO :TCHAR, :INT1;

PROCEDURE SUB40 SQLCODE SQLSTATE;
      CLOSE C13511;

PROCEDURE SUB42 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      FETCH C13512 INTO :INT1, :INT2;

PROCEDURE SUB43 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      FETCH C13512 INTO :INT1, :INT2;

PROCEDURE SUB44 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      FETCH C13512 INTO :INT1, :INT2;

PROCEDURE SUB45 SQLCODE SQLSTATE;
      CLOSE C13512;

PROCEDURE SUB46 SQLCODE SQLSTATE;
      ROLLBACK;

PROCEDURE SUB47 SQLCODE SQLSTATE;
      DROP TABLE "Proj" CASCADE;

PROCEDURE SUB48 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB49 SQLCODE SQLSTATE;
      DROP TABLE "Works" CASCADE;

PROCEDURE SUB50 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB51 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0692','pass','MCO');

PROCEDURE SUB52 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0692','fail','MCO');

PROCEDURE SUB53 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB54 SQLCODE SQLSTATE;
      CREATE TABLE CreationTimes (
                    TABLE_SCHEM CHAR (50),
                    TABLE_NAME  CHAR (50),
                    CREATE_TIME TIMESTAMP);

PROCEDURE SUB55 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB56 SQLCODE SQLSTATE;
      CREATE VIEW TablesColumns AS
                    SELECT TABLE_SCHEM, TABLE_NAME,
                    TABLE_TYPE, COLUMN_NAME, CREATE_TIME
                    FROM Info_Schem.Tables
                    NATURAL JOIN Info_Schem.Columns
                    NATURAL JOIN CreationTimes;

PROCEDURE SUB57 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB58 SQLCODE SQLSTATE;
      INSERT INTO CREATIONTIMES VALUES
                    ('FLATER', 'CREATIONTIMES',
                    TIMESTAMP '1994-09-01 16:15:00');

PROCEDURE SUB59 SQLCODE SQLSTATE;
      INSERT INTO CREATIONTIMES VALUES
                    ('FLATER', 'TABLESCOLUMNS', DEFAULT);

PROCEDURE SUB60 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB61 SQLCODE SQLSTATE;
      SET TRANSACTION READ ONLY;

PROCEDURE SUB62 SQLCODE SQLSTATE;
    OPEN C13521;

PROCEDURE SUB63 SQLCODE SQLSTATE
    :TNAME CHAR(18)
    :TTYPE CHAR(10)
    :CNAME CHAR(18)
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C13521
                    INTO :TNAME, :TTYPE, :CNAME, :INT1:INDIC1;

PROCEDURE SUB64 SQLCODE SQLSTATE
    :TNAME CHAR(18)
    :TTYPE CHAR(10)
    :CNAME CHAR(18)
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C13521
                    INTO :TNAME, :TTYPE, :CNAME, :INT1:INDIC1;

PROCEDURE SUB65 SQLCODE SQLSTATE
    :TNAME CHAR(18)
    :TTYPE CHAR(10)
    :CNAME CHAR(18)
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C13521
                    INTO :TNAME, :TTYPE, :CNAME, :INT1:INDIC1;

PROCEDURE SUB66 SQLCODE SQLSTATE
    :TNAME CHAR(18)
    :TTYPE CHAR(10)
    :CNAME CHAR(18)
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C13521
                    INTO :TNAME, :TTYPE, :CNAME, :INT1:INDIC1;

PROCEDURE SUB67 SQLCODE SQLSTATE
    :TNAME CHAR(18)
    :TTYPE CHAR(10)
    :CNAME CHAR(18)
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C13521
                    INTO :TNAME, :TTYPE, :CNAME, :INT1:INDIC1;

PROCEDURE SUB68 SQLCODE SQLSTATE
    :TNAME CHAR(18)
    :TTYPE CHAR(10)
    :CNAME CHAR(18)
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C13521
                    INTO :TNAME, :TTYPE, :CNAME, :INT1:INDIC1;

PROCEDURE SUB69 SQLCODE SQLSTATE
    :TNAME CHAR(18)
    :TTYPE CHAR(10)
    :CNAME CHAR(18)
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C13521
                    INTO :TNAME, :TTYPE, :CNAME, :INT1:INDIC1;

PROCEDURE SUB70 SQLCODE SQLSTATE
    :TNAME CHAR(18)
    :TTYPE CHAR(10)
    :CNAME CHAR(18)
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C13521
                    INTO :TNAME, :TTYPE, :CNAME, :INT1:INDIC1;

PROCEDURE SUB71 SQLCODE SQLSTATE
    :TNAME CHAR(18)
    :TTYPE CHAR(10)
    :CNAME CHAR(18)
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C13521
                    INTO :TNAME, :TTYPE, :CNAME, :INT1:INDIC1;

PROCEDURE SUB72 SQLCODE SQLSTATE;
      INSERT INTO CREATIONTIMES VALUES
                    ('FLATER', 'USIG', DEFAULT);

PROCEDURE SUB73 SQLCODE SQLSTATE;
      ROLLBACK;

PROCEDURE SUB74 SQLCODE SQLSTATE;
      DROP TABLE CreationTimes CASCADE;

PROCEDURE SUB75 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB76 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0693','pass','MCO');

PROCEDURE SUB77 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0693','fail','MCO');

PROCEDURE SUB78 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB79 SQLCODE SQLSTATE;
      CREATE TABLE WORKS (
                    EMPNUM CHAR (3) NOT NULL,
                    PNUM CHAR (3) NOT NULL,
                    HOURS DECIMAL (5),
                    UNIQUE(EMPNUM,PNUM));

PROCEDURE SUB80 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB81 SQLCODE SQLSTATE;
      CREATE VIEW PROJ_HOURS (PNUM, HOURS) AS
                    SELECT PNUM, AVG (HOURS) * INTERVAL '01:00' HOUR TO
                  MINUTE
                    FROM WORKS GROUP BY PNUM;

PROCEDURE SUB82 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB83 SQLCODE SQLSTATE;
      CREATE VIEW PROJ_HOURS2 (PNUM, HOURS) AS
                    SELECT PNUM,
                    AVG (CAST (CAST (HOURS AS INTERVAL HOUR)
                    AS INTERVAL HOUR TO MINUTE))
                    FROM WORKS GROUP BY PNUM;

PROCEDURE SUB84 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB85 SQLCODE SQLSTATE;
      CREATE TABLE RUN_TIMES (
                    JOB_ID INT NOT NULL UNIQUE,
                    JOB_TYPE CHAR (3) NOT NULL,
                    RUN_SECONDS REAL);

PROCEDURE SUB86 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB87 SQLCODE SQLSTATE;
      CREATE VIEW TYPE_TIMES (JOB_TYPE, RUN_SECONDS) AS
                    SELECT JOB_TYPE,
                    AVG (RUN_SECONDS) * INTERVAL '01.000000' SECOND
                    FROM RUN_TIMES GROUP BY JOB_TYPE;

PROCEDURE SUB88 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB89 SQLCODE SQLSTATE;
      CREATE VIEW TYPE_TIMES2 (JOB_TYPE, RUN_SECONDS) AS
                    SELECT JOB_TYPE,
                    CAST (CAST (AVG (RUN_SECONDS) AS NUMERIC (8, 6))
                    AS INTERVAL SECOND)
                    FROM RUN_TIMES GROUP BY JOB_TYPE;

PROCEDURE SUB90 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB91 SQLCODE SQLSTATE;
      CREATE VIEW HUNDREDS (WORKTOTL) AS
                    SELECT SUM (CAST (HOURS AS INTERVAL DAY TO MINUTE)) / 100
                    FROM PROJ_HOURS;

PROCEDURE SUB92 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB93 SQLCODE SQLSTATE;
      INSERT INTO WORKS
                    SELECT * FROM HU.WORKS;

PROCEDURE SUB94 SQLCODE SQLSTATE;
      INSERT INTO WORKS VALUES
                    ('EX', 'P1', 50);

PROCEDURE SUB95 SQLCODE SQLSTATE;
      INSERT INTO WORKS VALUES
                    ('EX', 'P3', 25);

PROCEDURE SUB96 SQLCODE SQLSTATE;
      INSERT INTO RUN_TIMES VALUES
                    (0, 'DMP', 1.22);

PROCEDURE SUB97 SQLCODE SQLSTATE;
      INSERT INTO RUN_TIMES VALUES
                    (1, 'DMP', .49);

PROCEDURE SUB98 SQLCODE SQLSTATE;
      INSERT INTO RUN_TIMES VALUES
                    (2, 'CHK', 5.2);

PROCEDURE SUB99 SQLCODE SQLSTATE;
      INSERT INTO RUN_TIMES VALUES
                    (3, 'CHK', 4.04);

PROCEDURE SUB100 SQLCODE SQLSTATE;
      INSERT INTO RUN_TIMES VALUES
                    (4, 'CHK', 23.74);

PROCEDURE SUB101 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM PROJ_HOURS A, PROJ_HOURS2 B
                    WHERE A.PNUM = B.PNUM
                    AND (A.HOURS - B.HOURS) HOUR TO MINUTE
                    BETWEEN INTERVAL '-1' MINUTE AND INTERVAL '+1' MINUTE
                 ;

PROCEDURE SUB102 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM TYPE_TIMES A, TYPE_TIMES2 B
                    WHERE A.JOB_TYPE = B.JOB_TYPE
                    AND (A.RUN_SECONDS - B.RUN_SECONDS) SECOND
                    BETWEEN INTERVAL '-00.000010' SECOND
                    AND INTERVAL '+00.000010' SECOND;

PROCEDURE SUB103 SQLCODE SQLSTATE;
    OPEN C13531;

PROCEDURE SUB104 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      FETCH C13531 INTO :INT1, :INT2;

PROCEDURE SUB105 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      FETCH C13531 INTO :INT1, :INT2;

PROCEDURE SUB106 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      FETCH C13531 INTO :INT1, :INT2;

PROCEDURE SUB107 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      FETCH C13531 INTO :INT1, :INT2;

PROCEDURE SUB108 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      FETCH C13531 INTO :INT1, :INT2;

PROCEDURE SUB109 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      FETCH C13531 INTO :INT1, :INT2;

PROCEDURE SUB110 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      FETCH C13531 INTO :INT1, :INT2;

PROCEDURE SUB111 SQLCODE SQLSTATE;
      CLOSE C13531;

PROCEDURE SUB112 SQLCODE SQLSTATE;
    OPEN C13532;

PROCEDURE SUB113 SQLCODE SQLSTATE
    :FLT1 NUMERIC (8,4);
      FETCH C13532 INTO :FLT1;

PROCEDURE SUB114 SQLCODE SQLSTATE
    :FLT1 NUMERIC (8,4);
      FETCH C13532 INTO :FLT1;

PROCEDURE SUB115 SQLCODE SQLSTATE
    :FLT1 NUMERIC (8,4);
      FETCH C13532 INTO :FLT1;

PROCEDURE SUB116 SQLCODE SQLSTATE;
      CLOSE C13532;

PROCEDURE SUB117 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT EXTRACT (DAY FROM WORKTOTL)
                    INTO :INT1 FROM HUNDREDS;

PROCEDURE SUB118 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT EXTRACT (HOUR FROM WORKTOTL)
                    INTO :INT1 FROM HUNDREDS;

PROCEDURE SUB119 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT EXTRACT (MINUTE FROM WORKTOTL)
                    INTO :INT1 FROM HUNDREDS;

PROCEDURE SUB120 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB121 SQLCODE SQLSTATE;
      DROP TABLE WORKS CASCADE;

PROCEDURE SUB122 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB123 SQLCODE SQLSTATE;
      DROP TABLE RUN_TIMES CASCADE;

PROCEDURE SUB124 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB125 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0694','pass','MCO');

PROCEDURE SUB126 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0694','fail','MCO');

PROCEDURE SUB127 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB128 SQLCODE SQLSTATE;
    OPEN C13541;

PROCEDURE SUB129 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C13541 INTO :INT1;

PROCEDURE SUB130 SQLCODE SQLSTATE;
      UPDATE HU.STAFF
                    SET GRADE = 11 WHERE CURRENT OF C13541;

PROCEDURE SUB131 SQLCODE SQLSTATE;
      CLOSE C13541;

PROCEDURE SUB133 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C13541 INTO :INT1;

PROCEDURE SUB134 SQLCODE SQLSTATE;
      DELETE FROM HU.STAFF
                    WHERE CURRENT OF C13541;

PROCEDURE SUB135 SQLCODE SQLSTATE;
      CLOSE C13541;

PROCEDURE SUB136 SQLCODE SQLSTATE;
    OPEN C13542;

PROCEDURE SUB137 SQLCODE SQLSTATE
    :EMNUM CHAR(3)
    :ENAME CHAR(20)
    :INT1 NUMERIC (9)
    :CITY CHAR(15);
      FETCH C13542 INTO :EMNUM, :ENAME, :INT1, :CITY
                 ;

PROCEDURE SUB138 SQLCODE SQLSTATE;
      UPDATE HU.STAFF
                    SET EMPNUM = 'HAR' WHERE CURRENT OF C13542;

PROCEDURE SUB139 SQLCODE SQLSTATE;
      CLOSE C13542;

PROCEDURE SUB141 SQLCODE SQLSTATE
    :EMNUM CHAR(3)
    :ENAME CHAR(20)
    :INT1 NUMERIC (9)
    :CITY CHAR(15);
      FETCH C13542 INTO :EMNUM, :ENAME, :INT1, :CITY
                 ;

PROCEDURE SUB142 SQLCODE SQLSTATE;
      UPDATE HU.STAFF
                    SET GRADE = 11 WHERE CURRENT OF C13542;

PROCEDURE SUB143 SQLCODE SQLSTATE;
      DELETE FROM HU.STAFF
                    WHERE CURRENT OF C13542;

PROCEDURE SUB144 SQLCODE SQLSTATE;
      CLOSE C13542;

PROCEDURE SUB145 SQLCODE SQLSTATE;
    OPEN C13543;

PROCEDURE SUB146 SQLCODE SQLSTATE
    :EMNUM CHAR(3)
    :ENAME CHAR(20)
    :INT1 NUMERIC (9)
    :CITY CHAR(15);
      FETCH C13543 INTO :EMNUM, :ENAME, :INT1, :CITY
                 ;

PROCEDURE SUB147 SQLCODE SQLSTATE;
      UPDATE HU.STAFF
                    SET EMPNUM = 'HAR' WHERE CURRENT OF C13543;

PROCEDURE SUB148 SQLCODE SQLSTATE;
      DELETE FROM HU.STAFF
                    WHERE CURRENT OF C13543;

PROCEDURE SUB149 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB150 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0695','pass','MCO');

PROCEDURE SUB151 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0695','fail','MCO');

PROCEDURE SUB152 SQLCODE SQLSTATE;
      COMMIT WORK;