GetPwd.sas

/****************************************************************************/
/*  Program Name  : GetPwd.sas                                              */
/*  Purpose       : Return the present working directory.                   */
/*                                                                          */
/*--------------------------------------------------------------------------*/
/*  Author        : Matt Trzcinski                                          */
/*  Last Update   : 2017/08/23                                              */
/*                                                                          */
/*--------------------------------------------------------------------------*/
/*  Input(s)      : None                                                    */
/*  Output(s)     : Returned macro value                                    */
/*                                                                          */
/*--------------------------------------------------------------------------*/
/*  Example(s)    : %put The pwd is: %GetPwd();                             */
/*                                                                          */
/*--------------------------------------------------------------------------*/
/*  Note          :                                                         */
/*                                                                          */
/*  Developer     :                                                         */
/*                                                                          */
/****************************************************************************/

%macro GetPwd();
  %qsubstr(
      %sysget(SAS_EXECFILEPATH)
    , 1
    , %length(%sysget(SAS_EXECFILEPATH))-%length(%sysget(SAS_EXECFILENAME))
  )
%mend;

Powered by peut-publier

©2020 Matt Trzcinski