捕获GDG数据集名称

雷内·文森特

你好

I have a JCLthat generates a GDG, MY.FILE(+1).

我想稍后在同一JCL中的文件中捕获生成的卷的实际名称MY.FILE.G0001V00。

这可能吗？

谢谢。

罗希特·乌马尔吉卡（Rohit Umarjikar）

欢迎！
尝试使用LISTCAT并使用DFSORT或SYNCSORT从LISTCAT结果中仅复制所需的内容。

更多提示-在此论坛中搜索，您会发现过去讨论过的类似帖子。

菲尔比（Phrzby Phil）

您需要生成的数据集名称，而不是卷名称。

卷是指存储介质：磁带，光盘等。

乔格·芬代森

如果首选REXX，则可以这样使用sth：

外籍人士

我只想问你为什么要这样做

谢尔盖肯

雷内·文森特 · 发表：星期二2020年12月29日9:11 pm

问题是“我为什么要这样做？”。

The JCLwill read the GDG, split the contents into multiple files, then FTP each of the files to different directories on our MFT server.
创建GDG的过程每10分钟运行一次。
如果我们失去与MFT服务器的连接，则该作业将失败并将继续失败，直到恢复连接为止。那时，失败的传输将不得不重新发行。
当JCL失败时，它将创建一个新的JCL，该JCL将用于重新发送传输。对于每个失败，JCL都会附加一个步骤，以传输最新的失败。对于每个步骤，我都需要知道GDG数据集名称。我不能使用-1，-2等，因为一旦恢复连接并且传输正常，这些将变得无效。

谢尔盖肯 · 发表：星期二2020年12月29日10:18 pm

The idea of dynamic creation of new JCLwith fixed DSN after FTP failures is a good way to multiply the whole mess in the processing logic.
我很确定可以重新组织整个过程来避免此问题。最初的想法是将原始JCL分为两个独立的部分。

1.“分割”工作；每10分钟左右获取原始GDG（+0），并将其拆分为几个辅助DSN ... PARTx.TOFTP.GDG（+1）。所有那些辅助TOFTP.GDG都将被累积，直到第二个JCL负责处理为止。

2.“调动”工作；只要FTP连接可操作，它就将全部或一对一的... PARTx.TOFTP.GDG（+0）数据集传输到所需目录。如果成功，则通过DISP =（...，DELETE）删除那些GDG（+0）-对于下一个未传输的TOFTP.GDG（-1）变为TOFTP.GDG（+0），为以后的运行做好准备同一“转移”工作。如果传输失败，则需要提供DISP =（...，KEEP），以保留相同的数据集以进行下一次传输尝试。

每当所有未传输的数据集最终都传输完后，由于缺少TOFTP.GDG（+0），因此随后尝试运行此“传输” JCL的尝试将失败。

这只是头三分钟内想到的主要想法。我很确定，在更全局地考虑任务时，可以发明许多其他处理逻辑。

罗希特·乌马尔吉卡（Rohit Umarjikar）

在理想情况下，“创建GDG的过程每10分钟运行一次”。该过程需要立即停止，直到生产支持小组解决先前的故障为止。如果不这样做，那么您可能会陷入无休止的循环，就像接下来的1个小时一直失败一样，那么您将需要连接多个GDG，并且您可能用尽了GDG LIMIT，而较旧的GDG LIMIT会被刮伤。重新设计过程以避免所有这些。

顺便说一句，您看到前面提出的任何解决方案了吗？这些链接应该可以帮助您获得最后的分类目录。
ibmmainframes.com/about44245.html
ibmmainframes.com/about50967.html

雷内·文森特

这绝不是形状或形式的“理想情况”。 Q&解决covid提出的问题的解决方案。
我无法停止GDG的创建，因为它是由我无法控制的自触发CICS事务执行的。
我正在尝试实现的一种方法是在发生故障时重新发送失败的传输（我很少希望如此）。最多我可以看到受影响的20代服务器（3个小时的FTP停机时间）。
谢谢大家的建议。

罗希特·乌马尔吉卡（Rohit Umarjikar）

祝你好运，你有建议的解决方案！