Konwertuj bitową operację Delphi na Cobol - delphi, cobol, operatory bitowe

Jak ten kod można przekonwertować na COBOL?

Result := GetSysColor(Color and $000000FF)

Typy wartości to DWORD, myślę, że jest to operacja bitowa.

Odpowiedzi:

Tak, jest to operacja bitowa, jednak ta konkretna operacja jest równoważna

COMPUTE Result = Color mod 256.

Lub

COMPUTE Result = MOD(Color, 256).

Jeśli dobrze pamiętam mój COBOL. Tak było dziesiątki lat lata odkąd wkroczyłem w linię COBOL.