/*--------------------------*\
|                            |
| I wanted to save the       |
| contents of the windows    |
| program editor into a      |
| member of my utl directory |
| on unix                    |
|                            |
| ie type                    |
|                            |
|   ux pgm                   |
|                            |
| on the windows program     |
| editor commad line and     |
| place pgm.sas   into       |
|                            |
| /home/xlr82sas/utl/pgm.sas |
|                            |
| Put the next two macros    |
| in your autocall library   |
|                            |
|                            |
| I need to do more testing  |
| but this appears to work   |
|                            |
|                            |
\*--------------------------*/


options cmdmac;run;  /* need this option on */


%macro ux(afstr1) / cmd;

  /* command line macro                       */
  /* afstr1 is global macro variable SAS uses */

  note uxa;clear; notesubmit '%uxa';

%mend ux;


%macro uxa;

data _null_;

  /* It seems with every new version of SAS some things get harder
     to do */

  handle= "filename ux ftp "!!"'/home/xlr82sas/utl/&afstr1..sas' "!!
        " user="!!"'xlr82sas' "!!
        " pass="!!"'xxxxxxxx'   "!!
        " host="!!"'xxxxxxxx'   "!!
        " recfm=v;"
;
  Call Execute(handle);

Run;

dm "file ux";  /* save program into unix directory */

filename ux clear;run;

%mend uxa;