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

Untersuchungsergebnis.mco Download desPython {Python[145] BAT[182] Ada[251]}zum Wurzelverzeichnis wechseln

-- SQL Test Suite, V6.0, SQL Module dml182.mco
-- 59-byte ID
-- 
MODULE DML182
LANGUAGE COBOL
AUTHORIZATION FLATER

DECLARE C0895  CURSOR FOR
               SELECT CODE1, CODE2, CODE3, CODE4, CODE5,
               CODE6, CODE7, CODE8, CODE9, CODE10,
               CODE11, CODE12, CODE13, CODE14, CODE15,
               AVG(COST)
               FROM ID_ORDERS
               GROUP BY CODE1, CODE2, CODE3, CODE4, CODE5,
               CODE6, CODE7, CODE8, CODE9, CODE10,
               CODE11, CODE12, CODE13, CODE14, CODE15
               ORDER BY CODE1, CODE2, CODE3, CODE4, CODE5,
               CODE6, CODE7, CODE8, CODE9, CODE10,
               CODE11, CODE12, CODE13, CODE14, CODE15


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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      CREATE TABLE ID_CODES (
                    CODE1 INT,
                    CODE2 INT,
                    CODE3 INT,
                    CODE4 INT,
                    CODE5 INT,
                    CODE6 INT,
                    CODE7 INT,
                    CODE8 INT,
                    CODE9 INT,
                    CODE10 INT,
                    CODE11 INT,
                    CODE12 INT,
                    CODE13 INT,
                    CODE14 INT,
                    CODE15 INT,
                    PRIMARY KEY (CODE1, CODE2, CODE3, CODE4, CODE5,
                    CODE6, CODE7, CODE8, CODE9, CODE10,
                    CODE11, CODE12, CODE13, CODE14, CODE15));

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      CREATE TABLE ORDERS (
                    CODE1 INT,
                    CODE2 INT,
                    CODE3 INT,
                    CODE4 INT,
                    CODE5 INT,
                    CODE6 INT,
                    CODE7 INT,
                    CODE8 INT,
                    CODE9 INT,
                    CODE10 INT,
                    CODE11 INT,
                    CODE12 INT,
                    CODE13 INT,
                    CODE14 INT,
                    CODE15 INT,
                    TITLE VARCHAR (80),
                    COST NUMERIC(5,2),
                    FOREIGN KEY (CODE1, CODE2, CODE3, CODE4, CODE5,
                    CODE6, CODE7, CODE8, CODE9, CODE10,
                    CODE11, CODE12, CODE13, CODE14, CODE15)
                    REFERENCES ID_CODES);

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      CREATE VIEW ID_ORDERS AS
                    SELECT * FROM ID_CODES JOIN ORDERS
                    USING (CODE1, CODE2, CODE3, CODE4, CODE5,
                    CODE6, CODE7, CODE8, CODE9, CODE10,
                    CODE11, CODE12, CODE13, CODE14, CODE15);

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      INSERT INTO ID_CODES VALUES (
                    1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15)
                 ;

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      INSERT INTO ID_CODES VALUES (
                    1, 2, 3, 4, 5, 6, 7, 9, 8, 10, 11, 12, 13, 14, 15)
                 ;

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      INSERT INTO ORDERS VALUES (
                    1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
                    'Gidget Goes Skiing',
                    29.95);

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      INSERT INTO ORDERS VALUES (
                    1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
                    'Barney Goes Hawaiian',
                    19.95);

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      INSERT INTO ORDERS VALUES (
                    1, 2, 3, 4, 5, 6, 7, 9, 8, 10, 11, 12, 13, 14, 15,
                    'Invasion of the Smurfs',
                    9.95);

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
    OPEN C0895;

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9),
    :INT4 NUMERIC (9),
    :INT5 NUMERIC (9),
    :INT6 NUMERIC (9),
    :INT7 NUMERIC (9),
    :INT8 NUMERIC (9),
    :INT9 NUMERIC (9),
    :INT10 NUMERIC (9),
    :INT11 NUMERIC (9),
    :INT12 NUMERIC (9),
    :INT13 NUMERIC (9),
    :INT14 NUMERIC (9),
    :INT15 NUMERIC (9),
    :FLT1 NUMERIC (8,4));
      FETCH C0895 INTO :INT1, :INT2, :INT3,
                    :INT4, :INT5, :INT6, :INT7, :INT8, :INT9, :INT10,
                    :INT11, :INT12, :INT13, :INT14, :INT15, :FLT1;

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9),
    :INT4 NUMERIC (9),
    :INT5 NUMERIC (9),
    :INT6 NUMERIC (9),
    :INT7 NUMERIC (9),
    :INT8 NUMERIC (9),
    :INT9 NUMERIC (9),
    :INT10 NUMERIC (9),
    :INT11 NUMERIC (9),
    :INT12 NUMERIC (9),
    :INT13 NUMERIC (9),
    :INT14 NUMERIC (9),
    :INT15 NUMERIC (9),
    :FLT1 NUMERIC (8,4));
      FETCH C0895 INTO :INT1, :INT2, :INT3,
                    :INT4, :INT5, :INT6, :INT7, :INT8, :INT9, :INT10,
                    :INT11, :INT12, :INT13, :INT14, :INT15, :FLT1;

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      DROP TABLE ORDERS CASCADE;

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      DROP TABLE ID_CODES CASCADE;

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB24 (SQLCODE, SQLSTATE);
      COMMIT WORK;

[ zur Elbe Produktseite wechseln0.104Quellennavigators  ]