====== 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}}