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: cdr022.cob Sprache: Cobol

Untersuchungsergebnis.mco Download desFortran {Fortran[85] CS[96] Abap[140]}zum Wurzelverzeichnis wechseln

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

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

PROCEDURE SUB2 SQLCODE;
      UPDATE CUGINI.SRCH1
                    SET C1 = 2 WHERE C1 = 0;

PROCEDURE SUB3 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB4 SQLCODE;
      DELETE FROM CUGINI.SRCH1
                    WHERE C1 = 0;

PROCEDURE SUB5 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB6 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0474','pass','MCO');

PROCEDURE SUB7 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0474','fail','MCO');

PROCEDURE SUB8 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB9 SQLCODE
    :T NUMERIC (9);
      SELECT COUNT(*) INTO :T FROM CUGINI.BADG1;

PROCEDURE SUB10 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB11 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0475','pass','MCO');

PROCEDURE SUB12 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0475','fail','MCO');

PROCEDURE SUB13 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB14 SQLCODE
    :T NUMERIC (9);
      SELECT COUNT(*) INTO :T FROM CUGINI.BADG2;

PROCEDURE SUB15 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB18 SQLCODE;
      COMMIT WORK;