Re: IP Address Capture

Steve,

The API is QDCRDEVD. Below is a CLP snippet showing how we use it to update
remote outq's for remote users who access the AS/400 from dialup internet
accounts. I'm pretty sure this was originally downloaded from an article in
either NEWS/400 or Midrange Computing, so you can check their archives for
further details.

HTH,

Lou Schmaus
CCA, Inc.
Jackson, NJ 08527
lschmaus@link400.com


/*  CHANGE MADE 05/31/00 BY LOU S. OF CCA, INC.                          */
/*   CHECK FOR LOCAL IP ADDRESS (10.XXX.XXX.XXX), AND DON'T CHANGE OUTQ  */
/*   IF PC IN ON LOCAL NETWORK                                           */
/*                                                                       */
            DCL        VAR(&RCVR) TYPE(*CHAR) LEN(1024)
            DCL        VAR(&LL) TYPE(*CHAR) LEN(4)
            DCL        VAR(&EC) TYPE(*CHAR) LEN(256)
            DCL        VAR(&IPADDR) TYPE(*CHAR) LEN(15)
            DCL        VAR(&IPADDR2) TYPE(*CHAR) LEN(3)
            DCL        VAR(&FNAME) TYPE(*CHAR) LEN(8) VALUE(DEVD0600)
            DCL        VAR(&DEV) TYPE(*CHAR) LEN(11)
            DCL        VAR(&USR) TYPE(*CHAR) LEN(11)


            RTVJOBA    JOB(&DEV) USER(&USR)
            CHGVAR     VAR(%BIN(&LL)) VALUE(892)
            CALL       PGM(QDCRDEVD) PARM(&RCVR &LL &FNAME &DEV &EC)

            CHGVAR     VAR(&IPADDR) VALUE(%SST(&RCVR 878 15))
            CHGVAR     VAR(&IPADDR2) VALUE(%SST(&RCVR 878 3))


            IF         COND(&IPADDR2 *NE '10.') THEN(DO) /* DONT DO +
                         ANYTHING FOR LOCAL IP  */



> Does the anyone know of an API or other way to trap the IP address of a
> display when it is singing on.  I have several plants each with a IP
> address range on their Network.  If I can identify the address when a
> device signs on I can know and track when each Plant is on the system.
> I know it is another Big Brother is watching process but the higher up's
> want this info.  They want to a report of each signon and the IP address
> they used.
>
> Thanks in Advance
>
> Steve


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