IBM i のシステム名を CLP で取得する方法を紹介する。
システム名はシステム値 (QSYSVAL) にはないので
システム値を検索しても取得することはできない。
システム値は次のように RTVNETA によって取得する。

       DCL　　　　　　　　VAR(&SYSTEM)　　　　TYPE(*CHAR)　LEN(8)

       RTVNETA　　　　SYSNAME(&SYSTEM)