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

Quelle sdl036.mco Sprache: unbekannt

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

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

PROCEDURE SUB2 SQLCODE;
      DELETE FROM CUGINI.VVTABLE;

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

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

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

PROCEDURE SUB6 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB9 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB10 SQLCODE;
      DELETE FROM CUGINI.VII;

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

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

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

PROCEDURE SUB14 SQLCODE;
      DELETE FROM CUGINI.VII;

PROCEDURE SUB15 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB18 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB19 SQLCODE;
      UPDATE HU.VSTAFF3
                    SET GRADE = 15
                    WHERE EMPNUM = 'E2';

PROCEDURE SUB20 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB21 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0483','pass','MCO');

PROCEDURE SUB22 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0483','fail','MCO');

PROCEDURE SUB23 SQLCODE;
      COMMIT WORK;