On Thu, 25 Feb 2021 09:02:38 -0500, Joseph Reichman wrote:
>I am running all of this from Rex building JCL searching files there are a
>huge number of files so I break them up into different jobs
>
>What I am going to try is do
>Checkrc:
>Address TSO “LISTBC”
>
>If rc == 0 then go
> Address tso “submit *”
> Else
> Sleep(10)
> Goto checkrc
>End
>
>Have to check the Rexx syntax but this will tell me I hope if the first job
>finished
>
Rexx has no GOTO. Do not mistake SIGNAL for GOTO; it leads to perdition.
I'll suggest instead (untested):
signal on NOVALUE
do CheckRC = 1
Address TSO “LISTBC”
If rc == 0 then Address tso “submit *”
Else address SYSCALL sleep 10
End CheckRC
Have to check the Rexx syntax
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
