"The Tweak" :-) -- 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/
On Fri, 4 Jan 2013 16:12:11 -0400, Roberto Halais <roberto.hal...@gmail.com> wrote: >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