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