Online File

How to use this page

---

Rick Aster: Professional SAS Programming Shortcuts: Contents

Chapter 13
Program
Reading hierarchical data to create relational data

---

DATA
    TAX.FAMILY (KEEP=ORDER FAMILY)
    TAX.GENUS (KEEP=FAMILY GENUS GENUSC)
    TAX.SPECIES (KEEP=GENUS SPECIES SPECIESC)
    ;
   RETAIN;
   LENGTH ORDER FAMILY $ 24
       GENUS GENUSC SPECIES SPECIESC $ 32;
   INFILE MAGNOLIO TRUNCOVER;
   INPUT @1 RECORDTYPE $CHAR1. @;
   SELECT (RECORDTYPE);
      WHEN ('O') DO;
         INPUT @3 ORDER $CHAR24.;
         FAMILY = '';
         GENUS = ''; GENUSC = '';
         SPECIES = ''; SPECIESC = '';
         END;
      WHEN ('F') DO;
         INPUT @3 FAMILY $CHAR24.;
         GENUS = ''; GENUSC = '';
         SPECIES = ''; SPECIESC = '';
         OUTPUT TAX.FAMILY;
         END;
      WHEN ('G') DO;
         INPUT @3 GENUS $CHAR24. @28 GENUSC $CHAR24.;
         SPECIES = ''; SPECIESC = '';
         OUTPUT TAX.GENUS;
         END;
      WHEN ('S') DO;
         INPUT @3 SPECIES $CHAR24. @28 SPECIESC $CHAR24.;
         OUTPUT TAX.SPECIES;
         END;
      OTHERWISE ;
      END;
RUN;