Nice simple addition
Lionel B. Dyck <>< z Client Architect IBM Corporation - West IMT Mobile Phone: 1-925-207-4518 E-mail: lionel.d...@us.ibm.com System z: www-03.ibm.com/systems/z/ Linux on z: http://www-03.ibm.com/systems/z/os/linux/ Destination z: http://www-03.ibm.com/systems/z/destinationz/index.html/ "Think Inside the z Box" From: Roberto Halais <roberto.hal...@gmail.com> To: IBM-MAIN@listserv.ua.edu, Date: 01/04/2013 12:13 PM Subject: Re: Formatting a Number with comma's Sent by: IBM Mainframe Discussion List <IBM-MAIN@listserv.ua.edu> Will take numbers with decimal point or not. /* rexx */ bytes = 1234567.89 parse var bytes num '.' dec num=strip(translate('0,123,456,789,abc,def', , right(num,16,','), , '0123456789abcdef'),'L',',') bytes = strip(strip(num)||'.'||dec,'T','.') say bytes On Fri, Jan 4, 2013 at 4:02 PM, Roberto Halais <roberto.hal...@gmail.com>wrote: > /* rexx */ > num = '123,456,789' > num = space(translate(num,'',','),0) > say num > > 123456789 > > > > On Fri, Jan 4, 2013 at 3:48 PM, John McKown <john.archie.mck...@gmail.com>wrote: > >> sure >> >> nocommas=strip(input,"b",",") >> >> http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IKJ4A390/4.3.55 >> >> >> >> On Fri, Jan 4, 2013 at 1:44 PM, Bill Ashton <bill00ash...@gmail.com> >> wrote: >> > Now, on a related note...is there a simple way to remove commas from a >> > number that is input as a string? >> > >> > For example, if a variable has "2,143,628" in it, how can I easily strip >> > the commas to wind up with 2143628? >> > >> > Billy >> > >> > On Fri, Jan 4, 2013 at 1:58 PM, Lionel Dyck <lionel.d...@us.ibm.com> >> wrote: >> > >> >> The 'extra' comman before the .12 on the second example as just that >> the >> >> code does not handle numbers with decimal but works well with pure >> numbers >> >> >> >> >> >> >> >> Lionel B. Dyck <>< >> >> z Client Architect >> >> IBM Corporation - West IMT >> >> >> >> Mobile Phone: 1-925-207-4518 >> >> E-mail: lionel.d...@us.ibm.com >> >> System z: www-03.ibm.com/systems/z/ >> >> Linux on z: http://www-03.ibm.com/systems/z/os/linux/ >> >> Destination z: >> http://www-03.ibm.com/systems/z/destinationz/index.html/ >> >> >> >> "Think Inside the z Box" >> >> >> >> >> >> >> >> >> >> >> >> >> >> From: Mark Zelden <m...@mzelden.com> >> >> To: IBM-MAIN@listserv.ua.edu, >> >> Date: 01/04/2013 10:54 AM >> >> Subject: Re: Formatting a Number with comma's >> >> Sent by: IBM Mainframe Discussion List < >> IBM-MAIN@listserv.ua.edu> >> >> >> >> >> >> >> >> On Fri, 4 Jan 2013 10:43:18 -0800, Lionel Dyck <lionel.d...@us.ibm.com >> > >> >> wrote: >> >> >> >> >I ran across this code from Doug Nadel several years ago and hope that >> >> >y'all will find it useful. >> >> > >> >> > >> >> > /* ----------------------------------------------------- */ >> >> > /* number format code thanks to Doug Nadel */ >> >> > /* ----------------------------------------------------- */ >> >> > str=strip(translate('0,123,456,789,abc,def', , >> >> > right(bytes,16,','), , >> >> > '0123456789abcdef'),'L',',') >> >> > bytes = strip(str) >> >> > >> >> >Here are two examples from oorexx under windows (this works well under >> >> >z/OS and z/VM) >> >> > >> >> >C:\t\new>test.rex 12345678 >> >> >Bytes: 12,345,678 >> >> > >> >> >C:\t\new>test.rex 12345678.12 >> >> >Bytes: 12,345,678,.12 >> >> > >> >> > >> >> >> >> May need a tweak (or cut/paste does). What's that extra comma before >> >> the decimal point in the 2nd example? >> >> >> >> There was a recent thread on the TSO-REXX list that had some >> >> nice examples - probably including this one (I don't follow TSO-REXX >> >> too closely). >> >> >> >> -- >> >> Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS >> >> mailto:m...@mzelden.com >> >> Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html >> >> Systems Programming expert at >> http://expertanswercenter.techtarget.com/ >> >> >> >> Mark >> >> >> >> ---------------------------------------------------------------------- >> >> For IBM-MAIN subscribe / signoff / archive access instructions, >> >> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN >> >> >> >> >> >> >> >> ---------------------------------------------------------------------- >> >> For IBM-MAIN subscribe / signoff / archive access instructions, >> >> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN >> >> >> > >> > >> > >> > -- >> > Thank you and best regards, >> > *Billy Ashton* >> > >> > ---------------------------------------------------------------------- >> > For IBM-MAIN subscribe / signoff / archive access instructions, >> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN >> >> >> >> -- >> Maranatha! <>< >> John McKown >> >> ---------------------------------------------------------------------- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN >> > > > > -- > "Men will never be free until the last king is strangled with the entrails > of the last priest." Denis Diderot -- "Men will never be free until the last king is strangled with the entrails of the last priest." Denis Diderot ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN