可以在IKJEFT01的帮助下执行COBOL-DB2程序。IKJEFT01是一个内置的大型机实用程序,它使我们可以通过作业控制语言(JCL)运行z / OS TSO命令。如果要执行计划PLANA的COBOL-DB2程序PROGA,则必须执行以下JCL步骤。
//STEP010 EXEC PGM=IKJEFT01 //STEPLIB DD DSN = DIS.TEST.LOADLIB,DISP = SHR- //SYSOUT DD SYSOUT = * //SYSTSIN DD * DSN SYSTEM(TB3) RUN PROGRAM (PROGA) PLAN(PLANA) END /*
在上面的JCL步骤中,我们首先使用IKJEFT01实用程序来调用COBOL-DB2程序。在STEPLIB中给出了程序PROGA的loadlib路径,即DIS.TEST.LOADLIB,在SYSOUT中提到了打印程序日志的位置,在这种情况下,该地址为假脱机(SYSOUT = *)。然后,我们使用SYSTIN给出了运行时参数,例如DB2数据库标识符(TB3),由DSN SYSTEM和程序/计划名称给出。
必须为程序制定计划,因为它为DB2提供了程序中使用的查询的访问路径信息。然后,DB2遵循数据库中的此访问路径以提取程序中所需的数据。