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

Untersuchungsergebnis.mco Download desText {Text[84] Latech[88] CS[202]}zum Wurzelverzeichnis wechseln

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

DECLARE C10511  CURSOR FOR S10511 
DECLARE C10512  CURSOR FOR S10512 
DECLARE C10521  CURSOR FOR S10521 
DECLARE C10522  CURSOR FOR S10522 
DECLARE C10524  CURSOR FOR S10524 
DECLARE C10523  CURSOR FOR S10523 
DECLARE C10531  CURSOR FOR S10531 
DECLARE C10533  CURSOR FOR S10533 
DECLARE C10532  CURSOR FOR S10532 
DECLARE C10534  CURSOR FOR S10534 
DECLARE C10535  CURSOR FOR S10535 
DECLARE C10536  CURSOR FOR S10536 
DECLARE C10541  CURSOR FOR S10541 
DECLARE C10542  CURSOR FOR S10542 
DECLARE C10543  CURSOR FOR S10543 


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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

PROCEDURE SUB4 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB6 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB7 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB8 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE VIEW NAMGRP1 AS SELECT * ' ||
                    '  FROM NAMES1 NATURAL JOIN GROUPS1'
                    );

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

PROCEDURE SUB10 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB12 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

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

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

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

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

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

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

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

PROCEDURE SUB22 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB23 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT EMPNUM FROM NAMGRP1 WHERE NAAM = ? AND GRP = ?'
                    );

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

PROCEDURE SUB25 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S10511 FROM :LONGST;

PROCEDURE SUB26 SQLCODE SQLSTATE
    :CVAR1 CHAR(5)
    :IVAR1 NUMERIC (9);
      OPEN C10511 USING :CVAR1, :IVAR1;

PROCEDURE SUB27 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10511 INTO :INT1;

PROCEDURE SUB28 SQLCODE SQLSTATE;
      CLOSE C10511;

PROCEDURE SUB29 SQLCODE SQLSTATE
    :CVAR1 CHAR(5)
    :IVAR1 NUMERIC (9);
      OPEN C10511 USING :CVAR1, :IVAR1;

PROCEDURE SUB30 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10511 INTO :INT1;

PROCEDURE SUB31 SQLCODE SQLSTATE;
      CLOSE C10511;

PROCEDURE SUB32 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB33 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM NAMGRP1 '   ||
                    '  WHERE (NAAM <> ''MARY'''        ||
                    '  AND NAAM <> ''KERI'')'          ||
                    '  OR (GRP <> 20 '                 ||
                    '  AND GRP <> 10) '                ||
                    '  OR (EMPNUM <> 0 '                 ||
                    '  AND EMPNUM <> 1) '                ||
                    '  OR NAAM IS NULL '              ||
                    '  OR GRP IS NULL '               ||
                    '  OR EMPNUM IS NULL'
                    );

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

PROCEDURE SUB35 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S10512 FROM :LONGST;

PROCEDURE SUB36 SQLCODE SQLSTATE;
      OPEN C10512;

PROCEDURE SUB37 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10512 INTO :INT1;

PROCEDURE SUB38 SQLCODE SQLSTATE;
      CLOSE C10512;

PROCEDURE SUB39 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

PROCEDURE SUB41 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB43 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB46 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB48 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB50 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB51 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB52 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE VIEW NAMGRP2 AS SELECT * ' ||
                    '  FROM NAMES2 INNER JOIN GROUPS2 USING (EMPNUM)'
                    );

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

PROCEDURE SUB54 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB56 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB57 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB58 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                  'CREATE VIEW NMGRP2 AS SELECT * ' ||
                  'FROM NAMES2 JOIN GROUPS2 USING (EMPNUM) WHERE EMPNUM'||
                  '> 0'
                    );

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
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

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

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

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

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

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

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

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

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

PROCEDURE SUB72 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB73 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT EMPNUM FROM NAMGRP2 WHERE NAAM = ? AND GRP = ?'
                    );

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

PROCEDURE SUB75 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S10521 FROM :LONGST;

PROCEDURE SUB76 SQLCODE SQLSTATE
    :CVAR1 CHAR(5)
    :IVAR1 NUMERIC (9);
      OPEN C10521 USING :CVAR1, :IVAR1;

PROCEDURE SUB77 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10521 INTO :INT1;

PROCEDURE SUB78 SQLCODE SQLSTATE;
      CLOSE C10521;

PROCEDURE SUB79 SQLCODE SQLSTATE
    :CVAR1 CHAR(5)
    :IVAR1 NUMERIC (9);
      OPEN C10521 USING :CVAR1, :IVAR1;

PROCEDURE SUB80 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10521 INTO :INT1;

PROCEDURE SUB81 SQLCODE SQLSTATE;
      CLOSE C10521;

PROCEDURE SUB82 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB83 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM NAMGRP2 '   ||
                    '  WHERE NAAM <> ''MARY'''        ||
                    '  AND NAAM <> ''KERI'''          ||
                    '  OR GRP <> 20 '                 ||
                    '  AND GRP <> 10 '                ||
                    '  OR EMPNUM <> 0 '                 ||
                    '  AND EMPNUM <> 1 '                ||
                    '  OR NAAM IS NULL '              ||
                    '  OR GRP IS NULL '               ||
                    '  OR EMPNUM IS NULL'
                    );

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

PROCEDURE SUB85 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S10522 FROM :LONGST;

PROCEDURE SUB86 SQLCODE SQLSTATE;
      OPEN C10522;

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

PROCEDURE SUB88 SQLCODE SQLSTATE;
      CLOSE C10522;

PROCEDURE SUB89 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB90 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT EMPNUM FROM NMGRP2 WHERE NAAM = ? AND GRP = ?'
                    );

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

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

PROCEDURE SUB93 SQLCODE SQLSTATE
    :CVAR1 CHAR(5)
    :IVAR1 NUMERIC (9);
      OPEN C10524 USING :CVAR1, :IVAR1;

PROCEDURE SUB94 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10524 INTO :INT1;

PROCEDURE SUB95 SQLCODE SQLSTATE;
      CLOSE C10524;

PROCEDURE SUB96 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB97 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM NMGRP2 '    ||
                    '  WHERE NAAM <> ''MARY'''        ||
                    '  OR GRP <> 20 '                 ||
                    '  OR EMPNUM <> 1 '                 ||
                    '  OR NAAM IS NULL '              ||
                    '  OR GRP IS NULL '               ||
                    '  OR EMPNUM IS NULL'
                    );

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

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

PROCEDURE SUB100 SQLCODE SQLSTATE;
      OPEN C10523;

PROCEDURE SUB101 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10523 INTO :INT1;

PROCEDURE SUB102 SQLCODE SQLSTATE;
      CLOSE C10523;

PROCEDURE SUB103 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

PROCEDURE SUB105 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB107 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB110 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB112 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB114 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB115 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB116 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE VIEW NAMGRP3 AS '||
                    'SELECT * FROM NAMES3 LEFT OUTER JOIN GROUPS3 USING'||
                    '(EMPNUM)'
                    );

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

PROCEDURE SUB118 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB120 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB121 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB122 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE VIEW NMGRP3 AS'                                 
                  ||
                    '  SELECT NAAM, GRP FROM NAMES3 LEFT OUTER JOIN GROUPS3'
                  ||
                    '  ON NAMES3.EMPNUM < GROUPS3.EMPNUM'                    
                     ||
                    '  WHERE NAAM <> ''KERI'''
                    );

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

PROCEDURE SUB124 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB126 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

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

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

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

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

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

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

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

PROCEDURE SUB136 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB137 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM NAMGRP3 WHERE EMPNUM = ? AND ' ||
                    '  NAAM = ? AND GRP = ?'
                    );

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

PROCEDURE SUB139 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S10531 FROM :LONGST;

PROCEDURE SUB140 SQLCODE SQLSTATE
    :IVAR2 NUMERIC (9)
    :CVAR1 CHAR(5)
    :IVAR1 NUMERIC (9);
      OPEN C10531 USING :IVAR2, :CVAR1, :IVAR1;

PROCEDURE SUB141 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10531 INTO :INT1;

PROCEDURE SUB142 SQLCODE SQLSTATE;
      CLOSE C10531;

PROCEDURE SUB143 SQLCODE SQLSTATE
    :IVAR2 NUMERIC (9)
    :CVAR1 CHAR(5)
    :IVAR1 NUMERIC (9);
      OPEN C10531 USING :IVAR2, :CVAR1, :IVAR1;

PROCEDURE SUB144 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10531 INTO :INT1;

PROCEDURE SUB145 SQLCODE SQLSTATE;
      CLOSE C10531;

PROCEDURE SUB146 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB147 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM NAMGRP3 WHERE EMPNUM = ? AND ' ||
                    '  NAAM = ? AND GRP IS NULL'
                    );

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

PROCEDURE SUB149 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S10533 FROM :LONGST;

PROCEDURE SUB150 SQLCODE SQLSTATE
    :IVAR1 NUMERIC (9)
    :CVAR1 CHAR(5);
      OPEN C10533 USING :IVAR1, :CVAR1;

PROCEDURE SUB151 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10533 INTO :INT1;

PROCEDURE SUB152 SQLCODE SQLSTATE;
      CLOSE C10533;

PROCEDURE SUB153 SQLCODE SQLSTATE
    :IVAR1 NUMERIC (9)
    :CVAR1 CHAR(5);
      OPEN C10533 USING :IVAR1, :CVAR1;

PROCEDURE SUB154 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10533 INTO :INT1;

PROCEDURE SUB155 SQLCODE SQLSTATE;
      CLOSE C10533;

PROCEDURE SUB156 SQLCODE SQLSTATE
    :IVAR1 NUMERIC (9)
    :CVAR1 CHAR(5);
      OPEN C10533 USING :IVAR1, :CVAR1;

PROCEDURE SUB157 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10533 INTO :INT1;

PROCEDURE SUB158 SQLCODE SQLSTATE;
      CLOSE C10533;

PROCEDURE SUB159 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S10532 FROM :DSTMT;

PROCEDURE SUB160 SQLCODE SQLSTATE;
      OPEN C10532;

PROCEDURE SUB161 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10532 INTO :INT1;

PROCEDURE SUB162 SQLCODE SQLSTATE;
      CLOSE C10532;

PROCEDURE SUB163 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB164 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM NMGRP3 WHERE' ||
                    '  NAAM = ''MARY'' AND GRP = ?'
                    );

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

PROCEDURE SUB166 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S10534 FROM :LONGST;

PROCEDURE SUB167 SQLCODE SQLSTATE
    :IVAR1 NUMERIC (9);
      OPEN C10534 USING :IVAR1;

PROCEDURE SUB168 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10534 INTO :INT1;

PROCEDURE SUB169 SQLCODE SQLSTATE;
      CLOSE C10534;

PROCEDURE SUB170 SQLCODE SQLSTATE
    :IVAR1 NUMERIC (9);
      OPEN C10534 USING :IVAR1;

PROCEDURE SUB171 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10534 INTO :INT1;

PROCEDURE SUB172 SQLCODE SQLSTATE;
      CLOSE C10534;

PROCEDURE SUB173 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB174 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM NMGRP3 WHERE' ||
                    '  NAAM = ? AND GRP IS NULL'
                    );

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

PROCEDURE SUB176 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S10535 FROM :LONGST;

PROCEDURE SUB177 SQLCODE SQLSTATE
    :CVAR1 CHAR(5);
      OPEN C10535 USING :CVAR1;

PROCEDURE SUB178 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10535 INTO :INT1;

PROCEDURE SUB179 SQLCODE SQLSTATE;
      CLOSE C10535;

PROCEDURE SUB180 SQLCODE SQLSTATE
    :CVAR1 CHAR(5);
      OPEN C10535 USING :CVAR1;

PROCEDURE SUB181 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10535 INTO :INT1;

PROCEDURE SUB182 SQLCODE SQLSTATE;
      CLOSE C10535;

PROCEDURE SUB183 SQLCODE SQLSTATE
    :CVAR1 CHAR(5);
      OPEN C10535 USING :CVAR1;

PROCEDURE SUB184 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10535 INTO :INT1;

PROCEDURE SUB185 SQLCODE SQLSTATE;
      CLOSE C10535;

PROCEDURE SUB186 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S10536 FROM :DSTMT;

PROCEDURE SUB187 SQLCODE SQLSTATE;
      OPEN C10536;

PROCEDURE SUB188 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10536 INTO :INT1;

PROCEDURE SUB189 SQLCODE SQLSTATE;
      CLOSE C10536;

PROCEDURE SUB190 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

PROCEDURE SUB192 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB194 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB197 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB199 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB201 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB202 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB203 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE VIEW NAMGRP4 AS '||
                    'SELECT * FROM NAMES4 RIGHT OUTER JOIN GROUPS4 USING '||
                    '(EMPNUM)'
                    );

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

PROCEDURE SUB205 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB207 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

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

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

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

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

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

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

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

PROCEDURE SUB217 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB218 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM NAMGRP4 WHERE EMPNUM = ? AND ' ||
                    '  NAAM = ? AND GRP = ?'
                    );

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

PROCEDURE SUB220 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S10541 FROM :LONGST;

PROCEDURE SUB221 SQLCODE SQLSTATE
    :IVAR2 NUMERIC (9)
    :CVAR1 CHAR(5)
    :IVAR1 NUMERIC (9);
      OPEN C10541 USING :IVAR2, :CVAR1, :IVAR1;

PROCEDURE SUB222 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10541 INTO :INT1;

PROCEDURE SUB223 SQLCODE SQLSTATE;
      CLOSE C10541;

PROCEDURE SUB224 SQLCODE SQLSTATE
    :IVAR2 NUMERIC (9)
    :CVAR1 CHAR(5)
    :IVAR1 NUMERIC (9);
      OPEN C10541 USING :IVAR2, :CVAR1, :IVAR1;

PROCEDURE SUB225 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10541 INTO :INT1;

PROCEDURE SUB226 SQLCODE SQLSTATE;
      CLOSE C10541;

PROCEDURE SUB227 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB228 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM NAMGRP4 WHERE EMPNUM = ? AND ' ||
                    '  NAAM IS NULL AND GRP = ?'
                    );

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

PROCEDURE SUB230 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S10542 FROM :LONGST;

PROCEDURE SUB231 SQLCODE SQLSTATE
    :IVAR1 NUMERIC (9)
    :IVAR2 NUMERIC (9);
      OPEN C10542 USING :IVAR1, :IVAR2;

PROCEDURE SUB232 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10542 INTO :INT1;

PROCEDURE SUB233 SQLCODE SQLSTATE;
      CLOSE C10542;

PROCEDURE SUB234 SQLCODE SQLSTATE
    :IVAR1 NUMERIC (9)
    :IVAR2 NUMERIC (9);
      OPEN C10542 USING :IVAR1, :IVAR2;

PROCEDURE SUB235 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10542 INTO :INT1;

PROCEDURE SUB236 SQLCODE SQLSTATE;
      CLOSE C10542;

PROCEDURE SUB237 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S10543 FROM :DSTMT;

PROCEDURE SUB238 SQLCODE SQLSTATE;
      OPEN C10543;

PROCEDURE SUB239 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10543 INTO :INT1;

PROCEDURE SUB240 SQLCODE SQLSTATE;
      CLOSE C10543;

PROCEDURE SUB241 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

PROCEDURE SUB243 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB245 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB248 SQLCODE SQLSTATE;
      COMMIT WORK;

[ zur Elbe Produktseite wechseln0.132Quellennavigators  ]