problem bei Call übergabe parameter numerisch gepackt

[labm]

Um genau zu sagen:

von ist bekannt
Zeichen folge
'blablaAF/123456/15blabla'

was ich davon weiss ist di start position
i diesem fall 10 länge 7 vobei nur 6 stellenim diesem fall relevant sind dass heisst am ende muss es so aussehen x'0123456F' dal als übergabe 7,0 erwartet wird.

[woki]

dann muß es so aussehen:
CallPgm = 'call pgm(Prog) parm(X''0' + %subst(Feld:10:6) + 'F'')'

[labm]

wie es aussehen muss weiß ich. die frage wie kann mann es automatisieren und dabei veriabel bleiben.

unterprogramm mit übergabe parameter und rückgabe wert aufbereitet im gepacten hexa format.

übergabe parameter
parm 1 --> 123456
parm 2 ---> länge rückgabe 7,0
parm3 --> rückgabe wert x'0123456F'

oder
parm 1 --> 135,52
parm 2 ---> länge rückgabe 11,2
parm3 --> rückgabe wert x'00000013522F'

[Fuerchau]

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