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 Thinking Intellekt

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/Sources/formale Sprachen/COBOL/Test-Suite/SQL M/

Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: dml045.mco Sprache: Cobol

rahmenlose Ansicht.mco DruckansichtScala {Scala[74] Pl1[81] CS[110]}Entwicklung

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

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

PROCEDURE SUB2 SQLCODE;
      DELETE FROM HU.STAFF WHERE EMPNUM = 'E7';

PROCEDURE SUB3 SQLCODE;
      DELETE FROM HU.STAFF;

PROCEDURE SUB4 SQLCODE;
      DELETE FROM HU.STAFF;

PROCEDURE SUB5 SQLCODE;
      DELETE FROM HU.STAFF WHERE EMPNUM = 'E1';

PROCEDURE SUB6 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB9 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB10 SQLCODE;
      UPDATE HU.STAFF
                    SET CITY = 'NOWHERE'
                    WHERE EMPNAME = 'NOBODY';

PROCEDURE SUB11 SQLCODE;
      UPDATE HU.STAFF
                    SET GRADE = 11;

PROCEDURE SUB12 SQLCODE;
      DELETE FROM HU.STAFF;

PROCEDURE SUB13 SQLCODE;
      UPDATE HU.STAFF SET CITY = 'NOWHERE';

PROCEDURE SUB14 SQLCODE;
      UPDATE HU.STAFF
                    SET CITY = 'NOWHERE'
                    WHERE EMPNAME = 'NOBODY';

PROCEDURE SUB15 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB18 SQLCODE;
      COMMIT WORK;