RE: Finding a specific PC IP address when dynamically assigned

[Cyndi Bradberry <CyndiB@xxxxxxxx>]

Ian,
Someone on the list supplied a code snippet that we are using. In our
program, an RPG pgm launches a VB app, and passes in the IP address of the
requesting PC. We use this basic CL to get the information.
Cyndi B.
Boise, ID

PGM                                                                     
DCL &RTN TYPE(*CHAR) LEN(900)                                           
DCL &DEVD TYPE(*CHAR) LEN(10)                                           

RTVJOBA    JOB(&DEVD)                                      
                                                                        
CALL QSYS/QDCRDEVD PARM(&RTN X'0384' 'DEVD0600' &DEVD +                
      X'00000000')                                                      
SNDPGMMSG MSG('I have determined your TCP/IP Address to be ' +         
             || %SST(&RTN 878 15))                                      
                                                                        
ENDPGM                                                                  



"The Idaho Housing and Finance Association provides funding
for affordable housing in Idaho communities. IHFA is not a state
agency under state law, and uses no state funds or state employees
to support its operations."