Extraer numeros de cadena alfanumerica

[Alfredosite]

Bueno lo que yo hize fue esto:
Si fuese entrada: +57 (1) 4253008

DO.
REPLACE '.' INTO p0105-usrid WITH ''.
REPLACE '+' INTO p0105-usrid WITH ''.
REPLACE '-' INTO p0105-usrid WITH ''.
REPLACE '(' INTO p0105-usrid WITH ''.
REPLACE ')' INTO p0105-usrid WITH ''.
IF sy-subrc NE 0.
EXIT.
ENDIF.
ENDDO.
condense p0105-usrid no-gaps.

Salida Saldria : 5714253008
^
Pero esta lógica no funcionaria en caso en ese campo tenga.

por ejemplo: 511 - 12A (1F) -14

Si fuese asi con caracteres no solo ( ),-,(,.,+) entonces seria poco mas de lineas por cada no caracter no numerico....tal haya alguna función por ahi??

Igual se agradece el aporte