Question

How can one express bitwise logical operations in mainframe COBOL?

I have:

       01  WRITE-CONTROL-CHAR.
           03  WCC-NOP           PIC X VALUE X'01'.
           03  WCC-RESET         PIC X VALUE X'02'.
           03  WCC-PRINTER1      PIC X VALUE X'04'.
           03  WCC-PRINTER2      PIC X VALUE X'08'.
           03  WCC-START-PRINTER PIC X VALUE X'10'.
           03  WCC-SOUND-ALARM   PIC X VALUE X'20'.
           03  WCC-KEYBD-RESTORE PIC X VALUE X'40'.
           03  WCC-RESET-MDT     PIC X VALUE X'80'.

In Micro Focus COBOL, I could do something like:

WCC-NOP B-AND WCC-RESET

but it seems there’s no such operator on the mainframe (or at least not in Enterprise COBOL for z/OS).

Is there some (hopefully straightforward!) way to simulate/replicate bitwise logical operations in mainframe COBOL?

Answer 1

Your best bet appears to be ‘CEESITST’, as it appears to exist in z/OS COBOL. I found an example using that as well as the other bit manipulation programs.

http://esj.com/articles/2000/09/01/callable-service-manipulating-binary-data-at-the-bit-level.aspx