Hi, here you go: data want; set exam; length flag 8; flag=ifn(verify(compress(test1,,'ak'),'AB'),0,1); run; ... View more

Hi, if you do not need to double check if the *.xlsx exists before deleting the *.xls you could simply use the x command: x "del ""YourPath\*.xls"""; ... View more

Hi, Add this line to your AnuarioText2 template and see if it produces the result you expect: class colors / 'systitlefg' = black; Otherwise look at the definition of the HTMLBLUE template in SAS and try to change every single color until you get the result you expect. This is the definition I have: proc template; define style Styles.HTMLBlue; parent = styles.statistical; class GraphColors / 'gndata12' = cxECE8C4 'gndata11' = cxDBD8F8 'gndata10' = cxC6E4BF 'gndata9' = cxE6CEAD 'gndata8' = cxE5C1D4 'gndata7' = cxCCDFF0 'gndata6' = cxDDDEB5 'gndata5' = cxDBC7E7 'gndata4' = cxD5C6B4 'gndata3' = cxB7D4D3 'gndata2' = cxE7B3B4 'gndata1' = cxBBC2DC 'gndata' = cxBBC2DC 'gofill' = cxFAFBFE 'gblockheader' = cxcfd5de 'gcphasebox' = cx989EA1 'gphasebox' = cxDBE6F2 'gczonec' = cxBECEE0 'gzonec' = cxCCDCEE 'gczoneb' = cxCCDCEE 'gzoneb' = cxD7E5F3 'gzonea' = cxE3EDF7 'gconramp3cend' = cx9C1C00 'gconramp3cneutral' = cx222222 'gconramp3cstart' = cx0E36AC 'gramp3cend' = cxD05B5B 'gramp3cneutral' = cxFAFBFE 'gramp3cstart' = cx667FA2 'gcontrollim' = cxE6F2FF 'gccontrollim' = cxBFC7D9 'gruntest' = cxCAE3FF 'gcruntest' = cxBF4D4D 'gclipping' = cxFFFFC6 'gcclipping' = cxC1C100 'gaxis' = cx989EA1 'greferencelines' = cx989EA1; class colors / 'link2' = cx0000FF 'link1' = cx800080 'docbg' = cxFAFBFE 'contentbg' = cxFAFBFE 'systitlebg' = cxFAFBFE 'titlebg' = cxFAFBFE 'proctitlebg' = cxFAFBFE 'headerbg' = cxEDF2F9 'captionbg' = cxFAFBFE 'captionfg' = cx112277 'bylinebg' = cxFAFBFE 'notebg' = cxFAFBFE 'tablebg' = cxFAFBFE 'batchbg' = cxFAFBFE 'systitlefg' = cx112277 'titlefg' = cx112277 'proctitlefg' = cx112277 'bylinefg' = cx112277 'notefg' = cx112277; class Header / bordercolor = cxB0B7BB backgroundcolor = cxEDF2F9 color = cx112277; class Footer / bordercolor = cxB0B7BB backgroundcolor = cxEDF2F9 color = cx112277; class RowHeader / bordercolor = cxB0B7BB backgroundcolor = cxEDF2F9 color = cx112277; class RowFooter / bordercolor = cxB0B7BB backgroundcolor = cxEDF2F9 color = cx112277; class Table / cellpadding = 5; class Graph / attrpriority = "Color"; class GraphFit2 / linestyle = 1; class GraphClipping / markersymbol = "circlefilled"; end; run;   ... View more

Hi, I kept as much of your code as possible and commented what I changed: Try this: proc datasets lib=work kill nolist;run;quit;/*new*/ %let yourpath=C:\;/*new*/ /*** Example Data ***/ data work.sample_data; input EZGH25A EZGH25B EZGH25C EZGH25D EZGH25E AGHK50A AGHK50B AGHK50C BGKO28A BGKO28B; datalines; 10 20 30 40 50 1 2 3 2 3 15 25 35 45 55 1 3 4 3 2 5 10 15 20 25 2 2 3 3 2 20 30 40 50 60 4 3 2 1 1 25 35 45 55 65 1 1 1 2 3 ; run; proc import datafile="&yourpath.\LoopQuestion.xlsx"/*changed yourpath to &yourpath.*/ out=Excel_Items dbms=xlsx replace; run; /* Using proc sql for a Sorting Variable which is used to iterate trough the do-loop */ proc sql noprint; select distinct Sort into :Sort separated by " " from Excel_Items; quit; %put &Sort; %let varlistE = EZGH25A EZGH25B EZGH25C EZGH25D EZGH25E; %let varlistA = AGHK50A AGHK50B AGHK50C BGKO28A BGKO28B; /* Mean Calculation */ proc means data=work.sample_data noprint; var &varlistE; output out=work.mean_ezgh; run; %macro meandata; %do i = 1 %to %sysfunc(countw(&varlistE)); %let vmean = %scan(&varlistE, &i); data work.mean&vmean;/*changed work.&vmean to work.mean&vmean*/ set work.mean_ezgh (keep=&vmean); run; %end; %mend meandata; %meandata; /* Freq calculation */ %macro freqdata; %do i = 1 %to %sysfunc(countw(&varlistA)); %let vfreq = %scan(&varlista, &i); proc freq data=work.sample_data; tables &vfreq/ out=work.freq&vfreq;/*changed work.&vfreq to work.freq&vfreq*/ run; %end; %mend freqdata; %freqdata; /*** Macro Loop ***/ %macro Testloop; %do i = 1 %to %sysfunc(countw(&Sort.)); %let SortID = %scan(&sort, &i); %let VariableA = %scan(&varlistA, &i); %let VariableE = %scan(&varlistE, &i); ods pdf file="&yourpath.\LoopTest.pdf";/*changed yourpath to &yourpath.*/ ods pdf startpage=now; ods layout start width=19cm height=28cm; /* Compute Variable Information for each Variable */ data VariableInfo; set Excel_items; where Sort = &SortID.; drop Sort; run; %local Info1Items;/*new*/ %let Info1Items=;/*new*/ PROC SQL noprint;/*new*/ SELECT distinct Info1 INTO :Info1Items SEPARATED BY " "/*new*/ FROM Excel_Items/*new*/ WHERE Sort = &SortID./*new*/ AND Info1 not in ('' 'Variable');/*new*/ QUIT;/*new*/ /* Report Variable Information for each Variable */ proc report data=VariableInfo noheader; column Info1 Info2; run; %MACRO PrinItemStats(Item=);/*new*/ %if %sysfunc(exist(freq&Item.)) %then %do; /*new*/ /* Print Frequency Table */ proc report data=freq&Item.;/*changed VariableA to Item*/ column &Item. COUNT PERCENT;/*changed VariableA to Item*/ define &Item / display "&Item.";/*changed VariableA to Item*/ define COUNT / display "Absolut"; define PERCENT / display "Percent"; run; %end;/*new*/ %if %sysfunc(exist(mean&Item.)) %then %do; /*new*/ /* Print Mean Table */ proc report data=mean&Item.;/*changed VariableE to Item*/ column &Item.; /*changed VariableE to Item*/ run; %end;/*new*/ %MEND PrinItemStats;/*new*/ %local j currItem;/*new*/ %LET j=1;/*new*/ %LET currItem=%SCAN(&Info1Items.,&j.,%STR( ));/*new*/ %DO %WHILE(%LENGTH(&currItem.)>0);/*new*/ %PrinItemStats(Item=&currItem.);/*new*/ %LET j=%EVAL(&j.+1);/*new*/ %LET currItem=%SCAN(&Info1Items.,&j.,%STR( ));/*new*/ %END;/*new*/ ods layout end; %end; ods pdf close; %mend Testloop; %Testloop; ... View more