如何一次重命名所有 gdg 基础和所有版本？

Question

我有一个包含 1000 多个版本的 GDG 基础。我想更改所有文件的名称。现有文件是 DMXWCCA.R00.WI82XXX 我需要一个 JCL 程序，它必须将现有文件重命名为 C02565.R00.WI82XXX。

提前致谢。

Answer 1

只需分配目标 GDG，然后使用 TSO 进行复制。

Step1 - 定义

//IDCAMS   EXEC PGM=IDCAMS,REGION=64M
//SYSPRINT DD SYSOUT=*  
//SYSOUT   DD SYSOUT=*                
//SYSIN    DD * 
 DEFINE GDG                        - 
  (NAME('<Your new DSN>')              - 
   LIMIT(<Your limit>) NOEMPTY SCRATCH   ) 

步骤 2 - 重命名

//RENAME   EXEC PGM=IKJEFT01     
//SYSTSPRT DD SYSOUT=*           
//SYSTSIN  DD *,SYMBOLS=JCLONLY  
 RENAME '<Your old DSN>.*' '<Your new DSN>.*'

我更喜欢使用符号，因此我将条目留在了 SYSTSIN。

问候安德烈亚斯