Re: %char in /free

[Hans Boldt <boldt@xxxxxxxxxx>]

Technically, neither of these work since figurative constants aren't 
allowed with the catenation operator. Ideally, you should have some 
solution that's independent of both the target of the assignment 
aand the size of the numeric variable.

Cheers! Hans

rob@xxxxxxxxx wrote:
> 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