COBOL生成CSV文档时如何消除数值前的空格？

首先，咱们来定位问题根源：你定义的**W-Z18 PIC -(12),99**编辑格式是导致前置空格的核心原因。这个格式会为数值符号预留一个位置——当数值为正时，这个位置会填充空格；同时，编辑项的整数部分定义了12位长度，但你的实际存储字段H-ZYSR-MONTAN是S9(11)V9(2)（整数部分最多11位），多出来的一位也会被空格填充，双重叠加就出现了输出的前置空格。

下面给你几个可行的解决方案，按需选择：

方案1：精准匹配数值长度的编辑项定义 #

直接调整W-Z18的PIC格式，让它完全匹配H-ZYSR-MONTAN的数值范围，同时优化符号显示：

05 W-Z18 PIC -9(11),99.

这个格式的整数部分正好是11位，符号位在最前端：负数会显示-，正数的符号位原本是空格，但因为长度刚好匹配，不会额外多出来空格。如果你的数值不需要千分位分隔符，这个方案最直接。

要是你希望正数完全没有符号位占位的空格，也可以把符号放在末尾：

05 W-Z18 PIC 9(11),99-.

这样正数的输出会是2223,55，负数则是10,98-，完全没有前置空格。

方案2：用INSPECT语句去除前置空格 #

如果暂时不想修改编辑项定义，可以在MOVE操作后，通过INSPECT清除前置空格：

IF H-ZYSR-MONTAN < 0
    MOVE 0 TO W-Z18
ELSE
    MOVE H-ZYSR-MONTAN TO W-Z18
END-IF
* 清除所有前置空格
INSPECT W-Z18 REPLACING LEADING SPACES BY ''

这个操作会把W-Z18开头的所有空格去掉，正数输出就不会有前置空格，负数的-会保留在最前端。

方案3：使用COBOL 2008的TRIM函数 #

如果你的编译器支持COBOL 2008标准，可以直接用TRIM函数简化操作：

IF H-ZYSR-MONTAN < 0
    MOVE 0 TO W-Z18
ELSE
    MOVE H-ZYSR-MONTAN TO W-Z18
END-IF
* 仅去除前置空格
MOVE FUNCTION TRIM(W-Z18 LEADING) TO W-Z18

这个方法代码更简洁，效果和方案2一致。

另外，顺便提一句：你原来代码里的两个IF分支（判断正负）可以合并成一个ELSE分支，让代码更简洁易读，就像上面示例里那样。

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