mainframe - 使用 IEBCOPY 将成员复制到带有通配符的数据集

Question

因此，我们正在升级 SEASOFT Fastpack，并且必须将成员添加到每个人的 ISPF 配置文件中，以允许使用该产品的菜单。
我们追求的理想 JCL 如下:

//COPYRGHT JOBCARD              
//JOBSTEP  EXEC  PGM=IEBCOPY                          
//SYSPRINT DD  SYSOUT=A                               
//INDD     DD  DSNAME=FASTPACK.SRC,        
//             DISP=SHR,UNIT=SYSDA                    
//OUTDD    DD  DSNAME=BFCU.PRODISPF.PROF&SYSNAME..&USERID     <==== ? BFCU.PRODISPF.PROF*.*
//             DISP=SHR,UNIT=SYSDA                    
//SYSIN DD *                                          
  COPY INDD=OUTDD,OUTDD=OUTDD                         
  COPY INDD=((INDD,R)),OUTDD=OUTDD                    
/*                                                    

显然，如果我们可以让作业动态查找与模式匹配的所有数据集，那就太好了。

Answer 1

我建议编写 Rexx 或 clist 代码以使用 LMDINIT 和 LMDLIST ISPF 服务来创建与您的模式匹配的数据集列表并将该列表保存在数据集中。然后编写另一个程序来读取该数据集列表并编写所需的 JCL，每个数据集一个步骤。批量运行ISPF中的Rexx或clist代码。
您需要计算您生成的步骤数，因为一个作业只能有 255 个步骤。
您可以根据需要使其自动化，例如您可以生成一个作业卡，一个包含您的 IEBCOPY 和 OUTDD DSN 参数的 instream proc，然后每个步骤执行 instream proc，并将 DSN 参数设置为数据集名称。当您达到 255 个步骤时，生成另一个作业卡，另一个 instream proc 副本，并继续生成步骤。