samuelmvs
New User
Joined: 23 Nov 2006 Posts: 2 Location: USA
|
|
|
|
Basically, I want to search every member in a PDS. All of these members are PROCs. Within each member I want to identify DD statements that catalog((only datasets with a DISP=(NEW,CATLG...) or DISP=(,CATLG...)) a dataset with a specified length. When that criteria is met I want to write a record to an output file. I want the output record to include, the member name, the STEP name, the DD name, the data set name, and the length. Also, I want to identify the SYSIN member when an EXEC statement executes a utility(SORT,IDCAMS,ECT). I want this job to work with any piece of JCL. This is how I see the output:
Code: |
MCAACD81 STEP001 ABC123 FILEA ABC.PROD.DATA.SET1 1234
MCAACD81 STEP001 ABC123 FILEB ABC.PROD.DATA.SET2 3456
MCAACD81 STEP001 ABC123 FILEC ABC.PROD.DATA.SET3 4567
MCAACD81 STEP002 UTILITY SORTOUT1 ABC.PROD.DATA.SET4 1234
MCAACD81 STEP002 UTILITY SORTOUT2 ACB.PROD.DATA.SET5 3456
MCAACD81 STEP002 UTILITY SORTOUT3 ABC.PROD.DATA.SET6 4567
MCAACD81 STEP002 UTILITY SYSIN ABC.SYSIN(SORT07)
|
I am new to REXX. Does anyone have a REXX script/program that has some of logic I'm looking for? |
|