the code below works fine for me. it takes the 11 character string and converts it from
-1234567.89 to -001234567.89 numeric.
i verified this not only with using the DSPLY opcode but also with STRDBG and used F11 to view the actual value of field numeric.
d String s 11a Inz(‘-1234567.89′)
d Numeric s 11s 2
Numeric = %Dec(String :11 :2);
*InLr = *On;