WRITE AFTER ADVANCING后直接WRITE内容同行 主流COBOL是否有相同表现？

你遇到的REC 3与REC 4输出在同一行的问题，根源是LINE SEQUENTIAL类型文件与WRITE语句行跳转参数的实现逻辑差异，主流厂商COBOL编译器的实际表现如下：

• IBM Enterprise COBOL：z/OS原生打印场景下默认遵循行步进规则，不会出现同行问题；如果导出为普通Windows文本文件且配置为LINE SEQUENTIAL组织类型，表现与你测试的结果完全一致，不带AFTER参数的WRITE语句默认不会追加换行符，直接写在当前文件偏移位置。
• Micro Focus COBOL：Windows平台默认编译配置下可100%复现你的输出结果，仅当WRITE语句带显式AFTER 1参数时，才会在记录末尾插入Windows标准的CRLF换行符。
• 富士通COBOL：Windows版默认配置同样会出现两条记录同行的问题，仅开启打印文件专用编译选项时，才会为所有WRITE操作自动追加换行。

跨编译器兼容的变通方案 #

方案1：统一WRITE语句写法 #

所有输出记录的WRITE语句都追加AFTER 1参数，你测试的写法是可行的，且该语法符合ANSI COBOL标准，上述三家厂商的编译器都原生支持，修改后所有记录会自动换行，输出文件可直接在Windows系统下正常查看。

方案2：修改文件定义为打印专用格式 #

调整FILE-CONTROL段的配置，启用行步进属性：

SELECT PRINT-FILE ASSIGN TO "X.TXT"
       ORGANIZATION IS RECORD SEQUENTIAL
       LINE ADVANCING 132 LINES.

该配置下WRITE语句即使不带AFTER参数，也会默认执行跳1行的逻辑，自动插入换行符。其中LINE ADVANCING参数对IBM Enterprise COBOL、Micro Focus COBOL、富士通COBOL均兼容，不需要额外适配。

方案3：后置处理输出文件 #

如果无法修改原有COBOL代码，可在程序运行完成后用脚本对输出文件做处理：识别换页符、未带换行的记录，统一补全Windows标准的CRLF换行符即可正常查看。

内容的提问来源于stack exchange，提问作者NoChance