DTR> DECLARE OP1 PIC 99999999 LONG .;
       DTR> OP1 = 128+64+32 ;
       DTR> PRINT FN$BIT_NOT(OP1);

         FN$BIT
          NOT

              -225

       DTR>