Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
products/sources/formale sprachen/Cobol/Test-Suite/SQL M/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: dml013.cob   Sprache: Unknown

Spracherkennung für: .mco vermutete Sprache: Latech {Latech[95] Ada[196] Abap[301]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

-- 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;

[ Dauer der Verarbeitung: 0.151 Sekunden  ]