mf_getvarnum.sas

Go to the documentation of this file.

/**
  @file
  @brief Returns the position of a variable in dataset (varnum attribute).
  @details Uses varnum function to determine position.
 
Usage:
 
    data work.test;
      format str $1.  num datetime19.;
      stop;
    run;
    %put %mf_getVarNum(work.test,str);
    %put %mf_getVarNum(work.test,num);
    %put %mf_getVarNum(work.test,renegade);
 
returns:
 
  > 1
 
  > 2
 
  > NOTE: Variable renegade does not exist in test
 
  @param [in] libds Two part dataset (or view) reference.
  @param [in] var Variable name for which a position should be returned
 
  @author Allan Bowe
  @version 9.2
 
**/
 
%macro mf_getVarNum(libds /* two level ds name */
      , var /* variable name from which to return the format */
)/*/STORE SOURCE*/;
  %local dsid vnum rc;
  /* Open dataset */
  %let dsid = %sysfunc(open(&libds));
  %if &dsid > 0 %then %do;
    /* Get variable number */
    %let vnum = %sysfunc(varnum(&dsid, &var));
    %if(&vnum <= 0) %then %do;
      %put NOTE: Variable &var does not exist in &libds;
      %let vnum = %str( );
    %end;
  %end;
  %else %do;
    %put &sysmacroname: dataset &libds not opened! (rc=&dsid);
    %put &sysmacroname: %sysfunc(sysmsg());
    %return;
  %end;
 
  /* Close dataset */
  %let rc = %sysfunc(close(&dsid));
 
  /* Return variable number */
    &vnum.
 
%mend mf_getVarNum;