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
 
How to count duplicate key records correctly

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> SYNCSORT
View previous topic :: :: View next topic  
Author Message
sergeyken

Active Member


Joined: 29 Apr 2008
Posts: 512
Location: Maryland

PostPosted: Thu Jul 25, 2019 8:03 pm    Post subject: How to count duplicate key records correctly
Reply with quote

Code:
//*================================================
//* COUNT DUPLICATES                               
//*================================================
//COUNTDUP EXEC PGM=SORT                           
//*                                               
//SYSOUT   DD  SYSOUT=*                           
//*                                               
//SORTIN   DD  *                                   
AAAAA                                             
BBBBB                                             
CCCCC                                             
EEEEE                                             
DDDDD                                             
CCCCC                                             
EEEEE                                             
BBBBB                                             
BBBBB                                             
CCCCC                                             
BBBBB                                             
CCCCC                                             
CCCCC                                             
AAAAA                                             
AAAAA                                             
//*                                               
//SORTOUT  DD  SYSOUT=*                           
//*                                               
//SYSIN    DD  *                                   
*                                                 
 SORT FIELDS=(1,30,CH,A)                           
*                                                 
 OUTFIL FNAMES=(SORTOUT),                         
        NODETAIL,REMOVECC,                         
        SECTIONS=(1,30,                           
                  TRAILER3=(1,30,                 
                            C' REPEATED ',         
                            COUNT=(ZD,LENGTH=3),   
                            C' TIMES'))           
*                                                 
 END                                               
//*                                             
//*========================================


Code:
********************************* TOP OF DATA ********
AAAAA                          REPEATED 003 TIMES     
BBBBB                          REPEATED 004 TIMES     
CCCCC                          REPEATED 005 TIMES     
DDDDD                          REPEATED 001 TIMES     
EEEEE                          REPEATED 002 TIMES     
******************************** BOTTOM OF DATA ******


The same approach also works for DFSORT, mysteriously moved to separate partition of the forum.

Mod: *** Syncsort ONLY solutions will be moved to the relevant forum, in this case it did not appear the 'solution' was complete either.***
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 -> SYNCSORT All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Compare duplicate records in same file pshongal DFSORT/ICETOOL 3 Fri Aug 09, 2019 9:37 am
This topic is locked: you cannot edit posts or make replies. Removing duplicate record based on th... Nilanjan Sikdar DFSORT/ICETOOL 4 Mon Jul 22, 2019 8:29 pm
No new posts Sort records within a data block rajiv rengasamy DFSORT/ICETOOL 0 Fri Jul 12, 2019 3:25 pm
No new posts No of job count for an milestone job sen_1983us CLIST & REXX 7 Tue Jul 02, 2019 7:34 am
No new posts Mainframe to linux file count mismatch shreya19 All Other Mainframe Topics 4 Thu Jun 13, 2019 9:49 pm

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