使用FILLER注意

FILLER:占用记录位置（通常使用VALUE对句进行赋初值）

类型为9时，以0填充；

类型为X时，以空格填充。

 

使用在程序中，通常为了将记录分开，便于查看。如：

01 PRINT-P.

      05 FILLER PIC X(6).               当作为第一个输出时，写入文件或是在终端查看时，，会出现乱码！

      05 YR-MON-DAY-P PIC 9(6).

      05 FILLER PIC X(2).

      05 PRODUCT-CODE-P PIC 9(4).

      ```````````

解决方法！！！：

 将FILLER改为变量名。 在使用MOVE赋值。（move逼value赋值更安全。。。此时使用value赋值同样出问题。）