DTR> DECLARE SOURCE PIC 99999999 LONG .;
       DTR> DECLARE I LONG .;
       DTR> SOURCE = 7 ;
       DTR> I = 0;
       DTR> REPEAT 6
       CON>    BEGIN
       CON>    PRINT FN$BIT_EXTRACT(SOURCE,I,1);
       CON>    I = I+1;
       CON>    END

         FN$BIT
         EXTRACT

                 1
          1
          1
          0
          0
          0
       DTR>