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 2 kB

Quelle yts811.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module yts811.mco
-- 59-byte ID
--
MODULE YTS811
LANGUAGE COBOL
AUTHORIZATION CTS1

DECLARE DATA811  CURSOR FOR
               SELECT VT1, VT2, VT3
               FROM V_DATA_TYPE
               WHERE NOT VT1 = 0
               ORDER BY VT2, VT3

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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      CREATE VIEW V_DATA_TYPE AS
                    SELECT SUM(NUM) AS VT1, ING AS VT2, SMA AS VT3
                    FROM DATA_TYPE
                    GROUP BY ING, SMA;

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.DATA_TYPE (ING, SMA) VALUES
                    (1,1);

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.DATA_TYPE (NUM, ING, SMA)
                    VALUES (2,2,3);

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.DATA_TYPE (NUM, ING, SMA)
                    VALUES (3,4,5);

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.DATA_TYPE (NUM, ING, SMA)
                    VALUES (2,2,3);

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.DATA_TYPE (NUM, ING, SMA)
                    VALUES (5,4,3);

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
    OPEN data811;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :VAL1 NUMERIC (4),
    :VAL2 NUMERIC (4),
    :VAL3 NUMERIC (4));
      FETCH data811 INTO :VAL1, :VAL2, :VAL3;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :VAL1 NUMERIC (4),
    :VAL2 NUMERIC (4),
    :VAL3 NUMERIC (4));
      FETCH data811 INTO :VAL1, :VAL2, :VAL3;

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :VAL1 NUMERIC (4),
    :VAL2 NUMERIC (4),
    :VAL3 NUMERIC (4));
      FETCH data811 INTO :VAL1, :VAL2, :VAL3;

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      CLOSE data811;

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :VAL1 NUMERIC (4),
    :INDIC1 NUMERIC (4),
    :VAL2 NUMERIC (4),
    :VAL3 NUMERIC (4));
      SELECT VT1, VT2, VT3
                    INTO :VAL1:INDIC1, :VAL2, :VAL3
                    FROM V_DATA_TYPE WHERE VT2 = 1;

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :VAL1 NUMERIC (4));
      SELECT SUM(NUM) INTO :VAL1
                    FROM DATA_TYPE
                    WHERE NUM IS NOT NULL;

PROCEDURE SUB17 (SQLCODE, SQLSTATE,
    :VAL2 NUMERIC (4));
      SELECT SUM(VT1) AS SUNTA1 INTO :VAL2
                    FROM V_DATA_TYPE AS TB3;

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      DROP VIEW V_DATA_TYPE;

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7568','pass','MCO');

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7568','fail','MCO');

PROCEDURE SUB23 (SQLCODE, SQLSTATE);
      COMMIT WORK;