I have a macro below that can be run in 1 program. It produces 2 variables for use for the user &computeblockprocreport. and &formatlines. FormatLines are intended to be used in a proc format statement but it's not working as demo'd below. The computeblockprocreport is used in Proc report and is used to apply a gradient to a table if required in the compute block. THIS IS WORKING.      %macro generate_gradient_colors(start_value,end_value, start_color, end_color, num_intervals,rpt_col_num); /* Extract RGB components of start and end colors */ %let start_red = %substr(&start_color, 3, 2); %let start_green = %substr(&start_color, 5, 2); %let start_blue = %substr(&start_color, 7, 2); %let end_red = %substr(&end_color, 3, 2); %let end_green = %substr(&end_color, 5, 2); %let end_blue = %substr(&end_color, 7, 2); %put &end_red; %put &end_green; %put &end_blue; %let start_red_decimal = %sysfunc(inputn(&start_red.,hex8.)); %let start_green_decimal = %sysfunc(inputn(&start_green.,hex8.)); %let start_blue_decimal = %sysfunc(inputn(&start_blue.,hex8.)); %let end_red_decimal = %sysfunc(inputn(&end_red.,hex8.)); %let end_green_decimal = %sysfunc(inputn(&end_green.,hex8.)); %let end_blue_decimal = %sysfunc(inputn(&end_blue.,hex8.)); /* Calculate the increment for each color component */ %let red_increment = (%sysevalf(&end_red_decimal - &start_red_decimal)) / &num_intervals; %let green_increment = (%sysevalf(&end_green_decimal - &start_green_decimal)) / &num_intervals; %let blue_increment = (%sysevalf(&end_blue_decimal - &start_blue_decimal)) / &num_intervals; %let value_increment = %sysevalf((%sysevalf(&end_value - &start_value + 1) / &num_intervals)); %let prev_increment = &start_value; /* Generate format lines with gradient colors */ %GLOBAL formatlines; %GLOBAL computeblockprocreport; %do i = 1 %to &num_intervals; %let red_value = %sysevalf(&start_red_decimal + &red_increment * &i); %let green_value = %sysevalf(&start_green_decimal + &green_increment * &i); %let blue_value = %sysevalf(&start_blue_decimal + &blue_increment * &i); %let hex_color = cx%sysfunc(strip(%sysfunc(putn(&red_value, hex2.))))%sysfunc(strip(%sysfunc(putn(&green_value, hex2.))))%sysfunc(strip(%sysfunc(putn(&blue_value, hex2.)))); %if &i. eq 1 %then %do; /*for Proc Format*/%let formatlines = low - &start_value. = %str(%')&hex_color.%str(%'); /*for Proc Report*/%let computeblockprocreport = if _C&rpt_col_num._ le &start_value. then do%str(;) call define(_col_,%str(%')style%str(%'),%str(%')STYLE={BACKGROUND=&hex_color.}%str(%'))%str(;) end%str(;); %end; %if &i. lt &num_intervals %then %do; /*for Proc Format*/%let formatlines = &formatlines. &prev_increment - %sysevalf(&i. * &value_increment) = %str(%')&hex_color.%str(%'); /*for Proc Report*/%let computeblockprocreport = &computeblockprocreport. if _C&rpt_col_num._ gt &prev_increment and _C&rpt_col_num._ le %sysevalf(&i. * &value_increment) then do%str(;) call define(_col_,%str(%')style%str(%'),%str(%')STYLE={BACKGROUND=&hex_color.}%str(%'))%str(;) end%str(;); %end; %if &i. eq &num_intervals %then %do; /*for Proc Format*/%let formatlines = &formatlines. &prev_increment - high = %str(%')&hex_color.%str(%'); /*for Proc Report*/%let computeblockprocreport = &computeblockprocreport. if _C&rpt_col_num._ gt &prev_increment then do%str(;) call define(_col_,%str(%')style%str(%'),%str(%')STYLE={BACKGROUND=&hex_color.}%str(%'))%str(;) end%str(;); %end; %let prev_increment = %sysevalf(&i. * &value_increment); %end; %mend; /* Example usage */ %let start_value = 1; %let end_value = 10; %let start_color = cxFFFFFF; %let end_color = cx00A5B9; %let num_intervals = 5; %let rpt_col_num = 1; /* Generate gradient colors */ %generate_gradient_colors(&start_value, &end_value, &start_color, &end_color, &num_intervals,&rpt_col_num); %put &formatlines.; %put &computeblockprocreport.; proc format; value heatfmt &formatlines. ; quit; proc format; value heatfmtmanual low - 1 = 'cxCCEDF1' 1 - 2 = 'cxCCEDF1' 2 - 4 = 'cx99DBE3' 4 - 6 = 'cx66C9D5' 6 - 8 = 'cx33B7C7' 8 - high = 'cx00A5B9' ; quit; data test; do col1 = &start_value to &end_value; rnum = STRIP(PUT(col1,best32.)); output; end; run; /*TEST Proc Report COMPUTE BACKGROUND*/ Proc Report Data=work.test; columns _ALL_; define col1 / "col1"; compute col1; &computeblockprocreport.; endcomp; ; run; /*TEST Proc TABULATE */ Proc Tabulate DAta=WORK.test style=[background=heatfmt.]; ; class rnum; var col1; table rnum,col1 ; run; /*TEST Proc TABULATE */ Proc Tabulate DAta=WORK.test style=[background=heatfmtmanual.]; ; class rnum; var col1; table rnum,col1 ; run; %put &computeblockprocreport.; %put ; %put &formatlines.;       The text in &formatlines. is:   low - 1 = 'cxCCEDF1' 1 - 2 = 'cxCCEDF1' 2 - 4 = 'cx99DBE3' 4 - 6 = 'cx66C9D5' 6 - 8 = 'cx33B7C7' 8 - high = 'cx00A5B9'   line 75 has the proc format and &formatlines variable that isn't working.  line 81 has the manual version types out instead of using the &formatlines var.   Line 100 and Line 111 are tests for Proc tabulate using the two formats.  Only the manual format is working...    Have I come too far just to realize this isn't possible to use macro vars in proc format?       Thanks; ... View more

I ran the following code and got the curve below. proc lifetest data=sasuser.combine_aim2n2 plots=survival(f) timelist=(0 to 132 by 12); time month2*ui2(0); run; Would there be a way to change the scale of x axis from 0 25 50 75 100 125 to 0 12 24 36 48 60 72 84 96 108 120 132?  ... View more