SAS - dynamically update labels to propcase

sas_dynamically_format_labels

data class;
    set sashelp.class;
    label name="NAme" sex="GEndeR" age="Age" height="HeiGht" weight="kilograms";
run;

proc sql noprint;
    select catx('=', name, quote(propcase(coalescec(trim(label), name)))) 
        into :label_list separated by " " from sashelp.vcolumn where libname='WORK' 
        and upper(memname)='CLASS';
quit;

proc datasets lib=work nodetails nolist;
    modify class;
    label &label_list;
    run;
quit;

proc print data=class label;
run;