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 3 kB

Quelle dml097.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module dml097.mco
-- 59-byte ID
--
MODULE DML097
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 NUM3 ('      ||
                    '  NUM3C1 INTEGER,'        ||
                    '  NUM3C2 INT,'            ||
                    '  NUM3C3 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
    :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 NUMERIC (9)
    :X2 NUMERIC (9)
    :X3 NUMERIC (9);
      FETCH BLAT2 INTO :X1, :X2, :X3;

PROCEDURE SUB13 SQLCODE SQLSTATE;
      CLOSE BLAT2;

PROCEDURE SUB14 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE WNUM3 FROM :DSTMT;

PROCEDURE SUB15 SQLCODE SQLSTATE;
      EXECUTE WNUM3;

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

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

PROCEDURE SUB19 SQLCODE SQLSTATE;
      CLOSE BLAT2;

PROCEDURE SUB20 SQLCODE SQLSTATE;
      EXECUTE WNUM3;

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

PROCEDURE SUB22 SQLCODE SQLSTATE
    :X1 NUMERIC (9)
    :X2 NUMERIC (9)
    :X3 NUMERIC (9);
      EXECUTE BLAT3
                    USING :X1, :X2, :X3;

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

PROCEDURE SUB25 SQLCODE SQLSTATE;
      CLOSE BLAT2;

PROCEDURE SUB26 SQLCODE SQLSTATE;
      EXECUTE WNUM3;

PROCEDURE SUB27 SQLCODE SQLSTATE
    :X1 NUMERIC (9)
    :X2 NUMERIC (9)
    :X3 NUMERIC (9);
      EXECUTE BLAT3
                    USING :X1, :X2, :X3;

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

PROCEDURE SUB30 SQLCODE SQLSTATE;
      CLOSE BLAT2;

PROCEDURE SUB31 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

PROCEDURE SUB33 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB36 SQLCODE SQLSTATE;
      COMMIT WORK;