RE: Question about %EDITW

Use
string = %editw(num:'-0           .  ');
not
string = %editw(num:'-0          .  ');

i.e. add an extra space.

HTH,

Charles Wilt
--
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
  

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx 
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Marvin Radding
> Sent: Thursday, January 12, 2006 11:20 AM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: Question about %EDITW
> 
> I am attempting to use %EDITW to create a character field for 
> a delimited file. 
> 
> Here is my test code:
> 
> D num             s             13p 2 inz(14.56)   
> d neg             s             13p 2 inz(-14.56)  
> d string          s             26a                
>  /free                                             //  Result
>    string = %editw(num:'-0          .  ');         //  STRING 
> = '  0000000014.56           ' 
>    string = %editw(num:'0          .  -');         //  STRING 
> = ' 0000000014.56            '  
>    string = %editw(neg:'-0          .  ');         //  STRING 
> = '  0000000014.56           '  
>    string = %editw(neg:'0           .  -');        //  STRING 
> = ' 00000000014.56-          ' 
>    *inlr = *on;                                    
>    return;                                         
>  /end-free                                         
>                                                    
> I have two problems.
> 
> 1. The first character of the number is blank when I want it 
> to be zero. (Not the negative sign)
> 2. I can't get a leading negative sign.
> 
> Any ideas on how to get the leading negative sign to appear 
> and other than %subst how do I get the leading zero to appear?
> 
> Thanks ahead of time.
> 
> Marvin
> 
> -- 
> This is the RPG programming on the AS400 / iSeries (RPG400-L) 
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
>