home *** CD-ROM | disk | FTP | other *** search
/ IBM Presents OS/2 Software Hits 1995 / OS-2_SW_HITS_2ND_EDITION_1995.ISO / i17 / ur423841.dsk / CSD1.DFI / DFIDBDEL.BND (.txt) < prev    next >
DB2 Bind  |  1994-03-29  |  9KB  |  98 lines
  1. DFIDBDELUBUSOdDKUSERID  0
  2. BEGIN DECLARE SECTION
  3. END DECLARE SECTION
  4. UPDATE LANM.CURRENT_EVENTS            SET DELETE_FLAG = '1'            WHERE DELETE_FLAG = '0'
  5. COMMIT
  6. UPDATE LANM.EVENT_LOG               SET DELETE_FLAG= :hfch1               WHERE RESERVED = :hl1
  7. SELECT COUNT(*) INTO :hlCurrEvents                                      FROM LANM.CURRENT_EVENTS
  8. DECLARE delevents  CURSOR WITH HOLD FOR                SELECT  RESERVED,SORT_NUM                FROM LANM.EVENT_LOG                WHERE DELETE_FLAG = :hfch1                ORDER BY SORT_NUM ASC
  9. OPEN delevents
  10. FETCH delevents into :hlReserved, :hl2
  11. DELETE FROM LANM.EVENT_LOG                                          WHERE RESERVED = :hlReserved
  12. DELETE FROM LANM.ALERT_DETAILS                       WHERE RESERVED = :hlReserved
  13. COMMIT
  14. CLOSE delevents
  15. DELETE FROM LANM.EVENT_LOG                        WHERE RESERVED = :hlReserved
  16. DELETE FROM LANM.ALERT_DETAILS                       WHERE RESERVED = :hlReserved
  17. COMMIT
  18. DELETE FROM LANM.BRIDGE_DEFINITIONS                                           WHERE BRIDGE_NAME = :hach8_1
  19. DELETE FROM LANM.BRIDGE_DEFINITIONS                WHERE RESERVED = :hl1
  20. SELECT ADAPT_ADDR, MONITORED_FLAG                INTO :hach12_1, :hch1                FROM LANM.STATION_DEFINITION                WHERE RESERVED = :hl1
  21. DELETE FROM LANM.STATION_DEFINITION                WHERE RESERVED = :hl1
  22. COMMIT
  23. SELECT COUNT(*)                INTO :hl1                FROM LANM.CONFIGURATION                WHERE ADAPT_ADDR = :hach12_1
  24. DELETE FROM LANM.LOCATION_DEF                WHERE ADAPT_ADDR = :hach12_1
  25. SELECT ADAPT_ADDR, MONITORED_FLAG                INTO :hach12_1, :hch1                FROM LANM.STATION_DEFINITION                WHERE ADAPT_NAME = :hach16_1
  26. DELETE FROM LANM.STATION_DEFINITION                WHERE ADAPT_NAME = :hach16_1
  27. COMMIT
  28. SELECT SEGMENT_NO, RING_IN_ADDR, RING_OUT_ADDR, SECONDARY_ADDR                INTO :hach3_1, :hach12_1, :hach12_2, :hach12_3                FROM LANM.CAU               WHERE CAU_ID = :hach8_1
  29. DELETE FROM LANM.CONFIGURATION               WHERE (ADAPT_ADDR = :hach12_1                  OR  ADAPT_ADDR = :hach12_2                  OR  ADAPT_ADDR = :hach12_3)                 AND  SEGMENT_NO = :hach3_1
  30. DECLARE oncaus CURSOR WITH HOLD FOR                 SELECT ADAPT_ADDR                 FROM LANM.LOCATION_DEF                 WHERE CAU_ID = :hach8_1                 FOR FETCH ONLY
  31. OPEN oncaus
  32. FETCH oncaus               INTO :hach12_1
  33. UPDATE LANM.CONFIGURATION                 SET CAU_ATTACHED_FLAG = '0'                 WHERE SEGMENT_NO = :hach3_1                 AND   ADAPT_ADDR = :hach12_1
  34. FETCH oncaus                  INTO :hach12_1
  35. CLOSE oncaus
  36. DELETE FROM LANM.CAU                                                          WHERE CAU_ID = :hach8_1
  37. DELETE FROM LANM.CAU_LOBE_LOCATION                                              WHERE CAU_ID = :hach8_1
  38. DELETE FROM LANM.ALERT_FILTERS                WHERE PRIORITY = :hch1 AND                      ALERT_ID = :hach8_1 AND                      RESOURCE_NAME = :hach8_2 AND                      ERROR_TYPE = :hch2
  39. DECLARE performbridge CURSOR WITH HOLD FOR                 SELECT DISTINCT(BRIDGE_NAME)                 FROM LANM.BRIDGE_PERFORMANCE                 FOR FETCH ONLY
  40. OPEN performbridge
  41. FETCH performbridge into :h_bridgename
  42. SELECT MAX(SEQUENCE_NO)                  INTO  :h_maxseq                  FROM LANM.BRIDGE_PERFORMANCE                  WHERE BRIDGE_NAME = :h_bridgename
  43. SELECT MAX(LONG_SECONDS)                     INTO :h_maxtime                     FROM LANM.BRIDGE_PERFORMANCE                     WHERE BRIDGE_NAME = :h_bridgename
  44. SELECT SEQUENCE_NO                     INTO :h_maxtime_seq                     FROM LANM.BRIDGE_PERFORMANCE                     WHERE BRIDGE_NAME = :h_bridgename                       AND LONG_SECONDS = :h_maxtime
  45. DELETE FROM LANM.BRIDGE_PERFORMANCE                        WHERE BRIDGE_NAME = :h_bridgename                          AND SEQUENCE_NO <= :h_num_recs
  46. COMMIT
  47. DELETE FROM LANM.BRIDGE_PERFORMANCE                           WHERE BRIDGE_NAME = :h_bridgename                             AND SEQUENCE_NO > :h_maxtime_seq
  48. COMMIT
  49. UPDATE LANM.BRIDGE_PERFORMANCE                              SET SEQUENCE_NO = :h_new_seq                            WHERE BRIDGE_NAME = :h_bridgename                              AND SEQUENCE_NO = :h_i
  50. COMMIT
  51. DELETE FROM LANM.BRIDGE_PERFORMANCE                           WHERE BRIDGE_NAME = :h_bridgename                             AND SEQUENCE_NO BETWEEN (:h_maxtime_seq + 1)                                 AND (:h_maxseq + :h_num_recs)
  52. COMMIT
  53. DECLARE reorderreports CURSOR WITH HOLD FOR                              SELECT SEQUENCE_NO, LONG_SECONDS                              FROM LANM.BRIDGE_PERFORMANCE                              ORDER BY LONG_SECONDS DESC
  54. OPEN reorderreports
  55. FETCH reorderreports INTO                           :h_i
  56. UPDATE LANM.BRIDGE_PERFORMANCE                                 SET SEQUENCE_NO = :h_new_seq                               WHERE BRIDGE_NAME = :h_bridgename                                 AND SEQUENCE_NO = :h_i
  57. COMMIT
  58. FETCH reorderreports INTO :h_i
  59. CLOSE reorderreports
  60. FETCH performbridge into :h_bridgename
  61. CLOSE performbridge
  62. COMMIT
  63. DELETE FROM LANM.CAU_QUALIFIERS              WHERE SEGMENT = :hach3_1
  64. DECLARE agedout CURSOR WITH HOLD FOR              SELECT ADAPT_ADDR,                     SEGMENT_NO                                                               FROM LANM.CONFIGURATION              WHERE :hl1 - ACTIVE_TIME > :hl2
  65. OPEN agedout
  66. FETCH agedout                INTO :hach12_1,                     :hach3_1
  67. DELETE FROM LANM.PCNET_ATTACH_DATA                  WHERE ADAPT_ADDR = :hach12_1                    AND SEGMENT_NO = :hach3_1
  68. DELETE FROM LANM.TR_ATTACH_DATA                  WHERE ADAPT_ADDR = :hach12_1                    AND SEGMENT_NO = :hach3_1
  69. DELETE FROM LANM.PC_INFO                  WHERE ADAPT_ADDR = :hach12_1                    AND SEGMENT_NO = :hach3_1
  70. DELETE FROM LANM.CONFIGURATION                   WHERE CURRENT OF AGEDOUT
  71. DELETE FROM LANM.LOCATION_DEF                WHERE ADAPT_ADDR = :hach12_1                  AND NOT EXISTS                     (SELECT * FROM LANM.STATION_DEFINITION SD                       WHERE SD.ADAPT_ADDR = :hach12_1)
  72. COMMIT
  73. CLOSE agedout
  74. DELETE FROM LANM.PCNET_ATTACH_DATA                WHERE ADAPT_ADDR = :hach12_1                  AND SEGMENT_NO = :hach3_1
  75. DELETE FROM LANM.TR_ATTACH_DATA                WHERE ADAPT_ADDR = :hach12_1                  AND SEGMENT_NO = :hach3_1
  76. DELETE FROM LANM.PC_INFO                WHERE ADAPT_ADDR = :hach12_1                  AND SEGMENT_NO = :hach3_1
  77. DELETE FROM LANM.CONFIGURATION                WHERE ADAPT_ADDR = :hach12_1                  AND SEGMENT_NO = :hach3_1
  78. DELETE FROM LANM.LOCATION_DEF              WHERE ADAPT_ADDR = :hach12_1                AND NOT EXISTS                   (SELECT * FROM LANM.STATION_DEFINITION SD                     WHERE SD.ADAPT_ADDR = :hach12_1)
  79. DELETE FROM LANM.EVENT_FILTERS           WHERE RESERVED = :hl1
  80. COMMIT
  81. hach3_1
  82. hach8_1
  83. hach8_2
  84. hach10_1
  85. hach12_1
  86. hach12_2
  87. hach12_3
  88. hach16_1
  89. hfch1
  90. hlCurrEvents
  91. hlReserved
  92. h_bridgename
  93. h_maxseq
  94. h_maxtime
  95. h_maxtime_seq
  96. h_num_recs
  97. h_new_seq
  98.