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 / AVGUTIL.BND (.txt) next >
DB2 Bind  |  1993-02-08  |  2KB  |  26 lines
  1. AVGUTIL iAkoOICJUSERID  0
  2. BEGIN DECLARE SECTION
  3. END DECLARE SECTION
  4. WHENEVER SQLERROR GOTO ERROR
  5. WHENEVER NOT FOUND GOTO ERROR
  6. DECLARE gettime CURSOR WITH HOLD FOR            SELECT TIME_LOGGED, 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 ASC               FOR FETCH ONLY
  7. OPEN gettime
  8. FETCH gettime              INTO :BeginTime, :Start
  9. CLOSE gettime
  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. SELECT DATE_LOGGED, TIME_LOGGED              INTO   :EndDate, :EndTime              FROM LANM.RING_PERFORMANCE              WHERE SEGMENT_NUMBER = :segment                AND SECONDS_TIMESTAMP = :Finish
  16. SELECT DATE_LOGGED, TIME_LOGGED              INTO   :BeginDate, :BeginTime              FROM LANM.RING_PERFORMANCE              WHERE SEGMENT_NUMBER = :segment                AND SECONDS_TIMESTAMP = :Start
  17. SELECT AVG(UTILIZATION)                INTO :average                FROM LANM.RING_PERFORMANCE               WHERE SEGMENT_NUMBER = :segment                 AND SECONDS_TIMESTAMP             BETWEEN :Start                 AND :Finish
  18. BeginTime
  19. BeginDate
  20. EndTime
  21. EndDate
  22. average
  23. segment
  24. Start
  25. Finish
  26.