/*
 *  -----------------------------------------------------------------
 *  Execution of this macro requires a license for uni-XEDIT Extended
 *  for each concurrent user of the macro.
 *  -----------------------------------------------------------------
 *
 *
 *
 *  shellssave.xedit - macro to replace the "ssave" command that
 *                     includes support for expanding shell variables
 *                     and shorthand
 *
 *  To use this, you must set a synonym with
 *
 *        set synonym ssave shellssave
 *
 *  This may be added to your .profile.xedit if you wish to use
 *  this replacement at all times.
 *
 *  shellssave.xedit calls three other external Rexx programs:
 *  "expand", "justone", and "expmsg".  These routines as well as
 *  "shellssave.xedit" must be in a directory that is specified
 *  in the XEDITPATH environment variable.
 *
 *  Modification History:
 *
 *  04 Aug 94  twg  Initial implementation
 *
 */

parse arg inparms                                    /* get calling arguments */
filename = ''                                 /* default for filename is null */
if inparms \= '' then do       /* if a filename was specified on command line */
   filename = expand(inparms)          /* try to expand command line filespec */
   if \justone(filename) then do      /* error if filename is not single file */
      call expmsg 'shellssave', msg                   /* print error messages */
      'cmsg ssave' inparms           /* restore command line for modification */
      exit
      end
   end
'command ssave' filename                              /* do the ssave command */