Add Comma to any Number

addcomma.rex

AddComma: Procedure   /* Code provided by Doug Nadel back before the turn of the century */                                
  arg bignum                                                                   
  cbignum = strip(translate('0,123,456,789,abc,def,ghi,jkl,mno,pqr,stu,vwx', , 
    right(bignum,34,','), ,                                                    
    '0123456789abcdefghijklmnopqrstuvwx'),'L',',')                             
  return cbignum