RE: API to retrieve TCPIP address of the client?

    
On the Downloads page at IBMS Code/400 site thee ia a program that does this
using the following API

 

              CALL       PGM(QDCRDEVD) PARM(&RCV &RCVLEN &FRMDEV +

                           &DEVD &ERR)

              CHGVAR     VAR(&PASTHR) VALUE(%SST(&RCV 831 1))

              CHGVAR     VAR(&IP)     VALUE(%SST(&RCV 878 15))


> -----Original Message-----
> From: ron hawkins [SMTP:hwarangron@home.com]
> Sent: Friday, June 08, 2001 1:29 PM
> To:   midrange-l@midrange.com
> Subject:      FW: API to retrieve TCPIP address of the client?
> 
> 
> Does anybody know how to retrieve the tcpip address of a pc attached to
> the
> 400? I need to do it programatically - that is the user selects a record
> from a subfile and the program will FTP the file (represented by the
> record
> in the subfile) down to the PC.
> 
> TIA
> Ron Hawkins
> 
> 
> 
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---