Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
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: dml134.cob   Sprache: Cobol

Untersuchungsergebnis.mco Download desLex {Lex[82] CS[99] Ada[118]}zum Wurzelverzeichnis wechseln

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



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

PROCEDURE SUB2 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB3 SQLCODE;
      DELETE FROM MP2_NEXTKEY;

PROCEDURE SUB4 SQLCODE
    :KEYVAL NUMERIC (9);
      INSERT
                    INTO MP2_NEXTKEY (KEYNUM,AUTHOR,DOLLARS)
                    VALUES (:KEYVAL,'A',500);

PROCEDURE SUB5 SQLCODE
    :DOLLAR NUMERIC (9);
      SELECT SUM(DOLLARS) INTO :DOLLAR
                    FROM MP2_NEXTKEY
                    WHERE KEYNUM = 1  OR  KEYNUM = 500  OR KEYNUM = 999
                 ;

PROCEDURE SUB6 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB7 SQLCODE;
      DELETE FROM MP2_NN;

PROCEDURE SUB8 SQLCODE
    :I NUMERIC (9);
      INSERT INTO MP2_NN VALUES (:I);

PROCEDURE SUB9 SQLCODE
    :DOLLAR NUMERIC (9);
      SELECT DOLLARS
                    INTO :DOLLAR
                    FROM MP2_NEXTKEY WHERE KEYNUM = 999;

PROCEDURE SUB10 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB11 SQLCODE
    :DOL500 NUMERIC (9);
      SELECT DOLLARS INTO :DOL500
                    FROM MP2_NEXTKEY  WHERE KEYNUM = 500;

PROCEDURE SUB12 SQLCODE
    :DOL1 NUMERIC (9);
      SELECT DOLLARS INTO :DOL1
                    FROM MP2_NEXTKEY  WHERE KEYNUM = 1;

PROCEDURE SUB13 SQLCODE
    :DOL1 NUMERIC (9);
      UPDATE MP2_NEXTKEY
                    SET DOLLARS = :DOL1    WHERE KEYNUM = 1;

PROCEDURE SUB14 SQLCODE
    :DOL500 NUMERIC (9);
      UPDATE MP2_NEXTKEY
                    SET DOLLARS = :DOL500  WHERE KEYNUM = 500;

PROCEDURE SUB15 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB16 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB17 SQLCODE
    :DOLLAR NUMERIC (9);
      SELECT SUM(DOLLARS) INTO :DOLLAR
                    FROM MP2_NEXTKEY
                    WHERE KEYNUM = 1  OR  KEYNUM = 500  OR KEYNUM = 999
                 ;

PROCEDURE SUB18 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB19 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0231','pass','MCO');

PROCEDURE SUB20 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0231','fail','MCO');

PROCEDURE SUB21 SQLCODE;
      COMMIT WORK;

[ zur Elbe Produktseite wechseln0.97Quellennavigators  ]