How do you address multiple OPEN statements? How do you know the earlier datasets are more deserving?
I would expect that the standard print files will be the first ones opened, and they probably benefit the least. It would be better to scan the TIOT to determine the more deserving (TAPE? DASD?) and just do them. On Tue, 23 Oct 2018 20:09:53 +0000 ITURIEL DO NASCIMENTO NETO <[email protected]> wrote: :>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:[email protected]] Em nome de Binyamin Dissen :>Enviada em: terça-feira, 23 de outubro de 2018 16:27 :>Para: [email protected] :>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 <[email protected]> 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 <[email protected]> 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 [email protected] with the message: INFO IBM-MAIN
