RE: inet_ntoa?

[Chris Bipes <chris.bipes@xxxxxxxxxxxxxxx>]

Also, IBM supplied QC2LE library is case sensitive!  Bit me more than once.

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

If consistency is the hobgoblin of little minds, only geniuses work here.
Karen Herbelin - Readers Digest 3/2000

-----Original Message-----
From: Peter Connell [mailto:peterc@baycorp.co.nz]
Sent: Wednesday, November 01, 2000 2:22 PM
To: 'RPG400-L@midrange.com'
Subject: RE: inet_ntoa?


Keith,
You need to specify the Value keyword on the parameter of the InetNtoa
prototype.
Also not that it will compile without the QC2LE binding directory.

Cheers, Peter

-----Original Message-----
From: Keith McIntosh [mailto:keith_eh@yahoo.ca]
Sent: Thursday, November 02, 2000 10:21 AM
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'
+---
| 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
+---