有两种程序,编目程序和流内程序。
编目过程存储在独立于执行 JCL 的库成员中。系统通过搜索在SYS1.PARMLIB
. 可以使用JCLLIB
执行 JCL 中的语句覆盖此列表。您的商店可能有一个存储编目程序的标准位置。
流内过程与执行 JCL 位于同一库成员中。该PROC
语句必须位于您的工作卡和EXEC
执行命名 proc 的语句之间。流内过程必须以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
有时,procs 使用符号参数的默认值进行编码......
//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
//*
...将给出与第一个示例相同的结果,而不使用 proc。
通常有一些您需要遵守的商店标准。大型机车间通常有一个专门的小组,其功能是运行生产作业流,每天安排成百上千个这样的作业流。