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: dml007.cob   Sprache: Cobol

Untersuchungsergebnis.mco Download desText {Text[68] Latech[80] CS[220]}zum Wurzelverzeichnis wechseln

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

DECLARE C11511  CURSOR FOR S11511
DECLARE C11512  CURSOR FOR S11512
DECLARE C11513  CURSOR FOR S11513
DECLARE C11514  CURSOR FOR S11514
DECLARE C11515  CURSOR FOR S11515
DECLARE C11516  CURSOR FOR S11516
DECLARE C11517  CURSOR FOR S11517
DECLARE C11521  CURSOR FOR S11521
DECLARE C11522  CURSOR FOR S11522
DECLARE C11523  CURSOR FOR S11523
DECLARE CJOANS  CURSOR FOR SJOANS
DECLARE C11524  CURSOR FOR S11524
DECLARE C11525  CURSOR FOR S11525
DECLARE C11526  CURSOR FOR S11526
Declare c11531  cursor for s11531
DECLARE C11532  CURSOR FOR S11532


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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB3 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB4 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE VIEW WORKWEEK AS'              ||
                    '  SELECT EMPNUM, HOURS FROM HU.WORKS' ||
                    '  GROUP BY HOURS, EMPNUM'
                    );

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

PROCEDURE SUB6 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB7 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      EXECUTE IMMEDIATE :LONGST;

PROCEDURE SUB8 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB9 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB10 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT EMPNUM, SUM (HOURS) FROM WORKWEEK'        ||
                    '  WHERE HOURS > 20 GROUP BY EMPNUM' ||
                    '  HAVING EMPNUM = ''E1'''
                    );

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

PROCEDURE SUB12 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11511 FROM :LONGST;

PROCEDURE SUB13 SQLCODE SQLSTATE;
    OPEN C11511;

PROCEDURE SUB14 SQLCODE SQLSTATE
    :CH1 CHAR(3)
    :INT1 NUMERIC (9);
      FETCH C11511 INTO :CH1, :INT1;

PROCEDURE SUB15 SQLCODE SQLSTATE;
      CLOSE C11511;

PROCEDURE SUB16 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S11512 FROM :DSTMT;

PROCEDURE SUB17 SQLCODE SQLSTATE;
    OPEN C11512;

PROCEDURE SUB18 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11512 INTO :INT1;

PROCEDURE SUB19 SQLCODE SQLSTATE;
      CLOSE C11512;

PROCEDURE SUB20 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB21 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT EMPNAME FROM HU.STAFF, WORKWEEK'    ||
                    '  WHERE HU.STAFF.EMPNUM = WORKWEEK.EMPNUM' ||
                    '  AND HOURS = 12'
                    );

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

PROCEDURE SUB23 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11513 FROM :LONGST;

PROCEDURE SUB24 SQLCODE SQLSTATE;
    OPEN C11513;

PROCEDURE SUB25 SQLCODE SQLSTATE
    :CH2 CHAR(20);
      FETCH C11513 INTO :CH2;

PROCEDURE SUB26 SQLCODE SQLSTATE;
      CLOSE C11513;

PROCEDURE SUB27 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB28 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*), MAX(EMPNUM), MIN(EMPNUM), AVG(HOURS)'
                  ||
                    ' FROM WORKWEEK'
                    );

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

PROCEDURE SUB30 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11514 FROM :LONGST;

PROCEDURE SUB31 SQLCODE SQLSTATE;
    OPEN C11514;

PROCEDURE SUB32 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :CH1 CHAR(3)
    :CH4 CHAR(3)
    :INT2 NUMERIC (9);
      FETCH C11514 INTO :INT1, :CH1, :CH4, :INT2
                 ;

PROCEDURE SUB33 SQLCODE SQLSTATE;
      CLOSE C11514;

PROCEDURE SUB34 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB35 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT EMPNAME FROM HU.STAFF WHERE EMPNUM =' ||
                    '  (SELECT EMPNUM FROM WORKWEEK'              ||
                    '   WHERE HOURS = 12)'
                    );

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

PROCEDURE SUB37 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11515 FROM :LONGST;

PROCEDURE SUB38 SQLCODE SQLSTATE;
    OPEN C11515;

PROCEDURE SUB39 SQLCODE SQLSTATE
    :CH2 CHAR(20);
      FETCH C11515 INTO :CH2;

PROCEDURE SUB40 SQLCODE SQLSTATE;
      CLOSE C11515;

PROCEDURE SUB41 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB42 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT EMPNAME FROM HU.STAFF WHERE EMPNUM =' ||
                    '  (SELECT EMPNUM FROM HU.WORKS'              ||
                    '   GROUP BY EMPNUM, HOURS'                   ||
                    '   HAVING HOURS = 12)'
                    );

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

PROCEDURE SUB44 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11516 FROM :LONGST;

PROCEDURE SUB45 SQLCODE SQLSTATE;
    OPEN C11516;

PROCEDURE SUB46 SQLCODE SQLSTATE
    :CH2 CHAR(20);
      FETCH C11516 INTO :CH2;

PROCEDURE SUB47 SQLCODE SQLSTATE;
      CLOSE C11516;

PROCEDURE SUB48 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S11517 FROM :DSTMT;

PROCEDURE SUB49 SQLCODE SQLSTATE;
    OPEN C11517;

PROCEDURE SUB50 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11517 INTO :INT1;

PROCEDURE SUB51 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB52 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB53 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB56 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB57 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB58 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE VIEW QUALSTAR AS'                            ||
                    '  SELECT HU.STAFF.*, HOURS FROM HU.STAFF, HU.WORKS' ||
                    '  WHERE HU.STAFF.EMPNUM = HU.WORKS.EMPNUM'
                    );

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

PROCEDURE SUB60 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB61 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      EXECUTE IMMEDIATE :LONGST;

PROCEDURE SUB62 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB63 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB64 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE VIEW CORRQUALSTAR AS'                         ||
                    '  SELECT BLAH.*, HOURS FROM HU.STAFF BLAH, HU.WORKS' ||
                    '  WHERE BLAH.EMPNUM = HU.WORKS.EMPNUM'
                    );

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

PROCEDURE SUB66 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB67 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      EXECUTE IMMEDIATE :LONGST;

PROCEDURE SUB68 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB69 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB70 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE VIEW SUBQ2 AS' ||
                    '  SELECT DISTINCT * FROM QUALSTAR'
                    );

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

PROCEDURE SUB72 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB73 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      EXECUTE IMMEDIATE :LONGST;

PROCEDURE SUB74 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB75 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB76 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE VIEW CORRSUBQ2 AS' ||
                    '  SELECT DISTINCT * FROM CORRQUALSTAR'
                    );

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

PROCEDURE SUB78 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB79 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      EXECUTE IMMEDIATE :LONGST;

PROCEDURE SUB80 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB81 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S11521 FROM :DSTMT;

PROCEDURE SUB82 SQLCODE SQLSTATE;
    OPEN C11521;

PROCEDURE SUB83 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11521 INTO :INT1;

PROCEDURE SUB84 SQLCODE SQLSTATE;
      CLOSE C11521;

PROCEDURE SUB85 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S11522 FROM :DSTMT;

PROCEDURE SUB86 SQLCODE SQLSTATE;
    OPEN C11522;

PROCEDURE SUB87 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11522 INTO :INT1;

PROCEDURE SUB88 SQLCODE SQLSTATE;
      CLOSE C11522;

PROCEDURE SUB89 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB90 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT EMPNUM, GRADE, CITY, HOURS' ||
                    '  FROM QUALSTAR WHERE EMPNAME = ''Carmen'''
                    );

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

PROCEDURE SUB92 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11523 FROM :LONGST;

PROCEDURE SUB93 SQLCODE SQLSTATE;
    OPEN C11523;

PROCEDURE SUB94 SQLCODE SQLSTATE
    :CH1 CHAR(3)
    :INT1 NUMERIC (9)
    :CH3 CHAR(15)
    :INT2 NUMERIC (9);
      FETCH C11523 INTO :CH1, :INT1, :CH3, :INT2
                 ;

PROCEDURE SUB95 SQLCODE SQLSTATE;
      CLOSE C11523;

PROCEDURE SUB96 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB97 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT HU.STAFF.*, HOURS FROM HU.STAFF, HU.WORKS' ||
                    '  WHERE HU.STAFF.EMPNUM = HU.WORKS.EMPNUM'        ||
                    '  AND EMPNAME > ''Betty'' ORDER BY EMPNAME'
                    );

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

PROCEDURE SUB99 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE SJOANS FROM :LONGST;

PROCEDURE SUB100 SQLCODE SQLSTATE;
    OPEN CJOANS;

PROCEDURE SUB101 SQLCODE SQLSTATE
    :CH1 CHAR(3)
    :CH2 CHAR(20)
    :INT1 NUMERIC (9)
    :CH3 CHAR(15)
    :INT2 NUMERIC (9);
      FETCH CJOANS INTO :CH1, :CH2, :INT1, :CH3, :INT2
                 ;

PROCEDURE SUB102 SQLCODE SQLSTATE;
      CLOSE CJOANS;

PROCEDURE SUB103 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S11524 FROM :DSTMT;

PROCEDURE SUB104 SQLCODE SQLSTATE;
    OPEN C11524;

PROCEDURE SUB105 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11524 INTO :INT1;

PROCEDURE SUB106 SQLCODE SQLSTATE;
      CLOSE C11524;

PROCEDURE SUB107 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S11525 FROM :DSTMT;

PROCEDURE SUB108 SQLCODE SQLSTATE;
    OPEN C11525;

PROCEDURE SUB109 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11525 INTO :INT1;

PROCEDURE SUB110 SQLCODE SQLSTATE;
      CLOSE C11525;

PROCEDURE SUB111 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB112 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT EMPNUM, GRADE, CITY, HOURS' ||
                    '  FROM CORRQUALSTAR WHERE EMPNAME = ''Carmen'''
                    );

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

PROCEDURE SUB114 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11526 FROM :LONGST;

PROCEDURE SUB115 SQLCODE SQLSTATE;
    OPEN C11526;

PROCEDURE SUB116 SQLCODE SQLSTATE
    :CH1 CHAR(3)
    :INT1 NUMERIC (9)
    :CH3 CHAR(15)
    :INT2 NUMERIC (9);
      FETCH C11526 INTO :CH1, :INT1, :CH3, :INT2
                 ;

PROCEDURE SUB117 SQLCODE SQLSTATE;
      CLOSE C11526;

PROCEDURE SUB118 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB119 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB120 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB121 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB122 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB125 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB126 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB127 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'Create view Staff (Empnum, empname, Grade, City) as' ||
                    '  select empnum, EMPNAME, Grade, cItY from Hu.Staff'
                    );

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

PROCEDURE SUB129 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB130 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      EXECUTE IMMEDIATE :LONGST;

PROCEDURE SUB131 SQLCODE SQLSTATE;
      commit work;

PROCEDURE SUB132 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      Prepare s11531 FROM :DSTMT;

PROCEDURE SUB134 SQLCODE SQLSTATE;
    OPEN C11531;

PROCEDURE SUB135 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11531 INTO :INT1;

PROCEDURE SUB136 SQLCODE SQLSTATE;
      CLOSE C11531;

PROCEDURE SUB137 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB138 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT EMPNUM, GRADE, CITY' ||
                    '  FROM Flater.staff WHERE EMPNAME > ''Betty''' ||
                    '  ORDER BY EMPNUM'
                    );

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

PROCEDURE SUB140 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11532 FROM :LONGST;

PROCEDURE SUB141 SQLCODE SQLSTATE;
    OPEN C11532;

PROCEDURE SUB142 SQLCODE SQLSTATE
    :CH1 CHAR(3)
    :INT1 NUMERIC (9)
    :CH3 CHAR(15);
      FETCH C11532 INTO :CH1, :INT1, :CH3;

PROCEDURE SUB143 SQLCODE SQLSTATE;
      CLOSE C11532;

PROCEDURE SUB144 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB145 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB146 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB149 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB150 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB151 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE TABLE FEAT16 ('     ||
                    '  EMPNUM INT PRIMARY KEY,' ||
                    '  PNUM   INT UNIQUE)'
                    );

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

PROCEDURE SUB153 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB154 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      EXECUTE IMMEDIATE :LONGST;

PROCEDURE SUB155 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB156 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S11541 FROM :DSTMT;

PROCEDURE SUB157 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      EXECUTE S11541 USING :INT1, :INT2;

PROCEDURE SUB158 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      EXECUTE S11541 USING :INT1, :INT2;

PROCEDURE SUB159 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      EXECUTE S11541 USING :INT1, :INT2;

PROCEDURE SUB160 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      EXECUTE S11541 USING :INT1, :INT2;

PROCEDURE SUB161 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      EXECUTE S11541 USING :INT1, :INT2:INDIC1;

PROCEDURE SUB162 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      EXECUTE S11541 USING :INT1, :INT2:INDIC1;

PROCEDURE SUB163 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      EXECUTE S11541 USING :INT1, :INT2:INDIC1;

PROCEDURE SUB164 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB165 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB166 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB169 SQLCODE SQLSTATE;
      COMMIT WORK;

[ zur Elbe Produktseite wechseln0.100Quellennavigators  ]