RE:

[Scott Klement <klemscot@xxxxxxxxxxxx>]

Why write your own routine?  Why not use the standard one that's a part
of the Sockets API?   (inet_ntoa)



On Mon, 16 Apr 2001, DeLong, Eric wrote:

> Here's a ridiculously simple conversion..... it wins no style awards, but it
> will show you somewhat what you're getting.....
> 
> 
> D TestValue       S             10u 0 Inz(3504248331)   
> D TestOut         S             40A                     
> D TestDS          DS                                   
> D  IPA                          10U 0                   
> D  IP1                           3U 0 Overlay(IPA:1)    
> D  IP2                           3U 0 Overlay(IPA:2)    
> D  IP3                           3U 0 Overlay(IPA:3)    
> D  IP4                           3U 0 Overlay(IPA:4)    
>                                                         
> C                   Eval      IPA = TestValue           
> C                                                       
> C                   Eval      TestOut = %char(ip1)+'.'+ 
> C                                       %char(ip2)+'.'+ 
> C                                       %char(ip3)+'.'+ 
> C                                       %char(ip4)      
> C                                                       
> C     TestOut       Dsply                               
> 
> 
> 
> The answer is: 208.222.150.11
> 
> hth,
> Eric DeLong
> 
> -----Original Message-----
> From: ram babu [mailto:rbkalidindi@yahoo.com]
> Sent: Monday, April 16, 2001 2:30 PM
> To: RPG400-L@midrange.com
> Subject: 
> 
> 
> Hi Klement,
> 
> Thanks for your valuable information.I tried with the
> code.I'm one step forward i.e. i'm getting IPAddr
> values as follows.Suppose when i pass string
> like(www.ibm.COM) IPAddr value is 3504248331.I have no
> idea why is was like that.It should be like
> xxx.xxx.xxx.xxx format.How do i convert IPAddr value
> into XXX.XXX.XXX.XXX format.Please advise me.
> Thanks in advance.
> 
> Regards,
> Rambabu Kalidindi. 
> 

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---