除了最近的（0）之外，如何使用 JCL 引入所有 GDG 代？答案

【问题标题】：Way to use JCL to pull in all GDG generations except for most recent (0)?除了最近的（0）之外，如何使用 JCL 引入所有 GDG 代？
【发布时间】：2022-06-29 04:52:18
【问题描述】：

看看 JCL 是否有能力引入除最新一代之外的所有 GDG 代？

假设我的大型机上有：

A.GDG.FILE
A.GDG.FILE.G0001V00
A.GDG.FILE.G0002V00
A.GDG.FILE.G0003V00

我想编写 JCL，它只会自动引入第 1 代和第 2 代。同样，如果我有 4 代，它会引入第 1、2 和 3 代。这种能力存在吗？或者我是否需要将我最近的一代复制到另一个文件并将其从该 GDG 中删除并拉入所有代？

你能否给我们一些关于你想要做什么的更多见解，因为这可能是一个 X-Y 问题。有什么理由不能在新一代创建之前运行你的工作吗？
一些特定的用例。遇到文件通过 FTP 传输到我们的大型机的情况，通常他们只会发送文件直到它工作。所以写一份新工作来清理它，只保留好的。由于处理作业需要能够在必要时运行多个文件，因此该文件被发送到 GDG 而不是平面文件。

标签： mainframe jcl dsn

【解决方案1】：

您只能在 JCL 中检索所有 GDG 数据集。在您的示例中，它看起来像：

//SYSIN  DD DSN=A.GDG.FILE,DISP=SHR

您还可以通过指定 LIFO、FIFO 和 USE CATTLE 来控制顺序，如下例所示：

//SYSIN  DD DSN=A.GDG.FILE,DISP=SHR,GDGORDER=LIFO
//SYSIN  DD DSN=A.GDG.FILE,DISP=SHR,GDGORDER=FIFO
//SYSIN  DD DSN=A.GDG.FILE,DISP=SHR,GDGORDER=USECATLG

LIFO - 后进先出
FIFO - 先进先出
USECATLG - 使用目录顺序（默认为 LIFO）

【讨论】：