Quelle  dml157.mco

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

DECLARE C15711  CURSOR FOR
               SELECT STATION_ID, DCP, STATION_NAME, DEG_LATITUDE,
               DEG_LONGITUDE, EXTRACT (HOUR FROM MERIDIAN), FEET_MLLW,
               KNOTS_PERM_CURRENT FROM HYDROGRAPHY.STATIONS
               ORDER BY STATION_ID, DCP
DECLARE C15712  CURSOR FOR
               SELECT STATION_ID, DCP, STATION_NAME, DEG_LATITUDE,
               DEG_LONGITUDE, EXTRACT (HOUR FROM MERIDIAN), FEET_MLLW,
               KNOTS_PERM_CURRENT FROM HYDROGRAPHY.STATIONS_D
               ORDER BY STATION_ID, DCP


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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
    OPEN C15711;

PROCEDURE SUB4 (SQLCODE, SQLSTATE,
    :PSTAID NUMERIC (9),
    :PDCP NUMERIC (9),
    :PNAM CHAR(40),
    :PLATC CHAR(8),
    :PLONGC CHAR(9),
    :PMERID NUMERIC (9),
    :INDIC1 NUMERIC (4),
    :PMLLW NUMERIC (8,4),
    :INDIC2 NUMERIC (4),
    :PCURR NUMERIC (8,4),
    :INDIC3 NUMERIC (4));
      FETCH C15711 INTO :PSTAID, :PDCP, :PNAM,
                    :PLATC, :PLONGC, :PMERID INDICATOR :INDIC1,
                  :PMLLW:INDIC2,
                    :PCURR INDICATOR :INDIC3;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :PSTAID NUMERIC (9),
    :PDCP NUMERIC (9),
    :PNAM CHAR(40),
    :PLATC CHAR(8),
    :PLONGC CHAR(9),
    :PMERID NUMERIC (9),
    :INDIC1 NUMERIC (4),
    :PMLLW NUMERIC (8,4),
    :INDIC2 NUMERIC (4),
    :PCURR NUMERIC (8,4),
    :INDIC3 NUMERIC (4));
      FETCH C15711 INTO :PSTAID, :PDCP, :PNAM,
                    :PLATC, :PLONGC, :PMERID INDICATOR :INDIC1,
                  :PMLLW:INDIC2,
                    :PCURR INDICATOR :INDIC3;

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :PSTAID NUMERIC (9),
    :PDCP NUMERIC (9),
    :PNAM CHAR(40),
    :PLATC CHAR(8),
    :PLONGC CHAR(9),
    :PMERID NUMERIC (9),
    :INDIC1 NUMERIC (4),
    :PMLLW NUMERIC (8,4),
    :INDIC2 NUMERIC (4),
    :PCURR NUMERIC (8,4),
    :INDIC3 NUMERIC (4));
      FETCH C15711 INTO :PSTAID, :PDCP, :PNAM,
                    :PLATC, :PLONGC, :PMERID INDICATOR :INDIC1,
                  :PMLLW:INDIC2,
                    :PCURR INDICATOR :INDIC3;

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :PSTAID NUMERIC (9),
    :PDCP NUMERIC (9),
    :PNAM CHAR(40),
    :PLATC CHAR(8),
    :PLONGC CHAR(9),
    :PMERID NUMERIC (9),
    :INDIC1 NUMERIC (4),
    :PMLLW NUMERIC (8,4),
    :INDIC2 NUMERIC (4),
    :PCURR NUMERIC (8,4),
    :INDIC3 NUMERIC (4));
      FETCH C15711 INTO :PSTAID, :PDCP, :PNAM,
                    :PLATC, :PLONGC, :PMERID INDICATOR :INDIC1,
                  :PMLLW:INDIC2,
                    :PCURR INDICATOR :INDIC3;

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :PSTAID NUMERIC (9),
    :PDCP NUMERIC (9),
    :PNAM CHAR(40),
    :PLATC CHAR(8),
    :PLONGC CHAR(9),
    :PMERID NUMERIC (9),
    :INDIC1 NUMERIC (4),
    :PMLLW NUMERIC (8,4),
    :INDIC2 NUMERIC (4),
    :PCURR NUMERIC (8,4),
    :INDIC3 NUMERIC (4));
      FETCH C15711 INTO :PSTAID, :PDCP, :PNAM,
                    :PLATC, :PLONGC, :PMERID INDICATOR :INDIC1,
                  :PMLLW:INDIC2,
                    :PCURR INDICATOR :INDIC3;

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :PSTAID NUMERIC (9),
    :PDCP NUMERIC (9),
    :PNAM CHAR(40),
    :PLATC CHAR(8),
    :PLONGC CHAR(9),
    :PMERID NUMERIC (9),
    :INDIC1 NUMERIC (4),
    :PMLLW NUMERIC (8,4),
    :INDIC2 NUMERIC (4),
    :PCURR NUMERIC (8,4),
    :INDIC3 NUMERIC (4));
      FETCH C15711 INTO :PSTAID, :PDCP, :PNAM,
                    :PLATC, :PLONGC, :PMERID INDICATOR :INDIC1,
                  :PMLLW:INDIC2,
                    :PCURR INDICATOR :INDIC3;

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      CLOSE C15711;

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
    OPEN C15712;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :PSTAID NUMERIC (9),
    :PDCP NUMERIC (9),
    :PNAM CHAR(40),
    :PLATF NUMERIC (8,4),
    :PLONGF NUMERIC (8,4),
    :PMERID NUMERIC (9),
    :INDIC1 NUMERIC (4),
    :PMLLW NUMERIC (8,4),
    :INDIC2 NUMERIC (4),
    :PCURR NUMERIC (8,4),
    :INDIC3 NUMERIC (4));
      FETCH C15712 INTO :PSTAID, :PDCP, :PNAM,
                    :PLATF, :PLONGF, :PMERID INDICATOR :INDIC1,
                  :PMLLW:INDIC2,
                    :PCURR INDICATOR :INDIC3;

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :PSTAID NUMERIC (9),
    :PDCP NUMERIC (9),
    :PNAM CHAR(40),
    :PLATF NUMERIC (8,4),
    :PLONGF NUMERIC (8,4),
    :PMERID NUMERIC (9),
    :INDIC1 NUMERIC (4),
    :PMLLW NUMERIC (8,4),
    :INDIC2 NUMERIC (4),
    :PCURR NUMERIC (8,4),
    :INDIC3 NUMERIC (4));
      FETCH C15712 INTO :PSTAID, :PDCP, :PNAM,
                    :PLATF, :PLONGF, :PMERID INDICATOR :INDIC1,
                  :PMLLW:INDIC2,
                    :PCURR INDICATOR :INDIC3;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :PSTAID NUMERIC (9),
    :PDCP NUMERIC (9),
    :PNAM CHAR(40),
    :PLATF NUMERIC (8,4),
    :PLONGF NUMERIC (8,4),
    :PMERID NUMERIC (9),
    :INDIC1 NUMERIC (4),
    :PMLLW NUMERIC (8,4),
    :INDIC2 NUMERIC (4),
    :PCURR NUMERIC (8,4),
    :INDIC3 NUMERIC (4));
      FETCH C15712 INTO :PSTAID, :PDCP, :PNAM,
                    :PLATF, :PLONGF, :PMERID INDICATOR :INDIC1,
                  :PMLLW:INDIC2,
                    :PCURR INDICATOR :INDIC3;

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :PSTAID NUMERIC (9),
    :PDCP NUMERIC (9),
    :PNAM CHAR(40),
    :PLATF NUMERIC (8,4),
    :PLONGF NUMERIC (8,4),
    :PMERID NUMERIC (9),
    :INDIC1 NUMERIC (4),
    :PMLLW NUMERIC (8,4),
    :INDIC2 NUMERIC (4),
    :PCURR NUMERIC (8,4),
    :INDIC3 NUMERIC (4));
      FETCH C15712 INTO :PSTAID, :PDCP, :PNAM,
                    :PLATF, :PLONGF, :PMERID INDICATOR :INDIC1,
                  :PMLLW:INDIC2,
                    :PCURR INDICATOR :INDIC3;

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :PSTAID NUMERIC (9),
    :PDCP NUMERIC (9),
    :PNAM CHAR(40),
    :PLATF NUMERIC (8,4),
    :PLONGF NUMERIC (8,4),
    :PMERID NUMERIC (9),
    :INDIC1 NUMERIC (4),
    :PMLLW NUMERIC (8,4),
    :INDIC2 NUMERIC (4),
    :PCURR NUMERIC (8,4),
    :INDIC3 NUMERIC (4));
      FETCH C15712 INTO :PSTAID, :PDCP, :PNAM,
                    :PLATF, :PLONGF, :PMERID INDICATOR :INDIC1,
                  :PMLLW:INDIC2,
                    :PCURR INDICATOR :INDIC3;

PROCEDURE SUB17 (SQLCODE, SQLSTATE,
    :PSTAID NUMERIC (9),
    :PDCP NUMERIC (9),
    :PNAM CHAR(40),
    :PLATF NUMERIC (8,4),
    :PLONGF NUMERIC (8,4),
    :PMERID NUMERIC (9),
    :INDIC1 NUMERIC (4),
    :PMLLW NUMERIC (8,4),
    :INDIC2 NUMERIC (4),
    :PCURR NUMERIC (8,4),
    :INDIC3 NUMERIC (4));
      FETCH C15712 INTO :PSTAID, :PDCP, :PNAM,
                    :PLATF, :PLONGF, :PMERID INDICATOR :INDIC1,
                  :PMLLW:INDIC2,
                    :PCURR INDICATOR :INDIC3;

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      COMMIT WORK;