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

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

DECLARE DATA1  SCROLL CURSOR
               FOR SELECT empno FROM employees2
               WHERE empno < 5

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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
    OPEN data1;

PROCEDURE SUB4 (SQLCODE, SQLSTATE,
    :ENO1 NUMERIC (9));
      FETCH data1 INTO :ENO1;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :ENO2 NUMERIC (9));
      FETCH NEXT FROM data1 INTO :ENO2;

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :ENO3 NUMERIC (9));
      FETCH NEXT FROM data1 INTO :ENO3;

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :ENO4 NUMERIC (9));
      FETCH NEXT FROM data1 INTO  :ENO4;

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :ENO5 NUMERIC (9));
      FETCH NEXT FROM data1 INTO :ENO5;

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :LST NUMERIC (9));
      FETCH LAST FROM data1 INTO :LST;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :FST NUMERIC (9));
      FETCH FIRST FROM data1 INTO  :FST;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :NXT1 NUMERIC (9));
      FETCH NEXT FROM data1 INTO  :NXT1;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :NXT2 NUMERIC (9));
      FETCH NEXT FROM data1 INTO :NXT2;

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :NXT3 NUMERIC (9));
      FETCH NEXT FROM data1 INTO :NXT3;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :ENO5 NUMERIC (9));
      FETCH NEXT FROM data1 INTO :ENO5;

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      CLOSE data1;

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      COMMIT WORK;