|
Sheesh. I really *did* RTFM! It was right under my nose and I missed it. <sheepish grin> Thanks Rick! - Dan --- "Chevalier, Rick" <Rick.Chevalier@xxxxxxxxxxxxxxx> wrote: > Dan, > > It's the comma. The following is taken from the RPG reference manual. > > *----------------------------------------------------------------- > * If the character data is known to contain non-numeric characters > * such as thousands separators (like 1,234,567) or leading > * asterisks and currency symbols (like $***1,234,567.89), some > * preprocessing is necessary to remove these characters from the > * data. > *----------------------------------------------------------------- > D data s 20a inz('$1,234,567.89') > D num s 21p 9 > /free > // Use the %XLATE builtin function to replace any currency > // symbol, asterisks or thousands separators with blanks > num = %dech(%xlate('$*,' : ' ' : data) > : 21 : 9); > // If the currency symbol or thousands separator might > // vary at runtime, use variables to hold these values. > num = %dech(%xlate(cursym + '*' + thousandsSep : ' ' : data) > : 21 : 9); > > Rick __________________________________________________ Do you Yahoo!? Yahoo! Platinum - Watch CBS' NCAA March Madness, live on your desktop! http://platinum.yahoo.com
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.