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
 
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: 7314

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

Senior Member


Joined: 14 Mar 2007
Posts: 10535
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 COBOL file declaration jithinraghavan COBOL Programming 2 Fri Nov 16, 2018 10:54 pm
No new posts Process Last Key of a record based on... naveen katkuri DFSORT/ICETOOL 5 Mon Nov 12, 2018 9:54 am
No new posts Will this code extract 1 byte from fi... pkmurali CLIST & REXX 8 Sat Nov 10, 2018 11:13 pm
No new posts Error reading file in REXX module ashek15 CLIST & REXX 3 Wed Oct 24, 2018 4:50 am
No new posts Convert VB file to FB plus special fo... cz016m SYNCSORT 15 Fri Oct 19, 2018 7:26 pm

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