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: README.txt   Sprache: Text

Untersuchungsergebnis.mco Download desLatech {Latech[77] CS[219] Ada[256]}zum Wurzelverzeichnis wechseln

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

DECLARE C10911  CURSOR FOR S10911
DECLARE C10912  CURSOR FOR S10912
DECLARE C10913  CURSOR FOR S10913
DECLARE C10914  CURSOR FOR S10914
DECLARE C10915  CURSOR FOR S10915
DECLARE C10916  CURSOR FOR S10916
DECLARE C10917  CURSOR FOR S10917
DECLARE C10918  CURSOR FOR S10918
DECLARE C10919  CURSOR FOR S10919
DECLARE C1091A  CURSOR FOR S1091A
DECLARE C1091B  CURSOR FOR S1091B
DECLARE C1091C  CURSOR FOR S1091C
DECLARE C1091D  CURSOR FOR S1091D
DECLARE C1091E  CURSOR FOR S1091E
DECLARE C1091F  CURSOR FOR S1091F
DECLARE C1091G  CURSOR FOR S1091G
DECLARE C1091H  CURSOR FOR S1091H
DECLARE C1091I  CURSOR FOR S1091I


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 TEMPS ('      ||
                    ' ENTERED TIMESTAMP,'     ||
                    ' START DATE,'          ||
                    ' APPT INTERVAL DAY,'  ||
                    ' HOUR_IN TIME,'          ||
                    ' HOUR_OUT TIME,'          ||
                    ' LUNCH INTERVAL HOUR TO MINUTE)'
                    );

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 VIEW SUBQ1 AS'                  ||
                    ' SELECT MIN (HOUR_IN) AS TOO_EARLY,'  ||
                    ' MAX (ALL START) AS LATEST,'          ||
                    ' AVG (LUNCH) AS AVGLUNCH,'            ||
                    ' AVG (DISTINCT LUNCH) AS D_AVGLUNCH,' ||
                    ' SUM (APPT) AS SUMAPPT'               ||
                    ' FROM TEMPS'
                    );

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 (
                    'INSERT INTO TEMPS VALUES ('                      ||
                    ' TIMESTAMP ''1993-11-10 12:25:14'','            ||
                    ' DATE ''1993-11-12'','                          ||
                    ' INTERVAL ''4'' DAY,'                           ||
                    ' TIME ''08:30:00'','                            ||
                    ' TIME ''16:30:00'','                            ||
                    ' INTERVAL ''1:00'' HOUR TO MINUTE)'
                    );

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

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

PROCEDURE SUB19 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB20 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO TEMPS VALUES ('                      ||
                    ' TIMESTAMP ''1993-11-10 13:15:14'','            ||
                    ' DATE ''1993-11-15'','                          ||
                    ' INTERVAL ''5'' DAY,'                           ||
                    ' TIME ''08:30:00'','                            ||
                    ' TIME ''17:30:00'','                            ||
                    ' INTERVAL ''0:30'' HOUR TO MINUTE)'
                    );

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

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

PROCEDURE SUB23 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB24 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO TEMPS VALUES ('                      ||
                    ' TIMESTAMP ''1993-11-17 09:56:48'','            ||
                    ' DATE ''1994-11-18'','                          ||
                    ' INTERVAL ''3'' DAY,'                           ||
                    ' TIME ''09:00:00'','                            ||
                    ' TIME ''17:00:00'','                            ||
                    ' INTERVAL ''1:00'' HOUR TO MINUTE)'
                    );

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

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

PROCEDURE SUB27 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB28 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM TEMPS WHERE'  ||
                    ' LUNCH < INTERVAL ''1:00'' HOUR TO MINUTE'
                    );

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

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

PROCEDURE SUB31 SQLCODE SQLSTATE;
    OPEN C10911;

PROCEDURE SUB32 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10911 INTO :INT1;

PROCEDURE SUB33 SQLCODE SQLSTATE;
      CLOSE C10911;

PROCEDURE SUB34 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB35 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM TEMPS WHERE'  ||
                    ' LUNCH <= INTERVAL ''1:00'' HOUR TO MINUTE'
                    );

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

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

PROCEDURE SUB38 SQLCODE SQLSTATE;
    OPEN C10912;

PROCEDURE SUB39 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10912 INTO :INT1;

PROCEDURE SUB40 SQLCODE SQLSTATE;
      CLOSE C10912;

PROCEDURE SUB41 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB42 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM TEMPS WHERE'   ||
                    ' START <> DATE ''1993-11-15'' AND' ||
                    ' START <> DATE ''1993-11-12'''
                    );

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

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

PROCEDURE SUB45 SQLCODE SQLSTATE;
    OPEN C10913;

PROCEDURE SUB46 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10913 INTO :INT1;

PROCEDURE SUB47 SQLCODE SQLSTATE;
      CLOSE C10913;

PROCEDURE SUB48 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB49 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM TEMPS WHERE'   ||
                    ' START = DATE ''1993-11-15'' OR'   ||
                    ' START = DATE ''1993-11-12'''
                    );

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

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

PROCEDURE SUB52 SQLCODE SQLSTATE;
    OPEN C10914;

PROCEDURE SUB53 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10914 INTO :INT1;

PROCEDURE SUB54 SQLCODE SQLSTATE;
      CLOSE C10914;

PROCEDURE SUB55 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB56 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM TEMPS WHERE'   ||
                    ' HOUR_OUT > TIME ''17:00:00'''
                    );

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

PROCEDURE SUB58 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S10915 FROM :LONGST;

PROCEDURE SUB59 SQLCODE SQLSTATE;
    OPEN C10915;

PROCEDURE SUB60 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10915 INTO :INT1;

PROCEDURE SUB61 SQLCODE SQLSTATE;
      CLOSE C10915;

PROCEDURE SUB62 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB63 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM TEMPS WHERE'   ||
                    ' HOUR_OUT >= TIME ''17:00:00'''
                    );

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

PROCEDURE SUB65 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S10916 FROM :LONGST;

PROCEDURE SUB66 SQLCODE SQLSTATE;
    OPEN C10916;

PROCEDURE SUB67 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10916 INTO :INT1;

PROCEDURE SUB68 SQLCODE SQLSTATE;
      CLOSE C10916;

PROCEDURE SUB69 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB70 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM TEMPS WHERE'   ||
                    ' ENTERED BETWEEN'                  ||
                    ' TIMESTAMP ''1993-11-10 00:00:00'' AND' ||
                    ' TIMESTAMP ''1993-11-10 23:59:59'''
                    );

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

PROCEDURE SUB72 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S10917 FROM :LONGST;

PROCEDURE SUB73 SQLCODE SQLSTATE;
    OPEN C10917;

PROCEDURE SUB74 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10917 INTO :INT1;

PROCEDURE SUB75 SQLCODE SQLSTATE;
      CLOSE C10917;

PROCEDURE SUB76 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB77 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM TEMPS WHERE'   ||
                    ' HOUR_OUT IN'                      ||
                    ' (SELECT HOUR_IN + INTERVAL ''8'' HOUR' ||
                    ' FROM TEMPS)'
                    );

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

PROCEDURE SUB79 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S10918 FROM :LONGST;

PROCEDURE SUB80 SQLCODE SQLSTATE;
    OPEN C10918;

PROCEDURE SUB81 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10918 INTO :INT1;

PROCEDURE SUB82 SQLCODE SQLSTATE;
      CLOSE C10918;

PROCEDURE SUB83 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB84 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM TEMPS WHERE'   ||
                    ' (START, APPT) OVERLAPS'           ||
                    ' (DATE ''1993-11-14'','  ||
                    ' INTERVAL ''2'' DAY)'
                    );

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

PROCEDURE SUB86 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S10919 FROM :LONGST;

PROCEDURE SUB87 SQLCODE SQLSTATE;
    OPEN C10919;

PROCEDURE SUB88 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10919 INTO :INT1;

PROCEDURE SUB89 SQLCODE SQLSTATE;
      CLOSE C10919;

PROCEDURE SUB90 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB91 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM TEMPS WHERE'   ||
                    ' HOUR_OUT = ANY'                   ||
                    ' (SELECT HOUR_IN + INTERVAL ''8'' HOUR' ||
                    ' FROM TEMPS)'
                    );

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

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

PROCEDURE SUB94 SQLCODE SQLSTATE;
    OPEN C1091A;

PROCEDURE SUB95 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C1091A INTO :INT1;

PROCEDURE SUB96 SQLCODE SQLSTATE;
      CLOSE C1091A;

PROCEDURE SUB97 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB98 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM TEMPS WHERE'   ||
                    ' EXTRACT (YEAR FROM ENTERED) <> SOME' ||
                    ' (SELECT EXTRACT (YEAR FROM START)'   ||
                    ' FROM TEMPS)'
                    );

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

PROCEDURE SUB100 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S1091B FROM :LONGST;

PROCEDURE SUB101 SQLCODE SQLSTATE;
    OPEN C1091B;

PROCEDURE SUB102 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C1091B INTO :INT1;

PROCEDURE SUB103 SQLCODE SQLSTATE;
      CLOSE C1091B;

PROCEDURE SUB104 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB105 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM TEMPS WHERE'   ||
                    ' EXTRACT (YEAR FROM START) <> ALL' ||
                    ' (SELECT EXTRACT (YEAR FROM ENTERED)'   ||
                    ' FROM TEMPS)'
                    );

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

PROCEDURE SUB107 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S1091C FROM :LONGST;

PROCEDURE SUB108 SQLCODE SQLSTATE;
    OPEN C1091C;

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

PROCEDURE SUB110 SQLCODE SQLSTATE;
      CLOSE C1091C;

PROCEDURE SUB111 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB112 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT EXTRACT (HOUR FROM TOO_EARLY)'      ||
                    ' * 100 + EXTRACT (MINUTE FROM TOO_EARLY)' ||
                    ' FROM SUBQ1'
                    );

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

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

PROCEDURE SUB115 SQLCODE SQLSTATE;
    OPEN C1091D;

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

PROCEDURE SUB117 SQLCODE SQLSTATE;
      CLOSE C1091D;

PROCEDURE SUB118 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB119 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT EXTRACT (YEAR FROM LATEST),'    ||
                    ' EXTRACT (MONTH FROM LATEST) * 100 +' ||
                    ' EXTRACT (DAY FROM LATEST)'           ||
                    ' FROM SUBQ1'
                    );

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

PROCEDURE SUB121 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S1091E FROM :LONGST;

PROCEDURE SUB122 SQLCODE SQLSTATE;
    OPEN C1091E;

PROCEDURE SUB123 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      FETCH C1091E INTO :INT1, :INT2;

PROCEDURE SUB124 SQLCODE SQLSTATE;
      CLOSE C1091E;

PROCEDURE SUB125 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB126 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT EXTRACT (HOUR FROM AVGLUNCH)'      ||
                    ' * 100 + EXTRACT (MINUTE FROM AVGLUNCH)' ||
                    ' FROM SUBQ1'
                    );

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

PROCEDURE SUB128 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S1091F FROM :LONGST;

PROCEDURE SUB129 SQLCODE SQLSTATE;
    OPEN C1091F;

PROCEDURE SUB130 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C1091F INTO :INT1;

PROCEDURE SUB131 SQLCODE SQLSTATE;
      CLOSE C1091F;

PROCEDURE SUB132 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB133 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT EXTRACT (HOUR FROM D_AVGLUNCH)'      ||
                    ' * 100 + EXTRACT (MINUTE FROM D_AVGLUNCH)' ||
                    ' FROM SUBQ1'
                    );

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

PROCEDURE SUB135 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S1091G FROM :LONGST;

PROCEDURE SUB136 SQLCODE SQLSTATE;
    OPEN C1091G;

PROCEDURE SUB137 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C1091G INTO :INT1;

PROCEDURE SUB138 SQLCODE SQLSTATE;
      CLOSE C1091G;

PROCEDURE SUB139 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB140 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT EXTRACT (DAY FROM SUMAPPT)'    ||
                    ' FROM SUBQ1'
                    );

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

PROCEDURE SUB142 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S1091H FROM :LONGST;

PROCEDURE SUB143 SQLCODE SQLSTATE;
    OPEN C1091H;

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

PROCEDURE SUB145 SQLCODE SQLSTATE;
      CLOSE C1091H;

PROCEDURE SUB146 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S1091I FROM :DSTMT;

PROCEDURE SUB147 SQLCODE SQLSTATE;
    OPEN C1091I;

PROCEDURE SUB148 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C1091I INTO :INT1;

PROCEDURE SUB149 SQLCODE SQLSTATE;
      CLOSE C1091I;

PROCEDURE SUB150 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

PROCEDURE SUB152 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB155 SQLCODE SQLSTATE;
      COMMIT WORK;

[ zur Elbe Produktseite wechseln0.121Quellennavigators  ]