× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: inet_ntoa?
  • From: Keith McIntosh <keith_eh@xxxxxxxx>
  • Date: Wed, 1 Nov 2000 16:21:18 -0500 (EST)

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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.