Quellcode-Bibliothek

^© Kompilation durch diese Firma

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

Datei: dml007.mco Sprache: Unknown

Spracherkennung für: .mco vermutete Sprache: Text {Text[83] Latech[183] Haskell[285]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

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

DECLARE C11313  CURSOR FOR S11313
DECLARE C11314  CURSOR FOR S11314
DECLARE C11315  CURSOR FOR S11315
DECLARE C11316  CURSOR FOR S11316
DECLARE C11317  CURSOR FOR S11317
DECLARE C11318  CURSOR FOR S11318
DECLARE C11319  CURSOR FOR S11319
DECLARE C1131A  CURSOR FOR S1131A
DECLARE C11321  CURSOR FOR S11321
DECLARE C11322  CURSOR FOR S11322
DECLARE C11323  CURSOR FOR S11323
DECLARE C11324  CURSOR FOR S11324
DECLARE C11325  CURSOR FOR S11325
DECLARE C11326  CURSOR FOR S11326
DECLARE C11327  CURSOR FOR S11327
DECLARE C11328  CURSOR FOR S11328
DECLARE C11329  CURSOR FOR S11329
DECLARE C1132A  CURSOR FOR S1132A
DECLARE C1132B  CURSOR FOR S1132B
DECLARE C11331  CURSOR FOR S11331
DECLARE C11332  CURSOR FOR S11332
DECLARE C11333  CURSOR FOR S11333
DECLARE C11334  CURSOR FOR S11334
DECLARE C11335  CURSOR FOR S11335
DECLARE C11336  CURSOR FOR S11336
DECLARE C11337  CURSOR FOR S11337
DECLARE C11342  CURSOR FOR S11342
DECLARE C11343  CURSOR FOR S11343
DECLARE C11344  CURSOR FOR S11344
DECLARE C11345  CURSOR FOR S11345
DECLARE C11351  CURSOR FOR S11351
DECLARE C11352  CURSOR FOR S11352
DECLARE C11353  CURSOR FOR S11353
DECLARE C11354  CURSOR FOR S11354
DECLARE C11355  CURSOR FOR S11355

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 TABLE MERCH ('  ||
                    '  ITEMKEY INT,'        ||
                    '  ORDERED DATE,'       ||
                    '  RDATE DATE,'         ||
                    '  RTIME TIME,'         ||
                    '  SOLD TIMESTAMP)'
                    );

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 (
                    'CREATE TABLE TURNAROUND ('     ||
                    '  ITEMKEY INT,'                ||
                    '  MWAIT INTERVAL MONTH,'       ||
                    '  DWAIT INTERVAL DAY TO HOUR)'
                    );

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

PROCEDURE SUB12 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB14 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB15 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB16 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE VIEW NULLINV AS'
                  ||
                    ' SELECT ITEMKEY,ORDERED,CAST'
                  ||
                    ' (NULL AS INTERVAL MONTH) AS MWAIT,CAST'
                  ||
                    ' (NULL AS INTERVAL DAY TO HOUR) AS DWAIT FROM'
                  ||
                    ' MERCH WHERE RDATE IS NOT NULL AND SOLD IS NULL'
                  ||
                    ' AND MERCH.ITEMKEY NOT IN(SELECT ITEMKEY'
                  ||
                    ' FROM TURNAROUND)'
                    );

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

PROCEDURE SUB18 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB20 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB21 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB22 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE VIEW INVENTORY AS'
                  ||
                    '  SELECT MERCH.ITEMKEY AS ITEMKEY, ORDERED,'
                  ||
                    '  MWAIT, DWAIT FROM MERCH, TURNAROUND COR1 WHERE RDATE'
                  ||
                    '  IS NOT NULL AND SOLD IS NULL AND'
                  ||
                    '  MERCH.ITEMKEY = COR1.ITEMKEY'
                  ||
                    '    UNION'
                  ||
                    '  SELECT * FROM NULLINV'
                    );

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

PROCEDURE SUB24 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB26 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB27 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB28 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO MERCH VALUES (' ||
                    '  0, DATE ''1993-11-23'','  ||
                    '  NULL, NULL, NULL)'
                    );

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

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

PROCEDURE SUB31 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB32 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO MERCH VALUES (' ||
                    '  1, DATE ''1993-12-10'','  ||
                    '  DATE ''1994-01-03'','     ||
                    '  CAST (? AS TIME), NULL)'
                    );

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

PROCEDURE SUB34 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11311 FROM :LONGST;

PROCEDURE SUB35 SQLCODE SQLSTATE
    :CHTIME CHAR(8)
    :IND1 NUMERIC (4);
      EXECUTE S11311 USING :CHTIME:IND1;

PROCEDURE SUB36 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB37 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO MERCH VALUES (' ||
                    '  2, DATE ''1993-12-11'','  ||
                    '  NULL, NULL,'              ||
                    '  CAST (''TIMESTAMP ''''1993-12-11 13:00:00'''''' AS
                  TIMESTAMP))'
                    );

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

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

PROCEDURE SUB40 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB41 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO MERCH VALUES ('                     ||
                    '  4, DATE ''1993-01-26'', DATE ''1993-01-27'',' ||
                    '  NULL, NULL)'
                    );

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

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

PROCEDURE SUB44 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB45 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO TURNAROUND VALUES ('  ||
                    '  2, INTERVAL ''1'' MONTH,'       ||
                    '  INTERVAL ''20:0'' DAY TO HOUR)'
                    );

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

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

PROCEDURE SUB48 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB49 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO TURNAROUND VALUES ('     ||
                    '  5, INTERVAL ''5'' MONTH,'          ||
                    '  CAST (? AS INTERVAL DAY TO HOUR))'
                    );

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

PROCEDURE SUB51 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11312 FROM :LONGST;

PROCEDURE SUB52 SQLCODE SQLSTATE
    :CHTIME CHAR(8)
    :IND1 NUMERIC (4);
      EXECUTE S11312 USING :CHTIME:IND1;

PROCEDURE SUB53 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB54 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO TURNAROUND VALUES' ||
                    '  (6, INTERVAL ''2'' MONTH, NULL)'
                    );

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

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

PROCEDURE SUB57 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB58 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM' ||
                    '  MERCH A, MERCH B WHERE A.SOLD = B.SOLD'
                    );

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

PROCEDURE SUB60 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11313 FROM :LONGST;

PROCEDURE SUB61 SQLCODE SQLSTATE;
    OPEN C11313;

PROCEDURE SUB62 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11313 INTO :INT1;

PROCEDURE SUB63 SQLCODE SQLSTATE;
      CLOSE C11313;

PROCEDURE SUB64 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB65 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM' ||
                    '  MERCH A, MERCH B WHERE A.RTIME = B.RTIME'
                    );

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

PROCEDURE SUB67 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11314 FROM :LONGST;

PROCEDURE SUB68 SQLCODE SQLSTATE;
    OPEN C11314;

PROCEDURE SUB69 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11314 INTO :INT1;

PROCEDURE SUB70 SQLCODE SQLSTATE;
      CLOSE C11314;

PROCEDURE SUB71 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S11315 FROM :DSTMT;

PROCEDURE SUB72 SQLCODE SQLSTATE;
    OPEN C11315;

PROCEDURE SUB73 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11315 INTO :INT1;

PROCEDURE SUB74 SQLCODE SQLSTATE;
      CLOSE C11315;

PROCEDURE SUB75 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB76 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM TURNAROUND' ||
                    '  WHERE DWAIT IS NOT NULL'
                    );

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

PROCEDURE SUB78 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11316 FROM :LONGST;

PROCEDURE SUB79 SQLCODE SQLSTATE;
    OPEN C11316;

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

PROCEDURE SUB81 SQLCODE SQLSTATE;
      CLOSE C11316;

PROCEDURE SUB82 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB83 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT EXTRACT (DAY FROM RDATE)'                ||
                    '  FROM MERCH, TURNAROUND WHERE MERCH.ITEMKEY =' ||
                    '  TURNAROUND.ITEMKEY'
                    );

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

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

PROCEDURE SUB86 SQLCODE SQLSTATE;
    OPEN C11317;

PROCEDURE SUB87 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :IND1 NUMERIC (4);
      FETCH C11317 INTO :INT1:IND1;

PROCEDURE SUB88 SQLCODE SQLSTATE;
      CLOSE C11317;

PROCEDURE SUB89 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S11318 FROM :DSTMT;

PROCEDURE SUB90 SQLCODE SQLSTATE;
    OPEN C11318;

PROCEDURE SUB91 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11318 INTO :INT1;

PROCEDURE SUB92 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB93 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT EXTRACT (HOUR FROM AVG (DWAIT))'  ||
                    '  FROM MERCH, TURNAROUND WHERE'          ||
                    '  MERCH.ITEMKEY = TURNAROUND.ITEMKEY OR' ||
                    '  TURNAROUND.ITEMKEY NOT IN'             ||
                    '  (SELECT ITEMKEY FROM MERCH)'
                    );

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

PROCEDURE SUB95 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11319 FROM :LONGST;

PROCEDURE SUB96 SQLCODE SQLSTATE;
    OPEN C11319;

PROCEDURE SUB97 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11319 INTO :INT1;

PROCEDURE SUB98 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB99 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*)'                      ||
                    '  FROM INVENTORY WHERE MWAIT IS NULL' ||
                    '  AND DWAIT IS NULL'
                    );

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

PROCEDURE SUB101 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S1131A FROM :LONGST;

PROCEDURE SUB102 SQLCODE SQLSTATE;
    OPEN C1131A;

PROCEDURE SUB103 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C1131A INTO :INT1;

PROCEDURE SUB104 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB106 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB108 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB111 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB113 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB115 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB116 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB117 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE VIEW JNULL3 AS'  ||
                    '  SELECT C1, D1, D2 FROM JNULL1 LEFT OUTER JOIN JNULL2'
                  ||
                    '  ON C2 = D2'
                    );

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

PROCEDURE SUB119 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB121 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB122 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB123 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE VIEW JNULL4 AS' ||
                    '  SELECT D1, D2 AS C2 FROM JNULL2'
                    );

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

PROCEDURE SUB125 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB127 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB128 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB129 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE VIEW JNULL5 AS' ||
                    '  SELECT C1, D1, C2 FROM JNULL1 RIGHT OUTER JOIN JNULL4'
                  ||
                    '  USING (C2)'
                    );

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

PROCEDURE SUB131 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB133 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB134 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB135 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE VIEW JNULL6 AS' ||
                    '  SELECT * FROM JNULL1 LEFT OUTER JOIN JNULL4' ||
                    '  USING (C2)'
                    );

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

PROCEDURE SUB137 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB139 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

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

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

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

PROCEDURE SUB145 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S11321 FROM :DSTMT;

PROCEDURE SUB146 SQLCODE SQLSTATE;
    OPEN C11321;

PROCEDURE SUB147 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11321 INTO :INT1;

PROCEDURE SUB148 SQLCODE SQLSTATE;
      CLOSE C11321;

PROCEDURE SUB149 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB150 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM JNULL3' ||
                    '  WHERE D2 IS NOT NULL OR D1 IS NOT NULL'
                    );

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

PROCEDURE SUB152 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11322 FROM :LONGST;

PROCEDURE SUB153 SQLCODE SQLSTATE;
    OPEN C11322;

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

PROCEDURE SUB155 SQLCODE SQLSTATE;
      CLOSE C11322;

PROCEDURE SUB156 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB157 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM' ||
                    '  JNULL5'
                    );

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

PROCEDURE SUB159 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11323 FROM :LONGST;

PROCEDURE SUB160 SQLCODE SQLSTATE;
    OPEN C11323;

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

PROCEDURE SUB162 SQLCODE SQLSTATE;
      CLOSE C11323;

PROCEDURE SUB163 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB164 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM' ||
                    '  JNULL6' ||
                    '   WHERE C2 IS NOT NULL'
                    );

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

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

PROCEDURE SUB167 SQLCODE SQLSTATE;
    OPEN C11324;

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

PROCEDURE SUB169 SQLCODE SQLSTATE;
      CLOSE C11324;

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

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

PROCEDURE SUB173 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11321 INTO :INT1;

PROCEDURE SUB174 SQLCODE SQLSTATE;
      CLOSE C11321;

PROCEDURE SUB175 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S11325 FROM :DSTMT;

PROCEDURE SUB176 SQLCODE SQLSTATE;
    OPEN C11325;

PROCEDURE SUB177 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11325 INTO :INT1;

PROCEDURE SUB178 SQLCODE SQLSTATE;
      CLOSE C11325;

PROCEDURE SUB179 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S11326 FROM :DSTMT;

PROCEDURE SUB180 SQLCODE SQLSTATE;
    OPEN C11326;

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

PROCEDURE SUB182 SQLCODE SQLSTATE;
      CLOSE C11326;

PROCEDURE SUB183 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S11327 FROM :DSTMT;

PROCEDURE SUB184 SQLCODE SQLSTATE;
    OPEN C11327;

PROCEDURE SUB185 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11327 INTO :INT1;

PROCEDURE SUB186 SQLCODE SQLSTATE;
      CLOSE C11327;

PROCEDURE SUB187 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S11328 FROM :DSTMT;

PROCEDURE SUB188 SQLCODE SQLSTATE;
    OPEN C11328;

PROCEDURE SUB189 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11328 INTO :INT1;

PROCEDURE SUB190 SQLCODE SQLSTATE;
      CLOSE C11328;

PROCEDURE SUB191 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB192 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*)' ||
                    '  FROM JNULL6' ||
                    '   WHERE C2 = 1'
                    );

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

PROCEDURE SUB194 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11329 FROM :LONGST;

PROCEDURE SUB195 SQLCODE SQLSTATE;
    OPEN C11329;

PROCEDURE SUB196 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11329 INTO :INT1;

PROCEDURE SUB197 SQLCODE SQLSTATE;
      CLOSE C11329;

PROCEDURE SUB198 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB199 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*)' ||
                    '  FROM JNULL6' ||
                    '   WHERE C2 IS NULL'
                    );

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

PROCEDURE SUB201 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S1132A FROM :LONGST;

PROCEDURE SUB202 SQLCODE SQLSTATE;
    OPEN C1132A;

PROCEDURE SUB203 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C1132A INTO :INT1;

PROCEDURE SUB204 SQLCODE SQLSTATE;
      CLOSE C1132A;

PROCEDURE SUB205 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB206 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*)' ||
                    '  FROM JNULL6' ||
                    '   WHERE C2 = C1 AND' ||
                    '  D1 IS NULL'
                    );

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

PROCEDURE SUB208 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S1132B FROM :LONGST;

PROCEDURE SUB209 SQLCODE SQLSTATE;
    OPEN C1132B;

PROCEDURE SUB210 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C1132B INTO :INT1;

PROCEDURE SUB211 SQLCODE SQLSTATE;
      CLOSE C1132B;

PROCEDURE SUB212 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB214 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB216 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB219 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB220 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB221 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE TABLE CHANGG' ||
                    '  (NAAM CHAR (14) NOT NULL PRIMARY KEY, AGE INT)'
                    );

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

PROCEDURE SUB223 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB225 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

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

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

PROCEDURE SUB230 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S11331 FROM :DSTMT;

PROCEDURE SUB231 SQLCODE SQLSTATE;
    OPEN C11331;

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

PROCEDURE SUB233 SQLCODE SQLSTATE;
      CLOSE C11331;

PROCEDURE SUB234 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB236 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB237 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB238 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'ALTER TABLE CHANGG' ||
                    '  ADD COLUMN DIVORCES INT DEFAULT 0'
                    );

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

PROCEDURE SUB240 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB242 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB243 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB244 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*)' ||
                    '  FROM CHANGG WHERE NUMBRR IS NOT NULL' ||
                    '  OR DIVORCES <> 0'
                    );

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

PROCEDURE SUB246 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11332 FROM :LONGST;

PROCEDURE SUB247 SQLCODE SQLSTATE;
    OPEN C11332;

PROCEDURE SUB248 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11332 INTO :INT1;

PROCEDURE SUB249 SQLCODE SQLSTATE;
      CLOSE C11332;

PROCEDURE SUB250 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB251 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'UPDATE CHANGG' ||
                    '  SET NUMBRR = ''837-47-1847'', DIVORCES = 3' ||
                    '  WHERE NAAM = ''RUDOLPH'''
                    );

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

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

PROCEDURE SUB254 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB255 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'UPDATE CHANGG' ||
                    '  SET NUMBRR = ''738-47-1847'', DIVORCES = NULL' ||
                    '  WHERE NAAM = ''QUEEG'''
                    );

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

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

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

PROCEDURE SUB259 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB260 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO CHANGG (NAAM, AGE, NUMBRR)' ||
                    '  VALUES (''GOOBER'', 16, ''000-10-0001'')'
                    );

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

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

PROCEDURE SUB263 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB264 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO CHANGG' ||
                    '  VALUES (''OLIVIA'', 20, ''111-11-1111'', 0)'
                    );

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

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

PROCEDURE SUB267 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB268 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT AGE, NUMBRR, DIVORCES FROM CHANGG' ||
                    '  WHERE NAAM = ?'
                    );

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

PROCEDURE SUB270 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11333 FROM :LONGST;

PROCEDURE SUB271 SQLCODE SQLSTATE
    :CH3 CHAR(14);
      OPEN C11333 USING :CH3;

PROCEDURE SUB272 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :CH1 CHAR(11)
    :INT2 NUMERIC (9);
      FETCH C11333 INTO :INT1, :CH1, :INT2;

PROCEDURE SUB273 SQLCODE SQLSTATE;
      CLOSE C11333;

PROCEDURE SUB274 SQLCODE SQLSTATE
    :CH3 CHAR(14);
      OPEN C11333 USING :CH3;

PROCEDURE SUB275 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :CH1 CHAR(11)
    :INT2 NUMERIC (9)
    :IND1 NUMERIC (4);
      FETCH C11333 INTO :INT1, :CH1, :INT2:IND1;

PROCEDURE SUB276 SQLCODE SQLSTATE;
      CLOSE C11333;

PROCEDURE SUB277 SQLCODE SQLSTATE
    :CH3 CHAR(14);
      OPEN C11333 USING :CH3;

PROCEDURE SUB278 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :CH1 CHAR(11)
    :INT2 NUMERIC (9);
      FETCH C11333 INTO :INT1, :CH1, :INT2;

PROCEDURE SUB279 SQLCODE SQLSTATE;
      CLOSE C11333;

PROCEDURE SUB280 SQLCODE SQLSTATE
    :CH3 CHAR(14);
      OPEN C11333 USING :CH3;

PROCEDURE SUB281 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :CH1 CHAR(11)
    :INT2 NUMERIC (9);
      FETCH C11333 INTO :INT1, :CH1, :INT2;

PROCEDURE SUB282 SQLCODE SQLSTATE;
      CLOSE C11333;

PROCEDURE SUB283 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S11334 FROM :DSTMT;

PROCEDURE SUB284 SQLCODE SQLSTATE;
    OPEN C11334;

PROCEDURE SUB285 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11334 INTO :INT1;

PROCEDURE SUB286 SQLCODE SQLSTATE;
      CLOSE C11334;

PROCEDURE SUB287 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB289 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB291 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB292 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S11335 FROM :DSTMT;

PROCEDURE SUB293 SQLCODE SQLSTATE;
    OPEN C11335;

PROCEDURE SUB294 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11335 INTO :INT1;

PROCEDURE SUB295 SQLCODE SQLSTATE;
      CLOSE C11335;

PROCEDURE SUB296 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S11336 FROM :DSTMT;

PROCEDURE SUB297 SQLCODE SQLSTATE;
    OPEN C11336;

PROCEDURE SUB298 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11336 INTO :INT1;

PROCEDURE SUB299 SQLCODE SQLSTATE;
      CLOSE C11336;

PROCEDURE SUB300 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S11337 FROM :DSTMT;

PROCEDURE SUB301 SQLCODE SQLSTATE;
    OPEN C11337;

PROCEDURE SUB302 SQLCODE SQLSTATE
    :CH2 CHAR(14);
      FETCH C11337 INTO :CH2;

PROCEDURE SUB303 SQLCODE SQLSTATE;
      CLOSE C11337;

PROCEDURE SUB304 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB306 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB308 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB310 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB313 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB314 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB315 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE TABLE OBITUARIES ('                      ||
                    '  NAAM CHAR (14) NOT NULL PRIMARY KEY,'         ||
                    '  BORN DATE DEFAULT DATE ''1880-01-01'','       ||
                    '  DIED DATE DEFAULT CURRENT_DATE,'              ||
                    '  ENTERED TIMESTAMP DEFAULT CURRENT_TIMESTAMP,' ||
                    '  TESTING1 DATE, TESTING2 TIMESTAMP)'
                    );

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

PROCEDURE SUB317 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB319 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB320 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB321 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE TABLE BIRTHS ('                  ||
                    '  NAAM CHAR (14) NOT NULL PRIMARY KEY,' ||
                    '  CHECKIN TIME (0)'                     ||
                    '  DEFAULT TIME ''00:00:00'','            ||
                    '  LABOR INTERVAL HOUR'                  ||
                    '    DEFAULT INTERVAL ''4'' HOUR,'       ||
                    '  CHECKOUT TIME'                        ||
                    '    DEFAULT CURRENT_TIME,'              ||
                    '  TESTING TIME)'
                    );

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

PROCEDURE SUB323 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB325 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB326 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB327 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO OBITUARIES (NAAM, TESTING1, TESTING2)' ||
                    '  VALUES (?, CURRENT_DATE, CURRENT_TIMESTAMP)'
                    );

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

PROCEDURE SUB329 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11341 FROM :LONGST;

PROCEDURE SUB330 SQLCODE SQLSTATE
    :CH2 CHAR(14);
      EXECUTE S11341 USING :CH2;

PROCEDURE SUB331 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB332 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO BIRTHS (NAAM, TESTING)' ||
                    '  VALUES (''BJORN'', CURRENT_TIME)'
                    );

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

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

PROCEDURE SUB335 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB336 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT EXTRACT (HOUR FROM CHECKIN) +'    ||
                    '       EXTRACT (MINUTE FROM CHECKIN) +'  ||
                    '       EXTRACT (SECOND FROM CHECKIN)'    ||
                    '  FROM BIRTHS'
                    );

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

PROCEDURE SUB338 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11342 FROM :LONGST;

PROCEDURE SUB339 SQLCODE SQLSTATE;
    OPEN C11342;

PROCEDURE SUB340 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11342 INTO :INT1;

PROCEDURE SUB341 SQLCODE SQLSTATE;
      CLOSE C11342;

PROCEDURE SUB342 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S11343 FROM :DSTMT;

PROCEDURE SUB343 SQLCODE SQLSTATE;
    OPEN C11343;

PROCEDURE SUB344 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11343 INTO :INT1;

PROCEDURE SUB345 SQLCODE SQLSTATE;
      CLOSE C11343;

PROCEDURE SUB346 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB347 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT (*) FROM BIRTHS' ||
                    '  WHERE TESTING <> CHECKOUT OR CHECKOUT IS NULL'
                    );

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

PROCEDURE SUB349 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11344 FROM :LONGST;

PROCEDURE SUB350 SQLCODE SQLSTATE;
    OPEN C11344;

PROCEDURE SUB351 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11344 INTO :INT1;

PROCEDURE SUB352 SQLCODE SQLSTATE;
      CLOSE C11344;

PROCEDURE SUB353 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB354 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT (*) FROM OBITUARIES'    ||
                    '  WHERE BORN <> DATE ''1880-01-01''' ||
                    '  OR BORN IS NULL'                   ||
                    '  OR DIED <> TESTING1'               ||
                    '  OR DIED IS NULL'                   ||
                    '  OR ENTERED <> TESTING2'            ||
                    '  OR ENTERED IS NULL'
                    );

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

PROCEDURE SUB356 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11345 FROM :LONGST;

PROCEDURE SUB357 SQLCODE SQLSTATE;
    OPEN C11345;

PROCEDURE SUB358 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11345 INTO :INT1;

PROCEDURE SUB359 SQLCODE SQLSTATE;
      CLOSE C11345;

PROCEDURE SUB360 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB362 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB364 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB367 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB368 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB369 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE TABLE WEIRDPAD (' ||
                    '  NAAM CHAR (14),'       ||
                    '  SPONSOR CHAR (14))'
                    );

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

PROCEDURE SUB371 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB373 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB374 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB375 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO WEIRDPAD VALUES' ||
                    '  (''KATEBBBBBBBBBB'', ''000000000KEITH'')'
                    );

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

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

PROCEDURE SUB378 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB379 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO WEIRDPAD VALUES' ||
                    '  (''    KEITH     '', ''XXXXKATEXXXXXX'')'
                    );

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

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

PROCEDURE SUB382 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB383 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT TRIM (''X'' FROM SPONSOR)' ||
                    '  FROM WEIRDPAD'                  ||
                    '  WHERE TRIM (NAAM) = ''KEITH'''
                    );

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

PROCEDURE SUB385 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11351 FROM :LONGST;

PROCEDURE SUB386 SQLCODE SQLSTATE;
    OPEN C11351;

PROCEDURE SUB387 SQLCODE SQLSTATE
    :CH2 CHAR(14);
      FETCH C11351 INTO :CH2;

PROCEDURE SUB388 SQLCODE SQLSTATE;
      CLOSE C11351;

PROCEDURE SUB389 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB390 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT TRIM (LEADING ''X'' FROM SPONSOR)' ||
                    '  FROM WEIRDPAD'                          ||
                    '  WHERE TRIM (TRAILING FROM NAAM) = ''    KEITH'''
                    );

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

PROCEDURE SUB392 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11352 FROM :LONGST;

PROCEDURE SUB393 SQLCODE SQLSTATE;
    OPEN C11352;

PROCEDURE SUB394 SQLCODE SQLSTATE
    :CH2 CHAR(14);
      FETCH C11352 INTO :CH2;

PROCEDURE SUB395 SQLCODE SQLSTATE;
      CLOSE C11352;

PROCEDURE SUB396 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB397 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM WEIRDPAD A,' ||
                    '  WEIRDPAD B WHERE TRIM (BOTH ''B'' FROM A.NAAM)' ||
                    '  = TRIM (BOTH ''X'' FROM B.SPONSOR)'
                    );

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

PROCEDURE SUB399 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11353 FROM :LONGST;

PROCEDURE SUB400 SQLCODE SQLSTATE;
    OPEN C11353;

PROCEDURE SUB401 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11353 INTO :INT1;

PROCEDURE SUB402 SQLCODE SQLSTATE;
      CLOSE C11353;

PROCEDURE SUB403 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB404 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM WEIRDPAD A,'
                  ||
                    '  WEIRDPAD B WHERE TRIM (LEADING ''0'' FROM A.SPONSOR)'
                  ||
                    '  = TRIM ('' '' FROM B.NAAM)'
                    );

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

PROCEDURE SUB406 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11354 FROM :LONGST;

PROCEDURE SUB407 SQLCODE SQLSTATE;
    OPEN C11354;

PROCEDURE SUB408 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11354 INTO :INT1;

PROCEDURE SUB409 SQLCODE SQLSTATE;
      CLOSE C11354;

PROCEDURE SUB410 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB411 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT TRIM (''BB'' FROM NAAM)'  ||
                    '  FROM WEIRDPAD WHERE NAAM LIKE' ||
                    '  ''KATE%'''
                    );

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

PROCEDURE SUB413 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11355 FROM :LONGST;

PROCEDURE SUB414 SQLCODE SQLSTATE;
    OPEN C11355;

PROCEDURE SUB415 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11355 INTO :INT1;

PROCEDURE SUB416 SQLCODE SQLSTATE;
      CLOSE C11355;

PROCEDURE SUB417 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB419 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB422 SQLCODE SQLSTATE;
      COMMIT WORK;

Quellcode-Bibliothek

© Kompilation durch diese Firma

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

Datei: dml007.mco Sprache: Unknown

[ Verzeichnis aufwärts0.235unsichere Verbindung ]

^© Kompilation durch diese Firma