/******************************************************************************/
/* Copyright (c) Tom Liotta http://zap.to/tl400 Used with permission          */
/******************************************************************************/
/* RTNIPADDR:  Return the IP address for a device.                  */
/*   Enter a device name to return a variable containing the IP     */
/*   address the device is communicating from.                      */
/*                                                                  */
/* Parms:                                                           */
/*   In:     DEVD  :    *NAME Len(10)                               */
/*  Out:     IPADDR:    *CHAR Len(15)                               */
/*                                                                  */
/* Form:                                                            */
/*           RTNIPADDR  DEVD(&devd) IPADDR(&ipaddr)                 */
/*                                                                  */

 RTNIPADDR:  CMD        PROMPT('Return device IP address')

             PARM       KWD(DEVD) TYPE(*NAME) LEN(10) DFT(*) +
                          SPCVAL((*)) MIN(0) EXPR(*YES) +
                          PROMPT('Device')

             PARM       KWD(IPADDR) TYPE(*CHAR) LEN(15) RTNVAL(*YES) +
                          PROMPT('IP address             (15)')