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
