Convertire Delphi Bitwise Operazione da Cobol

Question

Come può questo codice venga convertito in COBOL?

Result := GetSysColor(Color and $000000FF)

I tipi di valore sono DWORD, credo che sia un'operazione bit per bit.

Answer 1

Sì, è un'operazione bit per bit, tuttavia, questa particolare operazione è equivalente a

COMPUTE Result = Color mod 256.

o

COMPUTE Result = MOD(Color, 256).

Se non ricordo male il mio COBOL. E 'stato decenni anni da quando ho Worte una linea di COBOL.