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/Fortran/Fortran77-Compiler/ (Columbo Version 0.7^©) Datei vom 9.3.2015 mit Größe 2 MB

Quelle dml142.mco Sprache: unbekannt

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

DECLARE C14221  CURSOR FOR
               SELECT GRADE FROM TEMP_S
DECLARE C14222  CURSOR FOR
               SELECT GRADE FROM TEMP_S ORDER BY GRADE

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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB3 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM FLATER.USIG
                 ;

PROCEDURE SUB4 SQLCODE SQLSTATE;
      INSERT INTO FLATER.USIG VALUES (2, 4);

PROCEDURE SUB5 SQLCODE SQLSTATE;
      UPDATE FLATER.USIG SET C1 = 0;

PROCEDURE SUB6 SQLCODE SQLSTATE;
      DELETE FROM FLATER.USIG;

PROCEDURE SUB7 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB10 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB11 SQLCODE SQLSTATE;
      DELETE FROM TEMP_S;

PROCEDURE SUB12 SQLCODE SQLSTATE;
      INSERT INTO TEMP_S
                    SELECT EMPNUM, GRADE, CITY FROM STAFF;

PROCEDURE SUB13 SQLCODE SQLSTATE;
      INSERT INTO TEMP_S
                    SELECT EMPNUM, GRADE, CITY FROM STAFF
                    WHERE GRADE = 12;

PROCEDURE SUB14 SQLCODE SQLSTATE;
    OPEN C14221;

PROCEDURE SUB15 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14221 INTO :INT1;

PROCEDURE SUB16 SQLCODE SQLSTATE;
      CLOSE C14221;

PROCEDURE SUB17 SQLCODE SQLSTATE;
    OPEN C14222;

PROCEDURE SUB18 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB19 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB20 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB21 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB22 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB23 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB24 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB25 SQLCODE SQLSTATE;
      CLOSE C14222;

PROCEDURE SUB27 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14221 INTO :INT1;

PROCEDURE SUB28 SQLCODE SQLSTATE;
      DELETE FROM TEMP_S WHERE CURRENT OF C14221
                 ;

PROCEDURE SUB29 SQLCODE SQLSTATE;
      CLOSE C14221;

PROCEDURE SUB31 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14221 INTO :INT1;

PROCEDURE SUB32 SQLCODE SQLSTATE;
      CLOSE C14221;

PROCEDURE SUB34 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB35 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB36 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB37 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB38 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB39 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB40 SQLCODE SQLSTATE;
      CLOSE C14222;

PROCEDURE SUB42 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14221 INTO :INT1;

PROCEDURE SUB43 SQLCODE SQLSTATE;
      UPDATE TEMP_S SET GRADE = 13 WHERE CURRENT OF
                  C14221;

PROCEDURE SUB44 SQLCODE SQLSTATE;
      CLOSE C14221;

PROCEDURE SUB46 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14221 INTO :INT1;

PROCEDURE SUB47 SQLCODE SQLSTATE;
      CLOSE C14221;

PROCEDURE SUB49 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB50 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB51 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB52 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB53 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB54 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB55 SQLCODE SQLSTATE;
      CLOSE C14222;

PROCEDURE SUB56 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB59 SQLCODE SQLSTATE;
      COMMIT WORK;