Example 5

//TI94237A JOB .....
//*%OPC RECOVER JOBCODE=S*37,ADDPROC=SPACECHG,
//*%OPC   RESTART=N
//*%OPC RECOVER JOBCODE=(*,16-4095),RESTART=N,ADDAPPL=REORG
//*%OPC RECOVER JOBCODE=8,
//*%OPC   RESTART=N
//STEP01  EXEC PGM=ATTACH8A,REGION=256K
//SYSOUT  DD   SYSOUT=A
//TSTIN   DD   DSN=TI94237.IN.DATA,DISP=SHR
//TESTWK1 DD   UNIT=3380,SPACE=(CYL,(1,1))
//TESTWK2 DD   UNIT=3380,SPACE=(CYL,(1,1))
//TESTWK3 DD   UNIT=3380,SPACE=(CYL,(1,1))
//TSTOUT  DD   DSN=TI94237.OUT.DATA,DISP=SHR
In example 5:
  • This is the same as in example 2, except that this time it is set up for testing the recovery procedure. If the job fails, it has ended-in-error status independent of the error type. The JCL can be inspected and the recovery actions can be started manually via the MODIFYING THE CURRENT PLAN panel.