RE: %char in /free

Using a figurative constant does not work in this situation. :(
You'd have to create a field named whatever (e.g., ZEROS) and use it
instead of *ZEROS or *ALL'0'.

Bob Cozzi

> 
> Good suggestion Rick, but just in case the size of ALPHA may change
> can 
> you do:
>                  EvalR alpha = *all'0' + %Char(numeric);
> 
> Technically, if you want to mess with someone's mind, the book
says:
> *ON/*OFF 
> *ON is all ones ('1' or X'F1'). *OFF is all zeros ('0' or X'F0').
> Both are 
> only valid for character fields. 
> 
> So, therefore
>                  EvalR alpha = *off + %Char(numeric);
> should work.
> 
> Rob Berendt
> -- 
> "They that can give up essential liberty to obtain a little
> temporary 
> safety deserve neither liberty nor safety." 
> Benjamin Franklin 
> 
> 
> 
> 
> "Chevalier, Rick" <Rick.Chevalier@xxxxxxxxxxxxxxx>
> Sent by: rpg400-l-bounces+rob=dekko.com@xxxxxxxxxxxx
> 04/21/2003 08:20 AM
> Please respond to RPG programming on the AS400 / iSeries
>  
>         To:     "'RPG programming on the AS400 / iSeries'" 
> <rpg400-l@xxxxxxxxxxxx>
>         cc: 
>         Fax to: 
>         Subject:        RE: %char in /free
> 
> 
> Hans wrote:
> %EDITC(numeric:'X') is no good since the result doesn't include the
> decimal point. You'd have to insert the decimal point back into the
> string. The only way to get what Andrew wants is with an edit word,
> but then, Andrew wants to avoid editing.
> 
> Hans,
> 
> This can be accomplished without an edit word using this statement:
> 
>                  EvalR alpha = '000000000' + %Char(numeric);
> 
> Rick
> 
> 
> _______________________________________________
> 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.cgi/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.
> 
> 
> _______________________________________________
> 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.cgi/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.