/* You must specify a fully qualified  *
 * file name for your output file, and *
 * copy the file to your web server    */
%let outfile=fully-qualified-file-name;

/* You must specify the path to your sas jar files */
%let jarpath=path-to-yout-sas-jar-files;

ods listing;
goptions reset=all;

data nodedata;
 length nodeLabel $8 nodeId xLoc yLoc 8;
 input nodeLabel nodeID xLoc yLoc;
datalines;
Snacks    5  375   25
SftDrink  3   25   25
Books     2  200   25
BeerWine  4  200  300
Dairy     1   25  300
Bakery    0  375  300
;
run;

data linkdata;
 length from to value 8 tip $45;
 input from to value @13 tip $char45.; 
datalines;
0  0  0     Bakery => Bakery #0
0  1  0.7   Bakery => Dairy #0.7
0  2  0.1   Bakery => Books #0.1
0  3  0.3   Bakery => SftDrink #0.3
0  4  0.1   Bakery => BeerWine #0.1
0  5  0.2   Bakery => Snacks #0.2
1  0  0.5   Dairy => Bakery #0.5
1  1  0     Dairy => Dairy #0
1  2  0.1   Dairy => Books #0.1
1  3  0.2   Dairy => SftDrink #0.2
1  4  0.3   Dairy => BeerWine #0.3
1  5  0.4   Dairy => Snacks #0.4
2  0  0.1   Books => Bakery #0.1
2  1  0.2   Books => Dairy #0.2
2  2  0     Books => Books #0
2  3  0.3   Books => SftDrink #0.3
2  4  0.3   Books => BeerWine #0.3
2  5  0.3   Books => Snacks #0.3
3  0  0.2   SftDrink => Bakery #0.2
3  1  0.3   SftDrink => Dairy #0.3
3  2  0.2   SftDrink => Books #0.2
3  3  0     SftDrink => SftDrink #0
3  4  0.6   SftDrink => BeerWine #0.6
3  5  0.8   SftDrink => Snacks #0.8
4  0  0.2   BeerWine => Bakery #0.2
4  1  0.4   BeerWine => Dairy #0.4
4  2  0.1   BeerWine => Books #0.1
4  3  0.5   BeerWine => SftDrink #0.5
4  4  0     BeerWine => BeerWine #0
4  5  0.9   BeerWine => Snacks #0.9
5  0  0.3   Snacks => Bakery #0.3
5  1  0.4   Snacks => Dairy #0.4
5  2  0.1   Snacks => Books #0.1
5  3  0.5   Snacks => SftDrink #0.5
5  4  0.5   Snacks => BeerWine #0.5
5  5  0     Snacks => Snacks #0
;
run;

title1 'Grocery Affinity Diagram.';

%ds2const(archive=constapp.jar, /* Files and Data sets */
	  htmlfile=&outfile,
          codebase=file:///&jarpath,         
          datatype=arcs,
	  ndata=nodedata,
          ldata=linkdata,
          nid=nodeID,      /* Variable roles   */
          nlabel=nodelabel,
          lfrom=from,
          lto=to,
          height=500,    /* Appearance */
          width=600,
          cnode=red,
          colormap=y,
          nx=xLoc,
          ny=yLoc,
          lvalue=value,
          ltip=tip);