|
View previous topic :: View next topic
|
| Author |
Message |
Soumick Sarkar
New User
.jpg)
Joined: 28 Oct 2013
Posts: 15
Location: India
|
|
|
|
I am trying to change a word, for ex. "REXX" to "HI" in multiple members of a PDS using REXX. But when ever I execute my code it simply opens the member in EDIT mode and does nothing. Then I press F3 and it simply opens the next member without doing anything..
Please find the code below -
/* REXX */
SAY "ENTER THE DSN NAME.. ONLY"
PULL DSN
SAY DSN
X = OUTTRAP('SS.')
"LISTDS '"DSN"' MEMBERS"
X = OUTTRAP('OFF')
DO I = 7 TO SS.0
PARSE VAR SS.I MEM
MEM=STRIP(MEM)
SAY "MEMBER NAME IS:" MEM
ADDRESS ISPEXEC "EDIT DATASET('"DSN"("MEM")')"
ADDRESS ISREDIT
"CHANGE REXX HI ALL"
"SAVE"
"MEND"
END |
|
| Back to top |
|
 |
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
| Back to top |
|
|
Soumick Sarkar
New User
Joined: 28 Oct 2013
Posts: 15
Location: India
|
|
|
|
Thanks a lot for the link but can you please tell what is wrong with my code, as I think that would be more helpful as I am quite new to REXX  |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
what You see is the consequence of Your coding
| Code: |
| ADDRESS ISPEXEC "EDIT DATASET('"DSN"("MEM")')" |
if You want things done automatically You need to provide also an edit macro
see also here for a simpler snippet
www.ibmmainframes.com/viewtopic.php?t=25947&highlight=apply
on how to apply a macro to all the member of a pds
the previous snippet was about changing tokens without You writing any additional code
this last snippet is just an harness ...
You will have to write the inner edit macro for Your process
if You are new to REXX probably You are not up for the task
if Your shop has fileAID or FileMANAGER it would be much simpler to use them
search the forum for examples |
|
| Back to top |
|
|
Soumick Sarkar
New User
Joined: 28 Oct 2013
Posts: 15
Location: India
|
|
|
|
| Thanks for pointing out that I have to use macro. Its working now |
|
| Back to top |
|
|
|
|
