Subject: Re: Choosing a CICS exit
From: Martin Trübne (martin@pi-sysprog.de)
Date: Thu Jul 21 2011 - 05:07:06 EDT
David, >> I assume that is what I would do in XEIIN. That is what you can do in that exit- but what is coding and testing an exit vs a little hex calculation and maybe two attempts to alter the program code? >> I merely have to figure out what portion of the command contains the hex zeros, so that I can overlay it. You would have to figure out whether it is the second or third parameter and you would have to figure out which bit to check for its existence in first operand and not to forget: you would have to provide storage for the new operand ...... with the approach I suggest- - which parm is it - check the setting of that parm (CEDF and hold before execution and go back to where that parm is prepared(*)). - change the code of the program if it works- you are done..... if not then the XEIN is in order. ......................................... (*) the codesequence is something like this----comments are mine LA R1,DFHEIPL prep for setting LA R14,=X'xxxxxx' prep parm 1 LA R15,=C'PARM2' PREP PARM 2 LA R0,=A(PARM3) PREP PARM 3 STM R14,R15,0(R1) STOR PARM1 THRU 3 OI 8(R1),X'80 flag end of parmlist L R15,=V(wherever) BALR R14,R15 <<<<<----- this is where R14 at CEDF points to -- Martin Pi_cap_CPU - all you ever need around MWLC/SCRT/CMT in z/VSE more at http://www.picapcpu.de
This archive was generated by hypermail 2b25 : Wed Aug 31 2011 - 23:50:08 EDT