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: yts795.cob   Sprache: Cobol

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

-- SQL Test Suite, V6.0, SQL Module mpa003.mco
-- 59-byte ID
-- 
MODULE MPA003
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 MP3_NEXTKEY;

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

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

PROCEDURE SUB6 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB7 SQLCODE;
      DELETE FROM MP3_NN;

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

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

PROCEDURE SUB10 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB11 SQLCODE;
      UPDATE MP3_NEXTKEY
                    SET DOLLARS = DOLLARS + 5  WHERE KEYNUM = 1;

PROCEDURE SUB12 SQLCODE;
      UPDATE MP3_NEXTKEY
                    SET DOLLARS = DOLLARS - 5  WHERE KEYNUM = 500;

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

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

PROCEDURE SUB15 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB16 SQLCODE;
      ROLLBACK WORK;

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

PROCEDURE SUB18 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0232','pass','MCO');

PROCEDURE SUB19 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0232','fail','MCO');

PROCEDURE SUB20 SQLCODE;
      COMMIT WORK;

[ zur Elbe Produktseite wechseln0.98Quellennavigators  ]