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

-- SQL Test Suite, V6.0, SQL Module yts763.mco
-- 59-byte ID
--
MODULE YTS763
LANGUAGE COBOL
AUTHORIZATION CTS1

DECLARE DATA63  CURSOR FOR
               SELECT col2, col3, col4
               FROM CTS1.ET
               ORDER BY col3, col4

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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE,
    :I NUMERIC (4));
      SELECT COUNT (*) INTO :I FROM STAFF_CTS2;

PROCEDURE SUB4 (SQLCODE, SQLSTATE,
    :I NUMERIC (4));
      SELECT COUNT (*) INTO :I FROM STAFF_CTS;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.ET(col2, col3, col4)
                    SELECT * FROM STAFF_CTS2
                    INTERSECT CORRESPONDING
                    SELECT * FROM STAFF_CTS;

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
    OPEN data63;

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :ENAME CHAR(20),
    :EGRAD NUMERIC (9),
    :ECIT CHAR(15));
      FETCH data63 INTO :ENAME, :EGRAD, :ECIT;

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :ENAME CHAR(20),
    :EGRAD NUMERIC (9),
    :ECIT CHAR(15));
      FETCH data63 INTO :ENAME, :EGRAD, :ECIT;

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :ENAME CHAR(20),
    :EGRAD NUMERIC (9),
    :ECIT CHAR(15));
      FETCH data63 INTO :ENAME, :EGRAD, :ECIT;

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      CLOSE data63;

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7518','pass','MCO');

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7518','fail','MCO');

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      COMMIT WORK;