Mr Dissen, Since we can enhance BUFNO, we need to check the region available in the address space to prevent S878 abend, specially when DCB buffers are located below 16Mb line.
When OPEN is issued for a single DCB, LDA fields show me the available memory, and i can decide if DCBBUFNO will be modified of not, but when OPEN has more than one DCB in parameter list, LDA fields show us that buffers of all DCBs have already been used in private área. I want to know if the same OPEN is for many DCBs, to choose if any of these DCBs will have its BUFNO modified or not. For example, if multiple DCBs only the first one will be manipulated. Atenciosamente / Regards / Saludos Ituriel do Nascimento Neto BANCO BRADESCO S.A. 4250 / DITI Engenharia de Software Sistemas Operacionais Mainframes Tel: +55 11 3684-9602 R: 49602 3-1404 Fax: +55 11 3684-4427 -----Mensagem original----- De: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] Em nome de Binyamin Dissen Enviada em: terça-feira, 23 de outubro de 2018 16:27 Para: IBM-MAIN@LISTSERV.UA.EDU Assunto: Re: DCB Open Exit Well ..... You can back up to the RB issuing the OPEN and check the plist. Be aware that there are different formats for 24 and 31 bit, and that there may be ACBs in the list and the OPENs may fail. Why do you care? On Tue, 23 Oct 2018 18:51:46 +0000 ITURIEL DO NASCIMENTO NETO <ituriel.nascime...@bradesco.com.br> wrote: :>Hi everyone, :> :>We do have a DCB OPEN exit (IFG0EX0B) used to manipulate DCBBUFNO. :>I would like to know if there is a way to detect when OPEN is issued with more than one DCB in the parameter list, :>like the example below: :> :> :> 16 OPEN (SYSIN,(INPUT),SYSIN1,(INPUT),SYSIN2,(INPUT)) :>000014 18+ CNOP 0,4 Align list to word :>000014 4D10 C024 00024 19+ BAS 1,*+16 Load reg 1 with list :>000018 00 20+ DC AL1(0) Option byte :>000019 000074 21+ DC AL3(SYSIN) DCB or ACB address :>00001C 00 22+ DC AL1(0) Option byte :>00001D 0000D4 23+ DC AL3(SYSIN1) DCB or ACB address :>000020 80 24+ DC AL1(128) Option byte :>000021 000134 25+ DC AL3(SYSIN2) DCB or ACB address :>000024 0A13 26+ SVC 19 Issue OPEN SVC :> :>We have checked field DCBQSWS (bit DCBPOPEN) to detect the situation reported above, but apparently :>this bit is turned on only when using Parallel Data Access Blocks (PDAB), that is not the case. :> :>So, any tip ? -- Binyamin Dissen <bdis...@dissensoftware.com> http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN AVISO LEGAL <br>...Esta mensagem é destinada exclusivamente para a(s) pessoa(s) a quem é dirigida, podendo conter informação confidencial e/ou legalmente privilegiada. Se você não for destinatário desta mensagem, desde já fica notificado de abster-se a divulgar, copiar, distribuir, examinar ou, de qualquer forma, utilizar a informação contida nesta mensagem, por ser ilegal. Caso você tenha recebido esta mensagem por engano, pedimos que nos retorne este E-Mail, promovendo, desde logo, a eliminação do seu conteúdo em sua base de dados, registros ou sistema de controle. Fica desprovida de eficácia e validade a mensagem que contiver vínculos obrigacionais, expedida por quem não detenha poderes de representação. LEGAL ADVICE<br>...This message is exclusively destined for the people to whom it is directed, and it can bear private and/or legally exceptional information. If you are not addressee of this message, since now you are advised to not release, copy, distribute, check or, otherwise, use the information contained in this message, because it is illegal. If you received this message by mistake, we ask you to return this email, making possible, as soon as possible, the elimination of its contents of your database, registrations or controls system. The message that bears any mandatory links, issued by someone who has no representation powers, shall be null or void. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN