OPTIONS LINESIZE=65;
TITLE1 'Horizontal Bar Chart exmaple';

DATA CHARDAT2;
   LENGTH SEX $1;
INPUT DEPT $ SEX $ WT P82 P83 P84;
   YEAR=1982; SALES=P82; OUTPUT;
   YEAR=1983; SALES=P83; OUTPUT;
   YEAR=1984; SALES=P84; OUTPUT;
CARDS;
PARTS   F  17  3500  2500   800
PARTS   M  21  3651  5391  4500
PARTS   M  21  2644  3500  3000
TOOLS   F  12  5672  6100  7400
TOOLS   M  45  1253  4698  9345
REPAIRS F   2  9050  4698  9345
REPAIRS M  34     .     .     .
;
RUN;

DATA CHARDATA;
   RETAIN CC 'ABCDE'; DROP CC;
   LENGTH C $1 ;
   DO I=1 TO 100;
      X=NORMAL(0);
      C=SUBSTR(CC,1+MOD(I,5),1);
      OUTPUT;
   END;
RUN;

PROC CHART DATA=CHARDATA;
   HBAR C / TYPE=CFREQ NOSTATS ;
   TITLE2 'GENERATED DATA - NORMAL(0)';
RUN;

PROC CHART DATA=CHARDATA;
   HBAR X / SUBGROUP = C NOSTATS;
   TITLE2 'GENERATED DATA - NORMAL(0)';
RUN;

PROC CHART DATA=CHARDAT2;
   HBAR DEPT / TYPE=MEAN SUMVAR=SALES NOSTATS ;
   TITLE2 'DEPARTMENTAL SALES';
   TITLE3 'AVERAGE SALES';
RUN;

PROC CHART DATA=CHARDAT2;
   HBAR DEPT / SUBGROUP=SEX FREQ=WT NOSTATS ;
   TITLE2 'DEPARTMENTAL SALES';
   TITLE3 'AVERAGE SALES';
RUN;

PROC CHART DATA=CHARDAT2;
   HBAR DEPT / GROUP=YEAR SUMVAR=SALES NOSTATS ;
   TITLE2 'DEPARTMENTAL SALES';
   TITLE3 'AVERAGE SALES';
RUN;

PROC CHART DATA=CHARDAT2;
   HBAR DEPT / GROUP=YEAR SUBGROUP=SEX FREQ=WT NOSTATS ;
   TITLE2 'DEPARTMENTAL SALES';
   TITLE3 'AVERAGE SALES';
RUN;