Re: TCP/IP address of a Telnet session.

 PGM  PARM(&IPADDRESS &DEVICENAME)
              DCL        VAR(&DEVICENAME) TYPE(*CHAR) LEN(10)
              DCL        VAR(&IPADDRESS) TYPE(*CHAR) LEN(15)
              DCL        VAR(&RECEIVER) TYPE(*CHAR) LEN(892)
              DCL        VAR(&RCVRLENGTH) TYPE(*CHAR) LEN(4)
              DCL        VAR(&FORMATNAME) TYPE(*CHAR) LEN(8) +
                           VALUE('DEVD0600')
              DCL        VAR(&ERRORCODE) TYPE(*CHAR) LEN(4) +
                           VALUE(X'00000000')

 /* CHANGE VALUE OF &RCVRLENGTH TO BINARY VALUE */
              CHGVAR     VAR(%BIN(&RCVRLENGTH)) VALUE(892)


 /* RETRIEVE IP ADDRESS OF CLIENT PC TO SEND SAVE FILE TO */
              CALL       PGM(QDCRDEVD) PARM(&RECEIVER &RCVRLENGTH +
                           &FORMATNAME &DEVICENAME &ERRORCODE)

              CHGVAR     VAR(&IPADDRESS) VALUE(%SST(&RECEIVER 878 15))

ENDPGM: ENDPGM




Shannon O'Donnell


----- Original Message -----
From: <JOberholtzer@xxxxxxxxxxxx>
To: <midrange-l@xxxxxxxxxxxx>
Sent: Friday, May 30, 2003 3:52 PM
Subject: TCP/IP address of a Telnet session.


>
>
>
>
> Does anyone have an idea about how to get the IP address of a telnet
> session?  I see the API QtocRtvNetCnnDta will give me job information on
an
> IP connection, but it lists all of them each time it's called, and I want
> to zero in on the specific job.
>
> Thanks
>
> Jim Oberholtzer
> Senior Solutions Architect
> Computech Resources, Inc.
>
> _______________________________________________
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>