Thanks for the REXX routine to verify the setup - To make the REXX routine and the XMITIP work was to add the TCPIP SEZALNK2, SEZATCP, and SEZALOAD libraries as steplibs and add the SYSTCPD dd statement. I think I had to do that because we have 2 different TCPIP stack executing (IBM & CA). The XMITIP does not abend anymore. Thanks for all your help and research. I will let you know if it works with the IBM SCRT email site. Thank You
________________________________ From: [email protected] [mailto:[email protected]] Sent: Thursday, April 16, 2009 1:55 PM To: Mark Steely Cc: [email protected] Subject: RE: XMITIP Socket failure (was: Batch E-Mail) From the ibm pub on rexx sockets: The EZBRXSOC load module is defined with two load module |aliases: RXSOCKET and SOCKET. When a program invokes the REXX socket function, |either the load module or an alias is called. The load module and its aliases |reside in the TCPIP.SEZALOAD data set. The examples in this documentation |use the SOCKET alias. Requirement: The EZBRXSOC |load module and its aliases must be included in one of the following items: | | * The system LNKLST * The STEPLIB DD concatenation of the job that is running the program that |uses REXX sockets The code is failing on the test for the socket: str = Socket('Terminate') It isn't getting far enough to do the actual query. if that works then it does this chunk of code: str = Socket('initialize', _anyname_) Parse Var str sockrc _response_ if sockrc = 0 , then do; Parse Var str sockrc , subtaskid _socks_ tcp_name str = Socket('GetHostId') Parse Var str sockrc tcp_hostid desc str = Socket('GetHostname') Parse Var str sockrc tcp_hostname desc /* strip low value in tcp_hostname */ parse var tcp_hostname tcp_hostname "00"x . str = Socket('GetDomainName') Parse Var str sockrc tcp_domain desc str = Socket('Terminate') end; Here is a short exec to verify that you have the sockets and z/OS tcp/ip installed and configured cleanly: /* rexx */ res= Socket('Initialize','ANYNAME') host= Socket('GetHostId') name= Socket('GetHostname') hostname = word(Socket('GetHostByAddr',word(host,2)),2) domain_name= word(Socket('GetDomainName'),2) res= Socket('Terminate') say hostname say domain_name hope this helps ******* CONFIDENTIALITY NOTICE ******* This e-mail message and all attachments transmitted with it may contain legally privileged and confidential information intended solely for the use of the addressee. If the reader of this message is not the intended recipient, you are hereby notified that any reading, dissemination, distribution, copying, or other use of this message or its attachments is strictly prohibited. If you have received this message in error, please notify the sender immediately and delete this message from your system. Thank you. ---------------------------------------------------------------------- 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
