Re: [MI400] Is there an easy way to scan for bits?

[Harry Williams <planesmart@xxxxxxxxxxxx>]

Yes,
000001100111 = 63

Leif Svalgaard wrote:

> From: Harry Williams <planesmart@teleteam.com>
> > How would you access the table?
>
> Having 2^12 entries was based on you saying something
> about 12 bits. Your example numbers are max. 7 bits, so
> a much smaller table can be used.
>
> OOPS, my previous post forgot to shift left 4 bits.
>
> DCL DD BITS CHAR(2);
> DCL DD BIDX BIN(2);
> DCL DD TABLE(0:4095) BIN(2);
> DCL DD NBR BIN(2);
>
> CPYBLA BITS, SOURCE...
> CPYBTRLS BIDX, BITS, 4;
> CPYNV NBR, TABLE(BIDX);
>
> _______________________________________________
> 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.