identifying AND which is not inside quotes and replace it with pipe

[Tushar]

Hi I have below program,

%let cri=abc in ('ABD' ' AND AND' 'PAND-AND AND' ' AND -AND' 'ABC') AND def in ('ABD' 'AND AND' 'PAND-AND AND' 'AND -AND' 'ABC');
%let QUERY_CRITERIA_CMPRES=%sysfunc(compress(&cri.,()));
data _null_;
call symputx("QUERY_CRITERIA_PIPE",tranwrd("&QUERY_CRITERIA_CMPRES.","' AND ","'|"));
run;

%put &=QUERY_CRITERIA_PIPE;

its working for outside of single quote AND which is required but it is also replacing AND which is inside quote, however i need to replace AND with pipe '|' only which are not in single quote. Anyone help?

Expected output-

abc in ('ABD' ' AND AND' 'PAND-AND AND' ' AND -AND' 'ABC') | def in ('ABD' ' AND AND' 'PAND-AND AND' ' AND -AND' 'ABC');

[Tushar]

@Ksharp anyhelp?

[Ksharp · Accepted solution]

%let cri=abc in ('ABD' ' AND AND' 'PAND-AND AND' ' AND -AND' 'ABC') AND def in ('ABD' 'AND AND' 'PAND-AND AND' 'AND -AND' 'ABC');

data have;
have="&cri";
length want $ 200;
do i=1 to countw(have,"'",'m');
 if mod(i,2)=0 then want=catx(' ',want,quote(scan(have,i,"'",'m'),"'"));
 if mod(i,2)=1 then want=catx(' ',want,prxchange('s/AND/|/i',-1,scan(have,i,"'",'m')));
 end;
call symputx('want',want);
run;

%put &=cri;
%put &=want ;

[Tushar]

Thanks it worked 🙂