Cobol将form-feed char写入文件

Question

我有文件定义

           select bankd-file assign to f-bankd-file
              file status is wx-fstat
              organization line sequential.
   fd  bankd-file.
  ****************
   01  bankd-rec                pic x(80).

我正在逐行写这个文件，只需用write命令就可以了。在一行中，我还需要编写换页符。这个角色我定义为

01 w-ff pic x value x'0C'.

但是在输出文件中，我之前有form-feed char NUL char。请问我怎么能摆脱这个NUL char？其他字符写得没有任何问题。

Answer 1

问题没有指定使用的COBOL编译器因此我们只能猜测。不同的编译器包括x'00'之前＆＃34;非文本数据＆＃34;确保它可以正确读取（这主要是在有人试图编写可能包含换行符和/或换页符的COMP项目时完成的。

您的编译器无法使用 ，但通常可以这样做：

WRITE bankd-rec FROM SPACES BEFORE ADVANCING PAGE

（执行此操作FROM SPACES / BEFORE时，您无需AFTER您希望获得表单Feed的记录

Answer 2

对于Micro Focus COBOL，您可以使用extfh.cfg中的INSERTNULL=OFF

在非测试数据之前关闭x“00”