mainframe - 如何在JCL中使用参数

Question

我尝试提交作业，当我进行硬编码时，一切都很好。但我想使用参数。

//REPORTS   EXEC PGM=IKJEFT01,**PARM='SDSFINFO FTPSRV01 * hiqual'**
//SYSEXEC   DD DSN=rexx.is.here,DISP=(SHR,PASS)                 
//SYSTSPRT  DD SYSOUT=A,HOLD=YES                               
//SYSTSIN   DD DUMMY                                           

我将 JCL 编写为过程。流程发票中描述的参数是否真实？像这样:

  //stepxx  exec myproc,hiqual=hiqual,owner=*...

Answer 1

程序有两种，编目程序和流内程序。

编目过程存储在与执行 JCL 分开的库成员中。这个单独的库是通过系统搜索 SYS1.PARMLIB 中定义的此类库列表来定位的。可以使用执行 JCL 中的 JCLLIB 语句覆盖此列表。您的商店可能有一个存储编目程序的标准位置。

流内过程与执行 JCL 位于同一库成员中。 PROC 语句必须位于作业卡和执行指定 proc 的 EXEC 语句之间。流内过程必须以PEND语句结束。

在过程中使用符号参数是很常见的，这使得它们更加灵活。

你正朝着正确的方向前进......

[jobcard is here]
//MYPROC    PROC 
//REPORTS   EXEC PGM=IKJEFT01,PARM='SDSFINFO FTPSRV01 &OWNER &HIQUAL'
//SYSEXEC   DD DSN=[rexx.is.here],DISP=(SHR,PASS)
//SYSTSPRT  DD SYSOUT=A,HOLD=YES
//SYSTSIN   DD DUMMY
//          PEND
//*
//MYSTEP    EXEC PROC=MYPROC,HIQUAL=ABC,OWNER=XYZ

...方括号中的内容必须由您提供。这将导致 MYPROC 被执行，就像您进行了硬编码一样...

//REPORTS   EXEC PGM=IKJEFT01,PARM='SDSFINFO FTPSRV01 XYZ ABC'
//SYSEXEC   DD DSN=[rexx.is.here],DISP=(SHR,PASS)
//SYSTSPRT  DD SYSOUT=A,HOLD=YES
//SYSTSIN   DD DUMMY

有时过程会使用符号参数的默认值进行编码...

//MYPROC    PROC ENV='PROD'
//REPORTS   EXEC PGM=IKJEFT01,PARM='SDSFINFO FTPSRV01 &OWNER &HIQUAL'
//SYSEXEC   DD DSN=&ENV..REXX,DISP=(SHR,PASS)
//SYSTSPRT  DD SYSOUT=A,HOLD=YES
//SYSTSIN   DD DUMMY

...有时默认值是文档...

//MYPROC    PROC ENV='SPECIFY_PROD_OR_TEST_OR_QA'
//REPORTS   EXEC PGM=IKJEFT01,PARM='SDSFINFO FTPSRV01 &OWNER &HIQUAL'
//SYSEXEC   DD DSN=&ENV..REXX,DISP=(SHR,PASS)
//SYSTSPRT  DD SYSOUT=A,HOLD=YES
//SYSTSIN   DD DUMMY

...强制执行 JCL 提供一个值，否则在运行时会出现 JCL 错误。

请注意，通过 SET 语句，您可以使用符号参数，而无需过程、编目过程或流内过程。这...

[jobcard is here]
//  SET HIQUAL=ABC
//  SET OWNER=XYZ
//*
//REPORTS   EXEC PGM=IKJEFT01,PARM='SDSFINFO FTPSRV01 &OWNER &HIQUAL'
//SYSEXEC   DD DSN=[rexx.is.here],DISP=(SHR,PASS)
//SYSTSPRT  DD SYSOUT=A,HOLD=YES
//SYSTSIN   DD DUMMY
//*

...将给出与第一个示例相同的结果，而不使用过程。

通常会有您需要遵守的商店标准。通常大型机工厂有一个专门的小组，其功能是运行生产作业流，每天调度数百或数千个此类作业流。