Re: determine value of each bit in a character field

[Vernon Hamberg <vhamberg@xxxxxxxxxxxxxxx>]

The free-form BIF %bitand() will do it - to see if the 2nd bit from the 
right is on, you'd do this -

%bitand(yourbyte : x'02')

HTH
Vern

On 7/8/2015 12:55 PM, Jim Franz wrote:
> 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