> On Thursday, August 3, 2023 at 12:21:34 PM PDT, David Spiegel  wrote:
> My intention is to read a Job and make sure that all datasets are available, 
> but, the dsnames contain SET variables.


The converter / interpreter will resolve variables. Submit the job with typerun 
scan or hold should generate the information you want.

If you're not comfortable with control blocks, IPCS and dumps, then you can use 
SDSF to extract the converted JCL albeit a little funky to process.

I can't remember which control blocks you need to run. If you are more skilled, 
you could take a dump during the first step and search the storage for the job 
card. I would expect a CB eyecatcher which you should be able to find in the 
z/OS control blocks manual. From there, you find the pointers in the header. 
Keep chasing CB chains until you find one that is usable. Since you want to use 
REXX, then find the chain that either originates from PSAAOLD (your ascb) or 
PSATOLD (your TCB). 

Add a step to the JCL that runs your REXX and have it abend if a dataset is 
missing otherwise let it run the job. Realize that IF statements may cause you 
problems. You will also want to ignore datasets that are allocated in the job.



    On Thursday, August 3, 2023 at 12:21:34 PM PDT, David Spiegel 
<[email protected]> wrote:  
 
 Hi Gil,
My intention is to read a Job and make sure that all datasets are available, 
but, the dsnames contain SET variables.

Regards,
David

Sent from my Bell Samsung device over Canada’s largest network.
________________________________
From: IBM Mainframe Discussion List <[email protected]> on behalf of 
Paul Gilmartin <[email protected]>
Sent: Thursday, August 3, 2023 1:58:20 PM
To: [email protected] <[email protected]>
Subject: Re: Accessing JCL SETs in Rexx

On Thu, 3 Aug 2023 17:11:08 +0000, David Spiegel wrote:
>
>Does anyone know how to access the JCL SET variables from Rexx.
>
What are your constraints?  I could envision invoking your REXX with
BPXWUNIX or BPXBATCH and passing your symbols in
    //STDPARM  DD  *,SYMBOLS=JCLONLY
        ...

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

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

Reply via email to