/* * ----------------------------------------------------------------- * Execution of this macro requires a license for uni-XEDIT Extended * for each concurrent user of the macro. * ----------------------------------------------------------------- * * * * shellsave.xedit - macro to replace the "save" command that * includes support for expanding shell variables * and shorthand * * To use this, you must set a synonym with * * set synonym save shellsave * * This may be added to your .profile.xedit if you wish to use * this replacement at all times. * * shellsave.xedit calls three other external Rexx programs: * "expand", "justone", and "expmsg". These routines as well as * "shellsave.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 'shellsave', msg /* print error messages */ 'cmsg save' inparms /* restore command line for modification */ exit end end 'command save' filename /* do the save command */