You are not understanding the integrity exposures and the requirements to use system key storage. I would suggest dropping the idea of doing this as a CICS transaction.
As to your business case, what part of CICS makes the coding easier? How will you be using the data? Did your client (of Sunflower Consulting) suggest doing this under CICS/ On Thu, 18 Oct 2018 19:38:03 -0500 Wang Rong <[email protected]> wrote: :>Hi Rob, :> :> Thanks for your reply! :> I'm not quite sure "some sort of PC routine service to invoke the IFI0306 request" means, can you help give some more explanation? :> Is it possible to do like this: :> 1. write a Assembler subroutine to get ECSA storage and return the address , something like: :> ENTRY STM R14,R12,12(R13) :> MODESET KEY=ZERO,MODE=SUP :> LA R0,DYNSIZE :> STORAGE OBTAIN,LENGTH=((R0)),SP=241,KEY=7 :> ...... :> :> 2. write the cobol program under CICS to capture IFI0306, call the Assembler subroutine , and set the return area to the ECSA storage address? :> S-CALL-DSNWLI-READS. :> CALL assembler-subroutine :> :> set ADDRESS OF WS-RETURN-DATA TO pointer-return-from- assembler-subroutine :> CALL 'DSNWLI' USING WS-IFI-FUNC :> DSNDIFCA :> WS-RETURN-AREA :> IFCID306 :> DSNDWQAL :> ..... :> :> 3. after message processing, call Assembler subroutine again to free the ECSA storage... :> :> :> :>-----Original Message----- :>The book goes on to say that the application requesting IFI0306 must be executing in key0. :> :>CICS is NOT the correct environment for this work. :> :>You either need a separate authorized jobstep program, or some sort of PC routine service to invoke the IFI0306 request. :> :>The minute you go into key0, all concepts of "easy" coding vanish and you are one instruction away from an unscheduled IPL. :> :>-----Original Message----- :>From: IBM Mainframe Discussion List <[email protected]> On Behalf Of Wang Rong :>Sent: Thursday, October 18, 2018 11:09 AM :>To: [email protected] :>Subject: Re: get ECSA key 7 storage under CICS :> :>Hi Binyamin, :> :> Many thanks to your quick replay. :> I'm trying to capture/send DB2 log record using IFI call. The storage requirement is ECSA key 7 storage: "The return area for monitor programs that issue IFCID 0306 requests must reside either in ECSA key 7 storage or in the 64-bit common key 7 storage area above the 2-GB bar" (from IBM book). :> I prefer to use CICS because it's easy programming. :> :>---------------------------------------------------------------------- :>For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN :>================================ :>Rocket Software, Inc. and subsidiaries ? 77 Fourth Avenue, Waltham MA 02451 ? Main Office Toll Free Number: +1 855.577.4323 :>Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport :>Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences :>Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy :>================================ :> :>This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. :> :>---------------------------------------------------------------------- :>For IBM-MAIN subscribe / signoff / archive access instructions, :>send email to [email protected] with the message: INFO IBM-MAIN :> :>---------------------------------------------------------------------- :>For IBM-MAIN subscribe / signoff / archive access instructions, :>send email to [email protected] with the message: INFO IBM-MAIN -- 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
