Esta rutina es mejorable, ya que puede ocurrir que el último caracter sea numérico, y considere toda la variable como tal.
Para evitar esto, podría ser:
v_len = 12.
v_pos = 0.
DO v_len TIMES.
p1 = variable+v_pos(sy-tabix).
ADD 1 TO v_pos.
IF p1 CN '0123456789'.
paso = 'x'.
ENDIF.
ENDDO.
*** Si es un número lo agrego a la tabla de órdenes secundarias
IF paso is initial.
**** Variable Es numérica ****
ENDIF.
endif.
|