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
