It's a matter of statistics. While I have seen real live 0004 S0C4 AENDs, they have been far less frequent than the interrupt codes associated with translation, so look at the interrupt code before worrying about the key.
-- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 עַם יִשְׂרָאֵל חַי נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר ________________________________________ From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf of Binyamin Dissen <00000662573e2c3a-dmarc-requ...@listserv.ua.edu> Sent: Monday, January 27, 2025 1:19 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Explanation of TCBPFK External Message: Use Caution Well, the PSW at abend should show they key it was in. Does it show zero? A PSW with key 0 still can get PIC-4 in DAT mode if the page or segment is protected (for example LPA pages). A PSW with key 0 can get a PIC 4 in either mode if modifying low storage without disabling low storage protection. Finally, your best way to get the TCB key you want is to put the program in the PPT and invoke it as a job step task. Not at all trivial to change on the fly. On Sun, 26 Jan 2025 20:57:47 -0500 Joseph Reichman <000005812645a43c-dmarc-requ...@listserv.ua.edu> wrote: :>Hi :> :>I am trying to hunt down a S0C4 pic 4 :> :>So I did a MODESET MODE=SUP,KEY=ZERO :> :>I ended up with the ABEND I stated :> :>My first question what exactly is TCBPFK used in my situation with executing the modeset :>The value of TCBPFK was X'80' :> :>Which the documentation says is user key :> :>My guess the modeset changed the value of the RBOPSW is there any way besides actually changing storage value of TCBPFK :> :>To change TCB key or I guess TCBPFK to zero :> :>Thanks :>---------------------------------------------------------------------- :>For IBM-MAIN subscribe / signoff / archive access instructions, :>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Binyamin Dissen <bdis...@dissensoftware.com> http://secure-web.cisco.com/1xhxcG-7n1xhQSh_QxSWKDXGjcrhAmy3VNRLBCBv26PHXtAhLfIY9CDxmjt9fg2b0pFW8WL5LGWdkB6qDUPfU1IGBoTs4N6ziGTrjbSs6rywdv7GMpmYXYZmtGJf0j7l6dTNjyDnFk-8rdRzNd8w0GdeNapv8C7-Ztjo_10-5OIxTnwF8zn4P-spVg4m3oN1pYweOXz7BkFWEfG7misaZL9LdqjOEvIRd6ZwTNnVqNAvOyQlPTGCcYVcrKVrb6qK0hMO32pdyDOVRCiChQ2vDRJlqa5x08epFyMpXvOCE3VV_-LwruuoZBTkhxJqFWUxKjBAnDTzuu3G6Z9kUc_SQ0jkOjdAbmXXhSJ9TQh9b6SczHYzkCpr9LPE8GL2BlMqVErxv-_JaMOx5ffOtLNXcNLstxYxlEt2CrFB9COA4vmE/http%3A%2F%2Fwww.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
