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.