Timing loop using the MI WAITTIME instruction.

One 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

[report a broken link by clicking here]