|
midrange.com
I asked a similar question last month; here are the replies i got. Haven't
had a chance to try them yet - y2k implementations and all.
Let me know how you get on.
Stuart Allen
sallen@fellowes.com
-----Original Message-----
From: Shannon O'Donnell [SMTP:ORION@auburnctnet.com]
Sent: Friday, March 12, 1999 4:52 PM
To: MIDRANGE-L@midrange.com
Subject: Re: TCPIP address of PC5250 user for RUNRMTCMD
Stuart,
Use the QDCREDVD API format DEVD0600 to retrieve the IP address of
individual
devices. I don't remember the exact position this information is stored in
in
this API (849?) off the top of my head, but you can look in the API manual
under
Configuration APIs and you'll find it.
Or:
-----Original Message-----
From: Graap, Ken [SMTP:keg@gasco.gasco.com]
Sent: Friday, March 12, 1999 5:46 PM
To: 'sallen@fellowes.com'
Subject: Retrieving an IP address....
Stuart..
Here is the program I use to retrieve an IP address from an interactive
green screen session:
SOURCE FILE . . . . . . . KENNETH/QPGMSRC
MEMBER . . . . . . . . . DSPIPADR
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+...
100 /* ************************************************************** */
200 /* PROGRAM DESCRIPTION :
300 /* */
400 /* RETRIVE THE CURRENT INTERACTIVE JOBS IP ADDRESS */
500 /* */
600 /* SPECIAL COMPILE OPTIONS: */
700 /* */
800 /* WRITTEN BY: KEN GRAAP 09/23/98 */
900 /* UPDATED BY: 10/07/98 ADD THE SAE CMD */
1000 /* */
1100 /* ************************************************************** */
1200 PGM
1300 /* ************************************************************** */
1400 /* */
1500 /* DECLARE PROGRAM VARIABLES */
1600 /* */
1700 /* ************************************************************** */
1800 DCL &ERRORSW *LGL /* Std err
*/
1900 DCL &MSGID *CHAR LEN(7) /* Std err
*/
2000 DCL &MSGDTA *CHAR LEN(100) /* Std err
*/
2100 DCL &MSGF *CHAR LEN(10) /* Std err
*/
2200 DCL &MSGFLIB *CHAR LEN(10) /* Std err
*/
2201 DCL VAR(&DEVD) TYPE(*CHAR) LEN(10)
2202 DCL VAR(&IP) TYPE(*CHAR) LEN(15)
2203 DCL VAR(&RECEIVER) TYPE(*CHAR) LEN(892)
2204 DCL VAR(&LENGTH) TYPE(*CHAR) LEN(4)
2205 DCL VAR(&ERRLENGTH) TYPE(*CHAR) LEN(4)
2300 /* ************************************************************** */
2400 /* */
2500 /* GLOBAL MESSAGE MONITOR */
2600 /* */
2700 /* ************************************************************** */
2800 MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(STDERR1))
2900 /* ************************************************************** */
3000 /* */
3100 /* RETRIVE THE CURRENT DEVICE IP ADDRESS */
3200 /* */
3300 /* ************************************************************** */
3400
3401 SAE ID(DSPIPADR) ENTDTA('The DSPIPADR program +
3402 has been executed.')
3403
3404 RTVJOBA JOB(&DEVD)
3405 CHGVAR VAR(%BIN(&LENGTH)) VALUE(892)
3406 CHGVAR VAR(%BIN(&ERRLENGTH)) VALUE(0)
3407 CALL PGM(QDCRDEVD) PARM(&RECEIVER &LENGTH +
3408 DEVD0600 &DEVD &ERRLENGTH)
3409 CHGVAR VAR(&IP) VALUE(%SST(&RECEIVER 878 15))
3410 SNDPGMMSG MSG(&IP)
3600
3700 /* ************************************************************** */
3800 /* */
3900 /* NORMAL END OF PROGRAM */
4000 /* */
4100 /* ************************************************************** */
4200 END: RETURN
4300 /* ************************************************************** */
4400 /* */
4500 /* STANDARD ERROR PROCESSING */
4600 /* */
4700 /* ************************************************************** */
4800 STDERR1: /* Standard error handling routine */
4900 IF &ERRORSW SNDPGMMSG MSGID(CPF9999) +
5000 MSGF(QCPFMSG) MSGTYPE(*ESCAPE) /* Func chk
*/
5100 CHGVAR &ERRORSW '1' /* Set to fail ir error occurs
*/
5200 STDERR2: RCVMSG MSGTYPE(*DIAG) MSGDTA(&MSGDTA) MSGID(&MSGID)
+
5300 MSGF(&MSGF) MSGFLIB(&MSGFLIB)
5400 IF (&MSGID *EQ ' ') GOTO STDERR3
5500 SNDPGMMSG MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
5600 MSGDTA(&MSGDTA) MSGTYPE(*DIAG)
5700 GOTO STDERR2 /* Loop back for addl diagnostics */
5800 STDERR3: RCVMSG MSGTYPE(*EXCP) MSGDTA(&MSGDTA) MSGID(&MSGID)
+
5900 MSGF(&MSGF) MSGFLIB(&MSGFLIB)
6000 SNDPGMMSG MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
6100 MSGDTA(&MSGDTA) MSGTYPE(*ESCAPE)
6200 ENDPGM
* * * * E N D O F S O U R C E * * * *
Kenneth
--
********************************
Kenneth E. Graap
IBM Certified Specialist
AS/400 Professional
System Administrator
NW Natural - Information Services
System Services
503 226 4211 X5537
FAX 503 721 2521
keg@nwnatural.com
********************************
> -----Original Message-----
> From: SatyaNarayana A.N.V [SMTP:satya400@yahoo.com]
> Sent: Wednesday, April 14, 1999 5:00 AM
> To: MIDRANGE-L@midrange.com
> Subject: How to Retrieve IP Address of a session using CL
>
>
> Hi everyone! How can I retrieve the IP address and Port number of my
> session ?
>
> I tried WRKTCPSTS OPTION(*CNN). But the output lists all the IP
> addresses of all those clients who are connected to AS/400. But my need
> is to extract programatically (in CL) the current IP address and Port
> Number. I need this information for JAVA Remote AWT Programs.
>
> Any directions Please?
>
> Thanks In Advance
>
> ANV SatyaNarayana
> satya400@yahoo.com
>
> _________________________________________________________
> Do You Yahoo!?
> Get your free @yahoo.com address at http://mail.yahoo.com
>
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
