Re: [MI400] Testing bit values

["Bruce Wilson" <bruce.wilson2@xxxxxxxxxxx>]

omittted an example ..

DCL DD   .HLSODT   CHAR(1)   AUTO;
.
.
AND   .HLSODT, HLSTYP,  X'80';
.
CMPBLA(B)    .HLSODT, X'00'/EQ ($gotolabel);
....above extracts the highorder bit of the byte a branches if the bit is zero
.
.

Bruce Wilson wrote:

> might try AND a bit pattern mask for bits you are testing and test for
> resulting zero  ..
>
> Ken Mitchell wrote:
>
> > I'd like to pick up the info returned in MATMATR option x'0168'  - Panel
> > Status Request.
> >
> > How do you test the value of an individual bit in MI?  Is there
> > a way in RPGLE ?
> >
> > Please be gentle - I've only started the occasional piece of coding in MI
> > this year :-)
> >
> > Ken
> >
> > _________________________________________________________________
> > Join the world’s largest e-mail service with MSN Hotmail.
> > http://www.hotmail.com
> >
> > _______________________________________________
> > This is the MI Programming on the AS400 / iSeries (MI400) mailing list
> > To post a message email: MI400@midrange.com
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/cgi-bin/listinfo/mi400
> > or email: MI400-request@midrange.com
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/mi400.
>
> "WorldSecure Server <safeway.com>" made the following
>  annotations on 07/10/02 18:04:26
> ------------------------------------------------------------------------------
> Warning:
> All e-mail sent to this address will be received by the Safeway corporate 
>e-mail system, and is subject to archival and review by someone other than the 
>recipient.  This e-mail may contain information proprietary to Safeway and is 
>intended only for the use of the intended recipient(s).  If the reader of this 
>message is not the intended recipient(s), you are notified that you have 
>received this message in error and that any review, dissemination, 
>distribution or copying of this message is strictly prohibited.  If you have 
>received this message in error, please notify the sender immediately.
>
> ==============================================================================
>
> _______________________________________________
> This is the MI Programming on the AS400 / iSeries (MI400) mailing list
> To post a message email: MI400@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/mi400
> or email: MI400-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/mi400.


"WorldSecure Server <safeway.com>" made the following
 annotations on 07/10/02 18:20:01
------------------------------------------------------------------------------
Warning:
All e-mail sent to this address will be received by the Safeway corporate 
e-mail system, and is subject to archival and review by someone other than the 
recipient.  This e-mail may contain information proprietary to Safeway and is 
intended only for the use of the intended recipient(s).  If the reader of this 
message is not the intended recipient(s), you are notified that you have 
received this message in error and that any review, dissemination, distribution 
or copying of this message is strictly prohibited.  If you have received this 
message in error, please notify the sender immediately.


==============================================================================