MainFrame知识小结(20110808)--MOVE字符串类型

把字符串类型（alphanumeric)A MOVE给另一个字符串类型B通过有3种情况。

MOVE A TO B

    第一种情况，两者的长度一样，没什么好说的；

    第二种情况，A要比B长，原则是左对齐，多出的部分被截断；

    第三种情况，A要比B短，原则也是左对齐，少的部分补空格（X'40'）。

 

例：

---1----+----2----+----3----+----4----+----5--

     05 WS-CHAR1     PIC X(7)  VALUE 'ABCDEFG'.

     05 WS-CHAR2     PIC X(5).

     05 WS-CHAR3     PIC X(3)  VALUE '123'.

 

*LONG TO SORT

       MOVE WS-CHAR1 TO WS-CHAR2

       DISPLAY WS-CHAR2

*SORT TO LONG

       MOVE WS-CHAR3 TO WS-CHAR2

       DISPLAY WS-CHAR2

 

结果：

ABCDE

123bb                     b表示空格（x'40'）

转载于:https://www.cnblogs.com/icescut/archive/2011/08/08/cobol_move_alphanumric.html