IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Record Count and Sum Amount for each type of data


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
newbie

New User


Joined: 05 Nov 2005
Posts: 12

PostPosted: Thu Feb 11, 2010 1:36 pm
Reply with quote

Can you please show me how I can use sort to count and sum amount based on specific record types? I want the output to show me the type, record count for the type, and sum amount for the type. Then if possible, show a trailer record with the total count and total sum amount.

Input:

TYPE AMOUNT PIC 9(07)V99

AAA 0530
CCC 0100
BBB 0200
AAA 1050
CCC 0100
BBB 0420
CCC 0310

Output:

TYPE COUNT AMOUNT
AAA 2 15.80
BBB 2 06.20
CCC 3 05.10

TOTAL 7 27.10



Thanks in advance.
Back to top
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Thu Feb 11, 2010 10:25 pm
Reply with quote

newbie,

Use the following DFSORT JCL

Code:

//STEP0100 EXEC PGM=SORT                                 
//SYSOUT   DD SYSOUT=*                                   
//SORTIN   DD *                                         
AAA 000000530                                           
CCC 000000100                                           
BBB 000000200                                           
AAA 000001050                                           
CCC 000000100                                           
BBB 000000420                                           
CCC 000000310                                           
//SORTOUT  DD SYSOUT=*                                   
//SYSIN    DD *                                         
  SORT FIELDS=(1,3,CH,A)                                 
  OUTFIL REMOVECC,NODETAIL,BUILD=(80X),                 
  SECTIONS=(1,3,                                         
  TRAILER3=(1,3,5X,COUNT=(M10,LENGTH=8),2X,             
                  TOTAL=(5,9,ZD,EDIT=(IIIIIIIT.TT)))),   
  TRAILER1=(9:8C'=',X,12C'=',/,                         
            'TOTAL : ',COUNT=(M10,LENGTH=8),X,           
             TOTAL=(5,9,ZD,EDIT=(IIIIIIIIT.TT)))         
//*


The output is
Code:

AAA            2        15.80
BBB            2         6.20
CCC            3         5.10
        ======== ============
TOTAL :        7        27.10
Back to top
View user's profile Send private message
newbie

New User


Joined: 05 Nov 2005
Posts: 12

PostPosted: Fri Feb 12, 2010 5:13 am
Reply with quote

Skolusu, thanks a lot. icon_biggrin.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts How to save SYSLOG as text data via P... All Other Mainframe Topics 2
No new posts Store the data for fixed length COBOL Programming 1
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts To get the count of rows for every 1 ... DB2 3
No new posts SFTP Issue - destination file record ... All Other Mainframe Topics 2
Search our Forums:

Back to Top