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 Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/sources/formale Sprachen/Cobol/Test-Suite/SQL M/ Datei vom 4.1.2008 mit Größe 13 kB

SSL dml169.mco Sprache: unbekannt

-- 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;