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

-- SQL Test Suite, V6.0, SQL Module mpa005.mco
-- 59-byte ID
--
MODULE MPA005
LANGUAGE COBOL
AUTHORIZATION SULLIVAN1

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

PROCEDURE SUB2 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB3 SQLCODE;
      DELETE FROM MP5_AA;

PROCEDURE SUB4 SQLCODE;
      DELETE FROM MP5_AA_INDEX;

PROCEDURE SUB5 SQLCODE;
      DELETE FROM MP5_TT;

PROCEDURE SUB6 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB7 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB8 SQLCODE
    :DEL1 NUMERIC (9)
    :DEL2 NUMERIC (9);
      DELETE FROM MP5_AA
                    WHERE ANUM BETWEEN :DEL1 AND :DEL2;

PROCEDURE SUB9 SQLCODE
    :DEL1 NUMERIC (9)
    :DEL2 NUMERIC (9);
      DELETE FROM MP5_AA_INDEX
                    WHERE ANUM BETWEEN :DEL1 AND :DEL2;

PROCEDURE SUB10 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB11 SQLCODE
    :SEQNO NUMERIC (9);
      INSERT INTO MP5_AA VALUES (:SEQNO);

PROCEDURE SUB12 SQLCODE
    :SEQNO NUMERIC (9);
      INSERT INTO MP5_AA_INDEX VALUES (:SEQNO);

PROCEDURE SUB13 SQLCODE
    :CC CHAR(2);
      SELECT C1 INTO :CC FROM HU.ECCO;

PROCEDURE SUB14 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB15 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB16 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB17 SQLCODE
    :CC CHAR(2);
      SELECT C1 INTO :CC FROM HU.ECCO;

PROCEDURE SUB18 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB19 SQLCODE
    :GETCT NUMERIC (9);
      SELECT COUNT(*) INTO :GETCT
                    FROM MP5_TT;

PROCEDURE SUB20 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB21 SQLCODE
    :GETCT NUMERIC (9);
      SELECT COUNT(DISTINCT TESTTYPE)
                    INTO :GETCT FROM MP5_TT;

PROCEDURE SUB22 SQLCODE;
      DELETE FROM MP5_AA;

PROCEDURE SUB23 SQLCODE;
      DELETE FROM MP5_AA_INDEX;

PROCEDURE SUB24 SQLCODE;
      COMMIT WORK;