RE: %char in /free

["Johnson, Duane" <djohnson@xxxxxxxxxxxxx>]

  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
> 
> 
>