View previous topic :: View next topic
|
Author |
Message |
stly Warnings : 1 New User
Joined: 25 Jul 2005 Posts: 93
|
|
|
|
I have 4 PDs.Ecah contains around 100 members.I need the to change the member names ie)i need to change SYS to LVL.How it can be done thru file Aid .
In clear...
SYSJCL1-------LVLJCL1
SYSJRT-----LVLJRT |
|
Back to top |
|
|
cpuhawg
Active User
Joined: 14 Jun 2006 Posts: 331 Location: Jacksonville, FL
|
|
|
|
You can do it in FILEAID using the following:
Code: |
//FILEAID EXEC PGM=FILEAID
//SYSPRINT DD SYSOUT=*
//DD01 DD DISP=SHR,DSN=HLQ.INPUT.PDS
//DD01O DD DSN=HLQ.OUTPUT.PDS,
// UNIT=SYSDA,DISP=(NEW,CATLG),
// RECFM=FB,LRECL=80,BLKSIZE=27920,
// SPACE=(TRK,(60,15,100))
//SYSIN DD *
$$DD01 COPY NEWMEMS=LVL-----
/*
|
Every member prefixed with SYS will be changed to LVL in the output PDS. Make sure your DCB parameters on the output DD are consistent with your input PDS. Make sure your directory blocks (100 in the example) and space allocations match your input PDS. This job will overlay the 1st 3 positions of any member name with LVL, no matter what the member name is currently. |
|
Back to top |
|
|
stly Warnings : 1 New User
Joined: 25 Jul 2005 Posts: 93
|
|
|
|
Hi Hawg is there any option in File-Aid to do this rather than submitting a job. |
|
Back to top |
|
|
stly Warnings : 1 New User
Joined: 25 Jul 2005 Posts: 93
|
|
|
|
Ca anyone throw some lite onthis??? |
|
Back to top |
|
|
cpuhawg
Active User
Joined: 14 Jun 2006 Posts: 331 Location: Jacksonville, FL
|
|
|
|
You can do this in the FILEAID INTERACTIVE (option 8).
Your Input Dataset is your PDS.
You must preallocate an output dataset with the same attributes as your PDS. This dataset should then be coded in the "TO" Dataset Information field.
You can preallocate a FB,80,80 dataset with one track of space and place the following control card in the dataset and save it.
Code: |
$$DD01 COPY NEWMEMS=LVL-----
|
This control dataset must be coded in the Optional Control Dataset Information field.
When you press enter, all members are copied to the new PDS with LVL prefixing every member name. |
|
Back to top |
|
|
stly Warnings : 1 New User
Joined: 25 Jul 2005 Posts: 93
|
|
|
|
Thank u |
|
Back to top |
|
|
stly Warnings : 1 New User
Joined: 25 Jul 2005 Posts: 93
|
|
|
|
Hi cpuhawg,
ur suggestion is working fine but it is changing all the names.But i need to change the name which strats with SYS to LVL.
Can u throw some lite |
|
Back to top |
|
|
cpuhawg
Active User
Joined: 14 Jun 2006 Posts: 331 Location: Jacksonville, FL
|
|
|
|
My suggestion would be to move all the SYS prefixed members to their own PDS, run the FILEAID procees to change them, and then copy them back to the original PDS. |
|
Back to top |
|
|
stly Warnings : 1 New User
Joined: 25 Jul 2005 Posts: 93
|
|
|
|
Thank u |
|
Back to top |
|
|
|