SHOIPADDR:  PGM        PARM(&DEVD)

             DCL        VAR(&DEVD) TYPE(*CHAR) LEN(10)
             DCL        VAR(&IPADDR) TYPE(*CHAR) LEN(15)

             MONMSG     MSGID(CPF0000 MCH0000) EXEC(GOTO +
                          CMDLBL(STDERR))


             RTNIPADDR  DEVD(&DEVD) IPADDR(&IPADDR)

             SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Current +
                          IP address is <' *BCAT &IPADDR *BCAT '>')

             RETURN

 STDERR:     MOVDIAGMSG
             MONMSG     MSGID(CPF0000 MCH0000)
             RSNESCMSG
             MONMSG     MSGID(CPF0000 MCH0000)
             RETURN

             ENDPGM