Quelle  yts803.mco

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

DECLARE DATA803  CURSOR FOR
               SELECT SIZING_ID, DESCRIPTION, ENTRY_VALUE,
               INTERMEDIATE_VALUE
               FROM FIPS_DOCUMENTATION.SQL_SIZING
               ORDER BY SIZING_ID


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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
    OPEN data803;

PROCEDURE SUB4 (SQLCODE, SQLSTATE,
    :CO1 NUMERIC (4));
      SELECT COUNT (*) INTO :CO1
                    FROM FIPS_DOCUMENTATION.SQL_SIZING;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :CO1 NUMERIC (4));
      SELECT COUNT (*) INTO :CO1
                    FROM FIPS_DOCUMENTATION.SQL_SIZING
                    WHERE VALUE_SUPPORTED IS NOT NULL
                    OR SIZING_COMMENTS IS NOT NULL
                    OR SIZING_ID IS NOT NULL;

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :SID NUMERIC (4),
    :DESC CHAR(50),
    :ENTV NUMERIC (5),
    :INDIC1 NUMERIC (4),
    :INTV NUMERIC (5),
    :INDIC2 NUMERIC (4));
      FETCH data803 
                    INTO :SID,:DESC,:ENTV:INDIC1,:INTV:INDIC2;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      CLOSE data803;

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      COMMIT WORK;