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 '
原文地址:https://www.cnblogs.com/kakaisgood/p/14242466.html