how to globally change pds members prefix names

atanwc · New User Joined: 26 Jul 2006 Posts: 24

hi! I need some help!

I want to create a job (JCL) to copy 100 PDS members into a temp PDS daily and then rename the prefix of the 100 members in the temp PDS.

For Example:
PDS 1
PDS.AAAA.member(XXmem1, XXmem2......XXmem100)

Copy to

PDS 2
PDS.BBB.member(YYmem1, YYmem2....YYmem100)

I know I can use IEBCOPY to copy 100 members from PDS.AAA.member to PDS.BBB.member. But how to globally change all prefix from XX to YY for all 100 members? So it will be XXmem1 to YYmem1...and so on.

Please help!

Aaru · Posted: Fri Jul 06, 2007 8:37 am

You can do this using REXX.

-Read all the members of the PDS in a stem variable
-Read one member at a time and copy it to a diff PDS with a new member name
- Keep repeating this till the last member

atanwc · New User Joined: 26 Jul 2006 Posts: 24

Thanks! Is there anyway can use sort, copy or JCL utilities? Because I do not see any REXX in our shop.

Thanks!

Aaru · Posted: Fri Jul 06, 2007 9:33 am

There are several ways to do the renames. U can either use
IEHPROGM, IDCAMS or IKJEFT01 in batch.

continuation X shd be in the 72nd column

//RENAME JOB...
//STEP1 EXEC PGM=IEHPROGM
//SYSPRINT DD SYSOUT=*
//DD1 DD UNIT=SYSDA,VOL=SER=USER01,DISP=SHR
//SYSIN DD *
RENAME DSNAME=ABC.DEF.GHI, X
VOL=SYSDA=USER01, X
MEMBER=MEMBER,NEWNAME=NEW
/*

skkp2006 · Posted: Fri Jul 06, 2007 11:01 am

i tried this with the below control statement .... but its giving error that
"REQUIRED VOLUME COULD NOT BE MOUNTED ... UNUSUAL END"

Aaru · Posted: Fri Jul 06, 2007 11:22 am

my last post was to rename a member in a PDS. but i guess u have tried renaming the whole PDS and that might be the problem.

One more thing u have given the wrong volume serial no. Just do a 3.4 and get the volume serial no and then use it in the JCL.

superk · Posted: Fri Jul 06, 2007 6:40 pm

Here's another possible option:

atanwc · New User Joined: 26 Jul 2006 Posts: 24

Thanks! I will try this next week