Re: Bit Operations

["Beppe Costagliola" <beppecosta@xxxxxxxx>]

http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm
 Figure 167. Deriving TESTB Functionality from %BITAND


----- Original Message ----- 
From: "Fisher, Don" <dfisher@xxxxxxxxxxxxx>
To: <rpg400-l@xxxxxxxxxxxx>
Sent: Friday, May 27, 2005 6:05 PM
Subject: Bit Operations


> I've read the manual and searched the archives yet still don't understand
> this.  There is a character field returned by an IBM a.p.i. that contains
> information in individual bits (bit 0 is something, bit 1 is something
else,
> and so on) so I need a method of testing specific bits of this one
character
> field.  As near as I can tell, the following code should test bit 3 in the
> field to determine if it's on:
> IF %BITAND(Field : x'F3') <> x'00'
>
> Is this right?
>
> Thanks in advance for allaying my confusion.
>
> Donald R. Fisher, III
> Project Manager
> Roomstore Furniture Company
> (804) 784-7600 extension 2124
> DFisher@xxxxxxxxxxxxx
>
> -- 
> 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.
>