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
