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
