Proc Report

Ronein — Tue, 27 Oct 2020 06:27:56 GMT

Hello

I want to colour cells if their value exceeds UCL1 or UCL2.

UCL2 is always higher then UCL1.

If cell value exceeds UCL2 then it is red.

If cell value exceeds UCL1 and not UCL2 then it is light pink.

If cell value doesnt exceed UCL1 anddoesnt exceed UCL2 then it is light green.

Why option1 is working well and option2 is not working well?

I don't understand the difference between them in the code

 Data RedLights;
Input Subject UCL1 UCL2 Val2009 Val2006 Val2003 Val1912;
cards;
1 15 20 10 8 9 18
2 13 14 15 10 9 8
3 70 80 50 45 90 30
4 25 35 30 16 15 12
5 30 40 17 20 25 30
;
run;
 

proc report data=RedLights nowd;
  column Subject UCL1 UCL2 Val2009 Val2006 Val2003 Val1912 last;/*Add dummy last*/
  define Subject / display  'Subject/Number';
  define UCL1 / display  "Upper/Control/Limit #1";
  define UCL2 / display  "Upper/Control/Limit #2";
  define Val2009 / display 'SEP-2020' style(column)=[background=lightgreen];
  define Val2006 / display 'JUN-2020' style(column)=[background=lightgreen];
  define Val2003 / display 'MAR-2020' style(column)=[background=lightgreen];
  define Val1912 / display 'DEC-2019' style(column)=[background=lightgreen];
  define last / noprint;

/*Option1*/
/*compute last;*/
/*array aaa val2009 val2006 val2003 val1912;*/
/*do index = 1 to dim (aaa);*/
/*val = aaa(index);*/
/*vname = vname(aaa(index));*/
/*if val <= UCL1 and val<=UCL2 then call define(trim(vname),"style","style={background=lightgreen}");*/
/*else if val>UCL1 and val<=UCL2 then call define(trim(vname),"style","style={background=lightpink}");*/
/*else call define(trim(vname),"style","style={background=red}");*/
/*end;*/
/*endcomp;*/

/*Option2*/
compute last;
array aaa val2009 val2006 val2003 val1912;
do index = 1 to dim (aaa);
val = aaa(index);
vname = vname(aaa(index));
if val <= UCL1 and val<=UCL2 then call define(trim(vname),"style","style={background=lightgreen}");
else if val>UCL1 and val<=UCL2 then call define(trim(vname),"style","style={background=lightpink}");
else if val<=UCL1 and val>UCL2 then call define(trim(vname),"style","style={background=red}");
end;
endcomp;
Run;

Re: Proc Report

shweta_d_singh — Tue, 27 Oct 2020 08:08:39 GMT

the last condition looks wrong to me a value can not be greater than and small than at a same time.Check your last condition .

else if val<=UCL1 and val>UCL2 then call define(trim(vname),"style","style={background=red}");

topic Proc Report in SAS Programming

Proc Report

Re: Proc Report