Portal | 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: 825
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 Group selective VB records - Trailer ... Premnath_TJ DFSORT/ICETOOL 12 Sun Sep 13, 2020 3:38 am
This topic is locked: you cannot edit posts or make replies. SORT the records based on the second ... Ramsee SYNCSORT 1 Wed Aug 19, 2020 3:01 pm
No new posts to Insert Rows from File1 to File 2 ... Arun_Tupili DFSORT/ICETOOL 1 Thu Aug 13, 2020 6:22 pm
No new posts Retrieve multiple records with metaco... Jose Juan J CA Products 0 Sat Jul 25, 2020 1:36 am
No new posts Identify the count from two diffrent ... UmashankarSubramani DFSORT/ICETOOL 19 Sat Jul 11, 2020 4:35 am

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