/*
 *  -----------------------------------------------------------------
 *  This Rexx program is called by several of the uni-XEDIT macros in
 *  the Sample Library.  It is not useful in any other context.  The
 *  macros that call it require a license for uni-XEDIT Extended for
 *  each concurrent user.
 *  -----------------------------------------------------------------
 *
 *
 *
 *  expmsg - program to handle message processing for all I/O
 *           command substitution macros and for the expand
 *           program; displays error message on the uni-XEDIT
 *           message line and sounds the alarm
 *
 *  Syntax:  call expmsg <caller>, <message>
 *
 *  <caller> identifies the macro or program calling this message
 *           handler.
 *
 *  <message> is the message text to be displayed.
 *
 *
 *  Must be in a directory specified in the environment variable
 *  XEDITPATH.
 *
 *
 *  Modification History:
 *
 *  25 Jul 94  twg  Initial implementation
 *
 */

parse arg caller, message
'emsg Error from:' caller '-' message        /* Print message and sound alarm */
return