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
