The error occurred on the INITAPI
Started 4 tasks 4 ATTACHES
THE RETURN CODE IS FFFFFFFF
THE ERRNO IS ......0000000E
THE RETURN CODE IS FFFFFFFF
THE ERRNO IS ......0000000E
THE RETURN CODE IS FFFFFFFF
THE ERRNO IS ......0000000E
THE RETURN CODE IS FFFFFFFF
THE ERRNO IS ......0000000E
The INITAPI is
*----------------------------------------------------------------*
* identify the program to TCP/IP *
*----------------------------------------------------------------*
EZASMI TYPE=INITAPI, Issue INITAPI Macro 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) X
TASK=MYTIE, X
I do a STORAGE for 4 MYTIE('s) in my main program and pass each subtask a
TIE as a parm
The MY_PARM is part of my Working Storage Dsect
MY_PARM EZASMI MF=L
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf
Of Rob Scott
Sent: Friday, March 19, 2010 7:02 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Re-entrancy problem
Joe,
Can you tell us more about the failure :
(1) Did it abend? If so - with what code and where
(2) Did it just not POST the ECB?
A few things to check :
(1) Where is "MY_PARM"? - is this in working storage?
(2) How was "MY_PARM" defined?
(3) What was specified on the INITAPI ?
One last "gotcha" with EZASMI is that the "ECB=" keyword must point to a
104-byte field and NOT a 4-byte field.
I know that sounds crazy - but EZASMI uses the last 100 bytes as a
"workarea".
(Why this "workarea" was not a separate keyword I just don't know....)
Rob Scott
Developer
Rocket Software
275 Grove Street * Newton, MA 02466-2272 * USA
Tel: +1.617.614.2305
Email: rsc...@rs.com
Web: www.rocketsoftware.com
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf
Of Joe Reichman
Sent: 19 March 2010 10:40
To: IBM-MAIN@bama.ua.edu
Subject: Re-entrancy problem
Hi,
The following code works (ECB is posted by TCP/IP) except when I catalouge
the program RENT=(REUS)
Would anybody have any ideas
*---------------------------------------------------------------------*
* GET THE SOCKET TO READ *
*---------------------------------------------------------------------*
MVC COMM,=CL8'TAKESOCK'
XC MY_PARM(MY_PARM_LEN),MY_PARM CLEAR PARAMTER LIST
LA R10,MY_ECB GET MAIN TASK ECB
ST R10,ECB_LIST STORE IT
LA R10,MVS_ECB GET MAIN TASK ECB
ST R10,ECB_LIST+4 STORE IT
OI ECB_LIST+4,X'80' MARK END
EZASMI TYPE=TAKESOCKET, Issue INITAPI Macro X
SOCRECV=SOCKET,
X
CLIENT=CLIENT, SPECIFY SUBTASK IDENTIFIER
X
ERRNO=ERRNO, (Specify ERRNO field)
X
RETCODE=RETCODE, (Specify RETCODE field)
X
ECB=MY_ECB,
X
ERROR=ERROR, ABEND IF ERROR ON MACRO
X
TASK=MYTIE,
X
MF=(E,MY_PARM)
*
* WAIT ECB=MY_ECB
* B CK_RET
WAIT 1,ECBLIST=ECB_LIST
L R10,ECB_LIST+4 GET MVS ECB
CLC 1(3,R10),=3X'00' POSTED
BE RETURN YES; GO BACK
----------------------------------------------------------------------
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
----------------------------------------------------------------------
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
