/* 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
