>>393
01 A PIC X(5).

01 B.
03 C PIC 9(5).

MOVE A TO C.

つーかZONEの場合上位４ビットは無視されるからXタイプの変数に入っているものが
１２３のような数字の場合そのままMOVEしても平気