如何用JCL或REXX在PDS中创建含当前日期的成员？是否可行？

当然可以！不管是用JCL还是REXX，都能轻松实现这个需求——在分区数据集（PDS）里创建名称包含当前实际日期的成员。下面我给你分别演示两种方法的具体实现：

JCL本身可以借助系统符号变量来动态生成带日期的成员名，常用的日期变量有&SYSDATE（格式为YYMMDD，6位）和&SYSDATE2（格式为YYYYMMDD，8位），刚好符合PDS成员名最长8字符的限制。

示例1：用IEBGENER创建空成员 #

IEBGENER是常用的数据集复制工具，我们可以用它来创建一个空的PDS成员：

//CRTDATEMEM JOB (YOUR-ACCT),'CREATE DATE MEMBER',CLASS=A,MSGCLASS=X
//STEP01     EXEC PGM=IEBGENER
//SYSIN      DD DUMMY
//SYSPRINT   DD SYSOUT=*
//SYSUT1     DD DUMMY,RECFM=F,LRECL=80,BLKSIZE=80
//SYSUT2     DD DSN=YOUR.TARGET.PDS(&SYSDATE2),DISP=(NEW,CATLG),
//            RECFM=F,LRECL=80,BLKSIZE=80

替换YOUR-ACCT和YOUR.TARGET.PDS为你的实际账号和PDS名称即可。这里&SYSDATE2会被自动替换为当前系统的8位日期（比如20241005），最终创建的成员就是YOUR.TARGET.PDS(20241005)。如果偏好6位日期，把&SYSDATE2换成&SYSDATE就行。

示例2：用IDCAMS创建成员 #

如果你更习惯用IDCAMS来管理数据集，也可以用DEFINE MEMBER命令：

//CRTDATEMEM JOB (YOUR-ACCT),'CREATE DATE MEMBER',CLASS=A,MSGCLASS=X
//STEP01     EXEC PGM=IDCAMS
//SYSPRINT   DD SYSOUT=*
//SYSIN      DD *
  DEFINE MEMBER -
    INDATASET(YOUR.TARGET.PDS) -
    NAME(&SYSDATE) -
    RECORDS(1) -
    RECORDSIZE(80 80) -
    REUSE
/*

REUSE参数表示如果同名成员已存在，会覆盖它——如果不需要覆盖，去掉这个参数即可。

REXX处理日期的灵活性更高，你可以自定义任意符合8字符限制的日期格式（比如DDMMYYYY、MMDDYYYY等），不用受JCL系统变量的格式限制。

示例REXX脚本 #

/* REXX: 创建带当前日期的PDS成员 */
/* 替换成你的目标PDS名称 */
target_pds = 'YOUR.TARGET.PDS'

/* 自定义日期格式，可选：YYYYMMDD、DDMMYYYY、MMDDYYYY等 */
date_format = 'YYYYMMDD'
current_date = DATE(date_format)

/* 拼接完整的成员路径 */
member_full = target_pds'('current_date')'

/* 创建并打开成员（空成员） */
open_rc = OPEN(member_full, 'OUTPUT')
IF open_rc = 0 THEN DO
  SAY "✅ 成功创建成员：" member_full
  CLOSE member_full
END
ELSE DO
  SAY "❌ 创建失败，返回码：" open_rc
END
EXIT

如果需要往成员里写入内容，可以在OPEN之后加上LINEOUT(member_full, '你的内容')语句。

在JCL中调用REXX #

如果要在JCL里执行这个REXX脚本，只需用IRXJCL程序调用即可：

//REXXCRTMEM JOB (YOUR-ACCT),'REXX CREATE DATE MEMBER',CLASS=A,MSGCLASS=X
//STEP01     EXEC PGM=IRXJCL,PARM='DATE_MEMBER_SCRIPT'
//SYSEXEC    DD DSN=YOUR.REXX.LIBRARY,DISP=SHR
//SYSTSPRT   DD SYSOUT=*
//SYSTSIN    DD DUMMY

把DATE_MEMBER_SCRIPT换成你的REXX脚本名称，YOUR.REXX.LIBRARY换成存放脚本的PDS路径。

几个注意点 #

• 成员名长度：PDS成员名最长8字符，所以日期格式必须控制在8位以内，比如YYYYMMDD刚好8位，YYMMDD是6位，都符合要求；避免用带分隔符的格式（比如DD/MM/YYYY），因为成员名不允许有特殊字符。
• 权限验证：确保你的用户ID对目标PDS拥有WRITE权限，否则会创建失败。
• 日期一致性：JCL的&SYSDATE/&SYSDATE2取的是系统当前日期，REXX的DATE函数默认也是取系统日期，两者是一致的。

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