Exactly. Why overcomplicate?
On Sun, 15 Apr 2012 14:48:20 -0400 Micheal Butz <michealb...@optonline.net> wrote: :>Being in PSW Key 0 is good for any storage 0 - 16 :> :> :> :>-----Original Message----- :>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf :>Of Binyamin Dissen :>Sent: Sunday, April 15, 2012 1:42 PM :>To: IBM-MAIN@bama.ua.edu :>Subject: Re: 0C4 pic 4 :> :>No, because if you arbitrarily use the key as determined by IVSK, why not :>simply do it in Key 0? :> :>On Sun, 15 Apr 2012 13:29:55 -0400 Micheal Butz <michealb...@optonline.net> :>wrote: :> :>:>Hi, :>:> :>:> :>:> :>:> :>:> :>:> I am getting S0C4 04 within a wait which leads me to believe that the :>:>storage key of the ECB storage key is not the same as the PSW STORAGE KEY :>:>8- 11 :>:> :>:> :>:> :>:> :>:> :>:>Does the following code make sense to resolve this address :>:> :>:> :>:> :>:> :>:> :>:> TESTAUTH FCTN=1 TEST APF AUTORIZATION :>:> :>:> LTR R15,R5 CHECK R15 :>:> :>:> BNZ NAPF&SYSNDX NOT APF :>:> :>:> MODESET MODE=SUP,KEY=NZERO TURN ON BIT 15 IN PSW :>:> :>:> LA R0,REPLY_ECB GET ECB ADDRESS :>:> :>:> IVSK R1,R0 GET STORAGE KEY :>:> :>:> MODESET KEYREG=R1,SAVEKEY=OLDKEY SET STORAGE KEY IN PSW :>:> :>:> :>:> :>:> WAIT=REPLY_ECB :>:> :>:> :>:> :>:> MODESET MODE=PROB,KEY=NZERO back to current TCB key -- Binyamin Dissen <bdis...@dissensoftware.com> 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 lists...@bama.ua.edu with the message: INFO IBM-MAIN