/* This program is at 
   http://www4.stat.ncsu.edu/~dickey/beach.sas
*/
Data beach; 
Title "2009 post trip inventory";
length category $ 18 ; drop n i; 
input category $ n; put n; 
  do i=1 to n; 
  input item $ 1-29  Need 31-35 On_Hand 36-40;
  To_buy=max(0,Need-On_hand); 
output; end; 
*23456789 123456789 123456789 123456789 123456789;
cards; 
Grill_Tools       11
Burger Flipper lg.             2     2
Burger Flipper sm.             1     1
Grill Fork                     1     0
Potholders                     1     0
Oven Mitts                     3     3
Spray Bottles                  1     3
Tongs (Charcoal)               1     1
Charcoal (lbs.)               50     0
Lighter Fluid (cans)           2     2
Butane Lighter                 1     2
Matches (boxes)                2     3
Food_storage_&_Prep   6 
Plastic Containers             4     4
Metal Bowl                     1     1
Plastic Bowl                   3     3
Measuring Cup                  1     1
Tin Foil Pans **               4     1
Coffee Filters (box)           1     1
Food_Storage_&_Packing 5
Aluminum Foil medium           2     5
Aluminum Foil heavy lg.        2     2
Saran Wrap (rolls)             4     4
Ziploc Bags (boxes)            2     2
30 gal. trash Bags             20    80
Serving_Utensils       3
Plastic Serving Spoons         3     10
Plastic Spatulas               3     6
Ice Cream Spoon                1     1
Flatware               4
Plastic Forks                  250   75
Steak Knives                   6     6
Plastic Knives                 50    20
Plastic Spoons                 250   250
Dinnerware             4
Coffee Cups                    100   100
12 oz. Cold Drink Cups          60   120
6 oz. Cold Drink Cups          60    400
Plates (plasic or foam)        300    60
Tableware               6
Paper Napkins                  800   750
Paper rolls(3 ft. wide)        1     3
Can Opener                     4     4
Bottle Opener                  2     2
Cheese Grater                  1     1
Salt & Pepper sets             2     3
Cookware               3
Coffee Pot                     1     1
Pot for Tea (?)                1     1
Coolers                        6     3
Cleaning_Tools         6
Kitchen Towels                 2     2
Dishcloths (several)           .     .
Dish Soap (bottle)             1     0.5
Dish Sponges                   4     6
Scouring Pads (boxes)          1     1.5
Paper Towel Rolls              4     8
Miscellaneous           5
Floodlight & Chord (?)         1     1
Scissors                       3     7
Masking Tape Rolls             2     2
Sealing Tape Rolls             2     2
Frisbees (?)                   2     2
To_buy_in_RALEIGH       1
-------------------            .     .
Breakfast               9
Sugar box of packets           1     1
Artifical Sweetnr boxs         2     4
Ground Coffee (lg. cans)       1     0
Creamer (lbs.)                 1     0
Regular tea (box)              1     0
Herbal tea (box)               1     1
Muffins                        60    0
Danish Pastry                  48    0
Box of small Donuts            1     0
Friday_cookout     16
Hot dog chilli (cans)          4     0
Soft drinks (1/3 diet)12-pks.  16    0
Beer (12 pks.)                 14    0
Bottled Water                  196   0
Hamburger Buns                 200   0
Hot Dog Buns                   100   0
Lg. Sweet Onions (lbs.)        5     0
Potato Chips (lbs.)            6     0
Pretzels (bags)                2     0
Squeeze Bottle Mustard         2     0
Squeeze Bottle Ketchup         3     0
Squeeze Bottle Mayonaise       2     0
Sweet Pickles (pints)          2     0
Sweet Relish (pints)           2     0
Cucumber Chips (pints)         2     0
Capri Sun (orange juice packs) 40    0
; 
proc print uniform noobs; run; 
data shoppinglist; Set beach; 
To_buy=max(need-on_hand,0); 
proc print; where To_buy>0;
run;