将Delphi按位运算转换为Cobol

Question

如何将此代码转换为COBOL？

Result := GetSysColor(Color and $000000FF)

值类型是DWORD，我想这是一个按位操作。

Answer 1

是的，这是一个按位操作，但是，这个具体的操作相当于

COMPUTE Result = Color mod 256.

或者

COMPUTE Result = MOD(Color, 256).

如果我没记错我的COBOL。自从我推出一系列COBOL以来，已经<罢工>几十年。