COBOL代码生成中如何去除奇数行的尾随空格？

一、TRIM函数引号异常的修正 #

COBOL中FUNCTION TRIM的语法里，DELIMITED BY SPACE不需要加引号——SPACE是COBOL内置特殊字，直接使用即可。若你写成DELIMITED BY "SPACE"，会触发引号相关语法错误。正确用法示例：

MOVE FUNCTION TRIM(isEven, TRAILING) TO output-line

• 若需修剪首尾空格，用FUNCTION TRIM(isEven, BOTH)；仅剪尾部用TRAILING参数
• 若isEven是数值型字段，需先转字符型再修剪：

  MOVE FUNCTION TRIM(FUNCTION CHAR(isEven)) TO output-line
  

二、PERFORM-VARYING循环处理失败的修正 #

循环失效通常是因为未正确定位最后一个非空格字符，以下是可靠的尾部空格修剪逻辑：

WORKING-STORAGE SECTION.
01  generated-line    PIC X(80).
01  last-valid-pos    PIC 9(03) VALUE 0.
01  idx               PIC 9(03) VALUE 0.

PROCEDURE DIVISION.
    PERFORM VARYING idx FROM LENGTH OF generated-line DOWN TO 1
        UNTIL generated-line(idx:1) NOT = SPACE OR idx = 1
        COMPUTE last-valid-pos = idx
    END-PERFORM
    IF last-valid-pos < LENGTH OF generated-line
        MOVE SPACES TO generated-line(last-valid-pos+1:)
    END-IF

核心逻辑：从字段末尾向前遍历，定位第一个非空格字符，再将后续位置置为空格。

三、奇数行尾随空格的根源排查 #

仅奇数行出现问题，需重点检查生成逻辑：

• 确认奇数行使用的输出字段是否为固定长度字符型字段（COBOL固定长度字段默认补空格），而偶数行已做动态修剪或使用了可变长度字段
• 检查输出语句：若用DISPLAY输出固定长度字段，会自动补空格；需改为DISPLAY FUNCTION TRIM(generated-line)或输出修剪后的字段
• 排查奇数行生成逻辑中是否存在额外的空格赋值操作

四、快速验证方案 #

在奇数行输出前强制添加尾部修剪逻辑，验证是否解决问题：

IF line-number IS ODD
    MOVE FUNCTION TRIM(generated-line, TRAILING) TO generated-line
END-IF
DISPLAY generated-line

若生效，说明根源是奇数行未做尾部修剪，再针对性优化生成逻辑即可。

内容的提问来源于stack exchange，提问作者Eldigan of Nordion