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: isi007.mco Sprache: Unknown

Untersuchungsergebnis.mco Download desSQL {SQL[76] Latech[87] Ada[114]}zum Wurzelverzeichnis wechseln

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

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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      CREATE TABLE FOO (C1 INT);
-- CREATE TABLE should be flagged as extension to Entry Level

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM HU.STAFF
                    WHERE 1 IS NOT NULL;
-- 1 IS NOT NULL should be flagged as extension to Entry Level

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :CH50 CHAR(50));
      SELECT CURRENT_USER INTO :CH50
                    FROM HU.ECCO;
-- CURRENT_USER should be flagged as extension to Entry Level

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      INSERT INTO HU.STAFF VALUES (
                    'EX ', 'Harvey Wallbanger', 15, 'Detroit');
-- CHAR(4) value with trailing blanks in INSERT into CHAR(3) column
-- should be flagged as extension to Entry Level

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0877','pass','MCO');

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0877','fail','MCO');

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      COMMIT WORK;