Not very pretty....
//COPSTEP EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=my.pds(MEMBERNAME)
// DD *
Some kind of junk
More junk
//SYSUDUMP DD SYSOUT=*
//SYSUT2 DD DISP=(SHR),DSN= my.pds(MEMBERNAME)
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of
Adam Johanson
Sent: Monday, February 14, 2011 12:04 PM
To: [email protected]
Subject: Adding Lines to End of Member
I've got to change about 1,000 members of a PDS containing JCL by adding
2 lines to the end of each member.
I thought there might be a way to do this with IEBUPDTE, but he requires
sequence numbers, which a lot of the members don't have. And it also looks like
you can't just tell him something like, "sequence number = last".
Is there any way to do this with another utility? I'd like to do this with
standard MVS utilities, but if it winds up that we need to use a REXX program
to do it, then we can go that route.
Thanks.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
[email protected] with the message: GET IBM-MAIN INFO Search the archives at
http://bama.ua.edu/archives/ibm-main.html
This e-mail may contain confidential or privileged information. If
you think you have received this e-mail in error, please advise the
sender by reply e-mail and then delete this e-mail immediately.
Thank you. Aetna
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
