/ / डेल्फी बिटवाइज़ ऑपरेशन को कोबोल में परिवर्तित करें - डेल्फी, कोबोल, बिटवाइज़-ऑपरेटर्स

डेल्फी बिटवाइज ऑपरेशन कोबोल - डेल्फी, कोबोल, बिटवाई-ऑपरेटर में कनवर्ट करें

इस कोड को COBOL में कैसे बदला जा सकता है?

Result := GetSysColor(Color and $000000FF)

मान प्रकार DWORD हैं, मुझे लगता है कि यह एक बिटवाइज़ ऑपरेशन है।

उत्तर:

उत्तर № 1 के लिए 4

हां, यह एक बिटवाइज ऑपरेशन है, हालांकि, यह विशेष रूप से ऑपरेशन के बराबर है

COMPUTE Result = Color mod 256.

या

COMPUTE Result = MOD(Color, 256).

अगर मुझे अपना COBOL ठीक से याद है। यह किया गया है दशकों जब से मैं COBOL की एक पंक्ति को मिटा रहा हूँ।