options ps=58 ls=70 nocenter pageno=1 compress=yes obs=max; *There is 1 socio7yr form with only 1 card; *There is not a card, form, or revision number. Instead, the first nine numbers are the NINDB numbers; *The tape number is 024704. The field names will be f00_4704, taking the last four digits of the tape number; *Field numbers are not marked on the form. They are named below in terms of the question order on the forms; *Input socio7yr; data socio7yr; *Card 1 of 1 socio7yr cards; infile 'c:\documents and settings\john\desktop\cppcd\NICHD ASCII data\socio7yr' lrecl=81; * uses column input; input nindb 1-9 site 1-2 familyno 3-7 pregnancy 8 plurality 9 person 8-9 sitefam 1-7 id0844 6-14 /*same as NINDB number*/ f02_4704 10 f03_4704 11 f04_4704 12 f05_4704 13-14 f06_4704 15-16 f07_4704 17-18 f08_4704 19-20 f09_4704 21 f10_4704 22-23 f11a4704 24-25 /*Field 11 is date of birth of child. Divided field up but don't know what form date is in*/ f11b4704 26-27 f11c4704 28-29 f12_4704 30-31 f13_4704 32-33 f14_4704 34-35 f15_4704 36-37 f16_4704 38-39; run; filename socio7yr 'c:\Documents and Settings\john\Desktop\socio7yr.xpt'; proc cport data=socio7yr file=socio7yr nocompress; run;