User Tools

Site Tools


rpg:bit_operation

This is an old revision of the document!


A PCRE internal error occured. This might be caused by a faulty plugin

====== Bit Operation ======= This is a demo program for the ''bitand'' built-in function. <code> *--------------------------------------------------------------- * 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 </code> {{tag>devel rpg example}}

rpg/bit_operation.1371471186.txt.gz · Last modified: 2013/06/20 07:00 (external edit)