Form para eliminar ceros de la izquierda (SAP-ABAP)

*&---------------------------------------------------------------------*
*&      Form  F_ALPHA_O
*&---------------------------------------------------------------------*
FORM f_alpha_o  CHANGING p_v.

  WRITE p_v TO p_v USING EDIT MASK '==ALPHA'.
  CONDENSE p_v.

ENDFORM.                    " F_ALPHA_O

Llamada a la form:

DATA: lv_variable TYPE c LENGTH 5 VALUE '00005'.

PERFORM f_alpha_o CHANGING lv_variable.