Looking for solution on my problem. The values I need to convert was in alphanumeric.

```
05 WS-NUM-TX.
05 WS-NUM  PIC P9(04).
05 WS-NUM1 PIC P9(03).
05 WS-NUM2 PIC P9(03).

MOVE '0001 222217' TO WS-NUM-TX.
MOVE WS-NUM-TX(1:4) TO WS-NUM.
MOVE WS-NUM-TX(6:3) TO WS-NUM1.
MOVE WS-NUM-TX(9:3) TO WS-NUM2.

```

I did `COMPUTE WS-NUM = FUNCTION NUMVAL(WS-NUM-TX)` for this to be numeric.

Now, the problem is, I need this values as decimal for computation. Need help to convert this values to become `.0001, .222 and .217` however the declaration
I did for external decimal displayed with no decimal point. Please help. Thank You.