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: cdr018.mco   Sprache: Unknown

Untersuchungsergebnis.mco Download desScala {Scala[71] Python[102] Latech[103]}zum Wurzelverzeichnis wechseln

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

DECLARE BLAT2  CURSOR FOR BLAT1
DECLARE BLAT4  CURSOR FOR BLAT3
DECLARE C098AA  CURSOR FOR S098AA
DECLARE MEW1  CURSOR FOR NEW1
DECLARE MEW2  CURSOR FOR NEW2
DECLARE MEW3  CURSOR FOR NEW3
DECLARE BLAT6  CURSOR FOR BLAT5
DECLARE BLAT8  CURSOR FOR BLAT7
DECLARE BLAT10  CURSOR FOR BLAT9
DECLARE C098BA  CURSOR FOR S098BA


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 NUM4 ('      ||
                    ' NUM4C1 NUMERIC (15),'   ||
                    ' NUM4C2 DECIMAL (15),'   ||
                    ' NUM4C3 INTEGER,'        ||
                    ' NUM4C4 SMALLINT)'
                    );

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 (
                    'INSERT INTO NUM4 VALUES ( '||
                    ' 999999999999999, 999999999999999, '||
                    ' 999999999, 9999)'
                    );

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

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

PROCEDURE SUB13 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB14 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO NUM4 VALUES ('||
                    ' -999999999999999, -999999999999999,'||
                    ' -999999999, -9999)'
                    );

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

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

PROCEDURE SUB17 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB18 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    ' SELECT NUM4C1 - 999999999999990, NUM4C2 - '||
                    ' 999999999999990,' ||
                    ' NUM4C3 - 999999990, NUM4C4 FROM NUM4 '||
                    ' WHERE NUM4C1 > 0'
                    );

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

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

PROCEDURE SUB21 SQLCODE SQLSTATE;
    OPEN BLAT2;

PROCEDURE SUB22 SQLCODE SQLSTATE
    :X1 NUMERIC (9)
    :X2 NUMERIC (9)
    :X3 NUMERIC (9)
    :X4 NUMERIC (9);
      FETCH BLAT2 INTO :X1, :X2, :X3, :X4;

PROCEDURE SUB23 SQLCODE SQLSTATE;
      CLOSE BLAT2;

PROCEDURE SUB24 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB25 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    ' SELECT NUM4C1 + 999999999999990, NUM4C2 +'||
                    ' 999999999999990,' ||
                    ' NUM4C3 + 999999990, NUM4C4 FROM NUM4 WHERE'||
                    ' NUM4C1 < 0'
                    );

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

PROCEDURE SUB27 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE BLAT3 FROM :LONGST;

PROCEDURE SUB28 SQLCODE SQLSTATE;
    OPEN BLAT4;

PROCEDURE SUB29 SQLCODE SQLSTATE
    :X1 NUMERIC (9)
    :X2 NUMERIC (9)
    :X3 NUMERIC (9)
    :X4 NUMERIC (9);
      FETCH BLAT4 INTO :X1, :X2, :X3, :X4;

PROCEDURE SUB30 SQLCODE SQLSTATE;
      CLOSE BLAT4;

PROCEDURE SUB31 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB32 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'UPDATE NUM4 SET NUM4C1 = NUM4C1 + 999999999999990,' ||
                    ' NUM4C2 = NUM4C2 + 999999999999990,'                ||
                    ' NUM4C3 = NUM4C3 + 999999990 WHERE NUM4C4 < 0'
                    );

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

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

PROCEDURE SUB35 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S098AA FROM :DSTMT;

PROCEDURE SUB36 SQLCODE SQLSTATE;
    OPEN C098AA;

PROCEDURE SUB37 SQLCODE SQLSTATE
    :X1 NUMERIC (9)
    :X2 NUMERIC (9)
    :X3 NUMERIC (9)
    :X4 NUMERIC (9);
      FETCH C098AA INTO :X1, :X2, :X3, :X4;

PROCEDURE SUB38 SQLCODE SQLSTATE;
      CLOSE C098AA;

PROCEDURE SUB39 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB40 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'DELETE FROM NUM4 WHERE NUM4C1 / ? > ?' ||
                    ' AND NUM4C2 > 999999999999998'         ||
                    ' AND NUM4C3 / 99999 > 9999'
                    );

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

PROCEDURE SUB42 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S098AB FROM :LONGST;

PROCEDURE SUB43 SQLCODE SQLSTATE
    :X1 NUMERIC (9)
    :X2 NUMERIC (9);
      EXECUTE S098AB USING :X1, :X2;

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

PROCEDURE SUB45 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB46 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    ' INSERT INTO NUM4 VALUES (562949953421313,'||
                    ' 562949953421313,' ||
                    ' 536870913, 8193)'
                    );

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

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

PROCEDURE SUB49 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB50 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM NUM4 WHERE ' ||
                    ' NUM4C1 = 562949953421312 OR '   ||
                    ' NUM4C2 = 562949953421312 OR '   ||
                    ' NUM4C3 = 536870912 OR '         ||
                    ' NUM4C4 = 8192'
                    );

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

PROCEDURE SUB52 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE NEW1 FROM :LONGST;

PROCEDURE SUB53 SQLCODE SQLSTATE;
    OPEN MEW1;

PROCEDURE SUB54 SQLCODE SQLSTATE
    :X1 NUMERIC (9);
      FETCH MEW1 INTO :X1;

PROCEDURE SUB55 SQLCODE SQLSTATE;
      CLOSE MEW1;

PROCEDURE SUB56 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB57 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM NUM4 WHERE ' ||
                    ' NUM4C1 = 562949953421313 AND'   ||
                    ' NUM4C2 = 562949953421313 AND'   ||
                    ' NUM4C3 = 536870913 AND'         ||
                    ' NUM4C4 = 8193'
                    );

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

PROCEDURE SUB59 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE NEW2 FROM :LONGST;

PROCEDURE SUB60 SQLCODE SQLSTATE;
    OPEN MEW2;

PROCEDURE SUB61 SQLCODE SQLSTATE
    :X1 NUMERIC (9);
      FETCH MEW2 INTO :X1;

PROCEDURE SUB62 SQLCODE SQLSTATE;
      CLOSE MEW2;

PROCEDURE SUB63 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB64 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM NUM4 WHERE ' ||
                    ' NUM4C1 = 562949953421314 OR '   ||
                    ' NUM4C2 = 562949953421314 OR '   ||
                    ' NUM4C3 = 536870914 OR '         ||
                    ' NUM4C4 = 8194'
                    );

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

PROCEDURE SUB66 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE NEW3 FROM :LONGST;

PROCEDURE SUB67 SQLCODE SQLSTATE;
    OPEN MEW3;

PROCEDURE SUB68 SQLCODE SQLSTATE
    :X1 NUMERIC (9);
      FETCH MEW3 INTO :X1;

PROCEDURE SUB69 SQLCODE SQLSTATE;
      CLOSE MEW3;

PROCEDURE SUB70 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

PROCEDURE SUB72 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB75 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB76 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB77 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE TABLE NUM5 ('        ||
                    ' NUM5C1 FLOAT (20),'       ||
                    ' NUM5C2 REAL,'             ||
                    ' NUM5C3 DOUBLE PRECISION)'
                    );

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

PROCEDURE SUB79 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB81 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB82 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB83 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO NUM5 VALUES (262145E+0,' ||
                    ' 262145E+0, 268435457E+0)'
                    );

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

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

PROCEDURE SUB86 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB87 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM NUM5 WHERE ' ||
                    ' NUM5C1 = 262144E+0 OR '         ||
                    ' NUM5C2 = 262144E+0 OR '         ||
                    ' NUM5C3 = 268435456E+0'
                    );

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

PROCEDURE SUB89 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE BLAT5 FROM :LONGST;

PROCEDURE SUB90 SQLCODE SQLSTATE;
    OPEN BLAT6;

PROCEDURE SUB91 SQLCODE SQLSTATE
    :X1 NUMERIC (9);
      FETCH BLAT6 INTO :X1;

PROCEDURE SUB92 SQLCODE SQLSTATE;
      CLOSE BLAT6;

PROCEDURE SUB93 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB94 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM NUM5 WHERE ' ||
                    ' NUM5C1 = 262145E+0 AND'         ||
                    ' NUM5C2 = 262145E+0 AND'         ||
                    ' NUM5C3 = 268435457E+0'
                    );

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

PROCEDURE SUB96 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE BLAT7 FROM :LONGST;

PROCEDURE SUB97 SQLCODE SQLSTATE;
    OPEN BLAT8;

PROCEDURE SUB98 SQLCODE SQLSTATE
    :X1 NUMERIC (9);
      FETCH BLAT8 INTO :X1;

PROCEDURE SUB99 SQLCODE SQLSTATE;
      CLOSE BLAT8;

PROCEDURE SUB100 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB101 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM NUM5 WHERE ' ||
                    ' NUM5C1 = 262146E+0 OR '         ||
                    ' NUM5C2 = 262146E+0 OR '         ||
                    ' NUM5C3 = 268435458E+0'
                    );

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

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

PROCEDURE SUB104 SQLCODE SQLSTATE;
    OPEN BLAT10;

PROCEDURE SUB105 SQLCODE SQLSTATE
    :X1 NUMERIC (9);
      FETCH BLAT10 INTO :X1;

PROCEDURE SUB106 SQLCODE SQLSTATE;
      CLOSE BLAT10;

PROCEDURE SUB107 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB108 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM NUM5 WHERE ' ||
                    ' NUM5C1 / 512.0 >= 512.0 AND'    ||
                    ' NUM5C2 / 512.0 >= 512.0 AND'    ||
                    ' NUM5C3 / 16384.0 >= 16384.0'
                    );

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

PROCEDURE SUB110 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S098BA FROM :LONGST;

PROCEDURE SUB111 SQLCODE SQLSTATE;
    OPEN C098BA;

PROCEDURE SUB112 SQLCODE SQLSTATE
    :X1 NUMERIC (9);
      FETCH C098BA INTO :X1;

PROCEDURE SUB113 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

PROCEDURE SUB115 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB118 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB120 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB121 SQLCODE SQLSTATE;
      ALLOCATE DESCRIPTOR 'ICHK';

PROCEDURE SUB122 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE ZEKE FROM :DSTMT;

PROCEDURE SUB123 SQLCODE SQLSTATE;
      DESCRIBE ZEKE USING SQL DESCRIPTOR 'ICHK';

PROCEDURE SUB124 SQLCODE SQLSTATE
    :X1 NUMERIC (9);
      GET DESCRIPTOR 'ICHK' VALUE 1 :X1 = PRECISION
                 ;

PROCEDURE SUB125 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

PROCEDURE SUB127 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB130 SQLCODE SQLSTATE;
      COMMIT WORK;

[ zur Elbe Produktseite wechseln0.90Quellennavigators  ]