MainFrame小结(20110812)--MOVE ALL与INITIALIZE（cobol)

最新推荐文章于 2023-11-22 22:25:07 发布

weixin_30763455

最新推荐文章于 2023-11-22 22:25:07 发布

阅读量785

点赞数 1

原文链接：http://www.cnblogs.com/icescut/archive/2011/08/13/cobol_moveall_initailize.html

版权

MOVE ALL

上次说到MOVE字符类型（alphanumeric)是按左对齐原则的，但如果我想不断重复填充相同的字符呢？那就要用MOVE ALL了，比如MOVE ALL SPACE TO WS-A，那么WS-A空间将会全被填充为空格。

MOVE ALL有几个特性：

MOVE ALL后面的常量只能是一个字符。

MOVE ALL后面跟的只能是COBOL定义的常量（如SPACE，ZERO等等）和字面常量（就是单双引号中的字符，如'A','*'）。MOVE ALL后面不能跟数据项，比如MOVE ALL WS-B TO WS-A，是不允许的。但有一种替代的方法，就是使用INSPECT，如INSPECT WS-A REPLACING CHARACTERS BY WS-B。WS-A将从左到右不断用WS-B填充（WS-B必须是一个字节的）。

对于COBOL定义的常量（如SPACE，ZERO等等），MOVE 【COBOL常量】等同于MOVE ALL 【COBOL常量】。

例：

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

05 WS-A PIC X(5) VALUE 'ABCDE'.

05 WS-B PIC X(1) VALUE 'B'.

* 1.after move all zero

MOVE ALL ZERO TO WS-A

DISPLAY WS-A

* 2.after move all 'A'

MOVE ALL 'A' TO WS-A

DISPLAY WS-A

* 3.after replace by 'B'

INSPECT WS-B REPLACING CHARACTERS BY WS-B

DISPLAY WS-A

结果：

00000

AAAAA

BBBBB

INITIALIZE

INITIALIZE非常简单，就如你想的那样。初始化一个组合项，下面的子项：字母型（alphabet)和字符类型（alphanumeric）将被初始化为空格。数值型（numeric）将被初始化为0。编辑型（alphanumeric-edit)中占位的字符部分，如加号、点号等就初始为加号，点号，而数值部分初始为0。

值得注意的一点是FILLER和没有名字的数据项，INITIALIZE将不对他们进行操作。原因在于很多时候我们定义FILLER和没有名字的数据项都是为了不再改变他们的值。如果想改变他们还是有办法的，比如使用MOVE ALL SPACE TO WS-A，那么下面的FILLER和没有名字的数据项就变成空格了，或者算好他们的起始位置和长度，然后使用 MOVE WS-B TO WS-A（WS-START：WS-LEN）覆盖他们的值。