Why? If RETCODE is negative there was an error on the call and there is no socket returned.
Chuck Arney illustro Systems International, LLC http://www.illustro.com Access 3270 data from anywhere with z/XML-Host Access 3270 apps from the web with z/Web-Host Access CMS minidisks from z/OS or z/VSE with CMSACCess Voice: 214-800-8900 X#0562 Fax: 214-451-6394 * * * * * * * * * * * * * * * * This e-mail is private and may be confidential and is for the intended recipient only. If misdirected, please notify us by telephone and confirm that it has been deleted from your system and any copies destroyed. If you are not the intended recipient you are strictly prohibited from using, printing, copying, distributing or disseminating this e-mail or any information contained in it. * * * * * * * * * * * * * * * * * * * * * * * * * * We use reasonable measures to virus scan all E-mails leaving illustro but no warranty is given that this E-mail and any attachments are virus free. You should ensure you have adequate measures in place for your own virus checking. > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On > Behalf Of Ward, Mike S > Sent: Friday, June 27, 2008 4:43 PM > To: IBM-MAIN@BAMA.UA.EDU > Subject: bad sample code? > > 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 ---------------------------------------------------------------------- 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