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 Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/sources/formale Sprachen/Cobol/Test-Suite/SQL M/ Datei vom 4.1.2008 mit Größe 4 kB

Quelle cdr025.mco Sprache: unbekannt

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