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 1 kB

Quelle dml172.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module dml172.mco
-- 59-byte ID
--
MODULE DML172
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 T0884 (
                    C1 CHAR (4) CHARACTER SET ASCII_FULL,
                    C2 CHAR (4) CHARACTER SET SQL_TEXT);

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
   :HLC1 CHAR(4) CHARACTER SET ASCII_FULL);
      INSERT INTO T0884 VALUES (:HLC1,
                    _SQL_TEXT 'This');

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM T0884
                    WHERE C1 = _ASCII_FULL '^#|~'
                    AND C2 = _SQL_TEXT 'This';

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      DROP TABLE T0884 CASCADE;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      COMMIT WORK;