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:   Sprache: Unknown

Spracherkennung für: .mco vermutete Sprache: Python {Python[63] Ada[133] Abap[190]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

-- SQL Test Suite, V6.0, SQL Module dml124.mco
-- 59-byte ID
-- 
MODULE DML124
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE C12421  CURSOR FOR S12421
DECLARE C12432  CURSOR FOR S12432
DECLARE C12443  CURSOR FOR S12443
DECLARE C12441  CURSOR FOR S12441


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 CONCATBUF (ZZ CHAR(240));

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      CREATE TABLE CACHESTAT (
                    HIT_RATIO FLOAT (17) NOT NULL,
                    FRAGMENTATION_PCT FLOAT);

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      CREATE VIEW COMBINATIONS (INTTEST,
                    REALTEST, SMALLTEST, DOUBLETEST, NUMTEST,
                    DECTEST) AS SELECT * FROM HU.EE, HU.GG, HU.HH,
                    HU.II, HU.LL, HU.PP;

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      ALLOCATE DESCRIPTOR 'D12411' WITH MAX 8;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S12411 FROM :DSTMT;

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      DESCRIBE OUTPUT S12411 USING SQL DESCRIPTOR
                  'D12411';

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      GET DESCRIPTOR 'D12411' :INT1 = COUNT;

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9),
    :CNAME CHAR(20),
    :INT4 NUMERIC (9),
    :INT5 NUMERIC (9));
      GET DESCRIPTOR 'D12411' VALUE 1
                    :INT1 = TYPE, :INT2 = NULLABLE, :INT3 = UNNAMED,
                    :CNAME = NAME, :INT4 = LENGTH, :INT5 = OCTET_LENGTH
                 ;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :BIN9 INTEGER,
    :INT2 NUMERIC (9),
    :BIN2 SMALLINT,
    :CNAME CHAR(20),
    :INT4 NUMERIC (9),
    :INT5 NUMERIC (9));
      GET DESCRIPTOR 'D12411' VALUE 2
                    :BIN9 = TYPE, :INT2 = NULLABLE, :BIN2 = UNNAMED,
                    :CNAME = NAME, :INT4 = LENGTH, :INT5 = OCTET_LENGTH
                 ;

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :BIN2 SMALLINT,
    :INT2 NUMERIC (9),
    :BIN9 INTEGER,
    :CNAME CHAR(20),
    :INT4 NUMERIC (9),
    :INT5 NUMERIC (9));
      GET DESCRIPTOR 'D12411' VALUE 3
                    :BIN2 = TYPE, :INT2 = NULLABLE, :BIN9 = UNNAMED,
                    :CNAME = NAME, :INT4 = PRECISION, :INT5 = SCALE;

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :BIN2 SMALLINT,
    :CNAME CHAR(20),
    :BIN9 INTEGER,
    :INT5 NUMERIC (9));
      GET DESCRIPTOR 'D12411' VALUE 4
                    :INT1 = TYPE, :INT2 = NULLABLE, :BIN2 = UNNAMED,
                    :CNAME = NAME, :BIN9 = LENGTH, :INT5 = OCTET_LENGTH
                 ;

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      DELETE FROM CONCATBUF;

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      INSERT INTO CONCATBUF VALUES (
                    'SELECT * FROM CACHESTAT, COMBINATIONS' ||
                    ' WHERE HIT_RATIO < .97'
                    );

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

PROCEDURE SUB20 (SQLCODE, SQLSTATE,
    :LONGST CHAR(240));
      PREPARE S12412 FROM :LONGST;

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      DESCRIBE S12412 USING SQL DESCRIPTOR 'D12411'
                 ;

PROCEDURE SUB22 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      GET DESCRIPTOR 'D12411' :INT1 = COUNT;

PROCEDURE SUB23 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9),
    :CNAME CHAR(20),
    :INT4 NUMERIC (9));
      GET DESCRIPTOR 'D12411' VALUE 1
                    :INT1 = TYPE, :INT2 = NULLABLE, :INT3 = UNNAMED,
                    :CNAME = NAME, :INT4 = PRECISION;

PROCEDURE SUB24 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9),
    :CNAME CHAR(20),
    :INT4 NUMERIC (9));
      GET DESCRIPTOR 'D12411' VALUE 2
                    :INT1 = TYPE, :INT2 = NULLABLE, :INT3 = UNNAMED,
                    :CNAME = NAME, :INT4 = PRECISION;

PROCEDURE SUB25 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9),
    :CNAME CHAR(20),
    :INT4 NUMERIC (9),
    :INT5 NUMERIC (9));
      GET DESCRIPTOR 'D12411' VALUE 3
                    :INT1 = TYPE, :INT2 = NULLABLE, :INT3 = UNNAMED,
                    :CNAME = NAME, :INT4 = PRECISION, :INT5 = SCALE;

PROCEDURE SUB26 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9),
    :CNAME CHAR(20),
    :INT4 NUMERIC (9));
      GET DESCRIPTOR 'D12411' VALUE 4
                    :INT1 = TYPE, :INT2 = NULLABLE, :INT3 = UNNAMED,
                    :CNAME = NAME, :INT4 = PRECISION;

PROCEDURE SUB27 (SQLCODE, SQLSTATE,
    :INT6 NUMERIC (9),
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9),
    :CNAME CHAR(20),
    :INT4 NUMERIC (9),
    :INT5 NUMERIC (9));
      GET DESCRIPTOR 'D12411' VALUE :INT6
                    :INT1 = TYPE, :INT2 = NULLABLE, :INT3 = UNNAMED,
                    :CNAME = NAME, :INT4 = PRECISION, :INT5 = SCALE;

PROCEDURE SUB28 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9),
    :CNAME CHAR(20),
    :INT4 NUMERIC (9));
      GET DESCRIPTOR 'D12411' VALUE 6
                    :INT1 = TYPE, :INT2 = NULLABLE, :INT3 = UNNAMED,
                    :CNAME = NAME, :INT4 = PRECISION;

PROCEDURE SUB29 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9),
    :CNAME CHAR(20),
    :INT4 NUMERIC (9),
    :INT5 NUMERIC (9));
      GET DESCRIPTOR 'D12411' VALUE 7
                    :INT1 = TYPE, :INT2 = NULLABLE, :INT3 = UNNAMED,
                    :CNAME = NAME, :INT4 = PRECISION, :INT5 = SCALE;

PROCEDURE SUB30 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9),
    :CNAME CHAR(20),
    :INT4 NUMERIC (9),
    :INT5 NUMERIC (9));
      GET DESCRIPTOR 'D12411' VALUE 8
                    :INT1 = TYPE, :INT2 = NULLABLE, :INT3 = UNNAMED,
                    :CNAME = NAME, :INT4 = PRECISION, :INT5 = SCALE;

PROCEDURE SUB31 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S12413 FROM :DSTMT;

PROCEDURE SUB32 (SQLCODE, SQLSTATE);
      DESCRIBE S12413 USING SQL DESCRIPTOR 'D12411'
                 ;

PROCEDURE SUB33 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      GET DESCRIPTOR 'D12411' :INT1 = COUNT;

PROCEDURE SUB34 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9),
    :CNAME CHAR(20),
    :INT4 NUMERIC (9),
    :INT5 NUMERIC (9));
      GET DESCRIPTOR 'D12411' VALUE 1
                    :INT1 = TYPE, :INT2 = NULLABLE, :INT3 = UNNAMED,
                    :CNAME = NAME, :INT4 = LENGTH, :INT5 = OCTET_LENGTH
                 ;

PROCEDURE SUB35 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9),
    :CNAME CHAR(20),
    :INT4 NUMERIC (9),
    :INT5 NUMERIC (9));
      GET DESCRIPTOR 'D12411' VALUE 2
                    :INT1 = TYPE, :INT2 = NULLABLE, :INT3 = UNNAMED,
                    :CNAME = NAME, :INT4 = PRECISION, :INT5 = SCALE;

PROCEDURE SUB36 (SQLCODE, SQLSTATE);
      DELETE FROM CONCATBUF;

PROCEDURE SUB37 (SQLCODE, SQLSTATE);
      INSERT INTO CONCATBUF VALUES (
                    'SELECT HIT_RATIO AS HR, FRAGMENTATION_PCT * ?' ||
                    ' FROM CACHESTAT'
                    );

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

PROCEDURE SUB39 (SQLCODE, SQLSTATE,
    :LONGST CHAR(240));
      PREPARE S12414 FROM :LONGST;

PROCEDURE SUB40 (SQLCODE, SQLSTATE);
      DESCRIBE S12414 USING SQL DESCRIPTOR 'D12411'
                 ;

PROCEDURE SUB41 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :CNAME CHAR(20));
      GET DESCRIPTOR 'D12411' VALUE 1
                    :INT1 = NULLABLE, :INT2 = UNNAMED, :CNAME = NAME;

PROCEDURE SUB42 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9));
      GET DESCRIPTOR 'D12411' VALUE 2
                    :INT1 = NULLABLE, :INT2 = UNNAMED;

PROCEDURE SUB43 (SQLCODE, SQLSTATE);
      DEALLOCATE DESCRIPTOR 'D12411';

PROCEDURE SUB44 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB45 (SQLCODE, SQLSTATE);
      DROP TABLE CACHESTAT CASCADE;

PROCEDURE SUB46 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB47 (SQLCODE, SQLSTATE);
      DROP VIEW COMBINATIONS CASCADE;

PROCEDURE SUB48 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB51 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB52 (SQLCODE, SQLSTATE);
      CREATE TABLE BANKTAB (
                    NAAM CHAR (10), BALANCE NUMERIC (7, 2),
                    INTEREST DECIMAL (3, 2), TRANSACTIONS INT,
                    PAYMENTS SMALLINT, INTEREST_RATE FLOAT,
                    ANNUAL_YIELD REAL, FRACTIONAL_CENTS DOUBLE PRECISION)
                 ;

PROCEDURE SUB53 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB54 (SQLCODE, SQLSTATE);
      INSERT INTO BANKTAB VALUES (
                    'Bubba', 524.07, 2.42, 13, 1, 3.0, 3.1, -.256);

PROCEDURE SUB55 (SQLCODE, SQLSTATE);
      ALLOCATE DESCRIPTOR 'D12421' WITH MAX 9;

PROCEDURE SUB56 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S12421 FROM :DSTMT;

PROCEDURE SUB57 (SQLCODE, SQLSTATE);
      DESCRIBE OUTPUT S12421 USING SQL DESCRIPTOR
                  'D12421';

PROCEDURE SUB58 (SQLCODE, SQLSTATE);
      SET DESCRIPTOR 'D12421' VALUE 1
                    LENGTH = 20;

PROCEDURE SUB59 (SQLCODE, SQLSTATE);
      SET DESCRIPTOR 'D12421' VALUE 2
                    PRECISION = 8, SCALE = 4;

PROCEDURE SUB60 (SQLCODE, SQLSTATE);
      SET DESCRIPTOR 'D12421' VALUE 3
                    TYPE = 2, PRECISION = 8, SCALE = 4;

PROCEDURE SUB61 (SQLCODE, SQLSTATE);
      SET DESCRIPTOR 'D12421' VALUE 6
                    TYPE = 2, PRECISION = 8, SCALE = 4;

PROCEDURE SUB62 (SQLCODE, SQLSTATE);
      SET DESCRIPTOR 'D12421' VALUE 7
                    TYPE = 2, PRECISION = 8, SCALE = 4;

PROCEDURE SUB63 (SQLCODE, SQLSTATE);
      SET DESCRIPTOR 'D12421' VALUE 8
                    TYPE = 2, PRECISION = 8, SCALE = 4;

PROCEDURE SUB64 SQLCODE, SQLSTATE;
    OPEN C12421;

PROCEDURE SUB65 (SQLCODE, SQLSTATE);
      FETCH C12421 INTO SQL DESCRIPTOR 'D12421';

PROCEDURE SUB66 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      GET DESCRIPTOR 'D12421' :INT1 = COUNT;

PROCEDURE SUB67 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :CNAME CHAR(20));
      GET DESCRIPTOR 'D12421' VALUE 1
                    :INT1 = INDICATOR, :CNAME = DATA;

PROCEDURE SUB68 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :FLT1 NUMERIC (8,4));
      GET DESCRIPTOR 'D12421' VALUE 2
                    :INT1 = INDICATOR, :FLT1 = DATA;

PROCEDURE SUB69 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :FLT1 NUMERIC (8,4));
      GET DESCRIPTOR 'D12421' VALUE 3
                    :INT1 = INDICATOR, :FLT1 = DATA;

PROCEDURE SUB70 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :BIN9 INTEGER);
      GET DESCRIPTOR 'D12421' VALUE 4
                    :INT1 = INDICATOR, :BIN9 = DATA;

PROCEDURE SUB71 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :BIN2 SMALLINT);
      GET DESCRIPTOR 'D12421' VALUE 5
                    :INT1 = INDICATOR, :BIN2 = DATA;

PROCEDURE SUB72 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :FLT1 NUMERIC (8,4));
      GET DESCRIPTOR 'D12421' VALUE 6
                    :INT1 = INDICATOR, :FLT1 = DATA;

PROCEDURE SUB73 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :FLT1 NUMERIC (8,4));
      GET DESCRIPTOR 'D12421' VALUE 7
                    :INT1 = INDICATOR, :FLT1 = DATA;

PROCEDURE SUB74 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :FLT1 NUMERIC (8,4));
      GET DESCRIPTOR 'D12421' VALUE 8
                    :INT1 = INDICATOR, :FLT1 = DATA;

PROCEDURE SUB75 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      GET DESCRIPTOR 'D12421' VALUE 9
                    :INT1 = INDICATOR;

PROCEDURE SUB76 (SQLCODE, SQLSTATE);
      SET DESCRIPTOR 'D12421' VALUE 2
                    TYPE = 4;

PROCEDURE SUB77 (SQLCODE, SQLSTATE);
      CLOSE C12421;

PROCEDURE SUB79 (SQLCODE, SQLSTATE);
      FETCH C12421 INTO SQL DESCRIPTOR 'D12421';

PROCEDURE SUB80 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9),
    :CNAME CHAR(20),
    :INT6 NUMERIC (9),
    :BIN9 INTEGER);
      GET DESCRIPTOR 'D12421' VALUE 2
                    :INT1 = TYPE, :INT2 = NULLABLE, :INT3 = UNNAMED,
                    :CNAME = NAME, :INT6 = INDICATOR, :BIN9 = DATA;

PROCEDURE SUB81 (SQLCODE, SQLSTATE);
      CLOSE C12421;

PROCEDURE SUB82 (SQLCODE, SQLSTATE);
      UPDATE BANKTAB SET BALANCE = NULL;

PROCEDURE SUB84 (SQLCODE, SQLSTATE);
      FETCH C12421 INTO SQL DESCRIPTOR 'D12421';

PROCEDURE SUB85 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9),
    :CNAME CHAR(20),
    :INT6 NUMERIC (9),
    :BIN9 INTEGER);
      GET DESCRIPTOR 'D12421' VALUE 2
                    :INT1 = TYPE, :INT2 = NULLABLE, :INT3 = UNNAMED,
                    :CNAME = NAME, :INT6 = INDICATOR, :BIN9 = DATA;

PROCEDURE SUB86 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB87 (SQLCODE, SQLSTATE);
      DROP TABLE BANKTAB CASCADE;

PROCEDURE SUB88 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB91 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB92 (SQLCODE, SQLSTATE);
      CREATE TABLE BANKTAB (
                    NAAM CHAR (10), BALANCE NUMERIC (7, 2),
                    INTEREST DECIMAL (3, 2), TRANSACTIONS INT,
                    PAYMENTS SMALLINT, INTEREST_RATE FLOAT,
                    ANNUAL_YIELD REAL, FRACTIONAL_CENTS DOUBLE PRECISION)
                 ;

PROCEDURE SUB93 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB94 (SQLCODE, SQLSTATE);
      ALLOCATE DESCRIPTOR 'D12431' WITH MAX 8;

PROCEDURE SUB95 (SQLCODE, SQLSTATE);
      SET DESCRIPTOR 'D12431' COUNT = 8;

PROCEDURE SUB96 (SQLCODE, SQLSTATE);
      SET DESCRIPTOR 'D12431' VALUE 1
                    TYPE = 2, PRECISION = 3, SCALE = 0, INDICATOR = -1
                 ;

PROCEDURE SUB97 (SQLCODE, SQLSTATE,
    :FLT1 NUMERIC (8,4));
      SET DESCRIPTOR 'D12431' VALUE 2
                    DATA = :FLT1, TYPE = 2,
                    PRECISION = 8, SCALE = 4,
                    INDICATOR = 0;

PROCEDURE SUB98 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9),
    :C4 CHAR(4));
      SET DESCRIPTOR 'D12431' VALUE 3
                    TYPE = :INT1, LENGTH = :INT2,
                    INDICATOR = :INT3, DATA = :C4;

PROCEDURE SUB99 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9));
      SET DESCRIPTOR 'D12431' VALUE :INT1 TYPE = 2,
                      PRECISION = 9, INDICATOR = 0, DATA = :INT2;

PROCEDURE SUB100 (SQLCODE, SQLSTATE,
    :INT2 NUMERIC (9));
      SET DESCRIPTOR 'D12431' VALUE 5
                    TYPE = 2, PRECISION = 9, SCALE = 0, INDICATOR = 0,
                    DATA = :INT2;

PROCEDURE SUB101 (SQLCODE, SQLSTATE,
    :C6 CHAR(6));
      SET DESCRIPTOR 'D12431' VALUE 6
                    TYPE = 1, LENGTH = 6,
                    INDICATOR = 0, DATA = :C6;

PROCEDURE SUB102 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :C2 CHAR(2));
      SET DESCRIPTOR 'D12431' VALUE 7
                    TYPE = 1, INDICATOR = 0, LENGTH = :INT1, DATA = :C2
                 ;

PROCEDURE SUB103 (SQLCODE, SQLSTATE,
    :FLT1 NUMERIC (8,4));
      SET DESCRIPTOR 'D12431' VALUE 8 TYPE = 2,
                    PRECISION = 8, SCALE = 4,
                    INDICATOR = 0, DATA = :FLT1;

PROCEDURE SUB104 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S12431 FROM :DSTMT;

PROCEDURE SUB105 (SQLCODE, SQLSTATE);
      EXECUTE S12431 USING SQL DESCRIPTOR 'D12431'
                 ;

PROCEDURE SUB106 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1 FROM BANKTAB
                    WHERE NAAM IS NULL
                    AND BALANCE >= 3785.19 AND BALANCE <= 3785.21
                    AND INTEREST = 7.67
                    AND TRANSACTIONS = 5
                    AND PAYMENTS = 0
                    AND INTEREST_RATE >= 10.94 AND INTEREST_RATE <= 10.96
                    AND ANNUAL_YIELD >= 10.99 AND ANNUAL_YIELD <= 11.01
                    AND FRACTIONAL_CENTS >= 0.29 AND FRACTIONAL_CENTS <= 0.31
                 ;

PROCEDURE SUB107 (SQLCODE, SQLSTATE);
      SET DESCRIPTOR 'D12431' VALUE 1
                    TYPE = 6, PRECISION = 1, INDICATOR = -1;

PROCEDURE SUB108 (SQLCODE, SQLSTATE,
    :BIN2 SMALLINT,
    :SMINT1 SMALLINT);
      SET DESCRIPTOR 'D12431' VALUE 4
                    TYPE = 5, INDICATOR = :BIN2, DATA = :SMINT1;

PROCEDURE SUB109 (SQLCODE, SQLSTATE,
    :BIN9 INTEGER,
    :SMINT1 SMALLINT);
      SET DESCRIPTOR 'D12431' VALUE 5
                    TYPE = 5, INDICATOR = :BIN9, DATA = :SMINT1;

PROCEDURE SUB110 (SQLCODE, SQLSTATE,
    :C7 CHAR(7));
      SET DESCRIPTOR 'D12431' VALUE 6
                    TYPE = 1, LENGTH = 7,
                    INDICATOR = 0, DATA = :C7;

PROCEDURE SUB111 (SQLCODE, SQLSTATE);
      DELETE FROM CONCATBUF;

PROCEDURE SUB112 (SQLCODE, SQLSTATE);
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM BANKTAB'            ||
                    ' WHERE (NAAM = ? OR NAAM IS NULL) AND BALANCE = ?' ||
                    ' AND INTEREST = ? AND TRANSACTIONS = ?'  ||
                    ' AND PAYMENTS = ? AND INTEREST_RATE = ?' ||
                    ' AND ANNUAL_YIELD = ? AND FRACTIONAL_CENTS = ?'
                    );

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

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

PROCEDURE SUB115 (SQLCODE, SQLSTATE);
      OPEN C12432 USING SQL DESCRIPTOR 'D12431';

PROCEDURE SUB116 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      FETCH C12432 INTO :INT1;

PROCEDURE SUB117 (SQLCODE, SQLSTATE);
      CLOSE C12432;

PROCEDURE SUB118 (SQLCODE, SQLSTATE);
      DEALLOCATE DESCRIPTOR 'D12431';

PROCEDURE SUB119 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB120 (SQLCODE, SQLSTATE);
      DROP TABLE BANKTAB CASCADE;

PROCEDURE SUB121 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB124 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB125 (SQLCODE, SQLSTATE);
      CREATE TABLE LOTSA_DATETIMES (
                    C1 DATE, C2 TIME, C3 TIMESTAMP,
                    C4 INTERVAL YEAR, C5 INTERVAL MONTH, C6 INTERVAL DAY,
                    C7 INTERVAL HOUR, C8 INTERVAL MINUTE, C9 INTERVAL SECOND,
                    C10 INTERVAL YEAR TO MONTH,
                    C11 INTERVAL DAY TO HOUR,
                    C12 INTERVAL DAY TO MINUTE,
                    C13 INTERVAL DAY TO SECOND,
                    C14 INTERVAL HOUR TO MINUTE,
                    C15 INTERVAL HOUR TO SECOND,
                    C16 INTERVAL MINUTE TO SECOND);

PROCEDURE SUB126 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB127 (SQLCODE, SQLSTATE);
      ALLOCATE DESCRIPTOR 'D12441' WITH MAX 16;

PROCEDURE SUB128 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S12441 FROM :DSTMT;

PROCEDURE SUB129 (SQLCODE, SQLSTATE);
      DESCRIBE OUTPUT S12441 USING SQL DESCRIPTOR
                  'D12441';

PROCEDURE SUB130 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      GET DESCRIPTOR 'D12441' :INT1 = COUNT;

PROCEDURE SUB131 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9));
      GET DESCRIPTOR 'D12441' VALUE 1
                    :INT1 = TYPE, :INT2 = DATETIME_INTERVAL_CODE;

PROCEDURE SUB132 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9));
      GET DESCRIPTOR 'D12441' VALUE 2
                    :INT1 = TYPE, :INT2 = DATETIME_INTERVAL_CODE,
                    :INT3 = PRECISION;

PROCEDURE SUB133 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9));
      GET DESCRIPTOR 'D12441' VALUE 3
                    :INT1 = TYPE, :INT2 = DATETIME_INTERVAL_CODE,
                    :INT3 = PRECISION;

PROCEDURE SUB134 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9));
      GET DESCRIPTOR 'D12441' VALUE 4
                    :INT1 = TYPE, :INT2 = DATETIME_INTERVAL_CODE,
                    :INT3 = DATETIME_INTERVAL_PRECISION;

PROCEDURE SUB135 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9));
      GET DESCRIPTOR 'D12441' VALUE 5
                    :INT1 = TYPE, :INT2 = DATETIME_INTERVAL_CODE,
                    :INT3 = DATETIME_INTERVAL_PRECISION;

PROCEDURE SUB136 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9));
      GET DESCRIPTOR 'D12441' VALUE 6
                    :INT1 = TYPE, :INT2 = DATETIME_INTERVAL_CODE,
                    :INT3 = DATETIME_INTERVAL_PRECISION;

PROCEDURE SUB137 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9));
      GET DESCRIPTOR 'D12441' VALUE 7
                    :INT1 = TYPE, :INT2 = DATETIME_INTERVAL_CODE,
                    :INT3 = DATETIME_INTERVAL_PRECISION;

PROCEDURE SUB138 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9));
      GET DESCRIPTOR 'D12441' VALUE 8
                    :INT1 = TYPE, :INT2 = DATETIME_INTERVAL_CODE,
                    :INT3 = DATETIME_INTERVAL_PRECISION;

PROCEDURE SUB139 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9),
    :INT4 NUMERIC (9));
      GET DESCRIPTOR 'D12441' VALUE 9
                    :INT1 = TYPE, :INT2 = DATETIME_INTERVAL_CODE,
                    :INT3 = DATETIME_INTERVAL_PRECISION,
                    :INT4 = PRECISION;

PROCEDURE SUB140 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9));
      GET DESCRIPTOR 'D12441' VALUE 10
                    :INT1 = TYPE, :INT2 = DATETIME_INTERVAL_CODE,
                    :INT3 = DATETIME_INTERVAL_PRECISION;

PROCEDURE SUB141 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9));
      GET DESCRIPTOR 'D12441' VALUE 11
                    :INT1 = TYPE, :INT2 = DATETIME_INTERVAL_CODE,
                    :INT3 = DATETIME_INTERVAL_PRECISION;

PROCEDURE SUB142 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9));
      GET DESCRIPTOR 'D12441' VALUE 12
                    :INT1 = TYPE, :INT2 = DATETIME_INTERVAL_CODE,
                    :INT3 = DATETIME_INTERVAL_PRECISION;

PROCEDURE SUB143 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9),
    :INT4 NUMERIC (9));
      GET DESCRIPTOR 'D12441' VALUE 13
                    :INT1 = TYPE, :INT2 = DATETIME_INTERVAL_CODE,
                    :INT3 = DATETIME_INTERVAL_PRECISION,
                    :INT4 = PRECISION;

PROCEDURE SUB144 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9));
      GET DESCRIPTOR 'D12441' VALUE 14
                    :INT1 = TYPE, :INT2 = DATETIME_INTERVAL_CODE,
                    :INT3 = DATETIME_INTERVAL_PRECISION;

PROCEDURE SUB145 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9),
    :INT4 NUMERIC (9));
      GET DESCRIPTOR 'D12441' VALUE 15
                    :INT1 = TYPE, :INT2 = DATETIME_INTERVAL_CODE,
                    :INT3 = DATETIME_INTERVAL_PRECISION,
                    :INT4 = PRECISION;

PROCEDURE SUB146 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9),
    :INT4 NUMERIC (9));
      GET DESCRIPTOR 'D12441' VALUE 16
                    :INT1 = TYPE, :INT2 = DATETIME_INTERVAL_CODE,
                    :INT3 = DATETIME_INTERVAL_PRECISION,
                    :INT4 = PRECISION;

PROCEDURE SUB147 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      SET DESCRIPTOR 'D12441' VALUE 1
                    INDICATOR = 0, TYPE = 1,
                    LENGTH = 50, DATA = :DSTMT;

PROCEDURE SUB148 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      SET DESCRIPTOR 'D12441' VALUE 2
                    INDICATOR = 0, TYPE = 1, LENGTH = 50,
                    DATA = :DSTMT;

PROCEDURE SUB149 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      SET DESCRIPTOR 'D12441' VALUE 3
                    INDICATOR = 0,
                    TYPE = 1, LENGTH = 50, DATA = :DSTMT;

PROCEDURE SUB150 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      SET DESCRIPTOR 'D12441' VALUE 4
                    INDICATOR = 0, TYPE = 1, LENGTH = 50,
                    DATA = :DSTMT;

PROCEDURE SUB151 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      SET DESCRIPTOR 'D12441' VALUE 5
                    INDICATOR = 0, TYPE = 1, LENGTH = 50,
                    DATA = :DSTMT;

PROCEDURE SUB152 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      SET DESCRIPTOR 'D12441' VALUE 6
                    INDICATOR = 0, TYPE = 1, LENGTH = 50,
                    DATA = :DSTMT;

PROCEDURE SUB153 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      SET DESCRIPTOR 'D12441' VALUE 7
                    INDICATOR = 0, TYPE = 1, LENGTH = 50,
                    DATA = :DSTMT;

PROCEDURE SUB154 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      SET DESCRIPTOR 'D12441' VALUE 8
                    INDICATOR = 0, TYPE = 1, LENGTH = 50,
                    DATA = :DSTMT;

PROCEDURE SUB155 (SQLCODE, SQLSTATE);
      SET DESCRIPTOR 'D12441' VALUE 9
                    INDICATOR = -1;

PROCEDURE SUB156 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      SET DESCRIPTOR 'D12441' VALUE 10
                    INDICATOR = 0, TYPE = 1, LENGTH = 50, DATA = :DSTMT
                 ;

PROCEDURE SUB157 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      SET DESCRIPTOR 'D12441' VALUE 11
                    INDICATOR = 0, TYPE = 1, LENGTH = 50, DATA = :DSTMT
                 ;

PROCEDURE SUB158 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      SET DESCRIPTOR 'D12441' VALUE 12
                    INDICATOR = 0, TYPE = 1, LENGTH = 50, DATA = :DSTMT
                 ;

PROCEDURE SUB159 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      SET DESCRIPTOR 'D12441' VALUE 13
                    INDICATOR = 0, DATA =
                    :DSTMT, TYPE = 1, LENGTH = 50;

PROCEDURE SUB160 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      SET DESCRIPTOR 'D12441' VALUE 14
                    INDICATOR = 0, TYPE = 1, LENGTH = 50, DATA = :DSTMT
                 ;

PROCEDURE SUB161 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      SET DESCRIPTOR 'D12441' VALUE 15
                    INDICATOR = 0, DATA =
                    :DSTMT, TYPE = 1, LENGTH = 50;

PROCEDURE SUB162 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      SET DESCRIPTOR 'D12441' VALUE 16
                    INDICATOR = 0, DATA =
                    :DSTMT, TYPE = 1, LENGTH = 50;

PROCEDURE SUB163 (SQLCODE, SQLSTATE);
      DELETE FROM CONCATBUF;

PROCEDURE SUB164 (SQLCODE, SQLSTATE);
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO LOTSA_DATETIMES VALUES (' ||
                    ' ?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)'
                    );

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

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

PROCEDURE SUB167 (SQLCODE, SQLSTATE);
      EXECUTE S12442 USING SQL DESCRIPTOR 'D12441'
                 ;

PROCEDURE SUB168 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM LOTSA_DATETIMES WHERE
                    C1 = DATE '1994-06-24' AND C2 = TIME '14:41:10'
                    AND C3 = TIMESTAMP '1994-12-25 00:00:00'
                    AND C4 = INTERVAL '1' YEAR
                    AND C5 = INTERVAL '5' MONTH AND C6 = INTERVAL '20' DAY
                    AND C7 = INTERVAL '30' HOUR AND C8 = INTERVAL '15' MINUTE
                    AND C9 IS NULL AND
                    C10 = INTERVAL '3-11' YEAR TO MONTH AND
                    C11 = INTERVAL '1 16' DAY TO HOUR AND
                    C12 = INTERVAL '1 16:10' DAY TO MINUTE AND
                    C13 = INTERVAL '1 16:10:07' DAY TO SECOND AND
                    C14 = INTERVAL '2:17' HOUR TO MINUTE AND
                    C15 = INTERVAL '2:17:56' HOUR TO SECOND AND
                    C16 = INTERVAL '0:56' MINUTE TO SECOND;

PROCEDURE SUB169 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      SET DESCRIPTOR 'D12441' VALUE 3
                    TYPE = 1, LENGTH = 50, DATA = :DSTMT
                 ;

PROCEDURE SUB170 (SQLCODE, SQLSTATE,
    :SMINT1 SMALLINT);
      SET DESCRIPTOR 'D12441' VALUE 4
                    TYPE = 5, DATA = :SMINT1;

PROCEDURE SUB171 (SQLCODE, SQLSTATE);
      SET DESCRIPTOR 'D12441' VALUE 9
                    TYPE = 8;

PROCEDURE SUB172 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      SET DESCRIPTOR 'D12441' VALUE 12
                    TYPE = 1, LENGTH = 50,
                    DATA = :DSTMT;

PROCEDURE SUB173 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      SET DESCRIPTOR 'D12441' VALUE 13
                    TYPE = 1, LENGTH = 50, DATA = :DSTMT;

PROCEDURE SUB174 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      SET DESCRIPTOR 'D12441' VALUE 16
                    TYPE = 1, LENGTH = 50,
                    DATA = :DSTMT;

PROCEDURE SUB175 (SQLCODE, SQLSTATE);
      DELETE FROM CONCATBUF;

PROCEDURE SUB176 (SQLCODE, SQLSTATE);
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM LOTSA_DATETIMES' ||
                    ' WHERE C1 = ? AND C2 = ? AND C3 = ?'  ||
                    ' AND C4 = ? AND C5 = ? AND C6 = ?'    ||
                    ' AND C7 = ? AND C8 = ? AND (C9 = ? OR C9 IS NULL)'    ||
                    ' AND C10 = ? AND C11 = ? AND C12 = ?' ||
                    ' AND C13 = ? AND C14 = ? AND C15 = ?' ||
                    ' AND C16 = ?'
                    );

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

PROCEDURE SUB178 (SQLCODE, SQLSTATE,
    :LONGST CHAR(240));
      PREPARE S12443 FROM :LONGST;

PROCEDURE SUB179 (SQLCODE, SQLSTATE);
      OPEN C12443 USING SQL DESCRIPTOR 'D12441';

PROCEDURE SUB180 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      FETCH C12443 INTO :INT1;

PROCEDURE SUB181 (SQLCODE, SQLSTATE);
      CLOSE C12443;

PROCEDURE SUB182 (SQLCODE, SQLSTATE);
      DESCRIBE OUTPUT S12441 USING SQL DESCRIPTOR
                  'D12441';

PROCEDURE SUB183 (SQLCODE, SQLSTATE);
      SET DESCRIPTOR 'D12441' VALUE 4
                    TYPE = 4;

PROCEDURE SUB184 (SQLCODE, SQLSTATE);
      SET DESCRIPTOR 'D12441' VALUE 9
                    PRECISION = 0, TYPE = 9, DATETIME_INTERVAL_CODE = 1
                 ;

PROCEDURE SUB185 (SQLCODE, SQLSTATE);
      SET DESCRIPTOR 'D12441' VALUE 15
                    TYPE = 1, LENGTH = 50;

PROCEDURE SUB186 SQLCODE, SQLSTATE;
    OPEN C12441;

PROCEDURE SUB187 (SQLCODE, SQLSTATE);
      FETCH C12441 INTO SQL DESCRIPTOR 'D12441';

PROCEDURE SUB188 (SQLCODE, SQLSTATE,
    :BIN9 INTEGER,
    :INT2 NUMERIC (9));
      GET DESCRIPTOR 'D12441' VALUE 4
                    :BIN9 = DATA, :INT2 = INDICATOR;

PROCEDURE SUB189 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      GET DESCRIPTOR 'D12441' VALUE 9
                    :INT1 = INDICATOR;

PROCEDURE SUB190 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      GET DESCRIPTOR 'D12441' VALUE 15
                    :DSTMT = DATA;

PROCEDURE SUB191 (SQLCODE, SQLSTATE);
      DEALLOCATE DESCRIPTOR 'D12441';

PROCEDURE SUB192 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB193 (SQLCODE, SQLSTATE);
      DROP TABLE LOTSA_DATETIMES CASCADE;

PROCEDURE SUB194 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB197 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB198 (SQLCODE, SQLSTATE);
      DROP TABLE CONCATBUF CASCADE;

PROCEDURE SUB199 (SQLCODE, SQLSTATE);
      COMMIT WORK;

[ Dauer der Verarbeitung: 0.155 Sekunden  ]