You can try another approach by specifying CSVDYNEX interface to call a dynamic ICHRIX01 exit. Of course you will need an IPL, but after that the dynamic exit could be activated/deactivated/changed in flight.
You have to create a static ICHRIX01 exit, loaded at IPL time, which can have a logic like this : Query DYN.ICHRIX01 IF NOT Defined OR Only Defined IMPLICIT Then DO Define DYN.ICHRIX01 END CALL DYN.ICHRIX01 IF Exit Module is ACTIVE Then DO EXIT MODULE executes and Returns END Additionally you have to define it in SYS1.PARMLIB : EXIT ADD EXITNAME(DYN.ICHRIX01) MODNAME(DYNRIX01) The DYNRIX01 will have the logic that normally would be coded in ICHRIX01, and can be located in linklist. Atenciosamente / Regards / Saludos Ituriel do Nascimento Neto Banco Bradesco S/A 4254 - DPCD Engenharia de Software Sistemas Operacionais Mainframes Tel: +55 11 4197-2021 R: 22021 Fax: +55 11 4197-2814 |-----Mensagem original----- |De: IBM Mainframe Discussion List |[mailto:ibm-m...@bama.ua.edu] Em nome de Beesley, Paul |Enviada em: segunda-feira, 7 de dezembro de 2009 11:06 |Para: IBM-MAIN@bama.ua.edu |Assunto: Re: Missing RACF exit | |Thanks Rob. |Turned out to be fairly easy. Dynamically loaded the module |into MLPA, wrote a quick program to zap the address into the |correct slot in the RCVT | |Thanks for your help | | |Regards |Paul | |-----Original Message----- |From: IBM Mainframe Discussion List |[mailto:ibm-m...@bama.ua.edu] On Behalf Of Rob Scott |Sent: 07 December 2009 10:12 |To: IBM-MAIN@bama.ua.edu |Subject: Re: Missing RACF exit | |Paul, | |As far as I am aware, if the exit pointer in the RCVT is |non-zero then RACF will invoke the exit. About 15 years ago I |knocked up a quick+dirty program to dynamically add a RACF |exit and it seemed to work OK. | |I have not seen RACFXITS - however the logic I used was |something along the lines of : | |(o) Determine length of RACF exit |(o) Grab that amount of E-CSA and assign ownership to the |system (ie I want it to persist) |(o) Directed load of the exit module into the E-CSA chunk |(o) Store the E-CSA address into the RCVT (remembering to |indicate AMODE |in bit0) | |These days you have things like dynamic LPA - so you might be |able to avoid most of the heavy lifting and just "zap" in the |new exit address. | |Rob Scott |Developer |Rocket Software |275 Grove Street * Newton, MA 02466-2272 * USA |Tel: +1.617.614.2305 |Email: rsc...@rs.com |Web: www.rocketsoftware.com | |- | |_______________________________________________________ | |Atos Origin and Atos Consulting are trading names used by the |Atos Origin group. The following trading entities are |registered in England and Wales: Atos Origin IT Services UK |Limited (registered number 01245534) and Atos Consulting |Limited (registered number 04312380). The registered office |for each is at 4 Triton Square, Regents Place, London, NW1 |3HG.The VAT No. for each is: GB232327983 | |This e-mail and the documents attached are confidential and |intended solely for the addressee, and may contain |confidential or privileged information. If you receive this |e-mail in error, you are not authorised to copy, disclose, use |or retain it. Please notify the sender immediately and delete |this email from your systems. As emails may be intercepted, |amended or lost, they are not secure. Atos Origin therefore |can accept no liability for any errors or their content. |Although Atos Origin endeavours to maintain a virus-free |network, we do not warrant that this transmission is |virus-free and can accept no liability for any damages |resulting from any virus transmitted. The risks are deemed |to be accepted by everyone who communicates with Atos Origin by email. |_______________________________________________________ | |---------------------------------------------------------------------- |For IBM-MAIN subscribe / signoff / archive access |instructions, send email to lists...@bama.ua.edu with the |message: GET IBM-MAIN INFO Search the archives at |http://bama.ua.edu/archives/ibm-main.html | <HTML><font face="Tahoma" size="1"><HR>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. <HTML><font face="Tahoma" size="1"><HR>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...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
