home *** CD-ROM | disk | FTP | other *** search
/ IBM Presents OS/2 Software Hits 1995 / OS-2_SW_HITS_2ND_EDITION_1995.ISO / i17 / ur423843.dsk / CSD3.DFI / DELRECS.BND (.txt) < prev    next >
DB2 Bind  |  1993-02-03  |  881b  |  17 lines
  1. DELRECS SA7rPDCJUSERID  0
  2. BEGIN DECLARE SECTION
  3. END DECLARE SECTION
  4. WHENEVER SQLERROR GOTO ERROR
  5. WHENEVER NOT FOUND GOTO ERROR
  6. SELECT MAX(SECONDS_TIMESTAMP)                INTO :interval_seconds                FROM LANM.RING_PERFORMANCE               WHERE SEGMENT_NUMBER = :segment                 AND DATE_LOGGED  <= :EndDate
  7. DELETE FROM LANM.RING_PERFORMANCE               WHERE SEGMENT_NUMBER = :segment                 AND SECONDS_TIMESTAMP <= :interval_seconds
  8. COMMIT
  9. EndDate
  10. Log_Time
  11. Log_Date
  12. interval_seconds
  13. utilization
  14. segment
  15. Start
  16. Finish
  17.