superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
Use the Elapsed Time function TIME(E). Read more about it here.
Of course, there's always the Unix SLEEP command, if you would prefer to call it instead. Here's one such example.
Here's a few of my own:
Code: |
/* REXX WAIT */
Parse Arg secs .
If Datatype(secs) <> 'NUM' Then secs = 60
rc = Time(R)
Do Forever
n = Time(E)
If n >= secs Then Leave
End
Exit 0
|
Code: |
/* REXX */
Say "Enter Number of Seconds"
Parse Pull seconds
If seconds = "" Then seconds = 5
seconds = Abs(seconds)
seconds = Trunc(seconds,0)
"ALLOC DD(stdout) DA(*) REU"
"ALLOC DD(stderr) DA(*) REU"
"ALLOC DD(stdin) DUMMY REU"
"CALL *(AOPBATCH) 'sleep "seconds"'"
Exit 0
|
|
|