libname pc pceng "Macintosh HD:Desktop Folder";

/*
data sasuser.c606_607;
*/

data pc.c606_607;

drop skip position;
infile "Macintosh HD:Courses:607:ch00:606_607_data.txt"
   delimiter="|" missover linesize=400;

attrib
date length=$10. time length=$8.
c606 length=$1.
c607 length=$1.
Program length=$12.
CEGEP length=$1. Bacc length=$1. Masters length=$1. MDCM length=$1. PhD length=$1.
MDField length=$30. MDStage length=$15.
Sex length=$1.
 HtSystem length=$2.
 WtSystem length=$2.
Sex1 length=$1. Sex2 length=$1. Sex3 length=$1. Sex4 length=$1.
Sex5 length=$1. Sex6 length=$1. Sex7 length=$1. Sex8 length=$1.
Hand1 length=$1. Hand2 length=$1. Hand3 length=$1. Hand4 length=$1.
Hand5 length=$1. Hand6 length=$1. Hand7 length=$1. Hand8 length=$1.
PC_Own length=$1. PC_OS length=$7.
PC_Home length=$1. PC_Sch length=$1. ExcelAcc length=$1.
Net_Home length=$1. Net_Sch length=$1.
Word length=$1. WP length=$1. Excel length=$1. PP length=$1. Acrobat length=$1.
SAS length=$1. SPSS length=$1. Stata length=$1. SPlus length=$1. Minitab length=$1. EpiInfo length=$1.
Windows length=$1. MacOS length=$1. Linux length=$1. Unix length=$1. OtherOS length=$1.
Cal_diff length=$1.   Cal_int length=$1.
Statsmed length=$1. Stats1 length=$1. Stats2 length=$1.
HT_seq length=$50.
HdAche_T length=$1. HdAche_M length=$1. MedCondn length=$1. Last5yrs length=$1.
Candy length=$20.
;
input skip date time
c606 c607 Program CEGEP Bacc Masters MDCM PhD MDField MDStage
Sex Age Ht_in Ht_cm HtSystem Wt_lb Wt_Kg WtSystem FamSize BrthRank
Sex1 Sex2 Sex3 Sex4 Sex5 Sex6 Sex7 Sex8
Hand1 Hand2 Hand3 Hand4 Hand5 Hand6 Hand7 Hand8
ExamBest SmallGp
PC_Own PC_OS
PC_Home PC_Sch ExcelAcc Net_Home Net_Sch
Word WP Excel PP Acrobat
SAS SPSS Stata SPlus Minitab EpiInfo
Windows MacOS Linux Unix OtherOS
Cal_diff CalD_Yrs Cal_int CalI_Yrs Statsmed Stats1 Stats2 StatsYrs MathComf
HT_seq
TempO_F TempO_C TempI_F TempI_C HotCold
HdAche_T HdAche_M MedCondn Last5yrs
Candy;

if substr(MDField,1,11) ne "jh (testing";

day=input(substr(date,3,1),1.);
hour = input(substr(time,1,2),2.);
minute =  input(substr(time,4,2),2.);
second=input(substr(time,7,2),2.);

if Ht_in = . then Ht_in = Round(Ht_cm/2.54,0.1);
if Ht_cm = . then Ht_cm = Round(Ht_in*2.54,1.0);

if Wt_lb = . then Wt_lb = Round(Wt_kg*2.2,1.0);
if Wt_kg = . then Wt_kg = Round(Wt_lb/2.2,1.0);

if TempO_F = . then TempO_F = 32 + (9/5)*TempO_C;
if TempO_C = . then TempO_C = (5/9)*(TempO_C - 32);

if TempI_F = . then TempI_F = 32 + (9/5)*TempI_C;
if TempI_C = . then TempI_C = (5/9)*(TempI_C - 32);

h_t_runs=1;
do position=2 to 50;
  if substr(HT_seq,position,1) ^= substr(HT_seq,position-1,1)
     then h_t_runs = h_t_runs+1;
end;

run;