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 / LSTUTIL.BND (.txt) < prev    next >
DB2 Bind  |  1993-02-15  |  2KB  |  30 lines
  1. LSTUTIL GApqJPCJUSERID  0
  2. BEGIN DECLARE SECTION
  3. END DECLARE SECTION
  4. WHENEVER SQLERROR GOTO ERROR
  5. WHENEVER NOT FOUND GOTO ERROR
  6. DECLARE firstrec CURSOR WITH HOLD FOR               SELECT SECONDS_TIMESTAMP                 FROM   LANM.RING_PERFORMANCE                WHERE SEGMENT_NUMBER = :segment                  AND ((DATE_LOGGED  = :BeginDate AND TIME_LOGGED >= :BeginTime)                    OR (DATE_LOGGED  > :BeginDate))               ORDER BY SECONDS_TIMESTAMP               FOR FETCH ONLY
  7. OPEN firstrec
  8. FETCH firstrec               INTO :Start
  9. CLOSE firstrec
  10. DECLARE lastrec CURSOR WITH HOLD FOR               SELECT SECONDS_TIMESTAMP                 FROM LANM.RING_PERFORMANCE                WHERE SEGMENT_NUMBER = :segment                  AND ((DATE_LOGGED  = :EndDate AND TIME_LOGGED <= :EndTime)                    OR (DATE_LOGGED  < :EndDate))               ORDER BY SECONDS_TIMESTAMP DESC               FOR FETCH ONLY
  11. OPEN lastrec
  12. FETCH lastrec               INTO :Finish
  13. CLOSE lastrec
  14. SELECT MAX(SECONDS_TIMESTAMP)                 INTO :Finish                 FROM LANM.RING_PERFORMANCE                WHERE SEGMENT_NUMBER = :segment
  15. DECLARE somerec CURSOR WITH HOLD FOR            SELECT DATE_LOGGED, TIME_LOGGED,                   INTERVAL_SECONDS, UTILIZATION,                   SECONDS_TIMESTAMP              FROM LANM.RING_PERFORMANCE             WHERE SEGMENT_NUMBER = :segment               AND SECONDS_TIMESTAMP           BETWEEN :Start               AND :Finish             ORDER BY SECONDS_TIMESTAMP               FOR FETCH ONLY
  16. OPEN somerec
  17. FETCH somerec               INTO :Log_Date,                    :Log_Time,                    :interval_seconds,                    :utilization
  18. CLOSE somerec
  19. BeginTime
  20. BeginDate
  21. EndTime
  22. EndDate
  23. Log_Time
  24. Log_Date
  25. interval_seconds
  26. utilization
  27. segment
  28. Start
  29. Finish
  30.