Конвертировать побитовую операцию Delphi в Cobol

Question

Как этот код можно преобразовать в COBOL?

Result := GetSysColor(Color and $000000FF)

Типы значений: DWORD, я думаю, что это побитовая операция.

Answer 1

Да, это побитовая операция, однако, эта конкретная операция эквивалентна

COMPUTE Result = Color mod 256.

Или

COMPUTE Result = MOD(Color, 256).

Если я правильно помню свой КОБОЛ. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Прошло 1007 * десятилетий лет.