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

DFHPEP_COMMAREA DSECT
*
*
Standard header section
*
PEP_COM_STANDARD
DS 0F
PEP_COM_FUNCTION DS CL1 Always ’1’
PEP_COM_COMPONENT DS CL2 Always ’PC’
PEP_COM_RESERVED DS C Reserved
*
*
Abend codes and EIB
*
PEP_COM_CURRENT_ABEND_CODE
DS CL4 Current abend code
PEP_COM_ORIGINAL_ABEND_CODE DS CL4 Original abend code
PEP_COM_USERS_EIB DS CL(EIBRLDBK-EIBTIME+L’EIBRLDBK)
* EIB at last EXEC CICS command
*
*
Debugging information (program, PSW, registers and execution key at
* time of abend, hit storage indicator). If the abend occurred in a
* DPL server program running remotely, only program is meaningful.
*
PEP_COM_DEBUG
DS 0F
PEP_COM_ABPROGRAM DS CL8 Program causing abend
PEP_COM_PSW DS CL8 PSW at abend
* (codes ASRA, ASRB, AICA, ASRD)
PEP_COM_REGISTERS DS CL64 GP registers at abend
* (registers 0-15)
PEP_COM_KEY DS X Execution key at abend
* (ASRA and ASRB only)
PEP_COM_USER_KEY EQU 9 User key
PEP_COM_CICS_KEY EQU 8 CICS key
*
PEP_COM_STORAGE_HIT
DS X Storage type hit by 0C4
* (ASRA only)
PEP_COM_NO_HIT EQU 0 No hit, or not 0C4
PEP_COM_CDSA_HIT EQU 1 CDSA hit
PEP_COM_ECDSA_HIT EQU 2 ECDSA hit
PEP_COM_ERDSA_HIT EQU 3 ERDSA hit
PEP_COM_RDSA_HIT EQU 4 RDSA hit
PEP_COM_EUDSA_HIT EQU 5 EUDSA hit
PEP_COM_UDSA_HIT EQU 6 EUDSA hit
*
PEP_COM_SPACE
DS X Subspace/basespace
PEP_COM_NOSPACE EQU 0
PEP_COM_SUBSPACE EQU 10 Abending task was in
* subspace
PEP_COM_BASESPACE EQU 11 Abending task was in
* basespace
PEP_COM_PADDING DS CL2 Reserved
*
*
Return code
*
PEP_COM_RETURN_CODE
DS F
PEP_COM_RETURN_OK EQU 0
PEP_COM_RETURN_DISABLE EQU 4 Disable transaction
*
*
Additional Program status word information
*
PEP_COM_INT
DS CL8 PSW interrupt codes
*
*
length of DFHPEP_COMMAREA
PEP_COM_LEN EQU *-PEP_COM_STANDARD
Figure 19. Source of DFHPEP communication area (assembler-language)
442 Customization Guide