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: dml118.cob Sprache: Unknown

Spracherkennung für: .mco vermutete Sprache: Python {Python[79] Fortran[101] Ada[125]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

-- SQL Test Suite, V6.0, SQL Module xts770.mco
-- 59-byte ID
--
MODULE XTS770
LANGUAGE COBOL
AUTHORIZATION CTS3

DECLARE F  CURSOR
               FOR SELECT COLNUM1,COLSTR1
               FROM TAB770
               ORDER BY COLNUM1

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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      CREATE TABLE TAB770
                    (COLNUM1 NUMERIC(5),
                    COLSTR1 CHAR(10) CHARACTER SET SQL_CHARACTER);

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      INSERT INTO TAB770 VALUES(10, _SQL_CHARACTER
                  'BARBIE');

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      INSERT INTO TAB770 VALUES(30, _SQL_CHARACTER
                  'KILLER');

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      INSERT INTO TAB770 VALUES(20, _SQL_CHARACTER
                 '205 GTi');

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
    OPEN F;

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :CNUM1 NUMERIC (9),
    :CSTR1 CHAR(10) CHARACTER SET SQL_CHARACTER);
      FETCH F INTO :CNUM1,:CSTR1;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :CNUM1 NUMERIC (9),
    :CSTR1 CHAR(10) CHARACTER SET SQL_CHARACTER);
      FETCH F INTO :CNUM1,:CSTR1;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :CNUM1 NUMERIC (9),
    :CSTR1 CHAR(10) CHARACTER SET SQL_CHARACTER);
      FETCH F INTO :CNUM1,:CSTR1;

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      CLOSE F;

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      DROP TABLE TAB770 CASCADE;

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7070','pass','MCO');

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7070','fail','MCO');

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      COMMIT WORK;