Delaying job for one, or more, seconds - (RPG prototype to the sleep function)

     H BndDir('QC2LE')

     D Sleep           Pr            10I 0 ExtProc('sleep')
     D  Seconds                      10U 0 Value

      * Sleep for 30 seconds
     C                   CallP     Sleep(0030)

Leif Guldbrand

[report a broken link by clicking here]