RE: determine value of each bit in a character field

["Monnier, Gary" <Gary.Monnier@xxxxxxxxx>]

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.