Definiere doch einfach ein Parameterfeld mit
d MyNum 8p 0
d MyRet 8p 0

im Code ermittle das erst numerische Zeichen und wandle um mit:
eval MyNum = %dec(substr(MyAlpha:sPos:rLen):8:0)

sPos = Startposition
rLen = Restlänge

Dann rufe das Programm einfach mit

CALL 'MYPROG'
PARM PARM1
PARM MyNum
PARM MyRet

auf.
Wenn du MyRet wieder alpha habe willst:
a) %char(MyRet) = linksbündig ohne Vornumm
b) %editc(MyRet:'X') = mit Vornullen