Copy a member from one PDS to other and then do changes

vpr_118 · New User Joined: 07 Apr 2008 Posts: 64 Location: chennai

Hi,

Can we dynamically copy a member in a pds to other pds. Then open the copied member and do changes it.

Final result must be the changed member in front of the programmer.

Can we copy one line at a time from source to destination.

I do not want to submit a job using rexx macro.

dick scherrer · Posted: Fri Jan 23, 2009 9:28 am

Hello,

Is there some reason to copy one line at a time?

Simply copy the member from the "current" pds to the target pds. Then, edit the "new" member making whatever changes you want to make.

vpr_118 · New User Joined: 07 Apr 2008 Posts: 64 Location: chennai

Thank you for the suggection.
Yes this i a good way out.

But is it possible to copy a member to pds with the same name.
Then open the new member and edit the same?

gcicchet · Posted: Fri Jan 23, 2009 9:53 am

Hi,

there is a difference when one does not know how to do it, but when one does know , why not try it?

Gerry

dick scherrer · Posted: Fri Jan 23, 2009 10:09 am

Hello,

vpr_118 · New User Joined: 07 Apr 2008 Posts: 64 Location: chennai

Hi,

Please find the code below.

address isredit
"c all D04BP D04BT"
address isredit
"c all 'AAAA' 'BBBB'"
"RES"
"SAVE"
"CUT"
"CANCEL"
" "

DO
OUTPDS=STRIP("'"||OUT_PDS||"'")
JOB=("'"||OUT_PDS||"("||JNAME||")"||"'")
ADDRESS ISPEXEC
"ISPEXEC EDIT DATASET("JOB")"
ADDRESS ISREDIT
"PASTE"
"SAVE"
END

It says 'paste' is invalid commad.

Can any one tell what is the command to paste the cut line.

expat · Posted: Wed Jan 28, 2009 12:44 pm

Mmmmmm, methinks you are doing this the wrong way around. It looks as though you are doing the changes before the copy, and you issue the SAVE command which saves the changes in the original member which you then try to copy.

To do the copy, take a look at LM services which are detailed in the ISPF services manual.

Another way is the copy command, when you open the new member you can do something like

"ISREDIT COPY 'Dataset name(member)' AFTER "0

Pedro · Posted: Wed Jan 28, 2009 10:17 pm

Your EDIT command should include an initial macro. Do your changes from the initial macro.