如何使用SORT工具将GDG成员复制到输出PDS？

核心逻辑 #

SORT本身无法直接遍历GDG的全部版本，需要结合JCL的GDG引用规则和SORT/ICETOOL的功能来实现，以下是两种实用方案：

方案1：显式指定GDG版本（适用于版本数量少的场景） #

如果清楚GDG的具体版本数量，可在JCL中逐个引用版本，通过SORT的COPY操作将所有数据追加到目标PDS成员：

//COPYGDG  JOB (ACCT),'GDG转PDS',CLASS=A,MSGCLASS=X
//SORTSTEP EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DSN=你的GDG基名(0),DISP=SHR  // 最新版本
//         DD DSN=你的GDG基名(-1),DISP=SHR // 上一版本
//         DD DSN=你的GDG基名(-2),DISP=SHR // 更早版本，按需添加
//SORTOUT  DD DSN=你的输出PDS(目标成员),DISP=OLD
//SYSIN    DD *
  COPY
/*

• (0)代表GDG最新生成的版本，(-n)代表往前数第n个版本，按需求把所有需要的版本加到SORTIN中即可。

方案2：用GDG通配符+ICETOOL（适用于版本数量多的场景） #

借助ICETOOL的批量处理能力，配合GDG的(*)通配符自动匹配所有非过期版本：

//COPYGDG  JOB (ACCT),'批量GDG转PDS',CLASS=A,MSGCLASS=X
//TOOLSTEP EXEC PGM=ICETOOL
//SYSOUT   DD SYSOUT=*
//INDD     DD DSN=你的GDG基名(*),DISP=SHR
//OUTDD    DD DSN=你的输出PDS(目标成员),DISP=OLD
//TOOLIN   DD *
  COPY FROM(INDD) TO(OUTDD)
/*

• 你的GDG基名(*)会自动匹配该GDG下所有未被标记为过期的版本，ICETOOL会依次将所有版本的数据合并复制到目标PDS成员。

注意要点 #

• 提前确认输出PDS的空间足够容纳所有GDG成员的数据总和，避免空间不足导致任务失败。
• 如需调整合并顺序（比如从旧版本到新版本），可手动调整SORTIN中DD语句的顺序，或通过SORT的排序参数指定顺序。
• 若不确定GDG的版本状态，可先执行LISTCAT LEVEL(你的GDG基名)命令查看所有版本的状态，避免包含已过期的无效版本。

内容的提问来源于stack exchange，提问作者user29967075