home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / 10ageout.zip / DFIDBADD.BND (.txt) next >
DB2 Bind  |  1993-08-19  |  12KB  |  77 lines
  1. DFIDBADDyA1CKTIJUSERID  0
  2. BEGIN DECLARE SECTION
  3. END DECLARE SECTION
  4. UPDATE LANM.EVENT_LOG SET           EVENT_TIME = :hach8_1,           EVENT_DATE = :hach10_1,           MESSAGE_NO = :hach3_1,           HOST_FLAG  = :hfch1,           SEGMENT_NO = :hach3_2,           ADAPT_ADDR1 = :hach12_1,           VARIABLE_DATA1 = :hach41_1,           ADAPT_ADDR2 = :hach12_2,           VARIABLE_DATA2 = :hach41_2,           VARIABLE_DATA3 = :hach41_3,           DELETE_FLAG = :hfch2,           SORT_NUM = :hl2                                                    WHERE RESERVED = :hl1
  5. UPDATE LANM.EVENT_LOG SET                EVENT_TIME = :hach8_1,                EVENT_DATE = :hach10_1,                MESSAGE_NO = :hach3_1,                HOST_FLAG  = :hfch1,                SEGMENT_NO = :hach3_2,                ADAPT_ADDR1 = :hach12_1,                VARIABLE_DATA1 = :hach41_1,                ADAPT_ADDR2 = :hach12_2,                VARIABLE_DATA2 = :hach41_2,                VARIABLE_DATA3 = :hach41_3,                DELETE_FLAG = :hfch2,                SORT_NUM = :hl2                                                         WHERE RESERVED = :hl1
  6. UPDATE LANM.EVENT_LOG SET                DELETE_FLAG = :hfch2                WHERE RESERVED = :hl1
  7. UPDATE LANM.EVENT_LOG SET                   EVENT_TIME = :hach8_1,                   EVENT_DATE = :hach10_1,                   MESSAGE_NO = :hach3_1,                   HOST_FLAG  = :hfch1,                   SEGMENT_NO = :hach3_2,                   ADAPT_ADDR1 = :hach12_1,                   VARIABLE_DATA1 = :hach41_1,                   ADAPT_ADDR2 = :hach12_2,                   VARIABLE_DATA2 = :hach41_2,                   VARIABLE_DATA3 = :hach41_3,                   DELETE_FLAG = :hfch2,                   SORT_NUM = :hl2                                                            WHERE RESERVED = :hl1
  8. SELECT MAX(RESERVED) INTO :hlMaxRsvd:hni FROM LANM.EVENT_LOG 
  9. INSERT INTO LANM.EVENT_LOG (RESERVED, DELETE_FLAG)                      VALUES (:hlRsvd, :hfch1)
  10. INSERT INTO LANM.ALERT_DETAILS (RESERVED)                         VALUES (:hlRsvd)
  11. COMMIT
  12. PREPARE S1 FROM :hachInsertStr
  13. EXECUTE S1 USING DESCRIPTOR :sqlptr 
  14. INSERT INTO LANM.CONFIGURATION       ( ADAPT_ADDR, UNIVERSAL_ADDR, SEGMENT_NO, SEQUENCE_NO,         FUNCTIONAL_ADDR, GROUP_ADDR,         ACTIVE_FLAG, PREV_ACTIVE_FLAG,         AUTHORIZATION_FLAG, ACTIVE_TIMESTAMP, ACTIVE_TIME,         CAU_FLAG, CAU_ATTACHED_FLAG, RESERVED)       VALUES       ( :hach12_1, :hach12_2, :hach3_1, :hs1, :hl1,         :hach8_1, :hfch1, :hfch5,         :hfch6, CURRENT TIMESTAMP, :hl3,         :hfch3, :hfch4, :hl2)
  15. INSERT INTO LANM.LOCATION_DEF           ( ADAPT_ADDR, CAU_ID, CAU_ATTACH_MODULE, CAU_LOBE, CAU_REPORT_FLAG,             FOUND_FLAG)       VALUES           ( :hach12_1, :hach8_1, :hch1, :hs1, :hfch1, :hfch2)
  16. INSERT INTO LANM.BRIDGE_DEFINITIONS            (BRIDGE_NAME, BRIDGE_NO, AUTOLINK_FLAG,            SEGMENT1, SEGMENT1_TYPE, ADDRESS1,            SEGMENT2, SEGMENT2_TYPE, ADDRESS2,            NOTIFICATION_INT, USER_COMMENT, INTERNAL_USE, RESERVED)            VALUES ( :hach8_1, :hch1, :hfch1,                     :hach3_1, :hach2_1, :hach12_1,                     :hach3_2, :hach2_2, :hach12_2,                     :hach2_3, :hach40_1, :hch2, :hl1 )
  17. INSERT INTO LANM.STATION_DEFINITION              (ADAPT_ADDR, ADAPT_NAME, USER_COMMENT,               MONITORED_FLAG, TRACE_FLAG,               DAYS_AUTHOR_FROM, DAYS_AUTHOR_TO,               TIME_AUTHOR_FROM, TIME_AUTHOR_TO, RESERVED)       VALUES (:hach12_1, :hach16_1, :hach40_1, :hfch1, :hfch2,               :hs3, :hs4, :hs1, :hs2, :hl1)
  18. SELECT ADAPT_NAME          INTO :hach16_2          FROM LANM.STATION_DEFINITION          WHERE ADAPT_NAME = :hach16_1
  19. SELECT ADAPT_ADDR          INTO :hach12_2          FROM LANM.STATION_DEFINITION          WHERE ADAPT_ADDR = :hach12_1
  20. COMMIT
  21. UPDATE LANM.LOCATION_DEF              SET CAU_ID = :hach8_1,                  CAU_ATTACH_MODULE = :hch1,                  CAU_LOBE = :hs5,                  CAU_REPORT_FLAG = :hfch1              WHERE ADAPT_ADDR = :hach12_1
  22. INSERT INTO LANM.LOCATION_DEF              ( ADAPT_ADDR, CAU_ID,                CAU_ATTACH_MODULE, CAU_LOBE, CAU_REPORT_FLAG, FOUND_FLAG)           VALUES (:hach12_1, :hach8_1, :hch1, :hs5, :hfch1, :hfch2)
  23. COMMIT
  24. UPDATE LANM.CONFIGURATION              SET AUTHORIZATION_FLAG = :hfch1              WHERE ADAPT_ADDR = :hach12_1
  25. INSERT INTO LANM.CAU       ( CAU_ID, COMM_ADDR, SEGMENT_NO, CAU_PASSWORD, RESERVED,         MODULE1_STATUS, MODULE2_STATUS, MODULE3_STATUS, MODULE4_STATUS,         CAU_STATUS, BACKUP_PATH_STATUS, DIAG_ERROR_CODE, EXPECTED_RESPONSES,         RESPONSE_FLAG)       VALUES       ( :hach8_1, :hach12_1, :hach3_1, :hach8_2, :hl1,         :hch1, :hch2, :hch3, :hch4,         :hs1, :hch5, :hach2_1, :hs2 , :hfch3)
  26. INSERT INTO LANM.CAU_LOBE_LOCATION       ( CAU_ID, CAU_ATTACH_MODULE, CAU_LOBE, BUILDING, ROOM_NUMBER)       VALUES       ( :hach8_1, :hch1, :hs1, :hach8_2, :hach8_3)
  27. INSERT INTO LANM.CAU       ( CAU_ID, ROOM_NUMBER, RESERVED, SEGMENT_NO,         MODULE1_STATUS, MODULE2_STATUS, MODULE3_STATUS, MODULE4_STATUS,         CAU_STATUS, BACKUP_PATH_STATUS, DIAG_ERROR_CODE, EXPECTED_RESPONSES,         RESPONSE_FLAG)       VALUES       ( :hach8_1, :hach8_2, :hl1, :hach3_1,         :hch1, :hch2, :hch3, :hch4,         :hs1, :hch5, :hach2_1, :hs2, :hfch3)
  28. INSERT INTO LANM.CAU       ( CAU_ID, SEGMENT_NO, RESERVED,         MODULE1_STATUS, MODULE2_STATUS, MODULE3_STATUS, MODULE4_STATUS,         CAU_STATUS, BACKUP_PATH_STATUS, DIAG_ERROR_CODE,         REGISTRATION_FLAG, PREV_ACTIVE_FLAG, EXPECTED_RESPONSES,         RESPONSE_FLAG)       VALUES       ( :hach8_1, :hach3_1, :hl1,         :hch1, :hch2, :hch3, :hch4,         :hs1, :hch5, :hach2_1,         :hfch1, :hfch2, :hs2, :hfch3)
  29. INSERT INTO LANM.CAU_QUALIFIERS ( SEGMENT ) VALUES ( :hach3_1 )
  30. UPDATE LANM.BRIDGE_PERFORMANCE            SET         PERFORM_TIME = :htime,                                         PERFORM_DATE = :hdate,                                         INTERVAL_SECONDS  = :hl13,         SEGMENT1          = :hach3_1,         SEGMENT2          = :hach3_2,         BRIDGE_NUM        = :hch1,         BC_FRAMES_FORWARD1= :hl1,         BC_BYTES_FORWARD1 = :hd1,         NBC_FRAME_FORWARD1= :hl2,         NBC_BYTES_FORWARD1= :hd2,         FRAMES_DISC_SEG1  = :hl3,         FRAMES_NR_CONGEST1= :hl4,         FRAMES_DISC_LINK1 = :hl5,         BYTES_DISC_LINK1  = :hd3,         FRAMES_DISC_OTHER1= :hl6,         FRAMES_NR_FILTER1 = :hl14,         BC_FRAMES_FORWARD2= :hl7,         BC_BYTES_FORWARD2 = :hd4,         NBC_FRAME_FORWARD2= :hl8,         NBC_BYTES_FORWARD2= :hd5,         FRAMES_DISC_SEG2  = :hl9,         FRAMES_NR_CONGEST2= :hl10,         FRAMES_DISC_LINK2 = :hl11,         BYTES_DISC_LINK2  = :hd6,         FRAMES_DISC_OTHER2= :hl12,         FRAMES_NR_FILTER2 = :hl15,         LONG_SECONDS      = :hl16        WHERE BRIDGE_NAME = :hach8_1 AND              SEQUENCE_NO = :hs1
  31. INSERT INTO LANM.BRIDGE_PERFORMANCE           (BRIDGE_NAME, PERFORM_TIME, PERFORM_DATE, 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, LONG_SECONDS, SEQUENCE_NO)         VALUES         (:hach8_1, CURRENT TIME, CURRENT DATE, :hl13,          :hach3_1, :hach3_2, :hch1,          :hl1, :hd1, :hl2,          :hd2, :hl3, :hl4,          :hl5, :hd3, :hl6,          :hl14,          :hl7, :hd4, :hl8,          :hd5, :hl9, :hl10,          :hl11, :hd6, :hl12,          :hl15, :hl16,          :hs1)
  32. INSERT INTO LANM.ALERT_FILTERS           ( PRIORITY, ALERT_BP, ALERT_ID, RESOURCE_NAME, ERROR_TYPE )       VALUES           ( :hch1, :hch2, :hach8_1, :hach8_2, :hch3 )
  33. COMMIT
  34. hfch1
  35. hfch2
  36. hfch3
  37. hfch4
  38. hfch5
  39. hfch6
  40. hach2_1
  41. hach2_2
  42. hach2_3
  43. hach3_1
  44. hach3_2
  45. hach3_3
  46. hach3_4
  47. hach4_1
  48. hach4_2
  49. hach8_1
  50. hach8_2
  51. hach8_3
  52. hach10_1
  53. hach12_1
  54. hach12_2
  55. hach12_3
  56. hach16_1
  57. hach16_2
  58. hach18_1
  59. hach26_1
  60. hach32_1
  61. hach32_2
  62. hach32_3
  63. hach33_1
  64. hach36_1
  65. hach40_1
  66. hach41_1
  67. hach41_2
  68. hach41_3
  69. hach80_1
  70. hach254_1
  71. hach254_2
  72. hlMaxRsvd
  73. hlRsvd
  74. hachInsertStr
  75. htime
  76. hdate
  77.