Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Create Group Headers

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
Aneesh

New User


Joined: 30 Sep 2006
Posts: 60

PostPosted: Wed May 11, 2011 2:15 pm    Post subject: Create Group Headers
Reply with quote

Hi,

I have a file with length 80 and format FB - with a counter of 3 bytes in positions 1-3, followed by a space, followed by a identifier string of 2 byte character data.

Input file

001 AA
002 AA
003 AA
001 BB
009 BB
005 CC
007 CC

I need to create an output file such that the identifier string gets written as a header record for the group of records. So, the output will be:

AA
001
002
003
BB
001
009
CC
005
007

Can thiis be done using sort?

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

Escapa

Senior Member


Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA

PostPosted: Wed May 11, 2011 4:02 pm    Post subject:
Reply with quote

Below step will give required output...

Code:

//STEP10   EXEC PGM=SORT                                           
//SORTIN       DD *                                                 
001 AA                                                             
002 AA                                                             
003 AA                                                             
001 BB                                                             
009 BB                                                             
005 CC                                                             
007 CC                                                             
/*                                                                 
//SORTOUT DD SYSOUT=*                                               
//SYSOUT  DD SYSOUT=*                                               
//SYSIN    DD  *                                                   
  SORT FIELDS=(5,2,CH,A)                                           
  OUTFIL REMOVECC,SECTIONS=(5,2,HEADER3=(5,2,80:X)),BUILD=(1,3,80:X)
/*                                                                 


Output,
Code:
AA 
001
002
003
BB 
001
009
CC 
005
007
Back to top
View user's profile Send private message
Aneesh

New User


Joined: 30 Sep 2006
Posts: 60

PostPosted: Wed May 11, 2011 4:13 pm    Post subject: Reply to: Create Group Headers
Reply with quote

Thanks a lot icon_smile.gif
Back to top
View user's profile Send private message
Escapa

Senior Member


Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA

PostPosted: Wed May 11, 2011 4:26 pm    Post subject: Re: Reply to: Create Group Headers
Reply with quote

Aneesh wrote:
Thanks a lot icon_smile.gif

Cheers... icon_smile.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Group changes and numbering the groups Auryn DB2 2 Tue Mar 20, 2018 7:12 pm
No new posts Need better approach to create a sort... Vamshi Veludandi DFSORT/ICETOOL 8 Thu Mar 08, 2018 5:59 pm
No new posts How to group and sum the decimal value sakrat DFSORT/ICETOOL 2 Tue Mar 06, 2018 9:13 pm
No new posts Can we create REXX ouput in an Excel ... upendrasri CLIST & REXX 3 Wed Jan 17, 2018 8:19 pm
No new posts How to create issuer certificate? :'( vasanthz All Other Mainframe Topics 1 Sat Nov 18, 2017 5:14 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us