RE: IP address of the client

["Patrick L Archibald" <Patrick.Archibald@xxxxxxxxxxxxx>]

I don't know about VRPG but this CL program will 
do it. 

 PGM        PARM(&DEVD &IP)                                       
 DCL        VAR(&DEVD) TYPE(*CHAR) LEN(10)                        
 DCL        VAR(&IP) TYPE(*CHAR) LEN(15)                          
 DCL        VAR(&RECEIVER) TYPE(*CHAR) LEN(892)                   
 DCL        VAR(&LENGTH) TYPE(*CHAR) LEN(4)                       
 DCL        VAR(&ERRLENGTH) TYPE(*CHAR) LEN(4)                    
 MONMSG     MSGID(CPF0000)                                        
 CHGVAR     VAR(&IP) VALUE(' ')                                   
 CHGVAR     VAR(%BIN(&LENGTH)) VALUE(892)                         
 CHGVAR     VAR(%BIN(&ERRLENGTH)) VALUE(0)                        
 CALL       PGM(QDCRDEVD) PARM(&RECEIVER &LENGTH DEVD0600 &DEVD + 
            &ERRLENGTH)                                           
 CHGVAR     VAR(&IP) VALUE(%SST(&RECEIVER 878 15))                
 IF         COND(&IP <= ' ') +                                    
              THEN(CHGVAR VAR(&IP) VALUE(' '))                    
 ENDPGM                                                           


Thanx, PLA



-----Original Message-----
From: owner-code400-l@midrange.com
[mailto:owner-code400-l@midrange.com]On Behalf Of Ratnayake, Lal
Sent: Friday, June 22, 2001 4:33 PM
To: CODE400-L@midrange.com
Subject: IP address of the client 


Hi 
 
I just stated learning VRPG and I wonder how I could retrieve client's
IP address within a VRPG program.
 
Thanks
 
Lal
+---
| This is the CODE/400 Mailing List!
| To submit a new message, send your mail to CODE400-L@midrange.com.
| To subscribe to this list send email to CODE400-L-SUB@midrange.com.
| To unsubscribe from this list send email to CODE400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: larry@paque.net
+---
+---
| This is the CODE/400 Mailing List!
| To submit a new message, send your mail to CODE400-L@midrange.com.
| To subscribe to this list send email to CODE400-L-SUB@midrange.com.
| To unsubscribe from this list send email to CODE400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: larry@paque.net
+---