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

Question

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

提前致谢。

Answer 1

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

第一步 - 定义

//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。

问候安德烈亚斯

Answer 2

建议你看一下DFDSS。这是 DFDSS 擅长的事情。

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

找到"Renaming data sets"。看起来很有前途。没有保证，但值得一试。

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

how to rename all the gdg base and all the versions at a time?

jcl