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 793 B

Quelle sdl031.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module sdl031.mco
-- 59-byte ID
--
MODULE SDL031
LANGUAGE COBOL
AUTHORIZATION SCHANZLE

PROCEDURE SUB1 SQLCODE
    :UIDX CHAR(18);
      SELECT USER INTO :UIDX FROM HU.ECCO;

PROCEDURE SUB2 SQLCODE;
      DELETE FROM CUGINI.VTABLE;

PROCEDURE SUB3 SQLCODE;
      INSERT INTO CUGINI.VTABLE
                    VALUES (0,1,2,3,4.25);

PROCEDURE SUB4 SQLCODE
    :TMPINT NUMERIC (9);
      SELECT COL2 INTO :TMPINT FROM CUGINI.VTABLE
                    WHERE COL1 = 0;

PROCEDURE SUB5 SQLCODE;
      UPDATE CUGINI.VTABLE
                    SET COL2 = 2;

PROCEDURE SUB6 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB7 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0468','pass','MCO');

PROCEDURE SUB8 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0468','fail','MCO');

PROCEDURE SUB9 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB10 SQLCODE;
      DELETE FROM CUGINI.II;

PROCEDURE SUB11 SQLCODE;
      INSERT INTO CUGINI.II VALUES (2);

PROCEDURE SUB12 SQLCODE;
      UPDATE CUGINI.II
                    SET C1 = 3
                    WHERE C1 = 2;

PROCEDURE SUB13 SQLCODE
    :TMPINT NUMERIC (9);
      SELECT C1 INTO :TMPINT
                    FROM CUGINI.II;

PROCEDURE SUB14 SQLCODE;
      DELETE FROM CUGINI.II;

PROCEDURE SUB15 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB16 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0469','pass','MCO');

PROCEDURE SUB17 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0469','fail','MCO');

PROCEDURE SUB18 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB19 SQLCODE;
      DELETE FROM CUGINI.JJ;

PROCEDURE SUB20 SQLCODE;
      INSERT INTO CUGINI.JJ VALUES (2);

PROCEDURE SUB21 SQLCODE;
      UPDATE CUGINI.JJ
                    SET C1 = 3
                    WHERE C1 = 2;

PROCEDURE SUB22 SQLCODE
    :TMPINT NUMERIC (9);
      SELECT C1 INTO :TMPINT
                    FROM CUGINI.JJ;

PROCEDURE SUB23 SQLCODE;
      DELETE FROM CUGINI.JJ;

PROCEDURE SUB24 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB25 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0470','pass','MCO');

PROCEDURE SUB26 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0470','fail','MCO');

PROCEDURE SUB27 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB28 SQLCODE;
      UPDATE HU.STAFF3
                    SET GRADE = 15
                    WHERE EMPNUM = 'E2';

PROCEDURE SUB29 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB30 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0471','pass','MCO');

PROCEDURE SUB31 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0471','fail','MCO');

PROCEDURE SUB32 SQLCODE;
      COMMIT WORK;