CMD        PROMPT('Retrouve adr IP pour TELNET')
             PARM       KWD(RTNADR) TYPE(*CHAR) LEN(15) RTNVAL(*YES) +
                          MIN(1) PROMPT('variable pour adresse +
                          IP(15c.)')