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 > > 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
