OPTIONS PAGESIZE=55 LINESIZE=78 NODATE NOCENTER NONUMBER;
***********************************************************;
***                                                     ***;
***  PROJECT:      BE691F                               ***;
***  DATE:         23 OCT 03                            ***;
***  FILE:         HW6p5.sas                            ***;
***  PROGRAMMER:   PENNY PEKOW                          ***;
***  RE:           EXAMPLE PROGRAM                      ***;
***                                                     ***;
***  (example courtesy of Trina Hosmer)                 ***;
*** *************************************************** ***;
***  INPUT FILES:   HW6p3.DAT:  Library data            ***;
***                    AND INSTREAM CLASS DATA          ***;
***                                                     ***;
***  OUTPUT FILES:  NONE STORED                         ***;
***                                                     ***;
***********************************************************;
FOOTNOTE1 'PROGRAM:      HW6p5.sas';

DATA CLASS;
     INPUT NAME $ SEX $ AGE HEIGHT WEIGHT;
CARDS;
ALFRED  M 14 69.0 112.5
ALICE   F 13 56.5  84.0
BARBARA F 13 65.3  98.0
CAROL   F 14 62.8 102.5
HENRY   M 14 63.5 102.5
JAMES   M 12 57.3  83.0
JANE    F 12 59.8  84.5
JANET   F 15 62.5 112.5
JEFFREY M 13 62.5  84.0
JOHN    M 12 59.0 995
JOYCE   F 11 51.3  50.5
JUDY    F 14 64.3  90.0
LOUISE  F 12 56.3  77.0
MARY    F 15 66.5 112.0
PHILIP  M 16 72.0 150.0
ROBERT  M 12 64.8 128.0
RONALD  M 15 67.0 133.0
THOMAS  M 11 57.5  85.0
WILLIAM M 15 66.5 112.0
;
RUN;

DATA BOOKS1;
     INFILE 'C:\temp\HW6p3.txt';
     INPUT NAME $ DAY SUBJECT & $15.;
RUN;

PROC SORT DATA=CLASS;
     BY NAME;
RUN;

PROC SORT DATA=BOOKS1;
     BY NAME;
RUN;

DATA CLASS2(LABEL='CLASS LIST WITH BOOKS USED');
     MERGE CLASS BOOKS1;
     BY NAME;  
     LABEL    NAME='STUDENT NAME'
               AGE='AGE IN YEARS'
            HEIGHT='HEIGHT IN INCHES'
            WEIGHT='WEIGHT IN POUNDS'
               DAY='DAY BOOK CHECKED OUT'
           SUBJECT='SUBJECT OF BORROWED BOOK';
RUN;

PROC PRINT DATA=CLASS2;
RUN;

PROC CONTENTS DATA=CLASS2 POSITION;
RUN;