View previous topic :: View next topic |
Author |
Message |
ldushkin Beginner
Joined: 05 Apr 2006 Posts: 56 Topics: 20
|
Posted: Fri May 19, 2006 7:56 am Post subject: rename members |
|
|
I have members in a PDS. I want to replace the four characters of member names, whose names meet a specific criteria. SORT**** to MERG****.
I try to use FILRAID, but not working global.
May be I do wrong way.
Help much appreciated.
ex;
input
PDS:D2HG.JCL1
SORTAUTO
SORTCNTS
SORTCOPY
SORTDUPS
SORTFEBX
SORTNONE
SORTPROC
SORTREFO
SORTSUM
SORTZ
SORT3
output
PDS:D2HG.JCL1
MERGAUTO
MERGCNTS
MERGCOPY
MERGDUPS
MERGFEBX
MERGNONE
MERGPROC
MERGREFO
MERGSUM
MERGFZ
MERG3 |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
Phantom Data Mgmt Moderator
![Data Mgmt Moderator Data Mgmt Moderator](images/ranks/Phantom.jpg)
Joined: 07 Jan 2003 Posts: 1056 Topics: 91 Location: The Blue Planet
|
Posted: Fri May 19, 2006 9:44 am Post subject: |
|
|
Idushkin,
Try this FileAid step. ('-' acts as Wildcard character)
Code: |
$$DD01 COPY PADCHAR=X'00',CEM=NO,RLM=YES,"
NEWMEMS=SORT----,MEMBERS=MERG----"
|
Hope this helps,
Thanks,
Phantom |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
ldushkin Beginner
Joined: 05 Apr 2006 Posts: 56 Topics: 20
|
Posted: Fri May 19, 2006 10:00 am Post subject: |
|
|
Thank you Phantom,
Can you check my JCL, I got error
Code: |
//STEP0100 EXEC PGM=FILEAID
//SYSPRINT DD SYSOUT=*
//DD01 DD DSN=D2HG.JCL1,
// DISP=SHR
//SYSIN DD *
$$DD01 COPY PADCHAR=X'00',CEM=NO,RLM=YES,"
NEWMEMS=SORT----,MEMBERS=MERG----"
/*
|
error
Code: |
$$DD01 COPY PADCHAR=X'00',CEM=NO,RLM=YES,"
INVALID FUNCTION, NO OUTPUT DATASET PRESENT
.....SKIPPING TO NEXT $$DD CARD
|
|
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
Phantom Data Mgmt Moderator
![Data Mgmt Moderator Data Mgmt Moderator](images/ranks/Phantom.jpg)
Joined: 07 Jan 2003 Posts: 1056 Topics: 91 Location: The Blue Planet
|
Posted: Fri May 19, 2006 10:11 am Post subject: |
|
|
Idushkin,
Obviously!!! you did not declare the output DD name (DD01O). You need to declare the output DD (in your case) with the same dataset name as input and DISP=OLD, or copy to another PDS and then do another copy.
Thanks,
Phantom |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
ldushkin Beginner
Joined: 05 Apr 2006 Posts: 56 Topics: 20
|
Posted: Fri May 19, 2006 10:26 am Post subject: |
|
|
Sorry to bother you I have the same error
Code: |
//STEP0100 EXEC PGM=FILEAID
//SYSPRINT DD SYSOUT=*
//DD01 DD DSN=D2HG.JCL1,
// DISP=SHR
//DD010 DD DSN=D2HG.JCL1,
// DISP=OLD
//SYSIN DD *
$$DD01 COPY PADCHAR=X'00',CEM=NO,RLM=YES,"
NEWMEMS=SORT----,MEMBERS=MERG----"
|
|
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
kolusu Site Admin
![Site Admin Site Admin](images/ranks/adminpic.jpg)
Joined: 26 Nov 2002 Posts: 12367 Topics: 75 Location: San Jose
|
Posted: Fri May 19, 2006 10:45 am Post subject: |
|
|
ldushkin,
*Sigh* The output DD name (DD01O). you coded zero instead of an O (alphabet O) . Correct that
Kolusu _________________ Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
www.linkedin.com/in/kolusu |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
ldushkin Beginner
Joined: 05 Apr 2006 Posts: 56 Topics: 20
|
Posted: Fri May 19, 2006 11:08 am Post subject: |
|
|
Thank you Kolusu,
And I have other problem with the card
DD01 DSN=D2HG.JCL1 OPENED AS PO,
RECFM=FB,LRECL=80,BLKSIZE=3120,VOL=SMS251
DD01O DSN=D2HG.JCL1 OPENED AS PO,
RECFM=FB,LRECL=80,BLKSIZE=3120,VOL=SMS251
$$DD01 COPY PADCHAR=X'00',CEM=NO,RLM=YES,"
1...5...10...15...20...25...30...35...40..
INVALID KEYWORD IN ABOVE CARD, CHECK DATA STARTING IN COLUMN 42
.....SKIPPING TO NEXT $$DD CARD
0 RECORDS WRITTEN TO DD01O-D2HG.JCL1
VOL=SMS251
My card
//SYSIN DD *
$$DD01 COPY PADCHAR=X'00',CEM=NO,RLM=YES,"
NEWMEMS=SORT----,MEMBERS=MERG----"
Thanks for any assistance you can provide |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
kolusu Site Admin
![Site Admin Site Admin](images/ranks/adminpic.jpg)
Joined: 26 Nov 2002 Posts: 12367 Topics: 75 Location: San Jose
|
Posted: Fri May 19, 2006 11:16 am Post subject: |
|
|
ldushkin,
Use the following Control cards
Quote: |
//SYSIN DD *
$$DD01 COPY PADCHAR=X'00',NEWMEMS=SORT----,MEMBERS=MERG----
|
Kolusu _________________ Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
www.linkedin.com/in/kolusu |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
ldushkin Beginner
Joined: 05 Apr 2006 Posts: 56 Topics: 20
|
Posted: Fri May 19, 2006 11:40 am Post subject: |
|
|
Thank you,
It works, but it added new members and not deleted old.
ex:
before run
SORT
SORTAUTO
SORTCNTS
SORTCOPY
..
..
after run
MERG
MERGAUTO
MERGCNTS
MERGCOPY
SORT
SORTAUTO
SORTCNTS
SORTCOPY
Is any way to rename or delete old members.
Thank you |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
|
|