delphi - 将Delphi按位运算转换为Cobol

Question

该代码如何转换为COBOL？

Result := GetSysColor(Color and $000000FF)

值类型为DWORD，我想这是按位运算。

Answer 1

是的，这是按位操作，但是，此特定操作等同于

COMPUTE Result = Color mod 256.

要么

COMPUTE Result = MOD(Color, 256).

如果我正确记得我的COBOL。自从我为COBOL生产线以来已有几十年了。