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 以来，已经有几十年了。