Make sure that the storage for this lands in code that is "executable=yes"
(I have no idea if the compiler would put this into storage obtained for
the module as opposed to something more dynamic). Imagine if, some day,
the default for STORAGE OBTAIN changes from executable=no to
executable=yes.
As to being able to work in AMODE 64, the code shown is possibly incorrect
for AMODE 64.
COBSTCKE CSECT ,
L 15,0(,1) GET ARGUMENT ADDRESS
STCKE 0(15) STCKE INTO ARGUMENT AREA
XR 15,15 SET RETURN CODE = 0
BR 14 RETURN TO CALLER
The L might have to be LLGT in order to work predictably in AMODE 64
unless it is known that the linkage to get here always results in the high
half of reg 15 being 0 when AMODE 64 (which it might, as long as this is
not RMODE 64)..
Peter Relson
z/OS Core Technology Design
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
