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:[email protected]]
Sent: Tuesday, July 21, 2009 9:54 PM
To: [email protected]
Subject: FW: EZASMI re-entrant FAILS on INITAPI
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]]on
Behalf Of Binyamin Dissen
Sent: Tuesday, July 21, 2009 2:50 AM
To: [email protected]
Subject: Re: EZASMI re-entrant FAILS on INITAPI
On Mon, 20 Jul 2009 20:00:20 -0400 Joe Reichman <[email protected]>
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 <[email protected]>
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 [email protected] 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 [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
