Ch 6_2. MOVING DATA II
Moving Numeric Literals to Numeric Fields
...
03 LEVEL-IN PIC 9999.
03 PRICE-OUT PIC 99V999.
...
MOVE 123 TO LEVEL-IN.
MOVE 12.34 TO PRICE-OUT.
Non-Numeric or Alphanumeric Move
... ...
03 NAME-IN PIC XXX VALUE 'ABC'. 03 NAME-OUT PIC X(5) VALUE 'DEFGH'.
When the receiving field is smaller than the sending field.
... ...
03 NAME-IN PIC XXXX VALUE 'ABCD'. 03 NAME-OUT PIC X(3).
Numeric Integer to Nonnumeric
... ...
03 NUM PIC 999 VALUE 312. 03 CODE-OUT PIC X(4).
MOVE 'ABC' TO CODE-OUT.