inet_ntoa?

[Keith McIntosh <keith_eh@xxxxxxxx>]

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