products/Sources/formale Sprachen/Cobol/Test-Suite/SQL M/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: sdl001.mco   Sprache: Unknown

Untersuchungsergebnis.mco Download desScala {Scala[55] Pl1[74] Lex[128]}zum Wurzelverzeichnis wechseln

-- 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;

[ zur Elbe Produktseite wechseln0.203Quellennavigators  ]