将 2 个 PDS 成员合并为 1 个

Question

我有一个看似简单的任务，就是将 PDS 的 2 个成员合并，比如 MYDSN.X(A) 和 MYDSN.X(B) 到一个普通成员 MYDSN.X(AB) .

我的尝试是使用 IEBCOPY 但不知何故我无法完成这项特定任务，尽管我发现了很多有用的示例 here.

此任务的另一个特例是创建一个新成员，例如 MYDSN.X(A3)，其中包含的内容是 MYDSN.X(A) 的 3 倍。对那个特殊情况也有什么想法吗？

Answer 1

你想做的很简单，数据集连接：

//SOMENAME DD DISP=SHR,DSN=yourpds(yourmem1)
//         DD DISP=SHR,DSN=yourpds(yourmem1)

您可以直接在您的 JCL 中使用运行您想要测试的步骤，或者，如果您想要一个永久副本，您可以制作一个副本：

//SORTCOPY EXEC PGM=SORT
//SORTIN   DD DISP=SHR,DSN=yourpds(yourmem1) 
//         DD DISP=SHR,DSN=yourpds(yourmem2)
//SORTOUT  DD DISP=OLD,DSN=yourpds(yournew) 
//SYSOUT   DD SYSOUT=* 
//SYSIN    DD * 
 OPTION COPY

注意输出的 DISP=OLD。如果两个作业同时执行此操作，这将确保您不会丢失数据运行。

PDSE 比 PDS "safer"。

如果您想要同一成员的多个副本：

//SORTCOPY EXEC PGM=SORT
//SORTIN   DD DISP=SHR,DSN=yourpds(yourmem1) 
//         DD DISP=SHR,DSN=yourpds(yourmem1)
//         DD DISP=SHR,DSN=yourpds(yourmem1)
//         DD DISP=SHR,DSN=yourpds(yourmem1)
//SORTOUT  DD DISP=OLD,DSN=yourpds(yournew) 
//SYSOUT   DD SYSOUT=* 
//SYSIN    DD * 
 OPTION COPY

使用你的编辑器来重复真的很简单。

将 2 个 PDS 成员合并为 1 个

Merge 2 PDS member to 1

zos

jcl