Formatting a Number with comma's
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
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"
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Formatting a Number with comma's
That's "commas", btw. John McKown wrote: > nocommas=strip(input,"b",",") You meant: nocommas = space(translate(input, ' ', ','), 0) That is: 1) Translate commas to spaces 2) Remove all spaces from the number ...phsiii -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Formatting a Number with comma's
On Fri, 4 Jan 2013 10:43:18 -0800, Lionel Dyck 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
Re: Formatting a Number with comma's
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
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
On Fri, 4 Jan 2013 10:43:18 -0800, Lionel Dyck
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
Re: Formatting a Number with comma's
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 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
> 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
>
>
>
> On Fri, 4 Jan 2013 10:43:18 -0800, Lionel Dyck
> 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
Re: Formatting a Number with comma's
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 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 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
>> 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
>>
>>
>>
>> On Fri, 4 Jan 2013 10:43:18 -0800, Lionel Dyck
>> 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
Re: Formatting a Number with comma's
On Fri, 4 Jan 2013 10:58:57 -0800, Lionel Dyck 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 > > Okay, then if someone needs it to handle decimals also, I suggest looking on TSO-REXX. :-) Mark -- 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/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Formatting a Number with comma's
For ADDING commas, this works pretty reliably, if a tad obscurely: /* Call: "AddCommas(12345,',')" */ AddCommas: procedure parse arg a '.' +0 d, comma a = right(a, ((length(a)+2)%3)*3) do i = 1 to (length(a)%3)-1 a = insert(comma, a, (4*i)-1) end return strip(a) || d -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Formatting a Number with comma's
/* rexx */
num = '123,456,789'
num = space(translate(num,'',','),0)
say num
123456789
On Fri, Jan 4, 2013 at 3:48 PM, John McKown 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
> 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
> 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
> >> 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 >
> >>
> >>
> >>
> >> On Fri, 4 Jan 2013 10:43:18 -0800, Lionel Dyck
> >> 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
Re: Formatting a Number with comma's
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 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
> 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
>> 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
>> 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
>> >> 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 > >
>> >> 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
Re: Formatting a Number with comma's
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
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
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
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
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
>> 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
>> 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
>> >> 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
> >
>> >> 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
Re: Formatting a Number with comma's
"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
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 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
>> 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
>>> 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
>>> 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
>>> >> 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 >> >
>>> >> 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?
>>> >>
>>> >
Re: Formatting a Number with comma's
Perhaps another point of view will be of some interest. The schemes presented in this thread seem to me to be examples of radically misplaced ingenuity. If I did not know better I should be forced to conclude from them that knowledge of HLASM programming had been lost to this list. Chapter 8 (Decimal Instructions) of the current PrOp contains full discussions of the EDIT and EDIT AND MARK machine instructions, which perform these operations elegantly, efficiently, and compactly. John Gilmore, Ashland, MA 01721 - USA -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Formatting a Number with comma's
On Fri, 4 Jan 2013 16:02:58 -0500, John Gilmore wrote: >Perhaps another point of view will be of some interest. What the hell, here's another ... ... too early in the year for language flames-wars ... ;-) Shane ... -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Formatting a Number with comma's
On 1/4/2013 4:02 PM, John Gilmore wrote: Chapter 8 (Decimal Instructions) of the current PrOp contains full discussions of the EDIT and EDIT AND MARK machine instructions, which perform these operations elegantly, efficiently, and compactly. The OP asked for a way to remove commas from an EBCDIC "numeric" string; I see no way of using ED or EDMK to do this. The second question raised, of inserting commas, may have a model dependent answer. It's not clear whether packing a variable length number, then editing that would be faster than a translate after moving to a work area with pre- or post-fixed blank and comma. Gerhard Postpischil Bradford, Vermont -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
