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

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);