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 dml095.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module dml095.mco
-- 59-byte ID
--
MODULE DML095
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 NUM1 ('      ||
                    '  NUM1C1 NUMERIC (3, 2),' ||
                    '  NUM1C2 NUMERIC (2),'    ||
                    '  NUM1C3 NUMERIC)'
                    );

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 WNUM1 FROM :DSTMT;

PROCEDURE SUB15 SQLCODE SQLSTATE;
      EXECUTE WNUM1;

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

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

PROCEDURE SUB18 SQLCODE SQLSTATE;
      EXECUTE WNUM1;

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

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

PROCEDURE SUB22 SQLCODE SQLSTATE;
      CLOSE BLAT2;

PROCEDURE SUB23 SQLCODE SQLSTATE;
      EXECUTE WNUM1;

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

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

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

PROCEDURE SUB28 SQLCODE SQLSTATE;
      CLOSE BLAT2;

PROCEDURE SUB29 SQLCODE SQLSTATE;
      EXECUTE WNUM1;

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

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

PROCEDURE SUB32 SQLCODE SQLSTATE;
      EXECUTE WNUM1;

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

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

PROCEDURE SUB36 SQLCODE SQLSTATE;
      CLOSE BLAT2;

PROCEDURE SUB37 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

PROCEDURE SUB39 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB42 SQLCODE SQLSTATE;
      COMMIT WORK;