Quelle  yts811.mco

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