RE: inet_ntoa?

["Rich Duzenbury" <rduz@xxxxxxxxxxxxxxxxxxx>]

The sample inet_addr worked fine.  When I debug the InAddr, I can see it gets  
x'0A01030B' from inet_addr, which looks correct.

D InetNtoa        Pr              *   ExtProc('inet_ntoa')    
D                               10U 0 Value                   

After I add the 'Value' keyword to your definition of inet_ntoa, it works fine.

Regards,
Rich

Here is the whole test program I used:
H DFTACTGRP(*NO) ACTGRP('QILE') BNDDIR('QC2LE')              
D InetAddr        Pr            10U 0 ExtProc('inet_addr')   
D                                 *   Value                  
D InetNtoa        Pr              *   ExtProc('inet_ntoa')   
D                               10U 0 Value                  
                                                             
D Address@        S               *                          
D Address         S             30A   Based(Address@)        
                                                             
D test@           S               *                          
D test            S             15A                          
                                                             
D InAddr          S             10U 0                        
C*                                                           
C                   Eval      test = '10.1.3.11'             
C                   Eval      test@ = %addr(test)            
C                   Eval      InAddr = InetAddr(test@)       
C     InAddr        dsply                                    
C*                                                           
C                   Eval      Address@ = InetNtoa(InAddr)                     
C     Address       dsply                                                     
C                   seton                                        lr           

-----Original Message-----
From: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]On
Behalf Of Keith McIntosh
Sent: Wednesday, November 01, 2000 3:21 PM
To: RPG400-L@midrange.com
Subject: inet_ntoa?


Can someone tell me what I am doing wrong 
with the this?
 
Example:
H DFTACTGRP(*NO) ACTGRP('QILE') BNDDIR('QC2LE')       

 
 *-- InetAddr --- Transform IP address from dotted
form 
D InetAddr        Pr      10U 0 ExtProc('inet_addr')  
D                           *   Value

*-- InetNtoa --- Transform IP address to dotted form 
D InetNtoa        Pr        *   ExtProc('inet_ntoa')  

D                               10u 0                 


D Address@        S         *                    
D Address         S       30A   Based(Address@)       


D test@           S         *
D test            S       15a
D InAddr          s       10U 0

C             Eval      Test = '10.1.3.11' + x'00' 
C             Eval      Test@  = %addr(test)    
C             Eval      InAddr = InetAddr(test@) 
C             Eval      Address@ = Inetntoa(InAddr)  
C  Address    dsply                                  
C             Eval      *InLR=*On                    
C             Return  

Address <> '10.1.3.11'

_______________________________________________________
Do You Yahoo!?
Get your free @yahoo.ca address at http://mail.yahoo.ca
+---
| 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
+---

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