需要从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列中指定了“continuation”，减号/破折号。

非常非常非常需要延续。它们仅用于继续文字。

从第7列中删除“ - ”。

我认为您的代码不会按照您的想法行事，但如果您遇到问题，请提出新问题。

当一个文字继续时，结尾的引用不会包括在内线继续。

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

使用时，这个文字将是“ABCDEFGHIJ”。

如果在一行代码上使用continuation，则文本将连接在一起而没有任何插入空格，因此您的错误消息。