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 ?
Thanks in advance
Atenciosamente / Regards / Saludos
BANCO BRADESCO S.A.
4250 / DITI Engenharia de Software
Sistemas Operacionais Mainframes
Ituriel do Nascimento Neto
Tel: +55 11 3684-9602 R: 49602 3-1404
Fax: +55 11 3684-4427
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 [email protected] with the message: INFO IBM-MAIN
