JCL程序是JCL内部的一组语句，它们组合在一起以执行特定功能.通常，JCL的固定部分在程序中编码. Job的不同部分在JCL中编码.
您可以使用一个过程来实现使用多个输入文件并行执行程序.可以为每个输入文件创建一个JCL，并且可以通过将输入文件名作为符号参数来同时调用单个过程.
以下是JCL过程定义的基本语法:
//* //Step-name EXEC procedure name
程序的内容保存在JCL中流程程序.内容保存在基本库的不同成员中，用于编目过程.本章将解释JCL中可用的两种类型的过程，最后我们将看到如何嵌套各种过程.
当过程在同一个JCL成员中编码时，它被称为"插入过程".它应该以PROC语句开头并以PEND语句结束.
//SAMPINST JOB 1,CLASS=6,MSGCLASS=Y,NOTIFY=&SYSUID //* //INSTPROC PROC //*START OF PROCEDURE //PROC1 EXEC PGM=SORT //SORTIN DD DSN=&DSNAME,DISP=SHR //SORTOUT DD SYSOUT=*MYINCL //SYSOUT DD SYSOUT=* //SYSIN DD DSN=&DATAC LRECL=80 // PEND //*END OF PROCEDURE //* //STEP1 EXEC INSTPROC,DSNME=MYDATA.URMI.INPUT1, // DATAC=MYDATA.BASE.LIB1(DATA1) //* //STEP2 EXEC INSTPROC,DSNME=MYDATA.URMI.INPUT2 // DATAC=MYDATA.BASE.LIB1(DATA1) //*
在上面的示例中，使用不同的输入文件在STEP1和STEP2中调用过程INSTPROC.在调用过程时，参数DSNAME和DATAC可以使用不同的值进行编码，这些参数称为符号参数. JCL的变化输入(如文件名，数据卡，PARM值等)作为符号参数传递给过程.
编码符号参数时，请勿使用KEYWORDS，PARAMETERS或子参数作为符号名称.示例:不要使用TIME =&TIME但是可以使用TIME =&TM，它被认为是编码符号的正确方法.
用户定义的符号参数称为 JCL符号的.有一些称为系统符号的符号，用于登录作业执行.普通用户在批处理作业中使用的唯一系统符号是& SYSUID ，这在JOB语句的NOTIFY参数中使用.
当程序从JCL中分离出来并在不同的数据存储中编码时，它被称为目录程序. PROC语句不是必须在编目过程中编码.以下是JCL的示例，它调用CATLPROC程序:
//SAMPINST JOB 1,CLASS=6,MSGCLASS=Y,NOTIFY=&SYSUID //* //STEP EXEC CATLPROC,PROG=CATPRC1,DSNME=MYDATA.URMI.INPUT // DATAC=MYDATA.BASE.LIB1(DATA1)
这里，程序CATLPROC在MYCOBOL.BASE.LIB1中编目. PROG，DATAC和DSNAME作为符号参数传递给过程CATLPROC.
//CATLPROC PROC PROG=,BASELB=MYCOBOL.BASE.LIB1 //* //PROC1 EXEC PGM=&PROG //STEPLIB DD DSN=&BASELB,DISP=SHR //IN1 DD DSN=&DSNAME,DISP=SHR //OUT1 DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSIN DD DSN=&DATAC //*
在该过程中，符号参数PROG和BASELB被编码.请注意，过程中的PROG参数被JCL中的值覆盖，因此PGM在执行期间取值CATPRC1.
从过程中调用过程称为嵌套过程.程序最多可嵌套15个级别.嵌套可以完全插入或编目.我们无法在编目过程中编写一个插入过程.
//SAMPINST JOB 1,CLASS=6,MSGCLASS=Y,NOTIFY=&SYSUID //* //SETNM SET DSNM1=INPUT1,DSNM2=OUTPUT1 //INSTPRC1 PROC //* START OF PROCEDURE 1 //STEP1 EXEC PGM=SORT,DISP=SHR //SORTIN DD DSN=&DSNM1,DISP=SHR //SORTOUT DD DSN=&DSNM2,DISP=(,PASS) //SYSOUT DD SYSOUT=* //SYSIN DD DSN=&DATAC //* //STEP2 EXEC PROC=INSTPRC2,DSNM2=MYDATA.URMI.OUTPUT2 // PEND //* END OF PROCEDURE 1 //* //INSTPRC2 PROC //* START OF PROCEDURE 2 //STEP1 EXEC PGM=SORT //SORTIN DD DSN=*.INSTPRC1.STEP1.SORTOUT //SORTOUT DD DSN=&DSNM2,DISP=OLD //SYSOUT DD SYSOUT=* //SYSIN DD DSN=&DATAC // PEND //* END OF PROCEDURE 2 //* //JSTEP1 EXEC INSTPRC1,DSNM1=MYDATA.URMI.INPUT1, // DATAC=MYDATA.BASE.LIB1(DATA1) //*
在上面的示例中，JCL调用JSTEP1中的过程INSTPRC1，并在过程INSTPRC1中调用过程INSTPRC2.这里，INSTPRC1(SORTOUT)的输出作为输入(SORTIN)传递给INSTPRC2.
SET语句用于定义作业步骤中常用的符号或程序.它初始化符号名称中的先前值.它必须在JCL中第一次使用符号名称之前定义.
让我们看看下面的描述，以便更多地了解上述程序:
SET参数初始化DSNM1 = INPUT1和DSNM2 = OUTPUT1.
当在JCL的JSTEP1中调用INSTPRC1时，DSNM1 = MYDATA.URMI.INPUT1和DSNM2 = OUTPUT1.，即，在SET语句中初始化的值将使用在任何作业步骤/过程中设置的值重置.
在INSTPRC1的STEP2中调用INSTPRC2时，DSNM1 = MYDATA.URMI.INPUT1和DSNM2 = MYDATA.URMI.OUTPUT2.
