mainframe - JCL创建数据集是否已经存在

Question

我想编写一些 JCL 来创建一个数据集，其要求是:

1. 如果数据集不存在，则创建它

或者:

1. 如果数据集已经存在，覆盖它

或

1. 如果数据集已经存在，什么也不做

据我所知，(1) 可以通过 DISP=NEW 来完成，(2) 通过 DISP=OLD，但是我无法从文档和我的类(class) Material 中弄清楚如何同时进行这两项操作.如果数据集存在，则 NEW 会抛出一个 JCL 错误；如果不存在，则 OLD 会抛出一个错误。我不知道该怎么做 (3)。

我知道有一些方法可以查询 JCL 中是否存在数据集，但我们还没有涉及到它，所以我认为没有它也是可能的？

Answer 1

我认为您正在寻找生成数据组。这不会覆盖现有数据集，但会在每次执行 JCL 时为您提供一个新数据集。

首先，您必须使用记录在案的 IDCAMS 命令创建生成数据组基础条目 here .这是一次性操作。

//MAKEGDG1 EXEC PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
 DEFINE GDG (NAME(MY.DSN) LIMIT(255))
//*

要使用它，您需要编写 JCL，例如...

//USEGDG1  EXEC PGM=IEFBR14
//DD001    DD  DISP=(NEW,CATLG,DELETE),
//             DSN=MY.DSN(+1),
//             SPACE=(...),
//             and so on

...其中 (+1) 表示在组内创建新一代。实际创建的是一个名为MY.DSN.G####V00的数据集，其中####是系统为你管理的序号，但您始终可以使用 MY.DSN(0) 获得最新的一代。您可以使用 MY.DSN(-1) 的前一代到最新一代。

需要注意一些，如果您在编码 MY.DSN 时没有在括号中指定世代编号，您将获得所有现存的世代。

如果 GDG 不是您要查找的内容，您还可以在对新数据集进行分类的步骤之前编写一个 IDCAMS 步骤。 IDCAMS 步骤的目的是删除数据集。如果数据集不存在，IDCAMS DELETE 命令会给你一个错误的返回码(12，如果没记错的话)，但是你可以通过编码 IF MAXCC=12 THEN SET MAXCC 来修改它=0 在那些情况下。

根据允许的额外限制进行更新

如果您想要创建数据集(如果它不存在)并追加(如果存在)，可以使用 DISP=(MOD,CATLG)。我认为，如果不使用 IDCAMS 或编写 clist 或 Rexx 程序来实现 IDCAMS DELETE 的基本功能，我认为没有办法实现您的目标。

您可以编写代码 DISP=(NEW,CATLG) 并在数据集已存在时让作业失败。这是一件糟糕的事情，但我认为它符合您的标准。

我现在无法对此进行测试，但您可以尝试...

//CKEXIST1 EXEC PGM=IEFBR14
//DD001    DD  DISP=OLD,DSN=MY.DSN
//*
//IF001    IF  CKEXIST.RUN=TRUE THEN
//* step with DISP=OLD
//         ELSE
//* step with DISP=NEW
//IF001E   ENDIF

...但即使它有效，我仍然认为它很丑陋。这个想法是 IEFBR14 步骤不会执行，因为数据集分配会失败。 IF001 语句正在检查步骤是否运行，我认为如果数据集不存在则测试为假，如果存在则测试为真。我不建议将其用于生产作业流。