libname spssdata dbspssx 'c:\spssdata'; options ps=58 ls=70 nocenter pageno=1 compress=yes obs=max; *ED -- school follow-up form consists of 2 cards; *Input ed1, card 1; data ed1_1; *Card 1 of 2 ed cards; infile 'C:\Documents and Settings\john\Desktop\cpp cd 1 ASCII data & original fiche documentation PDF\national archives cpp ASCII\mdf0378p.asc' lrecl=81; * uses column input; input cardnumb 1-4 @; * @ allows the conditional input; if cardnumb=1171; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 card1171 1-4 rev1171 5 id1171 6-14 /*same as NINDB number*/ f05a1171 15-16 /*Month*/ f05b1171 17-18 /*Day*/ f05c1171 19-20 /*Year*/ f06a1171 21 /*All of field 6 is 999 if unknown*/ f06b1171 22-23 f07_1171 24 f08_1171 25 f09_1171 26-27 f10a1171 28-29 /*Month*/ /*all separate parts of field 10 are coded 99 if unknown*/ f10b1171 30-31 /*Day*/ f10c1171 32-33 /*Year*/ f11_1171 34 f12_1171 35 f13a1171 36 f13b1171 37 f14a1171 38 f14b1171 39 f15a1171 40-42 f15b1171 43-44 f15c1171 45-46 /*Month*/ f15d1171 47-48 /*Day*/ f15e1171 49-50 /*Year*/ f16_1171 51 f17a1171 52-54 f17b1171 55-56 f17c1171 57-58 /*Month*/ f17d1171 59-60 /*Day*/ f17e1171 61-62 /*Year*/ f18a1171 63-65 f18b1171 66-67 f18c1171 68-69 /*Month*/ f18d1171 70-71 /*Day*/ f18e1171 72-73 /*Year*/; run; *Input ed1, card 2; data ed1_2; *Card 2 of 2 ed cards; infile 'C:\Documents and Settings\john\Desktop\cpp cd 1 ASCII data & original fiche documentation PDF\national archives cpp ASCII\mdf0378p.asc' lrecl=81; * uses column input; input cardnumb 1-4 @; * @ allows the conditional input; if cardnumb=2171; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 card2171 1-4 rev2171 5 id2171 6-14 /*same as NINDB number*/ f03a2171 15-16 f03b2171 17 f03c2171 18 f03d2171 19-20 f03e2171 21-22 /*Month*/ /*Coded 99 for each part of unknown month, day or year*/ f03f2171 23-24 /*Day*/ f03g2171 25-26 /*Year*/ f03h2171 27-28 /*Coded 99 if unknown*/ f03i2171 29 f04a2171 30-31 f04b2171 32 f04c2171 33 f04d2171 34-35 f04e2171 36-37 /*Month*/ /*Coded 99 for each part of unknown month, day or year*/ f04f2171 38-39 /*Day*/ f04g2171 40-41 /*Year*/ f04h2171 42-43 /*Coded 99 if unknown*/ f04i2171 44 f05a2171 45-46 f05b2171 47 f05c2171 48 f05d2171 49-50 f05e2171 51-52 /*Month*/ /*Coded 99 for each part of unknown month, day or year*/ f05f2171 53-54 /*Day*/ f05g2171 55-56 /*Year*/ f05h2171 57-58 /*Coded 99 if unknown*/ f05i2171 59 f06a2171 60-61 f06b2171 62 f06c2171 63 f06d2171 64-65 f06e2171 66-67 /*Month*/ /*Coded 99 for each part of unknown month, day or year*/ f06f2171 68-69 /*Day*/ f06g2171 70-71 /*Year*/ f06h2171 72-73 /*Coded 99 if unknown*/ f06i2171 74; run; data spssdata.ed follow up; merge ed1_1 ed1_2; by nindb; run;