Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref

Author Message
naveen.prabhu.p

New User

Joined: 20 Sep 2006
Posts: 4
Location: Bangalore

Posted: Wed Oct 11, 2006 12:03 pm    Post subject: Help Needed to sum two columns using sort

My input file has data as mentioned below,

 Code: AAA     -31.00     0001 AAA       1.00     0001 AAA     111.00     0001 BBB      34.00     0001 BBB     222.00     0001 CCC      14.00     0001 CCC     -22.00     0001

expected output :

 Code: AAA      81.00     0003 BBB     256.00     0002 CCC      -8.00     0002

guptae

Moderator

Joined: 14 Oct 2005
Posts: 1190
Location: Bangalore,India

 Posted: Wed Oct 11, 2006 12:24 pm    Post subject: Hi there, would u please tell me field length & offset that will be helpful to provide u sort card
naveen.prabhu.p

New User

Joined: 20 Sep 2006
Posts: 4
Location: Bangalore

 Posted: Wed Oct 11, 2006 1:50 pm    Post subject: Hi Ekta, Hi Ekta, Actually i have the input file as, (1,13) is trans type PIC X(13). (14,6) filler (20,10) is the Trans date pic x(10) (30,2) filer (32,13) is trans amount PIC -Z(8)9.99 (45,5) filler (50,7) has constant 0000001 (pic x(7)) (57,123) filler. I need to get, Total no of each transaction type, total amount against each type. I hope this explanation would let you know my problem. Thanks in advance, Naveen
mubs55

New User

Joined: 19 Apr 2006
Posts: 12

Posted: Wed Oct 11, 2006 2:13 pm    Post subject: Solution for-Help Needed to sum two columns using sort

Hi Naveen,

heres the solution for ur problem

 Code: //SORT01    EXEC PGM=ICEMAN                                      //SORTIN   DD DSN=INPUT FILE,DISP=SHR                            //SORTOUT  DD DSN=OUTPUT FILE,DISP=OLD                          //SYSOUT    DD SYSOUT=*                                          //SYSIN    DD *                                                    SORT FIELDS=(1,15,CH,A)                                          OUTFIL REMOVECC,NODETAIL,                                           SECTIONS=(1,15,                                                 TRAILER3=(1,20,                                                 32:TOT=(32,13,SFF,EDIT=(STTTTTTTTTT.TT),SIGNS=(,-)),             50:TOT=(50,7,ZD,EDIT=(TTTTTTT))))
naveen.prabhu.p

New User

Joined: 20 Sep 2006
Posts: 4
Location: Bangalore

 Posted: Wed Oct 11, 2006 2:30 pm    Post subject: Thanks Thanks Mubs, that solved my problem
 All times are GMT + 6 Hours
 Page 1 of 1

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics Sort numeric fields with trailing spaces sancraig16 SYNCSORT 7 Tue Apr 03, 2018 1:21 am Find & Replace string in CA-SORT mrgnndhmk CA Products 1 Fri Mar 30, 2018 12:58 am SORT 3 files,extract specific fields ... Kiransr DFSORT/ICETOOL 13 Fri Mar 23, 2018 10:54 am How to Generate JCL using Sort naveen katkuri DFSORT/ICETOOL 7 Tue Mar 13, 2018 3:50 pm Need better approach to create a sort... Vamshi Veludandi DFSORT/ICETOOL 8 Thu Mar 08, 2018 5:59 pm

 © 2003-2017 IBM MAINFRAME Software Support Division
 Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us