Re: Edit out trailing 0's

[Alan <cfuture@xxxxxxxxxxx>]

> > "Ex:  .153000 to print like .153.."

This is an expanded version of how I would do it. My "normal" tendency is to 
wrap it all up into a single line (and that is doable) but I've been coming into thinking 
that when you break out the steps explicitly it's easier maintenance for the next guy 
(and that might be you)...

D nbr   s   8p 6 inz(1.153000' 
D char  s  12a 
D zero  s   1p 0 inz(*Zero)
D xpsn  s   5i 0 


// Convert to edited number with trailing zeros... 
//
char  = %editc(nbr:'P') ;  

// Check backwards to find the last character *NE zero...
//
xpsn = %checkr(zero:char) ;


// If xpsn = *Zero, there are no trailing blanks, and we're done
// Otherwise, just convert it to the substring that ends at xpsn, which // will 
"automatically" drop the trailing zeros
//
if idx > *zero ;
  char = %subst(char:1:idx) ;
endif ;




tim wrote:
> Give this a try:
>
> D d               s              8  6 inz(1.153)     
> D da              s              8    inz('1.153000')
>  /free                                               
>                                                      
>     da  = %XLATE('0':' ':                            
>           %editc(d:'O'):                             
>           %CHECKR('0':%editc(d:'O'))) ;              
>
>
>