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: dml115.mco   Sprache: Unknown

Spracherkennung für: .mco vermutete Sprache: SQL {SQL[63] Pl1[69] CS[102]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

-- SQL Test Suite, V6.0, SQL Module cdr025.mco
-- 59-byte ID

MODULE CDR025
LANGUAGE COBOL
AUTHORIZATION SUN

DECLARE CCC CURSOR FOR
               SELECT UNIT_PRICE, FROM_DATE, TO_DATE, COMMODITY 
               FROM DOLLARS_PER_POUND
               ORDER BY COMMODITY DESC
DECLARE DDD CURSOR FOR 
               SELECT CURRENCY, MEASURE, UNIT_PRICE, COMMODITY
               FROM COST_PER_UNIT
DECLARE EEE CURSOR FOR
               SELECT (100 + :PERCNT) * UNIT_PRICE * :UNITZ / 100,
             COMMODITY
               FROM DOLLARS_PER_POUND
               ORDER BY COMMODITY


PROCEDURE AUTHCK SQLCODE
  :UIDX CHAR(18);
      SELECT USER INTO :UIDX FROM SUN.ECCO;

PROCEDURE SUB1 SQLCODE;
      DELETE FROM C_TRANSACTION;

PROCEDURE SUB2 SQLCODE;
      DELETE FROM COMMODITY;

PROCEDURE SUB3 SQLCODE;
      DELETE FROM CURRENCY_TABLE;

PROCEDURE SUB4 SQLCODE;
      DELETE FROM MEASURE_TABLE;

PROCEDURE SUB5 SQLCODE;
      INSERT INTO COMMODITY
                    VALUES (17, 'Wheat');

PROCEDURE SUB6 SQLCODE;
      INSERT INTO COMMODITY
                    VALUES (14, 'Saffron');

PROCEDURE SUB7 SQLCODE;
      INSERT INTO COMMODITY
                    VALUES (23, 'Alfalfa');

PROCEDURE SUB8 SQLCODE;
      INSERT INTO CURRENCY_TABLE
                    VALUES ('DOLLAR', 1.00);

PROCEDURE SUB9 SQLCODE;
      INSERT INTO CURRENCY_TABLE
                    VALUES ('POUND', 1.91);

PROCEDURE SUB10 SQLCODE;
      INSERT INTO CURRENCY_TABLE
                    VALUES ('DM', .45);

PROCEDURE SUB11 SQLCODE;
      INSERT INTO MEASURE_TABLE
                    VALUES ('POUND', 1.00);

PROCEDURE SUB12 SQLCODE;
      INSERT INTO MEASURE_TABLE
                    VALUES ('OUNCE', .06);

PROCEDURE SUB13 SQLCODE;
      INSERT INTO MEASURE_TABLE
                    VALUES ('KILO', 2.20);

PROCEDURE SUB14 SQLCODE;
      INSERT INTO MEASURE_TABLE
                    VALUES ('TON', 2000.00);

PROCEDURE SUB15 SQLCODE;
      INSERT INTO C_TRANSACTION
                    VALUES (17, 1411.5, 'DM', 4000, 'KILO', 871212);

PROCEDURE SUB16 SQLCODE;
      INSERT INTO C_TRANSACTION
                    VALUES (17, 7000.0, 'POUND', 100, 'TON', 871012);

PROCEDURE SUB17 SQLCODE;
      INSERT INTO C_TRANSACTION
                    VALUES (23, 20000.0, 'DOLLAR', 40000, 'POUND', 880707)
                 ;

PROCEDURE SUB18 SQLCODE;
      INSERT INTO C_TRANSACTION
                    VALUES (14, 10000.0, 'DM', 900, 'OUNCE', 880606);

PROCEDURE SUB19 SQLCODE;
      INSERT INTO C_TRANSACTION
                    VALUES (14, 10000.0, 'DM', 900, 'OUNCE', 880707);

PROCEDURE SUB20 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB21 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                    FROM C_TRANSACTION WHERE COMMOD_NO = 17;

PROCEDURE SUB22 SQLCODE;
    OPEN CCC;

PROCEDURE SUB23 SQLCODE
    :PRICE1 NUMERIC (9,5)
    :FROMDT NUMERIC (9)
    :TODATE NUMERIC (9)
    :COMMOD CHAR(7);
      FETCH CCC
                    INTO  :PRICE1, :FROMDT, :TODATE, :COMMOD;

PROCEDURE SUB24 SQLCODE;
      CLOSE CCC;

PROCEDURE SUB25 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0402','pass','MCO');

PROCEDURE SUB26 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0402','fail','MCO');

PROCEDURE SUB27 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB28 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                    FROM COST_PER_UNIT;

PROCEDURE SUB29 SQLCODE;
    OPEN DDD;

PROCEDURE SUB30 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0403','pass','MCO');

PROCEDURE SUB31 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0403','fail','MCO');

PROCEDURE SUB32 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB33 SQLCODE
    :PERCNT NUMERIC (9)
    :UNITZ NUMERIC (9);
    OPEN EEE;

PROCEDURE SUB34 SQLCODE
    :MYBID1 NUMERIC (9,5)
    :COMMOD CHAR(7);
      FETCH EEE INTO :MYBID1, :COMMOD;

PROCEDURE SUB35 SQLCODE;
      CLOSE EEE;


PROCEDURE SUB39 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0413','pass','MCO');

PROCEDURE SUB40 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0413','fail','MCO');

PROCEDURE SUB41 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB42 SQLCODE
    :CURREN CHAR(10)
    :MEASUR CHAR(8)
    :PRICE2 NUMERIC (9,5)
    :COMMOD CHAR(7);
      FETCH DDD
                      INTO :CURREN, :MEASUR, :PRICE2, :COMMOD;

[ Dauer der Verarbeitung: 0.249 Sekunden  ]