qrp_report

****************************************************************************************************

*                                           PROGRAM OVERVIEW

****************************************************************************************************

*

* PROGRAM: utility_macros.sas  

* Created (mm/dd/yyyy): 12/20/2020

*

*--------------------------------------------------------------------------------------------------

* PURPOSE: This program includes the following macros:

*   - %isdata() macro determines whether a dataset is empty or not

*   - %create_comma_charlist() macro converts space delimited list to comma delimited list with quotes

*   - %alphabetizevarutil() macro alphabetizes variables in a data step

*   - %tableletter() macro increments a letter suffix

*   - %varexist() macro checks for the existence of a variable

*   - %convert_categories() macro converts categories to mathematical expression

*   - %output_datasets() macro output SAS datasets  

*   - %nonrep() macro removes repeated words in macro variable

*   - %varlength macro gets a variable length and type

*

*  Program inputs:                                                                                   

*   -

* 

*  Program outputs:                                                                                                                                       

*   -

* 

*  PARAMETERS:                                                                       

*            

*  Programming Notes:                                                                                

*                                                                           

*

*--------------------------------------------------------------------------------------------------

* CONTACT INFO: 

*  Sentinel Coordinating Center

*  info@sentinelsystem.org

*

***************************************************************************************************;

​

*Macro to determine whether a dataset is empty or not;

%MACRO ISDATA(dataset=);

    %GLOBAL NOBS;

    %let NOBS=0;

    %if %sysfunc(exist(&dataset.))=1 and %LENGTH(&dataset.) ne 0 %then %do;

        data _null_;

        dsid=open("&dataset.");

        call symputx("NOBS",attrn(dsid,"NLOBS"));

        run;

    %end;   

%PUT &NOBS.;

%MEND ISDATA;

​

*Macro for converting macro variable with space deliminated list to comma deliminated list with quotation around each word;

%macro create_comma_charlist(inlist=, outlist=);

  %global &outlist.;

​

  %let countvars = %sysfunc(Countw(%quote(&inlist.), ' '));

    %do c = 1 %to &countvars.;

      %let word = %scan(%quote(&inlist),&c., ' ');

        %if &c. = 1 %then %do;

          %let &outlist. = "&word.";

        %end;

        %else %do;

          %let &outlist. = &&&outlist. , "&word.";

        %end;