Bhanupratap Natva
New User
Joined: 13 Jul 2007 Posts: 8 Location: Hyderabad
|
|
|
|
Hi All,
I have a requirement as below
Input file is already sorted on date
PREM_DATE PREM_AMT
--------------- --------------
11/10/2007 2000.00
11/25/2007 2500.00
12/10/2007 300.00
12/15/2007 100.00
01/05/2008 1250.00
01/15/2008 520.00
02/19/2008 1250.00
02/28/2008 520.00
Now, I want to calculate the subtotals of for each-month and want to write it into an output file.
also, I want to calculate the AVG for the column PREM_AMT.
Could anyone suggest me the SORTCARD for the above. |
|
Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
Bhanupratap Natva,
use the following DFSORT JCL
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
11/10/2007 2000.00
11/25/2007 2500.00
12/10/2007 300.00
12/15/2007 100.00
01/05/2008 1250.00
01/15/2008 520.00
02/19/2008 1250.00
02/28/2008 520.00
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL REMOVECC,
SECTIONS=(1,2,
TRAILER3=(/,'TOTAL FOR MONTH ',1,2,' : ',
TOT=(12,10,UFF,EDIT=(IIIIIII.IT)),/,
'AVERAGE FOR MONTH ',1,2,' : ',
AVG=(12,10,UFF,EDIT=(IIIIIII.IT)),/))
/* |
This will produce
Code: |
11/10/2007 2000.00
11/25/2007 2500.00
TOTAL FOR MONTH 11 : 4500.00
AVERAGE FOR MONTH 11 : 2250.00
12/10/2007 300.00
12/15/2007 100.00
TOTAL FOR MONTH 12 : 400.00
AVERAGE FOR MONTH 12 : 200.00
01/05/2008 1250.00
01/15/2008 520.00
TOTAL FOR MONTH 01 : 1770.00
AVERAGE FOR MONTH 01 : 885.00
02/19/2008 1250.00
02/28/2008 520.00
TOTAL FOR MONTH 02 : 1770.00
AVERAGE FOR MONTH 02 : 885.00
|
|
|