Use IEBCOPY with the rename option: //SYSIN DD * COPY INDD=((SYSUT1,R)),OUTDD=SYSUT2 S MEMBER=((INIT,NEWNAME1)) COPY INDD=((SYSUT1,R)),OUTDD=SYSUT2 S MEMBER=((INIT,NEWNAME2))
Keep repeating the COPY and S MEMBER statements until you have replaced every member that you desire too. You have to repeat the COPY statement as IEBCOPY does not let you have duplicate members in a Select statements. Michael On Wed, May 4, 2022 at 10:13 AM [email protected] <[email protected]> wrote: > . > I should be able to accomplish this, but I seem to be having a brain > freeze. > . > I have about 30 Members in a PDS that contain different values (CLEAR, > GET, START, RESUME, etc.) > At times I want to replace the contents of all 30 Members with the value > of INIT. > . > Essentially I want to copy the CONTENT of a specific Member into the 30 > other members - replacing the contents of those members. > IEBCOPY copies/replaces the member. > I want to replace the value in each member with the same contents of INIT. > . > Any thoughts on what IBM utility can accomplish this ? > . > Will ADRDSSU provide that capbility ? > . > Sample JCL would be helpful - > . > Paul > . > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > -- Michael Brennan ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
