Okay I’ll post both the invoking program and the one with the ETDEF at 1 Pm USA EST thanks for your help
> On Jan 9, 2018, at 8:50 AM, Binyamin Dissen <bdis...@dissensoftware.com> > wrote: > > Many possibilities, including generating the wrong PC number. > > I would suggest posting you entire program. > > On Mon, 8 Jan 2018 21:31:44 -0500 Joe Reichman <reichman...@gmail.com> wrote: > > :>I just ran the program again under TESTAUTH and did a WHERE after I got the > abend from TESTAUTH its pointing to the inst right after the PC thing is the > PC rtn does what it is supposed to do and I can continue executing > :> > :>-----Original Message----- > :>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Wayne Driscoll > :>Sent: Monday, January 8, 2018 9:20 PM > :>To: IBM-MAIN@LISTSERV.UA.EDU > :>Subject: Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002 > :> > :>Are you sure the 0C2 is occurring at the PC instruction, not because your > program is in problem state when issuing the ETDEF or ETCON macros? I would > run outside of TESTAUTH, so I could get a dump and then look at the PC table > definitions to ensure they are what you are expecting. > :>Wayne Driscoll > :>Rocket Software > :>Note - All opinions are strictly my own. > :> > :>-----Original Message----- > :>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Joe Reichman > :>Sent: Monday, January 8, 2018 7:29 PM > :>To: IBM-MAIN@LISTSERV.UA.EDU > :>Subject: Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002 > :> > :>I have an OLD ESA/390 Pops book I am quoting from > :> > :> "if the current PSW specifies problem state the current PSW-key mask in > control register 3 is tested against the AKM and PSW key mask are anded and > if the result I zero a privilege operation is recognized" > :> > :>So If I am in problem state the AKM field which I specified as everything 0 > :>- 15 determines if the PC is a privileged operation > :> > :>-----Original Message----- > :>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Charles Mills > :>Sent: Monday, January 8, 2018 7:44 PM > :>To: IBM-MAIN@LISTSERV.UA.EDU > :>Subject: Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002 > :> > :>S0C2 is not a key problem, it is a state problem. Does your S0C2 PSW show > supervisor state? > :> > :>Is there any possible cause for S0C2 *other* than "you tried a privileged > op code but you were not in supervisor state"? > :> > :>Charles > :> > :> > :>-----Original Message----- > :>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Joe Reichman > :>Sent: Monday, January 8, 2018 3:55 PM > :>To: IBM-MAIN@LISTSERV.UA.EDU > :>Subject: PC rtn AKM=(0:15) Getting S0C2 REASON 002 > :> > :>Hi > :> > :> > :> > :>I have a PC rtn defined in the following way with AKM=(0:15) meaning all > keys can access > :> > :> > :> > :> ETDEF TYPE=SET,ETEADR=ETD,ROUTINE=(R2),SSWITCH=YES, X > :> > :> STATE=SUPERVISOR,AKM=(0:15),EKM=0,PC=STACKING > :> > :> > :> > :> > :> > :>And yet while running under TESTAUTH I get the following ABEND > :> > :> > :> > :>IKJ56641I TESTPRGK ENDED DUE TO ERROR > :> > :>IKJ56640I SYSTEM ABEND CODE 0C2 REASON CODE 00000002 > :> > :>---------------------------------------------------------------------- > :>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 > ================================ 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 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 > > -- > 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...@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