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: README.txt Sprache: Cobol

Untersuchungsergebnis.mco Download desPython {Python[70] Fortran[132] Ada[148]}zum Wurzelverzeichnis wechseln

-- SQL Test Suite, V6.0, SQL Module xts761.mco
-- 59-byte ID
--
MODULE XTS761
LANGUAGE COBOL
AUTHORIZATION CTS1

DECLARE S  CURSOR FOR SELECT COLUN, COLSTR1,
             COLSTR2
               FROM CTS1.TABCS
               WHERE COLSTR1 = _CS 'NICKOS'
               ORDER BY COLUN

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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
    OPEN S;

PROCEDURE SUB4 (SQLCODE, SQLSTATE,
    :COLNUM NUMERIC (9),
    :CSTR1 CHAR(10) CHARACTER SET IS CS,
    :CSTR2 CHAR(10) CHARACTER SET IS CS);
      FETCH S INTO :COLNUM, :CSTR1, :CSTR2;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :COLNUM NUMERIC (9),
    :CSTR1 CHAR(10) CHARACTER SET IS CS,
    :CSTR2 CHAR(10) CHARACTER SET IS CS);
      FETCH S INTO :COLNUM, :CSTR1, :CSTR2;

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      CLOSE S;

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :COUNOK NUMERIC (9));
      SELECT COUNT(*) INTO :COUNOK
                    FROM TABCS
                    WHERE COLSTR1 = COLSTR2;

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :COUNOK NUMERIC (9));
      SELECT COUNT(*) INTO :COUNOK
                    FROM TABCS
                    WHERE COLSTR1 > COLSTR2;

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :COUNOK NUMERIC (9));
      SELECT COUNT(*) INTO :COUNOK
                    FROM TABCS
                    WHERE COLSTR1 <= COLSTR2;

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      COMMIT WORK;