【问题标题】:How to create a file with two entries in COBOL?如何在 COBOL 中创建一个包含两个条目的文件?
【发布时间】:2022-05-13 14:16:56
【问题描述】:

我有两个文件,第一个有日期,第二个有多个寄存器。 我想创建这样的东西:

输入文件 1:

20200509

输入文件 2:

0000001
0000002
0000003

输出

202005090000001
202005090000002
202005090000003

感谢你。

  • 您创建一个 COBOL 程序来读取日期文件,然后读取寄存器文件并写入输出文件。您在哪里遇到 COBOL 代码问题?
  • 您必须使用 COBOL 解决这个问题,还是允许其他解决方案(例如您的 SORT 产品)?
  • 请提供足够的代码,以便其他人可以更好地理解或重现该问题。
  • 请删除JCL 标签。这不是 JCL 问题。

标签: cobol mainframe


【解决方案1】:

建立两个字段的记录。我不会给你图片条款。 读取文件一并填充字段一。 (字段一结束)。 读取文件二并为每条记录填充字段二并写入输出记录。

字段一永远不会改变?

如果您有时间并且您的商店有它,请查看 JOINKEYS(填充?)。

文件一中的记录可能应该是一个参数。

是的,您需要打开和关闭文件,使用 filestat,并了解什么是启动读取。

如果您不介意糟糕的风格和 ANS COBOL c。 1972 见 https://github.com/mckenzm/join2files/blob/main/stackex1.cbl

(无文件统计,无异常(空文件)处理。)

【讨论】:

    猜你喜欢
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 2013-01-05
    • 1970-01-01
    • 2013-06-02
    • 2020-05-02
    • 1970-01-01
    • 1970-01-01
    相关资源
    最近更新 更多