MVSFORUMS.com :: View topic

through

[^/[Print]\]

MVSFORUMS.com -> Utilities

#1: rename members Author: ldushkin,

Posted: Fri May 19, 2006 7:56 am
—
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

#2: Author: Phantom, Location: The Blue Planet

Posted: Fri May 19, 2006 9:44 am
—
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

#3: Author: ldushkin,

Posted: Fri May 19, 2006 10:00 am
—
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

#4: Author: Phantom, Location: The Blue Planet

Posted: Fri May 19, 2006 10:11 am
—
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

#5: Author: ldushkin,

Posted: Fri May 19, 2006 10:26 am
—
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----"

#6: Author: kolusu, Location: San Jose

Posted: Fri May 19, 2006 10:45 am
—
ldushkin,

*Sigh* The output DD name (DD01O). you coded zero instead of an O (alphabet O) . Correct that

Kolusu

#7: Author: ldushkin,

Posted: Fri May 19, 2006 11:08 am
—
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

#8: Author: kolusu, Location: San Jose

Posted: Fri May 19, 2006 11:16 am
—
ldushkin,

Use the following Control cards

Quote:

//SYSIN DD *
$$DD01 COPY PADCHAR=X'00',NEWMEMS=SORT----,MEMBERS=MERG----

Kolusu

#9: Author: ldushkin,

Posted: Fri May 19, 2006 11:40 am
—
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

MVSFORUMS.com -> Utilities

output generated using printer-friendly topic mod. All times are GMT - 5 Hours

Page 1 of 1