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


Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/SG/ Datei vom 4.1.2008 mit Größe 34 kB

Quelle yts764.mco Sprache: unbekannt

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

DECLARE DATA64  CURSOR FOR
               SELECT COUNT (*), col5, col6
               FROM CTS1.ET
               GROUP BY col6, col5
               ORDER BY 2,3

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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      DELETE FROM CTS1.ET;

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

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :I NUMERIC (4));
      SELECT COUNT (*) INTO :I FROM CTS1.STAFFa;

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.ET (col5, col6)
                    SELECT * FROM CTS1.STAFFB
                    UNION ALL CORRESPONDING BY (hours, salary)
                    SELECT * FROM CTS1.STAFFA;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
    OPEN data64;

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :I NUMERIC (4),
    :H NUMERIC (9),
    :S NUMERIC (9));
      FETCH data64 INTO :I, :H, :S;

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :I NUMERIC (4),
    :H NUMERIC (9),
    :S NUMERIC (9));
      FETCH data64 INTO :I, :H, :S;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :I NUMERIC (4),
    :H NUMERIC (9),
    :S NUMERIC (9));
      FETCH data64 INTO :I, :H, :S;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :I NUMERIC (4),
    :H NUMERIC (9),
    :S NUMERIC (9));
      FETCH data64 INTO :I, :H, :S;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :I NUMERIC (4),
    :H NUMERIC (9),
    :S NUMERIC (9));
      FETCH data64 INTO :I, :H, :S;

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :I NUMERIC (4),
    :H NUMERIC (9),
    :S NUMERIC (9));
      FETCH data64 INTO :I, :H, :S;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :I NUMERIC (4),
    :H NUMERIC (9),
    :S NUMERIC (9));
      FETCH data64 INTO :I, :H, :S;

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      CLOSE data64;

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      COMMIT WORK;