I was looking at the sample code(ezacicas) in sezainst listed
below for cics sockets programming. The takesocket is supposed to return
the socket number in retcode+2 a halfword. If that's the case and socket
number 1 was returned in retcode+2 wouldn't the error check after the
call be incorrect?
CALL EZASOKET,(SOCTSOCK,SOCKET_TO_TAKE,CLIENTID_LSTN, X
ERRNO,RETCODE),VL,MF=(E,PARMLIST)
*
L R5,ERRNO Check for successful call
L R6,RETCODE Check for successful call
MVC MSGCMD,SOCTSOCK Set the API name
C R6,ZERO Is it less than zero
BL SOCERR Yes, go display error and terminate
STH R6,SRV_SOCKID Save the taken socket descriptor
Errno ds f
Retcode ds f
==========================
This email and any files transmitted with it are confidential and intended
solely for the use of the individual or entity
to which they are addressed. If you have received this email in error please
notify the system manager. This message
contains confidential information and is intended only for the individual
named. If you are not the named addressee you
should not disseminate, distribute or copy this e-mail. Please notify the
sender immediately by e-mail if you
have received this e-mail by mistake and delete this e-mail from your system.
If you are not the intended recipient
you are notified that disclosing, copying, distributing or taking any action in
reliance on the contents of this
information is strictly prohibited.
----------------------------------------------------------------------
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
