*hand18.txt;

DATA SALES;
 LENGTH ITEM $12;
 INPUT NAME $ MONTH WEEKDAY COMPID STATE $ @25 ITEM   $ & UNITS RETAIL TOTRET;
CARDS;
FOSTER   1  2  153  ID  SYSTEM         2    3100   6200
FOSTER   1  4  333  WY  Z-80           4    26     104
FOSTER   1  5  326  MT  SOFTWARE       1    99     99
FOSTER   1  6  320  NV  CABLE          3    20     60
FOSTER   2  3  333  WY  SOFTWARE       2    99     198
FOSTER   2  4  153  ID  SYSTEM         1    3100   3100
FOSTER   3  2  333  WY  Z-80           3    26     78
FOSTER   3  3  153  ID  MODEM          2    200    400
FOSTER   3  6  320  NV  CABLE          6    20     120
GRANT    1  2  043  OR  DISKS          25   5      125
GRANT    1  2  132  CA  VDT            11   199    2189
GRANT    1  2  134  CA  DISK DRIVE     5    350    1750
GRANT    2  2  132  CA  VDT            1    199    199
GRANT    2  2  134  CA  DISK DRIVE     2    350    700
GRANT    2  4  043  OR  DISKS          5    5      25
GRANT    2  4  330  WA  Z-80           2    26     52
GRANT    2  6  345  CA  MODEM          1    200    200
GRANT    3  3  043  OR  Z-80           2    26     52
GRANT    3  5  132  CA  SYSTEM         4    3100   12400
GRANT    3  5  330  WA  CABLE          2    20     40
;
OPTIONS NODATE LS=65 NONUMBER;
PROC FORMAT;
  VALUE MONFMT 1='JANUARY '
               2='FEBRUARY'
               3='MARCH   ';          *same length;
PROC TABULATE FORMAT=8.;                  *format for cells;
 CLASS NAME MONTH;
 VAR TOTRET;
 WHERE ITEM IN ('SYSTEM','MODEM','DISK DRIVE');
 FORMAT MONTH MONFMT.;
 TABLE NAME ALL,MONTH*TOTRET*SUM ALL*TOTRET*SUM*F=DOLLAR8. /RTS=10;
 LABEL MONTH='MONTH OF SALE';
 KEYLABEL ALL='*TOTAL*'
          SUM='  ';
 TITLE1 'Total Income from the Sales of Systems';
 TITLE2 'Models, and Disk Drives';
run;