RPGLE 仅用于非空字段的前导零

RPGLE Leading zeros for non empty field only

我有一个子文件,其中第一条记录用作添加新文件记录的字段。它必须看起来像这样。

___ ___ ___
FOO 001 002
BOO 003 004

一些字段必须是带前导零的数字。同时对于第一行,它必须不是零,而是空字段。除了将所有此类字段转换为 char 或从子文件中排除 "add row" 之外,是否有任何解决方案?

将字段定义为字符,并在值为数字时使用 %editc 函数填充它。

假设这些是仅输出字段,您可以在带有数字字段的子文件中保留添加行,但将 DSPATR(ND) 关键字放在不应显示在第一行的字段上。将 DSPATR(ND) 与第一行设置为 *ON 但所有后续行都设置为 *OFF 的指标相关联。