Joseph >> I have gotten to a point where in my code I have written a number of SRB’s >> and other types of code that run in Supervisor state and / or key 0
>>To protect my control blocks I wanted to put them in key 4 so that >>inadvertent access would get a s0c4 pic 4 My gut feeling here is you should concentrate on executing in Key4 and avoid running in Key0 as much as possible. (Having your control blocks in key4 does not prevent accidental reference or overlay from key0 code unless you take other measures to protect the memory). Normal methods of running in key4 (or maybe key2) would involve an entry in SCHEDxx for your server jobstep program which would in turn own PC routines with ETDEF entries for any client caller that would declare the execution key. (I do have some sample code on GitHub that demonstrates this) Execution key switch would be made by the PC instruction – there would be no need to issue SPKAs unless you called a system service within the server (or PC routine) that explicitly only supported key0 (and there are not too many of those). >> I have Zpdt personal edition If this was me, I would still start a dialog with Cole Software. Rob Scott Rocket Software From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of Joseph Reichman Sent: 27 February 2023 12:51 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Cant SPKA to PSW Key 4 EXTERNAL EMAIL Rob I have Zpdt personal edition I have gotten to a point where in my code I have written a number of SRB’s and other types of code that run in Supervisor state and / or key 0 To protect my control blocks I wanted to put them in key 4 so that inadvertent access would get a s0c4 pic 4 I am not rocket software and I don’t have what I think is the yearly fee of XDC which about $10,000 which is a lot of money for a working stiff like me I just wonder if anyone who have the Zpdt personal edition is running XDC As far as this latest hurdle The only time test / TESTAUTH has a problem with my code is when I am at a breakpoint and am not in key 8 or 0 I am first begging to think that right before I enter SVC 97 I could change back to key 8 and when I resume go back to key 4 Haven’t thought this through as I just read your email and I’m and starting my day Thanks for your help If Dave come gives me a discounted price I would be willing to listen > On Feb 27, 2023, at 5:56 AM, Seymour J Metz > <sme...@gmu.edu<mailto:sme...@gmu.edu>> wrote: > > To expand on that, never throw out debug scaffolding after you go > production; keep the test cases and AIF out anything that you want to disable > rather than deleting it. > > > -- > Shmuel (Seymour J.) Metz > http://mason.gmu.edu/~smetz3<http://mason.gmu.edu/~smetz3> > > ________________________________________ > From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of > Rob Scott [rsc...@rocketsoftware.com] > Sent: Monday, February 27, 2023 5:07 AM > To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU> > Subject: Re: Cant SPKA to PSW Key 4 > > Joseph > > As others might have suggested, if you are even semi-serious about writing > authorized code then I think it would be worth your time talking to Cole > Software about getting z/XDC. > > Independently of that discussion, it might be a good idea to take stock of > your current software’s own trace abilities (and I mean something more than > just putting the odd WTO out). > > It would be a very good investment in your time to build a comprehensive > internal trace capability for your software, something that can support all > environments that it can be executed in. > > Even if you are writing authorized code for your own interest/hobby, then > believe me that solving this issue is extremely interesting (and rewarding). > > The return on investment for this is huge if your code ever reaches a > customer site and you are trying to resolve a problem. > > Rob Scott > Rocket Software > > From: IBM Mainframe Discussion List > <IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU>> On Behalf Of > Joseph Reichman > Sent: 26 February 2023 22:36 > To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU> > Subject: Re: Cant SPKA to PSW Key 4 > > EXTERNAL EMAIL > > > > Jim > > How about IDF or tool debug I have been trying to get IDF running so I can > debug code running in key 4 but if you say I’m wasting my time ? > >> On Feb 26, 2023, at 5:18 PM, Jim Mulder >> <d10j...@us.ibm.com<mailto:d10j...@us.ibm.com<mailto:d10j...@us.ibm.com%3cmailto:d10j...@us.ibm.com>>> >> wrote: >> >> They do not support whatever is in TCBPKF. I have seen code in TSO which has >> hardcoded x'80'. >> >> Jim Mulder >> >> -----Original Message----- >> From: IBM Mainframe Discussion List >> <IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU%3cmailto:IBM-MAIN@LISTSERV.UA.EDU>>> >> On Behalf Of Ed Jaffe >> Sent: Saturday, February 25, 2023 9:50 PM >> To: >> IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU%3cmailto:IBM-MAIN@LISTSERV.UA.EDU>> >> Subject: Re: Cant SPKA to PSW Key 4 >> >>>> On 2/23/2023 6:46 PM, Joseph Reichman wrote: >>> I am trying to change psw storage key from "Normal" key 8 to Key 4 >>> >>> SPKA X'40' >>> >>> I have bit 15 of the psw 0 ,meaning I am in supervisor state and get a >>> s0c1 running this code under TESTAUTH >>> >>> I am able to get to PSW key 0 SPKA 0 >>> >>> Don't get it >> >> ISTR discovering empirically 30+ years ago that TSO/E TEST and TESTAUTH >> support only two execution keys: X'80' and X'00'. >> >> I wondered if in-fact they actually support whatever key is in TCBPKF and >> X'00' but never experimented to see if that was the case. >> >> -- >> Phoenix Software International >> Edward E. Jaffe >> 831 Parkview Drive North >> El Segundo, CA 90245 >> https://secure-web.cisco.com/1Fy8Gw-9vhBQBgeJhqtayl34t6eGNe3MJfwiwKBGXtIr3SdVPKArvm2n4bNK1UdigF931FgIXmPZGZnSI9eV28ixKcXDQ7Xn4XHBA0sL_wSh3sfeSydMxqD4svkwOQeBHjZAPVZzWXHc5qLtfqIjI6yvi0EyEfb4aY1Nn1oZlOylb-eyvj4WOP3nk3K8xN2lqZ2rVeKnYzlxoM9DwlJP2m2d0tjxBjfltHap3tJDWfxXpdC333dKhdGybAPTK3O-AK2Yovw5nUBq1O_YCasCV-PPguSfLJ3PKBRHVLeb08TM7wHAstgPYHK2CmCSDF47o5PgKOc08_NCYDiH3g8wSKyKyhS2jiC5mzbrA160azpdtcYJJF3Fig66EzkLnCyjaZ7DLqXLmPdkSfYOE9ksz8L7rkfPlb6XJU6VdV7Tv5Vg/https%3A%2F%2Fwww.phoenixsoftware.com%2F<https://secure-web.cisco.com/1Fy8Gw-9vhBQBgeJhqtayl34t6eGNe3MJfwiwKBGXtIr3SdVPKArvm2n4bNK1UdigF931FgIXmPZGZnSI9eV28ixKcXDQ7Xn4XHBA0sL_wSh3sfeSydMxqD4svkwOQeBHjZAPVZzWXHc5qLtfqIjI6yvi0EyEfb4aY1Nn1oZlOylb-eyvj4WOP3nk3K8xN2lqZ2rVeKnYzlxoM9DwlJP2m2d0tjxBjfltHap3tJDWfxXpdC333dKhdGybAPTK3O-AK2Yovw5nUBq1O_YCasCV-PPguSfLJ3PKBRHVLeb08TM7wHAstgPYHK2CmCSDF47o5PgKOc08_NCYDiH3g8wSKyKyhS2jiC5mzbrA160azpdtcYJJF3Fig66EzkLnCyjaZ7DLqXLmPdkSfYOE9ksz8L7rkfPlb6XJU6VdV7Tv5Vg/https%3A%2F%2Fwww.phoenixsoftware.com%2F><https://secure-web.cisco.com/1HlrTjm1d-4gleZsm32JFmvn6MOXUjvhxM2DJaakY4qHsaFNmnYG8w6ljTrtlOk9uq7Z-ExN-n7NrNfiKjpDvoXvWMFoUIs_1LaAT09uRQ2ssfODox3OTVRrfHsLbb5YRTbvq7chMECV5Y9U-ZCf0VIKH1-UVjR5jLCU1N13X8e7LNyCIaG1XHX3mKsgPYRcCnA2QB7R0wEclTmk2UfFMH9x5Gt-zd8AqpQgFUq2L8jPiyODuzqq7nMIrEpqkiykXSCiCzayXUBO-ySrNy3tWAqUMVLlMXa3CXrfAfcejsCWQeXIrMBLQStQDPHEVaE5JhvwlsV4KzG6Eh-LjbeKaymRK_ZgNj68FVY7NVyyQIMkABxMzH43bb-v8rX8dWw3OEKkWGj3C1ub3uM1svAA_j1r9OIGkRSfmaNWXSsOri9w/https%3A%2F%2Fwww.phoenixsoftware.com<https://secure-web.cisco.com/1HlrTjm1d-4gleZsm32JFmvn6MOXUjvhxM2DJaakY4qHsaFNmnYG8w6ljTrtlOk9uq7Z-ExN-n7NrNfiKjpDvoXvWMFoUIs_1LaAT09uRQ2ssfODox3OTVRrfHsLbb5YRTbvq7chMECV5Y9U-ZCf0VIKH1-UVjR5jLCU1N13X8e7LNyCIaG1XHX3mKsgPYRcCnA2QB7R0wEclTmk2UfFMH9x5Gt-zd8AqpQgFUq2L8jPiyODuzqq7nMIrEpqkiykXSCiCzayXUBO-ySrNy3tWAqUMVLlMXa3CXrfAfcejsCWQeXIrMBLQStQDPHEVaE5JhvwlsV4KzG6Eh-LjbeKaymRK_ZgNj68FVY7NVyyQIMkABxMzH43bb-v8rX8dWw3OEKkWGj3C1ub3uM1svAA_j1r9OIGkRSfmaNWXSsOri9w/https%3A%2F%2Fwww.phoenixsoftware.com>> >> >> >> ---------------------------------------------------------------------- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email to >> lists...@listserv.ua.edu<mailto:lists...@listserv.ua.edu<mailto:lists...@listserv.ua.edu%3cmailto: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<mailto:lists...@listserv.ua.edu<mailto:lists...@listserv.ua.edu%3cmailto:lists...@listserv.ua.edu>> > 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://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Fmy.rocketsoftware.com%2FRocketCommunity%2FRCEmailSupport&data=05%7C01%7Csmetz3%40gmu.edu%7C5ca0a54c290e4bb11e2d08db18aa9324%7C9e857255df574c47a0c00546460380cb%7C0%7C0%7C638130893285480126%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C2000%7C%7C%7C&sdata=oN8IpgYzIqaDFgHrZJH7W0nAgZtnebdyyDG9V6Ht4LU%3D&reserved=0<https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Fmy.rocketsoftware.com%2FRocketCommunity%2FRCEmailSupport&data=05%7C01%7Csmetz3%40gmu.edu%7C5ca0a54c290e4bb11e2d08db18aa9324%7C9e857255df574c47a0c00546460380cb%7C0%7C0%7C638130893285480126%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C2000%7C%7C%7C&sdata=oN8IpgYzIqaDFgHrZJH7W0nAgZtnebdyyDG9V6Ht4LU%3D&reserved=0> > Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - > https://nam11.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.rocketsoftware.com%2Fmanage-your-email-preferences&data=05%7C01%7Csmetz3%40gmu.edu%7C5ca0a54c290e4bb11e2d08db18aa9324%7C9e857255df574c47a0c00546460380cb%7C0%7C0%7C638130893285480126%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C2000%7C%7C%7C&sdata=AeDBtfoOgYR%2FDujWPZDRPT%2BBDD%2BVxnK8G%2F7mTMvvJrM%3D&reserved=0<https://nam11.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.rocketsoftware.com%2Fmanage-your-email-preferences&data=05%7C01%7Csmetz3%40gmu.edu%7C5ca0a54c290e4bb11e2d08db18aa9324%7C9e857255df574c47a0c00546460380cb%7C0%7C0%7C638130893285480126%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C2000%7C%7C%7C&sdata=AeDBtfoOgYR%2FDujWPZDRPT%2BBDD%2BVxnK8G%2F7mTMvvJrM%3D&reserved=0> > Privacy Policy - > https://nam11.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.rocketsoftware.com%2Fcompany%2Flegal%2Fprivacy-policy&data=05%7C01%7Csmetz3%40gmu.edu%7C5ca0a54c290e4bb11e2d08db18aa9324%7C9e857255df574c47a0c00546460380cb%7C0%7C0%7C638130893285480126%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C2000%7C%7C%7C&sdata=NzfemXFthR7%2Bk%2BwUn2bNW7lE52t3dDlUuVPZwLs4Isg%3D&reserved=0<https://nam11.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.rocketsoftware.com%2Fcompany%2Flegal%2Fprivacy-policy&data=05%7C01%7Csmetz3%40gmu.edu%7C5ca0a54c290e4bb11e2d08db18aa9324%7C9e857255df574c47a0c00546460380cb%7C0%7C0%7C638130893285480126%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C2000%7C%7C%7C&sdata=NzfemXFthR7%2Bk%2BwUn2bNW7lE52t3dDlUuVPZwLs4Isg%3D&reserved=0> > ================================ > > 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 lists...@listserv.ua.edu<mailto: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<mailto: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<mailto: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
