Convert Delphi Bitwise Operation to Cobol

Question

How can this code be converted to COBOL?

Result := GetSysColor(Color and $000000FF)

The value types are DWORD, I guess it is a bitwise operation.

Answer 1

Yes, it's a bitwise operation, however, this specifically operation is equivalent to

COMPUTE Result = Color mod 256.

Or

COMPUTE Result = MOD(Color, 256).

If I remember my COBOL correctly. It has been decades years since I worte a line of COBOL.