Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

write the last occurance of a record in file .

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

New User


Joined: 28 Jan 2013
Posts: 8
Location: India

PostPosted: Fri Mar 22, 2013 1:20 pm    Post subject: write the last occurance of a record in file .
Reply with quote

Hi
I have requirement like
File contains
abc 002
bcd 001
cde 004
abc 003
xyz 008

output
abc 003
bcd 001
cde 004
xyz 008

My intenion is to copy all the records in the file and for the duplicates i want the last record of the duplicate occurance record. here the key is first three letters.
Back to top
View user's profile Send private message

Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7315

PostPosted: Fri Mar 22, 2013 1:24 pm    Post subject: Reply to: write the last occurance of a record in file .
Reply with quote

You want it in Cobol? First sort the file, whilst that is happening, write and test the code.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10256
Location: italy

PostPosted: Fri Mar 22, 2013 1:29 pm    Post subject: Reply to: write the last occurance of a record in file .
Reply with quote

why not use <sort>/<icetool> ...

something along the lines of
Code:
 ****** ***************************** Top of Data ******************************
 ...
 000004 //ICE     EXEC PGM=ICETOOL
 000005 //TOOLMSG   DD SYSOUT=*
 000006 //DFSMSG    DD SYSOUT=*
 000007 //IN        DD *
 000008 ABC 002
 000009 BCD 001
 000010 CDE 004
 000011 ABC 003
 000012 XYZ 008
 000013 //OUT       DD SYSOUT=*
 000014 //TOOLIN    DD *
 000015   SELECT FROM(IN) TO(OUT) ON(1,3,CH) LAST
 ****** **************************** Bottom of Data ****************************


to obtain
Code:
********************************* TOP OF DATA **********************************
ABC 003
BCD 001
CDE 004
XYZ 008
******************************** BOTTOM OF DATA ********************************
Back to top
View user's profile Send private message
abhi.5873

New User


Joined: 28 Jan 2013
Posts: 8
Location: India

PostPosted: Fri Mar 22, 2013 2:12 pm    Post subject: Reply to: write the last occurance of a record in file .
Reply with quote

Thanks enrico-sorichetti : icon_smile.gif
It is working
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 Converting Variable block file to Fix... bhavana yalavarthi DFSORT/ICETOOL 10 Tue May 16, 2017 2:20 pm
No new posts Adding big TEXT lines to each record ... bshkris SYNCSORT 4 Sat May 06, 2017 1:40 am
No new posts Getting error while opening a variabl... apandey1 COBOL Programming 5 Fri May 05, 2017 12:22 pm
This topic is locked: you cannot edit posts or make replies. Merge two files and update Trailer re... Yashashri JCL & VSAM 1 Thu May 04, 2017 12:54 pm
No new posts Issue with NDM process to transmit ES... chetanambi All Other Mainframe Topics 6 Wed May 03, 2017 10:52 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us