Question

I would like to ask, how to move number in Text, e.g: 01 A PIC X(6) value “200030”, to a number such as 01 B PIC 9(6) and I only want to extract the first 4 number of A. In Cobol this type of move using MOVE is forbidden, the move I used is MOVE A(1:4) to B.

Answer 1

It is not forbidden

you just need to

03  Field-x4              X(4).
03  Field-94              9(4).




  Move Field-X4            to Field-94