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

to sum numbers


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

New User


Joined: 10 Jul 2005
Posts: 58

PostPosted: Tue Feb 14, 2006 2:53 am
Reply with quote

Hi all,

I would like to sum some numbers using DFSORT in a FB file whose LRECL=80. There are two digits after comma and u can assume their position. For example how I sum those numbers:

12,05
195,00
2314,26
0,10
79,19

Thanks in advance,
hyuzen
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA

PostPosted: Tue Feb 14, 2006 6:09 am
Reply with quote

You can use the DFSORT job below to sum up all of the numbers. You'll need z/OS DFSORT V1R5 PTF UQ95214 or DFSORT R14 PTF UQ95213 (Dec, 2004) in order to use DFSORT's UFF format. Only DFSORT has this function, so if you don't have DFSORT, you won't be able to use it. If you do have DFSORT, but you don't have the Dec, 2004 PTF, ask your System Programmer to install it (it's free). For complete details on all of the new DFSORT and ICETOOL functions available with the Dec, 2004 PTF, see:

Use [URL] BBCode for External Links

Code:

//S1    EXEC  PGM=ICEMAN                               
//SYSOUT    DD  SYSOUT=*                               
//SORTIN DD DSN=...  input file                                         
//SORTOUT  DD DSN=...  output file                                 
//SYSIN    DD    *                                     
   OPTION COPY                                         
   OUTFIL REMOVECC,NODETAIL,                           
     TRAILER1=(TOT=(1,11,UFF,EDIT=(IIIIIIIT,TT)))       


SORTOUT will have:

Code:

    2600,60 
Back to top
View user's profile Send private message
hyuzen

New User


Joined: 10 Jul 2005
Posts: 58

PostPosted: Mon Feb 20, 2006 3:01 am
Reply with quote

Frank,

I am so sorry for my late response. Thank you very much your your help.

hyuzen
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 Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
No new posts Generate random number from range of ... COBOL Programming 3
No new posts Feild level validation to test first ... JCL & VSAM 10
No new posts Line numbers contains last 6 digits o... TSO/ISPF 4
No new posts Random Numbers distributed evenly wit... COBOL Programming 6
Search our Forums:

Back to Top