*----------------------------------------------------------------------*
*       FORM REMOVE_ZEROS
*----------------------------------------------------------------------*
* [+] Removes the zeros from the left of the field
*----------------------------------------------------------------------*
FORM remove_zeros
  CHANGING
    p_text TYPE c.

  DATA:
    lv_field_length TYPE i,
    lv_copy_length  TYPE i.

  DESCRIBE FIELD p_text LENGTH lv_field_length.

  lv_copy_length = lv_field_length - 1.

  WHILE p_text(1) = '0'.
    WRITE p_text+1(lv_copy_length) TO p_text+0(lv_field_length).
  ENDWHILE.

ENDFORM.