Hi
I have a program that is unauthorized that I assembled (from the CBT TAPE)
that is using IKJEFTSR to call an authorized program
I am running this under TESTAUTH
The problem is the second parameter which is the program name (the program
is linked as reusable).
I load this program using the TESTAUTH LOAD subcommand make a breakpoint at
location 0.
However when IKJEFTSR invokes this program I get an abend at location 8.
I though initially I linked this program incorrectly having location 8 as
the entry point however when I do LOAD EP= register 0 points to location 0
in the program
Here is the code
L R15,CVTPTR A(CVT)
L R15,CVTTVT-CVT(,R15) A(TSVT)
L R15,TSVTASF-TSVT(,R15) A(Interface Routine)
CALL (15),(WRKTSRFL, Invoke IKJEFTSR Service Routine *
WRKTSRC, - Command *
L R15,CVTPTR A(CVT)
L R15,CVTTVT-CVT(,R15) A(TSVT)
L R15,TSVTASF-TSVT(,R15) A(Interface Routine)
CALL (15),(WRKTSRFL, Invoke IKJEFTSR Service Routine *
WRKTSRC, - Command *
WRKTSRCL, - Command Length *
WRKRETCD, - Return Code *
WRKRSNCD, - Reason Code *
WRKABNCD), - Abend Code *
VL,MF=(E,WRKTSRPL) -
Command Length *
WRKRETCD, - Return Code *
WRKRSNCD, - Reason Code *
WRKABNCD), - Abend Code *
VL,MF=(E,WRKTSRPL)
WRKSRFL is a full word with the following ALI(0),AL1(0),AL1(1),AL1(1)
WRKTSRC has the following value LWATMGR BUILD
LIST('SYS25208.T132914.RA000.JOER.R0100040') NOMSG
WRKTSRCL is a full word value of 64
The program LWATMGR its entry point is location 0
I do
A TESTAUTH LOAD of the program and make a breakpoint at location 0
I would assume that when IKJEFTSR invokes this command the program LWATMGR
receives control at location +0 and would hit my breakpoint
IT never does it abends at location 8
To make sure I assembled and linked it correctly
I do LOAD EP=LWATMGR and the address in register 0 points to location 0 in
LWATMGR
It seems when IKJEFTSR invokes this command or program it goes to location 8
of the program
Don't understand it LWATMGR (which an APF authorized program) is in the
AUTHCMD /AUTHPGM /AUTHTSF of IKJTSOxx
thanks
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
