Add quote to only character word from given string

[Tushar]

Hello Experts,

partition_Path=/vcs_valuation_type=FRTB/vcs_run_subtype=ES/vcs_run_qualifier=FC/cob_year=2022/cob_month=03/cobdate=20220304/package_type=FLASH/resu
lt_type=FRTB_TRADERBOOK_PNL/result_request_id=5;

formatted_partition= vcs_valuation_type="FRTB",vcs_run_subtype="ES",vcs_run_qualifier="FC",cob_year=2022,cob_month=03,cobdate=20220304,package_type

="FLASH",result_type="FRTB_TRADERBOOK_PNL",result_request_id=5;

i have written one simple program to get formatted_partition based on above requirement but with my program it also adding doble quote to digits value.

%let filePath=/vcs_valuation_type=FRTB/vcs_run_subtype=ES/vcs_run_qualifier=FC/cob_year=2022/cob_month=03/cobdate=20220304/package_type=FLASH/resu
lt_type=FRTB_TRADERBOOK_PNL/result_request_id=5;

data _null_;
temp=substr(tranwrd((tranwrd("&filePath",'/','",')),'=','="'),3);
form_path=compress(%sysfunc(cat(temp||'"')));
put form_path;
%let formPath=form_path;
run;

can anyone assist? @Ksharp @Tom 

[andreas_lds · Accepted solution]

Try

data _null_;
   length have want $ 500 pair $ 100 value $ 40;
   have = symget('partition_path');
   
   if first(have) = '/' then pp = substr(have, 2);
   
   do i = 1 to countw(have, '/');
      pair = scan(have, i, '/');
      value = scan(pair, 2, '=');
      
      want = catx(',', want, scan(pair, 1, '='));
      
      if anyalpha(value) then do;
         want = catx('=', want, quote(trim(value)));
      end;
      else do;
         want = catx('=', want, value);
      end;
   end;
   
   call symputx('formatted_path', want);
run;

[Tushar]

Thanks a lot, Work exactly i wanted.

[Ksharp]

%let filePath=/vcs_valuation_type=FRTB/vcs_run_subtype=ES/vcs_run_qualifier=FC/cob_year=2022/cob_month=03/cobdate=20220304/package_type=FLASH/result_type=FRTB_TRADERBOOK_PNL/result_request_id=5;

data x;
have=symget('filePath');
want=prxchange('s/\//,/i',-1,have);
want=prxchange('s/^,+//i',-1,want);

want=prxchange('s/(?<==)([a-z_]+)/"\1"/i',-1,want);

put have= / want=;
run;

[Tushar]

Thanks a lot @Ksharp. This worked perfectly as well. Never thought of prxchange power. Going forward will use the same.