重新启动批处理程序

示例

示例：使用JCL进行批量结账

下面的JCL示例展示了 PSB=IVP8CA 的批处理回退。

//ISOCS04  JOB 3000,ISOIR,MSGLEVEL=(1,1),NOTIFY=ISOIR,
//        MSGCLASS=T,CLASS=A
//* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
//*                                                             *
//*  BACKOUT TO LAST CHKPT.                                     *
//*                  IF RC=0028 LOG WITH NO-UPDATE              *
//*                                                             *
//* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
//BACKOUT  EXEC PGM=DFSRRC00,
//        PARM='DLI,DFSBBO00,IVP8CA,,,,,,,,,,,Y,N,,Y',
//         REGION=2600K,COND=EVEN             |
//*                                           ---> DBRC ON
//STEPLIB DD  DSN=IMS.RESLIB,DISP=SHR
//IMS          DD   DSN=IMS.PSBLIB,DISP=SHR
//             DD   DSN=IMS.DBDLIB,DISP=SHR
//*
//* IMSLOGR  DD   data set is required
//* IEFRDER  DD   data set is required
//DFSVSAMP DD  *
OPTIONS,LTWA=YES
2048,7
1024,7
/*
//SYSIN DD DUMMY
/*

示例：使用JCL重启DL/I批处理作业

使用 IMS XRST和符号CHKP调用，操作程序可以重新启动应用程序的DL/I批处理作业步骤。

您无法在 Db2 DL/I批处理环境中重新启动BMP应用程序。 象征性的检查点记录无法访问，导致 IMS 用户退出 U0102。

要重新启动异常或提前终止的批处理作业，请在 z/OS® 系统日志或SYSOUT失败作业列表中找到作业的检查点ID。 在您重新启动作业步骤之前，请将检查点ID放入DLIBATCH程序的CKPTID=value选项中，然后提交作业。 如果使用默认连接名称（即，您在 DDITV02 输入数据集中未指定连接名称选项），则重启作业的作业名称必须与失败作业的作业名称相同。 参考以下骨架示例，其中最后一个检查点ID值为 IVP80002:

//ISOCS04  JOB 3000,OJALA,MSGLEVEL=(1,1),NOTIFY=OJALA,
//        MSGCLASS=T,CLASS=A
//* ******************************************************************
//*
//* THE FOLLOWING STEP RESTARTS COBOL PROGRAM IVP8CP22, WHICH UPDATES
//* BOTH DB2 AND DL/I DATABASES, FROM CKPTID=IVP80002.
//*
//* ******************************************************************
//RSTRT    EXEC DLIBATCH,DBRC=Y,COND=EVEN,LOGT=SYSDA,
//  MBR=DSNMTV01,PSB=IVP8CA,BKO=Y,IRLM=N,CKPTID=IVP80002
//G.STEPLIB  DD
//         DD
//         DD  DSN=prefix.SDSNLOAD,DISP=SHR
//         DD  DSN=prefix.RUNLIB.LOAD,DISP=SHR
//         DD  DSN=SYS1.COB2LIB,DISP=SHR
//         DD  DSN=IMS.PGMLIB,DISP=SHR
//*        other program libraries
//* G.IEFRDER  data set required
//* G.IMSLOGR  data set required
//G.DDOTV02  DD  DSN=&TEMP2,DISP=(NEW,PASS,DELETE),
//         SPACE=(TRK,(1,1),RLSE),UNIT=SYSDA,
//         DCB=(RECFM=VB,BLKSIZE=4096,LRECL=4092)
//G.DDITV02  DD  *
  DB2X,SYS1,DSNMIN10,,A,-,BATCH001,,IVP8CP22
/*
//***************************************************************
//***  ALWAYS ATTEMPT TO PRINT OUT THE DDOTV02 DATA SET       ***
//***************************************************************
//STEP8     EXEC  PGM=DFSERA10,COND=EVEN
//STEPLIB   DD    DSN=IMS.RESLIB,DISP=SHR
//SYSPRINT  DD    SYSOUT=A
//SYSUT1    DD    DSNAME=&TEMP2,DISP=(OLD,DELETE)
//SYSIN     DD    *
CONTROL  CNTL K=000,H=8000
OPTION   PRINT
/*
//