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

Question

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

法典：

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

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

错误代码：

775 IGYPS0088-S "UNSTRING"语句无效。 预期"进入"，但找到"INTOWS-SPACES"。 该语句已被丢弃。

Answer 1

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

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

删除第 7 列中的"-"。

我不认为你的代码会按照你的想法去做，但如果你对此有问题，请问一个新问题。

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

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

使用时，此文字将是"ABCDEFGHIJ"。

如果在一行代码上使用延续，则文本将在没有任何中间空格的情况下连接起来，因此会出现错误消息。