On Tue, 21 Jul 2009 22:04:21 -0400 Joe Reichman <[email protected]>
wrote:
:>When this code isn't linked with RENT it works with RENT it fails
How does it fail?
:>*---------------------------------------------------------------------*
:>* 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)
Perhaps missing
LR R13,R12
here?
:>
:>*---------------------------------------------------------------------*
:>* 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
