OpenCOBOLIDE中COBOL报表首页无数据输出问题求助

核心问题 #

报表首页仅打印表头无数据、直接跳至新页的根源是首次处理排序后记录时错误触发了表头重印逻辑：
在2100-INITIALIZE-RTN中，MOVE SR-CLASS-NUM TO WS-CLASS-HOLD执行时，还未通过RETURN读取任何排序文件记录，SR-CLASS-NUM属于未初始化的垃圾值。当第一条有效记录进来时，垃圾值必然与实际班级编号（1-4）不相等，触发2200-HEADING-RTN重新打印表头，导致首页仅显示初始表头，数据全部被推至第二页。

修复步骤 #

1. 修正WS-CLASS-HOLD的初始化逻辑 #

修改2100-INITIALIZE-RTN，移除无效的MOVE SR-CLASS-NUM TO WS-CLASS-HOLD，改为初始化一个无效的班级编号（比如0，实际班级为1-4）：

2100-INITIALIZE-RTN.
    INITIALIZE WORK-AREA
    MOVE FUNCTION CURRENT-DATE TO WS-DATE
    STRING
        MT-MONTH(WS-MONTH) DELIMITED BY ' '
        ' ' DELIMITED BY SIZE
        WS-DAY DELIMITED BY ' '
        ', ' DELIMITED BY SIZE
        WS-YEAR DELIMITED BY ' '
        INTO H2-DATE
    END-STRING
    SET MORE-RECORDS TO TRUE
    MOVE 0 TO WS-CLASS-HOLD.  // 初始化0，标记未处理过任何记录

2. 调整表头重印的判断条件 #

修改2300-PROCESS-RTN中的IF语句，排除初始状态（WS-CLASS-HOLD=0）的重印触发：

2300-PROCESS-RTN.
    IF (WS-CLASS-HOLD NOT = SR-CLASS-NUM AND WS-CLASS-HOLD NOT = 0) OR WS-LINE-CTR > 25
        PERFORM 2200-HEADING-RTN
    END-IF
    MOVE SR-CLASS-NUM TO WS-CLASS-HOLD
    // 后续代码保持不变

3. 可选优化：表头空行的明确控制 #

2200-HEADING-RTN中的空行WRITE建议明确添加AFTER 1，避免不同COBOL编译器的行为差异：

2200-HEADING-RTN.
    MOVE SPACES TO REPORT-REC
    WRITE REPORT-REC AFTER 1  // 明确指定空行位置
    ADD 1 TO WS-PAGE-CTR
    MOVE WS-PAGE-CTR TO H1-PAGE-CTR
    WRITE REPORT-REC FROM HEADING1
        AFTER 4
    WRITE REPORT-REC FROM HEADING2
        AFTER 1
    WRITE REPORT-REC FROM HEADING3
        AFTER 2
    WRITE REPORT-REC FROM HEADING4
    MOVE ZEROS TO WS-LINE-CTR.

修复原理 #

• 初始化WS-CLASS-HOLD为0，明确标记“尚未处理任何班级记录”的初始状态
• 表头重印逻辑仅在已有处理记录且班级变更，或行计数器超限时触发，避免首次记录触发不必要的换页
• 明确空行的WRITE行为，保证跨编译器的一致性

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