Re: determine value of each bit in a character field

Jim,

You could also use this:
http://iprodeveloper.com/rpg-programming/utility-simplify-working-bits -
it's an article (with code) that I wrote 9 years ago...

Specifically, the bitmatch() procedure, which you would invoke like this:

// Is the 3rd bit on in the byte?
if bitmatch( byte : 'xx1xxxxx' );
dsply 'Yay! Bit 3 is on!';
else;
dsply 'Boo! Bit 3 is off!';
endif;

All you need to do is copy the two procedures below into your code (with
appropriate PR's). Yes, I know bitform() is in fixed-format - I wrote it
years ago. Bit it's very fast, and the combination of bitform() and
bitmatch() is (to me, at least) so much more intuitive that %BITAND and its
ilk...

bitform():

*=====================================================================
* bitform(): Get bit pattern of character string
*=====================================================================
P bitform B Export
D PI 8A
D Char 1A Const
*---------------------------------------------------------------------
D RtnVal S 8A Inz
D SavInd S 8A Inz
*---------------------------------------------------------------------
*
* Save existing indicators 50 - 57.
*
C Movea *IN(50) SavInd
*
C Testb '0' Char
50 (on)
C Testb '1' Char
51 (on)
C Testb '2' Char
52 (on)
C Testb '3' Char
53 (on)
C Testb '4' Char
54 (on)
C Testb '5' Char
55 (on)
C Testb '6' Char
56 (on)
C Testb '7' Char
57 (on)
*
* Set up return value, reset original indicators 50 - 57 and return.
*
C Movea *IN(50) RtnVal
C Movea SavInd *IN(50)
C Return RtnVal
*
C *PSSR Begsr
C Movea SavInd *IN(50)
C Return *All'0'
C Endsr
*
P E

bitmatch():

*=====================================================================
* bitmatch(): Return bitmatch value
*=====================================================================
P bitmatch B export
D PI N
D p_char 1A const
D p_pattern 8A const
*---------------------------------------------------------------------
D char DS qualified
D array 1A dim(8)
D pattern DS qualified
D array 1A dim(8)
D b S 10I 0 inz
*---------------------------------------------------------------------
/free

pattern = %xlate( 'x' : 'X' : p_pattern );
char = bitform( p_char );

for b = 1 to 8;
if pattern.array( b ) <> 'X' and
pattern.array( b ) <> char.array( b );
return *off;
endif;
endfor;

return *on;

begsr *pssr;
return *off;
endsr;

/end-free
P E

HTH,

Rory

On Wed, Jul 8, 2015 at 4:02 PM, Vernon Hamberg <vhamberg@xxxxxxxxxxxxxxx>
wrote:

Jim

Others have mentioned more - here's a little more from my remote brain
corners -

You can create masks - single-bit masks. Then if %bitand of your value and
the mask IS the mask, then that bit is on - I forget what data type %bitand
returns.

HTH
Vern


On 7/8/2015 1:59 PM, Jim Franz wrote:

Mark - the explanation from Brian is what makes sense. Thanks for the
link.
And now I see Vern's example.
The problem (to me) for all the web example found (before) and the IBM ILE
RPG Reference Manual is there is an assumption you wanted to test "all
on",
"all off", and "some on".
but I need each value for bits 1, 5, 6, 7 (and they are each individual
values)
Was trying to use /free
Thanks (to all) for the help
Jim


On Wed, Jul 8, 2015 at 2:31 PM, Monnier, Gary <Gary.Monnier@xxxxxxxxx>
wrote:

You can always use the TESTB operation code. You just have to go back to

the classic RPG notation to use it.



-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jim
Franz
Sent: Wednesday, July 08, 2015 10:55 AM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: determine value of each bit in a character field

just for clarification, this is the definition of the 1 byte field I need
values for bits 1, 5, 6, 7

D QDBBITS06 1 1
D* QDBFRDEL 1 BIT
D* Reuse Deleted Records
D* (REUSEDLT)
D* 0 = The deleted record space
D* in the file's members is
D* NOT used again by the
D* system on Write (Insert)
D* requests to the file's
D* members (*NO).
D* 1 = The deleted record space
D* in the file's members is
D* used again by the system
D* on Write (Insert)
D* requests to the file's
D* members (*YES).
D* QDBRSV30 3 BITS
D* Reserved.
D* QDBFSQLT 1 BIT
D* SQL Table Indicator
D* 0 = The file is NOT an SQL
D* table.
D* 1 = The file is an SQL table.
D* QDBFMQT 1 BIT
D* SQL Materialized Query Table
D* Indicator
D* 0 = The file is not an MQT.
D* 1 = The file is an MQT.
D* QDBFSQPT 1 BIT
D* SQL Partitioned Table
D* Indicator
D* 0 = The file is not an SQL
D* Partitioned Table.
D* 1 = The file is an SQL
D* Partitioned Table.
D* QDBRSV31 1 BIT
D* Reserved.



On Wed, Jul 8, 2015 at 1:44 PM, Jim Franz <franz9000@xxxxxxxxx> wrote:

Am working with api QDBRTVFD.

If a 1 byte field has 8 bits, how do I determine the value of each bit?
(decades of RPGxx I've never been comfortable with bits)

Thanks,
Jim

--

This is the RPG programming on the IBM i (AS/400 and 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.

--
This is the RPG programming on the IBM i (AS/400 and 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.

--
This is the RPG programming on the IBM i (AS/400 and 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.