REXX query

[kbkanade]

Hi Experts,
I need some help for REXX on below topics. Can i get some high level logic for below on how we can do this.
1. By giving “DB2 Tables”as an input, REXX should show all Cobol programs using that DB2 table.
2. By giving JCL name as input, REXX should show all the programs executed by that JCL.

[prino]

You should find another job.

[kbkanade]

Thanks but I am new to REXX just learning from last month.

[expat]

Click HERE to see if this helps you find what you need.

Once you know what to do, then you can try and code it in REXX

[Pedro]

I recommend using the SRCHFOR utility of ISPF to search for text in a PDS. It will write a file that shows which members refer to the text.

You need to figure out how to build and submit the job from rexx.

[willy jensen]

Something of a mouthfull for a newbie.
I dont know much about DB2 tables, so I will comment on item 2 " By giving JCL name as input, REXX should show all the programs executed by that JCL"
Reading a JCL, if stored in a PDS, is trivial. The traditional method is using TSO commands ALLOCATE and FREE, and REXX command EXECIO.
Alternatively you can use the TSO PRINT command as follows:

Code: Select all

zz=outtrap('lst.')                                
 "print indataset('datasetname') char"  
 zz=outtrap('off')                                  
 do n=2 to lst.0 by 2                              
   say lst.n                                      
 end

Then it is up you you to scan the result and extract the program names. Hint, lookup REXX commands POS and SUBSTR. Though of course some of the steps in the JCL could be procedures.