options linesize = 72 ;

data patient ;
input patid bdate mmddyy10. sex $ height ;
cards ;
101 05/29/1960 F 64 
102 03/20/1942 M 71 
103 11/10/1952 F 67 
;
run ;

data weight ;
input patid wdate mmddyy10. wgt ;
cards ;
101 01/01/2001 126
101 12/15/2001 117
102 07/22/2001 198
103 02/15/2001 162
103 09/30/2001 158
;
run ;

proc print data = patient ;
run ;

proc print data = weight ;
run ;