Scott, An assembler I/O module would handle this without much effort. Take a look at the EXLST parameter on the file DCB.
*DCBEXIT DS 0H * * USING DCBXPLST,R1 * * CLHHSI DCBXPRM1,B37 Abend code B37? * * BE RECOVER Yes. Ignore abend* *…* *RECOVER DS 0H * *<recovery logic>* * LTORG * *B37 EQU X'B370' B37 Abend code * ** * *DCBTEMP DCB DDNAME=<dcbname>,DSORG=PS,MACRF=PM,RECFM=FB,LRECL=2960, ** * EXLST=ABNDXLST * ** * *ABNDXLST DC AL1(EXLLASTE+EXLDCBAB),AL3(DCBEXIT) * ** * * IHAEXLST * * DCBD * ** * Thank you, Brian Chapman On Mon, May 6, 2019 at 2:15 PM scott Ford <idfli...@gmail.com> wrote: > All: > > I have a QSAM question. If I have a Cobol program writing to a QSAM file > and it runs out of space on the file, i.e.; SB37 , can i recover from the > SB37 without manual intervention. > A possible condition handler ? > > If I write and Assembler I/O routine to be called passing the data to and > writing to the QSAM file, the same question, my assumption is "yes" and can > someone point me to the manual I assume it DFSMSdfp working with datasets > ... > > Regards, > Scott > > -- > > > > *IDMWORKS * > > Scott Ford > > z/OS Dev. > > > > > “By elevating a friend or Collegue you elevate yourself, by demeaning a > friend or collegue you demean yourself” > > > > www.idmworks.com > > scott.f...@idmworks.com > > Blog: www.idmworks.com/blog > > > > > > *The information contained in this email message and any attachment may be > privileged, confidential, proprietary or otherwise protected from > disclosure. If the reader of this message is not the intended recipient, > you are hereby notified that any dissemination, distribution, copying or > use of this message and any attachment is strictly prohibited. If you have > received this message in error, please notify us immediately by replying to > the message and permanently delete it from your computer and destroy any > printout thereof.* > > ---------------------------------------------------------------------- > 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
