Timing loop

And yet another approach would be to use the MI WAITTIME instruction.

     H DFTACTGRP(*NO)
     DWait             pr                  extproc('_WAITTIME')
     D                               16
     DTemplate         ds
     D Interval                      20u 0
     D Options                        8    inz(*loval)
     DOneSecond        s             20u 0 inz(4096000000)
     C     *entry        plist
     C                   parm                    NbrSecs          15 5
     C                   eval      Interval = NbrSecs * OneSecond
     C                   callp     Wait(Template)
     C                   move      '1'           *inlr
     C                   return

Supplying a value of 5 for NbrSecs would give you a 5 second delay.

Bruce

>
>What's the best way to implement a timing loop in RPG without creating
>another CFINT that would eat up the system?  i.e. I would like to wait 5
>seconds and retry something, but I don't want to be testing the time every
>.000001 microseconds (or however fast a loop would execute) to see if 5
>seconds has passed or not.
>