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/ (Accent Parser Generator Version 0.9^©) Datei vom 4.1.2008 mit Größe 14 kB

Quellcode-Bibliothek dml100.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module dml100.mco
-- 59-byte ID
--
MODULE DML100
LANGUAGE COBOL
AUTHORIZATION FLATER

DECLARE C10011  CURSOR FOR
               SELECT SLACK_FACTOR FROM SLACK

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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB3 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB4 SQLCODE SQLSTATE;
      SET TRANSACTION READ ONLY;

PROCEDURE SUB5 SQLCODE SQLSTATE;
      CREATE TABLE SLACK (SLACK_FACTOR NUMERIC (8,4));

PROCEDURE SUB6 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB7 SQLCODE SQLSTATE;
      CREATE TABLE SLACK (SLACK_FACTOR NUMERIC (8,4));

PROCEDURE SUB8 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB9 SQLCODE SQLSTATE;
      SET TRANSACTION READ ONLY;

PROCEDURE SUB10 SQLCODE SQLSTATE;
      INSERT INTO SLACK VALUES (2.4);

PROCEDURE SUB11 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB12 SQLCODE SQLSTATE;
      INSERT INTO SLACK VALUES (2.4);

PROCEDURE SUB13 SQLCODE SQLSTATE;
      INSERT INTO SLACK VALUES (2.0);

PROCEDURE SUB14 SQLCODE SQLSTATE;
      SET TRANSACTION READ ONLY;

PROCEDURE SUB15 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB16 SQLCODE SQLSTATE;
      SET TRANSACTION READ ONLY;

PROCEDURE SUB17 SQLCODE SQLSTATE;
    OPEN C10011;

PROCEDURE SUB18 SQLCODE SQLSTATE
    :FLT1 NUMERIC (8,4);
      FETCH C10011 INTO :FLT1;

PROCEDURE SUB19 SQLCODE SQLSTATE;
      UPDATE SLACK
                    SET SLACK_FACTOR = 4.8
                    WHERE CURRENT OF C10011;

PROCEDURE SUB20 SQLCODE SQLSTATE;
      CLOSE C10011;

PROCEDURE SUB22 SQLCODE SQLSTATE
    :FLT1 NUMERIC (8,4);
      FETCH C10011 INTO :FLT1;

PROCEDURE SUB23 SQLCODE SQLSTATE;
      DELETE FROM SLACK
                    WHERE CURRENT OF C10011;

PROCEDURE SUB24 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB25 SQLCODE SQLSTATE;
      SET TRANSACTION READ ONLY;

PROCEDURE SUB26 SQLCODE SQLSTATE;
      UPDATE SLACK
                    SET SLACK_FACTOR = 5.0
                    WHERE SLACK_FACTOR < 5.0;

PROCEDURE SUB27 SQLCODE SQLSTATE;
      SET TRANSACTION READ WRITE;

PROCEDURE SUB28 SQLCODE SQLSTATE;
      UPDATE SLACK
                    SET SLACK_FACTOR = 5.0
                    WHERE SLACK_FACTOR < 5.0;

PROCEDURE SUB29 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB30 SQLCODE SQLSTATE;
      SET TRANSACTION READ ONLY;

PROCEDURE SUB31 SQLCODE SQLSTATE;
      DELETE FROM SLACK
                    WHERE SLACK_FACTOR < 5.0;

PROCEDURE SUB32 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB33 SQLCODE SQLSTATE;
      SET TRANSACTION READ WRITE;

PROCEDURE SUB34 SQLCODE SQLSTATE;
      INSERT INTO SLACK VALUES (2.4);

PROCEDURE SUB35 SQLCODE SQLSTATE;
      INSERT INTO SLACK VALUES (2.0);

PROCEDURE SUB36 SQLCODE SQLSTATE;
      SET TRANSACTION READ ONLY;

PROCEDURE SUB37 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB38 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.ECCO;

PROCEDURE SUB39 SQLCODE SQLSTATE;
      SET TRANSACTION READ ONLY;

PROCEDURE SUB40 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB41 SQLCODE SQLSTATE;
      DELETE FROM SLACK;

PROCEDURE SUB42 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB43 SQLCODE SQLSTATE;
      SET TRANSACTION READ WRITE;

PROCEDURE SUB44 SQLCODE SQLSTATE;
      DROP TABLE SLACK CASCADE;

PROCEDURE SUB45 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB48 SQLCODE SQLSTATE;
      COMMIT WORK;