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 / MAXUTIL.BND (.txt) < prev    next >
DB2 Bind  |  1993-02-08  |  2KB  |  30 lines
  1. MAXUTIL fBCrOICJUSERID  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                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 MAX(UTILIZATION)               INTO :maximum               FROM LANM.RING_PERFORMANCE              WHERE SEGMENT_NUMBER = :segment                AND SECONDS_TIMESTAMP            BETWEEN :Start                AND :Finish
  16. DECLARE maxtime CURSOR WITH HOLD FOR             SELECT DATE_LOGGED, TIME_LOGGED, SECONDS_TIMESTAMP               FROM LANM.RING_PERFORMANCE              WHERE SEGMENT_NUMBER = :segment                AND SECONDS_TIMESTAMP            BETWEEN :Start                AND :Finish             ORDER BY SECONDS_TIMESTAMP DESC             FOR FETCH ONLY
  17. OPEN maxtime
  18. FETCH maxtime             INTO :MaxDate, :MaxTime
  19. CLOSE maxtime
  20. BeginTime
  21. BeginDate
  22. EndTime
  23. EndDate
  24. MaxTime
  25. MaxDate
  26. maximum
  27. segment
  28. Start
  29. Finish
  30.