IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

include records having string more than once
IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
venkatesh83be

New User


Joined: 10 Aug 2009
Posts: 12
Location: Chennai
PostPosted: Wed Jul 21, 2010 8:37 am
 Reply with quote
Hi All,

Can anyone help me to fetch those records having the search string more than once....

For an instance, if i/p is as below and search string is "@53" -
Code:

78945@5313213468..
12345@531215@53....
111@53111@53111..

o/p should contain only 2nd and 3rd record as "@53" occurs more than once in them.

Thanks,
Venkat.
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia
PostPosted: Wed Jul 21, 2010 10:28 am
 Reply with quote
Hi,

here is a way of achieving this

Code:
//STEP0100 EXEC PGM=SORT                                               
//SYSOUT   DD SYSOUT=*                                                 
//SORTIN   DD *                                                       
78945@5313213468..                                                     
12345@531215@53....                                                   
111@53111@53111                                                       
//GT1      DD SYSOUT=*                                                 
//SYSIN    DD *                                                       
  SORT FIELDS=COPY                                                     
  INREC PARSE=(%=(STARTAT=C'@53'),                                     
              %1=(STARTAT=C'@53',FIXLEN=3)),                           
        OVERLAY=(81:%1)                                               
  OUTFIL FNAMES=GT1,INCLUDE=(81,1,CH,NE,C' '),BUILD=(1,80)             
/*                                                                                                                                       



Gerry
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia
PostPosted: Wed Jul 21, 2010 11:21 am
 Reply with quote
Hi,

Oops icon_redface.gif I just realised my solution is for DFSORT and not SYNCSORT


Gerry
Back to top
View user's profile Send private message
Alissa Margulies

SYNCSORT Support


Joined: 25 Jul 2007
Posts: 496
Location: USA
PostPosted: Wed Jul 21, 2010 6:58 pm
 Reply with quote
That solution will work with SyncSort for z/OS 1.3 as well.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 

Similar Topics
Topic Forum Replies
No new posts Compare 2 files and retrive records f... DFSORT/ICETOOL 3
No new posts Compare 2 files(F1 & F2) and writ... JCL & VSAM 8
No new posts Replace each space in cobol string wi... COBOL Programming 3
No new posts PARSE Syntax for not fix length word ... JCL & VSAM 7
No new posts INCLUDE OMIT COND for Multiple values... DFSORT/ICETOOL 5
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us