RE: Retrieve IP address

[Jeff Bull <Jeff.Bull@xxxxxxxxxxxxxxx>]

Hi Eric,
        1. put an entry in the Hosts Table for the current system-name
        2. RTVNETA SYSNAME(&field) - &field *char 8
        3. PING &field
        4. RCVMSG MSGQ(*PGMQ) MSGTYPE(*INFO) MSGID(TCP3203) MSGDTA(&data) -
&data *char 39
        5. CHGVAR &IPADR %sst(&data 25 15)

You should be able to get this to work.

Jeff B

-----Original Message-----
From: Eric PANISSARD [mailto:epanissard@idt.pf]
Sent: 17 January 2002 03:47
To: Mailing List AS400 (E-mail)
Subject: Retrieve IP adress


How I can retrieve the IP adress of my AS400 in a CL program ?

regards

Eric Panissard
IDT


_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.


This e-mail has been scanned for all viruses by Star Internet. The service
is powered by MessageLabs. For more information on a proactive anti-virus
service working around the clock, around the globe, visit:
http://www.star.net.uk


DISCLAIMER

Any opinions expressed in this email are those of the
individual and not necessarily the Company. This email
and any files transmitted with it, including replies and
forwarded copies (which may contain alterations)
subsequently transmitted from the Company, are
confidential and solely for the use of the intended recipient. If you are not 
the intended recipient or the
person responsible for delivering to the intended recipient,
be advised that you have received this email in error and
 that any use is strictly prohibited.

If you have received this email in error please notify the IT
manager by telephone on +44 (0)208 4762000 or via
email to Administrator@itm-group.co.uk, including a copy
of this message. Please then delete this email and
destroy any copies of it.

This e-mail has been scanned for all viruses by Star Internet. The service is 
powered by MessageLabs. For more information on a proactive anti-virus service 
working around the clock, around the globe, visit: http://www.star.net.uk