Kevin
Active User
Joined: 25 Aug 2005
Posts: 234
|
|
|
|
I think that the basic method proposed by Dariusz is realistic and should work. YOU will need to figure out the best way to accomplish it.
As an alternative, you could use the IEBPTPCH program to convert the PDS to a sequential dataset, use the SORT program to modify the member names and convert the data into an IEBUPDTE format, and finally use the IEBUPDTE program the create a new PDS with the new member names:
| Code: |
//STEP0002 EXEC PGM=IEBPTPCH
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=&SYSUID..MY.PDS
//SYSUT2 DD DSN=&&X1,DISP=(,PASS),UNIT=VIO
//SYSIN DD *
PUNCH TYPORG=PO
/*
//*
//STEP0003 EXEC PGM=SORT
//SORTIN DD DSN=&&X1,DISP=(OLD,PASS)
//SORTOUT DD DSN=&SYSUID..MY.PDS.SEQ,
// DISP=(,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(TRK,(1,1),RLSE),RECFM=FB
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=(2,11,CH,EQ,C'MEMBER NAME',AND,
(15,4,CH,EQ,C'ABCD',OR,15,4,CH,EQ,C'LKJH')),
BUILD=(1,14,15:C'XYZA',19,4))
OUTREC IFTHEN=(WHEN=(2,11,CH,EQ,C'MEMBER NAME'),
BUILD=(1:C'./',10:C'ADD MEMBER=',15,8)),
IFTHEN=(WHEN=(2,11,CH,NE,C'MEMBER NAME'),
BUILD=(1:2,80))
/*
//*
//
|
|
|
