bit-manipulation - COBOL 中的按位逻辑运算符？

Question

如何在大型机 COBOL 中表达按位逻辑运算？

我有:

       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'.

在 Micro Focus COBOL 中，我可以执行如下操作:

WCC-NOP B-AND WCC-RESET

但在大型机上似乎没有这样的运算符(或者至少在 Enterprise COBOL for z/OS 中没有)。

是否有一些(希望是直接的!)方法可以在大型机 COBOL 中模拟/复制按位逻辑运算？

Answer 1

您最好的选择似乎是“CEESITST”，因为它似乎存在于 z/OS COBOL 中。我找到了一个使用它以及其他位操作程序的示例。

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