MVSFORUMS.com

ldushkin · Beginner Joined: 05 Apr 2006 Posts: 56 Topics: 20

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

Phantom · Posted: Fri May 19, 2006 9:44 am Post subject:

Idushkin,

Try this FileAid step. ('-' acts as Wildcard character)

ldushkin · Beginner Joined: 05 Apr 2006 Posts: 56 Topics: 20

Thank you Phantom,

Can you check my JCL, I got error

Phantom · 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

ldushkin · Beginner Joined: 05 Apr 2006 Posts: 56 Topics: 20

Sorry to bother you I have the same error

kolusu · 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

ldushkin · Beginner Joined: 05 Apr 2006 Posts: 56 Topics: 20

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

kolusu · Posted: Fri May 19, 2006 11:16 am Post subject:

ldushkin,

Use the following Control cards

ldushkin · Beginner Joined: 05 Apr 2006 Posts: 56 Topics: 20

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