home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / 10ageout.zip / DFIDBDEL.BND (.txt) < prev    next >
DB2 Bind  |  1993-08-19  |  7KB  |  76 lines
  1. DFIDBDELZBdDKTIJUSERID  0
  2. BEGIN DECLARE SECTION
  3. END DECLARE SECTION
  4. UPDATE LANM.CURRENT_EVENTS               SET DELETE_FLAG= :hfch1               WHERE RESERVED >= :hl1
  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                INTO :hach12_1                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. DELETE FROM LANM.CAU                                                     WHERE CAU_ID = :hach8_1
  26. DELETE FROM LANM.CAU_LOBE_LOCATION                                       WHERE CAU_ID = :hach8_1
  27. DELETE FROM LANM.CAU                WHERE RESERVED = :hl1
  28. DELETE FROM LANM.ALERT_FILTERS                WHERE PRIORITY = :hch1 AND                      ALERT_ID = :hach8_1 AND                      RESOURCE_NAME = :hach8_2 AND                      ERROR_TYPE = :hch2
  29. DECLARE performbridge CURSOR WITH HOLD FOR                 SELECT DISTINCT(BRIDGE_NAME)                 FROM LANM.BRIDGE_PERFORMANCE                 FOR FETCH ONLY
  30. OPEN performbridge
  31. FETCH performbridge into :h_bridgename
  32. SELECT MAX(SEQUENCE_NO)                  INTO  :h_maxseq                  FROM LANM.BRIDGE_PERFORMANCE                  WHERE BRIDGE_NAME = :h_bridgename
  33. SELECT MAX(LONG_SECONDS)                     INTO :h_maxtime                     FROM LANM.BRIDGE_PERFORMANCE                     WHERE BRIDGE_NAME = :h_bridgename
  34. SELECT SEQUENCE_NO                     INTO :h_maxtime_seq                     FROM LANM.BRIDGE_PERFORMANCE                     WHERE BRIDGE_NAME = :h_bridgename                       AND LONG_SECONDS = :h_maxtime
  35. DELETE FROM LANM.BRIDGE_PERFORMANCE                        WHERE BRIDGE_NAME = :h_bridgename                          AND SEQUENCE_NO <= :h_num_recs
  36. DELETE FROM LANM.BRIDGE_PERFORMANCE                           WHERE BRIDGE_NAME = :h_bridgename                             AND SEQUENCE_NO > :h_maxtime_seq
  37. UPDATE LANM.BRIDGE_PERFORMANCE                              SET SEQUENCE_NO = :h_new_seq                            WHERE BRIDGE_NAME = :h_bridgename                              AND SEQUENCE_NO = :h_i
  38. DELETE FROM LANM.BRIDGE_PERFORMANCE                           WHERE BRIDGE_NAME = :h_bridgename                             AND SEQUENCE_NO BETWEEN (:h_maxtime_seq + 1)                                 AND (:h_maxseq + :h_num_recs)
  39. DECLARE reorderreports CURSOR WITH HOLD FOR                              SELECT SEQUENCE_NO, LONG_SECONDS                              FROM LANM.BRIDGE_PERFORMANCE                              ORDER BY LONG_SECONDS DESC
  40. OPEN reorderreports
  41. FETCH reorderreports INTO                           :h_i
  42. UPDATE LANM.BRIDGE_PERFORMANCE                                 SET SEQUENCE_NO = :h_new_seq                               WHERE BRIDGE_NAME = :h_bridgename                                 AND SEQUENCE_NO = :h_i
  43. FETCH reorderreports INTO :h_i
  44. CLOSE reorderreports
  45. FETCH performbridge into :h_bridgename
  46. CLOSE performbridge
  47. DELETE FROM LANM.CAU_QUALIFIERS                                                  WHERE SEGMENT = :hach3_1
  48. DECLARE agedout CURSOR WITH HOLD FOR              SELECT ADAPT_ADDR              FROM LANM.CONFIGURATION              WHERE :hl1 - ACTIVE_TIME > :hl2
  49. OPEN agedout
  50. FETCH agedout                INTO :hach12_1
  51. DELETE FROM LANM.CONFIGURATION                   WHERE CURRENT OF AGEDOUT
  52. COMMIT
  53. SELECT TRACE_FLAG INTO :hch1:hni1                   FROM LANM.STATION_DEFINITION                   WHERE ADAPT_ADDR = :hach12_1
  54. DELETE FROM LANM.LOCATION_DEF                      WHERE ADAPT_ADDR = :hach12_1
  55. COMMIT
  56. CLOSE agedout
  57. DELETE FROM LANM.CONFIGURATION                WHERE SEGMENT_NO = :hach3_1                 AND ADAPT_ADDR = :hach12_1
  58. COMMIT
  59. SELECT TRACE_FLAG INTO :hch1                   FROM LANM.STATION_DEFINITION                   WHERE ADAPT_ADDR = :hach12_1
  60. DELETE FROM LANM.LOCATION_DEF                   WHERE ADAPT_ADDR = :hach12_1
  61. COMMIT
  62. hach3_1
  63. hach8_1
  64. hach8_2
  65. hach10_1
  66. hach12_1
  67. hfch1
  68. hlCurrEvents
  69. hlReserved
  70. h_bridgename
  71. h_maxseq
  72. h_maxtime
  73. h_maxtime_seq
  74. h_num_recs
  75. h_new_seq
  76.