B37 in locate mode still has buffer available for your use when the DCB Abend exit runs, or ESTAE runs....it is released after those complete. This is important to save any buffered data that is not yet written to disk, as it will then be lost when the dataset is closed by the system and the buffers freed -- after your Abend exit has had a chance to process.
On Mon, Jul 6, 2026 at 3:41 AM Joseph Reichman < [email protected]> wrote: > I finally got it seems I can recover from put move not put locate as the > system buffer is gone > > > On Jul 3, 2026, at 9:12 PM, Michael Stein <[email protected]> wrote: > > > > On Fri, Jul 03, 2026 at 09:16:42PM +0000, Joseph Reichman wrote: > >> Is there a way of determining the field at offset x’2A’ DCBMACR > >> seems to be overlaid after a B37 abend > > > >> There are a number of programs to monitor after doing a lot of research > >> cannt seem to find where or what control block it would be in > > > > DFSMS Macro Instructions for Data Sets > > Non-VSAM macro instructions > > Data control block—common fields > > > > If the DCB is open then some fields are different from before it was > open. > > > > see: > > > https://www.ibm.com/docs/en/zos/3.1.0?topic=blocks-data-control-blockcommon-fields > > > > 40(28) 8 DCBDDNAM Eight-byte name of the data definition > statement > > that defines the data set associated > > with this DCB. (Before DCB is opened.) > > > > 40(28) 2 DCBTIOT (After DCB is opened.) Offset from the TIOT > origin > > to the TIOELNGH field in the TIOT entry > > for the DD statement associated with this > > DCB. Unsigned. Maximum value is just below 64K. > > > > 42(2A) 2 DCBMACRF This field can only be referred to during > > and after OPEN. It is common to all uses > > of the DCB and is created by moving the > > DCBMACR field into this area. > > > > 45(2D) 3 DCBDEBA (After DCB is opened.) Address of field, > DEBBASIC, > > in the associated DEB. > > > > ---------------------------------------------------------------------- > > 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 > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
