|
View previous topic :: View next topic
|
| Author |
Message |
vvmanyam
New User
Joined: 16 Apr 2008
Posts: 86
Location: Bangalore
|
|
|
|
Hi friends
I have a small requirement. I need to Extract all data sets and thier Dispositions from all the JCLs present in a PDS.
So I have succesfully achieved in this way:
1. Trapped all members using LISTDS.
2. Extract each member data in to a compound variable.
3. Perform a loop for the entire array and do the required processing seperately for each member.
But What I wanted know is Can we perform the ISREDIT commands on each of this member with out viewing the member.
Ex:
| Code: |
ADDRESS ISREDIT "F DSN="
ADDRESS ISREDIT "F DISP="
|
If this is possible I can simplify my process with out actually loping each and every line of the member.
Regards,
Balu |
|
| Back to top |
|
 |
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
| vvmanyam wrote: |
| But What I wanted know is Can we perform the ISREDIT commands on each of this member with out viewing the member. |
Yes. As long as your macro uses an END statement so that you don't have to type it in manually for each member. |
|
| Back to top |
|
|
vvmanyam
New User
Joined: 16 Apr 2008
Posts: 86
Location: Bangalore
|
|
|
|
I haven't got what exactly you meant by
| Quote: |
As long as your macro uses an END statement
|
I think I have confused you, in tyring to explain the basic requirement.
I am sorry for that.
My exact requirement:
PDS which as JCLs : 'TEST.JCLS'
No of members in it: 5000 jcls
Requirement : Extract Dataset names and their dispositions in each member.
I have trappaed the members with LISTDS in to an array (MEM.)
then extracted each memeber in to a compound variable INARR
PGMNAM- TEST.JCLS(MEM.i)
| Code: |
"ALLOC DA('"PGMNAM"') F(INFILE) SHR REUSE"
"EXECIO * DISKR INFILE (STEM INARR. FINIS"
|
Then performed loop for array INARR from 1 to INARR.0
and got the required details. The full procedure is looped for all the members of the pds.
What I wanted to know was with out extracting the entire member data in to array INARR. Can we perform 'F DSN=' and 'f DISP=' tso commands for each members.
If possible please let me know how exactly we can achieve it.
Thanks,
Balu |
|
| Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005
Posts: 2358
Location: Israel
|
|
|
|
"F" (FIND) is not a TSO command - it is an ISPF Edit command, that's why superk was assuming you are using Edit Macro to "extract" the members.
With your method (EXECIO - which actually belongs to TSO, not ISPF), you can't use the FIND command.
O. |
|
| Back to top |
|
|
vvmanyam
New User
Joined: 16 Apr 2008
Posts: 86
Location: Bangalore
|
|
|
|
Thanks ofer71
I got confused, Now I Got it!!
Regards,
Balu |
|
| Back to top |
|
|
|
|
