MOVE 不同类型之间

MOVE截断

X类型是左对齐，9类型是右对齐

不同类型的数据之间进行MOVE的时候，先进行数据类型转换。
例如，MOVE  9(5)  TO  X(6), 先把9(5)转换成X(5)，再赋值给X(6)。

例：

结果：'12345'

 

01  A  pic X(5) VALUE "12345";
01  B  pic 9(6);
MOVE A TO B;
DISPLAY B;

结果：012345

 

01  A  pic 9(5) VALUE 12345;
01  B  pic X(6);
MOVE A TO B;
DISPLAY B; 

结果：'12345 '