Re: COBOL Bit Manipulation

[Bruce Vining <bvining@xxxxxxxxxxxxxxx>]

Here's an article<http://www.brucevining.com/images/stories/CL_Articles/Working_with_Bits_Final.pdf>I
wrote a while back which demonstrates bit testing/setting from both CL
and
COBOL.It may be of use to you.

Bruce

On Wed, Jan 12, 2011 at 1:58 PM, Jason Abreu <
jason.abreu@xxxxxxxxxxxxxxxxxxxx> wrote:

> Does anybody have experience with bit manipulation in COBOL?
>
> I would like to be able to switch individual bits on/off in a single byte.
>
> I imagined something like:
>
> 01        WORK.
>   05      CHAR-BYTE      PIC X(01)    VALUE X'40'.
>   05      BINARY-REP     REDEFINES    CHAR-BYTE.
>     10    BIT-1          PIC 1.
>       88  BIT-1-ON                    VALUE B'1'.
>       88  BIT-1-OFF                   VALUE B'1'.
>     ... repeat for all 8 bits.
>
>
> So usage could be something like
>
> SET BIT-1-ON TO TRUE.
> MOVE CHAR-BYTE TO FILE-FIELD.
>
> Any ideas on this?
> Thanks, ahead of time!
> --
> Jason Abreu
> Abreu Innovations, Inc.
> jason.abreu@xxxxxxxxxxxxxxxxxxxx
> http://www.abreuinnovations.com/
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.