/*--+------------------------------------------------------------+--*/
/*--+   COMMAND ID : SNDBRKUSR                                   +--*/
/*--+ COMMAND NAME : SEND BREAK MESSAGE FOR USER                 +--*/
/*--+------------------------------------------------------------+--*/
/*--+      VERSION : 1.0 (98/11/04)                              +--*/
/*--+------------------------------------------------------------+--*/
             CMD        PROMPT('SEND BREAK MESSAGE FOR USER')

             PARM       KWD(MSG) TYPE(*CHAR) LEN(512) MIN(1) +
                          PROMPT('MESSAGE TEXT')
             PARM       KWD(TOUSR) TYPE(*NAME) LEN(10) +
                          SPCVAL((*ALLUSR)) MIN(1) PROMPT('TO USER +
                          PROFILE')