John and Brian, A big thanks I thought so. Assembler i was aware of, but Cobol I hadnt had the experience. But it looks like it might *be doable* thanks , friend John.
Scott On Mon, May 6, 2019 at 2:40 PM Brian Chapman <bchapma...@gmail.com> wrote: > 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 > -- *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