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

Quelle dml140.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module dml140.mco
-- 59-byte ID
--
MODULE DML140
LANGUAGE COBOL
AUTHORIZATION HU

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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB3 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB4 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'REVOKE GRANT OPTION FOR SELECT' ||
                    '  ON HU.WORKS FROM CUGINI RESTRICT'
                    );

PROCEDURE SUB5 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      SELECT ZZ INTO :LONGST FROM CONCATBUF;

PROCEDURE SUB6 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB7 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      EXECUTE IMMEDIATE :LONGST;

PROCEDURE SUB8 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB9 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB10 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'REVOKE GRANT OPTION FOR SELECT' ||
                    '  ON HU.WORKS FROM CUGINI CASCADE'
                    );

PROCEDURE SUB11 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      SELECT ZZ INTO :LONGST FROM CONCATBUF;

PROCEDURE SUB12 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB13 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      EXECUTE IMMEDIATE :LONGST;

PROCEDURE SUB14 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB15 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      EXECUTE IMMEDIATE :LONGST;

PROCEDURE SUB16 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB17 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      EXECUTE IMMEDIATE :LONGST;

PROCEDURE SUB18 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB19 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      EXECUTE IMMEDIATE :LONGST;

PROCEDURE SUB20 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB23 SQLCODE SQLSTATE;
      COMMIT WORK;