data health;
infile 'a:health.dat';
/* Don't forget to modify the infile statement above to point to the location of your
health.dat file */
input  id 1-4 name $ 6-23 team $ 25-30  stwgt 32-34 endwgt 36-38
sex $ 40  age 42-43 height 45-46;
loss = stwgt - endwgt;
label name = 'Member Name'
      team = 'Team Name'
      stwgt = 'Starting Weight'
      endwgt = 'Ending Weight'
      sex = 'Sex'
      age = 'Age'
      height = 'Height'
      loss = 'Loss';
proc print label;

title "Skinny's Health Club Members";
run;


/*  CHARTS TO BE USED IN CHART PROCEDURES    */

proc chart;
   vbar height;
title 'BAR CHART OF HEIGHTS OF CLUB MEMBERS WITH MIDPOINTS';
title2 'Programmer: Chuck Ellis';
run;

proc chart;
   vbar height/discrete;
title 'BAR CHART OF HEIGHTS OF ALL CLUB MEMBERS';
title2 'Use of the discrete statement with numeric variables';

title3 'Programmer:  Chuck Ellis';
run;

proc chart;
   vbar height/discrete descending;
title 'BAR CHART OF HEIGHT USING DESCENDING';
run;


/* Use of Proc Format statement  */
data wtloss;
  set health;
if height <= 64 then size = 1;
if height > 64 and height <= 70 then size = 2;
if height > 70 then size = 3;
if age > 40 then agroup = 'OLD Group   ';
if age <= 40 then agroup = 'YOUNG Group';
proc format;
   value tallest
      1 = 'SHORT'
      2 = 'AVERAGE'
      3 = 'TALL';
label size = 'Size';
proc chart;
   vbar size/discrete;
   format size tallest.;
title 'GRAPH OF SIZE OF MEMBERS';
title2 'USE OF THE PROC FORMAT STATEMENT';

run;

proc chart;
  vbar size/group=sex subgroup=agroup discrete;
title 'GRAPH OF SIZE GROUPED BY SEX AND SUBGROUPED BY AGE GROUP';
title2 'SIZE WITHOUT THE USE OF THE PROC FORMAT STATEMENT';
run;


proc plot hpercent=50 vpercent=50;
   plot height*stwgt height*endwgt age*stwgt age*endwgt;
title 'PLOTS USING HPERCENT AND VPERCENT';
run;

proc plot;
  plot height*stwgt=sex;
title 'PLOT OF HEIGHT BY STARTING WEIGHT';
title2 'LISTED BY SEX OF M AND F';
run;

/*  USE OF SUMMARY DATA IN A PROGRAM   */
data sums;
input dept $1-9 total 11-13;
label dept = 'Department'
      total = 'Total Employees';
datalines;
Parts     200
Repairs   400
Tools     150
Personnel  25
Computing 130
;
proc chart;
   vbar dept/sumvar=total;
title 'NUMBER OF EMPLOYEES IN VARIOUS DEPARTMENTS';

run;

proc chart;
   vbar dept/sumvar=total descending;
title 'NUMBER OF EMPLOYEES IN VARIOUS DEPARTMENTS IN DESCENDING ORDER';
run;