%DECPOS Example

      * 
      * Description :·%DecPos() Example
      *
      * Syntex      :
      *
      * %DecPos(Numeric Expression)
      *
      * Function    :·Return No. of decimal positions for given Expression
      *
      * Note        :·Given Expression must not be a float value
      *==========================================================
      *
     D DecPosition     S              5U 0                                       Unsigned Integer

     C
      /Free
           DecPosition = %DecPos(123.456) ;
           Dsply DecPosition ;                      // 3

           DecPosition = %DecPos(1234.56) ;
           Dsply DecPosition ;                      // 2

           DecPosition = %DecPos(123.45 * 6.789) ;
           Dsply DecPosition ;                      // 5

           DecPosition = %DecPos(123) ;
           Dsply DecPosition ;                      // 0
      /End-Free
     C                   SetOn                                        LR