Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
eliminate dups in VB file

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

Active User


Joined: 20 May 2010
Posts: 121
Location: canada

PostPosted: Tue Feb 13, 2018 2:59 am    Post subject: eliminate dups in VB file
Reply with quote

Hello,
I have VB file - is it possible to remove dups checking full record ... I don't know the each record length or positions to check ... just remove dups for full record.
Back to top
View user's profile Send private message

Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2481
Location: @my desk

PostPosted: Tue Feb 13, 2018 3:22 am    Post subject: Re: eliminate dups in VB file
Reply with quote

anatol wrote:
Hello,
I have VB file - is it possible to remove dups checking full record ... I don't know the each record length or positions to check ... just remove dups for full record.
Yes it is possible. Look for OPTION VLSHRT examples here.
Back to top
View user's profile Send private message
anatol

Active User


Joined: 20 May 2010
Posts: 121
Location: canada

PostPosted: Tue Feb 13, 2018 3:33 am    Post subject:
Reply with quote

yes, OPTION VLSHRT will work with VB, but I don't know the positions to use ON(x,y,f) for NODUPS
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2481
Location: @my desk

PostPosted: Tue Feb 13, 2018 5:56 am    Post subject:
Reply with quote

anatol wrote:
yes, OPTION VLSHRT will work with VB, but I don't know the positions to use ON(x,y,f) for NODUPS
But you know the LRECL of the VB data set, don't you? You just need to substitute the LRECL(- RDW length) in your ON(....) if you are using PGM=ICETOOL or SORT FIELDS=(...) if you are using PGM=SORT.

Keep in mind that NODUPS will suppress ALL the duplicate records. If you need to retain the very first duplicate record you might need FIRST.
Back to top
View user's profile Send private message
anatol

Active User


Joined: 20 May 2010
Posts: 121
Location: canada

PostPosted: Tue Feb 13, 2018 6:32 am    Post subject:
Reply with quote

good idea, but I don't know how to do that. Lets actual length of records are 10,10,30,30,40,40,40,10,50,50 how I should put it in ON parameter?
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8456
Location: Dubuque, Iowa, USA

PostPosted: Tue Feb 13, 2018 5:35 pm    Post subject:
Reply with quote

LRECL has nothing to do with the actual record lengths -- it is a single constant number that represents the longest possible record in the data set.
Back to top
View user's profile Send private message
anatol

Active User


Joined: 20 May 2010
Posts: 121
Location: canada

PostPosted: Tue Feb 13, 2018 6:32 pm    Post subject:
Reply with quote

Sorry - my mistake ... I was thinking that OPTION VLSHRT ignore the records if length is shorter than in ON() parameter. It worked - thank you
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 Need to write the date at the end of ... Poha Eater DFSORT/ICETOOL 2 Tue Jul 23, 2019 2:33 pm
No new posts Access file which has DSNTYPE=LIBRARY maxsubrat JCL & VSAM 11 Fri Jun 21, 2019 4:09 pm
No new posts Mainframe to linux file count mismatch shreya19 All Other Mainframe Topics 4 Thu Jun 13, 2019 9:49 pm
No new posts Copy physical Tape files to a Mainfra... Dadi Krishna Teja JCL & VSAM 11 Thu May 16, 2019 10:25 pm
No new posts How can I close a flat file in Ezytrieve dibyendumandal11111 CA Products 3 Wed Apr 17, 2019 2:19 pm

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