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

Untersuchungsergebnis.mco Download desScala {Scala[66] Pl1[89] CS[92]}zum Wurzelverzeichnis wechseln

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

DECLARE BLAT2  CURSOR FOR BLAT1


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 CH1 ('          ||
                    ' CH1A CHARACTER (10),'      ||
                    ' CH1B CHARACTER,'           ||
                    ' CH1C CHAR (10))'
                    );

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

PROCEDURE SUB11 SQLCODE SQLSTATE;
    OPEN BLAT2;

PROCEDURE SUB12 SQLCODE SQLSTATE
    :X1 CHAR(10)
    :X2 CHAR(1)
    :X3 CHAR(10);
      FETCH BLAT2 INTO :X1, :X2, :X3;

PROCEDURE SUB13 SQLCODE SQLSTATE;
      CLOSE BLAT2;

PROCEDURE SUB15 SQLCODE SQLSTATE
    :X1 CHAR(10)
    :X2 CHAR(1)
    :X5 CHAR(4);
      FETCH BLAT2 INTO :X1, :X2, :X5;

PROCEDURE SUB16 SQLCODE SQLSTATE;
      CLOSE BLAT2;

PROCEDURE SUB17 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB18 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO CH1 VALUES (''FOO'', '   ||
                    ' ''F'', ''LITTLETOOLONG'')'
                    );

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

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

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

PROCEDURE SUB22 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB23 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO CH1 VALUES (''FOO'', '   ||
                    ' ''F'', ''BLANKS '')'
                    );

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

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

PROCEDURE SUB27 SQLCODE SQLSTATE
    :X1 CHAR(10)
    :X2 CHAR(1)
    :X3 CHAR(10);
      FETCH BLAT2 INTO :X1, :X2, :X3;

PROCEDURE SUB28 SQLCODE SQLSTATE;
      CLOSE BLAT2;

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

PROCEDURE SUB30 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE BLAT3 FROM :DSTMT;

PROCEDURE SUB31 SQLCODE SQLSTATE
    :X1 CHAR(10)
    :X2 CHAR(1)
    :X3 CHAR(10);
      EXECUTE BLAT3 USING :X1, :X2, :X3;

PROCEDURE SUB33 SQLCODE SQLSTATE
    :X1 CHAR(10)
    :X2 CHAR(1)
    :X3 CHAR(10);
      FETCH BLAT2 INTO :X1, :X2, :X3;

PROCEDURE SUB34 SQLCODE SQLSTATE;
      CLOSE BLAT2;

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

PROCEDURE SUB36 SQLCODE SQLSTATE
    :X4 CHAR(15);
      EXECUTE BLAT4 USING :X4;

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

PROCEDURE SUB38 SQLCODE SQLSTATE
    :X4 CHAR(15);
      EXECUTE BLAT4 USING :X4;

PROCEDURE SUB40 SQLCODE SQLSTATE
    :X1 CHAR(10)
    :X2 CHAR(1)
    :X3 CHAR(10);
      FETCH BLAT2 INTO :X1, :X2, :X3;

PROCEDURE SUB41 SQLCODE SQLSTATE;
      CLOSE BLAT2;

PROCEDURE SUB42 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

PROCEDURE SUB44 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB47 SQLCODE SQLSTATE;
      COMMIT WORK;

[ zur Elbe Produktseite wechseln0.119Quellennavigators  ]