システム名は　RTVNETA　で取得します。
(　システム値にはこの値はありません。)

　DCL　　　　　　　　VAR(&SYSTEM)　　　　TYPE(*CHAR)　LEN(8)
　:
　　RTVNETA　　　　SYSNAME(&SYSTEM)

　です。

IBM　i　のIPアドレスは複数個、設定できますので
IPアドレスを簡単に取得できるコマンドはありません。

あまり知られてはいませんが　IPアドレスは
　
　　QUSRSYS/QATOCIFC

という物理ファイルに登録されています。

　(　RUNQRY　*NONE　QUSRSYS/QATOCIFC　で調べてみてください。　)

そこでCLPでは

　　　　　　　　　　　　　PGM　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　DCL　　　　　　　　VAR(&DUMY)　TYPE(*CHAR)　LEN(1)　　　　　　　　　　　　　　　
　　　　　　　　　　　　　DCLF　　　　　　　FILE(QUSRSYS/QATOCIFC)　ALWGRAPHIC(*YES)　+　　　
　　　　　　　　　　　　　　　　　　　　　　　　　　DCLBINFLD(*INT)　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　READ:　　　　　　　RCVF　　　　　　　RCDFMT(QIFC)　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　MONMSG　　　　　MSGID(CPF0864)　EXEC(GOTO　CMDLBL(REDEND))　　　　
　　　　　　　　　　　　　IF　　　　　　　　　COND((&LIND　*NE　'　　　　　　　　　　')　*AND　+　　　　　　　　
　　　　　　　　　　　　　　　　　　　　　　　　　　(%SST(&LIND　1　1)　*NE　'*'))　THEN(DO)　　　　　　　
　　　　　　　　　　　　　SNDPGMMSG　　MSG('IPADR='　*CAT　&INTERNET)　MSGTYPE(*DIAG)　
　　　　　　　　　　　　　ENDDO　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　GOTO　　　　　　　READ　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　REDEND:　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　ENDPGM　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

　のようにすると　&INTERNET　には　IBM　i　の　IPアドレスが入ります。
　　
　　QUSRSYS/QATOCIFC　は特殊なファイルですので上記のような　DCLF　を
　　指定しないと　CLPでは動作しません。
　　IBM　i　にローカルIP　とグローバルIP　の両方が指定されている場合は
　　複数のIPアドレスが表示されます。
　　つまり　IPアドレスは　LANカードに対して定義されますので
　　複数の　LANカードが装填されている　IBM　i　には複数個の　IPアドレスが
　　定義されています。

ＩＫＤ様
返信ありがとうございます。

早速試したいと思います。
ありがとうございました。