为了使用JCL以批处理模式执行COBOL程序，需要编译程序并使用所有子程序创建加载模块. JCL在执行时使用加载模块而不是实际程序.加载库在执行时使用 JCLLIB 或 STEPLIB 连接并提供给JCL.
有许多主机编译器可用于编译COBOL程序的实用程序.一些公司公司使用变更管理工具，如 Endevor ，它编译和存储程序的每个版本.这对于跟踪对程序所做的更改非常有用.
//COMPILE JOB ,CLASS=6,MSGCLASS=X,NOTIFY=&SYSUID //* //STEP1 EXEC IGYCRCTL,PARM=RMODE,DYNAM,SSRANGE //SYSIN DD DSN=MYDATA.URMI.SOURCES(MYCOBB),DISP=SHR //SYSLIB DD DSN=MYDATA.URMI.COPYBOOK(MYCOPY),DISP=SHR //SYSLMOD DD DSN=MYDATA.URMI.LOAD(MYCOBB),DISP=SHR //SYSPRINT DD SYSOUT=* //*
IGYCRCTL是IBM COBOL编译器实用程序.使用PARM参数传递编译器选项.在上面的示例中，RMODE指示编译器在程序中使用相对寻址模式. COBOL程序使用SYSIN参数传递，副本是SYSLIB中程序使用的库.
此JCL生成程序的加载模块作为输出，用作输入执行JCL.
在JCL示例下面，使用输入文件MYDATA.URMI.INPUT执行程序MYPROG并生成写入假脱机的两个输出文件.
//COBBSTEP JOB CLASS=6,NOTIFY=&SYSUID // //STEP10 EXEC PGM=MYPROG,PARM=ACCT5000 //STEPLIB DD DSN=MYDATA.URMI.LOADLIB,DISP=SHR //INPUT1 DD DSN=MYDATA.URMI.INPUT,DISP=SHR //OUT1 DD SYSOUT=* //OUT2 DD SYSOUT=* //SYSIN DD * //CUST1 1000 //CUST2 1001 /*
MYPROG的加载模块位于MYDATA.URMI.LOADLIB中.需要注意的是，上述JCL只能用于非DB2 COBOL模块.
数据输入到COBOL批处理程序可以通过文件，PARAM参数和SYSIN DD语句.在上面的示例中:
数据记录通过文件MYDATA.URMI.INPUT传递给MYPROG.该文件将使用DD名称INPUT1在程序中引用.该文件可以在程序中打开，读取和关闭.
PARM参数数据ACCT5000在程序MYPROG的LINKAGE部分中以定义的变量接收在该部分中.
SYSIN语句中的数据是通过程序的PROCEDURE分区中的ACCEPT语句接收的.每个ACCEPT语句将一整条记录(即CUST1 1000)读入程序中定义的工作存储变量.
为了运行COBOL DB2程序，在JCL和程序中使用专用的IBM实用程序; DB2区域和必需参数作为输入传递给实用程序.
在运行COBOL-DB2程序时遵循以下步骤:
编译COBOL-DB2程序时，会与加载模块一起创建DBRM(数据库请求模块). DBRM包含COBOL程序的SQL语句，其语法检查正确.
DBRM绑定到DB2区域(环境)，其中COBOL将运行.这可以使用JCL中的IKJEFT01实用程序来完成.
在绑定步骤之后，使用IKJEFT01(再次)运行COBOL-DB2程序库和DBRM库作为JCL的输入.
//STEP001 EXEC PGM=IKJEFT01
//*
//STEPLIB DD DSN=MYDATA.URMI.DBRMLIB,DISP=SHR
//*
//input files
//output files
//SYSPRINT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//DISPLAY DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(SSID)
RUN PROGRAM(MYCOBB) PLAN(PLANNAME) PARM(parameters to cobol program) -
LIB('MYDATA.URMI.LOADLIB')
END
/*在上面的示例中，MYCOBB是使用IKJEFT01运行的COBOL-DB2程序.请注意，程序名称，DB2子系统标识(SSID)，DB2计划名称在SYSTSIN DD语句中传递. DBRM库在STEPLIB中指定.
