copy - 将成员从一个 pd 复制到另一个？使用 jcl 语句

Question

我如何使用 IEBGENER 实用程序将成员从一个 pd 复制到另一个。

类似的东西：

//myjob job1
// exec pg=eibgener

??

其余的不知道。

Answer 1

假设输出 PDS 已经创建并包含足够的空间，您可以尝试以下操作：

//jobname  your-jobcard-info                               
//stepname EXEC PGM=IEBGENER                    
//SYSUT1   DD DSN=input-pds(member),DISP=OLD 
//SYSUT2   DD DSN=output-pds(member),DISP=OLD
//SYSPRINT DD SYSOUT=*                          
//SYSIN    DD DUMMY                               
//*                                              

我认为 IDCAMS REPRO 现在更常用于这类事情。

Answer 2

大多数人使用IEBCOPY将成员从一个 PDS(E) 复制到另一个。可通过以下链接获得示例 JCL。