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 Thinking Intellekt

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/Sources/formale Sprachen/COBOL/Test-Suite/SQL M/

Quellcode-Bibliothek

^© Kompilation durch diese Firma

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

Datei: xts720.mco Sprache: Unknown

Spracherkennung für: .mco vermutete Sprache: Shell {Shell[57] Scala[84] Isabelle[98]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

-- SQL Test Suite, V6.0, SQL Module mpb006.mco
-- 59-byte ID
--
MODULE MPB006
LANGUAGE COBOL
AUTHORIZATION SULLIVAN1

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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB3 SQLCODE SQLSTATE;
      DELETE FROM MP6_BB;

PROCEDURE SUB4 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB5 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB6 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB7 SQLCODE SQLSTATE
    :KNUM NUMERIC (9);
      SELECT COUNT(*)
                    INTO :KNUM
                    FROM MP6_NEXTKEY WHERE AUTHOR = 'A';

PROCEDURE SUB8 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB9 SQLCODE SQLSTATE;
      INSERT INTO MP6_NEXTKEY (KEYNUM,AUTHOR)
                    VALUES(2, 'B');

PROCEDURE SUB10 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB11 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB12 SQLCODE SQLSTATE;
      INSERT INTO MP6_BB VALUES (1);

PROCEDURE SUB13 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB14 SQLCODE SQLSTATE
    :WHO2 NUMERIC (9);
      SELECT NUMTEST INTO :WHO2  FROM MP6_MM2;

PROCEDURE SUB15 SQLCODE SQLSTATE;
      UPDATE MP6_MM2
                    SET NUMTEST = NUMTEST - 3;

PROCEDURE SUB16 SQLCODE SQLSTATE
    :WHO1 NUMERIC (9);
      SELECT NUMTEST INTO :WHO1 FROM MP6_NN;

PROCEDURE SUB17 SQLCODE SQLSTATE;
      UPDATE MP6_NN
                    SET NUMTEST = NUMTEST - 5;

PROCEDURE SUB18 SQLCODE SQLSTATE
    :RSLT1 NUMERIC (9);
      SELECT NUMTEST INTO :RSLT1 FROM MP6_NN;

PROCEDURE SUB19 SQLCODE SQLSTATE
    :RSLT2 NUMERIC (9);
      SELECT NUMTEST INTO :RSLT2 FROM MP6_MM2;

PROCEDURE SUB20 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB21 SQLCODE SQLSTATE
    :ROLLFLG NUMERIC (9);
      SELECT COUNT(*) INTO :ROLLFLG FROM MP6_BB
                    WHERE BNUM = 1;

PROCEDURE SUB22 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB23 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

PROCEDURE SUB25 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB27 SQLCODE SQLSTATE;
      COMMIT WORK;