Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/Sources/formale Sprachen/Cobol/Test-Suite/SQL M/ Datei vom 4.1.2008 mit Größe 4 kB

Quelle dml094.mco Sprache: unbekannt

-- 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;