Why not use CSVQUERY?
-- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Joseph Reichman [reichman...@gmail.com] Sent: Sunday, January 10, 2021 3:21 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Obtaining the Entry Point and Offset for an abending program in the SD WA You should pass the program name or rather CSECT name as a parm that way you can compare it to CDNAME if you say the program has multiple csect then quit possibly the CDE is minor CDE if so then CDXLMJP is pointer to the next CDE not xlst you can chain via CDXLMJP to get the load module CDE name in which case you Can get length of the entire load module and see if the PSW SDWAEC1 or EC2 is within youR load module if not then the abend is somewhere in z/os in which case you will have to chain SDWARBAD to get to your program RB -----Original Message----- From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of Michael A. Shaw Sent: Sunday, January 10, 2021 1:56 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Obtaining the Entry Point and Offset for an abending program in the SD WA On 1/9/2021 1:08 PM, esst...@juno.com 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
