%FLOAT Example

      * 
      * Description :·%Float() Example
      *
      * Syntex      :
      *
      * %Float(Numeric Expression)
      *
      * Output      :·Float value
      *
      *=====================================================
      *
     D FloatVar        S              8F

     C
      /Free
          FloatVar = %Float(100) ;
          Dsply  FloatVar ;            // +1.000000000000000E+002

          FloatVar = %Float(10 * 15.5) ;
          Dsply  FloatVar ;            // +1.550000000000000E+002

      /End-Free
     C                   SetOn                                        LR