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:
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!
Abreu Innovations, Inc.
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L)
mailing list To post a message email: COBOL400-L@xxxxxxxxxxxx To
subscribe, unsubscribe, or change list options,
or email: COBOL400-L-request@xxxxxxxxxxxx Before posting, please take
a moment to review the archives at
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.