Conversion de l'opération bit à bit Delphi en Cobol

Question

Comment ce code peut-il être converti en COBOL?

Result := GetSysColor(Color and $000000FF) 

Les types de valeur sont DWORD, je suppose que c'est une opération au niveau du bit.

Answer 1

Oui, il est une opération au niveau du bit, cependant, cette opération spécifique équivaut à

COMPUTE Result = Color mod 256. 

Ou

COMPUTE Result = MOD(Color, 256). 

Si je me souviens de mon COBOL correctement. Il a été décennies ans depuis que je vole une ligne de COBOL.