Online File

How to use this page

---

Rick Aster: Professional SAS Programming Secrets: Contents

Chapter 6
Program 6a

---

*
  Professional SAS Programming Secrets
  Program 6a
  Final actions
*;

data work.planet (keep=planet sequence mass radius)
    work.planetstats (keep=total_mass smallest_mass largest_mass n);
   length planet $ 16 sequence mass radius
       total_mass smallest_mass largest_mass n 8;
   retain smallest_mass largest_mass;
   infile planets dsd end=last;
   input planet sequence mass radius;
   output work.planet;
   n + 1;
   total_mass + mass;
   if missing(smallest_mass) or mass < smallest_mass then
       smallest_mass = mass;
   if mass > largest_mass then largest_mass = mass;
   if last then output work.planetstats;
run;