RE: Its possible to know the IP of diff sessions with the same login

[Larry Paque <larry@xxxxxxxxxx>]

Here's the code we use:  (I cut and paste this but I think it's all here)

/* find IP address logic from Michael L. Leymaster/MCLEOD */
/* posting to CODE400-L (mleymaster@McLeodUSA.com)  */ 
DCL VAR(&BIN4)    TYPE(*CHAR) LEN(4)  
DCL VAR(&RCV)     TYPE(*CHAR) LEN(893)
DCL VAR(&RCVLEN)  TYPE(*CHAR) LEN(4)  
DCL VAR(&RCVLEND) TYPE(*DEC)  LEN(9)         
DCL VAR(&DEC8)    TYPE(*DEC)  LEN(8 0)
DCL VAR(&DEVD)    TYPE(*CHAR) LEN(10)
DCL VAR(&FRMDEV)  TYPE(*CHAR) LEN(8)  VALUE('DEVD0600')
DCL VAR(&ERR)     TYPE(*CHAR) LEN(100)
DCL VAR(&PASTHR)  TYPE(*CHAR) LEN(1)
             CHGVAR     VAR(&RCVLEND) VALUE(893)                  
             CHGVAR     VAR(%BIN(&RCVLEN)) VALUE(&RCVLEND)        
             RTVJOBA    JOB(&DEVD)                                
                                                                  
             CHGVAR     VAR(%BINARY(&BIN4)) VALUE(&DEC8)          
                                                                  
             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: Silvio Santos [mailto:Silvio.Santos@brainag.com]
Sent: Friday, December 10, 1999 11:13 AM
To: RPG400-L@midrange.com
Subject: Its possible to know the IP of diff sessions with the same
login




Hello!
I had posted this message in other forums but nobody answered it.
So I am posting it here knowing that it hasnt to do with RPG directly.

Its possible to know the IP address of a session supposing that there are
some
people using the same account in different computers ?

TIA,
Silvio.


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