|
midrange.com
Well, then, how about something that should work in all circumstances
("should" being the operative word here, I have not tested this)
/free
alpha = %xlate(' ':'0':%editc(numeric:'L'));
/end-free
This should provide a decimal, a negative sign when necessary, and leading
zeros.
Duane
Hans wrote:
> Yeah, that should work. (Of course, that still only works with
> non-negative values.)
>
> Cheers! Hans
>
>
> rob@xxxxxxxxx wrote:
> > then either
> > alpha = *all'0';
> > or
> > alpha = *off;
> >
> > followed by
> > evalr alpha = alpha + %char(numeric);
> >
> > would work?
> >
> > Rob Berendt
>
>
>
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.
