OS/2 Shareware BBS: 8 Other/08-Other.zip/10ageout.zip/DFIDBGET.BND

DB2 Bind | 1993-08-19 | 20KB | 108 lines

DFIDBGET8AkBKTIJUSERID  0
BEGIN DECLARE SECTION
END DECLARE SECTION
SELECT CARD INTO :hl1                                               FROM SYSIBM.SYSTABLES             WHERE NAME = 'EVENT_LOG'
SELECT RESERVED1 INTO :hl1                FROM LANM.SYSTEM_PARAMETERS
SELECT RESERVED2 INTO :hl1                FROM LANM.SYSTEM_PARAMETERS
SELECT RESERVED3 INTO :hl1                FROM LANM.SYSTEM_PARAMETERS
SELECT RESERVED4 INTO :hl1                FROM LANM.SYSTEM_PARAMETERS
SELECT                PERFORM_DATE, PERFORM_TIME, INTERVAL_SECONDS,                SEGMENT1, SEGMENT2, BRIDGE_NUM,                BC_FRAMES_FORWARD1, BC_BYTES_FORWARD1, NBC_FRAME_FORWARD1,                NBC_BYTES_FORWARD1, FRAMES_DISC_SEG1, FRAMES_NR_CONGEST1,                FRAMES_DISC_LINK1, BYTES_DISC_LINK1, FRAMES_DISC_OTHER1,                FRAMES_NR_FILTER1,                BC_FRAMES_FORWARD2, BC_BYTES_FORWARD2, NBC_FRAME_FORWARD2,                NBC_BYTES_FORWARD2, FRAMES_DISC_SEG2, FRAMES_NR_CONGEST2,                FRAMES_DISC_LINK2, BYTES_DISC_LINK2, FRAMES_DISC_OTHER2,                FRAMES_NR_FILTER2, SEQUENCE_NO, LONG_SECONDS              INTO                :hach10_1, :hach8_2, :hl13:hni1,                :hach3_1:hni1, :hach3_2:hni1, :hch1:hni1,                :hl1:hni1, :hd1:hni1, :hl2:hni1,                :hd2:hni1, :hl3:hni1, :hl4:hni1,                :hl5:hni1, :hd3:hni1, :hl6:hni1,                :hl14:hni1,                :hl7:hni1, :hd4:hni1,                :hl8:hni1, :hd5:hni1, :hl9:hni1, :hl10:hni1,                :hl11:hni1, :hd6:hni1, :hl12:hni1,                :hl15:hni1, :hs1:hni1, :hl16         FROM LANM.BRIDGE_PERFORMANCE                                                                         WHERE LONG_SECONDS =         (SELECT MAX(LONG_SECONDS) FROM LANM.BRIDGE_PERFORMANCE         WHERE BRIDGE_NAME = :hach8_1) AND BRIDGE_NAME = :hach8_1
SELECT EVENT_LOG_LIMIT INTO :hs1                                    FROM LANM.SYSTEM_PARAMETERS
SELECT BDG_PERFORM_LIMIT INTO :hl1                                     FROM LANM.SYSTEM_PARAMETERS
SELECT BRIDGE_NO, AUTOLINK_FLAG,                         SEGMENT1, SEGMENT1_TYPE, ADDRESS1,                         SEGMENT2, SEGMENT2_TYPE, ADDRESS2,                         NOTIFICATION_INT, USER_COMMENT, INTERNAL_USE                  INTO :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                  FROM LANM.BRIDGE_DEFINITIONS                  WHERE BRIDGE_NAME = :hach8_1
SELECT BRIDGE_NAME, BRIDGE_NO, AUTOLINK_FLAG,                         SEGMENT1, SEGMENT1_TYPE, ADDRESS1,                         SEGMENT2, SEGMENT2_TYPE, ADDRESS2,                         NOTIFICATION_INT, USER_COMMENT, INTERNAL_USE                  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                  FROM LANM.BRIDGE_DEFINITIONS                  WHERE RESERVED = :hl1
SELECT BRIDGE_NAME                  INTO :hach8_1                  FROM LANM.BRIDGE_DEFINITIONS                  WHERE RESERVED = :hl1
SELECT BRIDGE_NAME INTO :hach8_1                                       FROM LANM.BRIDGE_DEFINITIONS                  WHERE ADDRESS1 = :hach12_1
SELECT BRIDGE_NAME INTO :hach8_1                                          FROM LANM.BRIDGE_DEFINITIONS                     WHERE ADDRESS2 = :hach12_1
SELECT RESERVED                  INTO :hl1                  FROM LANM.BRIDGE_DEFINITIONS                  WHERE BRIDGE_NAME = :hach8_1
SELECT EVENT_TIME, EVENT_DATE, MESSAGE_NO, HOST_FLAG,                         SEGMENT_NO, ADAPT_ADDR1, VARIABLE_DATA1,                         ADAPT_ADDR2, VARIABLE_DATA2, VARIABLE_DATA3                  INTO :hach8_1:hni1, :hach10_1:hni1, :hach3_1:hni1, :hfch1:hni1,                       :hach3_2:hni1, :hach12_1:hni1, :hach41_1:hni1,                       :hach12_2:hni1, :hach41_2:hni1, :hach41_3:hni1                  FROM LANM.EVENT_LOG                  WHERE RESERVED = :hl1
SELECT SEGMENT_NO, EXPECTED_RESPONSES                INTO :hach3_1:hni1, :hs1:hni1                FROM LANM.CAU                WHERE CAU_ID = :hach8_1
SELECT CAU_PASSWORD                INTO :hach8_2:hni1                FROM LANM.CAU                WHERE CAU_ID = :hach8_1
SELECT CAU_ID, REGISTRATION_FLAG                               INTO :hach8_1:hni1,                       :hfch1:hni1                FROM LANM.CAU                WHERE RESERVED = :hl1
SELECT RESERVED                INTO :hl1                FROM LANM.CAU                WHERE CAU_ID   = :hach8_1
SELECT CAU_STATUS                INTO :hs1:hni1                FROM LANM.CAU                WHERE CAU_ID = :hach8_1
SELECT SEGMENT_NO                INTO :hach3_1:hni1                FROM LANM.CAU                WHERE CAU_ID = :hach8_1
SELECT CAU_ATTACH_MODULE, CAU_LOBE, CAU_REPORT_FLAG                INTO :hch1:hni1, :hs1:hni1, :hfch1:hni1                FROM LANM.LOCATION_DEF                WHERE CAU_ID = :hach8_1                AND   ADAPT_ADDR = :hach12_1
SELECT BUILDING, ROOM_NUMBER                INTO :hach8_2:hni1, :hach8_3:hni1                FROM LANM.CAU_LOBE_LOCATION                WHERE CAU_ID = :hach8_1 AND                      CAU_ATTACH_MODULE = :hch1  AND                      CAU_LOBE = :hs1
SELECT CAU_ID, COMM_ADDR                INTO :hach8_1:hni1, :hach12_3:hni1                FROM LANM.CAU                WHERE RING_IN_ADDR = :hach12_1                OR RING_OUT_ADDR = :hach12_1                OR SECONDARY_ADDR = :hach12_1
SELECT RING_OUT_ADDR, COMM_ADDR, SEGMENT_NO                INTO :hach12_1:hni1, :hach12_2:hni1, :hach3_1:hni1                FROM LANM.CAU                WHERE CAU_ID = :hach8_1
SELECT CAU_FLAG, CAU_ATTACHED_FLAG                  INTO :hfch2:hni1, :hfch3:hni1                  FROM LANM.CONFIGURATION                  WHERE SEQUENCE_NO = :hl1                  AND SEGMENT_NO = :hach3_1                  AND ACTIVE_FLAG = :hfch1
SELECT REGISTRATION_FLAG, RESPONSE_FLAG                  INTO :hfch1:hni1, :hfch2:hni1                  FROM LANM.CAU                  WHERE CAU_ID = :hach8_1
SELECT RING_IN_ADDR, RING_OUT_ADDR, SECONDARY_ADDR,                         COMM_ADDR, SEGMENT_NO, CAU_STATUS, MODULE1_STATUS,                         MODULE2_STATUS, MODULE3_STATUS, MODULE4_STATUS,                         BACKUP_PATH_STATUS, DIAG_ERROR_CODE, MICROCODE_LEVEL,                         REGISTRATION_FLAG                  INTO :hach12_1:hni1, :hach12_2:hni1, :hach12_3:hni1,                       :hach12_4:hni1, :hach3_1:hni1, :hs1:hni1, :hch1:hni1,                       :hch2:hni1,:hch3:hni1,:hch4:hni1,:hch5:hni1,:hach2_1:hni1,                       :hach32_1:hni1,                       :hfch1:hni1                  FROM LANM.CAU                  WHERE CAU_ID = :hach8_1
SELECT CAU_ID, CAU_STATUS, SEGMENT_NO, REGISTRATION_FLAG                  INTO :hach8_1:hni1, :hs1:hni1, :hach3_1:hni1, :hfch1:hni1                  FROM LANM.CAU                  WHERE RESERVED = :hl1
SELECT ROOM_NUMBER                  INTO :hach8_2:hni1                  FROM LANM.CAU                  WHERE CAU_ID = :hach8_1
SELECT CAU_ATTACHED_FLAG                  INTO :hfch1:hni1                  FROM LANM.CONFIGURATION                  WHERE ADAPT_ADDR = :hach12_1                    AND SEGMENT_NO = :hach3_1
SELECT CAU_ID                   INTO :hach8_1:hni1                   FROM LANM.LOCATION_DEF                   WHERE ADAPT_ADDR = :hach12_1
SELECT RESERVED                  INTO :hl1                  FROM LANM.STATION_DEFINITION                  WHERE ADAPT_ADDR = :hach12_1
SELECT ADAPT_NAME, ADAPT_ADDR, MONITORED_FLAG, TRACE_FLAG                  INTO :hach16_1,:hach12_1:hni1, :hfch1:hni1,                       :hfch2:hni1                  FROM LANM.STATION_DEFINITION                  WHERE ADAPT_ADDR = :hach12_1
SELECT ADAPT_NAME, ADAPT_ADDR, MONITORED_FLAG, TRACE_FLAG                  INTO :hach16_1,:hach12_1:hni1, :hfch1:hni1,                       :hfch2:hni1                  FROM LANM.STATION_DEFINITION                  WHERE RESERVED = :hl1
SELECT ADAPT_ADDR                  INTO   :hach12_1:hni1                  FROM LANM.CONFIGURATION                  WHERE RESERVED = :hl1
SELECT CAU_ID, CAU_ATTACH_MODULE, CAU_LOBE                     INTO :hach8_1:hni1, :hch1:hni1, :hs5:hni1                     FROM LANM.LOCATION_DEF                     WHERE ADAPT_ADDR = :hach12_1
SELECT RESERVED                  INTO :hl1                  FROM LANM.CONFIGURATION                  WHERE ADAPT_ADDR = :hach12_1                  AND SEGMENT_NO = :hach3_1
SELECT ADAPT_ADDR, USER_COMMENT,                         MONITORED_FLAG, TRACE_FLAG,                         DAYS_AUTHOR_FROM,                         DAYS_AUTHOR_TO, TIME_AUTHOR_FROM, TIME_AUTHOR_TO                  INTO :hach12_1:hni1, :hach40_1:hni1, :hfch1:hni1, :hfch2:hni1,                       :hs3:hni1, :hs4:hni1, :hs1:hni1, :hs2:hni1                  FROM LANM.STATION_DEFINITION                  WHERE ADAPT_NAME = :hach16_1
SELECT CAU_ID, CAU_ATTACH_MODULE, CAU_LOBE                     INTO :hach8_1:hni1, :hch1:hni1, :hs5:hni1                     FROM LANM.LOCATION_DEF                     WHERE ADAPT_ADDR = :hach12_1
SELECT ADAPT_ADDR, USER_COMMENT,                         ADAPT_NAME,                         MONITORED_FLAG, TRACE_FLAG,                         DAYS_AUTHOR_FROM, DAYS_AUTHOR_TO,                         TIME_AUTHOR_FROM, TIME_AUTHOR_TO                  INTO :hach12_1:hni1, :hach40_1:hni1,                       :hach16_1:hni1,                       :hfch1:hni1, :hfch2:hni1,                       :hs3:hni1, :hs4:hni1,                       :hs1:hni1, :hs2:hni1                  FROM LANM.STATION_DEFINITION                  WHERE RESERVED = :hl1
SELECT CAU_ID, CAU_ATTACH_MODULE, CAU_LOBE                     INTO :hach8_1:hni1, :hch1:hni1, :hs5:hni1                     FROM LANM.LOCATION_DEF                     WHERE ADAPT_ADDR = :hach12_1
SELECT DAYS_AUTHOR_FROM, DAYS_AUTHOR_TO,                         TIME_AUTHOR_FROM, TIME_AUTHOR_TO                  INTO :hs3:hni1, :hs4:hni1, :hs1:hni1, :hs2:hni1                  FROM LANM.STATION_DEFINITION                  WHERE ADAPT_ADDR = :hach12_1
SELECT AUTHORIZATION_FLAG                   INTO :hfch1:hni1                   FROM LANM.CONFIGURATION                  WHERE ADAPT_ADDR = :hach12_1 AND SEGMENT_NO = :hach3_1
SELECT FUNCTIONAL_ADDR,                                                   GROUP_ADDR, SEQUENCE_NO,                       ACTIVE_FLAG                                             INTO  :hl1:hni1, :hach8_1:hni1, :hs1:hni1,                      :hfch1:hni1                FROM  LANM.CONFIGURATION                WHERE ADAPT_ADDR = :hach12_1                AND SEGMENT_NO = :hach3_1
DECLARE nauns CURSOR WITH HOLD FOR                 SELECT ADAPT_ADDR, SEQUENCE_NO                 FROM LANM.CONFIGURATION                 WHERE SEGMENT_NO = :hach3_1 AND                     ACTIVE_FLAG = :hfch1   AND                     SEQUENCE_NO > :hl1                 ORDER BY SEQUENCE_NO ASC                 FOR FETCH ONLY
OPEN nauns
FETCH nauns                   INTO :hach12_1:hni1, :hl2:hni1
CLOSE nauns
SELECT  ACTIVE_FLAG, FUNCTIONAL_ADDR, ADAPT_ADDR                INTO  :hfch1:hni1, :hl2:hni1, :hach12_1:hni1                FROM  LANM.CONFIGURATION                WHERE RESERVED = :hl1
SELECT  ADAPT_NAME                 INTO  :hach16_1:hni1                 FROM  LANM.STATION_DEFINITION                 WHERE ADAPT_ADDR = :hach12_1
SELECT  CAU_FLAG, CAU_ATTACHED_FLAG,                        AUTHORIZATION_FLAG, SEQUENCE_NO                INTO  :hfch1:hni1, :hfch2:hni1, :hfch3:hni1, :hs1:hni1                FROM  LANM.CONFIGURATION                WHERE ADAPT_ADDR = :hach12_1                  AND SEGMENT_NO = :hach3_1
SELECT  SEQUENCE_NO, ACTIVE_FLAG                INTO  :hs1:hni1, :hfch1:hni1                FROM  LANM.CONFIGURATION                WHERE ADAPT_ADDR = :hach12_1                AND SEGMENT_NO = :hach3_1
SELECT  SEQUENCE_NO, ACTIVE_FLAG, AUTHORIZATION_FLAG                INTO  :hs1:hni1, :hfch1:hni1, :hfch2:hni1                FROM  LANM.CONFIGURATION                WHERE ADAPT_ADDR = :hach12_1                AND SEGMENT_NO = :hach3_1
SELECT  AUTHORIZATION_FLAG                INTO   :hfch1:hni1                FROM  LANM.CONFIGURATION                WHERE ADAPT_ADDR = :hach12_1                AND SEGMENT_NO = :hach3_1
SELECT CAUSE_TEXT                INTO :hach170_1                FROM LANM.ALERT_CAUSES_TEXT                WHERE CAUSE_CODE = :hach4_1                AND   CAUSE_TYPE = :hch1
SELECT ALERT_DETAILS1, ALERT_DETAILS2                INTO :hach254_1:hni1, :hach254_2:hni1                FROM LANM.ALERT_DETAILS                WHERE RESERVED = :hl1
SELECT LABEL_TEXT                INTO :hach32_1                FROM LANM.FUNCTIONAL_ADDR                WHERE LABEL_CODE = :hl1
SELECT ADAPT_NO, DLC_LINK_STATION, AUTO_BDG_LINK,                       AUTO_LINK_TIME_INT, HOST_CONNECTION,                       TRACING_AUTH, ADAPT_MONITORING, ADAPTS_MONITORED,                       NUM_MONITOR_RETRY,                       REM_RESP_TIMEOUT,                       BEACON_AUTO_RETRY, RETRY_INTERVAL, NUM_RETRIES,                       REPORT_LINK_NO, REPORT_LINK_PW, SERVICE_PT_NAME,                       LAN_NAME, EVENT_LOG_LIMIT, BDG_PERFORM_LIMIT,                       RESYNC_INTERVAL,                       AGE_OUT, NAUN_CHANGES_FLAG, NAUN_CHANGES_SEG,                       ALERT_FILTER_DLL, ALERT_PGM_MODULE,                                       ALERT_PGM_STATUS, USER_COMMENT,                       ACCESS_CONT_FLAG, UNAUTHORIZED_ADAPT, UNAUTHORIZED_TIME,                       UNAUTHORIZED_MOVE, UNAUTHORIZED_BRG, ADAPTER_REMOVAL,                       CAU_PASSWORD                INTO :hch1:hni1, :hs1:hni1, :hch2:hni1, :hs12:hni1,                     :hch3:hni1, :hch4:hni1,                     :hch5:hni1, :hs2:hni1, :hs3:hni1, :hs5:hni1,                     :hch6:hni1, :hs6:hni1, :hs7:hni1,                     :hch7:hni1, :hach8_1:hni1, :hach8_2:hni1, :hach8_3:hni1,                     :hs8:hni1, :hl3:hni1, :hl1:hni1, :hl2:hni1,                     :hch8:hni1, :hach3_1:hni1,  :hach8_5:hni1,                                   :hach32_1:hni1, :hch10:hni1, :hach40_1:hni1,                     :hch11:hni1,:hch12:hni1,:hch13:hni1,:hch14:hni1,:hch15:hni1,                     :hch16:hni1,:hach8_6:hni1                FROM LANM.SYSTEM_PARAMETERS
SELECT UNIVERSAL_ADDR                INTO :hach12_2                FROM LANM.CONFIGURATION                WHERE ADAPT_ADDR = :hach12_1                AND SEGMENT_NO = :hach3_1
COMMIT
hch10
hch11
hch12
hch13
hch14
hch15
hch16
hfch1
hfch2
hfch3
hach2_1
hach2_2
hach2_3
hach3_1
hach3_2
hach3_3
hach3_4
hach4_1
hach8_1
hach8_2
hach8_3
hach8_4
hach8_5
hach8_6
hach10_1
hach12_1
hach12_2
hach12_3
hach12_4
hach16_1
hach20_1
hach25_1
hach32_1
hach33_1
hach36_1
hach40_1
hach41_1
hach41_2
hach41_3
hach80_1
hach170_1
hach254_1
hach254_2