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: dml136.cob   Sprache: Unknown

Spracherkennung für: .mco vermutete Sprache: Scala {Scala[73] Python[92] Pl1[98]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

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

DECLARE C12211  CURSOR FOR S12211
DECLARE C12212  CURSOR FOR S12212
DECLARE C12213  CURSOR FOR S12213
DECLARE C12214  CURSOR FOR S12214
DECLARE BEACH_PARTY  CURSOR FOR GIDGET
DECLARE C12232  CURSOR FOR S12232


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 SSSLOG ('                  ||
                    ' ENTERED_BY CHAR (128) DEFAULT USER,' ||
                    ' SEVERITY INT DEFAULT 1,'             ||
                    ' PROBLEM CHAR (40) DEFAULT NULL)'
                    );

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

PROCEDURE SUB10 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB11 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO SSSLOG VALUES' ||
                    ' (DEFAULT, DEFAULT, DEFAULT)'
                    );

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

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

PROCEDURE SUB14 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB15 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO SSSLOG VALUES' ||
                    ' (DEFAULT, 3, ''Cross-linked inode'')'
                    );

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

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

PROCEDURE SUB18 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB19 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO SSSLOG VALUES' ||
                    ' (''system'', DEFAULT, ''Freed a free frag'')'
                    );

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

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

PROCEDURE SUB22 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB23 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO SSSLOG VALUES' ||
                    ' (''nobody'', 6, DEFAULT)'
                    );

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

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

PROCEDURE SUB26 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB27 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'UPDATE SSSLOG SET SEVERITY = DEFAULT' ||
                    ' WHERE PROBLEM LIKE ''%inode%'''
                    );

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

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

PROCEDURE SUB30 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB31 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM SSSLOG WHERE'          ||
                    ' ENTERED_BY = ''FLATER'' AND SEVERITY = 1' ||
                    ' AND PROBLEM IS NULL'
                    );

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

PROCEDURE SUB33 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S12211 FROM :LONGST;

PROCEDURE SUB34 SQLCODE SQLSTATE;
    OPEN C12211;

PROCEDURE SUB35 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C12211 INTO :INT1;

PROCEDURE SUB36 SQLCODE SQLSTATE;
      CLOSE C12211;

PROCEDURE SUB37 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB38 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM SSSLOG WHERE' ||
                    ' ENTERED_BY = ''FLATER'' AND SEVERITY = 1'   ||
                    ' AND PROBLEM = ''Cross-linked inode'''
                    );

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

PROCEDURE SUB40 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S12212 FROM :LONGST;

PROCEDURE SUB41 SQLCODE SQLSTATE;
    OPEN C12212;

PROCEDURE SUB42 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C12212 INTO :INT1;

PROCEDURE SUB43 SQLCODE SQLSTATE;
      CLOSE C12212;

PROCEDURE SUB44 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB45 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM SSSLOG WHERE'          ||
                    ' ENTERED_BY = ''system'' AND SEVERITY = 1' ||
                    ' AND PROBLEM = ''Freed a free frag'''
                    );

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

PROCEDURE SUB47 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S12213 FROM :LONGST;

PROCEDURE SUB48 SQLCODE SQLSTATE;
    OPEN C12213;

PROCEDURE SUB49 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C12213 INTO :INT1;

PROCEDURE SUB50 SQLCODE SQLSTATE;
      CLOSE C12213;

PROCEDURE SUB51 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB52 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM SSSLOG WHERE'          ||
                    ' ENTERED_BY = ''nobody'' AND SEVERITY = 6' ||
                    ' AND PROBLEM IS NULL'
                    );

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

PROCEDURE SUB54 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S12214 FROM :LONGST;

PROCEDURE SUB55 SQLCODE SQLSTATE;
    OPEN C12214;

PROCEDURE SUB56 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C12214 INTO :INT1;

PROCEDURE SUB57 SQLCODE SQLSTATE;
      CLOSE C12214;

PROCEDURE SUB58 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB60 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB63 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB64 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB65 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE VIEW VERBOSE_PEOPLE AS'                     ||
                    ' SELECT EMPNAME FROM HU.STAFF AS EMPLOYEES_OF_HU' ||
                    ' WHERE EMPLOYEES_OF_HU.EMPNUM IN'                 ||
                    ' (SELECT EMPNUM FROM HU.PROJ AS HUPROJ, HU.WORKS' ||
                    ' WHERE PTYPE = ''Design'''                        ||
                    ' AND HUPROJ.PNUM = HU.WORKS.PNUM)'
                    );

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

PROCEDURE SUB67 SQLCODE SQLSTATE;
      COMMIT;

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

PROCEDURE SUB69 SQLCODE SQLSTATE;
      COMMIT;

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

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

PROCEDURE SUB72 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE GIDGET FROM :DSTMT;

PROCEDURE SUB73 SQLCODE SQLSTATE;
    OPEN BEACH_PARTY;

PROCEDURE SUB74 SQLCODE SQLSTATE
    :NAME CHAR(20);
      FETCH FROM BEACH_PARTY INTO :NAME;

PROCEDURE SUB75 SQLCODE SQLSTATE;
      CLOSE BEACH_PARTY;

PROCEDURE SUB76 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE GODZILLA FROM :DSTMT;

PROCEDURE SUB77 SQLCODE SQLSTATE;
      EXECUTE GODZILLA;

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

PROCEDURE SUB79 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB82 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB83 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 SUB84 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB85 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB86 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO LOTSA_DATETIMES (C1, C2, C3, C4, C5, C6)' ||
                    ' VALUES (' ||
                    ' CAST (''1976-06-21'' AS DATE), CAST (? AS TIME),' ||
                    ' CAST (? AS TIMESTAMP), CAST (? AS INTERVAL YEAR),' ||
                    ' CAST (? AS INTERVAL MONTH), CAST (? AS INTERVAL DAY))'
                    );

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

PROCEDURE SUB88 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S12233 FROM :LONGST;

PROCEDURE SUB89 SQLCODE SQLSTATE
    :LDT2 CHAR(19)
    :LDT3 CHAR(19)
    :LDT4 CHAR(19)
    :LDT5 CHAR(19)
    :LDT6 CHAR(19);
      EXECUTE S12233 USING :LDT2, :LDT3, :LDT4, :LDT5,
                  :LDT6;

PROCEDURE SUB90 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB91 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO LOTSA_DATETIMES (C7, C8, C9, C10, C11)'||
                    ' VALUES (' ||
                    ' CAST (? AS INTERVAL HOUR), CAST (? AS INTERVAL' ||
                    ' MINUTE),' ||
                    ' CAST (? AS INTERVAL SECOND), CAST (? AS INTERVAL '||
                    ' YEAR TO MONTH),' ||
                    ' CAST (? AS INTERVAL DAY TO HOUR))'
                    );

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

PROCEDURE SUB93 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S12234 FROM :LONGST;

PROCEDURE SUB94 SQLCODE SQLSTATE
    :LDT7 CHAR(19)
    :LDT8 CHAR(19)
    :LDT9 CHAR(19)
    :LDT10 CHAR(19)
    :LDT11 CHAR(19);
      EXECUTE S12234 USING :LDT7, :LDT8, :LDT9, :LDT10,
                  :LDT11;

PROCEDURE SUB95 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB96 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO LOTSA_DATETIMES (C12, C13) VALUES (' ||
                    ' CAST (? AS INTERVAL DAY TO MINUTE),' ||
                    ' CAST (? AS INTERVAL DAY TO SECOND))'
                    );

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

PROCEDURE SUB98 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S12235 FROM :LONGST;

PROCEDURE SUB99 SQLCODE SQLSTATE
    :LDT12 CHAR(19)
    :LDT13 CHAR(19);
      EXECUTE S12235 USING :LDT12, :LDT13;

PROCEDURE SUB100 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB101 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO LOTSA_DATETIMES (C14, C15, C16) VALUES (' ||
                    ' CAST (? AS INTERVAL HOUR TO MINUTE),' ||
                    ' CAST (? AS INTERVAL HOUR TO SECOND),' ||
                    ' CAST (''-20:00'' AS INTERVAL MINUTE TO SECOND))'
                    );

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

PROCEDURE SUB103 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S12236 FROM :LONGST;

PROCEDURE SUB104 SQLCODE SQLSTATE
    :LDT14 CHAR(19)
    :LDT15 CHAR(19);
      EXECUTE S12236 USING :LDT14, :LDT15;

PROCEDURE SUB105 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM LOTSA_DATETIMES;

PROCEDURE SUB106 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB107 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'DELETE FROM LOTSA_DATETIMES WHERE' ||
                    ' C1 = DATE ''1976-06-21'' AND' ||
                    ' C2 = TIME ''13:24:00'' AND' ||
                    ' C3 = TIMESTAMP ''1927-11-30 07:10:00.000000'' AND' ||
                    ' C4 = INTERVAL -''1'' YEAR AND' ||
                    ' C5 = INTERVAL -''-2'' MONTH AND' ||
                    ' C6 = INTERVAL ''-3'' DAY'
                    );

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

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

PROCEDURE SUB110 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB111 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'DELETE FROM LOTSA_DATETIMES WHERE' ||
                    ' C7 = INTERVAL ''4'' HOUR AND' ||
                    ' C8 = INTERVAL -''5'' MINUTE AND' ||
                    ' C9 = INTERVAL ''6.333333'' SECOND AND' ||
                    ' C10 = INTERVAL -''5-11'' YEAR TO MONTH AND' ||
                    ' C11 = INTERVAL +''2 15'' DAY TO HOUR'
                    );

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

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

PROCEDURE SUB114 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB115 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM LOTSA_DATETIMES' ||
                    ' WHERE (C12 = INTERVAL ''-3 4:05'' DAY TO MINUTE'||
                    ' AND C13 = INTERVAL ''+6 17:08:09.000000'' DAY'||
                    ' TO SECOND) OR' ||
                    ' (C14 = INTERVAL ''-10:45'' HOUR TO MINUTE AND' ||
                    ' C15 = INTERVAL ''11:23:45.750000'' HOUR TO SECOND)'
                    );

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

PROCEDURE SUB117 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S12232 FROM :LONGST;

PROCEDURE SUB118 SQLCODE SQLSTATE;
    OPEN C12232;

PROCEDURE SUB119 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C12232 INTO :INT1;

PROCEDURE SUB120 SQLCODE SQLSTATE;
      CLOSE C12232;

PROCEDURE SUB121 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB123 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB126 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB127 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB128 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE TABLE WOODCHUCK (' ||
                    ' OBSERVATION DATE,'      ||
                    ' WOOD_AGE INTERVAL YEAR TO MONTH)'
                    );

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

PROCEDURE SUB130 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB132 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB133 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB134 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO WOODCHUCK VALUES (' ||
                    ' CAST (? AS DATE),' ||
                    ' CAST (? AS INTERVAL YEAR TO MONTH))'
                    );

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

PROCEDURE SUB136 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S12241 FROM :LONGST;

PROCEDURE SUB137 SQLCODE SQLSTATE
    :LDT2 CHAR(19)
    :LDT3 CHAR(19)
    :INDIC1 NUMERIC (4);
      EXECUTE S12241 USING :LDT2, :LDT3:INDIC1;

PROCEDURE SUB138 SQLCODE SQLSTATE
    :LDT2 CHAR(19)
    :INDIC1 NUMERIC (4)
    :LDT3 CHAR(19);
      EXECUTE S12241 USING :LDT2:INDIC1, :LDT3;

PROCEDURE SUB139 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB141 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB144 SQLCODE SQLSTATE;
      COMMIT WORK;

[ Dauer der Verarbeitung: 0.84 Sekunden  ]