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 dml161.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module dml161.mco
-- 59-byte ID
--
MODULE DML161
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,
    :UIDX CHAR(18));
      SELECT CURRENT_USER INTO :UIDX FROM HU.ECCO
                 ;

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

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

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      SET SESSION AUTHORIZATION 'SCHANZLE';

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

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

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

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      COMMIT WORK;