TRACK THE IP ADDRESS

Suresh p

Active Member
Anybody can tell,How to know the Ip address to made the transaction takesplace. Urgent needed , any one help me
 
You can do this with the QDCRDEVD API:

<font class="small">Code:</font><hr /><pre>
PGM
DCL VAR(&IPADDR) TYPE(*CHAR) LEN(15)
DCL VAR(&RCV) TYPE(*CHAR) LEN(893)
DCL VAR(&RCVLEN) TYPE(*CHAR) LEN(004)
DCL VAR(&RCVLEN#) TYPE(*DEC) LEN(8 0)
DCL VAR(&ERR) TYPE(*CHAR) LEN(100)
DCL VAR(&FRMDEV) TYPE(*CHAR) LEN(008) +
VALUE('DEVD0600')
DCL VAR(&DEVD) TYPE(*CHAR) LEN(10)

RTVJOBA JOB(&DEVD)
CHGVAR VAR(&RCVLEN#) VALUE(893)
CHGVAR VAR(%BIN(&RCVLEN)) VALUE(&RCVLEN#)
CALL PGM(QDCRDEVD) PARM(&RCV &RCVLEN &FRMDEV +
&DEVD &ERR)
CHGVAR VAR(&IPADDR) VALUE(%SST(&RCV 878 15))
SNDBRKMSG MSG('Your IP address is: ' *CAT &IPADDR) +
TOMSGQ(&DEVD)
ENDPGM
</pre><hr />

Cheers,

Emmanuel
 
Sir,

Where i do this ,What is meant by QDCERDEVD API . PLease explain deatiled to track the IP address . Help me
 
Back
Top