Rob you are right it is the pointer to the SSOB Thank you
> On Nov 12, 2024, at 6:22 AM, Rob Scott > <[email protected]> wrote: > > I think you are passing the address of the SSOB via R1 and not the address > of a pointer to the SSOB. > > Take a look at the diagram in the IEFSSREQ manual. > > Rob Scott > Rocket Software > > Get Outlook for Android<https://aka.ms/AAb9ysg> > ________________________________ > From: IBM Mainframe Discussion List <[email protected]> on behalf of > Joseph Reichman <[email protected]> > Sent: Tuesday, November 12, 2024 7:32:25 AM > To: [email protected] <[email protected]> > Subject: Re: ABEND/HELP setting up IEFSSREQ > > EXTERNAL EMAIL > > > > > Thanks > > Thought I accomplished that with the OILH > > >> On Nov 12, 2024, at 1:07 AM, Binyamin Dissen >> <[email protected]> wrote: >> >> This one is easier. >> >> R1 -> A(X'80000000'+SSOB) >> >> >> On Mon, 11 Nov 2024 19:32:50 -0500 Joseph Reichman >> <[email protected]> wrote: >> >> :>Hi >> :> >> :>I am getting an abend using IEFSSREQ I believe I set up everything in my >> :>subsystem initialization Table which I will post I run this under TESTAUTH >> :>and got a return code 0 >> :> >> :>I got a zero-return code from this function and from the activate as well >> :>using TASID if se that the subsystem is active >> :> >> :>The subsystem name is TSTA >> :> >> :> LA R8,TOKEN1 >> :> IEFSSVT REQUEST=CREATE,SUBNAME=SSCTSNAM,SSVTDATA=ROUTINE1, * >> :> OUTTOKEN=(8),LOADTOGLOBAL=&LG,MAXENTRIES=ENTRIES, + >> :> RETCODE=RC,RSNCODE=REASON, + >> :> MF=(E,VTPARMS) >> :> * >> :> IEFSSI REQUEST=ACTIVATE,SUBNAME=SSCTSNAM,INTOKEN=TOKEN1, + >> :> RETCODE=RC,RSNCODE=REASON, + >> :> >> :> >> :> >> :>*********************************************************************** >> :> IEFSSVTI TYPE=INITIAL,SSVTDATA=ROUTINE1,TABLEN=ENDTBL >> :> FIRSTENT IEFSSVTI TYPE=ENTRY,NUMFCODES=1,FCODES=236,FUNCNAME=GETVECT >> :> IEFSSVTI TYPE=ENTRY,NUMFCODES=2, X >> :> FCODES=(SSOBEOT,SSOBFEOT),FUNCNAME=TSTACTBL >> :> * IEFSSVTI TYPE=ENTRY,NUMFCODES=1,FCODES=254,FUNCNAME=WRITEIT >> :> * IEFSSVTI TYPE=ENTRY,NUMFCODES=1,FCODES=255,FUNCNAME=DELETEIT >> :> * IEFSSVTI TYPE=ENTRY,NUMFCODES=1,FCODES=9,FUNCNAME=LISTEN >> :> IEFSSVTI TYPE=FINAL >> :> * >> :> >> :> Code to invoke firstent and results in S0C4 I believe I initialized >> :>the necessary fields in the SSOB and SSIB >> :> >> :> LA R8,TSSOB >> :> USING SSOB,R8 >> :> LA R9,TSSIB >> :> ST R9,SSOBSSIB >> :> USING SSIB,R9 >> :> MVC SSIBSSNM,=C'TSTA' >> :> MVC SSIBID,=C'SSIB' >> :> MVC SSIBLEN,=AL2(SSIBSIZE) >> :> MVC SSOBID,=C'SSOB' >> :> LA R15,SSOBHSIZ >> :> STH R15,SSOBLEN >> :> MVC SSOBFUNC,=H'236' Get Anchor >> :> LA R15,RETVECT >> :> ST R15,SSOBINDV >> :> MVC 0(2,R15),=H'6' >> :> LR R1,R8 >> :> OILH R1,X'8000' >> :> IEFSSREQ >> :> >> :>I get a s0c4 from the IEFJSRE1 >> :> >> :>SDWA address: 0002F360 >> :> >> :>Abend code: 0C4 >> :> >> :>Reason code: 0010 >> :> >> :>Module name: IEFJSRE1 Entry point: 04A92EF8 ... >> :> >> :>PSW at the time of Error: 478D1000 84A929BA Offset: >> :> >> :>General registers at abend: >> :> >> :> R0:00000000 R1:00000000 R2:8501CC0A R3:008B9280 >> :> >> :> R4:7F7A6BA8 R5:000000FF R6:00000004 R7:20894EF8 >> :> >> :> R8:208937E4 R9:00000000 R10:7F7A6B08 R11:7F7A6C58 >> :> >> :> R12:7F7A6BA8 R13:008B9D08 R14:00FA6000 R15:03055528 >> :> >> :>Access registers at abend: >> :> >> :> AR0:00000000 AR1:00000000 AR2:7F7A6878 AR3:00000000 >> :> >> :> AR4:00000000 AR5:00000000 AR6:00000000 AR7:00000000 >> :> >> :> AR8:00000000 AR9:00000000 AR10:00000000 AR11:00000000 >> :> >> :> AR12:00000000 AR13:00000000 AR14:00000000 AR15:00000000 >> :> >> :>Program: IEFJSREQ Called IEFJSRE1 At offset 00C6 ... >> :> >> :> >> :> >> :> >> :>---------------------------------------------------------------------- >> :>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<http://www.dissensoftware.com> >> >> Director, Dissen Software, Bar & Grill - Israel >> >> ---------------------------------------------------------------------- >> 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 > > ================================ > 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
