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

Question

我有一个GDG基地，里面有1000多个版本。我想更改所有文件的名称。 现有文件是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   ) 

Step2 - 重命名

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

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

关心安德烈亚斯

Answer 2

建议你看看DFDSS。这是DFDSS能做得很好的事情。

此处的文档：https://www-304.ibm.com/servers/resourcelink/svc00100.nsf/pages/zOSV2R3SC236868/ $ file / adru000_v2r3.pdf

查找＆＃34;重命名数据集＆＃34;。看起来很有希没有保证，但值得一试。