IBM SC34-6814-04 - Manual (Page 499)

*ASM XOPTS(NOPROLOG NOEPILOG SP)
************************************************************************
*
*
* DFHTEP RECURSIVE RETRY ROUTINE *
* *
************************************************************************
DFHEISTG
DFHEIEND
DFHTEPCA TYPE=DSECT
COMMAREA passed by TACP
COPY DFHA06DS Statistics DSECT
USING DFHA06DS,STATBAR
PCIAREA DSECT
PCISAVE DS XL6 User Field A
PCICNT DS PL2 User Field B
*
TCTLEAR
EQU 2 Pointer to TACLE
STATBAR EQU 4 Pointer to statistics DSECT
TCTUABAR EQU 5 Pointer to TCTUA
COMMABAR EQU 12 Pointer to COMMAREA passed by TACP
EJECT
DFHTEP CSECT
***********************************************************************
*
Establish addressability *
***********************************************************************
DFHEIENT
*
EXEC CICS ADDRESS EIB(11)
*
EXEC CICS ADDRESS COMMAREA(COMMABAR)
*
USING DFHTEPCA,COMMABAR
L
TCTLEAR,TEPCATCA Load TACLE address
*
USING PCIAREA,TCTUABAR
L
TCTUABAR,TEPCECIA Load TCTUA address
*
***********************************************************************
*
Start processing *
***********************************************************************
TM PCICNT+1,X’0C’ Has User Field B been initialized
* to a packed decimal number?
BO CKCOUNT YES .... so compare the system count
* with the existing count in Field B
RESET DS 0H
MVC PCICNT,=PL2’+0’ NO .... so initialize field B to
* packed zero.
*
Figure 28. DFHTEP recursive retry routine (part 1)
Chapter 8. Writing a terminal error program 477