TCP/IP sockets - Getservbyname

[Chris Bipes <ChrisB@xxxxxxxxxxxxxxx>]

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          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *