Author: Alks
Posted: Fri Jun 17, 2016 7:47 pm (GMT 5.5)
The abend condition is COND=(5,GT,CDRBATCH). If my understanding is right when CDRBATCH RC=0, the abend step should get flushed.
XXCDRBATCH PROC
XXCDRBATCH EXEC PGM=DMBATCH,PARM=(YYSLYNN)
XXSTEPLIB DD DSN=xxxx.xxxx.xxxx.LOADLIB,DISP=SHR
XXSYSUDUMP DD SYSOUT=*
//CDRBATCH.DMPUBLIB DD DSN=xxxx.xxxx.xxxx.CTC,
// DISP=SHR
X/DMPUBLIB DD DSN=xxxx.xxxx.xxxx.xxxx,DISP=SHR
XXDMMSGFIL DD DSN=xxxx.xxxx.xxxx.xxxx,DISP=SHR
XXDMNETMAP DD DSN=xxxx.xxxx.xxxx.xxxxx,DISP=SHR
XXDMPRINT DD SYSOUT=*
XXNDMCMDS DD DUMMY USED FOR DEBUGGING ONLY
//SYSIN DD DSN=xxxx.xxxx.xxxx.CTC(XYZ),
// DISP=SHR
X/SYSIN DD DUMMY <-----CONTROL STATEMENTS OVERRIDE THIS
***
XXXIABENDR EXEC PGM=XIABENDR,PARM=1000,COND=(5,GT,CDRBATCH),RD=NR
XXUCC11NR DD DUMMY USED FOR RESTART
***
*********************************************************************
*** CAUSE A USER ABEND 1000 IF RETURN CODE > 4 *
_________________
Alks..!!!
Posted: Fri Jun 17, 2016 7:47 pm (GMT 5.5)
The abend condition is COND=(5,GT,CDRBATCH). If my understanding is right when CDRBATCH RC=0, the abend step should get flushed.
XXCDRBATCH PROC
XXCDRBATCH EXEC PGM=DMBATCH,PARM=(YYSLYNN)
XXSTEPLIB DD DSN=xxxx.xxxx.xxxx.LOADLIB,DISP=SHR
XXSYSUDUMP DD SYSOUT=*
//CDRBATCH.DMPUBLIB DD DSN=xxxx.xxxx.xxxx.CTC,
// DISP=SHR
X/DMPUBLIB DD DSN=xxxx.xxxx.xxxx.xxxx,DISP=SHR
XXDMMSGFIL DD DSN=xxxx.xxxx.xxxx.xxxx,DISP=SHR
XXDMNETMAP DD DSN=xxxx.xxxx.xxxx.xxxxx,DISP=SHR
XXDMPRINT DD SYSOUT=*
XXNDMCMDS DD DUMMY USED FOR DEBUGGING ONLY
//SYSIN DD DSN=xxxx.xxxx.xxxx.CTC(XYZ),
// DISP=SHR
X/SYSIN DD DUMMY <-----CONTROL STATEMENTS OVERRIDE THIS
***
XXXIABENDR EXEC PGM=XIABENDR,PARM=1000,COND=(5,GT,CDRBATCH),RD=NR
XXUCC11NR DD DUMMY USED FOR RESTART
***
*********************************************************************
*** CAUSE A USER ABEND 1000 IF RETURN CODE > 4 *
_________________
Alks..!!!