Help.
I have critical production code which compiles the machine interface
procedure named _MATINVS2.
The reason this MI is used is that it is extremely efficient for the
purpose for which it is used.
This has always worked fine until upgrading to V5R4 where it now throws
a dreaded
Space offset X'40405BEF' or X'0000000000000000' is outside current limit
for job ...................
There is IBM doc for the MI procedure named MATINVS but not for MATINVS2
at
http://publib.boulder.ibm.com/infocenter/iseries/v5r4/topic/rzatk/inst.h
tm
Strangely, the compiler fails to resolve _MATINVS but it does compile
with _MATINVS1 and _MATINVS2
_MATINVS1 appears to require a pointer as a 2nd argument
_MATINVS2 only requires on argument to receive the returned stack info.
So I've been attempting to use _MATINVS1 but it is throwing a "Pointer
not set for location referenced" error.
Here's some sample code that throws the error
It works fine with _MATINVS2 at V5R2 by changing the procedure name to
_MATINVS2 and dropping the 2nd argument
D wPgm s 30
D tmpstr s 52
D xPointer s *
D wObj ds 60
D wObjLib 30
D wObjPgm 30
D wInvStk ds 32767
D wInvBytPrv 10i 0
D wInvBytAvl 10i 0
D wInvNbrEnt 10i 0
D wInvMrkCnt 10i 0
D pInvEnt s *
D wInvEnt ds 128 based(pInvEnt)
D 32
D pInvPgm *
D wInvNbr 10i 0
D wInvMec 1
D wInvTyp 1
D wInvMrk 10i 0
D wInvIns 10i 0
D wInvActGrp 10i 0
D wInvSusP *
D MatInvS pr extproc('_MATINVS1')
D xInvStk like(wInvStk)
D * value
D GetPgmName pr 60
D xpPgm *
C eval xPointer = *null
C callp MatInvS (wInvStk:xPointer)
C eval pInvEnt = %addr(wInvStk) + 16
C do wInvNbrEnt
C eval wObj = GetPgmName (pInvPgm)
C eval tmpstr = %trim(wObjLib) + '/' +
C %trim(wObjPgm)
C tmpstr dsply
C eval pInvEnt = pInvEnt + %size(wInvEnt)
C enddo
C eval *inlr = *on
************************************************************************
******
** Get Program Name, returns blank if domain violation (security level
= 40)
************************************************************************
******
P GetPgmName b
D pi 60
D xpPgm *
D wMatTmp ds
D wMatBytPrv 10i 0
D wMatBytAvl 10i 0
D wMatPtrTyp 1
D wMatPtrCtxT 1
D wMatPtrCtxST 1
D wMatPtrCtx 30
D wMatPtrObjT 1
D wMatPtrObjST 1
D wMatPtrObj 30
D wMatPtrAut 2
D wMatPtrTgI 2
D wRtnStr s 60
D MatPtr pr extproc('_MATPTR')
D xTemplate like(wMatTmp)
D xPointer *
C callp MatPtr (wMatTmp : xpPgm)
c if wMatBytAvl > 0
C eval wRtnStr = wMatPtrCtx +
C wMatPtrObj
C return wRtnStr
C else
C eval wRtnStr = *blanks
C return wRtnStr
C endif
C *pssr begsr
C return *blanks
C endsr
#####################################################################################
This correspondence is for the named person's use only. It may contain confidential or legally privileged information, or both. No confidentiality or privilege is waived or lost by any mistransmission. If you receive this correspondence in error, please immediately delete it from your system and notify the sender. You must not disclose, copy or rely on any part of this correspondence if you are not the intended recipient. Any views expressed in this message are those of the individual sender, except where the sender expressly, and with authority, states them to be the views of Veda Advantage. If you need assistance, please contact Veda Advantage on either :- Australia 133124 or New Zealand +64 9 367 6200
midrange.com
