如何用REXX程序化定制并运行需月度更新参数的多JCL任务

这个需求在大型机日常运维里太常见了——每月重复的JCL任务还要改硬编码参数，手动搞既麻烦又容易出错，用REXX来自动化完全是对症下药。下面我给你一步步拆解实现思路和代码示例：

第一步：把现有JCL改成模板文件 #

首先得把你要重复用的JCL改成模板，把需要动态替换的参数用占位符标记出来，比如把硬编码的年月1804换成&YYYYMM.，源文件名的可变部分换成&FILE_SUFFIX.（或者直接用&SOURCE_FILE.标记完整文件名）。

举个修改后的JCL模板例子（假设你的JCL模板存放在USERID.JCL.TEMPLATE(MYTEMPLATE)）：

//*---------------------------------------------------------------------
//STEP01 EXEC PGM=OSGENER
//*---------------------------------------------------------------------
//SYSPRINT DD SYSOUT=*
//SYSIN    DD DSN=LEA.D.&YYYYMM..&FILE_SUFFIX.,DISP=SHR
//SYSOUT   DD DSN=USERID.OUTPUT.&YYYYMM..&FILE_SUFFIX.,DISP=(NEW,CATLG,DELETE),
//         SPACE=(CYL,(5,2)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)

第二步：编写REXX脚本实现动态替换与提交 #

接下来写REXX脚本，核心逻辑是：自动/手动获取目标年月、遍历源文件列表、替换模板占位符生成专属JCL、提交运行。下面是完整的REXX示例代码：

/* REXX - 自动生成并提交月度JCL任务 */
PARSE ARG input_yyyymm  /* 支持手动传入年月，比如"2409"，不传则自动取当前月 */

/* 1. 处理年月参数 */
IF input_yyyymm = "" THEN DO
    TODAY = DATE('S')  /* 获取当前日期的YYYYMMDD格式 */
    YYYYMM = LEFT(TODAY,6)
END
ELSE YYYYMM = input_yyyymm

/* 2. 定义需要处理的源文件后缀列表 */
file_suffixes = "L03 L04 L05"

/* 3. 遍历每个后缀，生成并提交JCL */
DO i = 1 TO WORDS(file_suffixes)
    current_suf = WORD(file_suffixes, i)
    template_dsn = "USERID.JCL.TEMPLATE(MYTEMPLATE)"  /* 你的模板数据集 */
    temp_jcl_dsn = "USERID.TEMP.JCL(MYJCL"||current_suf||")"  /* 临时JCL数据集 */

    /* 读取模板并替换占位符 */
    "ALLOC FI(JCLTEMPL) DA("template_dsn") SHR REUSE"
    "ALLOC FI(TEMPJCL) DA("temp_jcl_dsn") OLD DELETE"  /* 覆盖已有临时文件 */
    DO WHILE READLN(JCLTEMPL, line) = 0
        /* 替换年月占位符 */
        new_line = TRANSLATE(line, YYYYMM, "&YYYYMM.")
        /* 替换文件后缀占位符 */
        new_line = TRANSLATE(new_line, current_suf, "&FILE_SUFFIX.")
        /* 写入临时JCL */
        CALL LINEOUT(TEMPJCL, new_line)
    END
    "FREE FI(JCLTEMPL TEMPJCL)"

    /* 提交生成的JCL */
    "SUBMIT '"temp_jcl_dsn"'", "CLASS=A"  /* 根据你的需求调整作业类 */
    SAY "已提交作业：处理源文件LEA.D."||YYYYMM||"."||current_suf
END

SAY "所有JCL任务提交完成！"
EXIT 0

第三步：脚本的使用与扩展 #

• 运行脚本：在TSO环境下直接输入EXEC 'USERID.REXX.SCRIPT(MYSCRIPT)' '2409'（后面的年月参数可选，不传则自动用当前月）
• 扩展功能：
  • 加错误处理：比如检查模板数据集是否存在、提交作业后校验返回码
  • 日志记录：把每个作业的提交信息写入专属日志数据集
  • 批量控制：可以加确认步骤，避免一次性提交所有任务，或者分批次执行

关键知识点说明 #

• REXX的TRANSLATE函数是替换文本的利器，完美适配这种占位符替换场景
• TSO命令ALLOC/FREE用来管理数据集的访问权限
• SUBMIT命令直接提交JCL数据集，不用手动进入ISPF编辑提交，效率拉满

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