When this code isn't linked with RENT it works with RENT it fails
*---------------------------------------------------------------------* * GET WORKING STORAGE * *---------------------------------------------------------------------* LA R10,WS_LEN GET WORKING STORAGE LENGTH STORAGE OBTAIN,LENGTH=(R10),ADDR=(R12),SP=0 USING WS_DSECT,R13 STORAGE DSECT ST R13,4(,R12) BACK LINK FORWARD LINK ST R12,8(,R13) *---------------------------------------------------------------------* * GET STORAGE FOR THE GLOABL AREA * *---------------------------------------------------------------------* LA R10,GWALENTH STORAGE OBTAIN,LENGTH=(R10),ADDR=(R12),SP=0 USING EZASMGW,R12 *---------------------------------------------------------------------* * GET TASK STORAGE * *---------------------------------------------------------------------* LA R10,TIELENTH STORAGE OBTAIN,LENGTH=(R10),ADDR=(R11),SP=0 USING MYTIE,R11 EZASMI TYPE=INITAPI, Issue INITAPI Macro X SUBTASK=SUBTASK, SPECIFY SUBTASK IDENTIFIER X MAXSOC=MAXSOC, SPECIFY MAXIMUM NUMBER OF SOCKETS X MAXSNO=MAXSNO, (HIGHEST SOCKET NUMBER ASSIGNED) X ERRNO=ERRNO, (Specify ERRNO field) X RETCODE=RETCODE, (Specify RETCODE field) X APITYPE=APITYPE, (SPECIFY APITYPE FIELD) X ERROR=ERROR, ABEND IF ERROR ON MACRO X ASYNC=('ECB') (SPECIFY ECBS) TASK=MYTIE,MF=(E,MY_PARM) *--- STORAGE DEFINATIONS *---------------------------------------------------------------------* * GLOBAL AREA *---------------------------------------------------------------------* EZASMGW EZASMI TYPE=GLOBAL, Storage definition for GWA X STORAGE=DSECT *---------------------------------------------------------------------* TASK DSECT *---------------------------------------------------------------------* MYTIE EZASMI TYPE=TASK,STORAGE=DSECT TIE MY_PARM EZASMI MF=L MY_PARM_LEN EQU *-MY_PARM -----Original Message----- From: joereichman [mailto:joereich...@optonline.net] Sent: Tuesday, July 21, 2009 9:54 PM To: joereich...@optonline.net Subject: FW: EZASMI re-entrant FAILS on INITAPI -----Original Message----- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu]on Behalf Of Binyamin Dissen Sent: Tuesday, July 21, 2009 2:50 AM To: IBM-MAIN@bama.ua.edu Subject: Re: EZASMI re-entrant FAILS on INITAPI On Mon, 20 Jul 2009 20:00:20 -0400 Joe Reichman <joereich...@optonline.net> wrote: :>Would anyone know if there are any special considerations using the :>Assembler EZASMI macro when the module is link'ed re-entrant :>I have code that works perfectly :>However when I link it with RENT (also made the program re-entrant) :>the INITAPI API fails My guess would be that you missed something making it reentrant. Show the code. Describe what failed. -- Binyamin Dissen <bdis...@dissensoftware.com> http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html