View previous topic :: View next topic
|
Author |
Message |
dwijadas
New User
Joined: 20 Sep 2005 Posts: 17
|
|
|
|
Code: |
/* REXX */
PARSE ARG SECONDS
SAY "SECONDS WAITING :" SECONDS
SAY "CURRENT TIME :" TIME()
IF SECONDS = "" THEN SECONDS = 5
SECONDS = ABS(SECONDS)
SECONDS = TRUNC(SECONDS,0)
"CALL *(AOPBATCH) 'SLEEP "SECONDS"'"
SAY "RELEASE TIME :" TIME()
EXIT 0
|
When I execute this REXX from TSO using
it works fine. but when I want to execute in batch under
EXEC PGM=IKJEFT01
it gives error
Code: |
AOP003E SLEEP: EDC5129I No such file or directory., errno2=53b006c |
Any idea ?
Thanks,
Sena |
|
Back to top |
|
|
Stefan
Active User
Joined: 12 Jan 2006 Posts: 110 Location: Germany
|
|
|
|
I don't know what function you are calling but I assume that you want to wait for a specific period of time in your REXX program (for whatever strange reason).
I prefer this approach to wait for 1 second:
Code: |
call syscalls 'ON'
address syscall 'SLEEP 1' |
That is easy to understand and does not rely on any additional software than pure REXX.
By the way: In my opinion a request for a WAIT is in nearly every case a strong indication of poor (or at least inappropriate) design. Please rethink your approach. |
|
Back to top |
|
|
Akatsukami
Global Moderator
Joined: 03 Oct 2009 Posts: 1788 Location: Bloomington, IL
|
|
|
|
Note that the error message is coming from the AOPBATCH program, not the Rexx interpreter. The program is probably attempting to use OMVS inappropriately. |
|
Back to top |
|
|
|