× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. February 2002

Re: Timing loop

Or even...

 *
 * Sleep (pause program execution)
 *
D Sleep           Pr            10U 0 ExtProc('sleep')
D                               10U 0 Value

C                   callp     Sleep(5)


On 27 Feb 2002 at 12:56, bvining@vnet.ibm.com wrote:

> 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
>

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.