home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / 10ageout.zip / DFIDBCRS.BND (.txt) < prev    next >
DB2 Bind  |  1993-08-19  |  31KB  |  284 lines
  1. DFIDBCRSuAiFKTIJUSERID  0
  2. BEGIN DECLARE SECTION
  3. END DECLARE SECTION
  4. DECLARE causonseg CURSOR WITH HOLD FOR             SELECT CAU_ID, COMM_ADDR                                                FROM LANM.CAU             WHERE SEGMENT_NO=:hach3_1             FOR FETCH ONLY
  5. OPEN causonseg
  6. DECLARE causprevact CURSOR WITH HOLD FOR                     SELECT CAU_ID                     FROM LANM.CAU                     WHERE SEGMENT_NO = :hach3_1                     AND   PREV_ACTIVE_FLAG = :hfch1                     FOR FETCH ONLY
  7. OPEN causprevact
  8. DECLARE cauqualifier CURSOR WITH HOLD FOR                                  SELECT SEGMENT                                                                   FROM LANM.CAU_QUALIFIERS                                                         FOR FETCH ONLY
  9. OPEN cauqualifier
  10. 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.EVENT_LOG                                        WHERE DELETE_FLAG = :hfchNo                                          ORDER BY SORT_NUM DESC                 FOR FETCH ONLY
  11. OPEN eventlog4rec 
  12. DECLARE eventlog5  CURSOR WITH HOLD FOR                     SELECT RESERVED                     FROM LANM.EVENT_LOG                     WHERE DELETE_FLAG = :hfch1                     FOR FETCH ONLY
  13. OPEN eventlog5
  14. DECLARE eventlog6  CURSOR WITH HOLD FOR                     SELECT RESERVED, SORT_NUM                                     FROM LANM.EVENT_LOG                     WHERE DELETE_FLAG = :hfchNo                                              ORDER BY SORT_NUM ASC                     FOR FETCH ONLY
  15. OPEN eventlog6
  16. COMMIT
  17. FETCH causonseg INTO :hach8_1:hni1, :hach12_1:hni1
  18. FETCH cauqualifier INTO :hach3_1:hni1
  19. FETCH causprevact INTO                    :hach8_1:hni1
  20. FETCH eventlog4rec                   INTO                :hach8_1:hni1, :hach10_1:hni1, :hach3_1:hni1,                :hl1, :hfch1:hni1, :hach3_2:hni1, :hach12_1:hni1,                :hach12_2:hni1, :hach41_1:hni1, :hach41_2:hni1, :hach41_3:hni1
  21. FETCH eventlog5 INTO                   :hl1:hni1
  22. FETCH eventlog6 INTO                    :hl1:hni1
  23. COMMIT
  24. DECLARE alertfilters CURSOR WITH HOLD FOR             SELECT PRIORITY, ALERT_BP, ALERT_ID,             RESOURCE_NAME, ERROR_TYPE             FROM LANM.ALERT_FILTERS             ORDER BY PRIORITY DESC             FOR FETCH ONLY
  25. OPEN alertfilters
  26. DECLARE brgdef1n CURSOR WITH HOLD FOR             SELECT BRIDGE_NAME, BRIDGE_NO, AUTOLINK_FLAG,                    SEGMENT1, SEGMENT1_TYPE, ADDRESS1,                    SEGMENT2, SEGMENT2_TYPE, ADDRESS2,                    NOTIFICATION_INT, USER_COMMENT, INTERNAL_USE             FROM LANM.BRIDGE_DEFINITIONS             ORDER BY BRIDGE_NAME ASC             FOR FETCH ONLY
  27. OPEN brgdef1n
  28. DECLARE brgdef1s CURSOR WITH HOLD FOR             SELECT BRIDGE_NAME, BRIDGE_NO, AUTOLINK_FLAG,                    SEGMENT1, SEGMENT1_TYPE, ADDRESS1,                    SEGMENT2, SEGMENT2_TYPE, ADDRESS2,                    NOTIFICATION_INT, USER_COMMENT, INTERNAL_USE             FROM LANM.BRIDGE_DEFINITIONS             ORDER BY SEGMENT1, SEGMENT2, BRIDGE_NAME ASC             FOR FETCH ONLY
  29. OPEN brgdef1s
  30. COMMIT
  31. DECLARE brgdef2nall CURSOR WITH HOLD FOR             SELECT BRIDGE_NAME, BRIDGE_NO, AUTOLINK_FLAG,                    SEGMENT1, SEGMENT1_TYPE, ADDRESS1,                    SEGMENT2, SEGMENT2_TYPE, ADDRESS2,                    NOTIFICATION_INT, USER_COMMENT, INTERNAL_USE             FROM LANM.BRIDGE_DEFINITIONS             WHERE (AUTOLINK_FLAG = :hfch1 OR AUTOLINK_FLAG = :hfch2) AND                   (NOTIFICATION_INT BETWEEN :hach2_1 AND :hach2_2)             ORDER BY BRIDGE_NAME ASC             FOR FETCH ONLY
  32. OPEN brgdef2nall
  33. DECLARE brgdef2n CURSOR WITH HOLD FOR             SELECT BRIDGE_NAME, BRIDGE_NO, AUTOLINK_FLAG,                    SEGMENT1, SEGMENT1_TYPE, ADDRESS1,                    SEGMENT2, SEGMENT2_TYPE, ADDRESS2,                    NOTIFICATION_INT, USER_COMMENT, INTERNAL_USE             FROM LANM.BRIDGE_DEFINITIONS             WHERE (AUTOLINK_FLAG = :hfch1 OR AUTOLINK_FLAG = :hfch2) AND                   (NOTIFICATION_INT BETWEEN :hach2_1 AND :hach2_2) AND                   ((SEGMENT1 = :hach3_1) OR (SEGMENT2 = :hach3_1))             ORDER BY BRIDGE_NAME ASC             FOR FETCH ONLY
  34. OPEN brgdef2n
  35. DECLARE brgdef2sall CURSOR WITH HOLD FOR             SELECT BRIDGE_NAME, BRIDGE_NO, AUTOLINK_FLAG,                    SEGMENT1, SEGMENT1_TYPE, ADDRESS1,                    SEGMENT2, SEGMENT2_TYPE, ADDRESS2,                    NOTIFICATION_INT, USER_COMMENT, INTERNAL_USE             FROM LANM.BRIDGE_DEFINITIONS             WHERE (AUTOLINK_FLAG = :hfch1 OR AUTOLINK_FLAG = :hfch2) AND                   (NOTIFICATION_INT BETWEEN :hach2_1 AND :hach2_2)             ORDER BY SEGMENT1, SEGMENT2, BRIDGE_NAME ASC             FOR FETCH ONLY
  36. OPEN brgdef2sall
  37. DECLARE brgdef2s CURSOR WITH HOLD FOR             SELECT BRIDGE_NAME, BRIDGE_NO, AUTOLINK_FLAG,                    SEGMENT1, SEGMENT1_TYPE, ADDRESS1,                    SEGMENT2, SEGMENT2_TYPE, ADDRESS2,                    NOTIFICATION_INT, USER_COMMENT, INTERNAL_USE             FROM LANM.BRIDGE_DEFINITIONS             WHERE (AUTOLINK_FLAG = :hfch1 OR AUTOLINK_FLAG = :hfch2) AND                   (NOTIFICATION_INT BETWEEN :hach2_1 AND :hach2_2) AND                   ((SEGMENT1 = :hach3_1) OR (SEGMENT2 = :hach3_1))             ORDER BY SEGMENT1, SEGMENT2, BRIDGE_NAME ASC             FOR FETCH ONLY
  38. OPEN brgdef2s
  39. COMMIT
  40. DECLARE brgdef3n CURSOR WITH HOLD FOR             SELECT RESERVED, BRIDGE_NAME             FROM LANM.BRIDGE_DEFINITIONS             ORDER BY BRIDGE_NAME ASC             FOR FETCH ONLY
  41. OPEN brgdef3n
  42. DECLARE brgdef3s CURSOR WITH HOLD FOR             SELECT RESERVED, BRIDGE_NAME, SEGMENT1, SEGMENT2             FROM LANM.BRIDGE_DEFINITIONS             ORDER BY SEGMENT1, SEGMENT2, BRIDGE_NAME ASC             FOR FETCH ONLY
  43. OPEN brgdef3s
  44. COMMIT
  45. DECLARE brgdef4nall CURSOR WITH HOLD FOR             SELECT RESERVED, BRIDGE_NAME             FROM LANM.BRIDGE_DEFINITIONS             WHERE (AUTOLINK_FLAG = :hfch1 OR AUTOLINK_FLAG = :hfch2) AND                   (NOTIFICATION_INT BETWEEN :hach2_1 AND :hach2_2)             ORDER BY BRIDGE_NAME ASC             FOR FETCH ONLY
  46. OPEN brgdef4nall
  47. DECLARE brgdef4n CURSOR WITH HOLD FOR             SELECT RESERVED, BRIDGE_NAME             FROM LANM.BRIDGE_DEFINITIONS             WHERE (AUTOLINK_FLAG = :hfch1 OR AUTOLINK_FLAG = :hfch2) AND                   (NOTIFICATION_INT BETWEEN :hach2_1 AND :hach2_2) AND                   ((SEGMENT1 = :hach3_1) OR (SEGMENT2 = :hach3_1))             ORDER BY BRIDGE_NAME ASC             FOR FETCH ONLY
  48. OPEN brgdef4n
  49. DECLARE brgdef4sall CURSOR WITH HOLD FOR             SELECT RESERVED, BRIDGE_NAME, SEGMENT1, SEGMENT2             FROM LANM.BRIDGE_DEFINITIONS             WHERE (AUTOLINK_FLAG = :hfch1 OR AUTOLINK_FLAG = :hfch2) AND                   (NOTIFICATION_INT BETWEEN :hach2_1 AND :hach2_2)             ORDER BY SEGMENT1, SEGMENT2, BRIDGE_NAME ASC             FOR FETCH ONLY
  50. OPEN brgdef4sall
  51. DECLARE brgdef4s CURSOR WITH HOLD FOR             SELECT RESERVED, BRIDGE_NAME, SEGMENT1, SEGMENT2             FROM LANM.BRIDGE_DEFINITIONS             WHERE (AUTOLINK_FLAG = :hfch1 OR AUTOLINK_FLAG = :hfch2) AND                   (NOTIFICATION_INT BETWEEN :hach2_1 AND :hach2_2) AND                   ((SEGMENT1 = :hach3_1) OR (SEGMENT2 = :hach3_1))             ORDER BY SEGMENT1, SEGMENT2, BRIDGE_NAME ASC             FOR FETCH ONLY
  52. OPEN brgdef4s
  53. COMMIT
  54. DECLARE brgnamesl CURSOR WITH HOLD FOR             SELECT BRIDGE_NAME             FROM LANM.BRIDGE_DEFINITIONS             WHERE AUTOLINK_FLAG = :hfch1             FOR FETCH ONLY
  55. OPEN brgnamesl
  56. COMMIT
  57. DECLARE brgsegs CURSOR WITH HOLD FOR            (SELECT DISTINCT SEGMENT1             FROM LANM.BRIDGE_DEFINITIONS             UNION             SELECT DISTINCT SEGMENT2             FROM LANM.BRIDGE_DEFINITIONS)                FOR FETCH ONLY
  58. OPEN brgsegs
  59. COMMIT
  60. DECLARE causegs CURSOR WITH HOLD FOR             SELECT DISTINCT SEGMENT_NO             FROM LANM.CAU             ORDER BY SEGMENT_NO ASC             FOR FETCH ONLY
  61. OPEN causegs
  62. COMMIT
  63. DECLARE caursvd1sall   CURSOR WITH HOLD FOR             SELECT RESERVED, SEGMENT_NO, CAU_STATUS             FROM LANM.CAU             ORDER BY SEGMENT_NO ASC             FOR FETCH ONLY
  64. OPEN caursvd1sall
  65. DECLARE caursvd1s   CURSOR WITH HOLD FOR             SELECT RESERVED, SEGMENT_NO, CAU_STATUS             FROM LANM.CAU             WHERE SEGMENT_NO =:hach3_1             ORDER BY SEGMENT_NO ASC             FOR FETCH ONLY
  66. OPEN caursvd1s
  67. DECLARE caursvd1nall   CURSOR WITH HOLD FOR             SELECT RESERVED, CAU_ID, CAU_STATUS             FROM LANM.CAU             ORDER BY CAU_ID  ASC             FOR FETCH ONLY
  68. OPEN caursvd1nall
  69. DECLARE caursvd1n   CURSOR WITH HOLD FOR             SELECT RESERVED, CAU_ID, CAU_STATUS             FROM LANM.CAU             WHERE SEGMENT_NO = :hach3_1             ORDER BY CAU_ID  ASC             FOR FETCH ONLY
  70. OPEN caursvd1n
  71. COMMIT
  72. DECLARE config1s    CURSOR WITH HOLD FOR             SELECT RESERVED, FUNCTIONAL_ADDR, SEQUENCE_NO             FROM LANM.CONFIGURATION             WHERE SEGMENT_NO = :hach3_1             ORDER BY SEQUENCE_NO ASC             FOR FETCH ONLY
  73. OPEN config1s
  74. DECLARE config1sd   CURSOR WITH HOLD FOR             SELECT RESERVED, FUNCTIONAL_ADDR, SEQUENCE_NO             FROM LANM.CONFIGURATION             WHERE SEGMENT_NO = :hach3_1             ORDER BY SEQUENCE_NO DESC             FOR FETCH ONLY
  75. OPEN config1sd
  76. DECLARE config1n    CURSOR WITH HOLD FOR             SELECT C.RESERVED, C.FUNCTIONAL_ADDR, SD.ADAPT_NAME             FROM LANM.CONFIGURATION C, LANM.STATION_DEFINITION SD             WHERE SEGMENT_NO = :hach3_1 AND                   C.ADAPT_ADDR = SD.ADAPT_ADDR             ORDER BY ADAPT_NAME  ASC             FOR FETCH ONLY
  77. OPEN config1n
  78. DECLARE config1aa   CURSOR WITH HOLD FOR             SELECT RESERVED, FUNCTIONAL_ADDR, ADAPT_ADDR             FROM LANM.CONFIGURATION             WHERE ADAPT_ADDR IN           (             SELECT  ADAPT_ADDR             FROM LANM.CONFIGURATION             WHERE SEGMENT_NO = :hach3_1               EXCEPT             SELECT  ADAPT_ADDR             FROM LANM.STATION_DEFINITION           )             ORDER BY ADAPT_ADDR ASC             FOR FETCH ONLY
  79. OPEN config1aa
  80. DECLARE config1a    CURSOR WITH HOLD FOR             SELECT RESERVED, FUNCTIONAL_ADDR, ADAPT_ADDR             FROM LANM.CONFIGURATION             WHERE SEGMENT_NO = :hach3_1             ORDER BY ADAPT_ADDR  ASC             FOR FETCH ONLY
  81. OPEN config1a
  82. COMMIT
  83. DECLARE config2s    CURSOR WITH HOLD FOR             SELECT RESERVED, FUNCTIONAL_ADDR, SEQUENCE_NO             FROM LANM.CONFIGURATION             WHERE SEGMENT_NO = :hach3_1 AND                   ACTIVE_FLAG BETWEEN :hfch1 AND :hfch2             ORDER BY SEQUENCE_NO ASC             FOR FETCH ONLY
  84. OPEN config2s
  85. DECLARE config2sd   CURSOR WITH HOLD FOR             SELECT RESERVED, FUNCTIONAL_ADDR, SEQUENCE_NO             FROM LANM.CONFIGURATION             WHERE SEGMENT_NO = :hach3_1 AND                   ACTIVE_FLAG BETWEEN :hfch1 AND :hfch2             ORDER BY SEQUENCE_NO DESC             FOR FETCH ONLY
  86. OPEN config2sd
  87. DECLARE config2n    CURSOR WITH HOLD FOR             SELECT C.RESERVED, C.FUNCTIONAL_ADDR, SD.ADAPT_NAME             FROM LANM.CONFIGURATION C, LANM.STATION_DEFINITION SD             WHERE SEGMENT_NO = :hach3_1 AND                   ACTIVE_FLAG BETWEEN :hfch1 AND :hfch2 AND                   C.ADAPT_ADDR = SD.ADAPT_ADDR             ORDER BY ADAPT_NAME  ASC             FOR FETCH ONLY
  88. OPEN config2n
  89. DECLARE config2aa   CURSOR WITH HOLD FOR             SELECT RESERVED, FUNCTIONAL_ADDR, ADAPT_ADDR             FROM LANM.CONFIGURATION             WHERE ADAPT_ADDR IN           (             SELECT  ADAPT_ADDR             FROM LANM.CONFIGURATION             WHERE SEGMENT_NO = :hach3_1 AND                   ACTIVE_FLAG BETWEEN :hfch1 AND :hfch2               EXCEPT             SELECT  ADAPT_ADDR             FROM LANM.STATION_DEFINITION           )             ORDER BY ADAPT_ADDR ASC             FOR FETCH ONLY
  90. OPEN config2aa
  91. DECLARE config2a    CURSOR WITH HOLD FOR             SELECT RESERVED, FUNCTIONAL_ADDR, ADAPT_ADDR             FROM LANM.CONFIGURATION             WHERE SEGMENT_NO = :hach3_1 AND                   ACTIVE_FLAG BETWEEN :hfch1 AND :hfch2             ORDER BY ADAPT_ADDR  ASC             FOR FETCH ONLY
  92. OPEN config2a
  93. COMMIT
  94. DECLARE config3s    CURSOR WITH HOLD FOR             SELECT ADAPT_ADDR, SEQUENCE_NO             FROM LANM.CONFIGURATION             WHERE SEGMENT_NO = :hach3_1 AND                   ACTIVE_FLAG BETWEEN :hfch1 AND :hfch2             ORDER BY SEQUENCE_NO ASC             FOR FETCH ONLY
  95. OPEN config3s
  96. DECLARE config3a    CURSOR WITH HOLD FOR             SELECT ADAPT_ADDR             FROM LANM.CONFIGURATION             WHERE SEGMENT_NO = :hach3_1 AND                   ACTIVE_FLAG BETWEEN :hfch1 AND :hfch2             ORDER BY ADAPT_ADDR  ASC             FOR FETCH ONLY
  97. OPEN config3a
  98. COMMIT
  99. DECLARE config4s    CURSOR WITH HOLD FOR             SELECT  ADAPT_ADDR, UNIVERSAL_ADDR, SEGMENT_NO, SEQUENCE_NO,                     FUNCTIONAL_ADDR, GROUP_ADDR, ACTIVE_FLAG,                     PREV_ACTIVE_FLAG, ACTIVE_TIME,                     CAU_FLAG, CAU_ATTACHED_FLAG             FROM LANM.CONFIGURATION             WHERE SEGMENT_NO = :hach3_1             ORDER BY SEQUENCE_NO ASC             FOR FETCH ONLY
  100. OPEN config4s
  101. COMMIT
  102. DECLARE locdef  CURSOR WITH HOLD FOR             SELECT ADAPT_ADDR, CAU_ID, CAU_ATTACH_MODULE,                    CAU_LOBE, CAU_REPORT_FLAG             FROM  LANM.LOCATION_DEF             WHERE ADAPT_ADDR = :hach12_1             FOR FETCH ONLY
  103. OPEN locdef
  104. COMMIT
  105. DECLARE locdef2 CURSOR WITH HOLD FOR             SELECT LD.ADAPT_ADDR, CAU_LOBE, CAU_REPORT_FLAG, FOUND_FLAG,                    AUTHORIZATION_FLAG             FROM  LANM.LOCATION_DEF LD, LANM.CONFIGURATION C             WHERE CAU_ID = :hach8_1 AND                   CAU_ATTACH_MODULE = :hch1  AND                   LD.ADAPT_ADDR = C.ADAPT_ADDR AND                   SEGMENT_NO = :hach3_1 AND                   ACTIVE_FLAG = :hch2             ORDER BY CAU_LOBE ASC             FOR FETCH ONLY
  106. OPEN locdef2
  107. COMMIT
  108. DECLARE monitor CURSOR WITH HOLD FOR             SELECT ADAPT_ADDR             FROM  LANM.STATION_DEFINITION             WHERE MONITORED_FLAG = :hfch1             FOR FETCH ONLY
  109. OPEN monitor
  110. COMMIT
  111. DECLARE segment CURSOR WITH HOLD FOR                 SELECT SEGMENT_NO                 FROM LANM.CONFIGURATION                 WHERE ADAPT_ADDR = :hach12_1                 ORDER BY SEGMENT_NO ASC                 FOR FETCH ONLY
  112. OPEN segment
  113. COMMIT
  114. DECLARE stasegs  CURSOR WITH HOLD FOR                 SELECT DISTINCT SEGMENT_NO                 FROM LANM.CONFIGURATION                 ORDER BY SEGMENT_NO ASC                 FOR FETCH ONLY
  115. OPEN stasegs
  116. COMMIT
  117. 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
  118. OPEN stadef1nb
  119. 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 = :hach3_1 AND                   C.ADAPT_ADDR = SD.ADAPT_ADDR             ORDER BY ADAPT_NAME ASC             FOR FETCH ONLY
  120. OPEN stadef1n
  121. 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
  122. OPEN stadef1ab
  123. DECLARE stadef1a CURSOR WITH HOLD FOR             SELECT SD.RESERVED, SD.ADAPT_ADDR             FROM LANM.STATION_DEFINITION SD, LANM.CONFIGURATION C             WHERE SEGMENT_NO = :hach3_1 AND                   C.ADAPT_ADDR = SD.ADAPT_ADDR             ORDER BY SD.ADAPT_ADDR ASC             FOR FETCH ONLY
  124. OPEN stadef1a
  125. DECLARE stadef1bb CURSOR WITH HOLD FOR             SELECT  C.ADAPT_ADDR             FROM LANM.CONFIGURATION C, LANM.STATION_DEFINITION SD             WHERE SEGMENT_NO = :hach3_1 AND ADAPT_NAME = '   '             ORDER BY C.ADAPT_ADDR ASC             FOR FETCH ONLY
  126. OPEN stadef1bb
  127. DECLARE stadef1aa CURSOR WITH HOLD FOR             SELECT RESERVED, ADAPT_ADDR             FROM LANM.CONFIGURATION             WHERE SEGMENT_NO = :hach3_1 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
  128. OPEN stadef1aa
  129. COMMIT
  130. 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
  131. OPEN stadef2nb
  132. 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 = :hach3_1 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
  133. OPEN stadef2n
  134. 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
  135. OPEN stadef2ab
  136. DECLARE stadef2a CURSOR WITH HOLD FOR             SELECT SD.RESERVED, SD.ADAPT_ADDR             FROM LANM.STATION_DEFINITION SD, LANM.CONFIGURATION C             WHERE               SEGMENT_NO = :hach3_1 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
  137. OPEN stadef2a
  138. COMMIT
  139. DECLARE statprof CURSOR WITH HOLD FOR                SELECT  ADAPT_ADDR, UNIVERSAL_ADDR, SEGMENT_NO, SEQUENCE_NO,                        FUNCTIONAL_ADDR, GROUP_ADDR, ACTIVE_FLAG                FROM  LANM.CONFIGURATION                WHERE ADAPT_ADDR = :hach12_1             FOR FETCH ONLY
  140. OPEN statprof
  141. COMMIT
  142. FETCH alertfilters           INTO :hch1:hni1, :hch2:hni1, :hach8_1:hni1,                :hach8_2:hni1, :hch3:hni1
  143. FETCH brgdef1n          INTO :hach8_1:hni1, :hch1:hni1, :hfch1:hni1,                  :hach3_1:hni1, :hach2_1:hni1, :hach12_1:hni1,                  :hach3_2:hni1, :hach2_2:hni1, :hach12_2:hni1,                  :hach2_3:hni1, :hach40_1:hni1, :hch2:hni1
  144. FETCH brgdef1s          INTO :hach8_1:hni1, :hch1:hni1, :hfch1:hni1,                  :hach3_1:hni1, :hach2_1:hni1, :hach12_1:hni1,                  :hach3_2:hni1, :hach2_2:hni1, :hach12_2:hni1,                  :hach2_3:hni1, :hach40_1:hni1, :hch2:hni1
  145. FETCH brgdef2nall          INTO :hach8_1:hni1, :hch1:hni1, :hfch1:hni1,                  :hach3_1:hni1, :hach2_1:hni1, :hach12_1:hni1,                  :hach3_2:hni1, :hach2_2:hni1, :hach12_2:hni1,                  :hach2_3:hni1, :hach40_1:hni1, :hch2:hni1
  146. FETCH brgdef2sall          INTO :hach8_1:hni1, :hch1:hni1, :hfch1:hni1,                  :hach3_1:hni1, :hach2_1:hni1, :hach12_1:hni1,                  :hach3_2:hni1, :hach2_2:hni1, :hach12_2:hni1,                  :hach2_3:hni1, :hach40_1:hni1, :hch2:hni1
  147. FETCH brgdef2n          INTO :hach8_1:hni1, :hch1:hni1, :hfch1:hni1,                  :hach3_1:hni1, :hach2_1:hni1, :hach12_1:hni1,                  :hach3_2:hni1, :hach2_2:hni1, :hach12_2:hni1,                  :hach2_3:hni1, :hach40_1:hni1, :hch2:hni1
  148. FETCH brgdef2s          INTO :hach8_1:hni1, :hch1:hni1, :hfch1:hni1,                  :hach3_1:hni1, :hach2_1:hni1, :hach12_1:hni1,                  :hach3_2:hni1, :hach2_2:hni1, :hach12_2:hni1,                  :hach2_3:hni1, :hach40_1:hni1, :hch2:hni1
  149. FETCH brgdef3n             INTO :hl1:hni1, :hach8_1:hni1
  150. FETCH brgdef3s             INTO :hl1:hni1, :hach8_1:hni1
  151. FETCH brgdef4nall             INTO :hl1:hni1, :hach8_1:hni1
  152. FETCH brgdef4sall             INTO :hl1:hni1, :hach8_1:hni1
  153. FETCH brgdef4n             INTO :hl1:hni1, :hach8_1:hni1
  154. FETCH brgdef4s             INTO :hl1:hni1, :hach8_1:hni1
  155. FETCH brgnamesl          INTO  :hach8_1:hni1
  156. FETCH brgsegs             INTO :hach3_1:hni1
  157. FETCH causegs             INTO :hach3_1:hni1
  158. FETCH caursvd1s          INTO :hl1:hni1, :hach3_1:hni1,                                        :hs1:hni1
  159. FETCH caursvd1sall          INTO :hl1:hni1, :hach3_1:hni1,                                        :hs1:hni1
  160. FETCH caursvd1n          INTO :hl1:hni1, :hach8_1:hni1,                                        :hs1:hni1
  161. FETCH caursvd1nall          INTO :hl1:hni1, :hach8_1:hni1,                                        :hs1:hni1
  162. FETCH config1s          INTO :hl1:hni1, :hl2:hni1
  163. FETCH config1sd          INTO :hl1:hni1, :hl2:hni1
  164. FETCH config1n          INTO :hl1:hni1, :hl2:hni1
  165. FETCH config1aa          INTO :hl1:hni1, :hl2:hni1
  166. FETCH config1a          INTO :hl1:hni1, :hl2:hni1
  167. FETCH config2s          INTO :hl1:hni1, :hl2:hni1
  168. FETCH config2sd          INTO :hl1:hni1, :hl2:hni1
  169. FETCH config2n          INTO :hl1:hni1, :hl2:hni1
  170. FETCH config2aa          INTO :hl1:hni1, :hl2:hni1
  171. FETCH config2a          INTO :hl1:hni1, :hl2:hni1
  172. FETCH config3s          INTO  :hach12_1:hni1
  173. FETCH config3a          INTO :hach12_1:hni1
  174. SELECT ADAPT_NAME          INTO :hach16_1          FROM LANM.STATION_DEFINITION          WHERE ADAPT_ADDR = :hach12_1
  175. FETCH config4s          INTO  :hach12_1:hni1, :hach12_2:hni1, :hach3_1:hni1, :hs1:hni1,                :hl1:hni1, :hach8_1:hni1, :hfch1:hni1,                :hfch5:hni1, :hl2:hni1,                :hfch3:hni1, :hfch4:hni1
  176. FETCH locdef          INTO :hach12_1:hni1, :hach8_1:hni1, :hch1:hni1,               :hs1:hni1, :hch2:hni1
  177. FETCH locdef2          INTO :hach12_1:hni1, :hs1:hni1, :hch2:hni1, :hch3:hni1,          :hfch4:hni1
  178. FETCH monitor          INTO :hach12_1:hni1, :hach3_1:hni1, :hfch1:hni1
  179. FETCH segment        INTO :hach3_1:hni1
  180. FETCH stasegs        INTO :hach3_1:hni1
  181. FETCH stadef1n          INTO :hl1:hni1, :hach12_1:hni1
  182. FETCH stadef1a          INTO :hl1:hni1, :hach12_1:hni1
  183. FETCH stadef1nb          INTO :hl1:hni1, :hach12_1:hni1
  184. FETCH stadef1ab          INTO :hl1:hni1, :hach12_1:hni1
  185. FETCH stadef1aa          INTO :hl1:hni1, :hach12_1:hni1
  186. FETCH stadef1bb                                            INTO  :hach12_1:hni1
  187. FETCH stadef2n          INTO :hl1:hni1, :hach12_1:hni1
  188. FETCH stadef2a          INTO :hl1:hni1, :hach12_1:hni1
  189. FETCH stadef2nb          INTO :hl1:hni1, :hach12_1:hni1
  190. FETCH stadef2ab          INTO :hl1:hni1, :hach12_1:hni1
  191. FETCH statprof                INTO  :hach12_1:hni1, :hach12_2:hni1, :hach3_1:hni1, :hs1:hni1,                      :hl1:hni1, :hach8_1:hni1, :hfch1:hni1
  192. COMMIT
  193. SELECT ADAPT_NAME, TRACE_FLAG, MONITORED_FLAG, USER_COMMENT,                     DAYS_AUTHOR_FROM, DAYS_AUTHOR_TO,                     TIME_AUTHOR_FROM, TIME_AUTHOR_TO                INTO :hach16_1:hni1, :hfch3:hni1, :hfch4:hni1, :hach40_1:hni1,                     :hs2:hni1, :hs3:hni1,                     :hs4:hni1, :hs5:hni1                FROM  LANM.STATION_DEFINITION                WHERE ADAPT_ADDR = :hach12_1
  194. COMMIT
  195. SELECT  CAU_ID, CAU_ATTACH_MODULE, CAU_LOBE              INTO :hach8_1:hni1, :hch1:hni1, :hs6:hni1              FROM LANM.LOCATION_DEF              WHERE ADAPT_ADDR = :hach12_1
  196. CLOSE alertfilters
  197. CLOSE brgdef1n
  198. CLOSE brgdef1s
  199. CLOSE brgdef2nall
  200. CLOSE brgdef2sall
  201. CLOSE brgdef2n
  202. CLOSE brgdef2s
  203. CLOSE brgdef3n
  204. CLOSE brgdef3s
  205. CLOSE brgdef4nall
  206. CLOSE brgdef4sall
  207. CLOSE brgdef4n
  208. CLOSE brgdef4s
  209. CLOSE brgnamesl
  210. CLOSE brgsegs
  211. CLOSE causegs
  212. CLOSE causonseg
  213. CLOSE cauqualifier
  214. CLOSE caursvd1s
  215. CLOSE caursvd1n
  216. CLOSE caursvd1sall
  217. CLOSE caursvd1nall
  218. CLOSE causprevact
  219. CLOSE config1s
  220. CLOSE config1sd
  221. CLOSE config1n
  222. CLOSE config1aa
  223. CLOSE config1a
  224. CLOSE config2s
  225. CLOSE config2sd
  226. CLOSE config2n
  227. CLOSE config2aa
  228. CLOSE config2a
  229. CLOSE config3s
  230. CLOSE config3a
  231. CLOSE config4s
  232. CLOSE eventlog4rec 
  233. CLOSE eventlog5 
  234. CLOSE eventlog6 
  235. CLOSE locdef
  236. CLOSE locdef2
  237. CLOSE monitor
  238. CLOSE segment
  239. CLOSE stadef1a
  240. CLOSE stadef1n
  241. CLOSE stadef1aa
  242. CLOSE stadef1ab
  243. CLOSE stadef1bb
  244. CLOSE stadef1nb
  245. CLOSE stadef2a
  246. CLOSE stadef2n
  247. CLOSE stadef2ab
  248. CLOSE stadef2nb
  249. CLOSE stasegs
  250. CLOSE statprof
  251. COMMIT
  252. hfch1
  253. hfch2
  254. hfch3
  255. hfch4
  256. hfch5
  257. hach2_1
  258. hach2_2
  259. hach2_3
  260. hach3_1
  261. hach3_2
  262. hach3_3
  263. hach3_4
  264. hach4_1
  265. hach4_2
  266. hach8_1
  267. hach8_2
  268. hach10_1
  269. hach12_1
  270. hach12_2
  271. hach12_3
  272. hach16_1
  273. hach26_1
  274. hach32_1
  275. hach32_2
  276. hach32_3
  277. hach33_1
  278. hach40_1
  279. hach41_1
  280. hach41_2
  281. hach41_3
  282. hach80_1
  283. hfchNo
  284.