DECLARE config3s CURSOR WITH HOLD FOR SELECT ADAPT_ADDR, SEQUENCE_NO FROM LANM.CONFIGURATION WHERE SEGMENT_NO = :h_ach3SegmentNo ORDER BY SEQUENCE_NO ASC FOR FETCH ONLY
OPEN config3s
DECLARE niconfig3s CURSOR WITH HOLD FOR SELECT ADAPT_ADDR, SEQUENCE_NO FROM LANM.CONFIGURATION WHERE SEGMENT_NO = :h_ach3SegmentNo ORDER BY SEQUENCE_NO ASC FOR FETCH ONLY
OPEN niconfig3s
DECLARE config4s CURSOR WITH HOLD FOR SELECT ADAPT_ADDR, UNIVERSAL_ADDR, SEGMENT_NO, SEQUENCE_NO, FUNCTIONAL_ADDR, GROUP_ADDR, CAU_ATTACHED_FLAG, ACTIVE_TIME FROM LANM.CONFIGURATION WHERE SEGMENT_NO = :h_ach3SegmentNo ORDER BY SEQUENCE_NO ASC FOR FETCH ONLY
OPEN config4s
DECLARE config4scm CURSOR WITH HOLD FOR SELECT ADAPT_ADDR, UNIVERSAL_ADDR, SEGMENT_NO, SEQUENCE_NO, FUNCTIONAL_ADDR, GROUP_ADDR, CAU_ATTACHED_FLAG, ACTIVE_TIME FROM LANM.CONFIGURATION WHERE SEGMENT_NO = :h_ach3SegmentNo ORDER BY SEQUENCE_NO ASC FOR FETCH ONLY
OPEN config4scm
DECLARE niconfig4s CURSOR WITH HOLD FOR SELECT ADAPT_ADDR, UNIVERSAL_ADDR, SEGMENT_NO, SEQUENCE_NO, FUNCTIONAL_ADDR, GROUP_ADDR, CAU_ATTACHED_FLAG, ACTIVE_TIME FROM LANM.CONFIGURATION WHERE SEGMENT_NO = :h_ach3SegmentNo ORDER BY SEQUENCE_NO ASC FOR FETCH ONLY
OPEN niconfig4s
DECLARE config3a CURSOR WITH HOLD FOR SELECT ADAPT_ADDR FROM LANM.CONFIGURATION WHERE SEGMENT_NO = :h_ach3SegmentNo ORDER BY ADAPT_ADDR ASC FOR FETCH ONLY
OPEN config3a
DECLARE niconfig3a CURSOR WITH HOLD FOR SELECT ADAPT_ADDR FROM LANM.CONFIGURATION WHERE SEGMENT_NO = :h_ach3SegmentNo ORDER BY ADAPT_ADDR ASC FOR FETCH ONLY
OPEN niconfig3a
DECLARE eventlog4rec CURSOR WITH HOLD FOR SELECT EVENT_TIME, EVENT_DATE, MESSAGE_NO, RESERVED, HOST_FLAG, SEGMENT_NO, ADAPT_ADDR1, ADAPT_ADDR2, VARIABLE_DATA1, VARIABLE_DATA2, VARIABLE_DATA3, SORT_NUM FROM LANM.CURRENT_EVENTS ORDER BY SORT_NUM DESC FOR FETCH ONLY
OPEN eventlog4rec
DECLARE nieventlog4rec CURSOR WITH HOLD FOR SELECT EVENT_TIME, EVENT_DATE, MESSAGE_NO, RESERVED, HOST_FLAG, SEGMENT_NO, ADAPT_ADDR1, ADAPT_ADDR2, VARIABLE_DATA1, VARIABLE_DATA2, VARIABLE_DATA3, SORT_NUM FROM LANM.CURRENT_EVENTS ORDER BY SORT_NUM DESC FOR FETCH ONLY
OPEN nieventlog4rec
DECLARE eventlog5 CURSOR WITH HOLD FOR SELECT RESERVED FROM LANM.EVENT_LOG WHERE DELETE_FLAG = '1' FOR FETCH ONLY
OPEN eventlog5
DECLARE locdef CURSOR WITH HOLD FOR SELECT ADAPT_ADDR, CAU_ID, CAU_ATTACH_MODULE, CAU_LOBE FROM LANM.LOCATION_DEF WHERE ADAPT_ADDR = :h_ach19AdaptAddr FOR FETCH ONLY
OPEN locdef
DECLARE eventlog5rec CURSOR WITH HOLD FOR SELECT EVENT_TIME, EVENT_DATE, MESSAGE_NO, RESERVED, HOST_FLAG, SEGMENT_NO, ADAPT_ADDR1, ADAPT_ADDR2, VARIABLE_DATA1, VARIABLE_DATA2, VARIABLE_DATA3 FROM LANM.CURRENT_EVENTS WHERE EVENT_TIME = :h_ach21Time AND EVENT_DATE = :h_ach21Date AND MESSAGE_NO = :h_ach21MsgNo FOR FETCH ONLY
OPEN eventlog5rec
DECLARE nieventlog5rec CURSOR WITH HOLD FOR SELECT EVENT_TIME, EVENT_DATE, MESSAGE_NO, RESERVED, HOST_FLAG, SEGMENT_NO, ADAPT_ADDR1, ADAPT_ADDR2, VARIABLE_DATA1, VARIABLE_DATA2, VARIABLE_DATA3 FROM LANM.CURRENT_EVENTS WHERE EVENT_TIME = :h_ach21Time AND EVENT_DATE = :h_ach21Date AND MESSAGE_NO = :h_ach21MsgNo FOR FETCH ONLY
OPEN nieventlog5rec
DECLARE locdef2 CURSOR WITH HOLD FOR SELECT ADAPT_ADDR, CAU_LOBE FROM LANM.LOCATION_DEF WHERE CAU_ID = :h_ach41CauId AND CAU_ATTACH_MODULE = :h_ch41CauAttachModule ORDER BY CAU_LOBE ASC FOR FETCH ONLY
OPEN locdef2
DECLARE cmlocdef2 CURSOR WITH HOLD FOR SELECT ADAPT_ADDR, CAU_LOBE FROM LANM.LOCATION_DEF WHERE CAU_ID = :h_ach41CauId AND CAU_ATTACH_MODULE = :h_ch41CauAttachModule ORDER BY CAU_LOBE ASC FOR FETCH ONLY
OPEN cmlocdef2
DECLARE monitor CURSOR WITH HOLD FOR SELECT ADAPT_ADDR FROM LANM.STATION_DEFINITION WHERE MONITORED_FLAG = :hfch1 FOR FETCH ONLY
OPEN monitor
DECLARE stasegs CURSOR WITH HOLD FOR SELECT DISTINCT SEGMENT_NO FROM LANM.CONFIGURATION ORDER BY SEGMENT_NO ASC FOR FETCH ONLY
OPEN stasegs
DECLARE segment CURSOR WITH HOLD FOR SELECT SEGMENT_NO FROM LANM.CONFIGURATION WHERE ADAPT_ADDR = :h_ach19AdaptAddr ORDER BY SEGMENT_NO ASC FOR FETCH ONLY
OPEN segment
DECLARE nistasegs CURSOR WITH HOLD FOR SELECT DISTINCT SEGMENT_NO FROM LANM.CONFIGURATION ORDER BY SEGMENT_NO ASC FOR FETCH ONLY
OPEN nistasegs
DECLARE nisegment CURSOR WITH HOLD FOR SELECT SEGMENT_NO FROM LANM.CONFIGURATION WHERE ADAPT_ADDR = :h_ach19AdaptAddr ORDER BY SEGMENT_NO ASC FOR FETCH ONLY
OPEN nisegment
DECLARE stadef1nb CURSOR WITH HOLD FOR SELECT RESERVED, ADAPT_ADDR, ADAPT_NAME FROM LANM.STATION_DEFINITION WHERE ADAPT_ADDR IN ( SELECT ADAPT_ADDR FROM LANM.STATION_DEFINITION EXCEPT SELECT ADAPT_ADDR FROM LANM.CONFIGURATION ) ORDER BY ADAPT_NAME ASC FOR FETCH ONLY
OPEN stadef1nb
DECLARE stadef1n CURSOR WITH HOLD FOR SELECT SD.RESERVED, SD.ADAPT_ADDR, ADAPT_NAME FROM LANM.STATION_DEFINITION SD, LANM.CONFIGURATION C WHERE SEGMENT_NO = :h_ach3SegmentNo AND C.ADAPT_ADDR = SD.ADAPT_ADDR ORDER BY ADAPT_NAME ASC FOR FETCH ONLY
OPEN stadef1n
DECLARE stadef2nb CURSOR WITH HOLD FOR SELECT RESERVED, ADAPT_ADDR, ADAPT_NAME FROM LANM.STATION_DEFINITION WHERE (MONITORED_FLAG = :hfch1 OR MONITORED_FLAG = :hfch2) AND (TRACE_FLAG = :hfch3 OR TRACE_FLAG = :hfch4) AND ADAPT_ADDR IN ( SELECT ADAPT_ADDR FROM LANM.STATION_DEFINITION EXCEPT SELECT ADAPT_ADDR FROM LANM.CONFIGURATION ) ORDER BY ADAPT_NAME ASC FOR FETCH ONLY
OPEN stadef2nb
DECLARE stadef2n CURSOR WITH HOLD FOR SELECT SD.RESERVED, SD.ADAPT_ADDR, ADAPT_NAME FROM LANM.STATION_DEFINITION SD, LANM.CONFIGURATION C WHERE SEGMENT_NO = :h_ach3SegmentNo AND C.ADAPT_ADDR = SD.ADAPT_ADDR AND (MONITORED_FLAG = :hfch1 OR MONITORED_FLAG = :hfch2) AND (TRACE_FLAG = :hfch3 OR TRACE_FLAG = :hfch4) ORDER BY ADAPT_NAME ASC FOR FETCH ONLY
OPEN stadef2n
DECLARE nistadef1nb CURSOR WITH HOLD FOR SELECT RESERVED, ADAPT_ADDR, ADAPT_NAME FROM LANM.STATION_DEFINITION WHERE ADAPT_ADDR IN ( SELECT ADAPT_ADDR FROM LANM.STATION_DEFINITION EXCEPT SELECT ADAPT_ADDR FROM LANM.CONFIGURATION ) ORDER BY ADAPT_NAME ASC FOR FETCH ONLY
OPEN nistadef1nb
DECLARE nistadef1n CURSOR WITH HOLD FOR SELECT SD.RESERVED, SD.ADAPT_ADDR, ADAPT_NAME FROM LANM.STATION_DEFINITION SD, LANM.CONFIGURATION C WHERE SEGMENT_NO = :h_ach3SegmentNo AND C.ADAPT_ADDR = SD.ADAPT_ADDR ORDER BY ADAPT_NAME ASC FOR FETCH ONLY
OPEN nistadef1n
DECLARE nistadef2nb CURSOR WITH HOLD FOR SELECT RESERVED, ADAPT_ADDR, ADAPT_NAME FROM LANM.STATION_DEFINITION WHERE (MONITORED_FLAG = :hfch1 OR MONITORED_FLAG = :hfch2) AND (TRACE_FLAG = :hfch3 OR TRACE_FLAG = :hfch4) AND ADAPT_ADDR IN ( SELECT ADAPT_ADDR FROM LANM.STATION_DEFINITION EXCEPT SELECT ADAPT_ADDR FROM LANM.CONFIGURATION ) ORDER BY ADAPT_NAME ASC FOR FETCH ONLY
OPEN nistadef2nb
DECLARE nistadef2n CURSOR WITH HOLD FOR SELECT SD.RESERVED, SD.ADAPT_ADDR, ADAPT_NAME FROM LANM.STATION_DEFINITION SD, LANM.CONFIGURATION C WHERE SEGMENT_NO = :h_ach3SegmentNo AND C.ADAPT_ADDR = SD.ADAPT_ADDR AND (MONITORED_FLAG = :hfch1 OR MONITORED_FLAG = :hfch2) AND (TRACE_FLAG = :hfch3 OR TRACE_FLAG = :hfch4) ORDER BY ADAPT_NAME ASC FOR FETCH ONLY
OPEN nistadef2n
DECLARE stadef1ab CURSOR WITH HOLD FOR SELECT RESERVED, ADAPT_ADDR FROM LANM.STATION_DEFINITION WHERE ADAPT_ADDR IN ( SELECT ADAPT_ADDR FROM LANM.STATION_DEFINITION EXCEPT SELECT ADAPT_ADDR FROM LANM.CONFIGURATION ) ORDER BY ADAPT_ADDR ASC FOR FETCH ONLY
OPEN stadef1ab
DECLARE stadef1a CURSOR WITH HOLD FOR SELECT SD.RESERVED, SD.ADAPT_ADDR FROM LANM.STATION_DEFINITION SD, LANM.CONFIGURATION C WHERE SEGMENT_NO = :h_ach3SegmentNo AND C.ADAPT_ADDR = SD.ADAPT_ADDR ORDER BY SD.ADAPT_ADDR ASC FOR FETCH ONLY
OPEN stadef1a
DECLARE stadef2a CURSOR WITH HOLD FOR SELECT SD.RESERVED, SD.ADAPT_ADDR FROM LANM.STATION_DEFINITION SD, LANM.CONFIGURATION C WHERE SEGMENT_NO = :h_ach3SegmentNo AND C.ADAPT_ADDR = SD.ADAPT_ADDR AND (MONITORED_FLAG = :hfch1 OR MONITORED_FLAG = :hfch2) AND (TRACE_FLAG = :hfch3 OR TRACE_FLAG = :hfch4) ORDER BY SD.ADAPT_ADDR ASC FOR FETCH ONLY
OPEN stadef2a
DECLARE stadef2ab CURSOR WITH HOLD FOR SELECT RESERVED, ADAPT_ADDR FROM LANM.STATION_DEFINITION WHERE (MONITORED_FLAG = :hfch1 OR MONITORED_FLAG = :hfch2) AND (TRACE_FLAG = :hfch3 OR TRACE_FLAG = :hfch4) AND ADAPT_ADDR IN ( SELECT ADAPT_ADDR FROM LANM.STATION_DEFINITION EXCEPT SELECT ADAPT_ADDR FROM LANM.CONFIGURATION ) ORDER BY ADAPT_ADDR ASC FOR FETCH ONLY
OPEN stadef2ab
DECLARE stadef1aa CURSOR WITH HOLD FOR SELECT RESERVED, ADAPT_ADDR FROM LANM.CONFIGURATION WHERE SEGMENT_NO = :h_ach3SegmentNo AND ADAPT_ADDR IN ( SELECT ADAPT_ADDR FROM LANM.CONFIGURATION EXCEPT SELECT ADAPT_ADDR FROM LANM.STATION_DEFINITION ) ORDER BY ADAPT_ADDR ASC FOR FETCH ONLY
OPEN stadef1aa
DECLARE stadef1bb CURSOR WITH HOLD FOR SELECT C.ADAPT_ADDR FROM LANM.CONFIGURATION C, LANM.STATION_DEFINITION SD WHERE SEGMENT_NO = :h_ach3SegmentNo AND ADAPT_NAME = ' ' ORDER BY C.ADAPT_ADDR ASC FOR FETCH ONLY
OPEN stadef1bb
DECLARE nistadef1aa CURSOR WITH HOLD FOR SELECT RESERVED, ADAPT_ADDR FROM LANM.CONFIGURATION WHERE SEGMENT_NO = :h_ach3SegmentNo AND ADAPT_ADDR IN ( SELECT ADAPT_ADDR FROM LANM.CONFIGURATION EXCEPT SELECT ADAPT_ADDR FROM LANM.STATION_DEFINITION ) ORDER BY ADAPT_ADDR ASC FOR FETCH ONLY
OPEN nistadef1aa
DECLARE nistadef1bb CURSOR WITH HOLD FOR SELECT C.ADAPT_ADDR FROM LANM.CONFIGURATION C, LANM.STATION_DEFINITION SD WHERE SEGMENT_NO = :h_ach3SegmentNo AND ADAPT_NAME = ' ' ORDER BY C.ADAPT_ADDR ASC FOR FETCH ONLY
OPEN nistadef1bb
DECLARE statprof CURSOR WITH HOLD FOR SELECT ADAPT_ADDR, UNIVERSAL_ADDR, SEGMENT_NO, SEQUENCE_NO, FUNCTIONAL_ADDR, GROUP_ADDR FROM LANM.CONFIGURATION WHERE ADAPT_ADDR = :h_ach19AdaptAddr FOR FETCH ONLY
OPEN statprof
DECLARE statinfo CURSOR WITH HOLD FOR SELECT SEGMENT_NO, ADAPT_ADDR FROM LANM.CONFIGURATION WHERE ADAPT_ADDR = :h_ach19AdaptAddr FOR FETCH ONLY
OPEN statinfo
DECLARE el_station CURSOR WITH HOLD FOR SELECT EVENT_TIME, EVENT_DATE, MESSAGE_NO, RESERVED, HOST_FLAG, SEGMENT_NO, ADAPT_ADDR1, ADAPT_ADDR2, VARIABLE_DATA1, VARIABLE_DATA2, VARIABLE_DATA3, SORT_NUM FROM LANM.CURRENT_EVENTS WHERE ADAPT_ADDR1 = :h_ach55AdaptAddr ORDER BY SORT_NUM DESC FOR FETCH ONLY
OPEN el_station
DECLARE el_bridge CURSOR WITH HOLD FOR SELECT EVENT_TIME, EVENT_DATE, MESSAGE_NO, RESERVED, HOST_FLAG, SEGMENT_NO, ADAPT_ADDR1, ADAPT_ADDR2, VARIABLE_DATA1, VARIABLE_DATA2, VARIABLE_DATA3, SORT_NUM FROM LANM.CURRENT_EVENTS WHERE SUBSTR (VARIABLE_DATA1, 1, 8) = :h_ach55BridgeName ORDER BY SORT_NUM DESC FOR FETCH ONLY
OPEN el_bridge
DECLARE el_cau CURSOR WITH HOLD FOR SELECT EVENT_TIME, EVENT_DATE, MESSAGE_NO, RESERVED, HOST_FLAG, SEGMENT_NO, ADAPT_ADDR1, ADAPT_ADDR2, VARIABLE_DATA1, VARIABLE_DATA2, VARIABLE_DATA3, SORT_NUM FROM LANM.CURRENT_EVENTS WHERE SUBSTR (VARIABLE_DATA1, 1, 8) = :h_ach55CauId ORDER BY SORT_NUM DESC FOR FETCH ONLY
OPEN el_cau
DECLARE el_seg CURSOR WITH HOLD FOR SELECT EVENT_TIME, EVENT_DATE, MESSAGE_NO, RESERVED, HOST_FLAG, SEGMENT_NO, ADAPT_ADDR1, ADAPT_ADDR2, VARIABLE_DATA1, VARIABLE_DATA2, VARIABLE_DATA3, SORT_NUM FROM LANM.CURRENT_EVENTS WHERE SEGMENT_NO = :h_ach55SegmentNo ORDER BY SORT_NUM DESC FOR FETCH ONLY
OPEN el_seg
DECLARE msg_text CURSOR WITH HOLD FOR SELECT MSG_NO, MSG_TEXT FROM LANM.MESSAGE_TEXT ORDER BY MSG_NO ASC FOR FETCH ONLY
OPEN msg_text
DECLARE all_filters CURSOR WITH HOLD FOR SELECT DESCRIPTION, ACTIVE_FLAG, RESERVED FROM LANM.EVENT_FILTERS ORDER BY RESERVED ASC FOR FETCH ONLY
OPEN all_filters
DECLARE active_filters CURSOR WITH HOLD FOR SELECT DESCRIPTION, ACTIVE_FLAG, START_DATE, START_TIME, END_DATE, END_TIME, ADAPTER_ADDR, BRIDGE_NAME, CAU_ID, SEGMENT_LIST, EVENT_LIST, RESERVED FROM LANM.EVENT_FILTERS WHERE ACTIVE_FLAG = '1' ORDER BY RESERVED ASC FOR FETCH ONLY
OPEN active_filters
DECLARE ni_all_filters CURSOR WITH HOLD FOR SELECT DESCRIPTION, ACTIVE_FLAG, RESERVED FROM LANM.EVENT_FILTERS ORDER BY RESERVED ASC FOR FETCH ONLY
OPEN ni_all_filters
DECLARE ni_active_filters CURSOR WITH HOLD FOR SELECT DESCRIPTION, ACTIVE_FLAG, START_DATE, START_TIME, END_DATE, END_TIME, ADAPTER_ADDR, BRIDGE_NAME, CAU_ID, SEGMENT_LIST, EVENT_LIST, RESERVED FROM LANM.EVENT_FILTERS WHERE ACTIVE_FLAG = '1' ORDER BY RESERVED ASC FOR FETCH ONLY
OPEN ni_active_filters
BEGIN DECLARE SECTION
END DECLARE SECTION
FETCH config3s INTO :h_achConfigListAdaptAddr
SELECT ADAPT_NAME INTO :h_achConfigListAdaptName FROM LANM.STATION_DEFINITION WHERE ADAPT_ADDR = :h_achConfigListAdaptAddr
FETCH niconfig3s INTO :h_achConfigListAdaptAddr
SELECT ADAPT_NAME INTO :h_achConfigListAdaptName FROM LANM.STATION_DEFINITION WHERE ADAPT_ADDR = :h_achConfigListAdaptAddr
FETCH config3a INTO :h_achConfigListAdaptAddr
SELECT ADAPT_NAME INTO :h_achConfigListAdaptName FROM LANM.STATION_DEFINITION WHERE ADAPT_ADDR = :h_achConfigListAdaptAddr
FETCH niconfig3a INTO :h_achConfigListAdaptAddr
SELECT ADAPT_NAME INTO :h_achConfigListAdaptName FROM LANM.STATION_DEFINITION WHERE ADAPT_ADDR = :h_achConfigListAdaptAddr
FETCH locdef INTO :h_achLocationAdaptAddr, :h_achLocationCauId, :h_chLocationCauAttachModule, :h_usLocationCauLobe
FETCH locdef2 INTO :h_achLocation2AdaptAddr, :h_usLocation2CauLobe
FETCH cmlocdef2 INTO :h_achLocation2AdaptAddr, :h_usLocation2CauLobe
FETCH monitor INTO :h_achMonitorAdaptAddr
FETCH segment INTO :h_achSegSegmentNo
FETCH stasegs INTO :h_achSegSegmentNo
FETCH nisegment INTO :h_achSegSegmentNo
FETCH nistasegs INTO :h_achSegSegmentNo
FETCH stadef1n INTO :h_lStatRsvdRsvd, :h_achStatRsvdAdaptAddr
FETCH nistadef1n INTO :h_lStatRsvdRsvd, :h_achStatRsvdAdaptAddr
FETCH stadef1a INTO :h_lStatRsvdRsvd, :h_achStatRsvdAdaptAddr
FETCH stadef1nb INTO :h_lStatRsvdRsvd, :h_achStatRsvdAdaptAddr
FETCH nistadef1nb INTO :h_lStatRsvdRsvd, :h_achStatRsvdAdaptAddr
FETCH stadef1ab INTO :h_lStatRsvdRsvd, :h_achStatRsvdAdaptAddr
FETCH stadef1aa INTO :h_lStatRsvdRsvd, :h_achStatRsvdAdaptAddr
FETCH stadef1bb INTO :h_achStatRsvdAdaptAddr
FETCH stadef2n INTO :h_lBridgeRsvdRsvd, :h_achStatRsvdAdaptAddr
FETCH nistadef1aa INTO :h_lStatRsvdRsvd, :h_achStatRsvdAdaptAddr
FETCH nistadef1bb INTO :h_achStatRsvdAdaptAddr
FETCH nistadef2n INTO :h_lBridgeRsvdRsvd, :h_achStatRsvdAdaptAddr
FETCH stadef2a INTO :h_lBridgeRsvdRsvd, :h_achStatRsvdAdaptAddr
FETCH stadef2nb INTO :h_lBridgeRsvdRsvd, :h_achStatRsvdAdaptAddr
FETCH nistadef2nb INTO :h_lBridgeRsvdRsvd, :h_achStatRsvdAdaptAddr
FETCH stadef2ab INTO :h_lBridgeRsvdRsvd, :h_achStatRsvdAdaptAddr
FETCH statprof INTO :h_achProfileAdaptAddr, :h_achProfileUniversalAddr:hni1, :h_achProfileSegmentNo, :h_usProfileSequenceNo, :h_lProfileFunctionalAddr, :h_achProfileGroupAddr
SELECT ADAPT_NAME, TRACE_FLAG, MONITORED_FLAG, USER_COMMENT, DAYS_AUTHOR_FROM, DAYS_AUTHOR_TO, TIME_AUTHOR_FROM, TIME_AUTHOR_TO INTO :h_achProfileAdaptName, :h_fchProfileTraceFlag, :h_fchProfileMonitoredFlag, :h_achProfileUserComment:hni1, :h_usProfileDaysAuthorFrom, :h_usProfileDaysAuthorTo, :h_usProfileTimeAuthorFrom, :h_usProfileTimeAuthorTo FROM LANM.STATION_DEFINITION WHERE ADAPT_ADDR = :h_achProfileAdaptAddr
COMMIT
SELECT CAU_ID, CAU_ATTACH_MODULE, CAU_LOBE INTO :h_achProfileCauId, :h_chProfileCauAttachModule, :h_usProfileCauLobe FROM LANM.LOCATION_DEF WHERE ADAPT_ADDR = :h_achProfileAdaptAddr
FETCH statinfo INTO :h_achCauListSegmentNo, :h_address
SELECT CAU_ID INTO :h_achCauListCauId FROM LANM.LOCATION_DEF WHERE ADAPT_ADDR = :h_address