• Subject: TCP/IP sockets - Getservbyname
  • From: Chris Bipes <ChrisB@xxxxxxxxxxxxxxx>
  • Date: Thu, 22 Jul 1999 12:59:14 -0700

Ok I have now got the function to find and return the pointer and I have the
pointer associated with the data structure.  However the data in the
structure is not nicely formatted.  I added the null bytes to the end of the
service name and protocol name.  That fixed the lookup.  I based the data
structure on a pointer name and eval pservent =
getservbyname(%addr(s_name):%addr(s_proto).

D servent         DS                  Based(pservent)
D   s_name                      32a                  
D   s_aliases                  128a                  
D   s_port                       5u 0                
D   s_proto                     32a                  

The DS seems to have the port number starting in byte 34 followed by the
s_name, garbage,  protocol, more garbage, the aliases.  The strings are null
terminated and space filled making each one extra byte.  I am making
progress but if someone has the code snippet??? I will appreciate any help.


Thank You in advance,


Christopher K. Bipes            mailto:ChrisB@Cross-Check.com
Sr. Programmer/Analyst          mailto:Chris_Bipes@Yahoo.com
CrossCheck, Inc.                http://www.cross-check.com
6119 State Farm Drive           Phone: 707 586-0551 x 1102
Rohnert Park  CA  94928 Fax: 707 586-1884
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].