/*--+------------------------------------------------------------+--*/
/*--+   COMMAND ID : DSPWSIP                                     +--*/
/*--+ COMMAND NAME : DISPLAY WORKSTATION IP ADDRESS              +--*/
/*--+------------------------------------------------------------+--*/
/*--+      VERSION : 1.0 (99/02/25)                              +--*/
/*--+------------------------------------------------------------+--*/
             CMD        PROMPT('DISPLAY WORKSTATION IP ADDRESS')

             PARM       KWD(WRKSTN) TYPE(*CHAR) LEN(10) +
                          DFT(*CURRENT) SPCVAL((*CURRENT)) +
                          PROMPT('WROKSTATION ID')