Thank you so much 


> On Feb 25, 2021, at 9:34 AM, Paul Gilmartin 
> <[email protected]> wrote:
> 
> 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

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to