%let name=tree;
filename odsout '.';

data myorg;
input
name     $  1-32 /* employee's name */
empno    $ 34-37 /* employee's id number */
mgrno    $ 43-46 /* manager's employee id number */
deptname $ 52-80 /* Department name */
;
length tiptext $ 50;
tiptext='Empno: '||trim(left(empno))||',    Unit: '||trim(left(deptname));
cards;
Jim Goodson                      0001     0000     Executive
Stew Nisselsen                   0300     0001     Research and Development
Sanj Sharmanese                  2234     0300     Graphics
Eric Carmesuka                   2235     2234     Graphics - Charts
Ed Bunting                       2236     2234     Graphics - Maps
Basil Hit                        2436     2234     Graphics - Fonts   
Bill Guttenberg                  2736     2234     Graphics - Printing
Millie Zuniga                    2237     2234     Graphics - Documentation
Doug Cockerson                   2138     0300     Technology
Bill Lawson                      4138     2138     Patents    
Sally Corona                     9438     4138     Legal Secretary
Melissa Smith                    8331     4138     Legal Secretary
Jyoti Jones                      2345     0300     Web Products
Phillip Phillips                 2346     2345     Web Browsers
Jaclyn Turner                    2347     2345     Web Log Analyzers
John Doe                         2348     2345     Web Servers
John Latchsmith                  2349     2345     Web Surfing
Linda Southerson                 2350     2345     Search Engines
Bob Floatsom                     1001     0001     Testing
Jim Badson                       0222     1001     Tricky Testing
Annie Gunner                     5666     1001     Development Testing
Stue Dent                        5888     5666     Development Testing
Susan Dent                       5887     5666     Development Testing
Biff Barnes                      5556     1001     Traditional QA
Ziggy Starhem                    1556     5556     Cross-Platform
Indison Little                   1786     5556     Cross-Platform
Linda Lakemont                   0043     0001     Marketing
Koka Boots                       0819     0043     Brochures
Val Kilmore                      0018     0043     International Marketing
Krishna Smith                    6088     0018     Asian Marketing
Kyle Peterson                    6089     0018     Asian Marketing
Mary Contrarey                   6090     0018     Asian Marketing
Lawrence Arabia                  1810     0043     US Marketing
Joey Colorado                    1811     0043     US Marketing
Wright Man                       1819     1811     Conventions 
Gill Finn                        1839     1811     User Events 
Jennifer Scorcey                 1812     0043     US Marketing
;
run;


GOPTIONS DEVICE=java;
 
title1 'Company Org Chart';
footnote1 'Click & Drag to reposition the tree';
footnote2 'Alt+Drag to rotate tree';

%ds2tree(ndata=myorg,
         htmlfile=&name..htm, xmltype=inline,
         nid=empno, nparent=mgrno, ntip=tiptext, nlabel=name,
/*
         codebase=http://sww.sas.com/dvt/codebase/v9.1/,
*/
         codebase=./,
         ARCHIVE=treeview.jar,
         height=500, width=600, cutoff=.5,
         septype=none, center=y, brtitle=SAS TreeView Sample,
         ttag=header 2, tcolor=black,
         tface=%str(Arial,Helvetica,sans-serif),
         ftag=header 4, fcolor=black,
         fface=%str(Arial,Helvetica,sans-serif)
         );
run;