Re: Bitwise ops in RPG (was: Re: Determining *DS4 support)

>Date: Tue, 14 Nov 2000 16:08:55 -0500
>From: Douglas Handy <dhandy1@bellsouth.net>
>
>Did you realize that V4R2 (or so) added MI builtins which, for all
practical
>purposes, already give you the equivalent function with nearly identical
syntax
>to the BIF version aside from the name?
> ...

Doug, Scott's question about more than 2 operands provides one reason
why bitwise builtins would be a useful enhancement.

%bitand (x : y : z : w)
or
x andb y andb z andb w

As I recall, using the MI builtins, you would need 3 callps to do
this:

callp  andstr(temp : x : y : len)
callp  andstr(temp : temp : z : len)
callp  andstr(temp : temp : w : len)

Barbara Morris


+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---