|
-- 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;
[ Dauer der Verarbeitung: 0.23 Sekunden
(vorverarbeitet)
]
|
