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