问题标签 [dfsort]

简而言之，我正在一个项目中转换这个遗留的 IBM 大型机系统，主要是用 COBOL 和 HLASM 编写的——我遇到了一些超出我作为 .Net 开发人员知识范围的事情。

我正在复制一个表格排序过程：

输入是“表格”和“排序控制字段”

该表实际上只是一个表示为 BYTE（0 到 256）的字符数组。

控制字段是控制字段的索引。

基于此控制字段，我应该按 EBCDIC 升序整理顺序对其进行排序。

在 EBCDIC 升序整理序列中对控制字符进行排序是什么意思？

我有两个 GDG 文件（-1 和 0 版本）。使用这两个文件需要生成一个平面文件，该文件将包含插入记录（不在-1版本但在+0版本的记录），删除记录（在-1版本但不在+0版本的记录) 和更新记录（两个版本中的记录，但 +0 版本的某些字段可能有更改）。我怎样才能得到那些更新记录？我可以使用 Joinkeys 来做到这一点，如果可以，如何？

注意：更新可以是从第 1 列到文件最后一列的任何位置（GDG 的+0 版本）

有一张 DB2 表，其主键为 4 字节整数。现在我必须将该表的行数加倍。我的一种方法是，通过将表卸载到数据集来操作键值，并保持所有列的详细信息不变。这样我就可以将行加倍。我打算将每个主键与值“-1”相乘，这样我将得到另一行具有相同细节的行，但键为负值。我在数据操作方面工作不多。我可以为此使用 SORT 实用程序吗？如果是，那么如何？有没有可用的参考资料？

我正在尝试将标头添加到大型机文件中，但我发现了这一点：

我需要第 2 行和第 5 行吗？第5个会完成什么？

抱歉，我正在学习如何为大型机编写代码。

我的任务是编写一个调用 ICETOOL/DFSORT 来生成报告的 JCL 作业。该报告将 VSAM KSDS 作为输入并生成银行分行列表。

BRANCHES KSDS 中的每条记录的格式为

• 4 字节二进制无符号整数，表示 6 位十进制分支排序码（例如 420101）

• 1 字节 EBCDIC 标志： ◦ EBCDIC 'A' 表示该分行归 ZeusBank 所有，其所有帐户都保存在 ACCOUNTS KSDS 中

◦ EBCDIC 'B' 表示该分行不归 ZeusBank 所有，因此我们不在 ACCOUNTS KSDS 中保存其账户信息

• 32 字节EBCDIC 字符分支名称（例如“ZEUSBANK FOOFORD BAR STREET”或“OTHERBANK QUUXHAM BAZ ROAD”），右侧填充空白。

报告应如下所示

我对 JCL 很陌生，所以如果问题很简单，请原谅。谢谢。

我正在尝试从 VSAM KSDS 创建报告。运行作业时出现此错误

这是我的代码

任何人都可以帮忙吗？谢谢。

我有一个 VSAM

• 4 字节二进制无符号整数，表示 6 位十进制分支排序码（例如 420101）

• 4 字节二进制无符号整数，表示 8 位帐号（例如 12345678）

• 4 字节有符号整数，用于保存账户当前余额

• 32 字节 EBCDIC 字符帐户所有者名称（例如“PAT JONES”），右侧填充空白

我想生成如下报告

我试图这样做

但是有很多排序代码。我正在考虑对所有输入进行排序，然后在这些排序代码行下方将具有相同排序代码的每条记录相加。JCL有什么办法可以做到吗？谢谢。

我有一个顺序数据集，形式如下

最后 2 个字节（位置 71 和 72）是 AA、AB、BA 或空白的单独 CH。我正在尝试对此输入进行排序并创建 AA、AB、BA 部分的报告，并忽略没有 AA、AB 或 BA 的记录。每个部分的每一行显示出纳员姓名（上图 SHE0009，位置 23）和付款（上图 120，AA 前 11 个字节，位置 60）。每个部分的最后一行汇总了该部分的所有付款。

这是我的代码

我收到错误SORTIN - DATA SET SHECISC.ZEUSBANK.TXNOFFLD NOT FOUNDI - STEP WAS NOT EXECUTED.任何人都可以看到为什么找不到我的数据集，如果可能的话，这是产生我想要的结果的代码。谢谢。

我想知道，是否可以通过REXX调用DFSORT？我使用了下面的代码，但结果并不如预期。

我正在使用 DFSORT 将磁带数据集复制到临时文件，并处理大约 80000000 条记录。复制数据集需要 3 个小时。有没有其他方法可以减少 CPU 时间。建议将非常有帮助。谢谢你。