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 Using ICETOOL, how we can seperate th... bshkris SYNCSORT 5 Tue May 09, 2017 8:33 pm
No new posts READ A PACKED "NEGATIVE" FI... jdesouza CA Products 3 Tue May 02, 2017 11:43 pm
No new posts Alter &DATENS field in HEADER1 Angad DFSORT/ICETOOL 4 Mon Apr 24, 2017 11:49 am
No new posts Group elements using ICETOOL Learncoholic DFSORT/ICETOOL 2 Fri Apr 14, 2017 11:01 am
No new posts SORT VSAM file with each field one by... maxsubrat DFSORT/ICETOOL 6 Tue Mar 14, 2017 1:07 pm


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