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

Untersuchungsergebnis.mco Download desLex {Lex[72] Fortran[120] Abap[161]}zum Wurzelverzeichnis wechseln

-- SQL Test Suite, V6.0, SQL Module cdr031.mco
-- 59-byte ID
--
MODULE CDR031
LANGUAGE COBOL
AUTHORIZATION FLATER

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

PROCEDURE SUB2 SQLCODE SQLSTATE
    :VTR119 CHAR(118);
      INSERT INTO SUN.T6118REF VALUES
                    ('AAAAAAAAAAAAAAAAAAAA', 'BBBBBBBBBBBBBBBBBBBB',
                    'CCCCCCCCCCCCCCCCCCCC', 'DDDDDDDDDDDDDDDDDDDD',
                    'EEEEEEEEEEEEEEEEEEEEEEE', 9999, :VTR119);

PROCEDURE SUB3 SQLCODE SQLSTATE;
      INSERT INTO SUN.T6 VALUES
                    ('AAAAAAAAAAAAAAAAAAAA', 'BBBBBBBBBBBBBBBBBBBB',
                    'CCCCCCCCCCCCCCCCCCCC', 'DDDDDDDDDDDDDDDDDDDD',
                    'EEEEEEEEEEEEEEEEEEEEEEE', 9999);

PROCEDURE SUB4 SQLCODE SQLSTATE
    :VTR119 CHAR(118);
      INSERT INTO SUN.T118 VALUES (:VTR119);

PROCEDURE SUB5 SQLCODE SQLSTATE;
      INSERT INTO SUN.T6 VALUES
                    ('AAAAAAAAAAAAAAAAAAAA', 'BBBBBBBBBBBBBBBBBBBB',
                    'CCCCCCCCCCCCCCCCCCCC', 'DDDDDDDDDDDDDDDDDDDD',
                    'EEEEEEEEEEEEEEEEEEEEEEE', 0);

PROCEDURE SUB6 SQLCODE SQLSTATE;
      INSERT INTO SUN.T118 VALUES ('Hamlet');

PROCEDURE SUB7 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB8 SQLCODE SQLSTATE;
      INSERT INTO SUN.TESTREPORT
                      VALUES('0526','pass','MCO');

PROCEDURE SUB9 SQLCODE SQLSTATE;
      INSERT INTO SUN.TESTREPORT
                      VALUES('0526','fail','MCO');

PROCEDURE SUB10 SQLCODE SQLSTATE;
      COMMIT WORK;