需要从 COBOL pic 子句中删除前导空格？

Question

我需要能够从 Cobol PIC x(80) 中的字符串中删除所有前导空格

代码：

      UNSTRING ADDRESS DELIMITED BY SPACES INTO
 -             S-SP, ADDRESS              
 -    END-UNSTRING.                                         

然后我应该能够将字符串 ADDRESS 写入没有任何前导空格的文件。

错误代码：

775 IGYPS0088-S “UNSTRING”语句无效。应为“INTO”，但找到“INTOWS-SPACES”。该语句已被丢弃。

Answer 1

您在来源的第 7 列中指定了“延续”、减号/破折号。

非常、非常、很少需要延续。仅在继续文字时才需要它们。

从第 7 列中删除“-”。

我认为您的代码不会按照您的想法执行，但如果您对此有疑问，请提出一个新问题。

当文字继续时，结束引号不包括在被继续的行中。

   "ABCDE<and then column 72 arrives
-  "FGHIJ"

这个字面量在使用时将是“ABCDEFGHIJ”。

如果您在一行代码中使用延续，文本将被连接起来，没有任何中间空格，因此您的错误消息。