0

我有一个程序正在读取文件（FILE1）。对于 FILE1 中的每条记录，它都会获取字段“A”，并在 FILE2 中搜索以查找具有字段“B”匹配值的记录。当 A = B 时，两个文件中的一些字段被读出。该程序目前正在使用如下代码。但是，问题是我在循环中多次打开和关闭 FILE2。我在没有打开循环内的文件的情况下尝试了这个，但是如果我这样做了，我会得到重复的记录，因为 FILE2 是从上一次搜索停止的地方读入的。每次从 FILE1 读取新记录时，有什么方法可以指向 File2 的开头？代码如下：

READ FILE(FILE1) INTO (IN_LAYOUT);
    DO WHILE (MORE_RECS1);
       OPEN FILE(FILE2);
       READ FILE(FILE2) INTO (IN_LAYOUT2);
       MORE_RECS2 = '1'B;
              DO WHILE (MORE_RECS2);
                 IF (A = B) THEN
                  DO;
                     VAL = VAL2;
                     WRITE FILE (OUFILE) FROM (OUT_LAYOUT);
                     S_MORE_RECS2 = '0'B;
                     CLOSE FILE(FILE2);
                  END; /* ENDIF */
                  ELSE READ FILE(FILE2) INTO (IN_LAYOUT2);
              END; /* INNER DOWHILE */
       READ FILE(FILE1) INTO (IN_LAYOUT);
    END;
4

2 回答 2

2

这看起来像一个匹配合并。首先尝试按您匹配的键对文件进行排序。

至少一些大型机排序实用程序内置了这种匹配合并功能，例如 Syncsort 具有 JOIN 运算符。我敢肯定 DFSORT 也有这种能力。

于 2016-09-16T15:54:18.923 回答
1

在这种情况下，@cschneid 答案是最好的解决方案。为了完整起见，还有其他可用的解决方案：

  1. 对键上的 2 个输入文件进行排序并在程序中进行合并
  2. 将 File2 加载到 VSAM 文件中并进行索引查找

排序合并处理

如果您对键上的 2 个输入文件进行排序，您可以执行以下操作：

DO WHILE (MORE_RECS1 and MORE_RECS2);
   if (key_file1 < key_file2) then do;
      READ FILE(FILE1) INTO (IN_LAYOUT);
   end; else if (key_file1 > key_file2) then do;
      READ FILE(FILE2) INTO (IN_LAYOUT2);
   end; else do;
      VAL = VAL2;
      WRITE FILE (OUFILE) FROM (OUT_LAYOUT);
      READ FILE(FILE1) INTO (IN_LAYOUT);
   end;
end;

当 Sort 的逻辑很复杂时使用这个是有意义的（例如，您需要数据库查找

将 File2 加载到 VSAM 文件中

另一种方法是将 File2 加载到 VSAM 文件中并进行键控读取。这对于避免多次进行昂贵的 DB 查找很有用（特别是对于灵活性低于 DB2 的 IMS）。

在大多数情况下，上面的 Sort-Merge 处理将比 VSAM 查找更快。

于 2016-09-16T23:30:46.323 回答