delphi - Delphi のビット演算を Cobol に変換する

Question

このコードを COBOL に変換するにはどうすればよいですか?

Result := GetSysColor(Color and $000000FF)

値の型は DWORD です。ビット演算だと思います。

Answer 1

はい、それはビット単位の操作ですが、この具体的な操作は次と同等です

COMPUTE Result = Color mod 256.

または

COMPUTE Result = MOD(Color, 256).

私のCOBOLを正しく覚えていれば。COBOLのラインを書いてから数十年になります。