Bit Operation
This is a demo program for the bitand
built-in function.
*--------------------------------------------------------------- * Variablen *--------------------------------------------------------------- D flags S 2A inz(x'0000') D flag S 2A inz(x'0800') /free flag = flags; if ( %bitand(flags : flag) = x'0800' ); dsply 'yes'; else; dsply 'no'; endif; *inlr = *on; return; /end-free