You need to check the SDWANAME ( hope I spelled it right) I believe if the second 4 bytes is 0 i.e. you have a rb then you would need to obtain the entry point from CDE When the second 4 bytes is 0 then first 4 bytes is a RB check the corresponding RBCDE to see if CDENAME is you program name (if not loop backward via RBLINK)
If yes the CDENTPT is your program entry point -----Original Message----- From: IBM Mainframe Discussion List <[email protected]> On Behalf Of Michael A. Shaw Sent: Sunday, January 10, 2021 1:56 PM To: [email protected] Subject: Re: Obtaining the Entry Point and Offset for an abending program in the SD WA On 1/9/2021 1:08 PM, [email protected] wrote: > <snip> > . > The Program runs as a standard Batch Job with Multiple CSECTS and has an RB. > Why do I always get Zeroes in SDWAEPA ? > . > I don't see a field called "Offset" in the SDWA so I suspect that > needs to be calculated, but with out an Entry Point Address (EPA) I cant' calculate it. > . > Can some shed some light on my lack of understanding of this ? > . We don't use SDWAEPA 'cause it is zero sometimes (don't know why). We check to be sure bit SDWARPIV is OFF in the SDWAERRD byte, and if it is, we use the rightmost four bytes of the SDWACTL1 field as the address of the next instruction @ time of ABEND. Using that information you can see if the failure was in your ESTAE exit itself or not. If not, then you can use a combination of the address of the next instruction and breadcrumbs passed to your ESTAE exit via SDWAPARM to determine which CSECT was executing at the time of the ABEND. SDWACMPC helps you decide if the ABEND is worth retrying or not. Mike Shaw MVS/QuickRef Support Group Chicago-Soft, Ltd. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
