Remove 0's right of number

Question

hi all,
can u plx to suggest me one function to remove the rights 0's after comma?
I do it with offset, but I need a function:
here my code:
obs: I'm doing it to study...
DATA: num(50) VALUE '1101010.100110000000000000',
      num2(50),
      cont(2).
cont = strlen( num ).
WHILE num+cont(1) = 0.
  cont = cont - 1.
ENDWHILE.
cont = cont + 1.
num2 = num(cont).
WRITE: num, / num2.
I try with write to using no-zero but it's remove left zeros...
Thx all
Regards
Allan Cristian

Answer 1

This might help you...Feel free to do any need modifications -:)
  DATA: long TYPE i,
        char TYPE c,
        zero TYPE c,
        counter TYPE i,
        new_text(18) TYPE c,
        flag TYPE c.
  zero = '0'.
  long = STRLEN( t_codigo ).
  DO long TIMES.
    counter = counter + 1.
    IF counter EQ long.
      EXIT.
    ENDIF.
    char = t_codigo+counter(1).
    IF char NE zero.
      CONCATENATE new_text t_codigo+counter(1)
      INTO new_text.
      flag = 'X'.
    ELSE.
      IF flag EQ space.
        CONTINUE.
      ELSE.
        CONCATENATE new_text t_codigo+counter(1)
        INTO new_text.
      ENDIF.
    ENDIF.
  ENDDO.
  t_codigo = new_text.
Greetings,
Blag.