Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Sum of a field - using icetool

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

Active User


Joined: 06 Sep 2007
Posts: 112
Location: India

PostPosted: Fri Jan 07, 2011 1:22 pm    Post subject: Sum of a field - using icetool
Reply with quote

I have 2 input files.

Customer file :
col 1 - 5 : cust id
col 10 - 19 : cust name

Code:
11111    ANJU
22222    MANISH
33333    RAVI
44444    DEEPA
55555    ASHA


Transaction file : this is a file with multiple entries for the cust id
col 1 - 5 : cust id
col 10-14 : trans amount
col 20-29 : trans date

Code:
11111    00010     15/12/2010
22222    00020     01/01/2011
33333    00030     20/12/2010
04444    00040     16/12/2010
11111    00050     01/01/2011
22222    00060     21/11/2010
33333    00070     20/12/2010
44444    00010     16/12/2010
11111    00020     01/01/2011
22222    00030     21/11/2010
33333    00010     15/12/2010
44444    00020     01/01/2011
55555    00030     20/12/2010
11111    00040     16/12/2010
11111    00050     01/01/2011


In my output file i want the cust id , cust name and each trans amt of each customer with a total of the trans amount for each cust. So my output should appear as follows :

Code:
11111  ANJU  00010
11111  ANJU  00050 
11111  ANJU  00020
11111  ANJU  00040
11111  ANJU  00050

                                     TOT = 00170


22222   MANISH  00020
22222   MANISH  00060
22222   MANISH  00030

                                    TOT = 00110

"Code'd"

Likewise it should give for the other cust id's.

Can this be done using SPLICE ?
Back to top
View user's profile Send private message

Skolusu

Senior Member


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

PostPosted: Tue Jan 11, 2011 2:08 am    Post subject: Reply to: Sum of a field - using icetool
Reply with quote

Ambili S,

Use the following DFSORT JCL which will give you the desired results.

Code:

//STEP0100 EXEC PGM=SORT                                   
//SYSOUT   DD SYSOUT=*                                     
//INA      DD *                                             
11111    ANJU                                               
22222    MANISH                                             
33333    RAVI                                               
44444    DEEPA                                             
55555    ASHA                                               
//INB      DD *                                             
11111    00010     15/12/2010                               
22222    00020     01/01/2011                               
33333    00030     20/12/2010                               
04444    00040     16/12/2010                               
11111    00050     01/01/2011                               
22222    00060     21/11/2010                               
33333    00070     20/12/2010                               
44444    00010     16/12/2010                               
11111    00020     01/01/2011                               
22222    00030     21/11/2010                               
33333    00010     15/12/2010                               
44444    00020     01/01/2011                               
55555    00030     20/12/2010                               
11111    00040     16/12/2010                               
11111    00050     01/01/2011                               
//SORTOUT  DD SYSOUT=*                                     
//SYSIN    DD *                                             
  OPTION COPY                                               
  JOINKEYS F1=INA,FIELDS=(1,5,A)                           
  JOINKEYS F2=INB,FIELDS=(1,5,A)                           
  REFORMAT FIELDS=(F1:1,20,F2:10,5)                         
  OUTFIL REMOVECC,BUILD=(1,25,80:X),                       
  SECTIONS=(1,5,                                           
  TRAILER3=(//,40:'TOT = ',TOT=(21,5,ZD,M11,LENGTH=8),//)) 
//*
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 INVALID FIELD OR CONSTANT IN SORTOF ?? Ron Klop DFSORT/ICETOOL 8 Wed Jan 11, 2017 3:44 pm
No new posts Performing arithmetic on input field zh_lad DFSORT/ICETOOL 31 Tue Dec 06, 2016 8:04 pm
No new posts Add PD field from 2nd file to PD in 1st Sushant Garje DFSORT/ICETOOL 6 Thu Dec 01, 2016 4:32 pm
No new posts How to split the records using the am... vnktrrd DFSORT/ICETOOL 24 Fri Oct 28, 2016 7:33 pm
No new posts Sort records based on numeric field. Alks SYNCSORT 2 Wed Oct 19, 2016 10:14 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us