libname spssdata dbstata 'c:\spssdata' ver=64; options ps=58 ls=70 nocenter pageno=1 compress=yes obs=max; * each card for each dataset is read into a separate SAS dataset, then all are merged by the nindb number; *The nindb number is each person's unique identifying number; *All data is labeled by field and card number. For example, field 27 on card 1202 would be f27_1202. *Some fields have multiple parts. In these cases, each part is consecutively labeled a, b, and so on after the field number, in the order given in the codebook (ex. f27a1202); *All dates, or time amounts, including days, weeks, months, and years, are divided into their separate time elements within a field. For example, if field 6 gives month, day, and year, the written input is f06a for month, f06b for day, and f06c for year; *Virology and serology: 5 ascii datasets, 19 CARDS;; * THESE DATA ARE NOT MATCH-MERGED; * THERE IS ONE DATA SET FOR EACH CARD FOR EACH STUDY; *Input serum specimens, card number 0806; *NOTE: A card is present for each serum specimen with columns 1-80 as below. Almost all cards have multiple specimens; *NOTE: In the codebook, some fields may be blank if not punched. These fields are indicated by the note 'may be blank' after the variable number; data spssdata.ser0806; *NOTE: A card is present for each serum specimen with columns 1-80 as below. Almost all cards have multiple specimens; infile 'C:\Documents and Settings\john\Desktop\cpp cd 1 ASCII data & original fiche documentation PDF\national archives cpp ASCII\card0806.asc' lrecl=81; * uses column input; input cardnumb 1 @; * @ allows the conditional input; if cardnumb=0; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 card0806 1-4 rev0806 5 id0806 6-14 /*same as NINDB number*/ f05_0806 $ 15-28 /*Patients last name -- may be blank*/ f06_0806 $ 29 /*First letter of patients first name -- may be blank*/ f07_0806 30-31 f08a0806 32-33 /*Month*/ f08b0806 34-35 /*Day*/ f08c0806 36-37 /*Year*/ f09a0806 38-39 /*Month*/ f09b0806 40-41 /*Day*/ f09c0806 42-43 /*Year*/ f10_0806 44 f11_0806 45-46 f12_0806 47-51 /*Blank*/ f13_0806 $ 52-53 f14_0806 54-56 /*Shipment number -- may be blank*/ f15a0806 57-58 /*Month*/ f15b0806 59-60 /*Day*/ f15c0806 61-62 /*Year*/ f16_0806 63 /*Number of vials -- may be blank*/ f17a0806 64-65 f17b0806 66 f17c0806 67 f18a0806 68-69 /*All of field 18 may be blank or all 0's if there was not a vial II */ f18b0806 70 f18c0806 71 f19a0806 72-73 /*All of field 19 may be blank or all 0's if there was not a vial III */ f19b0806 74 f19c0806 75 f20a0806 76-77 /*All of field 20 may be blank or all 0's if there was not a vial IV */ f20b0806 78 f20c0806 79 f21_0806 80 /* A 0 or blank indicates it was not applicable*/ ; run; *NOTE: 2 cards are present for card 1801 (first and last specimens) for every subject case and every matched control case with cols. 1-68 ; data spssdata.ser1801; infile 'C:\Documents and Settings\john\Desktop\cpp cd 1 ASCII data & original fiche documentation PDF\national archives cpp ASCII\card1801.asc\' lrecl=81; * uses column input; input cardnumb 1 @; * @ allows the conditional input; if cardnumb=1; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 card1801 1-4 subj1801 5 /*NOTE: unlike all other cards, column 5 is not the revision number on this card but is the identification code for the case or control, entered as either 0 for control case or 1 for subject case*/ id1801 6-14 /*same as NINDB number*/ f05_1801 $ 15-16 f06a1801 17-18 /*Month*/ f06b1801 19-20 /*Day*/ f06c1801 21-22 /*Year*/ f07_1801 23-25 /*Blank indicates test was not done*/ f08_1801 26-28 /*Blank indicates test was not done*/ f09_1801 29-31 /*Blank indicates test was not done*/ f10_1801 32-34 /*Blank indicates test was not done*/ f11_1801 35-37 /*Blank indicates test was not done*/ f12_1801 38-40 /*Blank indicates test was not done*/ f13_1801 41-43 /*Blank indicates test was not done*/ f14_1801 44-47 f15_1801 48-51 f16_1801 52-55 f17_1801 56-59 f18_1801 60-68 /*NINDB# of matching control or subject case*/ f19_1801 80 /*Congenital Heart cases only -- may be blank*/; run; *Input form 0893, cards 0-4 i.e. 08930-08934 *NOTE: unlike other data forms, the form number is 4 digits instead of 3; *NOTE: unlike other forms, the card number is in column 5 instead of column 1. Also, there is not a revision number; *Although cards 0 and 1 have the exact same fields, with the only difference being who the reviewer was (which is also the card number -- for example, card 0 is reviewed by Dr. White and card 1 by Dr. Sever's staff), these cards were divided into 2 data sets, ser08930 and ser08931 for simplicity; data spssdata.ser08930; *NOTE: more then one card may be present with columns 1-42 below. Card sequence number is in column 19. ; infile 'C:\Documents and Settings\john\Desktop\cpp cd 1 ASCII data & original fiche documentation PDF\national archives cpp ASCII\crd08932.asc' lrecl=81; * uses column input; input cardnumb 5 @; * @ allows the conditional input; if cardnumb=0; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 form8930 1-4 card8930 5 id8930 6-14 /*same as NINDB number*/ f05_8930 16-17 /*Blank if unknown*/ f06_8930 18 /*Blank if unknown*/ f07_8930 19 /*Card sequence number*/ f08a8930 20-21 /*Month*/ /*99 if month, day or year unknown*/ f08b8930 22-23 /*Day*/ f08c8930 24-25 /*Year*/ f09a8930 26-27 /*Month*/ /*99 if month or year unknown*/ f09b8930 28-29 /*Year*/ f10_8930 30 f11_8930 31-32 f12a8930 33-34 /*Month*/ /*99 if month, day or year unknown*/ f12b8930 35-36 /*Day*/ f12c8930 37-38 /*Year*/ f13_8930 39-42 f14_8930 43; data spssdata.ser08931; *NOTE: more then one card may be present with columns 1-42 below. Card sequence number is in column 19. ; infile 'C:\Documents and Settings\john\Desktop\cpp cd 1 ASCII data & original fiche documentation PDF\national archives cpp ASCII\crd08932.asc' lrecl=81; * uses column input; input cardnumb 5 @; * @ allows the conditional input; if cardnumb=1; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 form8931 1-4 card8931 5 id8931 6-14 /*same as NINDB number*/ f05_8931 16-17 /*Blank if unknown*/ f06_8931 18 /*Blank if unknown*/ f07_8931 19 /*Card sequence number*/ f08a8931 20-21 /*Month*/ /*99 if month, day or year unknown*/ f08b8931 22-23 /*Day*/ f08c8931 24-25 /*Year*/ f09a8931 26-27 /*Month*/ /*99 if month or year unknown*/ f09b8931 28-29 /*Year*/ f10_8931 30 f11_8931 31-32 f12a8931 33-34 /*Month*/ /*99 if month, day or year unknown*/ f12b8931 35-36 /*Day*/ f12c8931 37-38 /*Year*/ f13_8931 39-42 f14_8931 43; data spssdata.ser08932; *NOTE: more then one card may be present with columns 1-42 below (per infection). Card sequence number is in column 19. ; infile 'C:\Documents and Settings\john\Desktop\cpp cd 1 ASCII data & original fiche documentation PDF\national archives cpp ASCII\crd08932.asc ' lrecl=81; * uses column input; input cardnumb 5 @; * @ allows the conditional input; if cardnumb=2; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 form8932 1-4 card8932 5 id8932 6-14 /*same as NINDB number*/ f04_8932 15 f05_8932 16 f06_8932 17 f07_8932 18 f08_8932 19 /*Card sequence number, as given for each infection*/ f09a8932 20-21 /*Month*/ /*99 indicates month, day or year unknown*/ f09b8932 22-23 /*Day*/ f09c8932 24-25 /*Year*/ f10a8932 26-27 /*Month*/ f10b8932 28-29 /*Year*/ f11_8932 30 f12_8932 31-32 f13_8932 33-38 /*Blank*/ f14_8932 39-42 f15_8932 43 f16_8932 44 f17a8932 45 f17b8932 46 f17c8932 47; run; data spssdata.ser08933; *NOTE: more then one card may be present with columns 1-42 below (per illness). Card sequence number is in column 19. ; infile 'C:\Documents and Settings\john\Desktop\cpp cd 1 ASCII data & original fiche documentation PDF\national archives cpp ASCII\crd08932.asc' lrecl=81; * uses column input; input cardnumb 5 @; * @ allows the conditional input; if cardnumb=3; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 form8933 1-4 card8933 5 id8933 6-14 /*same as NINDB number*/ f04_8933 15 f05_8933 16 f06_8933 17 f07_8933 18 f08_8933 19 /*Card sequence number, as given for each infection*/ f09a8933 20-21 /*Month*/ /*99 indicates month, day or year unknown*/ f09b8933 22-23 /*Day*/ f09c8933 24-25 /*Year*/ f10a8933 26-27 /*Month*/ f10b8933 28-29 /*Year*/ f11_8933 30 f12_8933 31-32 f13_8933 33-38 /*Blank*/ f14_8933 39-42 f15_8933 43; run; data spssdata.ser08934; *NOTE: more then one card may be present with columns 1-42 below (per illness). Card sequence number is in column 19. ; infile 'C:\Documents and Settings\john\Desktop\cpp cd 1 ASCII data & original fiche documentation PDF\national archives cpp ASCII\crd08932.asc' lrecl=81; * uses column input; input cardnumb 5 @; * @ allows the conditional input; if cardnumb=4; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 form8934 1-4 card8934 5 id8934 6-14 /*same as NINDB number*/ f04_8934 15 f05_8934 16-17 f06_8934 18 f07_8934 19 /*Card sequence number, as given for each infection*/ f08a8934 20-21 /*Month*/ /*99 indicates month, day or year unknown*/ f08b8934 22-23 /*Day*/ f08c8934 24-25 /*Year*/ f09a8934 26-27 /*Month*/ f09b8934 28-29 /*Year*/ f10_8934 30 f11_8934 31-32 f12_8934 33-38 /*Blank*/ f13_8934 39-42 f14_8934 43; run; *Input cardforms 18131; *NOTE: there are five different cardforms of 18131. All five have the same card, form and revision numbers. The only differences are field 5, which is the request number: 002, 004, 005, 006, or 007 and field 6 which is the individual study number. *Each unique card, request, and study number is read in separately; *Request numbers 002 and 004 exist for Pennsylvania and Tennessee only; *inputs cardform 18131, request number 002 and 004, study number 70750; *field names will be f00_1750, -- the 1 stands for card 1 and the 750 stands for the last three digits of the unique study number 70750; *There is only 1 card for study 70750; data spssdata.ser750; infile 'C:\Documents and Settings\john\Desktop\cpp cd 1 ASCII data & original fiche documentation PDF\national archives cpp ASCII\card8131.asc' lrecl=81; * uses column input; input card 1 reqnum 15-17 studynum 18-22 @; * @ allows the conditional input; if card=1 and reqnum in (002,004) and studynum=70750; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 form1750 1-4 rev1750 5 id1750 6-14 /*same as NINDB number*/ req1750 15-17 stud1750 18-22 f07a1750 23-24 /*Month*/ f07b1750 25-26 /*Day*/ f07c1750 27-28 /*Year*/ f08_1750 $ 29-30 f09_1750 31-33 f10_1750 34-36 f11_1750 37-39 f12_1750 40-42 f13_1750 43-45 /*Tenn. only -- Blank if not Tenn. */; run; *inputs cardform 18131, request numbers 005 and 006, study number 70760; *field names will be f00_1760 -- the 1 stands for card 1 and the 760 stands for the last three digits of the unique study number 70760, card 2 will be f00_2760 and card 3 f00_3760; *NOTE: Two cards are present (first and last specimens) for every subject and its two matched control cases with columns 1-50 below; data spssdata.ser760_1; infile 'C:\Documents and Settings\john\Desktop\cpp cd 1 ASCII data & original fiche documentation PDF\national archives cpp ASCII\card8131.asc' lrecl=81; * uses column input; input card 1 reqnum 15-17 studynum 18-22@; * @ allows the conditional input; if card=1 and reqnum in(005,006) and studynum=70760; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 form1760 1-4 rev1760 5 id1760 6-14 /*same as NINDB number*/ req1760 15-17 stud1760 18-22 f07a1760 23-24 /*Month*/ f07b1760 25-26 /*Year*/ f08_1760 $ 27-28 f09_1760 29 f10_1760 30-32 f11_1760 33-35 f12_1760 36-38 f13_1760 39-41 f14_1760 42-44 f15_1760 45-47 f16_1760 48-50; run; *Two cards are present (first and last specimens) for every subject case and its two matched control cases with columns 1-77 as above; data spssdata.ser760_2; *Card 2 of 3 cards for study number 70760 and request numbers 005 and 006; infile 'C:\Documents and Settings\john\Desktop\cpp cd 1 ASCII data & original fiche documentation PDF\national archives cpp ASCII\card8131.asc' lrecl=81; * uses column input; input card 1 reqnum 15-17 studynum 18-22@; * @ allows the conditional input; if card=2 and reqnum in (005,006) and studynum=70760; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 form2760 1-4 rev2760 5 id2760 6-14 /*same as NINDB number*/ req2760 15-17 stud2760 18-22 f02a2760 23-24 /*Month*/ f02b2760 25-26 /*Year*/ f02c2760 $ 27-28 f02d2760 29 f03_2760 30-32 f04_2760 33-35 f05_2760 36-38 f06_2760 39-41 f07_2760 42-44 f08_2760 45-47 f09_2760 48-50 f10_2760 51-53 f11_2760 54-56 f12_2760 57-59 /*request 005 only, otherwise blank*/ f13_2760 60-62 /*request 005 only, otherwise blank*/ f14_2760 63-65 f15_2760 66-68 f16_2760 69-71 f17_2760 72-74 /*request 006 only, otherwise blank*/ f18_2760 75-77 /*request 006 only, otherwise blank*/; run; *Two cards are present (first and last specimens) for every subject case and its two matched control cases with columns 1-65 as above.; data spssdata.ser760_3; *Card 3 of 3 cards for study number 70760 and request numbers 005 and 006; infile 'C:\Documents and Settings\john\Desktop\cpp cd 1 ASCII data & original fiche documentation PDF\national archives cpp ASCII\card8131.asc ' lrecl=81; * uses column input; input card 1 reqnum 15-17 studynum 18-22@; * @ allows the conditional input; if card=3 and reqnum in(005,006) and studynum=70760; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 form3760 1-4 rev3760 5 id3760 6-14 /*same as NINDB number*/ req3760 15-17 stud3760 18-22 f02a3760 23-24 /*Month*/ f02b3760 25-26 /*Year*/ f02c3760 $ 27-28 f02d3760 29 f03_3760 30-32 f04_3760 33-35 f05_3760 36-38 f06_3760 39-41 f07_3760 42-44 f08_3760 45-47 f09_3760 48-50 f10_3760 51-53 f11_3760 54-56 f12_3760 57-59 /*request 005 only, otherwise blank*/ f13_3760 60-62 /*REQUEST 006 ONLY, OTHERWISE BLANK -- NOT SURE ABOUT THIS!!!! */ f14_3760 63-65; run; *inputs cardform 18131, request number 006, study number 71060; *field names will be f00_1060 -- the 1 stands for card 1 and the 060 stands for the last three digits of the unique study number 71060, card 2 will be f00_2060; *NOTE: Two cards are present (first and last specimens) for every subject and its two matched control cases with columns 1-60 below; data spssdata.ser060_1; *Card 1 of 2 cards; infile 'C:\Documents and Settings\john\Desktop\cpp cd 1 ASCII data & original fiche documentation PDF\national archives cpp ASCII\card8131.asc' lrecl=81; * uses column input; input card 1 reqnum 15-17 studynum 18-22 @; * @ allows the conditional input; if card=1 and reqnum=006 and studynum=71060; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 form1060 1-4 rev1060 5 id1060 6-14 /*same as NINDB number*/ req1060 15-17 stud1060 18-22 f07a1060 23-24 /*Month*/ f07b1060 25-26 /*Day*/ f07c1060 27-28 /*Year*/ f08_1060 $ 29-30 f09_1060 31-33 f10_1060 34-36 f11_1060 37-39 f12_1060 40-42 f13_1060 43-45 f14_1060 46-48 f15_1060 49-51 f16_1060 52-54 f17_1060 55-57 f18_1060 58-60; run; *NOTE: Two cards are present (first and last specimens) for every subject and its two matched control cases with columns 1-51 below; data spssdata.ser060_2; *Card 2 of 2 cards; infile 'C:\Documents and Settings\john\Desktop\cpp cd 1 ASCII data & original fiche documentation PDF\national archives cpp ASCII\card8131.asc' lrecl=81; * uses column input; input card 1 reqnum 15-17 studynum 18-22 @; * @ allows the conditional input; if card=2 and reqnum=006 and studynum=71060; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 form2060 1-4 rev2060 5 id2060 6-14 /*same as NINDB number*/ req2060 15-17 stud2060 18-22 f02a2060 23-24 /*Month*/ f02b2060 25-26 /*Day*/ f02c2060 27-28 /*Year*/ f02d2060 $ 29-30 f03_2060 31-33 f04_2060 34-36 f05_2060 37-39 f06_2060 40-42 f07_2060 43-45 f08_2060 46-48 f09_2060 49-51; run; *inputs cardform 18131, request number 007, study number 71130; *field names will be f00_1130 -- the 1 stands for card 1 and the 130 stands for the last three digits of the unique study number 71130, card 2 will be f00_2130 and card 3, f00_3130; *NOTE: Two cards are present (first and last specimens) for every subject and its two matched control cases with columns 1-66 below; data spssdata.ser130_1; *Card 1 of 3 cards; infile 'C:\Documents and Settings\john\Desktop\cpp cd 1 ASCII data & original fiche documentation PDF\national archives cpp ASCII\CARD8131.asc' lrecl=81; * uses column input; input card 1 reqnum 15-17 studynum 18-22 @; * @ allows the conditional input; if card=1 and reqnum=007 and studynum=71130; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 form1130 1-4 rev1130 5 id1130 6-14 /*same as NINDB number*/ req1130 15-17 stud1130 18-22 f07a1130 23-24 /*Month*/ f07b1130 25-26 /*Day*/ f07c1130 27-28 /*Year*/ f08_1130 $ 29-30 f09_1130 31-33 f10_1130 34-36 f11_1130 37-39 f12_1130 40-42 f13_1130 43-45 f14_1130 46-48 f15_1130 49-51 f16_1130 52-54 f17_1130 55-57 f18_1130 58-60 f19_1130 61-63 f20_1130 64-66; run; *NOTE: Two cards are present (first and last specimens) for every subject and its two matched control cases with columns 1-72 below; data spssdata.ser130_2; *Card 2 of 3 cards; infile 'C:\Documents and Settings\john\Desktop\cpp cd 1 ASCII data & original fiche documentation PDF\national archives cpp ASCII\CARD8131.asc' lrecl=81; * uses column input; input card 1 reqnum 15-17 studynum 18-22 @; * @ allows the conditional input; if card=2 and reqnum=007 and studynum=71130; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 form2130 1-4 rev2130 5 id2130 6-14 /*same as NINDB number*/ req2130 15-17 stud2130 18-22 f02a2130 23-24 /*Month*/ f02b2130 25-26 /*Day*/ f02c2130 27-28 /*Year*/ f02d2130 $ 29-30 f03_2130 31-33 f04_2130 34-36 f05_2130 37-39 f06_2130 40-42 f07_2130 43-45 f08_2130 46-48 f09_2130 49-51 f10_2130 52-54 f11_2130 55-57 f12_2130 58-60 f13_2130 61-63 f14_2130 64-66 f15_2130 67-69 f16_2130 70-72; run; *NOTE: Two cards are present (first and last specimens) for every subject and its two matched control cases with columns 1-63 below; data spssdata.ser130_3; *Card 3 of 3 cards; infile 'C:\Documents and Settings\john\Desktop\cpp cd 1 ASCII data & original fiche documentation PDF\national archives cpp ASCII\CARD8131.asc' lrecl=81; * uses column input; input card 1 reqnum 15-17 studynum 18-22 @; * @ allows the conditional input; if card=3 and reqnum=007 and studynum=71130; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 form3130 1-4 rev3130 5 id3130 6-14 /*same as NINDB number*/ req3130 15-17 stud3130 18-22 f02a3130 23-24 /*Month*/ f02b3130 25-26 /*Day*/ f02c3130 27-28 /*Year*/ f02d3130 $ 29-30 f03_3130 31-33 f04_3130 34-36 f05_3130 37-39 f06_3130 40-42 f07_3130 43-45 f08_3130 46-48 f09_3130 49-51 f10_3130 52-54 f11_3130 55-57 f12_3130 58-60 f13_3130 61-63; run; *inputs cardform 18132, request number 001, study number 70560; *field names will be f00_1560 -- the 1 stands for card 1 and the 560 stands for the last three digits of the unique study number 70560; data spssdata.ser560; *Card 1 of 1 cards; infile 'C:\Documents and Settings\john\Desktop\cpp cd 1 ASCII data & original fiche documentation PDF\national archives cpp ASCII\card8132.asc ' lrecl=81; * uses column input; input card 1 reqnum 15-17 studynum 18-22 @; * @ allows the conditional input; if card=1 and reqnum=001 and studynum=70560; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 form1560 1-4 rev1560 5 id1560 6-14 /*same as NINDB number*/ req1560 15-17 stud1560 18-22 f07a1560 $ 23-24 /*Month*/ /*Line 10949, column 24 is written as a D so was created as text*/ f07b1560 25-26 /*Year*/ f08_1560 $ 27-28 f09_1560 29 f10_1560 30-31 f11_1560 32-35 f12_1560 36 f13_1560 37; run; *inputs cardform 18132, request number 002, study number 70810; *field names will be f00_1810 -- the 1 stands for card 1 and the 560 stands for the last three digits of the unique study number 70810; *MORE THAN ONE CARD MAY BE PRESENT WITH COLUMNS 1-42 BELOW. CARD SEQUENCE NUMBER IS IN COLUMN 19 -- DO NOT UNDERSTAND THIS!!!!! ; *NOTE: There is not a field 12 in this dataset; data spssdata.ser810; *Card 1 of 1 cards; infile 'C:\Documents and Settings\john\Desktop\cpp cd 1 ASCII data & original fiche documentation PDF\national archives cpp ASCII\card8132.asc' lrecl=81; * uses column input; input card 1 reqnum 15-17 studynum 18-22 @; * @ allows the conditional input; if card=1 and reqnum=002 and studynum=70810; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 form1810 1-4 rev1810 5 id1810 6-14 /*same as NINDB number*/ req1810 15-17 stud1810 18-22 f07a1810 23-24 /*Month*/ f07b1810 25-26 /*Day*/ f07c1810 27-28 /*Year*/ f08_1810 $ 29-30 f09_1810 31-34 f10_1810 35 f11_1810 36 f13_1810 39-42 f14_1810 43; run; *inputs cardform 18133, request number 001, study number 71150; *field names will be f00_1150 -- the 1 stands for card 1 and the 150 stands for the last three digits of the unique study number 71150; data spssdata.ser150; *Card 1 of 1 cards; infile 'C:\Documents and Settings\john\Desktop\cpp cd 1 ASCII data & original fiche documentation PDF\national archives cpp ASCII\card8133.asc' lrecl=81; * uses column input; input card 1 reqnum 15-17 studynum 18-22 @; * @ allows the conditional input; if card=1 and reqnum=001 and studynum=71150; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 form1150 1-4 rev1150 5 id1150 6-14 /*same as NINDB number*/ req1150 15-17 stud1150 18-22 f07_1150 23 f08_1150 24-27 f09_1150 28-31 f10_1150 32-35; run; /* data temp; merge spssdata.ser1801 spssdata.ser08930 spssdata.ser08931 spssdata.ser08932 spssdata.ser08933 spssdata.ser08934 spssdata.ser750 spssdata.ser760_1 spssdata.ser760_2 spssdata.ser760_3 spssdata.ser060_1 spssdata.ser060_2 spssdata.ser130_1 spssdata.ser130_2 spssdata.ser130_3 spssdata.ser560 spssdata.ser810 spssdata.ser150; by nindb; run; */