RE: determine value of each bit in a character field -- RPG400-L

You just use bitand with single bit mask, and then compare to see if the
result is equal to the mask.
http://www.bmeyers.net/faqs/15-faqs/55-using-bitand-to-test-bits has a
good example.

Kevin Bucknum
Senior Programmer Analyst
MEDDATA/MEDTRON
Tel: 985-893-2550

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

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.