********************************************************************* 15JUN2000:13:24:56 THIS IS AN EXAMPLE OF A SAS PROGRAM THAT CREATES A SAS FILE FROM THE NHIS 1998 INJVERBT.DAT ASCII FILE NOTE: THE FORMAT DEFINITIONS GIVEN BELOW WILL RESULT IN PROCEDURE OUTPUT SHOWING VALUES THAT HAVE BEEN GROUPED AS THEY ARE SHOWN IN THE FILE LAYOUT DOCUMENTATION THIS IS STORED IN INJVERBT.SAS *********************************************************************; * USER NOTE: PLACE NEXT TWO STATEMENTS IN SUBSEQUENT PROGRAMS; LIBNAME NHIS 'C:\NHIS1998\'; LIBNAME LIBRARY 'C:\NHIS1998\'; * DEFINE VARIABLE VALUES FOR REPORTS; PROC FORMAT LIBRARY=LIBRARY; VALUE IVP001X 75 = "Verbatim Injury Episode" ; VALUE IVP002X 1998 = "1998" ; VALUE $IVP006X "1" = "First injury episode" "2" = "Second injury episode" "3" = "Third injury episode" "4" = "Fourth injury episode" ; DATA NHIS.INJVERBT; * CREATE A SAS DATA SET STORED IN DIR 'C:\NHIS1998\'; INFILE 'C:\NHIS1998\INJVERBT.DAT' MISSOVER TRUNCOVER LRECL=677; * DEFINE LENGTH OF NUMERIC VARIABLES; LENGTH RECTYPE 3 SRVY_YR 4 ; * INPUT ALL VARIABLES; INPUT RECTYPE 1 - 2 SRVY_YR 3 - 6 HHX $ 7 - 12 FMX $ 13 - 14 PX $ 15 - 16 INJEPNO $ 17 - 17 IJBODY1 $ 18 - 52 IJBODY2 $ 53 - 87 IJBODY3 $ 88 - 122 IJBODY4 $ 123 - 157 IJKIND1 $ 158 - 202 IJKIND2 $ 203 - 247 IJKIND3 $ 248 - 292 IJKIND4 $ 293 - 337 IJHOW1 $ 338 - 422 IJHOW2 $ 423 - 507 IJHOW3 $ 508 - 592 IJHOW4 $ 593 - 677; * DEFINE VARIABLE LABELS; LABEL RECTYPE ="Record Type" SRVY_YR ="Survey Year" HHX ="Household Serial Number" FMX ="Family Serial Number" PX ="Person Number" INJEPNO ="Injury episode number" IJBODY1 ="Body part injured" IJBODY2 ="Body part injured" IJBODY3 ="Body part injured" IJBODY4 ="Body part injured" IJKIND1 ="Kind of injury" IJKIND2 ="Kind of injury" IJKIND3 ="Kind of injury" IJKIND4 ="Kind of injury" IJHOW1 ="Description of injury" IJHOW2 ="Description of injury" IJHOW3 ="Description of injury" IJHOW4 ="Description of injury" ; * ASSOCIATE VARIABLES WITH FORMAT VALUES; FORMAT RECTYPE IVP001X. SRVY_YR IVP002X. INJEPNO $IVP006X.; PROC CONTENTS DATA=NHIS.INJVERBT; PROC FREQ DATA=NHIS.INJVERBT; TITLE1 'FREQUENCY REPORT FOR 1998 NHIS INJVERBT FILE'; TITLE2 '(UNWEIGHTED)'; TABLES RECTYPE/LIST MISSING; * USER NOTE: TO SEE UNFORMATTED VALUES IN PROCEDURES, ADD THE STATEMENT: FORMAT _ALL_; RUN;