MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Flagging particular records in a sequential file
Goto page Previous  1, 2
 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12401
Topics: 75
Location: San Jose
PostPosted: Wed Jun 21, 2006 8:01 am    Post subject: Reply with quote
Quote:

But I don't see any DFSORT solution.


Vak255,

Really ? geee I thought that I posted a DFSORT solution in this topic . Let me see , the second post from the top has this

kolusu wrote:
The following DFSORT/ICETOOL JCl will give you the desired results. You need to have z/OS DFSORT V1R5 PTF UQ95214 or DFSORT R14 PTF UQ95213 (Dec, 2004) installed which support KEEPBASE option on SPLICE.


which is this post

http://mvsforums.com/helpboards/viewtopic.php?p=31058#31058

I am just wondering if you are the same person as the original poster. If you are not then for christ sake stop sharing the IDS. I do not charge for posting on this board.

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
vak255
Intermediate


Joined: 10 Sep 2004
Posts: 384
Topics: 79
PostPosted: Wed Jun 21, 2006 8:15 am    Post subject: Reply with quote
Kolusu,

when I click on the link that you have provided its linking to this post. Pls check.
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12401
Topics: 75
Location: San Jose
PostPosted: Wed Jun 21, 2006 8:26 am    Post subject: Reply with quote
Quote:

when I click on the link that you have provided its linking to this post. Pls check.


I am linking to this topic because there was indeed a DFSORT solution in this topic. Evil or Very Mad

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
vak255
Intermediate


Joined: 10 Sep 2004
Posts: 384
Topics: 79
PostPosted: Thu Jun 22, 2006 1:26 am    Post subject: Reply with quote
kolusu,

Sorry for the confusion Sad . you have written DFSORT/ICETOOL and In the JCL I see that you used ICETOOL so I thought DFSORT is different.

//STEP0100 EXEC PGM=ICETOOL
//DFSMSG DD SYSOUT=*
//TOOLMSG DD SYSOUT=*
//IN DD *
Code:
                                               
20060524405A551117386.054009780432805400    05400976351510540097635
20060524405A551117386.054009781532905400 AAA05400976805350540097680
20060524405A551117386.054009782667805400 BBB05400978043280540097804
20060524405A551117386.054009783667805400    05400978043280540097804
200605240540097963724.054009796372405400    05400978053290540097805
200605240540098383887.054009838388705400    05400978066780540097806

//OUT DD SYSOUT=*
//TOOLIN DD *
SPLICE FROM(IN) TO(OUT) ON(09,13,CH) WITH(1,41) WITH(45,23) -
WITHALL KEEPBASE KEEPNODUPS USING(CTL1)
//CTL1CNTL DD *
SORT FIELDS=(09,13,CH,A,42,3,CH,D)



The output:

Code:

200605240540097963724.054009796372405400    05400978053290540097805
200605240540098383887.054009838388705400    05400978066780540097806
20060524405A551117386.054009782667805400 BBB05400978043280540097804
20060524405A551117386.054009781532905400 BBB05400976805350540097680
20060524405A551117386.054009780432805400 BBB05400976351510540097635
20060524405A551117386.054009783667805400 BBB05400978043280540097804


In the input file 'AAA' was overwritten with 'BBB'. But I want to rewrite only the spaces with 'AAA'/'BBB', I don't want to overwrite the data in that position.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Goto page Previous  1, 2
Page 2 of 2

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group