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
