Re: IP Address Capture

[Larry Bolhuis <lbolhuis@xxxxxxxxxx>]

Steve,

 Try this:

 /* Retrieve Current IP Address */

       DCL        VAR(&RECEIVER) TYPE(*CHAR) LEN(892)  /* Reviever Var
*/ 
       DCL        VAR(&LENGTH) TYPE(*CHAR) LEN(4)      /* Data Length */
       DCL        VAR(&ERRLENGTH) TYPE(*CHAR) LEN(4)   /* Error Length
*/
       DCL        VAR(&DEV )  TYPE(*CHAR) LEN(10)      /* Device */    
       DCL        VAR(&IPADD)   TYPE(*CHAR) LEN(15)    /* IP Address
*/          

       RTVJOBA    JOB(&DEV)

       CHGVAR     VAR(%BIN(&LENGTH))    VALUE(892)                       
       CHGVAR     VAR(%BIN(&ERRLENGTH)) VALUE(0)                         
       CALL       PGM(QDCRDEVD) PARM(&RECEIVER &LENGTH DEVD0600 &DEV +   
                        &ERRLENGTH)                                      
       CHGVAR     VAR(&IPADD) VALUE(%SST(&RECEIVER 878
15))                

  - Larry

Steven McDonald wrote:
> 
> 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
> +---

-- 
Larry Bolhuis           | Cogito Ergo Vendo iSeries 
Arbor Solutions, Inc.   |
(616) 451-2500          |               (I think, therefore I buy iSeries.)
(616) 451-2571 -fax     |
lbolhuis@arbsol.com     |        #3  1951-2001
+---
| 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
+---