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: cyclic_monoid.prf   Sprache: Unknown

Untersuchungsergebnis.mco Download desText {Text[68] Latech[80] CS[224]}zum Wurzelverzeichnis wechseln

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

DECLARE C10711  CURSOR FOR S10711
DECLARE C10712  CURSOR FOR S10712
DECLARE C10713  CURSOR FOR S10713
DECLARE C10721  CURSOR FOR S10721
DECLARE C10722  CURSOR FOR S10722
DECLARE C10723  CURSOR FOR S10723
DECLARE C10732  CURSOR FOR S10732
DECLARE C10733  CURSOR FOR S10733
DECLARE C10734  CURSOR FOR S10734
DECLARE C10741  CURSOR FOR S10741
DECLARE C10742  CURSOR FOR S10742
DECLARE C10743  CURSOR FOR S10743 
DECLARE C10744  CURSOR FOR S10744
DECLARE C10745  CURSOR FOR S10745
DECLARE C10746  CURSOR FOR S10746


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 VIEW UUSIG (U1) AS ' ||
                    '  SELECT C1 FROM USIG UNION SELECT C_1 FROM USIG'
                    );

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);
      PREPARE S10711 FROM :DSTMT;

PROCEDURE SUB10 SQLCODE SQLSTATE;
    OPEN C10711;

PROCEDURE SUB11 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10711 INTO :INT1;

PROCEDURE SUB12 SQLCODE SQLSTATE;
      CLOSE C10711;

PROCEDURE SUB13 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S10712 FROM :DSTMT;

PROCEDURE SUB14 SQLCODE SQLSTATE;
    OPEN C10712;

PROCEDURE SUB15 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10712 INTO :INT1;

PROCEDURE SUB16 SQLCODE SQLSTATE;
      CLOSE C10712;

PROCEDURE SUB17 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB18 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM UUSIG WHERE U1 < 0 OR ' ||
                    '  U1 > 3 OR U1 IS NULL'
                    );

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

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

PROCEDURE SUB21 SQLCODE SQLSTATE;
    OPEN C10713;

PROCEDURE SUB22 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10713 INTO :INT1;

PROCEDURE SUB23 SQLCODE SQLSTATE;
      CLOSE C10713;

PROCEDURE SUB24 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

PROCEDURE SUB26 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB29 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB30 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB31 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE TABLE TEMPUS (TDATE DATE, TTIME TIME,'||
                    '  TTIMESTAMP TIMESTAMP, TINT1 INTERVAL YEAR'||
                    '  TO MONTH, TINT2 INTERVAL DAY TO SECOND)'
                    );

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

PROCEDURE SUB33 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB35 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB36 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB37 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO TEMPUS VALUES ('          ||
                    '  DATE ''1993-08-24'','               ||
                    '  TIME ''16:03:00'','                 ||
                    '  TIMESTAMP ''1993-08-24 16:03:00'',' ||
                    '  INTERVAL -''1-6'' YEAR TO MONTH,'   ||
                    '  INTERVAL ''13 0:10'' DAY TO SECOND)'
                    );

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
    :DSTMT CHAR(50);
      PREPARE S10721 FROM :DSTMT;

PROCEDURE SUB41 SQLCODE SQLSTATE;
    OPEN C10721;

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

PROCEDURE SUB43 SQLCODE SQLSTATE;
      CLOSE C10721;

PROCEDURE SUB44 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB45 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM TEMPUS ' ||
                    '  WHERE (TTIMESTAMP - TIMESTAMP'||
                    '  ''1995-02-24 16:03:00'')'||
                    '  YEAR TO MONTH = TINT1'
                    );

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

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

PROCEDURE SUB48 SQLCODE SQLSTATE;
    OPEN C10722;

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

PROCEDURE SUB50 SQLCODE SQLSTATE;
      CLOSE C10722;

PROCEDURE SUB51 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB52 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM TEMPUS '           ||
                    '  WHERE (TTIMESTAMP, TINT1) OVERLAPS '  ||
                    '  (TIMESTAMP ''1995-02-24 16:03:00'', ' ||
                    '  INTERVAL ''1-6'' YEAR TO MONTH)'
                    );

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

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

PROCEDURE SUB55 SQLCODE SQLSTATE;
    OPEN C10723;

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

PROCEDURE SUB57 SQLCODE SQLSTATE;
      CLOSE C10723;

PROCEDURE SUB58 SQLCODE SQLSTATE;
      ROLLBACK 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('0602','pass','MCO');

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

PROCEDURE SUB63 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB64 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB65 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE TABLE TSFIPS ('               ||
                    '  FIPS1 TIME,'                       ||
                    '  FIPS2 TIMESTAMP,'                  ||
                    '  FIPS3 INTERVAL YEAR (2) TO MONTH,' ||
                    '  FIPS4 INTERVAL DAY (2) TO SECOND (6))'
                    );

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

PROCEDURE SUB67 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB69 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB70 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB71 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO TSFIPS VALUES ('                      ||
                    '  TIME ''16:03:00'','                             ||
                    '  TIMESTAMP ''1996-08-24 16:03:00.999999'','      ||
                    '  INTERVAL -''99-6'' YEAR (2) TO MONTH,'          ||
                    '  INTERVAL ''99 0:10:00.999999'' DAY (2) TO SECOND (6))'
                    );

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

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

PROCEDURE SUB74 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB75 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT EXTRACT (SECOND FROM FIPS2)' ||
                    '  * 1000000 - 999990 FROM TSFIPS'
                    );

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

PROCEDURE SUB77 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S10732 FROM :LONGST;

PROCEDURE SUB78 SQLCODE SQLSTATE;
    OPEN C10732;

PROCEDURE SUB79 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10732 INTO :INT1;

PROCEDURE SUB80 SQLCODE SQLSTATE;
      CLOSE C10732;

PROCEDURE SUB81 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB82 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT EXTRACT (YEAR FROM FIPS3),'        ||
                    '  EXTRACT (MONTH FROM FIPS3) FROM TSFIPS'
                    );

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

PROCEDURE SUB84 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S10733 FROM :LONGST;

PROCEDURE SUB85 SQLCODE SQLSTATE;
    OPEN C10733;

PROCEDURE SUB86 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      FETCH C10733 INTO :INT1, :INT2;

PROCEDURE SUB87 SQLCODE SQLSTATE;
      CLOSE C10733;

PROCEDURE SUB88 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB89 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT EXTRACT (DAY FROM FIPS4),' ||
                    '  EXTRACT (SECOND FROM FIPS4)'    ||
                    '  * 1000000 - 999990 FROM TSFIPS'
                    );

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

PROCEDURE SUB91 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S10734 FROM :LONGST;

PROCEDURE SUB92 SQLCODE SQLSTATE;
    OPEN C10734;

PROCEDURE SUB93 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      FETCH C10734 INTO :INT1, :INT2;

PROCEDURE SUB94 SQLCODE SQLSTATE;
      CLOSE C10734;

PROCEDURE SUB95 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

PROCEDURE SUB97 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB100 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB101 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB102 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE TABLE TSSMALL ('    ||
                    '  SMALLD DATE,'            ||
                    '  SMALLT TIME,'            ||
                    '  SMALLTS TIMESTAMP)'
                    );

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

PROCEDURE SUB104 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB106 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB107 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB108 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO TSSMALL VALUES (' ||
                    '  CURRENT_DATE, CURRENT_TIME, CURRENT_TIMESTAMP)'
                    );

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

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

PROCEDURE SUB111 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB112 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM TSSMALL WHERE' ||
                    '  EXTRACT (YEAR FROM SMALLD) = EXTRACT'||
                    '  (YEAR FROM SMALLTS)'
                    );

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

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

PROCEDURE SUB115 SQLCODE SQLSTATE;
    OPEN C10741;

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

PROCEDURE SUB117 SQLCODE SQLSTATE;
      CLOSE C10741;

PROCEDURE SUB118 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB119 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM TSSMALL WHERE' ||
                    '  EXTRACT (MONTH FROM SMALLD) = EXTRACT'||
                    ' (MONTH FROM SMALLTS)'
                    );

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

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

PROCEDURE SUB122 SQLCODE SQLSTATE;
    OPEN C10742;

PROCEDURE SUB123 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C10742 INTO :INT1;

PROCEDURE SUB124 SQLCODE SQLSTATE;
      CLOSE C10742;

PROCEDURE SUB125 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB126 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM TSSMALL WHERE' ||
                    '  EXTRACT (DAY FROM SMALLD) = EXTRACT'||
                    ' (DAY FROM SMALLTS)'
                    );

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

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

PROCEDURE SUB129 SQLCODE SQLSTATE;
    OPEN C10743;

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

PROCEDURE SUB131 SQLCODE SQLSTATE;
      CLOSE C10743;

PROCEDURE SUB132 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB133 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM TSSMALL WHERE' ||
                    '  EXTRACT (HOUR FROM SMALLT) = EXTRACT'||
                    ' (HOUR FROM SMALLTS)'
                    );

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

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

PROCEDURE SUB136 SQLCODE SQLSTATE;
    OPEN C10744;

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

PROCEDURE SUB138 SQLCODE SQLSTATE;
      CLOSE C10744;

PROCEDURE SUB139 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB140 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM TSSMALL WHERE' ||
                    '  EXTRACT (MINUTE FROM SMALLT) = EXTRACT' || 
                    '  (MINUTE FROM SMALLTS)'
                    );

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

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

PROCEDURE SUB143 SQLCODE SQLSTATE;
    OPEN C10745;

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

PROCEDURE SUB145 SQLCODE SQLSTATE;
      CLOSE C10745;

PROCEDURE SUB146 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB147 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*)' ||
                    ' FROM TSSMALL WHERE' ||
                    ' EXTRACT (SECOND FROM SMALLT) -' ||
                    ' EXTRACT (SECOND FROM SMALLTS) > -1' ||
                    ' AND EXTRACT (SECOND FROM SMALLT) -' ||
                    ' EXTRACT (SECOND FROM SMALLTS) < 1'
                    );

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

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

PROCEDURE SUB150 SQLCODE SQLSTATE;
    OPEN C10746;

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

PROCEDURE SUB152 SQLCODE SQLSTATE;
      CLOSE C10746;

PROCEDURE SUB153 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

PROCEDURE SUB155 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB158 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB159 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB160 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE TABLE TSERR ('                 ||
                    '  BADINT INTERVAL YEAR (2) TO MONTH,' ||
                    '  BADDATE DATE)'
                    );

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

PROCEDURE SUB162 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB164 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB165 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB166 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO TSERR VALUES ('           ||
                    '  INTERVAL ''0-11'' YEAR TO MONTH,'   ||
                    '  DATE ''9999-01-01'' + INTERVAL ''1-00'''||
                    '  YEAR TO MONTH)'
                    );

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

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

PROCEDURE SUB169 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB170 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO TSERR VALUES ('               ||
                    '  INTERVAL ''9999-11'' YEAR TO MONTH,'    ||
                    '  DATE ''1984-01-01'')'
                    );

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

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

PROCEDURE SUB173 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB174 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO TSERR VALUES ('         ||
                    '  INTERVAL ''1-11'' YEAR TO MONTH,' ||
                    '  CAST (''DATE ''''1993-02-30'''''' AS DATE))'
                    );

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

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

PROCEDURE SUB177 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB178 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO TSERR VALUES ('         ||
                    '  INTERVAL ''1-11'' YEAR TO MONTH,' ||
                    '  CAST (''1993-02-30'' AS DATE))'
                    );

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

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

PROCEDURE SUB181 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

PROCEDURE SUB183 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB186 SQLCODE SQLSTATE;
      COMMIT WORK;

[ zur Elbe Produktseite wechseln0.111Quellennavigators  ]