SAS MACRO DEFINITION TO UPCASE ALL CHARACTER VARIABLES IN A SPECIFIED DATA SET

UPCASE_ALL.SAS

*MODIFY THESE GLOBAL OPTIONS AS NEEDED FOR DEBUGGING;
OPTIONS NOMLOGIC NOSYMBOLGEN NOMPRINT;

/***************************************************
CALL/INVOKE MACRO AFTER COMPILATION AS SHOWN HERE;

SYNTAX: %UPCASEALL(LIBRARY_REFERENCE, DATASET_NAME);
EXAMPLE: %UPCASEALL(WORK,_PRODSAVAIL);

***************************************************/

%macro upcaseall(LIBRARY, DATASET);
    proc sql;

    *COUNT TARGETS;
    select count(name) into :charvarcount from sashelp.vcolumn
    where libname="&LIBRARY"
    and xtype="char"
    and memname="&DATASET";

    *CREATE TARGETS;
    select name into :charvar1-:charvar%left(&charvarcount)
    from sashelp.vcolumn
    where libname="&LIBRARY"
    and xtype="char"
    and memname="&DATASET";

    quit;

    *PROCESS TARGETS;
    %do i=1 %to &charvarcount;
        DATA &LIBRARY..&DATASET;
            SET &LIBRARY..&DATASET;
            &&CHARVAR&I=UPCASE(&&CHARVAR&I);
        RUN;
    %end;
%mend;

%upcaseall(WORK,_PRODSAVAIL);