This sample uses the GCHART procedure in conjunction with the Annotate facility in the SAS/GRAPH software to create a series of slider chart indicators, and then uses the GREPLAY procedure to arrange the indicators into a dashboard. This version is intended for use in a webDAV content portlet in SAS Information Delivery Portal software. It builds on the individual indicator sample, Create a slider chart indicator for use in a portlet.

In this sample, the pltname parameter of the %DO_RANGE macro is used to specify the name of the SAS/GRAPH GRSEG in which each graph is temporarily stored. Here is an example that creates a slider chart in GRSEG ITCOST:

%do_range(itcost,10000,30000,40000,50000,40458,&light_green, &light_yellow,&light_red,&alert_color,comma8.0,'IT Cost');

The %DO_RANGE macro is called separately for each graph, and each graph is given a unique GRSEG name. The GREPLAY procedure is then used to combine the graphs into a single page using a custom template, which arranges the graphs in a specific order. The custom GREPLAY template is defined by specifying four X and Y coordinates for the rectangular area that will hold each graph. The units of the X and Y coordinates are the percent of the total length of the axis where the coordinate is located, with 0,0 being the bottom-left corner. Each rectangular area is assigned an ID number. Here is the layout of the GREPLAY template:

Here are the coordinates that place the IT Cost chart near the bottom-left corner of the dashboard in area 5:

   5/llx = 0   lly = 0
     ulx = 0   uly = 50
     urx =25   ury = 50
     lrx =25   lry = 0

where LLX is the lower-left X coordinate, LLY is the lower-left Y coordinate, and so on.

Here is the GREPLAY procedure TREPLAY action statement that draws each chart into the appropriate area of the template:

  treplay
  1:bigtitle 2:satisfy  3:uptime      4:avail
  5:itcost   6:risk     7:training    8:ontime

Note: For convenience and code readability, spacing is used in the TREPLAY action statement to make the layout correspond to the actual location of the charts in relation to one another.

Notice that the ITCOST chart is replayed into area 5.

The physical spacing and layout of the TREPLAY action statement does not have any bearing on the physical layout of the graphs. The actual layout is controlled by the X and Y coordinates that you define in the custom GREPLAY template.

For additional information about creating dashboard applications with SAS/GRAPH software, see SAS/GRAPH Dashboard Samples.

---

These sample files and code examples are provided by SAS Institute Inc. "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and fitness for a particular purpose. Recipients acknowledge and agree that SAS Institute shall not be liable for any damages whatsoever arising out of their use of this material. In addition, SAS Institute will provide no support for the materials contained herein.

Note: This version is intended for use in a webDAV content portlet in the SAS Information Delivery Portal. For versions that can be executed in other ways, see

• interactive or batch version
• stored process version.

---

---

/* Specify the name for the output file. */
%let name=sliderDashPortal;

/* Set output options. */
filename odsout '.';
goptions reset=all;
goptions device=gif;

/* Specify the for the complete dashboard. */
%let title1=IT Dashboard;
%let title2=October 2006;


/* Define range colors for the indicator bars. */
%let light_red=cxFFC1C1;
%let light_yellow=cxFFFFAA;
%let light_green=cxB4EEB4;

/* Define the color to use when pointers are in undesireable ranges. */
%let alert_color=cxFF0000;

/* Define background and foreground colors for the overall dashboard
  and indicators. */
%let backcolor=white;
%let bordercolor=grayaa;
%let darkcolor=black;

/* Define fonts for title and text in the dashboard and in 
   individual indicators. */
%let ftitle='swissb';
%let ftext='swissl';

/* Define the location of the HTML page that supplies drill-down details 
   for the indicator.  If you don't have Internet access, you must put
   the target HTML file where your browser can access it, then change the 
   following URL to point to your location. */
%let hardcoded_drilldown=http://support.sas.com/rnd/datavisualization/dashboards/generic_drilldown.htm;       

goptions gunit=pct htitle=6 ftitle=&ftitle htext=4.5 ftext=&ftext;

/**************************************************************************/
/* The following "do_range" macro creates a slider chart indicator showing 
a three-segment bar with a pointer to indicate your current value.  

This example assumes that the color specified in the light_red variable 
indicates an undesireable range of values.  If the pointer falls in a 
range represented in the light_red color, it is set to the color specified 
in the alert_color parameter to indicate that it needs attention.

Note that the range for undesireable values does not have to appear at 
the top of the scale. It could be at the bottom, both bottom and top, 
or in the middle, depending on the color parameters that you specify in 
the macro call.

The do_range macro accepts the following list of parameters:

pltname = name of GRSEG to store the chart
val1 = lowest value of lowest range in scale
val2 = highest value of lowest range in scale
val3 = lowest value of highest range in scale
val4 = highest value of highest range in scale
actual = actual value for indicator (value for pointer)
color1 = color for lowest range in scale
color2 = color for middle range in scale
color3 = color for highest range in scale
alert_color = bright attention-grabbing color if value is in "alert" range
valfmt = format to apply to the values
titletext = title to print above individual chart
*/

%macro do_range( pltname, val1, val2, val3, val4, actual, color1, color2, color3, alert_color, valfmt, titletext);

%local pltname val1 val2 val3 val4 actual color1 color2 color3 alert_color valfmt titletext;

goptions cback=&backcolor;

/* Add the parameter values to a SAS data set so that they can be 
   processed with the GCHART procedure.  Also specify the HTML file 
   to provide drill-down details. */
data tempdata;

length html $ 200;
html='title='||quote(
 'Actual Value: '|| trim(left(put(&actual,&valfmt)))
) ||' '||'href="'||"&hardcoded_drilldown"||'"';
barname='foo';
segnum=1; value=&val2-&val1;
output;
segnum=2; value=&val3-&val2;
output;
segnum=3; value=&val4-&val3;
output;
run;

/* Create Annotate data for the labels and pointer on the bar chart. */
data tempanno;
length style $20 color $ 12 function $ 8 text $ 30;
when="A";

/* Set the 'tool tip' for the chart to provide a link to an 
   HTML page with drill-down details. */
length html $ 200;
html='title='||quote(
 'Actual Value: '|| trim(left(put(&actual,&valfmt)))
) ||' '||'href="'||"&hardcoded_drilldown"||'"';

/* Draw a line across the bar where the trianglular pointer goes. */
xsys='2'; ysys='2'; midpoint='foo'; y=&actual-&val1; function='move';
output;
size=1; color="&darkcolor";
function='draw'; xsys='B'; x=-7;
output;
function='draw'; xsys='B'; x=14;
output;

/* Position the cursor to draw the triangular pointer. */
xsys='2'; ysys='2'; midpoint='foo'; y=&actual-&val1; function='move';
output;
function='cntl2txt';
output;

/* Set the color of the triangular pointer.  If the triangular pointer 
   is in an area that uses the color specified in the light_red variable, 
   then set the area and the pointer to the color specified in the 
   alert_color parameter. */
alert_color=symget('alert_color');
if &actual lt &val1 then do;
 color="&backcolor";
 end;
else if &actual lt &val2 then do;
 color="&color1";
 if "&color1" eq "&light_red" then do;
   call symput('color1',alert_color);
   color="&alert_color";
   end;
 end;
else if &actual lt &val3 then do;
 color="&color2";
 if "&color2" eq "&light_red" then do;
   call symput('color2',alert_color);
   color="&alert_color";
   end;
 end;
else if &actual le &val4 then do;
 color="&color3";
 if "&color3" eq "&light_red" then do;
   call symput('color3',alert_color);
   color="&alert_color";
   end;
 end;
else do;
 color="&backcolor";
 end;

/* Draw the triangular pointer (using character 'A' of the 'marker' 
   software font provided with SAS/GRAPH software). */
function='label'; hsys='3'; ysys='2'; y=&actual-&val1; xsys='9'; x=5.00;
position='6'; size=5; style="marker"; text="A";
output;

/* Draw an outline around the triangle using the 'markere' font
   (empty/outline of the triangle marker). */
xsys='2'; ysys='2'; midpoint='foo'; y=&actual-&val1; function='move';
output;
function='cntl2txt';
output;
function='label'; hsys='3'; ysys='2'; y=&actual-&val1; xsys='9'; x=5.00;
position='6'; size=5; style="markere"; color="&darkcolor"; text="A";
output;

/* Annotate the actual value as text beside the triangular pointer. */
xsys='2'; ysys='2'; midpoint='foo'; y=&actual-&val1; function='move';
output;
function='cntl2txt';
output;
function='label'; hsys='3'; ysys='2'; y=&actual-&val1; xsys='9'; x=14;
position='C'; size=5; style="&ftitle"; color="&darkcolor";
text=trim(left(put(&actual,&valfmt)));
output;

/* Annotate the text for the beginning and end of each range along the
   left side of the bar. */
xsys='2'; ysys='2'; midpoint='foo'; y=&val1-&val1; function='move';
output;
function='cntl2txt';
output;
function='label'; hsys='3'; ysys='2'; xsys='9'; x=-9;
position='A'; size=5; style="&ftext"; color="&darkcolor"; 
y=&val1-&val1; text=trim(left(put(&val1,&valfmt)));
output;
x=0;
y=&val2-&val1; text=trim(left(put(&val2,&valfmt)));
output;
y=&val3-&val1; text=trim(left(put(&val3,&valfmt)));
output;
y=&val4-&val1; text=trim(left(put(&val4,&valfmt)));
output;

run;

/* Set the size for an individual slider chart indicator. */
goptions xpixels=200 ypixels=300;

title1 ls=1.5 color=&darkcolor &titletext;
title2 a=-90 h=7 " ";
pattern1 v=s c=&color1;
pattern2 v=s c=&color2;
pattern3 v=s c=&color3;

/* Draw the individual chart using the GCHART procedure and the custom 
   annotation.  Save the output in the GRSEG name identified by the 
   NAME= option so that it can later be be replayed it into a template 
   using the GREPLAY procedure. */
proc gchart data=tempdata anno=tempanno;
vbar barname /
   sumvar=value
   subgroup=segnum
   width=10
   coutline=gray
   noframe
   noaxis
   nolegend
   html=html
   name="&pltname";
run;
quit;

%mend do_range;

/**************************************************************************/
/* Delete all GRSEGs in the current session to ensure that indicators use
the expected names.  If a name is already in use, then an attempt to create
a new GRSEG using that name it will add a number to the name.  In that case, 
the subsequent GREPLAY will be placing the wrong GRSEGs into the dashboard.

Note: The macro code just checks whether there are any gsegs to delete.  If 
it tried to delete specific entries and none existed, then you would get an
error message: "ERROR: Member-name GSEG is unknown." */

%macro delcat(catname);
 %if %sysfunc(cexist(&catname)) %then %do;
  proc greplay nofs igout=&catname;
  delete _all_;
  run;
 %end;
 quit;
%mend delcat;

%delcat(work.gseg);

/*******************************************************************************/

/* Run the macro to create a set of slider chart indicators. */
goptions nodisplay;

%do_range(ontime,3,6,9,12,5.8,&light_red,&light_yellow,&light_green,&alert_color,comma5.1,
 'Ontime Projects');

%do_range(satisfy,2,3,4,5,4.1,&light_red,&light_yellow,&light_green,&alert_color,comma5.1,
 'Cust. Satisfaction');

%do_range(risk,12,13.5,15,17,13.4,&light_green,&light_yellow,&light_red,&alert_color,comma5.1,
 'Risk');

%do_range(avail,70,80,90,100,88.8,&light_red,&light_yellow,&light_green,&alert_color,comma5.1,
 'Availability');

%do_range(itcost,10000,30000,40000,50000,40458,&light_green,&light_yellow,&light_red,&alert_color,comma8.0,
 'IT Cost');

%do_range(training,0,15,100,160,43,&light_red,&light_green,&light_red,&alert_color,comma5.0,
 'Training Hours');

%do_range(uptime,0,.70,.85,1.00,.92,&light_red,&light_yellow,&light_green,&alert_color,percent8.1,
 'Uptime');

/**************************************************************************/

/* Create the main title slide, and store it in GRSEG named 'bigtitle'. */
title1 h=20pct " ";
title2 height=8 font=&ftitle "&title1";
title3 height=5 font=&ftitle "&title2";
proc gslide des="" name='bigtitle';
run;

/**************************************************************************/

/* Set the size for the dashboard. */
goptions display;
goptions xpixels=800 ypixels=600;
 
ODS LISTING CLOSE;
ODS HTML path=odsout body="&name..htm" (title="IT Dashboard" no_top_matter no_bottom_matter)
  style=minimal;
goptions noborder;

/* Use the REPLAY procedure to create a template and load the indicators. */
proc greplay tc=tempcat nofs igout=gseg; 

/* Define the areas of a custom greplay dashboard template. */
 tdef dashbard des='Dashboard'

/* Create a title slide in the first area. */
   1/llx = 0   lly = 50
     ulx = 0   uly = 100
     urx =25   ury = 100
     lrx =25   lry = 50
     color=&bordercolor

/* Slider chart indicators will go in the other areas. */
   2/llx =25   lly = 50
     ulx =25   uly = 100
     urx =50   ury = 100
     lrx =50   lry = 50
     color=&bordercolor

   3/llx =50   lly = 50
     ulx =50   uly = 100
     urx =75   ury = 100
     lrx =75   lry = 50
     color=&bordercolor

   4/llx =75   lly = 50
     ulx =75   uly = 100
     urx =100  ury = 100
     lrx =100  lry = 50
     color=&bordercolor

   5/llx = 0   lly = 0
     ulx = 0   uly = 50 
     urx =25   ury = 50 
     lrx =25   lry = 0
     color=&bordercolor

   6/llx =25   lly = 0
     ulx =25   uly = 50 
     urx =50   ury = 50 
     lrx =50   lry = 0
     color=&bordercolor

   7/llx =50   lly = 0
     ulx =50   uly = 50 
     urx =75   ury = 50 
     lrx =75   lry = 0
     color=&bordercolor

   8/llx =75   lly = 0
     ulx =75   uly = 50 
     urx =100  ury = 50 
     lrx =100  lry = 0
     color=&bordercolor
   ;

/* Replay the GRSEGs into the appropriate areas in the custom dashboard template. */
  template=dashbard;
  treplay 
  1:bigtitle 2:satisfy  3:uptime      4:avail
  5:itcost   6:risk     7:training    8:ontime  
  des=""
  name="&name" ;  
run;
quit;

ODS HTML CLOSE;
ODS LISTING;

---

These sample files and code examples are provided by SAS Institute Inc. "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and fitness for a particular purpose. Recipients acknowledge and agree that SAS Institute shall not be liable for any damages whatsoever arising out of their use of this material. In addition, SAS Institute will provide no support for the materials contained herein.

The following file contains the full code for this sample. To download a copy, click on the link and select the Save option.

sliderDashPortal.sas

The following file contains SAS macro code to add the directory that contains the portlet version of the samples to a WebDAV repository. To download a copy, click on the link and select the Save option.

copyToWebDAV.sas

Creates a sample dashboard containing multiple slider chart indicators.

Note: Requires Service Pack 4 for SAS 9.1.3. See Service Packs for the SAS9 Platform.

Type:	Sample
Topic:	Query and Reporting ==> Creating Reports ==> Graphical ==> Graph Types ==> Dashboards SAS Reference ==> Procedures ==> GCHART

Date Modified:	2009-01-07 14:38:02
Date Created:	2006-12-23 03:03:03

Operating System and Release Information

Product Family	Product	Host	SAS Release
			Starting	Ending
SAS System	SAS/GRAPH	All	9.1 TS1M3	9.1 TS1M3