NOTE: FOR NOVEMBER AND FEBRUARY WE NEED TO CHANGE THE THANKYOU SCREEN. CAPI INSTRUMENT CURRENT POPULATION SURVEY ** FOR MICRO VERSION OF CENSUS CAPI SYSTEM ** authored by: Catherine Chambers Walker (DSD) ============================================================================ MAJOR SECTIONS NOTE: Sections with **'s exist and can be located with finds using the asterisks and number. SECTION **1** Temporary Variable Creates **1A Variables used in "frontback" only **1B Variables used in entire instrument **1C Variables used in the "middle" only **2** Reserved for Input and Operations on Input **2A General Operations **2B **2C Stores and Other Operations on Entered Input **2D **2E Roster Setup of Household Variables **3** Set Dates, Time, Start, and Temporary Input **4** Reference Items **5** Predial, dial, and Front **6** INTBEGIN and Permanent Variables Input variables **6A Variables used in "frontback" only **6B Variables used in entire instrument **6C Variables used in "middle" only **6D Variables set for processing only **7A** Control Card Flow **7B** Control Card Rosters **8** Labor Force **9** Nativity **10** March income **S **11** **12** **13** **14** **15** **16** **17** **18** Fin and Closing **19** Checkout, Final Operations ============================================================================= SECTION **1** - TEMPORARY VARIABLE CREATES ============================================================================= A. VARIABLES USED IN "FRONTBACK" ONLY **1A** $create CREATED VARIABLES FOR INDIVIDUAL CALLBACK TIMES (OTHERS CREATED IN PERMANENT SECTION) [tabname cbrhr-i] [entries 16] [allow 2] [integer] INTEGER HOURS (12 HOUR CLOCK) [tabname cbrmin-i] [entries 16] [allow 2] [integer] INTEGER MINUTES [tabname cbrtm2-c] [entries 16] [allow 5] [character] CHARACTER TIME, 5 CHARACTERS (1256p) [tabname cbd-ds] [entries 16] [allow 9] [character] SPECIAL CALLBACK DATE DISPLAY [tabname cbdayfil] [entries 16] [allow 8] [character] SATURDAY OR WEEKDAY FILL [vname cbdt-tp] [allow 2] [character] TEMPORARY CALLBACK CREATED VARIABLES FOR SINGLE CALLBACK TIME [vname cbhr-i] [allow 2] [integer] [vname cbmin-i] [allow 2] [integer] [vname cbampm-c] [allow 1] [character] [vname cbtm2-c] [allow 5] [character] [vname cbhr-c] [allow 2] [character] [vname cbmin-c] [allow 2] [character] CREATED VARIABLES FOR SINGLE CALLBACK DATE [vname cbmon-i] [allow 2] [integer] [vname cbday-i] [allow 2] [integer] [vname cbyear-i] [allow 4] [integer] [vname cbwd1-c] [allow 3] [character] [vname cbwd2-c] [allow 2] [character] [vname cbmon-c] [allow 2] [character] CAPI DOES NOT HAVE A STOPDATE - STOPDATE VARIABLES WERE DELETED CREATED VARIABLES FOR FACILITY TIME. [vname time-i] [allow 4] [integer] MINUTES PAST MIDNIGHT [vname hr-i] [allow 2] [integer] INTEGER HOURS (12 HOUR CLOCK) [vname min-i] [allow 2] [integer] INTEGER MINUTES [vname ampm-c] [allow 1] [character] CHARACTER AM/PM CHARACTER [vname time1-c] [allow 8] [character] CHARACTER TIME, 8 CHARACTERS (12:56 PM) [vname time2-c] [allow 5] [character] CHARACTER TIME, 5 CHARACTERS (1256P) CREATED VARIABLES FOR RESPONDENT TIME. [vname rtime-i] [allow 4] [integer] RESP. MINUTES PAST MIDNIGHT [vname rhr-i] [allow 2] [integer] INTEGER RESP. HRS (12 HR CLOCK) [vname rmin-i] [allow 2] [integer] INTEGER RESPONDENT MINUTES [vname rampm-c] [allow 1] [character] CHAR. RESP. AS/PM CHARACTER [vname rtime1-c] [allow 8] [character] CHAR. RESP. TIME, 8 CHARS. (9:56 PM) [vname rtime2-c] [allow 5] [character] CHAR. RESP. TIME, 5 CHARS. (0956P) CREATED VARIABLES FOR TIME ZONE AND DAYLIGHT SAVINGS TIME. [vname pn] [allow 11] [character] HOLDS PHONENUM FOR FILLS [vname zone-c] [allow 8] [character] TIME ZONE [vname dst-c] [allow 6] [character] RESP. DAYLIGHT SAVINGS DISPLAY "IS" OR "IS NOT". OTHER VARIABLES CREATED. [tabname FrLine] [entries 16] [allow 2] [character] LINE NUMBER USED IN THE FRONT/BACK. [vname wheredex] [allow 2] [integer] WHERE ARE YOU IN INTERVIEW. SEE WHEREAT FOR VALUES [tabname tempname] [entries 16] [allow 39] [character] THE FOLLOWING VARIABLES WERE ADDED TO HELP WITH THE HOUSEHOLD FLAGS SET IN THE BACK IN THE ITEM DONE. [tabname I-HHmem] [entries 16] [allow 1] [character] [tabname I-RRP] [entries 16] [allow 2] [character] [tabname I-Parnt] [entries 16] [allow 2] [character] [tabname I-age] [entries 16] [allow 2] [character] [tabname I-Martl] [entries 16] [allow 1] [character] [tabname I-Spous] [entries 16] [allow 2] [character] [tabname I-AFnow] [entries 16] [allow 1] [character] [tabname I-AFevr] [entries 16] [allow 1] [character] [tabname I-AFwhn] [entries 16] [allow 1] [character] [tabname I-educa] [entries 16] [allow 2] [character] [tabname I-race] [entries 16] [allow 1] [character] [tabname I-orign] [entries 16] [allow 2] [character] [tabname I-ssn] [entries 16] [allow 7] [character] [tabname whereat] [entries 9] [allow 20] [character] [values= , 1 , 2
, 3 , 4 5 , 6 , 7 < >, 8 < >] 9 [tabname status] [entries 22] [allow 20] [character] [values= < >, 1 , 2 , 3 < >, 4 < >, 5 , 6 , 7 < >, 8 , 9 , 10 < >, 11 < >, 12 < >, 13 , 14 , 15 16 17 , 18 < >, 19 < >, 20 , 21 ] 22 B.VARIABLES USED IN ENTIRE INSTRUMENT **1B CREATED VARIABLES FOR CURRENT DATE. [vname jdate-i] [allow 4] [integer] Julian date [vname mon-i] [allow 2] [integer] Integer month [vname day-i] [allow 2] [integer] Integer day [vname year-i] [allow 4] [integer] Integer year [vname date-c] [allow 9] [character] Character date (Oct 15 83) [vname wkday1-c] [allow 3] [character] Character weekday, 3 chars. [vname wkday2-c] [allow 2] [character] Character weekday, 2 chars. [vname Index] [allow 9] [integer] GENERAL INDEX [vname Index1] [allow 2] [integer] **STP [vname Index2] [allow 2] [integer] [vname Index3] [allow 2] [integer] [vname Index4] [allow 2] [integer] [vname Index5] [allow 2] [integer] [vname Index6] [allow 7] [integer] [vname Index7] [allow 7] [integer] [vname Index8] [allow 7] [integer] [vname Index9] [allow 7] [integer] [vname Index10] [allow 7] [integer] [vname Index11] [allow 7] [integer] [tabname tabindex] [entries 16] [allow 2] [integer] [tabname temp1] [entries 16] [allow 30] [character] [vname temptext] [allow 65] [character] MISCELLANEOUS TEXT FOR [vname temp] [allow 65] [character] [vname temp2] [allow 65] [character] [vname temp3] [allow 65] [character] [vname temp4] [allow 65] [character] [vname temp5] [allow 65] [character] [vname temp6] [allow 65] [character] [vname temp7] [allow 65] [character] [vname temp8] [allow 65] [character] [vname temp9] [allow 65] [character] [vname temp10] [allow 65] [character] [vname temp11] [allow 65] [character] [vname temp12] [allow 65] [character] [vname temp13] [allow 65] [character] [vname temp14] [allow 65] [character] [vname temp15] [allow 65] [character] [vname tempsp] [allow 12] [character] ADDED FOR ** MOVERS ** [tabname xbad] [entries 16] [allow 9] [character] FOR NOT EQUAL EDITS/FILLS (TO COMPARE THE LINE NUM. WITH THE NUM. ENTERED TO MAKE SURE ONLY LEGITIMATE ENTRIES ARE MADE). [tabname table] [entries 16] [allow 78] [character] USED FOR TABLE/CHART FILLS [tabname BrthM-i] [entries 16] [allow 2] [integer] BIRTH MONTH IN INTEGER FORM [tabname BrthD-i] [entries 16] [allow 2] [integer] BIRTH DATE IN INTEGER FORM [tabname BrthY-i] [entries 16] [allow 2] [integer] BIRTH YEAR IN INTEGER FORM [vname bjdate-i] [allow 5] [integer] Julian date for birthdate [vname bdate-c] [allow 9] [character] Calendar date for birthdate [vname BWKD1] [allow 3] [character] Day for birthdate [vname BWKD2] [allow 2] [character] Day for birthdate [vname bmo-i] [allow 2] [integer] Person's month of birth [vname bday-i] [allow 2] [integer] Person's date of birth [vname byear-i] [allow 2] [integer] C.VARIABLES USED IN THE MIDDLE ONLY **1C [vname youheshe] [allow 5] [character] YOU, HE, OR SHE FILL [vname yourhshr] [allow 5] [character] YOUR, HIS, OR HER FILL [vname youhmhr] [allow 5] [character] YOU,HIM, OR HER FILL [vname DoDoes] [allow 4] [character] DO OR DOES FILL [vname havehas] [allow 4] [character] HAVE OR HAS FILL [vname werewas] [allow 4] [character] WERE OR WAS FILL [vname AreIs] [allow 3] [character] ARE OR IS FILL [vname rindex] [allow 7] [real] [vname rindex2] [allow 7] [real] [vname top] [allow 2] [character] [vname UREFLG] [allow 1] [integer] USED IN C-RP-3CK IF ALL MEMBERS ARE URE [vname AGEFLG] [allow 1] [integer] USED IN resp1 IF ALL MEMBERS ARE under 15 ADDED THE FOLLOWING VARIABLES TO CUT DOWN ON LENGTHY CODING OF RELATIONSHIP CMC [tabname reltab] [entries 13] [allow 10] [character] [values= , , , , , , , , , , , , ] [tabname n-reltab] [entries 38] [allow 10] [character] [values= < >, 1 < >, 2 < >, 3 < >, 4 < >, 5 < >, 6 < >, 7 < >, 8 < >, 9 < >, 10 < >, 11 < >, 12 < >, 13 < >, 14 < >, 15 < >, 16 < >, 17 , 18 , 19 , 20 , 21 , 22 , 23 , 24 , 25 , 26 , 27 , 28 , 29 , 30 , 31 , 32 , 33 , 34 , 35 , 36 , 37 ] 38 [tabname Martab] [entries 6] [allow 3] [character] [values= , , ,
, , ] [tabname AFtab] [entries 5] [allow 4] [character] [values= , , , , ] [tabname Racetab] [entries 5] [allow 4] [character] [values= , , , , ] [tabname EDTAB] [entries 16] [allow 45] [character] [values= , <1st, 2nd, 3rd,` or 4th grade>, <5th or 6th grade>, <7th or 8th grade>, <9th grade>, <10th grade>, <11th grade>, <12th grade - NO DIPLOMA>, , , , , , , , ] [tabname timetab] [entries 6] [allow 8] [character] [Values= , , , , , ] [tabname OUTTAB1] [entries 33] [allow 26] [character] [values= , 1 < >, 2 , 3 < >, 4 < >, 5 < >, 6 < >, 7 < >, 8 < >, 9 < >, 10 < >, 11 < >, 12 < >, 13 < >, 14 < >, 15 , 16 , 17 , 18 19 < >, 20 < >, 21 < >, 22 < >, 23 , 24 , 25 , 26 , 27 , 28 , 29 , 30 , 31 , 32 ,] 33 [tabname OUTTAB2] [entries 33] [allow 26] [character] [values= , 01 , 02 , 03 , 04 < >, , 06 < >, < >, < >, < >, < >, < >, < >, < >, < >, < >, , 17 , 18 , 19 < >, , 21 , 22 , 23 , 24 , 25 , 26 < >, < >, , 29 , 30 , 31 , 32 ] 33 [vname WHATWEEK] [allow 20] [character] REFERENCE WEEK FILL [vname whatwk2] [allow 20] [character] VARIABLES FOR THE cps [vname swhatwk] [allow 20] [character] ITEMS. [vname Swhatwk2] [allow 20] [character] VARIABLES USED IN THE SUPPLEMENT [tabname MONTHTAB] [entries 12] [allow 9] [character] [values= , , , , , , , , , , , ] [tabname tab] [entries 7] [allow 27] [character] ** NEEDED FOR MARCH ** **S [tabname Q58e-fil] [entries 12] [allow 43] [values= < >, , , , , , , , , , , ] [tabname Q61e-fil] [entries 12] [allow 40] [values= < >, , , , , , , , , , , ] [tabname Q62e-fil] [entries 9] [allow 50] [values= , , , , , , , , ] [tabname Q60TXT] [entries 5] [allow 28] [values= , , , , ] $end ============================================================================= SECTION **2** - INPUT AND OPERATIONS ON INPUT ============================================================================= COMMENT: Branches away everything that isn't a new case. New cases that have been called and quit out, have already been through inputstore. YOU ONLY WANT TO GO THROUGH INPUTSTORE ONCE. $>setbasic< [if mark ge <3> then goto rset] NOT A NEW CASE THEREFORE IT GOES TO RESET THE FOLLOWING CODE WAS ADDED BECAUSE THE CAPI SOFTWARE WAS HAVING PROBLEMS BRINGING BACK MARK. (FOR CALLBACKS MARK WAS BEING SET TO ZERO) [NIF outcome eq <202> OR outcome eq <204> then] [goto rset] [ELSEIF outcome eq <205> then] [goto rset] [ENDIF] [store <2> in mark] NEW CASE $end ---------------------------------------------------------------------------- SECTION **2C** STORES FROM INPUT COMMENT: THE FOLLOWING TWO ITEMS STORE THE IN PUT DATA IN PERMANENT VARIABLES $>inputst1< [store I-LNO-1 in LINENO(1)] Line number (control card) [store I-LNO-2 in LINENO(2)] [store I-LNO-3 in LINENO(3)] [store I-LNO-4 in LINENO(4)] [store I-LNO-5 in LINENO(5)] [store I-LNO-6 in LINENO(6)] [store I-LNO-7 in LINENO(7)] [store I-LNO-8 in LINENO(8)] [store I-LNO-9 in LINENO(9)] [store I-LNO-10 in LINENO(10)] [store I-LNO-11 in LINENO(11)] [store I-LNO-12 in LINENO(12)] [store I-LNO-13 in LINENO(13)] [store I-LNO-14 in LINENO(14)] [store I-LNO-15 in LINENO(15)] [store I-LNO-16 in LINENO(16)] [store I-RRP-1 in RRP(1)] RELATIONSHIP [store I-RRP-2 in RRP(2)] [store I-RRP-3 in RRP(3)] [store I-RRP-4 in RRP(4)] [store I-RRP-5 in RRP(5)] [store I-RRP-6 in RRP(6)] [store I-RRP-7 in RRP(7)] [store I-RRP-8 in RRP(8)] [store I-RRP-9 in RRP(9)] [store I-RRP-10 in RRP(10)] [store I-RRP-11 in RRP(11)] [store I-RRP-12 in RRP(12)] [store I-RRP-13 in RRP(13)] [store I-RRP-14 in RRP(14)] [store I-RRP-15 in RRP(15)] [store I-RRP-16 in RRP(16)] [store I-HHMEM-1 in HHmem(1)] HOUSEHOLD MEMBERSHIP STATUS [store I-HHMEM-2 in HHmem(2)] [store I-HHMEM-3 in HHmem(3)] [store I-HHMEM-4 in HHmem(4)] [store I-HHMEM-5 in HHmem(5)] [store I-HHMEM-6 in HHmem(6)] [store I-HHMEM-7 in HHmem(7)] [store I-HHMEM-8 in HHmem(8)] [store I-HHMEM-9 in HHmem(9)] [store I-HHMEM-10 in HHmem(10)] [store I-HHMEM-11 in HHmem(11)] [store I-HHMEM-12 in HHmem(12)] [store I-HHMEM-13 in HHmem(13)] [store I-HHMEM-14 in HHmem(14)] [store I-HHMEM-15 in HHmem(15)] [store I-HHMEM-16 in HHmem(16)] [store I-AGE-1 in Age(1)] AGE [store I-AGE-2 in Age(2)] [store I-AGE-3 in Age(3)] [store I-AGE-4 in Age(4)] [store I-AGE-5 in Age(5)] [store I-AGE-6 in Age(6)] [store I-AGE-7 in Age(7)] [store I-AGE-8 in Age(8)] [store I-AGE-9 in Age(9)] [store I-AGE-10 in Age(10)] [store I-AGE-11 in Age(11)] [store I-AGE-12 in Age(12)] [store I-AGE-13 in Age(13)] [store I-AGE-14 in Age(14)] [store I-AGE-15 in Age(15)] [store I-AGE-16 in Age(16)] [store I-SEX-1 in Sex(1)] SEX [store I-SEX-2 in Sex(2)] [store I-SEX-3 in Sex(3)] [store I-SEX-4 in Sex(4)] [store I-SEX-5 in Sex(5)] [store I-SEX-6 in Sex(6)] [store I-SEX-7 in Sex(7)] [store I-SEX-8 in Sex(8)] [store I-SEX-9 in Sex(9)] [store I-SEX-10 in Sex(10)] [store I-SEX-11 in Sex(11)] [store I-SEX-12 in Sex(12)] [store I-SEX-13 in Sex(13)] [store I-SEX-14 in Sex(14)] [store I-SEX-15 in Sex(15)] [store I-SEX-16 in Sex(16)] [store I-AFNOW-1 in AFNOW(1)] CURRENTLY IN THE ARMED FORCES [store I-AFNOW-2 in AFNOW(2)] [store I-AFNOW-3 in AFNOW(3)] [store I-AFNOW-4 in AFNOW(4)] [store I-AFNOW-5 in AFNOW(5)] [store I-AFNOW-6 in AFNOW(6)] [store I-AFNOW-7 in AFNOW(7)] [store I-AFNOW-8 in AFNOW(8)] [store I-AFNOW-9 in AFNOW(9)] [store I-AFNOW-10 in AFNOW(10)] [store I-AFNOW-11 in AFNOW(11)] [store I-AFNOW-12 in AFNOW(12)] [store I-AFNOW-13 in AFNOW(13)] [store I-AFNOW-14 in AFNOW(14)] [store I-AFNOW-15 in AFNOW(15)] [store I-AFNOW-16 in AFNOW(16)] [store I-RACE-1 in Race(1)] RACE [store I-RACE-2 in Race(2)] [store I-RACE-3 in Race(3)] [store I-RACE-4 in Race(4)] [store I-RACE-5 in Race(5)] [store I-RACE-6 in Race(6)] [store I-RACE-7 in Race(7)] [store I-RACE-8 in Race(8)] [store I-RACE-9 in Race(9)] [store I-RACE-10 in Race(10)] [store I-RACE-11 in Race(11)] [store I-RACE-12 in Race(12)] [store I-RACE-13 in Race(13)] [store I-RACE-14 in Race(14)] [store I-RACE-15 in Race(15)] [store I-RACE-16 in Race(16)] [store I-FNAME-1 in fname(1)] FIRST NAME [store I-FNAME-2 in fname(2)] [store I-FNAME-3 in fname(3)] [store I-FNAME-4 in fname(4)] [store I-FNAME-5 in fname(5)] [store I-FNAME-6 in fname(6)] [store I-FNAME-7 in fname(7)] [store I-FNAME-8 in fname(8)] [store I-FNAME-9 in fname(9)] [store I-FNAME-10 in fname(10)] [store I-FNAME-11 in fname(11)] [store I-FNAME-12 in fname(12)] [store I-FNAME-13 in fname(13)] [store I-FNAME-14 in fname(14)] [store I-FNAME-15 in fname(15)] [store I-FNAME-16 in fname(16)] [store I-LNAME-1 in lname(1)] LAST NAME [store I-LNAME-2 in lname(2)] [store I-LNAME-3 in lname(3)] [store I-LNAME-4 in lname(4)] [store I-LNAME-5 in lname(5)] [store I-LNAME-6 in lname(6)] [store I-LNAME-7 in lname(7)] [store I-LNAME-8 in lname(8)] [store I-LNAME-9 in lname(9)] [store I-LNAME-10 in lname(10)] [store I-LNAME-11 in lname(11)] [store I-LNAME-12 in lname(12)] [store I-LNAME-13 in lname(13)] [store I-LNAME-14 in lname(14)] [store I-LNAME-15 in lname(15)] [store I-LNAME-16 in lname(16)] COMMENT: THE FOLLOWINF CODE COMBINE FIRST AND LAST NAME INTO A VARIABLE CALLED NAME. IF THE FIRST NAME IS BLANK, NOTHING IS STORED IN NAME [do index <1> <16>] [combine fname(index) < > lname(index) into name(index)] [end do] [store lname(1) in HHNAME] [store I-PARNT-1 in PARENT(1)] LINE NUMBER OF PARENT [store I-PARNT-2 in PARENT(2)] [store I-PARNT-3 in PARENT(3)] [store I-PARNT-4 in PARENT(4)] [store I-PARNT-5 in PARENT(5)] [store I-PARNT-6 in PARENT(6)] [store I-PARNT-7 in PARENT(7)] [store I-PARNT-8 in PARENT(8)] [store I-PARNT-9 in PARENT(9)] [store I-PARNT-10 in PARENT(10)] [store I-PARNT-11 in PARENT(11)] [store I-PARNT-12 in PARENT(12)] [store I-PARNT-13 in PARENT(13)] [store I-PARNT-14 in PARENT(14)] [store I-PARNT-15 in PARENT(15)] [store I-PARNT-16 in PARENT(16)] [store I-SPOUS-1 in SPOUSE(1)] LINE NUMBER OF SPOUSE [store I-SPOUS-2 in SPOUSE(2)] [store I-SPOUS-3 in SPOUSE(3)] [store I-SPOUS-4 in SPOUSE(4)] [store I-SPOUS-5 in SPOUSE(5)] [store I-SPOUS-6 in SPOUSE(6)] [store I-SPOUS-7 in SPOUSE(7)] [store I-SPOUS-8 in SPOUSE(8)] [store I-SPOUS-9 in SPOUSE(9)] [store I-SPOUS-10 in SPOUSE(10)] [store I-SPOUS-11 in SPOUSE(11)] [store I-SPOUS-12 in SPOUSE(12)] [store I-SPOUS-13 in SPOUSE(13)] [store I-SPOUS-14 in SPOUSE(14)] [store I-SPOUS-15 in SPOUSE(15)] [store I-SPOUS-16 in SPOUSE(16)] [store I-BRTHM-1 in BIRTHM(1)] BIRTH MONTH [store I-BRTHM-2 in BIRTHM(2)] [store I-BRTHM-3 in BIRTHM(3)] [store I-BRTHM-4 in BIRTHM(4)] [store I-BRTHM-5 in BIRTHM(5)] [store I-BRTHM-6 in BIRTHM(6)] [store I-BRTHM-7 in BIRTHM(7)] [store I-BRTHM-8 in BIRTHM(8)] [store I-BRTHM-9 in BIRTHM(9)] [store I-BRTHM-10 in BIRTHM(10)] [store I-BRTHM-11 in BIRTHM(11)] [store I-BRTHM-12 in BIRTHM(12)] [store I-BRTHM-13 in BIRTHM(13)] [store I-BRTHM-14 in BIRTHM(14)] [store I-BRTHM-15 in BIRTHM(15)] [store I-BRTHM-16 in BIRTHM(16)] [store I-BRTHD-1 in BIRTHD(1)] BIRTH DAY [store I-BRTHD-2 in BIRTHD(2)] [store I-BRTHD-3 in BIRTHD(3)] [store I-BRTHD-4 in BIRTHD(4)] [store I-BRTHD-5 in BIRTHD(5)] [store I-BRTHD-6 in BIRTHD(6)] [store I-BRTHD-7 in BIRTHD(7)] [store I-BRTHD-8 in BIRTHD(8)] [store I-BRTHD-9 in BIRTHD(9)] [store I-BRTHD-10 in BIRTHD(10)] [store I-BRTHD-11 in BIRTHD(11)] [store I-BRTHD-12 in BIRTHD(12)] [store I-BRTHD-13 in BIRTHD(13)] [store I-BRTHD-14 in BIRTHD(14)] [store I-BRTHD-15 in BIRTHD(15)] [store I-BRTHD-16 in BIRTHD(16)] $end -------------------------------------------------------------------------------- $>inputst2< [store I-BRTHY-1 in BIRTHY(1)] BIRTH YEAR [store I-BRTHY-2 in BIRTHY(2)] [store I-BRTHY-3 in BIRTHY(3)] [store I-BRTHY-4 in BIRTHY(4)] [store I-BRTHY-5 in BIRTHY(5)] [store I-BRTHY-6 in BIRTHY(6)] [store I-BRTHY-7 in BIRTHY(7)] [store I-BRTHY-8 in BIRTHY(8)] [store I-BRTHY-9 in BIRTHY(9)] [store I-BRTHY-10 in BIRTHY(10)] [store I-BRTHY-11 in BIRTHY(11)] [store I-BRTHY-12 in BIRTHY(12)] [store I-BRTHY-13 in BIRTHY(13)] [store I-BRTHY-14 in BIRTHY(14)] [store I-BRTHY-15 in BIRTHY(15)] [store I-BRTHY-16 in BIRTHY(16)] [store I-MARTL-1 in MARITL(1)] MARITL STATUS [store I-MARTL-2 in MARITL(2)] [store I-MARTL-3 in MARITL(3)] [store I-MARTL-4 in MARITL(4)] [store I-MARTL-5 in MARITL(5)] [store I-MARTL-6 in MARITL(6)] [store I-MARTL-7 in MARITL(7)] [store I-MARTL-8 in MARITL(8)] [store I-MARTL-9 in MARITL(9)] [store I-MARTL-10 in MARITL(10)] [store I-MARTL-11 in MARITL(11)] [store I-MARTL-12 in MARITL(12)] [store I-MARTL-13 in MARITL(13)] [store I-MARTL-14 in MARITL(14)] [store I-MARTL-15 in MARITL(15)] [store I-MARTL-16 in MARITL(16)] [store I-AFEVR-1 in AFEVER(1)] IF EVER IN THE ARMED FORCES [store I-AFEVR-2 in AFEVER(2)] [store I-AFEVR-3 in AFEVER(3)] [store I-AFEVR-4 in AFEVER(4)] [store I-AFEVR-5 in AFEVER(5)] [store I-AFEVR-6 in AFEVER(6)] [store I-AFEVR-7 in AFEVER(7)] [store I-AFEVR-8 in AFEVER(8)] [store I-AFEVR-9 in AFEVER(9)] [store I-AFEVR-10 in AFEVER(10)] [store I-AFEVR-11 in AFEVER(11)] [store I-AFEVR-12 in AFEVER(12)] [store I-AFEVR-13 in AFEVER(13)] [store I-AFEVR-14 in AFEVER(14)] [store I-AFEVR-15 in AFEVER(15)] [store I-AFEVR-16 in AFEVER(16)] COMMENT: IF PERSON WAS NOT EVER IN ARMED FORCES THAN AUTOMATICALLY ASSUME THAT THEY ARE NOT CURRENTLY IN ARMED FORCES [Do index <1> <16>] [IF AFEVER(index) is <2> then store <2> in AFNOW(index)] [end do] [store I-AFWHN-1 in AFWHEN(1)] WHEN IN THE ARMED FORCES [store I-AFWHN-2 in AFWHEN(2)] [store I-AFWHN-3 in AFWHEN(3)] [store I-AFWHN-4 in AFWHEN(4)] [store I-AFWHN-5 in AFWHEN(5)] [store I-AFWHN-6 in AFWHEN(6)] [store I-AFWHN-7 in AFWHEN(7)] [store I-AFWHN-8 in AFWHEN(8)] [store I-AFWHN-9 in AFWHEN(9)] [store I-AFWHN-10 in AFWHEN(10)] [store I-AFWHN-11 in AFWHEN(11)] [store I-AFWHN-12 in AFWHEN(12)] [store I-AFWHN-13 in AFWHEN(13)] [store I-AFWHN-14 in AFWHEN(14)] [store I-AFWHN-15 in AFWHEN(15)] [store I-AFWHN-16 in AFWHEN(16)] [store I-EDUCA-1 in EDUCA(1)] EDUCATION [store I-EDUCA-2 in EDUCA(2)] [store I-EDUCA-3 in EDUCA(3)] [store I-EDUCA-4 in EDUCA(4)] [store I-EDUCA-5 in EDUCA(5)] [store I-EDUCA-6 in EDUCA(6)] [store I-EDUCA-7 in EDUCA(7)] [store I-EDUCA-8 in EDUCA(8)] [store I-EDUCA-9 in EDUCA(9)] [store I-EDUCA-10 in EDUCA(10)] [store I-EDUCA-11 in EDUCA(11)] [store I-EDUCA-12 in EDUCA(12)] [store I-EDUCA-13 in EDUCA(13)] [store I-EDUCA-14 in EDUCA(14)] [store I-EDUCA-15 in EDUCA(15)] [store I-EDUCA-16 in EDUCA(16)] [store I-ORIGN-1 in Origin(1)] ORIGIN [store I-ORIGN-2 in Origin(2)] [store I-ORIGN-3 in Origin(3)] [store I-ORIGN-4 in Origin(4)] [store I-ORIGN-5 in Origin(5)] [store I-ORIGN-6 in Origin(6)] [store I-ORIGN-7 in Origin(7)] [store I-ORIGN-8 in Origin(8)] [store I-ORIGN-9 in Origin(9)] [store I-ORIGN-10 in Origin(10)] [store I-ORIGN-11 in Origin(11)] [store I-ORIGN-12 in Origin(12)] [store I-ORIGN-13 in Origin(13)] [store I-ORIGN-14 in Origin(14)] [store I-ORIGN-15 in Origin(15)] [store I-ORIGN-16 in Origin(16)] [store I-SSN-1 in SSN(1)] SOCIAL SECURITY NUMBER [store I-SSN-2 in SSN(2)] [store I-SSN-3 in SSN(3)] [store I-SSN-4 in SSN(4)] [store I-SSN-5 in SSN(5)] [store I-SSN-6 in SSN(6)] [store I-SSN-7 in SSN(7)] [store I-SSN-8 in SSN(8)] [store I-SSN-9 in SSN(9)] [store I-SSN-10 in SSN(10)] [store I-SSN-11 in SSN(11)] [store I-SSN-12 in SSN(12)] [store I-SSN-13 in SSN(13)] [store I-SSN-14 in SSN(14)] [store I-SSN-15 in SSN(15)] [store I-SSN-16 in SSN(16)] [store I-MLR-1 in I-MLR(1)] MAJOR LABOR FORCE RECODE [store I-MLR-2 in I-MLR(2)] [store I-MLR-3 in I-MLR(3)] [store I-MLR-4 in I-MLR(4)] [store I-MLR-5 in I-MLR(5)] [store I-MLR-6 in I-MLR(6)] [store I-MLR-7 in I-MLR(7)] [store I-MLR-8 in I-MLR(8)] [store I-MLR-9 in I-MLR(9)] [store I-MLR-10 in I-MLR(10)] [store I-MLR-11 in I-MLR(11)] [store I-MLR-12 in I-MLR(12)] [store I-MLR-13 in I-MLR(13)] [store I-MLR-14 in I-MLR(14)] [store I-MLR-15 in I-MLR(15)] [store I-MLR-16 in I-MLR(16)] THESE ALL REFER TO FIRST JOB WE DO NOT INPUT SECOND JOB INFORMATION [store I-IONAM-1 in I-IO1NAM(1)] COMPANY NAME [store I-IONAM-2 in I-IO1NAM(2)] [store I-IONAM-3 in I-IO1NAM(3)] [store I-IONAM-4 in I-IO1NAM(4)] [store I-IONAM-5 in I-IO1NAM(5)] [store I-IONAM-6 in I-IO1NAM(6)] [store I-IONAM-7 in I-IO1NAM(7)] [store I-IONAM-8 in I-IO1NAM(8)] [store I-IONAM-9 in I-IO1NAM(9)] [store I-IONAM-10 in I-IO1NAM(10)] [store I-IONAM-11 in I-IO1NAM(11)] [store I-IONAM-12 in I-IO1NAM(12)] [store I-IONAM-13 in I-IO1NAM(13)] [store I-IONAM-14 in I-IO1NAM(14)] [store I-IONAM-15 in I-IO1NAM(15)] [store I-IONAM-16 in I-IO1NAM(16)] [store I-IOIND-1 in I-IO1IND(1)] [store I-IOIND-2 in I-IO1IND(2)] [store I-IOIND-3 in I-IO1IND(3)] [store I-IOIND-4 in I-IO1IND(4)] [store I-IOIND-5 in I-IO1IND(5)] [store I-IOIND-6 in I-IO1IND(6)] [store I-IOIND-7 in I-IO1IND(7)] [store I-IOIND-8 in I-IO1IND(8)] [store I-IOIND-9 in I-IO1IND(9)] [store I-IOIND-10 in I-IO1IND(10)] [store I-IOIND-11 in I-IO1IND(11)] [store I-IOIND-12 in I-IO1IND(12)] [store I-IOIND-13 in I-IO1IND(13)] [store I-IOIND-14 in I-IO1IND(14)] [store I-IOIND-15 in I-IO1IND(15)] [store I-IOIND-16 in I-IO1IND(16)] [store I-IOMFG-1 in I-IO1MFG(1)] [store I-IOMFG-2 in I-IO1MFG(2)] [store I-IOMFG-3 in I-IO1MFG(3)] [store I-IOMFG-4 in I-IO1MFG(4)] [store I-IOMFG-5 in I-IO1MFG(5)] [store I-IOMFG-6 in I-IO1MFG(6)] [store I-IOMFG-7 in I-IO1MFG(7)] [store I-IOMFG-8 in I-IO1MFG(8)] [store I-IOMFG-9 in I-IO1MFG(9)] [store I-IOMFG-10 in I-IO1MFG(10)] [store I-IOMFG-11 in I-IO1MFG(11)] [store I-IOMFG-12 in I-IO1MFG(12)] [store I-IOMFG-13 in I-IO1MFG(13)] [store I-IOMFG-14 in I-IO1MFG(14)] [store I-IOMFG-15 in I-IO1MFG(15)] [store I-IOMFG-16 in I-IO1MFG(16)] [store I-IOOCC-1 in I-IO1OCC(1)] [store I-IOOCC-2 in I-IO1OCC(2)] [store I-IOOCC-3 in I-IO1OCC(3)] [store I-IOOCC-4 in I-IO1OCC(4)] [store I-IOOCC-5 in I-IO1OCC(5)] [store I-IOOCC-6 in I-IO1OCC(6)] [store I-IOOCC-7 in I-IO1OCC(7)] [store I-IOOCC-8 in I-IO1OCC(8)] [store I-IOOCC-9 in I-IO1OCC(9)] [store I-IOOCC-10 in I-IO1OCC(10)] [store I-IOOCC-11 in I-IO1OCC(11)] [store I-IOOCC-12 in I-IO1OCC(12)] [store I-IOOCC-13 in I-IO1OCC(13)] [store I-IOOCC-14 in I-IO1OCC(14)] [store I-IOOCC-15 in I-IO1OCC(15)] [store I-IOOCC-16 in I-IO1OCC(16)] $end -------------------------------------------------------------------------------- $>inputst3< [store I-IODT1-1 in I-IO1DT1(1)] JOB DUTY 1 [store I-IODT1-2 in I-IO1DT1(2)] [store I-IODT1-3 in I-IO1DT1(3)] [store I-IODT1-4 in I-IO1DT1(4)] [store I-IODT1-5 in I-IO1DT1(5)] [store I-IODT1-6 in I-IO1DT1(6)] [store I-IODT1-7 in I-IO1DT1(7)] [store I-IODT1-8 in I-IO1DT1(8)] [store I-IODT1-9 in I-IO1DT1(9)] [store I-IODT1-10 in I-IO1DT1(10)] [store I-IODT1-11 in I-IO1DT1(11)] [store I-IODT1-12 in I-IO1DT1(12)] [store I-IODT1-13 in I-IO1DT1(13)] [store I-IODT1-14 in I-IO1DT1(14)] [store I-IODT1-15 in I-IO1DT1(15)] [store I-IODT1-16 in I-IO1DT1(16)] [store I-IODT2-1 in I-IO1DT2(1)] JOB DUTY 2 [store I-IODT2-2 in I-IO1DT2(2)] [store I-IODT2-3 in I-IO1DT2(3)] [store I-IODT2-4 in I-IO1DT2(4)] [store I-IODT2-5 in I-IO1DT2(5)] [store I-IODT2-6 in I-IO1DT2(6)] [store I-IODT2-7 in I-IO1DT2(7)] [store I-IODT2-8 in I-IO1DT2(8)] [store I-IODT2-9 in I-IO1DT2(9)] [store I-IODT2-10 in I-IO1DT2(10)] [store I-IODT2-11 in I-IO1DT2(11)] store I-IODT2-12 in I-IO1DT2(12) CHANGED FOR ** MOVERS ** store I-IODT2-13 in I-IO1DT2(13) store I-IODT2-14 in I-IO1DT2(14) store I-IODT2-15 in I-IO1DT2(15) store I-IODT2-16 in I-IO1DT2(16) [store < > in I-IO1DT2(12)] ADDED FOR ** MOVERS ** [store < > in I-IO1DT2(13)] [store < > in I-IO1DT2(14)] [store < > in I-IO1DT2(15)] [store < > in I-IO1DT2(16)] [store I-CP1FN in CP1FN] ADDED FOR ** MOVERS ** [store I-CP1LN in CP1LN] [store I-CP1CT in CP1CT] [store I-CP1ST in CP1ST] [store I-CP1AR in CP1AR] [store I-CP1NUM in CP1NUM] [store I-CP1EXT in CP1EXT] [store I-CP1REL in CP1REL] [store I-IOCOW-1 in I-IO1COW(1)] CLASS OF WORKER [store I-IOCOW-2 in I-IO1COW(2)] [store I-IOCOW-3 in I-IO1COW(3)] [store I-IOCOW-4 in I-IO1COW(4)] [store I-IOCOW-5 in I-IO1COW(5)] [store I-IOCOW-6 in I-IO1COW(6)] [store I-IOCOW-7 in I-IO1COW(7)] [store I-IOCOW-8 in I-IO1COW(8)] [store I-IOCOW-9 in I-IO1COW(9)] [store I-IOCOW-10 in I-IO1COW(10)] [store I-IOCOW-11 in I-IO1COW(11)] [store I-IOCOW-12 in I-IO1COW(12)] [store I-IOCOW-13 in I-IO1COW(13)] [store I-IOCOW-14 in I-IO1COW(14)] [store I-IOCOW-15 in I-IO1COW(15)] [store I-IOCOW-16 in I-IO1COW(16)] [store I-IOICD-1 in I-IO1ICD(1)] [store I-IOICD-2 in I-IO1ICD(2)] [store I-IOICD-3 in I-IO1ICD(3)] [store I-IOICD-4 in I-IO1ICD(4)] [store I-IOICD-5 in I-IO1ICD(5)] [store I-IOICD-6 in I-IO1ICD(6)] [store I-IOICD-7 in I-IO1ICD(7)] [store I-IOICD-8 in I-IO1ICD(8)] [store I-IOICD-9 in I-IO1ICD(9)] [store I-IOICD-10 in I-IO1ICD(10)] [store I-IOICD-11 in I-IO1ICD(11)] [store I-IOICD-12 in I-IO1ICD(12)] [store I-IOICD-13 in I-IO1ICD(13)] [store I-IOICD-14 in I-IO1ICD(14)] [store I-IOICD-15 in I-IO1ICD(15)] [store I-IOICD-16 in I-IO1ICD(16)] [store I-IOOCD-1 in I-IO1OCD(1)] [store I-IOOCD-2 in I-IO1OCD(2)] [store I-IOOCD-3 in I-IO1OCD(3)] [store I-IOOCD-4 in I-IO1OCD(4)] [store I-IOOCD-5 in I-IO1OCD(5)] [store I-IOOCD-6 in I-IO1OCD(6)] [store I-IOOCD-7 in I-IO1OCD(7)] [store I-IOOCD-8 in I-IO1OCD(8)] [store I-IOOCD-9 in I-IO1OCD(9)] [store I-IOOCD-10 in I-IO1OCD(10)] [store I-IOOCD-11 in I-IO1OCD(11)] [store I-IOOCD-12 in I-IO1OCD(12)] [store I-IOOCD-13 in I-IO1OCD(13)] [store I-IOOCD-14 in I-IO1OCD(14)] [store I-IOOCD-15 in I-IO1OCD(15)] [store I-IOOCD-16 in I-IO1OCD(16)] [store I-IOICR-1 in I-IO1ICR(1)] [store I-IOICR-2 in I-IO1ICR(2)] [store I-IOICR-3 in I-IO1ICR(3)] [store I-IOICR-4 in I-IO1ICR(4)] [store I-IOICR-5 in I-IO1ICR(5)] [store I-IOICR-6 in I-IO1ICR(6)] [store I-IOICR-7 in I-IO1ICR(7)] [store I-IOICR-8 in I-IO1ICR(8)] [store I-IOICR-9 in I-IO1ICR(9)] [store I-IOICR-10 in I-IO1ICR(10)] [store I-IOICR-11 in I-IO1ICR(11)] [store I-IOICR-12 in I-IO1ICR(12)] [store I-IOICR-13 in I-IO1ICR(13)] [store I-IOICR-14 in I-IO1ICR(14)] [store I-IOICR-15 in I-IO1ICR(15)] [store I-IOICR-16 in I-IO1ICR(16)] [store I-IOOCR-1 in I-IO1OCR(1)] [store I-IOOCR-2 in I-IO1OCR(2)] [store I-IOOCR-3 in I-IO1OCR(3)] [store I-IOOCR-4 in I-IO1OCR(4)] [store I-IOOCR-5 in I-IO1OCR(5)] [store I-IOOCR-6 in I-IO1OCR(6)] [store I-IOOCR-7 in I-IO1OCR(7)] [store I-IOOCR-8 in I-IO1OCR(8)] [store I-IOOCR-9 in I-IO1OCR(9)] [store I-IOOCR-10 in I-IO1OCR(10)] [store I-IOOCR-11 in I-IO1OCR(11)] [store I-IOOCR-12 in I-IO1OCR(12)] [store I-IOOCR-13 in I-IO1OCR(13)] [store I-IOOCR-14 in I-IO1OCR(14)] [store I-IOOCR-15 in I-IO1OCR(15)] [store I-IOOCR-16 in I-IO1OCR(16)] [store I-LAYDR-1 in I-LAYDUR(1)] [store I-LAYDR-2 in I-LAYDUR(2)] [store I-LAYDR-3 in I-LAYDUR(3)] [store I-LAYDR-4 in I-LAYDUR(4)] [store I-LAYDR-5 in I-LAYDUR(5)] [store I-LAYDR-6 in I-LAYDUR(6)] [store I-LAYDR-7 in I-LAYDUR(7)] [store I-LAYDR-8 in I-LAYDUR(8)] [store I-LAYDR-9 in I-LAYDUR(9)] [store I-LAYDR-10 in I-LAYDUR(10)] [store I-LAYDR-11 in I-LAYDUR(11)] [store I-LAYDR-12 in I-LAYDUR(12)] [store I-LAYDR-13 in I-LAYDUR(13)] [store I-LAYDR-14 in I-LAYDUR(14)] [store I-LAYDR-15 in I-LAYDUR(15)] [store I-LAYDR-16 in I-LAYDUR(16)] [store I-LAYFT-1 in I-LAYFT(1)] [store I-LAYFT-2 in I-LAYFT(2)] [store I-LAYFT-3 in I-LAYFT(3)] [store I-LAYFT-4 in I-LAYFT(4)] [store I-LAYFT-5 in I-LAYFT(5)] [store I-LAYFT-6 in I-LAYFT(6)] [store I-LAYFT-7 in I-LAYFT(7)] [store I-LAYFT-8 in I-LAYFT(8)] [store I-LAYFT-9 in I-LAYFT(9)] [store I-LAYFT-10 in I-LAYFT(10)] [store I-LAYFT-11 in I-LAYFT(11)] [store I-LAYFT-12 in I-LAYFT(12)] [store I-LAYFT-13 in I-LAYFT(13)] [store I-LAYFT-14 in I-LAYFT(14)] [store I-LAYFT-15 in I-LAYFT(15)] [store I-LAYFT-16 in I-LAYFT(16)] [store I-LK1-1 in I-LK1(1)] [store I-LK1-2 in I-LK1(2)] [store I-LK1-3 in I-LK1(3)] [store I-LK1-4 in I-LK1(4)] [store I-LK1-5 in I-LK1(5)] [store I-LK1-6 in I-LK1(6)] [store I-LK1-7 in I-LK1(7)] [store I-LK1-8 in I-LK1(8)] [store I-LK1-9 in I-LK1(9)] [store I-LK1-10 in I-LK1(10)] [store I-LK1-11 in I-LK1(11)] [store I-LK1-12 in I-LK1(12)] [store I-LK1-13 in I-LK1(13)] [store I-LK1-14 in I-LK1(14)] [store I-LK1-15 in I-LK1(15)] [store I-LK1-16 in I-LK1(16)] [store I-LK2-1 in I-LK2(1)] [store I-LK2-2 in I-LK2(2)] [store I-LK2-3 in I-LK2(3)] [store I-LK2-4 in I-LK2(4)] [store I-LK2-5 in I-LK2(5)] [store I-LK2-6 in I-LK2(6)] [store I-LK2-7 in I-LK2(7)] [store I-LK2-8 in I-LK2(8)] [store I-LK2-9 in I-LK2(9)] [store I-LK2-10 in I-LK2(10)] [store I-LK2-11 in I-LK2(11)] [store I-LK2-12 in I-LK2(12)] [store I-LK2-13 in I-LK2(13)] [store I-LK2-14 in I-LK2(14)] [store I-LK2-15 in I-LK2(15)] [store I-LK2-16 in I-LK2(16)] [store I-LKLW-1 in I-LKLW(1)] [store I-LKLW-2 in I-LKLW(2)] [store I-LKLW-3 in I-LKLW(3)] [store I-LKLW-4 in I-LKLW(4)] [store I-LKLW-5 in I-LKLW(5)] [store I-LKLW-6 in I-LKLW(6)] [store I-LKLW-7 in I-LKLW(7)] [store I-LKLW-8 in I-LKLW(8)] [store I-LKLW-9 in I-LKLW(9)] [store I-LKLW-10 in I-LKLW(10)] [store I-LKLW-11 in I-LKLW(11)] [store I-LKLW-12 in I-LKLW(12)] [store I-LKLW-13 in I-LKLW(13)] [store I-LKLW-14 in I-LKLW(14)] [store I-LKLW-15 in I-LKLW(15)] [store I-LKLW-16 in I-LKLW(16)] $end ------------------------------------------------------------------------------- $>inputst4< [store I-LKM-1 in I-LKM(1)] [store I-LKM-2 in I-LKM(2)] [store I-LKM-3 in I-LKM(3)] [store I-LKM-4 in I-LKM(4)] [store I-LKM-5 in I-LKM(5)] [store I-LKM-6 in I-LKM(6)] [store I-LKM-7 in I-LKM(7)] [store I-LKM-8 in I-LKM(8)] [store I-LKM-9 in I-LKM(9)] [store I-LKM-10 in I-LKM(10)] [store I-LKM-11 in I-LKM(11)] [store I-LKM-12 in I-LKM(12)] [store I-LKM-13 in I-LKM(13)] [store I-LKM-14 in I-LKM(14)] [store I-LKM-15 in I-LKM(15)] [store I-LKM-16 in I-LKM(16)] [store I-LKY-1 in I-LKY(1)] [store I-LKY-2 in I-LKY(2)] [store I-LKY-3 in I-LKY(3)] [store I-LKY-4 in I-LKY(4)] [store I-LKY-5 in I-LKY(5)] [store I-LKY-6 in I-LKY(6)] [store I-LKY-7 in I-LKY(7)] [store I-LKY-8 in I-LKY(8)] [store I-LKY-9 in I-LKY(9)] [store I-LKY-10 in I-LKY(10)] [store I-LKY-11 in I-LKY(11)] [store I-LKY-12 in I-LKY(12)] [store I-LKY-13 in I-LKY(13)] [store I-LKY-14 in I-LKY(14)] [store I-LKY-15 in I-LKY(15)] [store I-LKY-16 in I-LKY(16)] [store I-LKDUR-1 in I-LKDUR(1)] [store I-LKDUR-2 in I-LKDUR(2)] [store I-LKDUR-3 in I-LKDUR(3)] [store I-LKDUR-4 in I-LKDUR(4)] [store I-LKDUR-5 in I-LKDUR(5)] [store I-LKDUR-6 in I-LKDUR(6)] [store I-LKDUR-7 in I-LKDUR(7)] [store I-LKDUR-8 in I-LKDUR(8)] [store I-LKDUR-9 in I-LKDUR(9)] [store I-LKDUR-10 in I-LKDUR(10)] [store I-LKDUR-11 in I-LKDUR(11)] [store I-LKDUR-12 in I-LKDUR(12)] [store I-LKDUR-13 in I-LKDUR(13)] [store I-LKDUR-14 in I-LKDUR(14)] [store I-LKDUR-15 in I-LKDUR(15)] [store I-LKDUR-16 in I-LKDUR(16)] [store I-LKFT-1 in I-LKFT(1)] [store I-LKFT-2 in I-LKFT(2)] [store I-LKFT-3 in I-LKFT(3)] [store I-LKFT-4 in I-LKFT(4)] [store I-LKFT-5 in I-LKFT(5)] [store I-LKFT-6 in I-LKFT(6)] [store I-LKFT-7 in I-LKFT(7)] [store I-LKFT-8 in I-LKFT(8)] [store I-LKFT-9 in I-LKFT(9)] [store I-LKFT-10 in I-LKFT(10)] [store I-LKFT-11 in I-LKFT(11)] [store I-LKFT-12 in I-LKFT(12)] [store I-LKFT-13 in I-LKFT(13)] [store I-LKFT-14 in I-LKFT(14)] [store I-LKFT-15 in I-LKFT(15)] [store I-LKFT-16 in I-LKFT(16)] $end -------------------------------------------------------------------------------- $>inputst4a< [store I-NATVT-1 in NATVTY(1)] [store I-NATVT-2 in NATVTY(2)] [store I-NATVT-3 in NATVTY(3)] [store I-NATVT-4 in NATVTY(4)] [store I-NATVT-5 in NATVTY(5)] [store I-NATVT-6 in NATVTY(6)] [store I-NATVT-7 in NATVTY(7)] [store I-NATVT-8 in NATVTY(8)] [store I-NATVT-9 in NATVTY(9)] [store I-NATVT-10 in NATVTY(10)] [store I-NATVT-11 in NATVTY(11)] [store I-NATVT-12 in NATVTY(12)] [store I-NATVT-13 in NATVTY(13)] [store I-NATVT-14 in NATVTY(14)] [store I-NATVT-15 in NATVTY(15)] [store I-NATVT-16 in NATVTY(16)] [store I-MNTVT-1 in MNTVTY(1)] [store I-MNTVT-2 in MNTVTY(2)] [store I-MNTVT-3 in MNTVTY(3)] [store I-MNTVT-4 in MNTVTY(4)] [store I-MNTVT-5 in MNTVTY(5)] [store I-MNTVT-6 in MNTVTY(6)] [store I-MNTVT-7 in MNTVTY(7)] [store I-MNTVT-8 in MNTVTY(8)] [store I-MNTVT-9 in MNTVTY(9)] [store I-MNTVT-10 in MNTVTY(10)] [store I-MNTVT-11 in MNTVTY(11)] [store I-MNTVT-12 in MNTVTY(12)] [store I-MNTVT-13 in MNTVTY(13)] [store I-MNTVT-14 in MNTVTY(14)] [store I-MNTVT-15 in MNTVTY(15)] [store I-MNTVT-16 in MNTVTY(16)] [store I-FNTVT-1 in FNTVTY(1)] [store I-FNTVT-2 in FNTVTY(2)] [store I-FNTVT-3 in FNTVTY(3)] [store I-FNTVT-4 in FNTVTY(4)] [store I-FNTVT-5 in FNTVTY(5)] [store I-FNTVT-6 in FNTVTY(6)] [store I-FNTVT-7 in FNTVTY(7)] [store I-FNTVT-8 in FNTVTY(8)] [store I-FNTVT-9 in FNTVTY(9)] [store I-FNTVT-10 in FNTVTY(10)] [store I-FNTVT-11 in FNTVTY(11)] [store I-FNTVT-12 in FNTVTY(12)] [store I-FNTVT-13 in FNTVTY(13)] [store I-FNTVT-14 in FNTVTY(14)] [store I-FNTVT-15 in FNTVTY(15)] [store I-FNTVT-16 in FNTVTY(16)] [store I-INUSY-1 in INUSYR(1)] [store I-INUSY-2 in INUSYR(2)] [store I-INUSY-3 in INUSYR(3)] [store I-INUSY-4 in INUSYR(4)] [store I-INUSY-5 in INUSYR(5)] [store I-INUSY-6 in INUSYR(6)] [store I-INUSY-7 in INUSYR(7)] [store I-INUSY-8 in INUSYR(8)] [store I-INUSY-9 in INUSYR(9)] [store I-INUSY-10 in INUSYR(10)] [store I-INUSY-11 in INUSYR(11)] [store I-INUSY-12 in INUSYR(12)] [store I-INUSY-13 in INUSYR(13)] [store I-INUSY-14 in INUSYR(14)] [store I-INUSY-15 in INUSYR(15)] [store I-INUSY-16 in INUSYR(16)] [store I-CITIZ-1 in CITIZN(1)] [store I-CITIZ-2 in CITIZN(2)] [store I-CITIZ-3 in CITIZN(3)] [store I-CITIZ-4 in CITIZN(4)] [store I-CITIZ-5 in CITIZN(5)] [store I-CITIZ-6 in CITIZN(6)] [store I-CITIZ-7 in CITIZN(7)] [store I-CITIZ-8 in CITIZN(8)] [store I-CITIZ-9 in CITIZN(9)] [store I-CITIZ-10 in CITIZN(10)] [store I-CITIZ-11 in CITIZN(11)] [store I-CITIZ-12 in CITIZN(12)] [store I-CITIZ-13 in CITIZN(13)] [store I-CITIZ-14 in CITIZN(14)] [store I-CITIZ-15 in CITIZN(15)] [store I-CITIZ-16 in CITIZN(16)] [store I-CITYA-1 in I-CITYA(1)] CHANGED OCT 94/CHANGED APR 96 [store I-CITYA-2 in I-CITYA(2)] [store I-CITYA-3 in I-CITYA(3)] [store I-CITYA-4 in I-CITYA(4)] [store I-CITYA-5 in I-CITYA(5)] [store I-CITYA-6 in I-CITYA(6)] [store I-CITYA-7 in I-CITYA(7)] [store I-CITYA-8 in I-CITYA(8)] [store I-CITYA-9 in I-CITYA(9)] [store I-CITYA-10 in I-CITYA(10)] [store I-CITYA-11 in I-CITYA(11)] [store I-CITYA-12 in I-CITYA(12)] [store I-CITYA-13 in I-CITYA(13)] [store I-CITYA-14 in I-CITYA(14)] [store I-CITYA-15 in I-CITYA(15)] [store I-CITYA-16 in I-CITYA(16)] [store I-CITYB-1 in I-CITYB(1)] ADDED OCT 94/CHANGED APR 96 [store I-CITYB-2 in I-CITYB(2)] [store I-CITYB-3 in I-CITYB(3)] [store I-CITYB-4 in I-CITYB(4)] [store I-CITYB-5 in I-CITYB(5)] [store I-CITYB-6 in I-CITYB(6)] [store I-CITYB-7 in I-CITYB(7)] [store I-CITYB-8 in I-CITYB(8)] [store I-CITYB-9 in I-CITYB(9)] [store I-CITYB-10 in I-CITYB(10)] [store I-CITYB-11 in I-CITYB(11)] [store I-CITYB-12 in I-CITYB(12)] [store I-CITYB-13 in I-CITYB(13)] [store I-CITYB-14 in I-CITYB(14)] [store I-CITYB-15 in I-CITYB(15)] [store I-CITYB-16 in I-CITYB(16)] [do index <1> <16>] [store I-CITYA(index) in CITYPA(index)] [store I-CITYB(index) in CITYPB(index)] [end do] $end -------------------------------------------------------------------------------- $>INPUTST4B< ADDED JUN 96 [store I-DIPGD-1 in DIPGED(1)] [store I-DIPGD-2 in DIPGED(2)] [store I-DIPGD-3 in DIPGED(3)] [store I-DIPGD-4 in DIPGED(4)] [store I-DIPGD-5 in DIPGED(5)] [store I-DIPGD-6 in DIPGED(6)] [store I-DIPGD-7 in DIPGED(7)] [store I-DIPGD-8 in DIPGED(8)] [store I-DIPGD-9 in DIPGED(9)] [store I-DIPGD-10 in DIPGED(10)] [store I-DIPGD-11 in DIPGED(11)] [store I-DIPGD-12 in DIPGED(12)] [store I-DIPGD-13 in DIPGED(13)] [store I-DIPGD-14 in DIPGED(14)] [store I-DIPGD-15 in DIPGED(15)] [store I-DIPGD-16 in DIPGED(16)] [store I-HGCMP-1 in HGCOMP(1)] [store I-HGCMP-2 in HGCOMP(2)] [store I-HGCMP-3 in HGCOMP(3)] [store I-HGCMP-4 in HGCOMP(4)] [store I-HGCMP-5 in HGCOMP(5)] [store I-HGCMP-6 in HGCOMP(6)] [store I-HGCMP-7 in HGCOMP(7)] [store I-HGCMP-8 in HGCOMP(8)] [store I-HGCMP-9 in HGCOMP(9)] [store I-HGCMP-10 in HGCOMP(10)] [store I-HGCMP-11 in HGCOMP(11)] [store I-HGCMP-12 in HGCOMP(12)] [store I-HGCMP-13 in HGCOMP(13)] [store I-HGCMP-14 in HGCOMP(14)] [store I-HGCMP-15 in HGCOMP(15)] [store I-HGCMP-16 in HGCOMP(16)] [store I-CYC-1 in CYC(1)] [store I-CYC-2 in CYC(2)] [store I-CYC-3 in CYC(3)] [store I-CYC-4 in CYC(4)] [store I-CYC-5 in CYC(5)] [store I-CYC-6 in CYC(6)] [store I-CYC-7 in CYC(7)] [store I-CYC-8 in CYC(8)] [store I-CYC-9 in CYC(9)] [store I-CYC-10 in CYC(10)] [store I-CYC-11 in CYC(11)] [store I-CYC-12 in CYC(12)] [store I-CYC-13 in CYC(13)] [store I-CYC-14 in CYC(14)] [store I-CYC-15 in CYC(15)] [store I-CYC-16 in CYC(16)] [store I-GRPRF-1 in GRPROF(1)] [store I-GRPRF-2 in GRPROF(2)] [store I-GRPRF-3 in GRPROF(3)] [store I-GRPRF-4 in GRPROF(4)] [store I-GRPRF-5 in GRPROF(5)] [store I-GRPRF-6 in GRPROF(6)] [store I-GRPRF-7 in GRPROF(7)] [store I-GRPRF-8 in GRPROF(8)] [store I-GRPRF-9 in GRPROF(9)] [store I-GRPRF-10 in GRPROF(10)] [store I-GRPRF-11 in GRPROF(11)] [store I-GRPRF-12 in GRPROF(12)] [store I-GRPRF-13 in GRPROF(13)] [store I-GRPRF-14 in GRPROF(14)] [store I-GRPRF-15 in GRPROF(15)] [store I-GRPRF-16 in GRPROF(16)] [store I-GR6CR-1 in GR6COR(1)] [store I-GR6CR-2 in GR6COR(2)] [store I-GR6CR-3 in GR6COR(3)] [store I-GR6CR-4 in GR6COR(4)] [store I-GR6CR-5 in GR6COR(5)] [store I-GR6CR-6 in GR6COR(6)] [store I-GR6CR-7 in GR6COR(7)] [store I-GR6CR-8 in GR6COR(8)] [store I-GR6CR-9 in GR6COR(9)] [store I-GR6CR-10 in GR6COR(10)] [store I-GR6CR-11 in GR6COR(11)] [store I-GR6CR-12 in GR6COR(12)] [store I-GR6CR-13 in GR6COR(13)] [store I-GR6CR-14 in GR6COR(14)] [store I-GR6CR-15 in GR6COR(15)] [store I-GR6CR-16 in GR6COR(16)] [store I-MS123-1 in MS123(1)] [store I-MS123-2 in MS123(2)] [store I-MS123-3 in MS123(3)] [store I-MS123-4 in MS123(4)] [store I-MS123-5 in MS123(5)] [store I-MS123-6 in MS123(6)] [store I-MS123-7 in MS123(7)] [store I-MS123-8 in MS123(8)] [store I-MS123-9 in MS123(9)] [store I-MS123-10 in MS123(10)] [store I-MS123-11 in MS123(11)] [store I-MS123-12 in MS123(12)] [store I-MS123-13 in MS123(13)] [store I-MS123-14 in MS123(14)] [store I-MS123-15 in MS123(15)] [store I-MS123-16 in MS123(16)] $end ---------------------------------------------------------------------- $>inputst5< [store I-SUBFM-1 in SUBFAM(1)] [store I-SUBFM-2 in SUBFAM(2)] [store I-SUBFM-3 in SUBFAM(3)] [store I-SUBFM-4 in SUBFAM(4)] [store I-SUBFM-5 in SUBFAM(5)] [store I-SUBFM-6 in SUBFAM(6)] [store I-SUBFM-7 in SUBFAM(7)] [store I-SUBFM-8 in SUBFAM(8)] [store I-SUBFM-9 in SUBFAM(9)] [store I-SUBFM-10 in SUBFAM(10)] [store I-SUBFM-11 in SUBFAM(11)] [store I-SUBFM-12 in SUBFAM(12)] [store I-SUBFM-13 in SUBFAM(13)] [store I-SUBFM-14 in SUBFAM(14)] [store I-SUBFM-15 in SUBFAM(15)] [store I-SUBFM-16 in SUBFAM(16)] COMMENT: THIS CODE TAKES THE RESPONDENT FROM LAST MONTH AND STORES IT INTO lsthri FOR THIS INTERVIEW [store <0> in index] [convert I-HHR character to index integer] [NIF index ge <1> AND index le <16> then] [store <1> in lsthri(index)] [ENDIF] [store index in RESPLI] [store name(index) in RESPNA] [store I-ADD1 in HADDR1] [store I-ADD2 in HADDR2] [store I-city in HADDCT] [store I-state in HADDST] [store I-ZIP in HADDZP] [store I-misck in MISCK] [store I-out1 in PROUT1] PREVIOUS MONTHS OUTCOMES [store I-out2 in PROUT2] [store I-out3 in PROUT3] [store I-out4 in PROUT4] [store I-out5 in PROUT5] [store I-out6 in PROUT6] [store I-out7 in PROUT7] [store I-out8 in PROUT8] [store I-HHNUM in HHNUM] [store I-HALNO in HALNO] [convert HALNO character to HALNO-i integer] [store I-HOMOFF in homoff] [store I-HVSFLG in HVSFLG] [store I-PNOT1A in PNOT1a] [store I-PNOT1B in PNOT1b] [store I-PNOT1c in PNOT1c] [store I-PNOT1d in PNOT1d] [store I-PNOT2 in PNOT2] [store I-PNOT3 in PNOT3] CHANGED FEB 95 [NIF inotsa is < > AND PNOT1a isnt < > then] [store PNOT1A in inotsa] [ENDIF] [NIF inotsa is < > AND PNOT1b isnt < > then] [store PNOT1b in inotsa] [ELSEIF inotsb is < > AND PNOT1b isnt < > then] [store PNOT1b in inotsb] [ENDIF] [NIF inotsa is < > AND PNOT1c isnt < > then] [store PNOT1c in inotsa] [ELSEIF inotsb is < > AND PNOT1c isnt < > then] [store PNOT1c in inotsb] [ELSEIF inotsc is < > AND PNOT1c isnt < > then] [store PNOT1c in inotsc] [ENDIF] [NIF inotsa is < > AND PNOT1d isnt < > then] [store PNOT1d in inotsa] [ELSEIF inotsb is < > AND PNOT1d isnt < > then] [store PNOT1d in inotsb] [ELSEIF inotsc is < > AND PNOT1d isnt < > then] [store PNOT1d in inotsc] [ELSEIF inotsd is < > AND PNOT1d isnt < > then] [store PNOT1d in inotsd] [ENDIF] [NIF inotsa is < > AND PNOT2 isnt < > then] [store PNOT2 in inotsa] [ELSEIF inotsb is < > AND PNOT2 isnt < > then] [store PNOT2 in inotsb] [ELSEIF inotsc is < > AND PNOT2 isnt < > then] [store PNOT2 in inotsc] [ELSEIF inotsd is < > AND PNOT2 isnt < > then] [store PNOT2 in inotsd] [ELSEIF inotse is < > AND PNOT2 isnt < > then] [store PNOT2 in inotse] [ENDIF] [NIF inotsa is < > AND PNOT3 isnt < > then] [store PNOT3 in inotsa] [ELSEIF inotsb is < > AND PNOT3 isnt < > then] [store PNOT3 in inotsb] [ELSEIF inotsc is < > AND PNOT3 isnt < > then] [store PNOT3 in inotsc] [ELSEIF inotsd is < > AND PNOT3 isnt < > then] [store PNOT3 in inotsd] [ELSEIF inotse is < > AND PNOT3 isnt < > then] [store PNOT3 in inotse] [ELSEIF inotsf is < > AND PNOT3 isnt < > then] [store PNOT3 in inotsf] [ENDIF] THE FOLLOWING VARIABLES ARE STORED INTO PERMANENT BECAUSE NEW PROCESSING SYSTEM WILL NOT SAVE ANY I- VARIABLES [store I-EXT in EXT] [store I-SEXT in SEXT] [store I-AMPM in AMPM] [store I-SAMPLE in SAMPLE] [store I-TENURE in TENURE] [store I-TELHHD in TELHHD] [store I-TELAVL in TELAVL] [store I-TELINT in PHONEO] [store I-FAMINC in FAMINC] [store I-LNDUSE in LNDUSE] [store I-HOUSUT in HOUSUT] [store I-SEGTYP in SEGTYP] [store I-SPCODE in SPCODE] [store I-SPNAME in SPNAME] [store I-ACCESS in ACCESS] [store I-SPHONE in SPHONE] [store I-SHOMOF in SHOMOF] [store I-CPROBE in CPROBE] [store I-PAREA in PAREA] [store I-AREASP in AREASP] [store I-AREAMH in AREAMH] [store I-MULTUT in MULTUT] [store I-MULTSZ in MULTSZ] ADDED IN DECEMBER [store I-yrblt in YRBLT] [store I-SITE in SITE] [Store I-NOSUN in NOSUN] [store i-besttm in bestti] [store I-REFLD in REFLD] ADDED FOR DECEMBER [store I-MARHIS in MARHIS] [do index <1> <16>] ADDED DEC 95 [NIF SSN(R_P) is or SSN(R_P) is then] [store < > in SSN(R_P)] [ENDIF] [end do] ADDED FOR OCTOBER [store I-DESIGN in DESIGN] [store I-CONTYA in CONTYA] [store I-PH2NUM in PH2NUM] [store <9> in SUPFLG] **S ADDED CW 1/8/97 ** MOVERS ** [store <0> in SPIN-FLG] $end ------------------------------------------------------------------------ SECTION **2E** ROSTER SETUP COMMENT: THE FIXINP ROSTER IS USED TO SET ALL NECESSARY VARIABLES BASED ON THE INPUT INFORMATION. (VARIABLES SUCH AS NROSIZ, AGERNG, ETC) $>NOW-FIXINP< [store <1> in NEWRRP] ** RRP ** SPD ** [do index <1> <16>] [store <0> in index2] [convert RRP(index) character to index2 integer] [if index2 ge <18> then store <1> in NEWRRP] [end do] [IF MISCK is <1> then store <1> in NEWRRP] [IF MISCK is <5> then store <1> in NEWRRP] $end $ROPEN>FIXINP< $>AFT-FIXINP< [IF NROSIZ eq <0> then store <1> in NEWRRP] ADDED THE CODING BELOW TO SET NUMHOU AND NROSIZ EQUAL TO 16 FOR HOUSEHOLD THAT CONTAIN 16 PEOPLE ON INPUT CCW 10/28 [NIF FIXINP_R_P eq <16> AND NROSIZ eq <0> then] [store <16> in NROSIZ] [ENDIF] IF THERE IS NO RRP EQ 3 (SPOUSE) OR RRP EQ 6 (PARENT) THEN THE REFERENCE PERSONS SPOUSE LINE NUMBER AND/OR PARENT LINE NUMBER SHOULD BE SET TO 0 [do index <1> NROSIZ] [IF RRP(index) is <3> then store <1> in index2] [IF RRP(index) is <20> then store <1> in index2] ** RRP [IF RRP(index) is <6> then store <1> in index3] [IF RRP(index) is <24> then store <1> in index3] ** RRP [end do] [if index2 eq <0> then store <0> in SPOUSE(RefPer)] [if index3 eq <0> then store <0> in PARENT(RefPer)] FOR HOUSEHOLDS WITH LESS THAT 16 PEOPLE NUMHOU WOULD HAVE ALREADY BEEN SET UP IN ITEM SETEOL [If NUMHOU nq <0> then goto rset] SETS UP NUMHOU WHEN THERE ARE 16 PEOPLE IN THE HOUSEHOLD ON INPUT [store <0> in NUMHOU] [do index <1> <16>] [if hhmem(index) is <1> then add <1> to NUMHOU] Number of hh members [end do] [goto rset] $end ======================================================================== $RBEGIN>FIXINP< [maxelt 16] ------------------------------------------------------------------------------ COMMENT: This item sets up END OF LIST for the household $>setEOL< [if LINENO(R_P) isnt < > then goto IDo-rel] [store <0> in index] [store <0> in index2] [if LINENO(R_P) is < > then store <1> in index] [store R_P in index2] [if index2 ge <2> then subtract <1> from index2] [if name(index2) is then add <10> to index] [if index eq <1> then store in name(R_P)] [NIF name(R_P) is then] [store <11> in pelig(R_P)] [store <9> in DELDEC(R_P)] [ENDIF] [store <0> in NUMHOU] [do index <1> R_P] [if hhmem(index) is <1> then add <1> to NUMHOU] NUMBER OF HH MEMBERS [end do] [store R_P in NROSIZ] [subtract <1> from NROSIZ] NUMBER OF ROSTER POSITIONS USED UP [store <0> in index] [store R_P in index] ROSTER POSITION WITH EOL [add <1> to index] FIRST POSITION AFTER EOL [if index gt <16> then roster exit] SETS UP PELIG FOR ALL POSITIONS AFTER END OF LIST [do index2 index <16>] [store <12> in pelig(index2)] [end do] [roster exit] $end -------------------------------------------------------------------------- COMMENT: this item sets up everyone relationship in the household $>IDo-rel< [store < > in relation(R_P)] [store <0> in index] [convert RRP(R_P) character to index integer] [NIF index nq <0> AND NEWRRP eq <0> then] ** RRP [store reltab(index) in relation(R_P)] [ELSEIF index nq <0> AND NEWRRP eq <1> then] [store n-reltab(index) in relation(R_P)] [ENDIF] [if RRP(R_P) is <01> then store R_P in RefPer] [if RRP(R_P) is <18> then store R_P in RefPer] ** RRP [if RRP(R_P) is <02> then store R_P in RefPer] [if RRP(R_P) is <19> then store R_P in RefPer] ** RRP IF PERSONS RRP EQ 3 (SPOUSE) THEN PLUG THEIR LINE NUMBER INTO LINE NUMBER OF SPOUSE OF REFERENCE PERSON [IF RRP(R_P) is <3> then store LINENO(R_P) in SPOUSE(RefPer)] [IF RRP(R_P) is <20> then store LINENO(R_P) in SPOUSE(RefPer)] ** RRP IF PERSONS RRP EQ 6 (PARENT) THEN PLUG THEIR LINE NUMBER INTO LINE NUMBER OF PARENT OF REFERENCE PERSON [IF RRP(R_P) is <6> then store LINENO(R_P) in PARENT(RefPer)] [IF RRP(R_P) is <24> then store LINENO(R_P) in PARENT(RefPer)] ** RRP IF PERSONS RRP EQ 4 (CHILD) THEN PLUG THE REFERENCE PERSON LINE NUMBER INTO THEIR PARENT LINE NUMBER [IF RRP(R_P) is <4> then store LINENO(RefPer) in PARENT(R_P)] [IF RRP(R_P) is <22> then store LINENO(RefPer) in PARENT(R_P)] ** RRP IF PERSONS RRP EQ 7 (SIBLING) AND THE REFERENCE PERSON HAS A PARENT LINE NUMBER THEN PLUG THE REFERENCE PERSON PARENT LINE NUMBER INTO THEIR PARENT LINE NUMBER [NIF RRP(R_P) is <7> AND PARENT(RefPer) isnt <0> then] [store PARENT(RefPer) in PARENT(R_P)] [ENDIF] [NIF RRP(R_P) is <25> AND PARENT(RefPer) isnt <0> then] ** RRP [store PARENT(RefPer) in PARENT(R_P)] [ENDIF] $end ------------------------------------------------------------------------- $>pre-idoage< IF WE HAVE BIRTH MONTH AND YEAR, WE COMPUTE AGE. OTHERWISE WE USE THE AGE THAT IS INPUT TO SET UP AGERNG. [store <0> in index] [NIF BIRTHM(R_P) is < > OR BIRTHM(R_P) is then] [store <1> in index] [ELSEIF BIRTHM(R_P) is then] [store <1> in index] [ENDIF] [NIF BIRTHY(R_P) is < > OR BIRTHY(R_P) is then] [store <1> in index] [ELSEIF BIRTHY(R_P) is then] [store <1> in index] [ENDIF] [If index eq <0> then goto ido-age] [store <0> in age-i(R_P)] [convert age(R_P) character to age-i(R_P) integer] [goto Ido-agerng] $end ------------------------------------------------------------------------------ $>Ido-age< [store <0> in jdate-i] [store <0> in mon-i] [setdate jdate-i mon-i day-i year-i date-c wkday1-c wkday2-c] [convert BIRTHM(R_P) character to BrthM-i(R_P) integer] [convert BIRTHY(R_P) character to BrthY-i(R_P) integer] [store <0> in age-i(R_P)] [store year-i in index] [subtract <1900> from index] [add index to age-i(R_P)] [if BrthY-i(R_P) gt index then add <100> to age-i(R_P)] [subtract BrthY-i(R_P) from age-i(R_P)] Calculates age as of last month [if mon-i le BrthM-i(R_P) then subtract <1> from age-i(R_P)] [convert BIRTHD(R_P) character to BrthD-i(R_P) integer] [if BIRTHD(R_P) is < > then store <15> in BrthD-i(R_P)] [store day-i in index] [CASE wkday1-c] [OF then] [subtract <1> from index] [OF then] [subtract <2> from index] [OF then] [subtract <3> from index] [OF then] [subtract <4> from index] [OF then] [subtract <5> from index] [OF then] [subtract <6> from index] [OF then] [subtract <7> from index] [ENDCASE] UPDATES AGE IF PERSON HAD A BIRTHDAY DURING CURRENT MONTH AND BEFORE INTERVIEW WEEK [NIF BrthM-i(R_P) eq mon-i AND BrthD-i(R_P) le index then] [add <1> to age-i(R_P)] [ENDIF] [if age-i(R_P) gt <99> then store <99> in age-i(R_P)] [convert age-i(R_P) integer to age(R_P) character] $end ------------------------------------------------------------------------------ COMMENT: THIS ITEM SETS UP AGERNG (AGE RANGE) BASED ON THE PERSONS AGE $>IDo-AgeRng< [store <9> in AGERNG(R_P)] [NIF age-i(R_P) le <14> then] [store <1> in AGERNG(R_P)] [ELSEIF age-i(R_P) eq <15> then] [store <2> in AGERNG(R_P)] [ELSEIF age-i(R_P) le <24> then] [store <3> in AGERNG(R_P)] [ELSEIF age-i(R_P) le <49> then] [store <4> in AGERNG(R_P)] [ELSEIF age-i(R_P) le <64> then] [store <5> in AGERNG(R_P)] [ELSEIF age-i(R_P) le <99> then] [store <6> in AGERNG(R_P)] [ENDIF] $end ------------------------------------------------------------------------------ COMMENT: THE FIRST BLOCK OF CODING STORES THE VALUE OF I-CHH AND THEN USES IT TO SET UP HHMEM, DELDEC, AND AFNOW. I-CHH IS WHERE THE A NOTE OF A CHANGE IN HH COMP. CHINHH, ON THE OTHER HAND, IS CHANGE IN HH COMP SINCE THE CASE AT HTC. $>setstatus< [store I-CHH-1 in table(1)] [store I-CHH-2 in table(2)] [store I-CHH-3 in table(3)] [store I-CHH-4 in table(4)] [store I-CHH-5 in table(5)] [store I-CHH-6 in table(6)] [store I-CHH-7 in table(7)] [store I-CHH-8 in table(8)] [store I-CHH-9 in table(9)] [store I-CHH-10 in table(10)] [store I-CHH-11 in table(11)] [store I-CHH-12 in table(12)] [store I-CHH-13 in table(13)] [store I-CHH-14 in table(14)] [store I-CHH-15 in table(15)] [store I-CHH-16 in table(16)] [store <0> in index] [if table(R_P) isnt < > then convert table(R_P) character to index integer] [CASE index] [OF <1> then] [store <1> in hhmem(R_P)] [OF <2> then] [store <2> in hhmem(R_P)] [OF <3> then] [store <1> in hhmem(R_P)] [store <0> in DELDEC(R_P)] [OF <4> then] [store <2> in hhmem(R_P)] [store <2> in DELDEC(R_P)] [OF <5> then] [store <2> in hhmem(R_P)] [store <1> in DELDEC(R_P)] [OF <6> then] [store <1> in AFNOW(R_P)] [OF <7> then] [store <2> in AFNOW(R_P)] [ENDCASE] [store <0> in index] [if CHINHH(R_P) isnt < > then convert CHINHH(R_P) character to index integer] [CASE CHINHH(R_P)] [OF <1> then] [store <1> in hhmem(R_P)] [OF <2> then] [store <2> in hhmem(R_P)] [OF <3> then] [store <1> in hhmem(R_P)] [store <0> in DELDEC(R_P)] [OF <4> then] [store <2> in hhmem(R_P)] [store <2> in DELDEC(R_P)] [OF <5> then] [store <2> in hhmem(R_P)] [store <1> in DELDEC(R_P)] [OF <6> then] [store <1> in AFNOW(R_P)] [OF <7> then] [store <2> in AFNOW(R_P)] [ENDCASE] [if hhmem(R_P) is <2> then store in relation(R_P)] [IF HHMEM(R_P) IS <3> THEN STORE in relation(R_P)] [NIF DELDEC(R_P) is <1> OR DELDEC(R_P) is <3> then] [store <*deleted*> in relation(R_P)] [ELSEIF DELDEC(R_P) is <2> then] [store <*deceased> in relation(R_P)] [ENDIF] [store <1> in pelig(R_P)] [NIF DELDEC(R_P) is <9> then] [store <11> in pelig(R_P)] [ELSEIF Donper(R_P) is <1> then] [store <2> in pelig(R_P)] [ELSEIF misper(R_P) is <1> then] [store <3> in pelig(R_P)] [ELSEIF DELDEC(R_P) is <3> OR DELDEC(R_P) is <1> then] [store <9> in pelig(R_P)] [ELSEIF DELDEC(R_P) is <2> then] [store <10> in pelig(R_P)] [ELSEIF hhmem(R_P) is <2> OR hhmem(R_P) is <3> then] [store <8> in pelig(R_P)] [ELSEIF AGERNG(R_P) eq <1> then] [store <7> in pelig(R_P)] [ELSEIF AFNOW(R_P) is <1> then] [store <6> in pelig(R_P)] [ELSEIF AGERNG(R_P) eq <9> then] [store <5> in pelig(R_P)] [ENDIF] [if origin(R_P) is <39> then store < > in origin(R_P)] $end ---------------------------------------------------------------------------- $REND>FIXINP< ---------------------------------------------------------------------------- =============================================================================== SECTION **3** - SET DATES, TIME, START, AND TEMPORARY INPUT =============================================================================== COMMENT: THE FOLLOWING INSTRUCTIONS INITIALIZE VARIABLES AND RESET ITEMS AT THE START OF EACH CALL. $>rset< [store <0> in jdate-i] [store <0> in mon-i] SETS CURRENT DATE [setdate jdate-i mon-i day-i year-i date-c wkday1-c wkday2-c] [store <0> in time-i] [store <0> in hr-i] SETS CURRENT TIME [settime time-i hr-i min-i ampm-c time1-c time2-c] [store <0> in rtime-i] [store <0> in rhr-i] SETS CURRENT RESPONDENT TIME [setrtime rtime-i rhr-i rmin-i rampm-c rtime1-c rtime2-c timezone dstime] SETS UP CALLBACK DATE AND TIME IF THEY HAVE BEEN SET DURING A PREVIOUS CALL [store <0> in cbmon-i] [store < > in cbdatc] [store < > in cbtimc] [if cbdate nq <0> then setdate cbdate cbmon-i cbday-i cbyear-i cbdatc cbwd1-c cbwd2-c] [if cbtime nq <0> then settime cbtime cbhr-i cbmin-i cbampm-c cbtimc cbtm2-c] [store <0> in hanguptime] [store <0> in anstime] [store outcome in lstout] STORE THE OUTCOME FROM THE PREVIOUS CALL [if lstout lt <200> then store <0> in lstout] added in order to run on cati system (90 OUTCOMES) [store <0> in outcome] [store <1> in wheredex] [if wheredex gt fardex then store wheredex in fardex] [store <0> in caseuser(3:3)] NEED TO RESET EACH TIME COMMENT: STORE THE VALUE OF THE TRUE MONTH IN SAMPLE INTO MISFLG SO THAT MISFLG CAN BE ALTERED. YOU NEVER WANT TO ALTER MISCK. [store MISCK in MISFLG] COMMENT: IF THE CURRENT MONTH IN SAMPLE IS 5 BUT THERE ARE NO PEOPLE IN THE HOUSEHOLD THEY YOU NEED TO SET MISFLG TO 1 SO THAT THE CASE WILL ACT LIKE A MONTH IN SAMPLE 1. [NIF MISCK is <5> AND name(1) is then] [store <1> in MISFLG] [ENDIF] COMMENT: IF THE LAST MONTH WAS A VACANT OR A TYPE A AND THERE IS NO HOUSEHOLD ROSTER THEN IT SHOULD ACT LIKE A MONTH-IN-SAMPLE 1 CASE. (MISFLG=1) [store <0> in index] [store <0> in index2] [convert MISCK character to index integer] [subtract <1> from index] [NIF index eq <1> then] [convert PROUT1 character to index2 integer] [ELSEIF index eq <2> then] [convert PROUT2 character to index2 integer] [ELSEIF index eq <3> then] [convert PROUT3 character to index2 integer] [ELSEIF index eq <4> then] [convert PROUT4 character to index2 integer] [ELSEIF index eq <5> then] [convert PROUT5 character to index2 integer] [ELSEIF index eq <6> then] [convert PROUT6 character to index2 integer] [ELSEIF index eq <7> then] [convert PROUT7 character to index2 integer] [ELSEIF index eq <8> then] [convert PROUT8 character to index2 integer] [ENDIF] [NIF index2 ge <226> AND index2 le <233> then] [If name(1) is then store <1> in MISFLG] [ENDIF] [NIF index2 ge <216> AND index2 le <219> then] [If name(1) is then store <1> in MISFLG] [ENDIF] ADDED FOR RETURNING CASES THAT WILL COME IN WITH NO HOUSEHOLD ROSTER THESE CASES NEED TO ACT LIKE MONTH-IN-SAMPLE ON E CASES. [NIF index2 eq <0> AND name(1) is then] [store <1> in MISFLG] [ENDIF] ***ADDED TO FIX THE PROBLEM THAT THE CAPI CASE MANAGEMENT DOES NOT KEEP MARKTWO [NIF lstout eq <204> OR lstout eq <201> then] [store <02> in marktwo] [ELSEIF lstout eq <205> then] [store <05> in marktwo] [if mark eq <18> then store <06> in marktwo] [ENDIF] THIS CODE SETS-UP THE REFERENCE WEEK FILL IN THE VARIABLE "WHATWEEK". [store <0> in index] [store day-i in index] [CASE wkday1-c] [OF then] [subtract <1> from index] [OF then] [subtract <2> from index] [OF then] [subtract <3> from index] [OF then] [subtract <4> from index] [OF then] [subtract <5> from index] [OF then] [subtract <6> from index] [ENDCASE] ** SPD ** default last week [store in WHATWEEK] [store in whatwk2] [store in swhatwk] [store in Swhatwk2] [goto start] $end =============================================================================== SECTION **4** REFERENCE ITEMS =============================================================================== GENERAL REFERENCE ITEMS ----------------------------------------------------------------------------- COMMENT: This item displays the household composition. It is accessed by using the Shift and F1 keys. From this screen, iterviewers may go to the change screen at any time during the interview. $>HH-Comp< [reference:1] [do index <1> <10>] [store < > in table(index)] [store < > in relation(index)] [if LINENO(index) is < > then store < > in table(index)(5:6)] [end do] [store <0> in index] [store NROSIZ in index] [if index gt <10> then store <10> in index] [do index2 <1> index] [if RESPLI eq index2 then store in table(index2)(3:3)] [store <0> in index3] [If LINENO(index2) isnt < > then convert LINENO(index2) character to index3 integer] [NIF index3 le <9> AND index3 ge <1> then] [convert index3 integer to table(index2)(6:6) character] [ELSEIF index3 ge <10> then] [convert index3 integer to table(index2)(5:6) character] [ENDIF] [store name(index2) in table(index2)(8:25)] [store <0> in index3] [convert RRP(index2) character to index3 integer] [NIF index3 nq <0> AND NEWRRP eq <0> then] ** RRP [store reltab(index3) in relation(index2)] [ELSEIF index3 nq <0> AND NEWRRP eq <1> then] [store n-reltab(index3) in relation(index2)] [ENDIF] [NIF hhmem(index2) is <1> then] [store in table(index2)(1:1)] [ELSEIF hhmem(index2) is <2> then] [store in relation(index2)] [ELSEIF hhmem(index2) is <3> then] [store in relation(index2)] [ENDIF] [NIF DELDEC(index2) is <1> OR DELDEC(index2) is <3> then] [store <*deleted*> in relation(index2)] [ELSEIF DELDEC(index2) is <2> then] [store <*deceased> in relation(index2)] [store <*DECEASED*> in table(index2)(8:25)] [ENDIF] [store relation(index2) in table(index2)(31:40)] [NIF sex(index2) is <2> then] [store in table(index2)(42:42)] [ELSEIF sex(index2) is <1> then] [store in table(index2)(42:42)] [ENDIF] [NIF age-i(index2) le <9> AND age-i(index2) gt <0> then] [store age(index2) in table(index2)(45:45)] [ELSEIF age-i(index2) ge <10> then] [store age(index2) in table(index2)(44:45)] [ENDIF] [store <0> in index4] [NIF MARITL(index2) isnt < > AND MARITL(index2) isnt then] [convert MARITL(index2) character to index4 integer] [ENDIF] [If index4 nq <0> then store Martab(index4) in table(index2)(48:51)] [CASE AFEVER(index2)] [OF <1> then] [store in table(index2)(53:53)] [OF <2> then] [store in table(index2)(53:53)] [ENDCASE] [store <0> in index4] [NIF AFWHEN(index2) isnt < > AND AFWHEN(index2) isnt then] [convert AFWHEN(index2) character to index4 integer] [ELSEIF AFWHEN(index2) is then] [store in table(index2)(58:61)] [ENDIF] [If index4 nq <0> then store AFtab(index4) in table(index2)(58:61)] [CASE AFNOW(index2)] [OF <1> then] [store in table(index2)(63:63)] [OF <2> then] [store in table(index2)(63:63)] [ENDCASE] [NIF EDUCA(index2) isnt then] [store EDUCA(index2) in table(index2)(67:68)] [ENDIF] [store <0> in index4] [NIF race(index2) isnt < > AND race(index2) isnt then] [convert race(index2) character to index4 integer] [ELSEIF race(index2) is then] [store in table(index2)(72:75)] [ENDIF] [If index4 nq <0> then store racetab(index4) in table(index2)(72:75)] [store origin(index2) in table(index2)(77:78)] [end do] [convert NUMHOU integer to temptext character] [store < > in temp3] [store < > in temp2] [NIF CHANGE is

then] [store in temp2] [store <**JUMP FORWARD AFTER CHANGE**> in temp3] [ENDIF] [store < > in temp6] [If mark ge <14> then store in temp6] [store <0> in index3] [store < > in temp4] [convert I-HHR character to index3 integer] [store name(index3) in temp4] [store < > in temp5] [if NROSIZ gt <10> then store in temp5] [store phonenum in pn] PN IS USED BECAUSE PHONENUM WOULD CAUSE THE CODE TO GO BEYOUND 132 $d >HH-Comp< THIS SCREEN PRESENTS THE CURRENT HH COMPOSITION NUMBER OF PERSONS RECORDED IN HH: [fill temptext(1:3)] MONTH-IN-SAMPLE:[fill MISCK] LAST RESPONDENT: [fill temp4] Phone number ([fill pn(2:4)]) [fill pn(5:7)]-[fill pn(8:11)] MAR AF AF AF M R LN NAME RELATION SX AGE STAT EVER WHEN NOW ED RACE OR [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] ENTER

TO PROCEED [fill temp5] [fill temp2] [fill temp3] [fill temp6] [blind] Back to CHANGE screen for corrections [backto CHANGE] TO REVIEW REST OF HOUSEHOLD [if NROSIZ gt <11> then referto hh-comp2] [referto ref-bad] Change respondent only [if mark lt <14> then referto ref-bad] [referto resp-chg] ===>_ $end --------------------------------------------------------------------------- $>HH-Comp2< [reference] [do index <11> <16>] [store < > in table(index)] [store < > in relation(index)] [if LINENO(index) is < > then store < > in table(index)(5:6)] [end do] [do index <11> NROSIZ] [if RESPLI eq index then store in table(index)(3:3)] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to table(index)(6:6) character] [ELSEIF index2 ge <10> then] [convert index2 integer to table(index)(5:6) character] [ENDIF] [store name(index) in table(index)(8:25)] [store <0> in index3] [convert RRP(index) character to index3 integer] [NIF index3 nq <0> AND NEWRRP eq <0> then] ** RRP [store reltab(index3) in relation(index)] [ELSEIF index3 nq <0> AND NEWRRP eq <1> then] [store n-reltab(index3) in relation(index)] [ENDIF] [NIF hhmem(index) is <1> then] [store in table(index)(1:1)] [ELSEIF hhmem(index) is <2> then] [store in relation(index)] [ELSEIF hhmem(index) is <3> then] [store in relation(index)] [ENDIF] [NIF DELDEC(index) is <1> OR DELDEC(index) is <3> then] [store <*deleted*> in relation(index)] [ELSEIF DELDEC(index) is <2> then] [store <*deceased> in relation(index)] [store <*DECEASED*> in table(index)(8:25)] [ENDIF] [store relation(index) in table(index)(31:40)] [NIF sex(index) is <2> then] [store in table(index)(42:42)] [ELSEIF sex(index) is <1> then] [store in table(index)(42:42)] [ENDIF] [NIF age-i(index) le <9> AND age-i(index) gt <0> then] [store age(index) in table(index)(45:45)] [ELSEIF age-i(index) ge <10> then] [store age(index) in table(index)(44:45)] [ENDIF] [store <0> in index4] [NIF MARITL(index) isnt < > AND MARITL(index) isnt then] [convert MARITL(index) character to index4 integer] [ENDIF] [If index4 nq <0> then store Martab(index4) in table(index)(48:51)] [CASE AFEVER(index)] [OF <1> then] [store in table(index)(53:53)] [OF <2> then] [store in table(index)(53:53)] [ENDCASE] [store <0> in index4] [NIF AFWHEN(index) isnt < > AND AFWHEN(index) isnt then] [convert AFWHEN(index) character to index4 integer] [ELSEIF AFWHEN(index) is then] [store in table(index)(58:61)] [ENDIF] [If index4 nq <0> then store AFtab(index4) in table(index)(58:61)] [CASE AFNOW(index)] [OF <1> then] [store in table(index)(63:63)] [OF <2> then] [store in table(index)(63:63)] [ENDCASE] [NIF EDUCA(index) isnt then] [store EDUCA(index) in table(index)(67:68)] [ENDIF] [store <0> in index4] [NIF race(index) isnt < > AND race(index) isnt then] [convert race(index) character to index4 integer] [ELSEIF race(index) is then] [store in table(index)(72:75)] [ENDIF] [If index4 nq <0> then store racetab(index4) in table(index)(72:75)] [store origin(index) in table(index)(77:78)] [end do] [convert NUMHOU integer to temptext character] [store < > in temp3] [store < > in temp2] [NIF CHANGE is

then] [store in temp2] [store <**JUMP FORWARD AFTER CHANGE**> in temp3] [ENDIF] [store < > in temp6] [If mark ge <14> then store in temp6] [store <0> in index3] [store < > in temp4] [convert I-HHR character to index3 integer] [store name(index3) in temp4] $d >HH-Comp2< THIS SCREEN PRESENTS THE SECOND HALF OF THE CURRENT HH COMPOSITION NUMBER OF PERSONS RECORDED IN HH: [fill temptext(1:3)] MONTH-IN-SAMPLE:[fill MISCK] LAST RESPONDENT: [fill temp4] MAR AF AF AF M R LN NAME RELATION SX AGE STAT EVER WHEN NOW ED RACE OR [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] ENTER

TO PROCEED ENTER TO REVIEW PREVIOUS HOUSEHOLD COMPOSITION [referto hh-comp] [fill temp2] [fill temp3] [fill temp6] [blind] Back to CHANGE screen for corrections [backto CHANGE] CHANGE RESPONDENT ONLY [if mark lt <14> then referto ref-bad] [referto resp-chg] ===>_ $end --------------------------------------------------------------------------- $>Purpose< [reference:2] [store < > in temptext] [NIF caseuser(6:6) is <3> OR caseuser(6:6) is <4> then] [store <4> in temptext] [ELSE] [store <8> in temptext] [ENDIF] **S PRECODE M $d >Purpose< ***FREQUENTLY ASKED QUESTIONS*** <1> WHAT IS THIS SURVEY ALL ABOUT? [referto purpose-1] <2> WHY DO THE CONGRESS AND THE CENSUS BUREAU [referto purpose-2] NEED THIS INFORMATION? <3> HOW WAS I SELECTED? [referto purpose-3] <4> WHY ARE MY ANSWERS IMPORTANT? [referto purpose-4] <5> INFORMATION ABOUT THIS INTERVIEW. [referto purpose-5] <6> WHAT GUARANTEE DO I HAVE THAT THE INFORMATION I GIVE [referto purpose-6] TO THE CENSUS BUREAU ABOUT MY PERSONAL BUSINESS IS NOT REPORTED TO OTHER PERSONS OR ORGANIZATIONS? MARCH Purposes and uses of the March Supplement data. [referto Ref-March] Income tax returns are not enough. OR, ENTER

TO PROCEED WITH THE INTERVIEW. ===>_ $end ----------------------------------------------------------------------------- $>suppl-ref< [reference:3] **S [do index <1> <11>] [store < > in table(index)] [if LINENO(index) is < > then store < > in table(index)(5:6)] [end do] [store <0> in index2] [store NROSIZ in index2] [if index2 gt <11> then store <11> in index2] [do index <1> index2] [store LINEno(index) in table(index)(1:2)] [store name(index) in table(index)(4:27)] [if q29a(index) is <1> then store in table(index)(29:29)] [store <0> in index2] [tablook Q56BLN index index2] [if index2 nq <0> then store in table(index)(32:32)] [store <0> in index2] [tablook Q57BLN index index2] [if index2 nq <0> then store in table(index)(35:35)] [store <0> in index2] [tablook Q58BLN index index2] [if index2 nq <0> then store in table(index)(38:38)] [store <0> in index2] [tablook Q59BLN index index2] [if index2 nq <0> then store in table(index)(41:41)] [store <0> in index2] [tablook Q60BLN index index2] [if index2 nq <0> then store in table(index)(41:41)] [store <0> in index2] [tablook Q62BLN index index2] [if index2 nq <0> then store in table(index)(44:44)] [store <0> in index2] [tablook Q63BLN index index2] [if index2 nq <0> then store in table(index)(47:47)] [store <0> in index2] [tablook Q64BLN index index2] [if index2 nq <0> then store in table(index)(50:50)] [store <0> in index2] [tablook Q65BLN index index2] [if index2 nq <0> then store in table(index)(53:53)] [store <0> in index2] [tablook Q66CLN index index2] [if index2 nq <0> then store in table(index)(56:56)] [store <0> in index2] [tablook Q70BLN index index2] [if index2 nq <0> then store in table(index)(65:65)] [store <0> in index2] [tablook Q71BLN index index2] [if index2 nq <0> then store in table(index)(68:68)] [store <0> in index2] [tablook Q72BLN index index2] [if index2 nq <0> then store in table(index)(71:71)] [store <0> in index2] [tablook Q73B1L index index2] [if index2 nq <0> then store in table(index)(71:71)] [tablook Q73B2L index index2] [if index2 nq <0> then store in table(index)(71:71)] [end do] [store < > in temp5] [if NROSIZ gt <11> then store in temp5] [store < > in temp2] [if FAMINC is <1> then store in temp2] [if FAMINC is <2> then store <$5,000 to 7499> in temp2] [if FAMINC is <3> then store <$7,500 to 9,999> in temp2] [if FAMINC is <4> then store <$10,000 to 12,499> in temp2] [if FAMINC is <5> then store <$12,500 to 14,999> in temp2] [if FAMINC is <6> then store <$15,000 to 19,999> in temp2] [if FAMINC is <7> then store <$20,000 to 24,999> in temp2] [if FAMINC is <8> then store <$25,000 to 29,999> in temp2] [if FAMINC is <9> then store <$30,000 to 34,999> in temp2] [if FAMINC is <10> then store <$35,000 to 39,999> in temp2] [if FAMINC is <11> then store <$40,000 to 49,999> in temp2] [if FAMINC is <12> then store <$50,000 to 59,999> in temp2] [if FAMINC is <13> then store <$60,000 to 74,999> in temp2] [if FAMINC is <14> then store <$75,000 or more> in temp2] $d ANNUAL INCOME: [fill temp2] >SUPPL-REF< OTHER INCOME SOURCES RECEIVED BY HOUSEHOLD MEMBERS WK SS SI SB DS PP SI SD RI EA CS AP OT A LN NAME 86 56 57 58 61 62 63 64 65 66 70 71 72-3 [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)]

TO PROCEED [fill temptext] [fill temp5] [blind] TO REVIEW REST OF HOUSEHOLD [if NROSIZ gt <11> then referto suppl-ref2] [referto ref-bad] ===>_ $end ----------------------------------------------------------------------------- $>suppl-ref2< [reference] **S [do index <12> <16>] [store < > in table(index)] [if LINENO(index) is < > then store < > in table(index)(5:6)] [end do] [do index <12> NROSIZ] [store LINEno(index) in table(index)(1:2)] [store name(index) in table(index)(4:27)] [if q29a(index) is <1> then store in table(index)(29:29)] [store <0> in index2] [tablook Q56BLN index index2] [if index2 nq <0> then store in table(index)(32:32)] [store <0> in index2] [tablook Q57BLN index index2] [if index2 nq <0> then store in table(index)(35:35)] [store <0> in index2] [tablook Q58BLN index index2] [if index2 nq <0> then store in table(index)(38:38)] [store <0> in index2] [tablook Q59BLN index index2] [if index2 nq <0> then store in table(index)(41:41)] [store <0> in index2] [tablook Q60BLN index index2] [if index2 nq <0> then store in table(index)(41:41)] [store <0> in index2] [tablook Q62BLN index index2] [if index2 nq <0> then store in table(index)(44:44)] [store <0> in index2] [tablook Q63BLN index index2] [if index2 nq <0> then store in table(index)(47:47)] [store <0> in index2] [tablook Q64BLN index index2] [if index2 nq <0> then store in table(index)(50:50)] [store <0> in index2] [tablook Q65BLN index index2] [if index2 nq <0> then store in table(index)(53:53)] [store <0> in index2] [tablook Q66CLN index index2] [if index2 nq <0> then store in table(index)(56:56)] [store <0> in index2] [tablook Q70BLN index index2] [if index2 nq <0> then store in table(index)(65:65)] [store <0> in index2] [tablook Q71BLN index index2] [if index2 nq <0> then store in table(index)(68:68)] [store <0> in index2] [tablook Q72BLN index index2] [if index2 nq <0> then store in table(index)(71:71)] [store <0> in index2] [tablook Q73B1L index index2] [if index2 nq <0> then store in table(index)(71:71)] [store <0> in index2] [tablook Q73B2L index index2] [if index2 nq <0> then store in table(index)(71:71)] [end do] [store < > in temp2] [if FAMINC is <1> then store in temp2] [if FAMINC is <2> then store <$5,000 to 7499> in temp2] [if FAMINC is <3> then store <$7,500 to 9,999> in temp2] [if FAMINC is <4> then store <$10,000 to 12,499> in temp2] [if FAMINC is <5> then store <$12,500 to 14,999> in temp2] [if FAMINC is <6> then store <$15,000 to 19,999> in temp2] [if FAMINC is <7> then store <$20,000 to 24,999> in temp2] [if FAMINC is <8> then store <$25,000 to 29,999> in temp2] [if FAMINC is <9> then store <$30,000 to 34,999> in temp2] [if FAMINC is <10> then store <$35,000 to 39,999> in temp2] [if FAMINC is <11> then store <$40,000 to 49,999> in temp2] [if FAMINC is <12> then store <$50,000 to 59,999> in temp2] [if FAMINC is <13> then store <$60,000 to 74,999> in temp2] [if FAMINC is <14> then store <$75,000 or more> in temp2] $d ANNUAL INCOME: [fill temp2] >SUPPL-REF2< OTHER INCOME SOURCES RECEIVED BY HOUSEHOLD MEMBERS WK SS SI SB DS PP SI SD RI EA CS AP OT A LN NAME 86 56 57 58 61 62 63 64 65 66 70 71 72-3 [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)]

TO PROCEED [fill temptext] ENTER TO REVIEW PREVIOUS HOUSEHOLD COMPOSITION [referto suppl-ref] ===>_ $end ----------------------------------------------------------------------------- LOCAL REFERENCE ITEMS ----------------------------------------------------------------------------- COMMENT: THIS SHOWS THE STATUS OF SUPPLEMENTS $>SUPP-STAT< [reference] **S **TP [do index <1> <16>] [store < > in table(index)] [end do] [store NROSIZ in index2] [add <1> to index2] [if index2 gt <16> then store <16> in index2] [Do index <1> index2] [store name(index) in table(index)(1:24)] [NIF age(index)(2:2) is < > then] [store age(index) in table(index)(27:27)] [ELSE] [store age(index) in table(index)(26:27)] [ENDIF] [NIF Spelig(index) eq <1> OR SPelig(index) eq <5> then] CHANGED FOR MARCH **S [store in table(index)(42:60)] [ELSE] [store in table(index)(42:60)] [ENDIF] [store <1> in pelig(index)] [NIF DELDEC(index) is <9> then] [store <11> in pelig(index)] [ELSEIF DONPER(index) is <1> then] [store <2> in pelig(index)] [ELSEIF MISPER(index) is <1> then] [store <3> in pelig(index)] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <1> then] [store <9> in pelig(index)] [ELSEIF DELDEC(index) is <2> then] [store <10> in pelig(index)] [ELSEIF hhmem(index) is <2> then] [store <8> in pelig(index)] [ELSEIF AGERNG(index) lt <2> then] [store <7> in pelig(index)] [ELSEIF AFNOW(index) is <1> then] [store <6> in pelig(index)] [ELSEIF AGERNG(index) eq <9> then] [store <5> in pelig(index)] [ENDIF] [NIF pelig(index) eq <1> OR Pelig(index) eq <3> then] [store < NEED> in table(index)(30:39)] [ELSEIF pelig(index) eq <5> then] [store < NEED> in table(index)(30:39)] [ELSE] [store in table(index)(30:39)] [ENDIF] [NIF name(index) is < > OR name(index) is then] [store < > in table(index)(30:78)] [ENDIF] [end do] $display >SUPP-STAT< STATUS OF SUPPLEMENT NAME AGE LBFR SUPPL [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] ENTER

TO PROCEED ===>_ $end ---------------------------------------------------------------------------- $>purpose-1< [reference] $d >Purpose-1< WHAT IS THIS SURVEY ALL ABOUT? We are taking this survey to find out how recent welfare reforms affect employment, income, and family circumstances throughout the Nation. We want to see what effects, if any, these welfare reforms are having in the lives of people from all walks of life and from every part of the country. To understand the impact of welfare reform on people, we need information about services received; employment and income from other sources; family composition and help available from extended family members; and about who is eligible for and/or participating in programs. We will combine your answers with the information we collect from other households throughout the country. Policy analysts will assess this information and evaluate how welfare reforms are affecting the lives of the American people. ENTER

TO PROCEED WITH THE INTERVIEW. ENTER FOR ANOTHER QUESTION. [referto purpose] ===>_ $end -------------------------------------------------------------------------------- $>purpose-2< [reference] $d >Purpose-2< WHY DO THE CONGRESS AND THE CENSUS BUREAU NEED THIS INFORMATION? In a Nation as large and rapidly changing as ours, we need up-to-date facts to plan effective programs for the future. Although we take a complete census every 10 years, we need to collect some kinds of information more often. We depend upon sample surveys to keep abreast of changes people have in their jobs, the kind of work they do, the number of people looking for work, the situation of people on government programs, and other information. ENTER

TO PROCEED WITH THE INTERVIEW. ENTER FOR ANOTHER QUESTION. [referto purpose] ===>_ $end -------------------------------------------------------------------------------- $>purpose-3< [reference] $d >Purpose-3< HOW WAS I SELECTED? We originally selected your address for the Survey of Income and Program Participation, not you personally. We chose a scientific sample of addresses throughout the United States. Because this is a scientific sample, we must interview all persons who participated in that survey. We cannot substitute the household next door or down the street. ENTER

TO PROCEED WITH THE INTERVIEW. ENTER FOR ANOTHER QUESTION. [referto purpose] ===>_ $end -------------------------------------------------------------------------------- $>purpose-4< [reference] $d >Purpose-4< WHY ARE MY ANSWERS IMPORTANT? People in government and private organizations need the statistics from this survey to develop and evaluate policies and programs that meet the needs of Americans today. For this reason, this information must be as accurate and complete as possible. The only way we can get this information is through the cooperation of sample households such as yours. Your answers represent approximately 2,500 households. In all, we will interview about 35,000 households across the Nation for this survey. ENTER

TO PROCEED WITH THE INTERVIEW. ENTER FOR ANOTHER QUESTION. [referto purpose] ===>_ $end -------------------------------------------------------------------------------- $>purpose-5< [reference] $d >Purpose-5< INFORMATION ABOUT THIS INTERVIEW We expect the average interview to take about 45 minutes. Your tinie may be shorter or longer than this depending on your circumstances. If you have any comments about this survey or have recommendations for reducing its length, send them to the Associate Director for Administration-Comptroller, Attn: Paperwork Reduction Project 0607-xxxx, Room 3104, FB 3, Bureau of the Census, Washington, D.C. 20233-0001. ENTER

TO PROCEED WITH THE INTERVIEW. ENTER FOR ANOTHER QUESTION. [referto purpose] ===>_ $end -------------------------------------------------------------------------------- $>purpose-6< [reference] $d >Purpose-6< WHAT GUARANTEE DO I HAVE THAT THE INFORMATION I GIVE TO THE CENSUS BUREAU ABOUT MY PERSONAL BUSINESS IS NOT REPORTED TO OTHER PERSONS OR ORGANIZATIONS? All information you give to the Census Bureau for this survey is confidential by law (Section 9 of Title 13, United States Code). Census Bureau employees take an oath and are subject to a jail term, a fine, or both if they disclose any information that would identify anyone. We will use your answers only for statistical purposes, from which no one will be able to identify information about you as an individual. ENTER

TO PROCEED WITH THE INTERVIEW. ENTER FOR ANOTHER QUESTION. [referto purpose] ===>_ $end -------------------------------------------------------------------------------- $>resp-chg< [reference] [do index <1> <16>] [store < > in xbad(index)] [store < > in tempname(index)] [if LINENO(index) is < > then convert index integer to xbad(index) character] [if AGERNG(index) lt <2> then convert index integer to xbad(index) character] [if hhmem(index) is <2> then convert index integer to xbad(index) character] [end do] [do index <1> NROSIZ] [if RESPLI eq index then store in tempname(index)(1:1)] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to tempname(index)(4:4) character] [ELSEIF index2 ge <10> then] [convert index2 integer to tempname(index)(3:4) character] [ENDIF] [store name(index) in tempname(index)(6:29)] [NIF hhmem(index) is <1> then] [store in tempname(index)(31:31)] [ELSEIF hhmem(index) is <2> then] [store in tempname(index)(31:31)] [ELSEIF hhmem(index) is <3> then] [store in tempname(index)(31:34)] [ENDIF] [NIF age-i(index) le <9> AND age-i(index) gt <0> then] [store age(index) in tempname(index)(36:36)] [ELSEIF age-i(index) ge <10> then] [store age(index) in tempname(index)(36:37)] [ENDIF] [NIF age-i(index) lt <15> OR hhmem(index) is <2> then] [store < > in tempname(index)] [ENDIF] [end do] ** MOVERS ** (next two lines) [store in temp2] [if I-BLANK3 is <1> then store in temp2] $display >Resp-chg< ENTER LINE NUMBER OF NEW RESPONDENT *** [fill temp2] *** R LN NAME MEM AGE R LN NAME MEM AGE [fill tempname(1)] [fill tempname(9)] [fill tempname(2)] [fill tempname(10)] [fill tempname(3)] [fill tempname(11)] [fill tempname(4)] [fill tempname(12)] [fill tempname(5)] [fill tempname(13)] [fill tempname(6)] [fill tempname(14)] [fill tempname(7)] [fill tempname(15)] [fill tempname(8)] [fill tempname(16)] ENTER FOR MISTAKE - NO CHANGE NEEDED [blind] <1> [store <1> in RESPLI] [If xbad(1) is <1> then referto ref-NOT] [store name(1) in respna] [referto resp-chg2] <2> [store <2> in RESPLI] [If xbad(1) is <2> then referto ref-NOT] [store name(2) in respna] [referto resp-chg2] <3> [store <3> in RESPLI] [If xbad(1) is <3> then referto ref-NOT] [store name(3) in respna] [referto resp-chg2] <4> [store <4> in RESPLI] [If xbad(1) is <4> then referto ref-NOT] [store name(4) in respna] [referto resp-chg2] <5> [store <5> in RESPLI] [If xbad(1) is <5> then referto ref-NOT] [store name(5) in respna] [referto resp-chg2] <6> [store <6> in RESPLI] [If xbad(1) is <6> then referto ref-NOT] [store name(6) in respna] [referto resp-chg2] <7> [store <7> in RESPLI] [If xbad(1) is <7> then referto ref-NOT] [store name(7) in respna] [referto resp-chg2] <8> [store <8> in RESPLI] [If xbad(1) is <8> then referto ref-NOT] [store name(8) in respna] [referto resp-chg2] <9> [store <9> in RESPLI] [If xbad(1) is <9> then referto ref-NOT] [store name(9) in respna] [referto resp-chg2] <10> [store <10> in RESPLI] [If xbad(1) is <10> then referto ref-NOT] [store name(10) in respna] [referto resp-chg2] <11> [store <11> in RESPLI] [If xbad(1) is <11> then referto ref-NOT] [store name(11) in respna] [referto resp-chg2] <12> [store <12> in RESPLI] [If xbad(1) is <12> then referto ref-NOT] [store name(12) in respna] [referto resp-chg2] <13> [store <13> in RESPLI] [If xbad(1) is <13> then referto ref-NOT] [store name(13) in respna] [referto resp-chg2] <14> [store <14> in RESPLI] [If xbad(1) is <14> then referto ref-NOT] [store name(14) in respna] [referto resp-chg2] <15> [store <15> in RESPLI] [If xbad(1) is <15> then referto ref-NOT] [store name(15) in respna] [referto resp-chg2] <16> [store <16> in RESPLI] [If xbad(1) is <16> then referto ref-NOT] [store name(16) in respna] [referto resp-chg2] ===>__ $end ---------------------------------------------------------------------- $>resp-chg2< [reference] $display >resp-chg2< NEW RESPONDENT: [fill name(RESPLI)] ENTER

TO PROCEED ENTER FOR MISTAKE - WRONG PERSON [referto resp-chg] ===>_ $end ---------------------------------------------------------------------- $>Ref-March< [reference] **S $d >Ref-March< PURPOSES AND USES OF THE DATA: Your responses are important. The Census Bureau has been providing statistics about work experience, income, and other related topics since 1947. Data are used to measure changes in income, employment patterns, and the structure of the American Family. Additionally, data collected on Social Security, unemployment compensation, and Veterans' Benefits helps examine the effectiveness of government programs. INCOME TAX RETURNS ARE NOT ENOUGH: Income data cannot be obtained from Federal tax returns because not all people are required to file returns. In addition, certain types of income such as Supplemental Security Income and Aid to Families with Dependent Children are not taxable and therefore are not reported on tax forms. Also, the returns do not show age, educational attainment, and other items needed to understand differences in income. ENTER

TO PROCEED ===>_ $end ----------------------------------------------------------------------------- $>API-help< [reference] **S $display >API-help< ASIAN GROUPS PACIFIC ISLANDER GROUPS Asian Indian Japanese Carolinian Polynesian Bangladeshi Korean Chuukese Saipanese Bhutanese Laotian Fijian Samoan Borneo Malayan Guamanian Tahitian Burmese Maldivian Hawaiian Tongan Cambodian Nepali Kosraean Yapese Celebesian Okinawan Mariana Islander Cernan Pakistani Marshallese Chinese Sikkim Melanesian Filipino Singaporean Micronesian Hmong Sri Lankan (Ceylonese) Palauan Indochinese Thai Papua New Guinean Indonesian Vietnamese Iwo-Jiman ENTER

TO PROCEED ===>_ $end ---------------------------------------------------------------------- $>What-job< [reference] **S [do index <1> <10>] [store < > in table(index)] [end do] [store IO1NAM(WKYEAR_R_P) in table(1)] [store IO1IND(WKYEAR_R_P) in table(2)] [store IO1OCC(WKYEAR_R_P) in table(3)] [store IO1DT1(WKYEAR_R_P) in table(4)] [store IO1DT2(WKYEAR_R_P) in table(5)] [store q47a(WKYEAR_R_P) in table(6)] [store q47b(WKYEAR_R_P) in table(7)] [store q47c(WKYEAR_R_P) in table(8)] [store Q47D1(WKYEAR_R_P) in table(9)] [store Q47D2(WKYEAR_R_P) in table(10)] $d >what-job< CURRENT JOB: (IO1NAM:) [fill table(1)] (IO1IND:) [fill table(2)] (IO1OCC:) [fill table(3)] (IO1DT:) [fill table(4)] [fill table(5)] LONGEST JOB HELD IN 1996: (q47a:) [fill table(6)] (q47b:) [fill table(7)] (q47c:) [fill table(8)] (q47d:) [fill table(9)] [fill table(10)] ENTER

TO PROCEED ===>_ $end -------------------------------------------------------------------------------- $>SS-Inc< [reference] **S [do index <1> <16>] [store < > in tempname(index)] [end do] [do index <1> NROSIZ] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to tempname(index)(2:2) character] [ELSEIF index2 ge <10> then] [convert index2 integer to tempname(index)(1:2) character] [ENDIF] [store name(index) in tempname(index)(4:23)] [if Q56DT(index) isnt < > then combine <$> Q56Dt(index) into tempname(index)(25:37)] [if Q56DT(index) is then store in tempname(index)(25:37)] [if Q56DT(index) is then store in tempname(index)(25:37)] [if Q56DT(index) is then store in tempname(index)(25:37)] [NIF AGERNG(index) lt <2> OR HHMEM(index) isnt <1> then] [store < > in tempname(index)] [ENDIF] [end do] $d >SS-Inc< SOCIAL SECURITY INCOME PREVIOUSLY REPORTED: Q56d Amount Q56d Amount LN NAME Reported LN NAME Reported [fill tempname(1)] [fill tempname(9)] [fill tempname(2)] [fill tempname(10)] [fill tempname(3)] [fill tempname(11)] [fill tempname(4)] [fill tempname(12)] [fill tempname(5)] [fill tempname(13)] [fill tempname(6)] [fill tempname(14)] [fill tempname(7)] [fill tempname(15)] [fill tempname(8)] [fill tempname(16)] ENTER

TO PROCEED ===>_ $end ---------------------------------------------------------------------- $>SSI-Ic< [reference] **S [do index <1> <16>] [store < > in tempname(index)] [end do] [do index <1> NROSIZ] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to tempname(index)(2:2) character] [ELSEIF index2 ge <10> then] [convert index2 integer to tempname(index)(1:2) character] [ENDIF] [store name(index) in tempname(index)(4:23)] [if Q57CT(index) isnt < > then combine <$> Q57Ct(index) into tempname(index)(25:37)] [if Q57CT(index) is then store in tempname(index)(25:37)] [if Q57CT(index) is then store in tempname(index)(25:37)] [if Q57CT(index) is then store in tempname(index)(25:37)] [NIF AGERNG(index) lt <2> OR HHMEM(index) isnt <1> then] [store < > in tempname(index)] [ENDIF] [end do] $d >SSI-Ic< SUPPLEMENTAL SECURITY INCOME PREVIOUSLY REPORTED: Q57c Amount Q57c Amount LN NAME Reported LN NAME Reported [fill tempname(1)] [fill tempname(9)] [fill tempname(2)] [fill tempname(10)] [fill tempname(3)] [fill tempname(11)] [fill tempname(4)] [fill tempname(12)] [fill tempname(5)] [fill tempname(13)] [fill tempname(6)] [fill tempname(14)] [fill tempname(7)] [fill tempname(15)] [fill tempname(8)] [fill tempname(16)] ENTER

TO PROCEED ===>_ $end ---------------------------------------------------------------------- $>self-emply< [reference] **S [do index <1> <11>] [store < > in table(index)] [store < > in relation(index)] [if LINENO(index) is < > then store < > in table(index)(5:6)] [end do] [store <0> in index2] [store NROSIZ in index2] [if index2 gt <11> then store <11> in index2] [do index <1> index2] [store name(index) in table(index)(1:21)] [NIF q48b(index) isnt < > then] [store <$> in table(index)(23:23)] [if q48b(index) is then store < > in table(index)(23:23)] [store q48b(index) in table(index)(24:30)] [ENDIF] [NIF Q48BLO(index) isnt < > then] [store <$> in table(index)(33:33)] [store Q48BLO(index) in table(index)(34:40)] [ENDIF] [NIF Q49B2(index) isnt < > then] [store <$> in table(index)(44:44)] [if Q49B2(index) is then store < > in table(index)(44:44)] [store Q49B2(index) in table(index)(45:50)] [ENDIF] [NIF Q49B3(index) isnt < > then] [store <$> in table(index)(54:54)] [store Q49B3(index) in table(index)(55:60)] [ENDIF] [NIF Q49B4(index) isnt < > then] [store <$> in table(index)(64:64)] [if Q49B4(index) is then store < > in table(index)(64:64)] [store Q49B4(index) in table(index)(65:70)] [ENDIF] [NIF Q49B5(index) isnt < > then] [store <$> in table(index)(74:74)] [store Q49B5(index) in table(index)(75:80)] [ENDIF] [end do] [convert NUMHOU integer to temptext character] [store < > in temp5] [if NROSIZ gt <11> then store in temp5] $d >self-emply< EARNINGS FROM: ADDITIONAL EARNINGS FROM: BUSINESS/FARM BUSINESS FARM Q48B Q49B2- Q49B3- NAME q48b lost Q49B2 lost Q49B3 lost [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)] ENTER

TO PROCEED [fill temp5] [blind] TO REVIEW REST OF HOUSEHOLD [if NROSIZ gt <11> then referto self-empl2] [referto ref-bad] ===>_ $end ----------------------------------------------------------------------------- $>self-empl2< [reference] **S [do index <12> <16>] [store < > in table(index)] [store < > in relation(index)] [if LINENO(index) is < > then store < > in table(index)(5:6)] [end do] [do index <12> NROSIZ] [store name(index) in table(index)(1:21)] [NIF q48b(index) isnt < > then] [store <$> in table(index)(23:23)] [if q48b(index) is then store < > in table(index)(23:23)] [store q48b(index) in table(index)(24:30)] [ENDIF] [NIF Q48BLO(index) isnt < > then] [store <$> in table(index)(33:33)] [store Q48BLO(index) in table(index)(34:40)] [ENDIF] [NIF Q49B2(index) isnt < > then] [store <$> in table(index)(44:44)] [if Q49B2(index) is then store < > in table(index)(44:44)] [store Q49B2(index) in table(index)(45:50)] [ENDIF] [NIF Q49B3(index) isnt < > then] [store <$> in table(index)(54:54)] [store Q49B3(index) in table(index)(55:60)] [ENDIF] [NIF Q49B4(index) isnt < > then] [store <$> in table(index)(64:64)] [if Q49B4(index) is then store < > in table(index)(64:64)] [store Q49B4(index) in table(index)(65:70)] [ENDIF] [NIF Q49B5(index) isnt < > then] [store <$> in table(index)(74:74)] [store Q49B5(index) in table(index)(75:80)] [ENDIF] [end do] $d >self-empl2< EARNINGS FROM: ADDITIONAL EARNINGS FROM: BUSINESS/FARM BUSINESS FARM Q48B Q49B2- Q49B3- NAME q48b lost Q49B2 lost Q49B3 lost [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] ENTER

TO PROCEED ENTER TO REVIEW PREVIOUS HOUSEHOLD COMPOSITION [referto self-emply] ===>_ $end ----------------------------------------------------------------------------- $>ref-bad< [reference] $display >ref-bad< INCORRECT PRECODE ENTERED. TRY AGAIN. ENTER

TO PROCEED ===>_ $END --------------------------------------------------------------------------- $>Ref-NOT< [reference] $d >Ref-NOT< ***NOT ALLOWED*** ENTER

TO PROCEED ===>_ $end ---------------------------------------------------------------------- $>state-ref< [reference] $display >state-ref< REFERENCE: PERMISSIBLE STATE CODES AL=Alabama IA=Iowa NJ=New Jersey VT=Vermont AK=Alaska KS=Kansas NM=New Mexico VA=Virginia AZ=Arizona KY=Kentucky NY=New York WA=Washington AR=Arkansas LA=Louisiana NC=N. Carolina WV=W.Virginia CA=California ME=Maine ND=N. Dakota WI=Wisconsin CO=Colorado MD=Maryland OH=Ohio WY=Wyoming CT=Connecticut MA=Massachusetts OK=Oklahoma DE=Delaware MI=Michigan OR=Oregon DC=Dist. Colum. MN=Minnesota PA=Pennsylvania FL=Florida MS=Mississippi RI=Rhode Island GA=Georgia MO=Missouri SC=S. Carolina HI=Hawaii MT=Montana SD=S. Dakota ID=Idaho NE=Nebraska TN=Tennessee IL=Illinois NV=Nevada TX=Texas IN=Indiana NH=New Hampshire UT=Utah

PROCEED WITH INTERVIEW ===>_ $end --------------------------------------------------------------------- $>PARENT-vr< [reference] [store <8> in temp2] [store in temp3] [if NEWRRP eq <1> then store <26> in temp2] [if NEWRRP eq <1> then store in temp3] $display >PARENT-vr< *** DO NOT READ TO RESPONDENT *** You already identified BOTH of the reference person's parents If you misreported anyone earlier as a parent, enter precode [fill temp2] at the "[fill temp3]" screen and note the corrections you will need to make later at the CHANGE screen. ENTER

TO PROCEED ===>_ $end --------------------------------------------------------------------------- =============================================================================== SECTION **5** - PREDIAL, DIAL, AND FRONT =============================================================================== $>start< [store <0> in rtime-i] [store <0> in rhr-i] [setrtime rtime-i rhr-i rmin-i rampm-c rtime1-c rtime2-c timezone dstime] [store rtime-i in start-time] [setsec sectim-i] [store sectim-i in STRTMS] COMMENT: IF THE OUTCOME IS A 202 THEN NO LABOR FORCE DATA HAS BEEN COLLECTED THESE CASES CAN'T BE TRANSMITTED UNTIL THE HAVE SOME LABOR FORCE OR UNTIL THE CASE IS MADE A NONINTERVIEW [store <0> in xbad(1)] [store <{1} Ready to transmit case-no more followup> in temptext] [NIF lstout eq <202> OR lstout eq <0> then] [store < > in temptext] [store <1> in xbad(1)] [ELSEIF lstout eq <200> then] [store < > in temptext] [store <1> in xbad(1)] [ENDIF] [store < > in temp2] [IF CONTYA is <1> then store in temp2] [store <0> in index2] [NIF NONTYP is <2> then] [If onpath NONTYP then store <1> in index2] [If onpath NONTYP then store < > in temptext] [If onpath NONTYP then store <1> in xbad(1)] [ENDIF] ** MOVERS ** (next 9 lines) COMMENT: "m" precode [store in temp3] [store <2> in xbad(2)] [store < > in TEMP15] [NIF caseid(14:14) isnt < > then] ** SPD ** [store in temp3] [store <{M} Mover Codes> in TEMP15] [store <0> in xbad(2)] [ENDIF] $d >start< CENSUS CATI/CAPI SYSTEM 04/21/97 Survey of Program Dynamics Case status is: [fill status(mark)] Date is: [fill date-c] Time is: [fill time1-c] MONTH IN SAMPLE: [fill MISCK] [fill temp2] Telephone Interview [store <2> in INTTYP] [add <1> to TELREG]

Personal interview (See notes) [store <1> in INTTYP] [add <1> to PRSCNT] Personal (skip all notes and go to intro-b) [store <1> in INTTYP] [add <1> to PRSCNT] [goto intro-b] [fill TEMP15] [fill temptext] Quit: Do not attempt now. [store <202> in outcome] [if marktwo eq <02> then store <204> in outcome] [if marktwo eq <05> then store <205> in outcome] [if marktwo eq <06> then store <205> in outcome] [if index2 eq <1> then store <204> in outcome] [goto checkout] [blind] <1> Ready to transmit case-no more followup [goto trans] Mover Codes [if xbad(2) is <2> then referto ref-bad] [goto MOVCOD] ===>_ $edit [notequal xbad(1)] $end --------------------------------------------------------------------- $HDISP --------------------------------------------------------------------- COMMENT: THIS ITEM DISPLAYS ALL PREVIOUS MONTHS OUTCOMES $>SHOSTAT< [do index <1> <8>] [store < > in table(index)] [end do] [store <0> in index2] [convert MISCK character to index2 integer] [do index <1> index2] [convert index integer to table(index)(22:22) character] [NIF index eq <1> then] [store PROUT1 in table(index)(39:41)] [store <0> in index3] [convert PROUT1 character to index3 integer] [ELSEIF index eq <2> then] [store PROUT2 in table(index)(39:41)] [store <0> in index3] [convert PROUT2 character to index3 integer] [ELSEIF index eq <3> then] [store PROUT3 in table(index)(39:41)] [store <0> in index3] [convert PROUT3 character to index3 integer] [ELSEIF index eq <4> then] [store PROUT4 in table(index)(39:41)] [store <0> in index3] [convert PROUT4 character to index3 integer] [ELSEIF index eq <5> then] [store PROUT5 in table(index)(39:41)] [store <0> in index3] [convert PROUT5 character to index3 integer] [ELSEIF index eq <6> then] [store PROUT6 in table(index)(39:41)] [store <0> in index3] [convert PROUT6 character to index3 integer] [ELSEIF index eq <7> then] [store PROUT7 in table(index)(39:41)] [store <0> in index3] [convert PROUT7 character to index3 integer] [ELSEIF index eq <8> then] [store PROUT8 in table(index)(39:41)] [store <0> in index3] [convert PROUT8 character to index3 integer] [ENDIF] [NIF index3 gt <200> then] [subtract <200> from index3] NEED TO SUBTRACT 200 IN ORDER TO USE OUTTAB EASILY [store OUTTAB1(index3) in table(index)(43:68)] [ELSEIF index3 nq <0> THEN] [store OUTTAB2(index3) in table(index)(43:68)] [ENDIF] [end do] COMMENT: THE FOLLOWING WAS ADDED TO TAKE CARE OF HOUSEHOLDS THAT HAVE MONTH IN SAMPLE EQUAL TO SOMETHING OTHER THAN 1 BUT THEY NEED TO ACT LIKE MONTH IN SAMPLE 1. THEREFORE WE SUBTRACT ONE FROM INDEX2 IN ORDER TO LOOK AT THE PREVIOUS MONTHS OUTCOME. (IF BOTH THE PREVIOUS MONTHS OUTCOME IS BLANK AND PROUT1 IS BLANK THEN THE CASE HAS NEVER BEEN INSTERVIEWED BEFORE.) [If index2 nq <1> then subtract <1> from index2] [store < > in temp2] [NIF index2 eq <1> then] [store PROUT1 in temp2] [ELSEIF index2 eq <2> then] [store PROUT2 in temp2] [ELSEIF index2 eq <3> then] [store PROUT3 in temp2] [ELSEIF index2 eq <4> then] [store PROUT4 in temp2] [ELSEIF index2 eq <5> then] [store PROUT5 in temp2] [ELSEIF index2 eq <6> then] [store PROUT6 in temp2] [ELSEIF index2 eq <7> then] [store PROUT7 in temp2] [ELSEIF index2 eq <8> then] [store PROUT8 in temp2] [ENDIF] [store < > in temptext] [NIF PROUT1 is < > AND temp2 is < > then] [store in temptext] [ENDIF] [store < > in temp2] [store < > in temp3] [store < > in temp4] [store < > in temp5] [store < > in temp6] [store < > in temp7] [IF I-BCNAME isnt < > then combine < > I-BCNAME into temp2] [If I-BCTITL isnt < > then combine < > I-BCTITL into temp3] [NIF I-BCNUM isnt < > then] [combine < (> I-BCAREA <)> into temp4] [combine I-BCNUM(1:3) <-> I-BCNUM(4:7) into temp5] [ENDIF] [store <0> in index] [convert I-BCEXT character to index integer] [If index eq <0> then store < > in I-BCEXT] [IF I-BCEXT isnt < > then combine I-BCEXT into temp7] [If I-BCOBSR is <1> then store in temp6] [If I-BCOBSR is <2> then store in temp6] $display >SHOSTAT< [fill temptext] MONTH IN SAMPLE PREVIOUS OUTCOME DESCRIPTION [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill temp2] [fill temp3] [fill temp4] [fill temp5] [fill temp6] [fill temp7] ENTER

TO PROCEED ===>_ $end ---------------------------------------------------------------------------- $>ELG-ck< COMMENT: IF PERSONAL VISIT AND MISFLG IS 2-8 THEN GOTO SHOWROS-1 [convert MISFLG character to index integer] [NIF index ge <2> AND index le <8> then] [if INTTYP eq <1> then goto shoros-1] [ENDIF] IF PERSONAL VISIT THE GOTO GENINTRO [If INTTYP eq <1> then goto genintro] IF MISFLG IS 1 OR 5 AND TELEPHONE INTERVIEW WAS SELECTED THEN GOES TO NEED-PV (ALL NEW CASES, CASES THAT WERE TYPE A OR VACANT LAST MONTH REQUIRE PERSONAL VISIT IF AT ALL POSSIBLE) [NIF MISFLG is <1> OR MISFLG is <5> then] [goto need-PV] [ENDIF] IF TELEPHONE INTERVIEW AND MISFLG IS 2-8 THE GOTO SHOROS-1 [convert MISFLG character to index integer] [NIF index ge <2> AND index le <8> then] [goto SHOROS-1] [ENDIF] [goto genintro] $end ----------------------------------------------------------------------------- $>Need-PV< [store <0> in index2] [NIF NONTYP is <2> then] [If onpath NONTYP then store <1> in index2] [ENDIF] ** MOVERS ** (next two lines) [store in temp2] [if I-BLANK3 is <1> then store in temp2] $display >Need-PV< *** THIS CASE [fill temp2] A PERSONAL VISIT *** *** UNLESS THIS IS A LAST RESORT *** ENTER <1> IF NOT LAST RESORT/GO TO NOTES [store <0> in lstrst] [store <202> in outcome] [if marktwo eq <02> then store <204> in outcome] [if marktwo eq <05> then store <205> in outcome] [if marktwo eq <06> then store <205> in outcome] [if index2 eq <1> then store <204> in outcome] [goto checkout] ENTER

TO PROCEED [store <1> in lstrst] ===>_ $end ------------------------------------------------------------------------------ COMMENT: IF MISCK IS 1 THEN THERE IS NO HOUSEHOLD ROSTER TO DISPLAY THEREFORE WE SKIP OVER SHOROS-1 AND SHOROS-3 $>pr-shoros< [If MISCK is <1> then goto pre-dial] $end ------------------------------------------------------------------------------ COMMENT: THIS SHOWS THE HOUSEHOLD COMPOSITION AND STATUS. $>Shoros-1< [multiple shoros-1a] [do index <1> <16>] [store < > in table(index)] [end do] THE FOLLOWING LOOP YOU WANT TO GO FROM 1 TO NROSIZ PLUS 1 TO INCLUDE EOL [store NROSIZ in index2] [add <1> to index2] [if index2 gt <16> then store <16> in index2] [Do index <1> index2] [store lasthr(index) in table(index)(1:2)] [store name(index) in table(index)(3:26)] [NIF HHmem(index) is <1> then] [store in table(index)(28:28)] [ELSEIF HHmem(index) is <2> OR HHmem(index) is <3> then] [store in table(index)(28:28)] [ENDIF] [store <1> in pelig(index)] [NIF DELDEC(index) is <9> then] [store <11> in pelig(index)] [ELSEIF Donper(index) is <1> then] [store <2> in pelig(index)] [ELSEIF misper(index) is <1> then] [store <3> in pelig(index)] [store in table(index)(53:70)] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <1> then] [store <9> in pelig(index)] [ELSEIF DELDEC(index) is <2> then] [store <10> in pelig(index)] [ELSEIF hhmem(index) is <2> OR HHmem(index) is <3> then] [store <8> in pelig(index)] [ELSEIF AGERNG(index) eq <1> then] [store <7> in pelig(index)] [ELSEIF AFNOW(index) is <1> then] [store <6> in pelig(index)] [ELSEIF AGERNG(index) eq <9> then] [store <5> in pelig(index)] [ENDIF] [store relation(index) in table(index)(32:40)] [NIF age(index)(2:2) is < > then] [store age(index) in table(index)(43:43)] [ELSEIF age(index)(2:2) isnt < > then] [store age(index) in table(index)(42:43)] [ENDIF] [store <0> in index2] [NIF MARITL(index) isnt < > AND MARITL(index) isnt then] [convert MARITL(index) character to index2 integer] [ENDIF] [If index2 nq <0> then store Martab(index2) in table(index)(46:48)] [CASE AFNOW(index)] [OF <1> then] [store in table(index)(51:51)] [OF <2> then] [store in table(index)(51:51)] [ENDCASE] [IF pelig(index) ge <11> then store < > in table(index)] ** MOVERS ** [end do] $itemtable >Shoros-1< STATUS OF HOUSEHOLD COMPOSITION MAR R NAME MEM RELATION AGE STAT AF [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] ENTER

TO PROCEED ===>_ $end ---------------------------------------------------------------------------- $>shoros-1a< [within shoros-1] $display [none]

$end ----------------------------------------------------------------------------- $>Shoros-2a< [store <0> in index] **S [store NROSIZ in index2] [add <1> to index2] [if index2 gt <16> then store <16> in index2] [do index <1> index2] [store <1> in pelig(index)] [NIF DELDEC(index) is <9> then] [store <11> in pelig(index)] [ELSEIF DONPER(index) is <1> then] [store <2> in pelig(index)] [ELSEIF MISPER(index) is <1> then] [store <3> in pelig(index)] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <1> then] [store <9> in pelig(index)] [ELSEIF DELDEC(index) is <2> then] [store <10> in pelig(index)] [ELSEIF hhmem(index) is <2> OR hhmem(index) is <3> then] [store <8> in pelig(index)] [ELSEIF AGERNG(index) eq <1> then] [store <7> in pelig(index)] [ELSEIF AFNOW(index) is <1> then] [store <6> in pelig(index)] [ELSEIF AGERNG(index) eq <9> then] [store <5> in pelig(index)] [ENDIF] [end do] [do index <1> <16>] [store <1> in SPELIG(index)] [if outcome eq <24> then store <2> in SPELIG(index)] entire hhld AF [if outcome eq <25> then store <2> in SPELIG(index)] entire hhld URE [if PELIG(index) eq <5> then store <2> in SPELIG(index)] unknown age range [if PELIG(index) eq <7> then store <2> in SPELIG(index)] under 15 [if PELIG(index) eq <8> then store <2> in SPELIG(index)] not hhld member [if PELIG(index) eq <9> then store <2> in SPELIG(index)] deleted [if PELIG(index) eq <10> then store <2> in SPELIG(index)] deceased [if mssper-s(index) eq <1> then store <5> in SPELIG(index)] sup skipped [if dnper-s(index) eq <2> then store <4> in SPELIG(index)] sup refused [if dnper-s(index) eq <1> then store <3> in SPELIG(index)] sup comp [if PELIG(index) eq <11> then store <6> in SPELIG(index)] EOL [if PELIG(index) eq <12> then store <6> in SPELIG(index)] after EOL [end do] [store <0> in index] [tablook SPELIG <1> index] at least one person eligible for sup. [if index eq <0> then tablook SPELIG <5> index] at least one person skipped supplement [if index eq <0> then goto Shoros-3] [if mark eq <18> then goto Shoros-3] labor force and sup. complete, $end ----------------------------------------------------------------------------- COMMENT: THIS SHOWS THE STATUS OF SUPPLEMENTS $>Shoros2< [multiple Shoros-2] **S [do index <1> <16>] [store < > in table(index)] [end do] [store NROSIZ in index2] [add <1> to index2] [if index2 gt <16> then store <16> in index2] [Do index <1> index2] [store name(index) in table(index)(1:24)] [NIF age(index)(2:2) is < > then] [store age(index) in table(index)(27:27)] [ELSE] [store age(index) in table(index)(26:27)] [ENDIF] [NIF Spelig(index) eq <1> then] [store in table(index)(42:60)] [ELSE] [store in table(index)(42:60)] [ENDIF] [store <1> in pelig(index)] [NIF DELDEC(index) is <9> then] [store <11> in pelig(index)] [ELSEIF DONPER(index) is <1> then] [store <2> in pelig(index)] [ELSEIF MISPER(index) is <1> then] [store <3> in pelig(index)] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <1> then] [store <9> in pelig(index)] [ELSEIF DELDEC(index) is <2> then] [store <10> in pelig(index)] [ELSEIF hhmem(index) is <2> then] [store <8> in pelig(index)] [ELSEIF AGERNG(index) eq <1> then] [store <7> in pelig(index)] [ELSEIF AFNOW(index) is <1> then] [store <6> in pelig(index)] [ELSEIF AGERNG(index) eq <9> then] [store <5> in pelig(index)] [ENDIF] [NIF pelig(index) eq <1> OR Pelig(index) eq <3> then] [store < NEED> in table(index)(30:39)] [ELSEIF pelig(index) eq <5> then] [store < NEED> in table(index)(30:39)] [ELSE] [store in table(index)(30:39)] [ENDIF] [NIF name(index) is < > OR name(index) is then] [store < > in table(index)(30:78)] [ENDIF] [end do] $itemtable >Shoros-2< STATUS OF SUPPLEMENT NAME AGE LBFR SUPPL [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] ENTER

TO PROCEED ===>_ $end ---------------------------------------------------------------------------- $>Shoros-2< [within Shoros2] $d [none]

$end ---------------------------------------------------------------------- $>Shoros-3< [store < > in temptext] [store < > in temp2] [CASE I-BESTTM] [OF <1> then] [store in temptext] [OF <2> then] [store in temptext] [OF <3> then] [store in temptext] [OF <4> then] [store in temptext] [OF <5> then] [store in temptext] [OF <6> then] [store in temptext] [OF <7> then] [store in temptext] [OF <8> then] [store in temptext] [OF <9> then] [store in temptext] [ENDCASE] [If nosun is <1> then store in temp2] [NIF I-INTERV is <1> then] [store in temp3] [store in temp4] [ELSE] [store < > in temp3] [store < > in temp4] [ENDIF] CHANGES PNOTS to INOTS JAN 95 $d >Shoros-3< NOTES FROM INTERVIEWER DURING PREVIOUS MONTHS INTERVIEWS BEST TIME TO CALL: [fill temptext] [fill temp2] [fill temp3] [fill temp4] OTHER NOTES: [fill inotsa] [fill inotsb] [fill inotsc] [fill inotsd] [fill inotse] [fill inotsf] ENTER

TO PROCEED ===>_ $end ----------------------------------------------------------------------------- $>pre-back< ** MOVERS ** COMMENT: This check added for the MOVERS survey. [if caseid(14:14) isnt < > then goto BACKSCRN] ** SPD ** [goto pre-dial] $end ----------------------------------------------------------------------------- $>BACKSCRN< [multiple BACKINFO] ** MOVERS ** COMMENT: This screen added for the MOVERS survey. $itemtable >BACKSCRN< DO NOT READ --- MOVERS SURVEY BACKGROUND SCREEN --- DO NOT READ Contact Person [fill I-CP1FN] [fill I-CP1LN] [fill I-CP1CT], [fill I-CP1ST] ([fill I-CP1AR]) [fill I-CP1NUM] [fill I-CP1EXT] Relationship: [fill I-CP1REL] New Address [fill I-ADD1] THIS Month: [fill I-ADD2] [fill I-CITY], [fill I-STATE] [fill I-ZIP] New Address [fill I-MVST1] LAST Month: [fill I-MVST2] [fill I-MVCT], [fill I-MVCT] [fill I-MVZP] New Telephone # Collected THIS Month: [fill I-PHONE] [fill I-EXT] New Telephone # Collected LAST Month: [fill I-MVAR] [fill I-MVNUM] [fill I-MVEXT] Last Month's Respondent: [fill RESPNA] ENTER

TO PROCEED ===>_ $end ----------------------------------------------------------------------------- COMMENT: The following item is for the above itemtable. $>BACKINFO< [within BACKSCRN] $d [none]

$edit $end ----------------------------------------------------------------------------- $>pre-dial< IF PERSONAL VISIT THEN SKIP DIAL SCREEN [If INTTYP eq <1> then goto genintro] IF THE CASE WAS A VACANT LAST MONTH THEN SKIP THE DIAL SCREEN [store <0> in index] [store <0> in index2] [convert MISCK character to index integer] [NIF index eq <1> then] [convert PROUT1 character to index2 integer] [ELSEIF index eq <2> then] [convert PROUT2 character to index2 integer] [ELSEIF index eq <3> then] [convert PROUT3 character to index2 integer] [ELSEIF index eq <4> then] [convert PROUT4 character to index2 integer] [ELSEIF index eq <5> then] [convert PROUT5 character to index2 integer] [ELSEIF index eq <6> then] [convert PROUT6 character to index2 integer] [ELSEIF index eq <7> then] [convert PROUT7 character to index2 integer] [ELSEIF index eq <8> then] [convert PROUT8 character to index2 integer] [ENDIF] [NIF index2 ge <226> AND index2 le <233> then] [goto genintro] [ENDIF] [goto dial] $end ------------------------------------------------------------------------ =============================================================================== $>dial< [store phonenum in pn] [store < > in temp2] [store < > in temp3] [store < > in temp4] [if HOMOFF is <1> then store in temp2] [if HOMOFF is <2> then store in temp2] [if SHOMOF is <1> then store in temp4] [if SHOMOF is <2> then store in temp4] [store <0> in index] [convert I-HHR character to index integer] [store name(index) in temp3] [store <0> in index] [store < > in temp5] [convert PH2NUM character to index integer] [if index nq <0> then store name(index) in temp5] [store <0> in index2] [NIF NONTYP is <2> then] [If onpath NONTYP then store <1> in index2] [ENDIF] $display >dial< DIAL THIS NUMBER: ([fill pn(2:4)]) [fill pn(5:7)]-[fill pn(8:11)] EXT: [fill EXT] HOME/OFFICE: [fill temp2] SECONDARY NUMBER: ([fill sphone(1:3)] [fill sphone(4:6)]-[fill sphone(7:10)] EXT: [fill SEXT] SECONDARY HOME/OFFICE: [fill temp4] SECONDARY RESP: [fill temp5] LAST RESP: [fill temp3] CURRENT RESP: [fill respna] ADDRESS: [fill/l HADDR1] [fill/l HADDR2] CITY: [fill HADDCT], [fill HADDST] RESP. TIME: [fill/r rtime1-c] NOTES: [fill inotsa] [fill inotsb] [fill inotsc] [fill inotsd] [fill inotse] [fill inotsf] <1> Someone answers [goto genintro] <2> No Contact/Answering Machine [goto dial-e] <3> New Telephone number or Telephone disconnected [goto newnumber] <0> NOT ATTEMPTED NOW ===>_ $end --------------------------------------------------------------------- $>AFT-DIAL< [store <0> in index2] [NIF NONTYP is <2> then] [If onpath NONTYP then store <1> in index2] [ENDIF] [store <202> in outcome] [if marktwo eq <02> then store <204> in outcome] [if marktwo eq <05> then store <205> in outcome] [if marktwo eq <06> then store <205> in outcome] [if index2 eq <1> then store <204> in outcome] [goto checkout] $end ---------------------------------------------------------------------- COMMENT: SETS OUTCOME CODE AND GOES TO BACK WHEN THERE HAS BEEN A NO CONTACT TELEPHONE CALL $>dial-e< [store <0> in time-i] [store <0> in hr-i] set hanguptime sysvar [settime time-i hr-i min-i ampm-c time1-c time2-c] [If anstime nq <0> then store time-i in hanguptime] [if mark le <4> then store <3> in mark] [store <0> in index2] [NIF NONTYP is <2> then] [If onpath NONTYP then store <1> in index2] [ENDIF] [NIF marktwo eq <02> OR index2 eq <1> then] [store <204> in outcome] [ELSEIF marktwo eq <05> OR marktwo eq <06> then] [store <205> in outcome] [ELSE] [store <202> in outcome] [ENDIF] [goto checkout] $end --------------------------------------------------------------------- COMMENT: COMES HERE IF 3-NEW TELEPHONE NUMBER WAS ENTERED AT THE DIAL SCREEN $>newnumber< [multiple newar newnum newext] [store <1000000> in xbad(1)] [store <100> in xbad(2)] [store <0> in index2] [NIF NONTYP is <2> then] [If onpath NONTYP then store <1> in index2] [ENDIF] $itemtable >newnumber< RECORD NEW NUMBER ENTER FOR NO TELEPHONE NUMBER In Area Code:==>___ New Number ===>___-____ EXT: ===>____ ENTER FOR SAME FOR NONE $end --------------------------------------------------------------------- $>newar< [within newnumber] $display [none] Same [if phonenum(2:4) is < > then referto ref-not] [store <202> in outcome] [if marktwo eq <02> then store <204> in outcome] [if marktwo eq <05> then store <205> in outcome] [if marktwo eq <06> then store <205> in outcome] [if index2 eq <1> then store <204> in outcome] [goto nwnums] ===>___ $edit [notless xbad(2)] [numeric] [precodes] $end $>newnum< [within newnumber] $display [none] $edit [notless xbad(1)] [numeric] $end $>newext< [within newnumber] $display [none] None ===>____ [goto nbrcnvert] $edit [numeric] $end --------------------------------------------------------------------- $>nwnums< $display [no erase] >nwnums< ===>___________________________________________ [store nwnums in comment] [goto checkout] $edit [anything] $end -------------------------------------------------------------------------------- COMMENT: STORES THE NEW PHONE NUMBER, ASSIGNS CODES AND GOES BACK TO THE DIAL SCREEN SO THAT THIS NEW NUMBER CAN BE TRIED. $>nbrcnvert< [if newar isnt then store newar in phonenum(2:4)] [store newnum in phonenum(5:11)] [store newext in EXT] [store <0> in index2] [NIF NONTYP is <2> then] [If onpath NONTYP then store <1> in index2] [ENDIF] [NIF marktwo eq <02> OR index2 eq <1> then] [store <204> in outcome] [ELSEIF marktwo eq <05> OR marktwo eq <06> then] [store <205> in outcome] [ELSE] [store <202> in outcome] [ENDIF] [goto dial] $end --------------------------------------------------------------------- $>MOVCOD< ** MOVERS ** new screen $d >MOVCOD< FR: Pick the appropriate category to update this mover case's outcome code. <1> Further work needed to obtain address [store <263> in outcome] <2> New address out of FR's assignment area [store <270> in outcome] <3> New address within FR's assignment area [store <271> in outcome] ===>_ [goto checkout] $edit [precodes] $end --------------------------------------------------------------------- ============================================================================= INTRODUCTION ============================================================================== $>genintro< [store <0> in time-i] [store <0> in hr-i] [settime time-i hr-i min-i ampm-c time1-c time2-c] [store time-i in anstime] [if RESPLI nq <0> then store in lasthr(RESPLI)] [if mark lt <7> then store <7> in mark] [store <0> in index2] [If I-HHR isnt < > then convert I-HHR character to index2 integer] [store in temptext] [NIF RESPLI nq <0> then] [combine < > name(RESPLI) into temptext] [ELSEIF index2 nq <0> then] [combine < > name(index2) into temptext] [ENDIF] [store < > in temp2] [store <0> in index2] [convert MISCK character to index2 integer] [subtract <1> from index2] [store <0> in index3] [NIF index2 eq <1> then] [convert PROUT1 character to index3 integer] [ELSEIF index2 eq <2> then] [convert PROUT2 character to index3 integer] [ELSEIF index2 eq <3> then] [convert PROUT3 character to index3 integer] [ELSEIF index2 eq <4> then] [convert PROUT4 character to index3 integer] [ELSEIF index2 eq <5> then] [convert PROUT5 character to index3 integer] [ELSEIF index2 eq <6> then] [convert PROUT6 character to index3 integer] [ELSEIF index2 eq <7> then] [convert PROUT7 character to index3 integer] [ELSEIF index2 eq <8> then] [convert PROUT8 character to index3 integer] [ENDIF] [NIF index3 gt <200> then] [subtract <200> from index3] [store OUTTAB1(index3) in temp2] [ELSEIF index3 NQ <0> then] [store OUTTAB2(index3) in temp2] [ENDIF] [store < > in temp3] [NIF index3 eq <0> then] [store in temp3] [ELSE] [combine < > temp2 < last month> into temp3] [ENDIF] [store <{P} TO PROCEED> in temp6] [store < > in temp5] [store < > in temp4] [store < > in temp7] [store <1> in xbad(1)] [store <2> in xbad(2)] [NIF I-SEGTYP is <5> OR I-SEGTYP is <4> then] [If MISFLG is <1> then store <** DO NOT READ TO RESPONDENT **> in temp4] [If MISFLG is <1> then store in temp5] [If MISFLG is <1> then store <{1} Yes> in temp6] [If MISFLG is <1> then store <{2} No> in temp7] [If MISFLG is <1> then store < > in xbad(1)] [If MISFLG is <1> then store < > in xbad(2)] [ELSEIF I-SEGTYP is <2> then] [If MISFLG is <1> then store <** DO NOT READ TO RESPONDENT **> in temp4] [If MISFLG is <1> then store in temp5] [If MISFLG is <1> then store <{1} Yes> in temp6] [If MISFLG is <1> then store <{2} No> in temp7] [If MISFLG is <1> then store < > in xbad(1)] [If MISFLG is <1> then store < > in xbad(2)] [ENDIF] [NIF MISCK is <5> then] [store <{P} TO PROCEED> in temp6] [store < > in temp5] [store < > in temp4] [store < > in temp7] [store <1> in xbad(1)] [store <2> in xbad(2)] [ENDIF] [store < > in temp8] **S [NIF lstout eq <202> OR lstout eq <204> then] [store <{V} VIEW SUPPLEMENT STATUS> in temp8] [ELSEIF lstout eq <205> then] [store <{V} VIEW SUPPLEMENT STATUS> in temp8] [ENDIF] $display >genintro< ** DO NOT READ AS WORDED BELOW ** o Identify yourself - if personal, show I.D. o [fill temptext] If unavailable use SHIFT-F1 for HH roster o [fill temp3] o Introduce survey - adjust introduction to last month's status and respondent o If new HH - give introductory letter and allow time to read. o The Household address is: [fill HADDR1] [fill HADDR2] [fill temp8] [fill temp4] [fill temp5] [fill temp6] [fill temp7] [blind]

[goto intro-b] <1> [goto intro-b] <2> [if I-BLANK3 is <1> then goto intro-b] [goto ILV-scrn] [referto SUPP-STAT] ===>_ $edit [notequal xbad(1)] [notequal xbad(2)] $end ------------------------------------------------------------------------------ $>ILV-scrn< $display >ILV-scrn< ** DO NOT ASK ** PLEASE REFER TO SEGMENT FOLDER FOR THE NUMBER OF UNITS EXPECTED AT THIS ADRESS AND UPDATE THE FOLDER AS APPROPRIATE. I have listed (NUMBER FROM FOLDER) units at [fill HADDR1] [fill HADDR2]. Have I missed any units either occupied or vacant at this address? <1> Yes (UPDATE FOLDER) <2> No ===>_ $end ------------------------------------------------------------------------------ $>intro-b< [setsec sectim-i] [store sectim-i in STRTMS] NONINTERVIEW OPTION IS FILLED BECAUSE WE NO NOT WANT INTERVIEWES TO PICK NONINTERVIEW AFTER THEY HAVE PARTIAL LABOR FORCE DATA. (INTERVIEWERS SHOULD GO THROUGH TYPE Z QUESTIONS INSTEAD.) [store < > in temp2] [store <3> in xbad(1)] [NIF lstout eq <0> OR lstout eq <202> then] [store <{3} NONINTERVIEW> in temp2] [store <9> in xbad(1)] [ELSEIF lstout eq <200> then] [store <{3} NONINTERVIEW> in temp2] [store <9> in xbad(1)] [ENDIF] [store <0> in index2] [NIF NONTYP is <2> then] [If onpath NONTYP then store <1> in index2] [ENDIF] $display >intro-b< (IS RESPONDENT READY TO COMPLETE THE INTERVIEW?) <1> Inconvenient time. Callback needed. <2> Reluctant Respondent - hold for refusal followup [fill temp2] <0> Other outcome OR problem [store <202> in outcome] [if marktwo eq <02> then store <204> in outcome] interviewing respondent. [if marktwo eq <05> then store <205> in outcome] [if marktwo eq <06> then store <205> in outcome] [if index2 eq <1> then store <204> in outcome] [goto extthank] Wrong address (wrong case selected) [store <202> in outcome] [goto checkout] ENTER

TO PROCEED WITH THE INTERVIEW [blind] <3> Noninterview [goto intro-c] ===>_ [store intro-b in introb] $edit [notequal xbad(1)] $end ------------------------------------------------------------------------------- $>aft-intb< ** MOVERS ** [if I-BLANK3 is <1> then goto ck-stat] [If REPFLG eq <1> then goto HHNUM-vr] [NIF fardex gt <2> then] [goto ck-stat] [ELSEIF MISFLG is <1> then] [goto ck-stat] [ENDIF] [goto hhnum-vr] $end ------------------------------------------------------------------------------ $>extthank< [store <0> in time-i] [store <0> in hr-i] set hanguptime sysvar [settime time-i hr-i min-i ampm-c time1-c time2-c] [If anstime nq <0> then store time-i in hanguptime] $display >extthank< Thank you for your time. END INTERVIEW. ENTER

TO PROCEED. ===>_ [goto checkout] $d [alt 1] >extthank< Gracuas por su atenci¢n. END INTERVIEW. ENTER

TO PROCEED. ===>_ [goto checkout] $end ------------------------------------------------------------------------------- $>HHnum-vr< [store <2> in wheredex] [if wheredex gt fardex then store wheredex in fardex] [If notbacked then reset HHnum-vr] [store <0> in REPFLG] ** SPD ** removed precode 1 - per Greg Weyland $display >HHnum-vr< *** DO NOT ASK *** Is this a Replacement Household? <2> No [store <0> in REPLCE] [goto ck-stat] ===>_ $end ---------------------------------------------------------------------------- $>RPHHCK< $display >RPHHCK< A replacement household means that there are no members of the original household living at this address. Are you sure that this is a replacement household? <1> Yes <2> No [store <0> in REPLCE] [goto ck-stat] ===>_ $end ------------------------------------------------------------------------------- COMMENT: SHOULD ONLY COME HERE IF IT IS A REPLACEMENT HOUSEHOLD. THIS ITEM WILL AUTOMATICALLY INCREASE THE HOUSEHOLD NUMBER BY 1 $>HHnum-ck< [store <0> in index] [NIF lk-hhnum eq <1> then] [ELSE] [convert HHNUM character to index integer] [add <1> to index] AUTOMATICALLY INCREASE THE HOUSEHOLD NUMBER BY ONE. [convert index integer to HHNUM character] [store <1> in lk-hhnum] [ENDIF] $end ------------------------------------------------------------------------------- $>ck-stat< [NIF intro-b is <2> then] REFUSED TO PARTICIPATE [If onpath intro-b then goto refset] [ELSEIF intro-b is <3> then] NONINTERVIEW [if onpath intro-b then goto lasttemp] [ELSEIF intro-b is <1> then] INCONVENIENT TIME [if onpath intro-b then goto intro-b1] [ENDIF] [IF fardex gt <3> then goto intro-c] ** MOVERS ** [if I-BLANK3 is <1> then goto intro-c] $end ------------------------------------------------------------------------------ $>veradd< [store <3> in wheredex] [if wheredex gt fardex then store wheredex in fardex] [store <0> in ADDCHG] [NIF MISFLG is <1> OR MISFLG is <5> then] [store < > in temptext] [store < > in temp2] [store <3> in xbad(1)] [store <4> in xbad(2)] [ELSEIF INTTYP eq <1> then] [store <{3} Incorrect address previously recorded> in temptext] [store < > in temp2] [store <0> in xbad(1)] [store <4> in xbad(2)] [ELSE] [store <{3} Incorrect address previously recorded> in temptext] [store <{4} Moved, new address> in temp2] [store <0> in xbad(1)] [store <0> in xbad(2)] [ENDIF] [store in temp3] [If curralt eq <1> then store <¨Cu l es su direcci¢n exacta?> in temp3] [store <0> in index] [NIF MISFLG isnt <1> AND INTTYP eq <2> then] [if REPLCE nq <1> then store <1> in index] [ENDIF] [NIF index eq <1> AND curralt nq <1> then] [store in temp3] [ELSEIF index eq <1> then] [store <¨Sigue usted viviendo en la direcci¢n:> in temp3] [ENDIF] [store < > in temp4] [NIF MISFLG isnt <1> AND REPLCE nq <1> then] [If INTTYP eq <1> then store <**DO NOT ASK -- MARK AS APPROPRIATE**> in temp4] [ENDIF] [NIF MISFLG is <5> AND curralt nq <1> then] [store in temp3] [ELSEIF MISFLG is <5> then] [store <¨Cu l es su direcci¢n exacta?> in temp3] [ENDIF] SKIP FOR PRECODE 4 CHANGES FOR ** MOVERS ** $display >veradd< [fill temp4] [fill temp3] [fill/l HADDR1] [fill/l HADDR2] [fill HADDCT], [fill HADDST] [fill HADDZP] <1> SAME address [if MISFLG is <1> then goto mail-ck] [if replce eq <1> then goto mail-ck] [goto CHNGPH] <2> address has changed. [goto newadd] [fill temptext] [fill temp2] [blind] Refused [goto refset] <3> Incorrect address previously recorded [goto newadd] <4> Moved, new address [goto PREVADD] ===>_ $d [alt 1] >veradd< [fill temp4] [fill temp3] [fill/l HADDR1] [fill/l HADDR2] [fill HADDCT], [fill HADDST] [fill HADDZP] <1> SAME address [if MISFLG is <1> then goto mail-ck] [if replce eq <1> then goto mail-ck] [goto CHNGPH] <2> address has changed. [goto newadd] [fill temptext] [fill temp2] [blind] Refused [goto refset] <3> Incorrect address previously recorded [goto newadd] <4> Moved, new address [goto PREVADD] ===>_ $edit [notequal xbad(1)] [notequal xbad(2)] $end ------------------------------------------------------------------------------- $>newadd< [multiple newaddr1 newaddr2 newcity newst newzip] [store <1> in ADDCHG] $itemtable >newadd< ENTER CHANGE OR FOR SAME OLD ADDRESS: [fill HADDR1] SAME AS OLD ===>______________________________________________________ OLD ADDRESS: [fill HADDR2] SAME AS OLD ===>______________________________________________________ OLD CITY: [fill HADDCT] SAME AS OLD ===>______________________ OLD STATE: [fill HADDST] SAME AS OLD Help ===>__ OLD ZIP: [fill HADDZP] SAME AS OLD ===>_____ $end ------------------------------------------------------------------------------- $>newaddr1< [within newadd] $display [none] SAME [if HADDR1 is < > then referto ref-not] ===>____________________________________ $edit [anychar] $end $>newaddr2< [within newadd] [if newaddr1 isnt then store newaddr1 in HADDR1] $display [none] SAME [if HADDR2 is < > then referto ref-not] ===>____________________________________ $edit [anything] $end $>newcity< [within newadd] [if newaddr2 isnt then store newaddr2 in HADDR2] $display [none] SAME [if HADDCT is < > then referto ref-not] ===>______________________ $edit [anychar] $end $>newSt< [within newadd] [if newcity isnt then store newcity in HADDCT] $display [none] SAME [if HADDST is < > then referto ref-not] [referto state-ref] ===>__ $edit [precodes] $end $>newzip< [within newadd] [if newst isnt then store newst in HADDST] $display [none] SAME [if HADDZP is < > then referto ref-not] ===>_____ $edit [numeric] $end -------------------------------------------------------------------------------- $>newcityxx< [if newzip isnt then store newzip in HADDZP] [goto CHNGPH] ADDED FOR ** MOVERS ** $end ------------------------------------------------------------------------------- $>PREVADD< ADDED FOR ** MOVERS ** $display >PREVADD< Did you used to live at: [fill/l HADDR1] [fill/l HADDR2] [fill HADDCT], [fill HADDST] [fill HADDZP] <1> Yes <2> No [store <202> in outcome] [if marktwo eq <02> then store <204> in outcome] [if marktwo eq <05> then store <205> in outcome] [if marktwo eq <06> then store <205> in outcome] [If HHnum-vr is <2> then store <1> in REPFLG] [goto thank2] ===>_ $end ---------------------------------------------------------------------- $>WHOELSE< ** MOVERS ** $display >WHOELSE< ASK IF NECESSARY Did anyone else who lived at the previous address move with you? <1> Yes <2> No [goto RSNLFT-1] ===>_ $end ---------------------------------------------------------------------- $>WHOLEFT< [multiple WHOLEFT1 WHOLEFT2 WHOLEFT3 WHOLEFT4] ** MOVERS ** [do index <1> NROSIZ] [store < > in tempname(index)] [store <0> in xbad(index)] [if LINENO(index) is < > then convert index integer to xbad(index) character] [IF HHMEM(index) isnt <1> then convert index integer to xbad(index) character] [end do] [do index <1> NROSIZ] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to tempname(index)(2:2) character] [ELSEIF index2 ge <10> then] [convert index2 integer to tempname(index)(1:2) character] [ENDIF] [store name(index) in tempname(index)(4:23)] [if LINENO(index) is < > then store < > in tempname(index)] ADDED IN FEB 94 [end do] $itemtable >WHOLEFT< Which of these persons live here now that moved from the previous address? (INCLUDE LINE NUMBER OF PERSON YOU ARE SPEAKING WITH) ENTER FOR NO MORE FOR ALL PERSONS LN NAME LN NAME LN NAME [fill tempname(1)] [fill tempname(7)] [fill tempname(12)] [fill tempname(2)] [fill tempname(8)] [fill tempname(13)] [fill tempname(3)] [fill tempname(9)] [fill tempname(14)] [fill tempname(4)] [fill tempname(10)] [fill tempname(15)] [fill tempname(5)] [fill tempname(11)] [fill tempname(16)] [fill tempname(6)] ===>__ ===>__ ===>__ ===>__ $end ---------------------------------------------------------------------- $>WHOLEFT1< [within WHOLEFT] $d [none] <1-16> [goto RSNLFT-1] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end $>WHOLEFT2< [within WHOLEFT] $d [none] <1-16> [goto RSNLFT-1] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal WHOLEFT1] $end $>WHOLEFT3< [within WHOLEFT] $d [none] <1-16> [goto RSNLFT-1] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal WHOLEFT1] [notequal WHOLEFT2] $end $>WHOLEFT4< [within WHOLEFT] $d [none] <1-16> $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal WHOLEFT1] [notequal WHOLEFT2] [notequal WHOLEFT3] $end ---------------------------------------------------------------------- $>RSNLFT-1< [multiple RSN1-1 RSN2-1 RSN3-1] ** MOVERS ** [store < > in table(1)] [store < > in table(2)] [store < > in table(3)] [store < > in table(4)] [store <0> in index] [convert WHOLEFT1 character to index integer] [If index nq <0> then store name(index) in table(1)] [store <0> in index] [NIF WHOLEFT2 isnt then] [If onpath WHOLEFT2 then convert WHOLEFT2 character to index integer] [ENDIF] [If index nq <0> then store name(index) in table(2)] [store <0> in index] [NIF WHOLEFT3 isnt then] [If onpath WHOLEFT3 then convert WHOLEFT3 character to index integer] [ENDIF] [If index nq <0> then store name(index) in table(3)] [store <0> in index] [NIF WHOLEFT4 isnt then] [If onpath WHOLEFT4 then convert WHOLEFT4 character to index integer] [ENDIF] [If index nq <0> then store name(index) in table(4)] $itemtable >RSNLFT-1< Why did (READ NAMES) move? [fill table(1)] [fill table(3)] [fill table(2)] [fill table(4)] ENTER ALL THAT APPLY ENTER FOR NO MORE <1> Institutionalized <2> Living in Armed Forces barracks <3> Moved outside of U.S. <4> Separation or divorce <5> Marriage <6> Became employed/unemployed <7> Due to job change <8> Going to school <9> Other ===>_ ===>_ ===>_ $end ---------------------------------------------------------------------- $>RSN1-1< [within RSNLFT-1] $d [none] <1-9> $end $>RSN2-1< [within RSNLFT-1] $d [none] <1-9> [goto CK1-RSNLFT] $edit [notequal RSN1-1] $end $>RSN3-1< [within RSNLFT-1] $d [none] <1-9> $edit [notequal RSN1-1] [notequal RSN2-1] $end ---------------------------------------------------------------------- $>CK1-RSNLFT< ** MOVERS ** [store <0> in index] [NIF RSN1-1 is <1> OR RSN1-1 is <2> then] [if onpath RSN1-1 then store <1> in index] [ELSEIF RSN1-1 is <3> then] [if onpath RSN1-1 then store <1> in index] [ENDIF] [NIF RSN2-1 is AND index eq <1> then] DO NOT FOLLOW [if onpath RSN2-1 then goto SPLITHH] [ENDIF] [store <0> in index] [NIF RSN1-1 is <1> OR RSN1-1 is <2> then] [if onpath RSN1-1 then store <1> in index] [ELSEIF RSN1-1 is <3> then] [if onpath RSN1-1 then store <1> in index] [ENDIF] [NIF RSN2-1 is <1> OR RSN2-1 is <2> then] [if onpath RSN2-1 then add <1> to index] [ELSEIF RSN2-1 is <3> then] [if onpath RSN2-1 then add <1> to index] [ENDIF] [NIF RSN3-1 is AND index eq <2> then] DO NOT FOLLOW [if onpath RSN3-1 then goto SPLITHH] [ENDIF] [store <0> in index] [NIF RSN1-1 is <1> OR RSN1-1 is <2> then] [if onpath RSN1-1 then store <1> in index] [ELSEIF RSN1-1 is <3> then] [if onpath RSN1-1 then store <1> in index] [ENDIF] [NIF RSN2-1 is <1> OR RSN2-1 is <2> then] [if onpath RSN2-1 then add <1> to index] [ELSEIF RSN2-1 is <3> then] [if onpath RSN2-1 then add <1> to index] [ENDIF] [NIF RSN3-1 is <1> OR RSN3-1 is <2> then] [if onpath RSN3-1 then add <1> to index] [ELSEIF RSN3-1 is <3> then] [if onpath RSN3-1 then add <1> to index] [ENDIF] [IF index eq <3> then goto SPLITHH] DO NOT FOLLOW $end ---------------------------------------------------------------------- $>N-ADD< [multiple N-ADR1 N-ADR2 N-CITY N-STATE N-ZIP] ADDED FOR ** MOVERS ** $itemtable >N-ADD< What is your new address? STREET ADDRESS: ===>______________________________________________________ ===>______________________________________________________ CITY: ===>______________________ STATE: ===>__ Help ZIP: ===>_____ $end ------------------------------------------------------------------------------- $>N-ADR1< [within N-ADD] $display [none] ===>____________________________________ $edit [anychar] $end $>N-ADR2< [within N-ADD] $display [none] ===>____________________________________ $edit [anything] $end $>N-city< [within N-ADD] $display [none] ===>______________________ $edit [anychar] $end $>N-STATE< [within N-ADD] $display [none] [referto state-ref] ===>__ $edit [precodes] $end $>N-zip< [within N-ADD] $display [none] ===>_____ $edit [numeric] $end -------------------------------------------------------------------------------- $>ST-N-ADDR< [store N-ADR1 in RNST1] ** NEED TO DECLARE [store N-ADR2 in RNST2] [store N-CITY in RNCT] [store N-STATE in RNST] [store N-ZIP in RNZP] DON'T NEED NEW TELEPHONE SINCE THEY TOOK THERE PHONE NUMBER WHEN THEY MOVED $end ------------------------------------------------------------------------------- $>SPIN2< ** SPIN OFF HERE ** ** MOVERS ** [if caseid(14:14) isnt < > then goto SPDA] ** SPD ** [spinstore I-ADD1 RNST1] [spinstore I-ADD2 RNST2] [spinstore I-CITY RNCT] [spinstore I-STATE RNST] [spinstore I-ZIP RNZP] [store WHOLEFT1 in temp2] [spinstore I-HHR temp2] [store < > in temp2] ** SPD ** [spinstore I-BLANK3 temp2] FLAG TO KNOW WHICH CASE IS A SPINOFF USE I-BLANK3 TO DETERMINE WHEN TO USE FILLS FOR MOVERS. IF I-BLANK3 =1 THEN IT IS A SPIN OFF CASE. IF I-BLANK3=BLANK THEN IT IS THE PARENT CASE. [store <5> in temp2] [spinstore I-MISCK temp2] Make case MIS 5 to reask I&O START OFF BY SETTING HH MEMBERSHIP = 2 FOR EVERYONE [store <2> in temp2] [spinstore I-HHMEM-1 temp2] [spinstore I-HHMEM-2 temp2] [spinstore I-HHMEM-3 temp2] [spinstore I-HHMEM-4 temp2] [spinstore I-HHMEM-5 temp2] [spinstore I-HHMEM-6 temp2] [spinstore I-HHMEM-7 temp2] [spinstore I-HHMEM-8 temp2] [spinstore I-HHMEM-9 temp2] [spinstore I-HHMEM-10 temp2] [spinstore I-HHMEM-11 temp2] [spinstore I-HHMEM-12 temp2] [spinstore I-HHMEM-13 temp2] [spinstore I-HHMEM-14 temp2] [spinstore I-HHMEM-15 temp2] [spinstore I-HHMEM-16 temp2] SET HH MEMBERSHIP = 1 FOR ALL LINE NUMBERS ENTERED IN WHOLEFT [store <1> in temp2] [store <0> in index] [If onpath WHOLEFT1 then store <1> in index] [NIF WHOLEFT1 is <1> AND index eq <1> then] [spinstore I-HHMEM-1 temp2] [ENDIF] [NIF WHOLEFT1 is <2> AND index eq <1> then] [spinstore I-HHMEM-2 temp2] [ENDIF] [NIF WHOLEFT1 is <3> AND index eq <1> then] [spinstore I-HHMEM-3 temp2] [ENDIF] [NIF WHOLEFT1 is <4> AND index eq <1> then] [spinstore I-HHMEM-4 temp2] [ENDIF] [NIF WHOLEFT1 is <5> AND index eq <1> then] [spinstore I-HHMEM-5 temp2] [ENDIF] [NIF WHOLEFT1 is <6> AND index eq <1> then] [spinstore I-HHMEM-6 temp2] [ENDIF] [NIF WHOLEFT1 is <7> AND index eq <1> then] [spinstore I-HHMEM-7 temp2] [ENDIF] [NIF WHOLEFT1 is <8> AND index eq <1> then] [spinstore I-HHMEM-8 temp2] [ENDIF] [NIF WHOLEFT1 is <9> AND index eq <1> then] [spinstore I-HHMEM-9 temp2] [ENDIF] [NIF WHOLEFT1 is <10> AND index eq <1> then] [spinstore I-HHMEM-10 temp2] [ENDIF] [NIF WHOLEFT1 is <11> AND index eq <1> then] [spinstore I-HHMEM-11 temp2] [ENDIF] [NIF WHOLEFT1 is <12> AND index eq <1> then] [spinstore I-HHMEM-12 temp2] [ENDIF] [NIF WHOLEFT1 is <13> AND index eq <1> then] [spinstore I-HHMEM-13 temp2] [ENDIF] [NIF WHOLEFT1 is <14> AND index eq <1> then] [spinstore I-HHMEM-14 temp2] [ENDIF] [NIF WHOLEFT1 is <15> AND index eq <1> then] [spinstore I-HHMEM-15 temp2] [ENDIF] [NIF WHOLEFT1 is <16> AND index eq <1> then] [spinstore I-HHMEM-16 temp2] [ENDIF] [store <0> in index] [If onpath WHOLEFT2 then store <1> in index] [NIF WHOLEFT2 is <1> AND index eq <1> then] [spinstore I-HHMEM-1 temp2] [ENDIF] [NIF WHOLEFT2 is <2> AND index eq <1> then] [spinstore I-HHMEM-2 temp2] [ENDIF] [NIF WHOLEFT2 is <3> AND index eq <1> then] [spinstore I-HHMEM-3 temp2] [ENDIF] [NIF WHOLEFT2 is <4> AND index eq <1> then] [spinstore I-HHMEM-4 temp2] [ENDIF] [NIF WHOLEFT2 is <5> AND index eq <1> then] [spinstore I-HHMEM-5 temp2] [ENDIF] [NIF WHOLEFT2 is <6> AND index eq <1> then] [spinstore I-HHMEM-6 temp2] [ENDIF] [NIF WHOLEFT2 is <7> AND index eq <1> then] [spinstore I-HHMEM-7 temp2] [ENDIF] [NIF WHOLEFT2 is <8> AND index eq <1> then] [spinstore I-HHMEM-8 temp2] [ENDIF] [NIF WHOLEFT2 is <9> AND index eq <1> then] [spinstore I-HHMEM-9 temp2] [ENDIF] [NIF WHOLEFT2 is <10> AND index eq <1> then] [spinstore I-HHMEM-10 temp2] [ENDIF] [NIF WHOLEFT2 is <11> AND index eq <1> then] [spinstore I-HHMEM-11 temp2] [ENDIF] [NIF WHOLEFT2 is <12> AND index eq <1> then] [spinstore I-HHMEM-12 temp2] [ENDIF] [NIF WHOLEFT2 is <13> AND index eq <1> then] [spinstore I-HHMEM-13 temp2] [ENDIF] [NIF WHOLEFT2 is <14> AND index eq <1> then] [spinstore I-HHMEM-14 temp2] [ENDIF] [NIF WHOLEFT2 is <15> AND index eq <1> then] [spinstore I-HHMEM-15 temp2] [ENDIF] [NIF WHOLEFT2 is <16> AND index eq <1> then] [spinstore I-HHMEM-16 temp2] [ENDIF] $end ---------------------------------------------------------------------- $>SPIN2a< ** MOVERS ** [store <0> in index] [If onpath WHOLEFT3 then store <1> in index] [NIF WHOLEFT3 is <1> AND index eq <1> then] [spinstore I-HHMEM-1 temp2] [ENDIF] [NIF WHOLEFT3 is <2> AND index eq <1> then] [spinstore I-HHMEM-2 temp2] [ENDIF] [NIF WHOLEFT3 is <3> AND index eq <1> then] [spinstore I-HHMEM-3 temp2] [ENDIF] [NIF WHOLEFT3 is <4> AND index eq <1> then] [spinstore I-HHMEM-4 temp2] [ENDIF] [NIF WHOLEFT3 is <5> AND index eq <1> then] [spinstore I-HHMEM-5 temp2] [ENDIF] [NIF WHOLEFT3 is <6> AND index eq <1> then] [spinstore I-HHMEM-6 temp2] [ENDIF] [NIF WHOLEFT3 is <7> AND index eq <1> then] [spinstore I-HHMEM-7 temp2] [ENDIF] [NIF WHOLEFT3 is <8> AND index eq <1> then] [spinstore I-HHMEM-8 temp2] [ENDIF] [NIF WHOLEFT3 is <9> AND index eq <1> then] [spinstore I-HHMEM-9 temp2] [ENDIF] [NIF WHOLEFT3 is <10> AND index eq <1> then] [spinstore I-HHMEM-10 temp2] [ENDIF] [NIF WHOLEFT3 is <11> AND index eq <1> then] [spinstore I-HHMEM-11 temp2] [ENDIF] [NIF WHOLEFT3 is <12> AND index eq <1> then] [spinstore I-HHMEM-12 temp2] [ENDIF] [NIF WHOLEFT3 is <13> AND index eq <1> then] [spinstore I-HHMEM-13 temp2] [ENDIF] [NIF WHOLEFT3 is <14> AND index eq <1> then] [spinstore I-HHMEM-14 temp2] [ENDIF] [NIF WHOLEFT3 is <15> AND index eq <1> then] [spinstore I-HHMEM-15 temp2] [ENDIF] [NIF WHOLEFT3 is <16> AND index eq <1> then] [spinstore I-HHMEM-16 temp2] [ENDIF] [store <0> in index] [If onpath WHOLEFT4 then store <1> in index] [NIF WHOLEFT4 is <1> AND index eq <1> then] [spinstore I-HHMEM-1 temp2] [ENDIF] [NIF WHOLEFT4 is <2> AND index eq <1> then] [spinstore I-HHMEM-2 temp2] [ENDIF] [NIF WHOLEFT4 is <3> AND index eq <1> then] [spinstore I-HHMEM-3 temp2] [ENDIF] [NIF WHOLEFT4 is <4> AND index eq <1> then] [spinstore I-HHMEM-4 temp2] [ENDIF] [NIF WHOLEFT4 is <5> AND index eq <1> then] [spinstore I-HHMEM-5 temp2] [ENDIF] [NIF WHOLEFT4 is <6> AND index eq <1> then] [spinstore I-HHMEM-6 temp2] [ENDIF] [NIF WHOLEFT4 is <7> AND index eq <1> then] [spinstore I-HHMEM-7 temp2] [ENDIF] [NIF WHOLEFT4 is <8> AND index eq <1> then] [spinstore I-HHMEM-8 temp2] [ENDIF] [NIF WHOLEFT4 is <9> AND index eq <1> then] [spinstore I-HHMEM-9 temp2] [ENDIF] [NIF WHOLEFT4 is <10> AND index eq <1> then] [spinstore I-HHMEM-10 temp2] [ENDIF] [NIF WHOLEFT4 is <11> AND index eq <1> then] [spinstore I-HHMEM-11 temp2] [ENDIF] [NIF WHOLEFT4 is <12> AND index eq <1> then] [spinstore I-HHMEM-12 temp2] [ENDIF] [NIF WHOLEFT4 is <13> AND index eq <1> then] [spinstore I-HHMEM-13 temp2] [ENDIF] [NIF WHOLEFT4 is <14> AND index eq <1> then] [spinstore I-HHMEM-14 temp2] [ENDIF] [NIF WHOLEFT4 is <15> AND index eq <1> then] [spinstore I-HHMEM-15 temp2] [ENDIF] [NIF WHOLEFT4 is <16> AND index eq <1> then] [spinstore I-HHMEM-16 temp2] [ENDIF] [NIF WHOLEFT1 is then] [spinstore I-HHMEM-1 temp2] [spinstore I-HHMEM-2 temp2] [spinstore I-HHMEM-3 temp2] [spinstore I-HHMEM-4 temp2] [spinstore I-HHMEM-5 temp2] [spinstore I-HHMEM-6 temp2] [spinstore I-HHMEM-7 temp2] [spinstore I-HHMEM-8 temp2] [spinstore I-HHMEM-9 temp2] [spinstore I-HHMEM-10 temp2] [spinstore I-HHMEM-11 temp2] [spinstore I-HHMEM-12 temp2] [spinstore I-HHMEM-13 temp2] [spinstore I-HHMEM-14 temp2] [spinstore I-HHMEM-15 temp2] [spinstore I-HHMEM-16 temp2] [ENDIF] $end ---------------------------------------------------------------------- $>SPIN2b< The following blanks relationship, parent's line number spouse's line number and marital status in spawns. ** SPD ** [store < > in temp2] ** SPD ** [spinstore I-RRP-1 temp2] [spinstore I-RRP-2 temp2] [spinstore I-RRP-3 temp2] [spinstore I-RRP-4 temp2] [spinstore I-RRP-5 temp2] [spinstore I-RRP-6 temp2] [spinstore I-RRP-7 temp2] [spinstore I-RRP-8 temp2] [spinstore I-RRP-9 temp2] [spinstore I-RRP-10 temp2] [spinstore I-RRP-11 temp2] [spinstore I-RRP-12 temp2] [spinstore I-RRP-13 temp2] [spinstore I-RRP-14 temp2] [spinstore I-RRP-15 temp2] [spinstore I-RRP-16 temp2] [spinstore I-PARNT-1 temp2] [spinstore I-PARNT-2 temp2] [spinstore I-PARNT-3 temp2] [spinstore I-PARNT-4 temp2] [spinstore I-PARNT-5 temp2] [spinstore I-PARNT-6 temp2] [spinstore I-PARNT-7 temp2] [spinstore I-PARNT-8 temp2] [spinstore I-PARNT-9 temp2] [spinstore I-PARNT-10 temp2] [spinstore I-PARNT-11 temp2] [spinstore I-PARNT-12 temp2] [spinstore I-PARNT-13 temp2] [spinstore I-PARNT-14 temp2] [spinstore I-PARNT-15 temp2] [spinstore I-PARNT-16 temp2] [spinstore I-SPOUS-1 temp2] [spinstore I-SPOUS-2 temp2] [spinstore I-SPOUS-3 temp2] [spinstore I-SPOUS-4 temp2] [spinstore I-SPOUS-5 temp2] [spinstore I-SPOUS-6 temp2] [spinstore I-SPOUS-7 temp2] [spinstore I-SPOUS-8 temp2] [spinstore I-SPOUS-9 temp2] [spinstore I-SPOUS-10 temp2] [spinstore I-SPOUS-11 temp2] [spinstore I-SPOUS-12 temp2] [spinstore I-SPOUS-13 temp2] [spinstore I-SPOUS-14 temp2] [spinstore I-SPOUS-15 temp2] [spinstore I-SPOUS-16 temp2] [spinstore I-MARTL-1 temp2] [spinstore I-MARTL-2 temp2] [spinstore I-MARTL-3 temp2] [spinstore I-MARTL-4 temp2] [spinstore I-MARTL-5 temp2] [spinstore I-MARTL-6 temp2] [spinstore I-MARTL-7 temp2] [spinstore I-MARTL-8 temp2] [spinstore I-MARTL-9 temp2] [spinstore I-MARTL-10 temp2] [spinstore I-MARTL-11 temp2] [spinstore I-MARTL-12 temp2] [spinstore I-MARTL-13 temp2] [spinstore I-MARTL-14 temp2] [spinstore I-MARTL-15 temp2] [spinstore I-MARTL-16 temp2] [store < > in tempsp] [spinoff tempsp] $end ---------------------------------------------------------------------- $>SPDA< ** SPD ** [NIF WHOLEFT1 is then] [store <202> in outcome] [if marktwo eq <02> then store <204> in outcome] [if marktwo eq <05> then store <205> in outcome] [if marktwo eq <06> then store <205> in outcome] [If HHnum-vr is <2> then store <1> in REPFLG] [goto thank2] [ENDIF] $end ---------------------------------------------------------------------- $>SPLITHH< ** MOVERS ** $display >SPLITHH< ASK IF NECESSARY Did anyone who lived at the previous address, move to a different address than this one? <1> Yes <2> No [store <202> in outcome] [if marktwo eq <02> then store <204> in outcome] [if marktwo eq <05> then store <205> in outcome] [if marktwo eq <06> then store <205> in outcome] [If HHnum-vr is <2> then store <1> in REPFLG] [goto thank2] ===>_ $end ---------------------------------------------------------------------- $>NOW-MOVERS< ** MOVERS ** [store <0> in MOVERS_R_P] $end $ROPEN>MOVERS< $>AFT-MOVERS< ** MOVERS ** [store <202> in outcome] [if marktwo eq <02> then store <204> in outcome] [if marktwo eq <05> then store <205> in outcome] [if marktwo eq <06> then store <205> in outcome] [If HHnum-vr is <2> then store <1> in REPFLG] [goto thank2] $end ---------------------------------------------------------------------- $RBEGIN>MOVERS< [maxelt 10] $>WHODIF< [multiple WHODIF1 WHODIF2 WHODIF3 WHODIF4] ** MOVERS ** [do index <1> <16>] [store <0> in xbad(index)] [IF HHMEM(index) isnt <1> then convert index integer to xbad(index) character] [IF LINENO(index) is < > then convert index integer to xbad(index) character] [store < > in tempname(index)] [end do] [do index <1> NROSIZ] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to tempname(index)(2:2) character] [ELSEIF index2 ge <10> then] [convert index2 integer to tempname(index)(1:2) character] [ENDIF] [store name(index) in tempname(index)(4:23)] [if LINENO(index) is < > then store < > in tempname(index)] ADDED IN FEB 94 [end do] $itemtable >WHODIF< Which persons who lived at the previous address are now at a different address from yours? ENTER FOR NO MORE LN NAME LN NAME LN NAME [fill tempname(1)] [fill tempname(7)] [fill tempname(12)] [fill tempname(2)] [fill tempname(8)] [fill tempname(13)] [fill tempname(3)] [fill tempname(9)] [fill tempname(14)] [fill tempname(4)] [fill tempname(10)] [fill tempname(15)] [fill tempname(5)] [fill tempname(11)] [fill tempname(16)] [fill tempname(6)] ===>__ ===>__ ===>__ ===>__ $end ---------------------------------------------------------------------- $>WHODIF1< [within WHODIF] $d [none] <1-16> $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end $>WHODIF2< [within WHODIF] $d [none] <1-16> [goto RSNLFT-2] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal WHODIF1(R_P)] $end $>WHODIF3< [within WHODIF] $d [none] <1-16> [goto RSNLFT-2] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal WHODIF1(R_P)] [notequal WHODIF2(R_P)] $end $>WHODIF4< [within WHODIF] $d [none] <1-16> $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal WHODIF1(R_P)] [notequal WHODIF2(R_P)] [notequal WHODIF3(R_P)] $end ---------------------------------------------------------------------- $>RSNLFT-2< [multiple RSN1-2 RSN2-2 RSN3-2] ** MOVERS ** [store < > in table(1)] [store < > in table(2)] [store < > in table(3)] [store < > in table(4)] [store <0> in index] [convert WHODIF1(R_P) character to index integer] [If index nq <0> then store name(index) in table(1)] [store <0> in index] [NIF WHODIF2(R_P) isnt then] [If onpath WHODIF2:R_P then convert WHODIF2(R_P) character to index integer] [ENDIF] [If index nq <0> then store name(index) in table(2)] [store <0> in index] [NIF WHODIF3(R_P) isnt then] [If onpath WHODIF3:R_P then convert WHODIF3(R_P) character to index integer] [ENDIF] [If index nq <0> then store name(index) in table(3)] [store <0> in index] [NIF WHODIF4(R_P) isnt then] [If onpath WHODIF4:R_P then convert WHODIF4(R_P) character to index integer] [ENDIF] [If index nq <0> then store name(index) in table(4)] $itemtable >RSNLFT-2< Why did (READ NAMES) move? [fill table(1)] [fill table(3)] [fill table(2)] [fill table(4)] ENTER ALL THAT APPLY ENTER FOR NO MORE <1> Institutionalized <2> Living in Armed Forces barracks <3> Moved outside of U.S. <4> Separation or divorce <5> Marriage <6> Became employed/unemployed <7> Due to job change <8> Going to school <9> Other ===>_ ===>_ ===>_ $end ---------------------------------------------------------------------- $>RSN1-2< [within RSNLFT-2] $d [none] <1-9> $end $>RSN2-2< [within RSNLFT-2] $d [none] <1-9> [goto CK2-RSNLFT] $edit [notequal RSN1-2(R_P)] $end $>RSN3-2< [within RSNLFT-2] $d [none] <1-9> $edit [notequal RSN1-2(R_P)] [notequal RSN2-2(R_P)] $end ---------------------------------------------------------------------- $>CK2-RSNLFT< ** MOVERS ** [store <0> in index] [NIF RSN1-2(R_P) is <1> OR RSN1-2(R_P) is <2> then] [if onpath RSN1-2:R_P then store <1> in index] [ELSEIF RSN1-2(R_P) is <3> then] [if onpath RSN1-2:R_P then store <1> in index] [ENDIF] [NIF RSN2-2(R_P) is AND index eq <1> then] DO NOT FOLLOW [if onpath RSN2-2:R_P then goto MORLEAV] [ENDIF] [store <0> in index] [NIF RSN1-2(R_P) is <1> OR RSN1-2(R_P) is <2> then] [if onpath RSN1-2:R_P then store <1> in index] [ELSEIF RSN1-2(R_P) is <3> then] [if onpath RSN1-2:R_P then store <1> in index] [ENDIF] [NIF RSN2-2(R_P) is <1> OR RSN2-2(R_P) is <2> then] [if onpath RSN2-2:R_P then add <1> to index] [ELSEIF RSN2-2(R_P) is <3> then] [if onpath RSN2-2:R_P then add <1> to index] [ENDIF] [NIF RSN3-2(R_P) is AND index eq <2> then] DO NOT FOLLOW [if onpath RSN3-2:R_P then goto MORLEAV] [ENDIF] [store <0> in index] [NIF RSN1-2(R_P) is <1> OR RSN1-2(R_P) is <2> then] [if onpath RSN1-2:R_P then store <1> in index] [ELSEIF RSN1-2(R_P) is <3> then] [if onpath RSN1-2:R_P then store <1> in index] [ENDIF] [NIF RSN2-2(R_P) is <1> OR RSN2-2(R_P) is <2> then] [if onpath RSN2-2:R_P then add <1> to index] [ELSEIF RSN2-2(R_P) is <3> then] [if onpath RSN2-2:R_P then add <1> to index] [ENDIF] [NIF RSN3-2(R_P) is <1> OR RSN3-2(R_P) is <2> then] [if onpath RSN3-2:R_P then add <1> to index] [ELSEIF RSN3-2(R_P) is <3> then] [if onpath RSN3-2:R_P then add <1> to index] [ENDIF] [IF index eq <3> then goto MORLEAV] DO NOT FOLLOW $end ---------------------------------------------------------------------- $>NWADD< [multiple NWAD1 NWADR1 NWADR2 NWCITY NWSTATE NWZIP] ADDED FOR ** MOVERS ** $itemtable >NWNADD< What is the new address for these people? FR: Do you know the new address? <1> Yes <2> No ===>_ STREET ADDRESS: ===>______________________________________________________ ===>______________________________________________________ CITY: ===>______________________ STATE: ===>__ Help ZIP: ===>_____ $end ------------------------------------------------------------------------------- $>NWAD1< [within NWADD] $d [none] <1> <2> [goto ST-NWADDR] $end $>NWADR1< [within NWADD] $display [none] ===>____________________________________ $edit [anychar] $end $>NWADR2< [within NWADD] $display [none] ===>____________________________________ $edit [anything] $end $>NWcity< [within NWADD] $display [none] ===>______________________ $edit [anychar] $end $>NWSTATE< [within NWADD] $display [none] [referto state-ref] ===>__ $edit [precodes] $end $>NWzip< [within NWADD] $display [none] ===>_____ $edit [numeric] $end -------------------------------------------------------------------------------- $>ST-NWADDR< ** MOVERS ** [NIF NWAD1(R_P) is <2> then] [store < > in RSNST1(R_P)] [store < > in RSNST2(R_P)] [store < > in RSNCT(R_P)] [store < > in RSNST(R_P)] [store < > in RSNZP(R_P)] [goto NWTEL] [ENDIF] [store NWADR1(R_P) in RSNST1(R_P)] [store NWADR2(R_P) in RSNST2(R_P)] [store NWCITY(R_P) in RSNCT(R_P)] [store NWSTATE(R_P) in RSNST(R_P)] [store NWZIP(R_P) in RSNZP(R_P)] $end ------------------------------------------------------------------------------- $>NWTEL< [multiple NWTEL1 NWAREA NWNUM NWEXTN] ** MOVERS ** [store <1000000> in xbad(1)] [store <100> in xbad(2)] $itemtable >NWTEL< What is the new telephone number for these people? FR: Do you know the new telephone number? <1> Yes <2> No ===>_ Area Code:==>___ New Number ===>___-____ EXT: ===>____ IF NO EXTENSION, PRESS ENTER $end --------------------------------------------------------------------- $>NWTEL1< [within NWTEL] $d [none] <1> <2> [goto ST-NWTEL] $end $>NWAREA< [within NWTEL] $display [none] $edit [notless xbad(2)] [numeric] $end $>NWNUM< [within NWTEL] $display [none] $edit [notless xbad(1)] [numeric] $end $>NWEXTN< [within NWTEL] $display [none] $edit [anything] $end --------------------------------------------------------------------- $>ST-NWTEL< ** MOVERS ** [NIF NWTEL1(R_P) is <2> then] [store < > in RSNAR(R_P)] [store < > in RSNNUM(R_P)] [store < > in RSNEXT(R_P)] [store < > in RSPHONE(R_P)] [goto SPIN3] [ENDIF] [store NWAREA(R_P) in RSNAR(R_P)] [store NWNUM(R_P) in RSNNUM(R_P)] [store NWEXTN(R_P) in RSNEXT(R_P)] [combine <1> RSNAR(R_P) RSNNUM(R_P) into RSPHONE(R_P)] $end ---------------------------------------------------------------------- $>SPIN3< ** SPIN OFF HERE ** ** MOVERS ** [if caseid(14:14) isnt < > then goto MORLEAV] ** SPD ** [spinstore I-PHONE RSPHONE(R_P)] [spinstore I-EXT RSNEXT(R_P)] [spinstore I-ADD1 RSNST1(R_P)] [spinstore I-ADD2 RSNST2(R_P)] [spinstore I-CITY RSNCT(R_P)] [spinstore I-STATE RSNST(R_P)] [spinstore I-ZIP RSNZP(R_P)] [store < > in temp2] ** SPD ** [spinstore I-BLANK3 temp2] FLAG TO KNOW WHICH CASE IS A SPINOFF USE I-BLANK3 TO DETERMINE WHEN TO USE FILLS FOR MOVERS. IF I-BLANK3 =1 THEN IT IS A SPIN OFF CASE. IF I-BLANK3=BLANK THEN IT IS THE PARENT CASE. [store <5> in temp2] [spinstore I-MISCK temp2] Make case MIS 5 to reask I&O [store WHODIF1(R_P) in temp2] [spinstore I-HHR temp2] START OFF BY SETTING HH MEMBERSHIP = 2 FOR EVERYONE [store <2> in temp2] [spinstore I-HHMEM-1 temp2] [spinstore I-HHMEM-2 temp2] [spinstore I-HHMEM-3 temp2] [spinstore I-HHMEM-4 temp2] [spinstore I-HHMEM-5 temp2] [spinstore I-HHMEM-6 temp2] [spinstore I-HHMEM-7 temp2] [spinstore I-HHMEM-8 temp2] [spinstore I-HHMEM-9 temp2] [spinstore I-HHMEM-10 temp2] [spinstore I-HHMEM-11 temp2] [spinstore I-HHMEM-12 temp2] [spinstore I-HHMEM-13 temp2] [spinstore I-HHMEM-14 temp2] [spinstore I-HHMEM-15 temp2] [spinstore I-HHMEM-16 temp2] SET HH MEMBERSHIP = 1 FOR ALL LINE NUMBERS ENTERED IN WHODIF [store <1> in temp2] [store <0> in index] [IF onpath WHODIF1:R_P then store <1> in index] [NIF WHODIF1(R_P) is <1> AND index eq <1> then] [spinstore I-HHMEM-1 temp2] [ENDIF] [NIF WHODIF1(R_P) is <2> AND index eq <1> then] [spinstore I-HHMEM-2 temp2] [ENDIF] [NIF WHODIF1(R_P) is <3> AND index eq <1> then] [spinstore I-HHMEM-3 temp2] [ENDIF] [NIF WHODIF1(R_P) is <4> AND index eq <1> then] [spinstore I-HHMEM-4 temp2] [ENDIF] [NIF WHODIF1(R_P) is <5> AND index eq <1> then] [spinstore I-HHMEM-5 temp2] [ENDIF] [NIF WHODIF1(R_P) is <6> AND index eq <1> then] [spinstore I-HHMEM-6 temp2] [ENDIF] [NIF WHODIF1(R_P) is <7> AND index eq <1> then] [spinstore I-HHMEM-7 temp2] [ENDIF] [NIF WHODIF1(R_P) is <8> AND index eq <1> then] [spinstore I-HHMEM-8 temp2] [ENDIF] [NIF WHODIF1(R_P) is <9> AND index eq <1> then] [spinstore I-HHMEM-9 temp2] [ENDIF] [NIF WHODIF1(R_P) is <10> AND index eq <1> then] [spinstore I-HHMEM-10 temp2] [ENDIF] [NIF WHODIF1(R_P) is <11> AND index eq <1> then] [spinstore I-HHMEM-11 temp2] [ENDIF] [NIF WHODIF1(R_P) is <12> AND index eq <1> then] [spinstore I-HHMEM-12 temp2] [ENDIF] [NIF WHODIF1(R_P) is <13> AND index eq <1> then] [spinstore I-HHMEM-13 temp2] [ENDIF] [NIF WHODIF1(R_P) is <14> AND index eq <1> then] [spinstore I-HHMEM-14 temp2] [ENDIF] [NIF WHODIF1(R_P) is <15> AND index eq <1> then] [spinstore I-HHMEM-15 temp2] [ENDIF] [NIF WHODIF1(R_P) is <16> AND index eq <1> then] [spinstore I-HHMEM-16 temp2] [ENDIF] [store <0> in index] [If onpath WHODIF2:R_P then store <1> in index] [NIF WHODIF2(R_P) is <1> AND index eq <1> then] [spinstore I-HHMEM-1 temp2] [ENDIF] [NIF WHODIF2(R_P) is <2> AND index eq <1> then] [spinstore I-HHMEM-2 temp2] [ENDIF] [NIF WHODIF2(R_P) is <3> AND index eq <1> then] [spinstore I-HHMEM-3 temp2] [ENDIF] [NIF WHODIF2(R_P) is <4> AND index eq <1> then] [spinstore I-HHMEM-4 temp2] [ENDIF] [NIF WHODIF2(R_P) is <5> AND index eq <1> then] [spinstore I-HHMEM-5 temp2] [ENDIF] [NIF WHODIF2(R_P) is <6> AND index eq <1> then] [spinstore I-HHMEM-6 temp2] [ENDIF] [NIF WHODIF2(R_P) is <7> AND index eq <1> then] [spinstore I-HHMEM-7 temp2] [ENDIF] [NIF WHODIF2(R_P) is <8> AND index eq <1> then] [spinstore I-HHMEM-8 temp2] [ENDIF] [NIF WHODIF2(R_P) is <9> AND index eq <1> then] [spinstore I-HHMEM-9 temp2] [ENDIF] [NIF WHODIF2(R_P) is <10> AND index eq <1> then] [spinstore I-HHMEM-10 temp2] [ENDIF] [NIF WHODIF2(R_P) is <11> AND index eq <1> then] [spinstore I-HHMEM-11 temp2] [ENDIF] [NIF WHODIF2(R_P) is <12> AND index eq <1> then] [spinstore I-HHMEM-12 temp2] [ENDIF] [NIF WHODIF2(R_P) is <13> AND index eq <1> then] [spinstore I-HHMEM-13 temp2] [ENDIF] [NIF WHODIF2(R_P) is <14> AND index eq <1> then] [spinstore I-HHMEM-14 temp2] [ENDIF] [NIF WHODIF2(R_P) is <15> AND index eq <1> then] [spinstore I-HHMEM-15 temp2] [ENDIF] [NIF WHODIF2(R_P) is <16> AND index eq <1> then] [spinstore I-HHMEM-16 temp2] [ENDIF] $end ---------------------------------------------------------------------- $>SPIN3a< ** MOVERS ** [store <0> in index] [If onpath WHODIF3:R_P then store <1> in index] [NIF WHODIF3(R_P) is <1> AND index eq <1> then] [spinstore I-HHMEM-1 temp2] [ENDIF] [NIF WHODIF3(R_P) is <2> AND index eq <1> then] [spinstore I-HHMEM-2 temp2] [ENDIF] [NIF WHODIF3(R_P) is <3> AND index eq <1> then] [spinstore I-HHMEM-3 temp2] [ENDIF] [NIF WHODIF3(R_P) is <4> AND index eq <1> then] [spinstore I-HHMEM-4 temp2] [ENDIF] [NIF WHODIF3(R_P) is <5> AND index eq <1> then] [spinstore I-HHMEM-5 temp2] [ENDIF] [NIF WHODIF3(R_P) is <6> AND index eq <1> then] [spinstore I-HHMEM-6 temp2] [ENDIF] [NIF WHODIF3(R_P) is <7> AND index eq <1> then] [spinstore I-HHMEM-7 temp2] [ENDIF] [NIF WHODIF3(R_P) is <8> AND index eq <1> then] [spinstore I-HHMEM-8 temp2] [ENDIF] [NIF WHODIF3(R_P) is <9> AND index eq <1> then] [spinstore I-HHMEM-9 temp2] [ENDIF] [NIF WHODIF3(R_P) is <10> AND index eq <1> then] [spinstore I-HHMEM-10 temp2] [ENDIF] [NIF WHODIF3(R_P) is <11> AND index eq <1> then] [spinstore I-HHMEM-11 temp2] [ENDIF] [NIF WHODIF3(R_P) is <12> AND index eq <1> then] [spinstore I-HHMEM-12 temp2] [ENDIF] [NIF WHODIF3(R_P) is <13> AND index eq <1> then] [spinstore I-HHMEM-13 temp2] [ENDIF] [NIF WHODIF3(R_P) is <14> AND index eq <1> then] [spinstore I-HHMEM-14 temp2] [ENDIF] [NIF WHODIF3(R_P) is <15> AND index eq <1> then] [spinstore I-HHMEM-15 temp2] [ENDIF] [NIF WHODIF3(R_P) is <16> AND index eq <1> then] [spinstore I-HHMEM-16 temp2] [ENDIF] [store <0> in index] [IF onpath WHODIF4:R_P then store <1> in index] [NIF WHODIF4(R_P) is <1> AND index eq <1> then] [spinstore I-HHMEM-1 temp2] [ENDIF] [NIF WHODIF4(R_P) is <2> AND index eq <1> then] [spinstore I-HHMEM-2 temp2] [ENDIF] [NIF WHODIF4(R_P) is <3> AND index eq <1> then] [spinstore I-HHMEM-3 temp2] [ENDIF] [NIF WHODIF4(R_P) is <4> AND index eq <1> then] [spinstore I-HHMEM-4 temp2] [ENDIF] [NIF WHODIF4(R_P) is <5> AND index eq <1> then] [spinstore I-HHMEM-5 temp2] [ENDIF] [NIF WHODIF4(R_P) is <6> AND index eq <1> then] [spinstore I-HHMEM-6 temp2] [ENDIF] [NIF WHODIF4(R_P) is <7> AND index eq <1> then] [spinstore I-HHMEM-7 temp2] [ENDIF] [NIF WHODIF4(R_P) is <8> AND index eq <1> then] [spinstore I-HHMEM-8 temp2] [ENDIF] [NIF WHODIF4(R_P) is <9> AND index eq <1> then] [spinstore I-HHMEM-9 temp2] [ENDIF] [NIF WHODIF4(R_P) is <10> AND index eq <1> then] [spinstore I-HHMEM-10 temp2] [ENDIF] [NIF WHODIF4(R_P) is <11> AND index eq <1> then] [spinstore I-HHMEM-11 temp2] [ENDIF] [NIF WHODIF4(R_P) is <12> AND index eq <1> then] [spinstore I-HHMEM-12 temp2] [ENDIF] [NIF WHODIF4(R_P) is <13> AND index eq <1> then] [spinstore I-HHMEM-13 temp2] [ENDIF] [NIF WHODIF4(R_P) is <14> AND index eq <1> then] [spinstore I-HHMEM-14 temp2] [ENDIF] [NIF WHODIF4(R_P) is <15> AND index eq <1> then] [spinstore I-HHMEM-15 temp2] [ENDIF] [NIF WHODIF4(R_P) is <16> AND index eq <1> then] [spinstore I-HHMEM-16 temp2] [ENDIF] $end ---------------------------------------------------------------------- $>SPIN3b< The following blanks relationship, parent's line number spouse's line number and marital status in spawns. ** SPD ** [store < > in temp2] ** SPD ** [spinstore I-RRP-1 temp2] [spinstore I-RRP-2 temp2] [spinstore I-RRP-3 temp2] [spinstore I-RRP-4 temp2] [spinstore I-RRP-5 temp2] [spinstore I-RRP-6 temp2] [spinstore I-RRP-7 temp2] [spinstore I-RRP-8 temp2] [spinstore I-RRP-9 temp2] [spinstore I-RRP-10 temp2] [spinstore I-RRP-11 temp2] [spinstore I-RRP-12 temp2] [spinstore I-RRP-13 temp2] [spinstore I-RRP-14 temp2] [spinstore I-RRP-15 temp2] [spinstore I-RRP-16 temp2] [spinstore I-PARNT-1 temp2] [spinstore I-PARNT-2 temp2] [spinstore I-PARNT-3 temp2] [spinstore I-PARNT-4 temp2] [spinstore I-PARNT-5 temp2] [spinstore I-PARNT-6 temp2] [spinstore I-PARNT-7 temp2] [spinstore I-PARNT-8 temp2] [spinstore I-PARNT-9 temp2] [spinstore I-PARNT-10 temp2] [spinstore I-PARNT-11 temp2] [spinstore I-PARNT-12 temp2] [spinstore I-PARNT-13 temp2] [spinstore I-PARNT-14 temp2] [spinstore I-PARNT-15 temp2] [spinstore I-PARNT-16 temp2] [spinstore I-SPOUS-1 temp2] [spinstore I-SPOUS-2 temp2] [spinstore I-SPOUS-3 temp2] [spinstore I-SPOUS-4 temp2] [spinstore I-SPOUS-5 temp2] [spinstore I-SPOUS-6 temp2] [spinstore I-SPOUS-7 temp2] [spinstore I-SPOUS-8 temp2] [spinstore I-SPOUS-9 temp2] [spinstore I-SPOUS-10 temp2] [spinstore I-SPOUS-11 temp2] [spinstore I-SPOUS-12 temp2] [spinstore I-SPOUS-13 temp2] [spinstore I-SPOUS-14 temp2] [spinstore I-SPOUS-15 temp2] [spinstore I-SPOUS-16 temp2] [spinstore I-MARTL-1 temp2] [spinstore I-MARTL-2 temp2] [spinstore I-MARTL-3 temp2] [spinstore I-MARTL-4 temp2] [spinstore I-MARTL-5 temp2] [spinstore I-MARTL-6 temp2] [spinstore I-MARTL-7 temp2] [spinstore I-MARTL-8 temp2] [spinstore I-MARTL-9 temp2] [spinstore I-MARTL-10 temp2] [spinstore I-MARTL-11 temp2] [spinstore I-MARTL-12 temp2] [spinstore I-MARTL-13 temp2] [spinstore I-MARTL-14 temp2] [spinstore I-MARTL-15 temp2] [spinstore I-MARTL-16 temp2] [store < > in tempsp] [spinoff tempsp] $end ---------------------------------------------------------------------- $>MORLEAV< ** MOVERS ** $display >MORLEAV< Is there anyone else who lived at the previous address that does not live in your household and moved to another address? <1> Yes <2> No [roster exit] ===>_ $end ---------------------------------------------------------------------- $REND>MOVERS< ** MOVERS ** $>DUMMY< ** MOVERS ** $end ---------------------------------------------------------------------- $>CHNGPH< ADDED AUG 94 $display >CHNGPH< *** DO NOT ASK *** Do you need to change the current phone number? <1> Yes [goto NEWPH] <2> No [goto mail-ck] ===>_ $end ---------------------------------------------------------------------- $>newph< [multiple newphar newphnum newphext] ADDED AUG 94 [store <1000000> in xbad(1)] [store <100> in xbad(2)] $itemtable >newph< What is the new telephone number where you would like to be called? ENTER FOR NONE OR DON'T KNOW Area Code:==>___ New Number ===>___-____ EXT: ===>____ ENTER FOR SAME FOR NONE $end --------------------------------------------------------------------- $>newphar< [within newph] $display [none] Same [if phonenum(2:4) is < > then referto ref-not] [goto mail-ck] ===>___ $edit [notless xbad(2)] [numeric] $end $>newphnum< [within newph] $display [none] $edit [notless xbad(1)] [numeric] $end $>newphext< [within newph] $display [none] None ===>____ [goto newph-st] $edit [numeric] $end --------------------------------------------------------------------- $>newph-st< [if newphar isnt then store newphar in phonenum(2:4)] [store newphnum in phonenum(5:11)] [if newphext isnt then store newphext in EXT] [if newphext is then store < > in EXT] $end ---------------------------------------------------------------------- COMMENT: MAILING ADDRESS IS ONLY ASKED FOR MONTH-IN-SAMPLE 1 ,5, REPLACEMENT HOUSEHOLDS OR IF THE ADDRESS HAS CHANGED, ALL OTHERS GOTO INTRO-C $>mail-ck< [store <3> in wheredex] [if wheredex gt fardex then store wheredex in fardex] [NIF intro-b is <4> then] [If onpath intro-b then goto Mailad] [ENDIF] [NIF MISFLG is <1> OR MISFLG is <5> then] [goto Mailad] [ELSEIF REPLCE eq <1> OR ADDCHG eq <1> then] [goto Mailad] [ELSE] [goto intro-c] [ENDIF] $end ------------------------------------------------------------------------------- $>Mailad< $display >Mailad< Is this your mailing address? [fill/l HADDR1] [fill/l HADDR2] [fill HADDCT], [fill HADDST] [fill HADDZP] <1> Yes [store <0> in MAILCH] [goto intro-c] <2> No [store <1> in MAILCH] ===>_ $d [alt 1] >Mailad< ¨Es ‚sta su direcci¢n de correos? [fill/l HADDR1] [fill/l HADDR2] [fill HADDCT], [fill HADDST] [fill HADDZP] <1> S¡ [store <0> in MAILCH] [goto intro-c] <2> No [store <1> in MAILCH] ===>_ $end ------------------------------------------------------------------------------- $>mailaddr< [multiple nmadd1 nmcity nmstate nmzip] $itemtable >mailaddr< What is your mailing address? ENTER CHANGE OR FOR SAME SAME AS OLD ADDRESS: [fill HADDR1] ===>______________________________________________________ CITY: [fill HADDCT] SAME AS OLD ===>______________________ STATE: [fill HADDST] SAME AS OLD Help ===>__ ZIP: [fill HADDZP] SAME AS OLD ===>_____ $d [alt 1] >mailaddr< ¨Cu l es su direcci¢n de correos? ENTER CHANGE OR FOR SAME SAME AS OLD ADDRESS: [fill HADDR1] ===>______________________________________________________ CITY: [fill HADDCT] SAME AS OLD ===>______________________ STATE: [fill HADDST] SAME AS OLD Help ===>__ ZIP: [fill HADDZP] SAME AS OLD ===>_____ $end ------------------------------------------------------------------------------- $>nmadd1< [within mailaddr] $display [none] SAME [if HADDR1 is < > then referto ref-not] ===>____________________ $edit [anychar] $end $>nmcity< [within mailaddr] [store nmadd1 in MADDR] [If nmadd1 is then store HADDR1 in MADDR] $display [none] SAME [if HADDCT is < > then referto ref-not] ===>_______________ $edit [anychar] $end $>nmState< [within mailaddr] [store nmcity in MADDCT] [if nmcity is then store HADDCT in MADDCT] $display [none] SAME [if HADDST is < > then referto ref-not] [referto state-ref] ===>__ $edit [precodes] $end $>nmzip< [within mailaddr] [store nmstate in MADDST] [if nmstate is then store HADDST in MADDST] $display [none] SAME [if HADDZP is < > then referto ref-not] ===>_____ $edit [numeric] $end -------------------------------------------------------------------------------- $>aft-mail< [store nmzip in MADDZP] [If nmzip is then store HADDZP in MADDZP] [goto intro-c] $end ------------------------------------------------------------------------------- COMMENT: SETS MARK DEPENDING ON IF THIS IS THE 1ST OR 2ND REFUSAL (COMES HERE IF THE RESPONDENT REFUSES AT INTRO-B) $>refset< [store <202> in outcome] [if marktwo eq <02> then store <204> in outcome] [if marktwo eq <05> then store <205> in outcome] [if marktwo eq <06> then store <205> in outcome] [NIF mark le <9> then] [store <9> in mark] [ELSEIF mark eq <10> then] [store <15> in mark] [ELSEIF mark eq <16> OR MARK EQ <14> then] [store <15> in mark] [ENDIF] [goto helcom] $end ------------------------------------------------------------------------------ $>intro-b1< [store NROSIZ in index2] [add <1> to index2] [if index2 gt <16> then store <16> in index2] [do index <1> index2] [store <1> in pelig(index)] [NIF DELDEC(index) is <9> then] [store <11> in pelig(index)] [ELSEIF Donper(index) is <1> then] [store <2> in pelig(index)] [ELSEIF misper(index) is <1> then] [store <3> in pelig(index)] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <1> then] [store <9> in pelig(index)] [ELSEIF DELDEC(index) is <2> then] [store <10> in pelig(index)] [ELSEIF hhmem(index) is <2> OR HHmem(index) is <3> then] [store <8> in pelig(index)] [ELSEIF AGERNG(index) eq <1> then] [store <7> in pelig(index)] [ELSEIF AFNOW(index) is <1> then] [store <6> in pelig(index)] [ELSEIF AGERNG(index) eq <9> then] [store <5> in pelig(index)] [ENDIF] [end do] [store <0> in index] [tablook pelig <11> index] [if index eq <0> then store <16> in index] CHECKS FOR 16 PERSON HH [add <1> to index] FIRST POSITION AFTER EOL [do index2 index <16>] [store <12> in pelig(index2)] [end do] [If RESPLI nq <0> then Store name(RESPLI) in respna] [goto fin] $end --------------------------------------------------------------------- $>intro-c< [open fin] [NIF intro-b is <3> then] NONINTERVIEW [If onpath intro-b then goto lasttemp] [ENDIF] [NIF NONTYP is <2> AND resumeI nq <0> then] [If onpath NONTYP then goto intro-d] [ENDIF] [if mark lt <11> then goto lasttemp] NOT A PARTIAL $end --------------------------------------------------------------------- $>PK-Resp< [do index <1> <16>] [store < > in tempname(index)] [store < > in xbad(index)] [if LINENO(index) is < > then convert index integer to xbad(index) character] [If AGERNG(index) lt <2> then convert index integer to xbad(index) character] [If hhmem(index) is <2> then convert index integer to xbad(index) character] [end do] [do index <1> NROSIZ] [if RESPLI eq index then store in tempname(index)(1:1)] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to tempname(index)(4:4) character] [ELSEIF index2 ge <10> then] [convert index2 integer to tempname(index)(3:4) character] [ENDIF] [store name(index) in tempname(index)(6:29)] [NIF hhmem(index) is <1> then] [store in tempname(index)(31:31)] [ELSEIF hhmem(index) is <2> then] [store in tempname(index)(31:31)] [ELSEIF hhmem(index) is <3> then] [store in tempname(index)(31:34)] [ENDIF] [NIF age-i(index) le <9> AND age-i(index) gt <0> then] [store age(index) in tempname(index)(36:36)] [ELSEIF age-i(index) ge <10> then] [store age(index) in tempname(index)(36:37)] [ENDIF] [end do] ** MOVERS ** (next two lines) [store in temp2] [if I-BLANK3 is <1> then store in temp2] $display >Pk-Resp< ENTER LINE NUMBER OF RESPONDENT *** NEW RESPONDENT MUST BE A HOUSEHOLD MEMBER [fill temp2]*** R LN NAME MEM AGE R LN NAME MEM AGE [fill tempname(1)] [fill tempname(9)] [fill tempname(2)] [fill tempname(10)] [fill tempname(3)] [fill tempname(11)] [fill tempname(4)] [fill tempname(12)] [fill tempname(5)] [fill tempname(13)] [fill tempname(6)] [fill tempname(14)] [fill tempname(7)] [fill tempname(15)] [fill tempname(8)] [fill tempname(16)] ENTER LINE NUMBER <1-16> IF CURRENT RESPONDENT ===>__ $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end ----------------------------------------------------------------------------- $>ck-pkresp< [convert pk-resp character to respli integer] [store name(respli) in respna] [goto intro-d] $end ---------------------------------------------------------------------- COMMENT: THIS SCREEN IS USED FOR PARTIAL INTERVIEWS $>intro-d< [setsec sectim-i] [store sectim-i in rsmtime] $display >intro-d< Some of the questions have already been answered. Let me see where we should begin. ITEM TO BEGIN: [fill resumeitem] ENTER

TO PROCEED ===>_ $d [alt 1] >intro-d< Algunas de las preguntas ya han sido contestadas. D‚jeme ver donde debemos comenzar. ITEM TO BEGIN: [fill resumeitem] ENTER

TO PROCEED ===>_ $end --------------------------------------------------------------------- $>intro-d1< [store <4> in wheredex] [if wheredex gt fardex then store wheredex in fardex] IF RESUMEI EQ 0 THAN ONLY F9 WAS USED THEREFORE A RETURN COMMAND MUST BE USED ELSE AN F10 WAS USED AND THE RESUME COMMAND MUST BE USED. [if resumeI eq <0> then return] [resume] $end --------------------------------------------------------------------- $>lasttemp< [store <4> in wheredex] [if wheredex gt fardex then store wheredex in fardex] $end ------------------------------------------------------------------------- =============================================================================== SECTION **6** - INTBEGIN AND PERMANENT VARIABLES =============================================================================== $INTBEGIN ------------------------------------------------------------------------ $Input [vname I-SURV] [loc 1] [allow 4] [character] [vname I-CASEID] [loc 5] [allow 15] [character] [vname I-PHONE] [loc 20] [allow 11] [character] [vname I-TMZONE] [loc 31] [allow 1] [character] [vname I-BOOST] [loc 32] [allow 1] [character] [vname I-BESTTM] [loc 33] [allow 1] [character] [vname I-NOSUN] [loc 34] [allow 1] [character] [vname I-INTERV] [loc 35] [allow 1] [character] 1=spanish speaking [vname I-RDD] [loc 36] [allow 15] [character] [vname I-REFLD] [loc 44] [allow 1] [character] [vname I-SITE] [loc 45] [allow 1] [character] [vname I-BLANK] [loc 46] [allow 5] [character] [vname I-MISCK] [loc 51] [allow 1] [character] [vname I-ADD1] [loc 52] [allow 54] [character] [vname I-ADD2] [loc 106] [allow 54] [character] [vname I-CITY] [loc 160] [allow 22] [character] [vname I-STATE] [loc 182] [allow 2] [character] [vname I-ZIP] [loc 184] [allow 5] [character] [vname I-EXT] [loc 189] [allow 4] [character] [vname I-HOMOFF] [loc 193] [allow 1] [character] [vname I-MARHIS] [loc 194] [allow 1] [character] [vname I-AMPM] [loc 195] [allow 1] [character] [vname I-PNOT1A] [loc 196] [allow 65] [character] [vname I-PNOT1B] [loc 261] [allow 65] [character] [vname I-PNOT1C] [loc 326] [allow 65] [character] [vname I-PNOT1D] [loc 391] [allow 65] [character] [vname I-PNOT2] [loc 456] [allow 65] [character] [vname I-PNOT3] [loc 521] [allow 65] [character] [vname I-BLANK9] [loc 586] [allow 80] [character] [vname I-BLANK13] [loc 666] [allow 47] [character] [vname I-CONTYA] [loc 713] [allow 1] [character] [vname I-MULTSZ] [loc 714] [allow 1] [character] [vname I-DESIGN] [loc 715] [allow 1] [character] 1 = 1980 sample 0 = 1990 sample [vname I-PH2NUM] [loc 716] [allow 2] [character] [vname I-VACFLG] [loc 718] [allow 1] [character] [vname I-SAMPLE] [loc 719] [allow 4] [character] [vname I-SUBFM-1] [loc 723] [allow 11] [character] [vname I-SUBFM-2] [loc 734] [allow 11] [character] [vname I-SUBFM-3] [loc 745] [allow 11] [character] [vname I-SUBFM-4] [loc 756] [allow 11] [character] [vname I-SUBFM-5] [loc 767] [allow 11] [character] [vname I-SUBFM-6] [loc 778] [allow 11] [character] [vname I-SUBFM-7] [loc 789] [allow 11] [character] [vname I-SUBFM-8] [loc 800] [allow 11] [character] [vname I-SUBFM-9] [loc 811] [allow 11] [character] [vname I-SUBFM-10] [loc 822] [allow 11] [character] [vname I-SUBFM-11] [loc 833] [allow 11] [character] [vname I-SUBFM-12] [loc 844] [allow 11] [character] [vname I-SUBFM-13] [loc 855] [allow 11] [character] [vname I-SUBFM-14] [loc 866] [allow 11] [character] [vname I-SUBFM-15] [loc 877] [allow 11] [character] [vname I-SUBFM-16] [loc 888] [allow 11] [character] [vname I-HHR] [loc 899] [allow 2] [character] [vname I-BLANK11] [loc 901] [allow 3] [character] [vname I-HHNUM] [loc 904] [allow 1] [character] HOUSEHOLD NUMBER CC-3 [vname I-TENURE] [loc 905] [allow 1] [character] cc-10 [vname I-TELHHD] [loc 906] [allow 1] [character] IS THERE A TELEPHONE IN HHLD CC-27A [vname I-TELAVL] [loc 907] [allow 1] [character] IS THERE A TELEPHONE ELSEWHERE CC-27B [vname I-TELINT] [loc 908] [allow 1] [character] IS A TELEPHONE INTERVIEW OKAY CC-27C [vname I-FAMINC] [loc 909] [allow 2] [character] FAMILY INCOME CC-29 [vname I-BLANK3] [loc 911] [allow 1] [character] [vname I-HVSFLG] [loc 912] [allow 1] [character] equals 1 if HVS was already asked [vname I-HVSYR] [loc 913] [allow 1] [character] HVS-11 (cc-8) [vname I-LNDUSE] [loc 914] [allow 1] [character] 1=URBAN 2=RURAL [vname I-BLANK7] [loc 915] [allow 2] [character] CC-11B was deleted for january [vname I-HOUSUT] [loc 917] [allow 2] [character] CC-12C [vname I-SEGTYP] [loc 919] [allow 1] [character] 1-AREA 2=UNIT 3=GROUP QUARTERS 4=PERMIT 5=ADDRESS 6=Sp. place [vname I-HVSC] [loc 920] [allow 1] [character] HVS-10 [vname I-YRBLT] [loc 921] [allow 1] [character] (cc-8) [vname I-HVSNUM] [loc 922] [allow 1] [character] HVS-12 [vname I-HVSRM] [loc 923] [allow 1] [character] HVS-13 # OF ROOMS [vname I-HVSBD] [loc 924] [allow 1] [character] HVS-14 [vname I-HVSPLB] [loc 925] [allow 1] [character] HVS-15 [vname I-HVSKIT] [loc 926] [allow 1] [character] HVS-16 [vname I-HVSBTH] [loc 927] [allow 1] [character] HVS-17 [vname I-HVSAC] [loc 928] [allow 1] [character] HVS-18 [vname I-BLANK10] [loc 929] [allow 68] [character] [vname I-SPNAME] [loc 997] [allow 20] [character] SPECIAL PLACE NAME CC-7D [vname I-SPCODE] [loc 1017] [allow 2] [character] SPECIAL PLACE CODE [vname I-SPHONE] [loc 1019] [allow 10] [character] SECOND PHONE [vname I-SHOMOF] [loc 1029] [allow 2] [character] SECOND PHONE HOME OR OFFICE [vname I-CPROBE] [loc 1031] [allow 1] [character] CATI PROBE [vname I-PAREA] [loc 1032] [allow 1] [character] 0=PERMIT AREA 1=NOT A PERMIT AREA [vname I-AREASP] [loc 1033] [allow 1] [character] SPECIAL PLACE IN AREA SEGMENT [vname I-AREAMH] [loc 1034] [allow 1] [character] MOBILE HOME NOT IN A MH PARK [vname I-MULTUT] [loc 1035] [allow 1] [character] 1 = Milti unit, num or letter 2 = multi unit, NOT num/let [vname I-SEXT] [loc 1036] [allow 4] [character] SECONDARY PHONE EXTENSION ADDED IN JANUARY [vname I-BLANK4] [loc 1040] [allow 1] [character] [vname I-OUT1] [loc 1041] [allow 3] [character] OUTCOME CODE FOR FIRST MONTHS INTERVIEW [vname I-OUT2] [loc 1044] [allow 3] [character] OUTCOME CODE FOR SECOND MONTHS INTERVIEW [vname I-OUT3] [loc 1047] [allow 3] [character] OUTCOME CODE FOR THIRD MONTHS INTERVIEW [vname I-OUT4] [loc 1050] [allow 3] [character] OUTCOME CODE FOR FOURTH MONTHS INTERVIEW [vname I-OUT5] [loc 1053] [allow 3] [character] OUTCOME CODE FOR FIFTH MONTHS INTERVIEW [vname I-OUT6] [loc 1056] [allow 3] [character] OUTCOME CODE FOR SIXTH MONTHS INTERVIEW [vname I-OUT7] [loc 1059] [allow 3] [character] OUTCOME CODE FOR SEVENTH MONTHS INTERVIEW [vname I-OUT8] [loc 1062] [allow 3] [character] OUTCOME CODE FOR EIGHTS MONTHS INTERVIEW [vname I-HALNO] [loc 1065] [allow 2] [character] CUM TOTAL OF PERSONS IN A HOUSEHOLD (CAN BE GT 16) [vname I-PROPER] [loc 1067] [allow 1] [character] [vname I-ACCESS] [loc 1068] [allow 1] [character] [vname I-BUILD] [loc 1069] [allow 1] [character] [vname I-FLOOR] [loc 1070] [allow 1] [character] [vname I-BCNAME] [loc 1071] [allow 42] [character] INFORMATION [vname I-BCTITL] [loc 1113] [allow 43] [character] FOR TYPE B [vname I-BCAREA] [loc 1156] [allow 3] [character] AND C [vname I-BCNUM] [loc 1159] [allow 7] [character] [vname I-BCOBSR] [loc 1166] [allow 1] [character] [vname I-BCEXT] [loc 1167] [allow 4] [character] [vname I-BLANK5] [loc 1171] [allow 10] [character] [vname I-LNO-1] [loc 1181] [allow 2] [character] LINE NUMBER [vname I-LNO-2] [loc 1183] [allow 2] [character] [vname I-LNO-3] [loc 1185] [allow 2] [character] [vname I-LNO-4] [loc 1187] [allow 2] [character] [vname I-LNO-5] [loc 1189] [allow 2] [character] [vname I-LNO-6] [loc 1191] [allow 2] [character] [vname I-LNO-7] [loc 1193] [allow 2] [character] [vname I-LNO-8] [loc 1195] [allow 2] [character] [vname I-LNO-9] [loc 1197] [allow 2] [character] [vname I-LNO-10] [loc 1199] [allow 2] [character] [vname I-LNO-11] [loc 1201] [allow 2] [character] [vname I-LNO-12] [loc 1203] [allow 2] [character] [vname I-LNO-13] [loc 1205] [allow 2] [character] [vname I-LNO-14] [loc 1207] [allow 2] [character] [vname I-LNO-15] [loc 1209] [allow 2] [character] [vname I-LNO-16] [loc 1211] [allow 2] [character] [vname I-RRP-1] [loc 1213] [allow 2] [character] RELATIONSHIP [vname I-RRP-2] [loc 1215] [allow 2] [character] [vname I-RRP-3] [loc 1217] [allow 2] [character] [vname I-RRP-4] [loc 1219] [allow 2] [character] [vname I-RRP-5] [loc 1221] [allow 2] [character] [vname I-RRP-6] [loc 1223] [allow 2] [character] [vname I-RRP-7] [loc 1225] [allow 2] [character] [vname I-RRP-8] [loc 1227] [allow 2] [character] [vname I-RRP-9] [loc 1229] [allow 2] [character] [vname I-RRP-10] [loc 1231] [allow 2] [character] [vname I-RRP-11] [loc 1233] [allow 2] [character] [vname I-RRP-12] [loc 1235] [allow 2] [character] [vname I-RRP-13] [loc 1237] [allow 2] [character] [vname I-RRP-14] [loc 1239] [allow 2] [character] [vname I-RRP-15] [loc 1241] [allow 2] [character] [vname I-RRP-16] [loc 1243] [allow 2] [character] [vname I-HHMEM-1] [loc 1245] [allow 1] [character] MEMBERSHIP [vname I-HHMEM-2] [loc 1246] [allow 1] [character] [vname I-HHMEM-3] [loc 1247] [allow 1] [character] [vname I-HHMEM-4] [loc 1248] [allow 1] [character] [vname I-HHMEM-5] [loc 1249] [allow 1] [character] [vname I-HHMEM-6] [loc 1250] [allow 1] [character] [vname I-HHMEM-7] [loc 1251] [allow 1] [character] [vname I-HHMEM-8] [loc 1252] [allow 1] [character] [vname I-HHMEM-9] [loc 1253] [allow 1] [character] [vname I-HHMEM-10] [loc 1254] [allow 1] [character] [vname I-HHMEM-11] [loc 1255] [allow 1] [character] [vname I-HHMEM-12] [loc 1256] [allow 1] [character] [vname I-HHMEM-13] [loc 1257] [allow 1] [character] [vname I-HHMEM-14] [loc 1258] [allow 1] [character] [vname I-HHMEM-15] [loc 1259] [allow 1] [character] [vname I-HHMEM-16] [loc 1260] [allow 1] [character] [vname I-AGE-1] [loc 1261] [allow 2] [character] AGE [vname I-AGE-2] [loc 1263] [allow 2] [character] [vname I-AGE-3] [loc 1265] [allow 2] [character] [vname I-AGE-4] [loc 1267] [allow 2] [character] [vname I-AGE-5] [loc 1269] [allow 2] [character] [vname I-AGE-6] [loc 1271] [allow 2] [character] [vname I-AGE-7] [loc 1273] [allow 2] [character] [vname I-AGE-8] [loc 1275] [allow 2] [character] [vname I-AGE-9] [loc 1277] [allow 2] [character] [vname I-AGE-10] [loc 1279] [allow 2] [character] [vname I-AGE-11] [loc 1281] [allow 2] [character] [vname I-AGE-12] [loc 1283] [allow 2] [character] [vname I-AGE-13] [loc 1285] [allow 2] [character] [vname I-AGE-14] [loc 1287] [allow 2] [character] [vname I-AGE-15] [loc 1289] [allow 2] [character] [vname I-AGE-16] [loc 1291] [allow 2] [character] [vname I-SEX-1] [loc 1293] [allow 1] [character] SEX [vname I-SEX-2] [loc 1294] [allow 1] [character] [vname I-SEX-3] [loc 1295] [allow 1] [character] [vname I-SEX-4] [loc 1296] [allow 1] [character] [vname I-SEX-5] [loc 1297] [allow 1] [character] [vname I-SEX-6] [loc 1298] [allow 1] [character] [vname I-SEX-7] [loc 1299] [allow 1] [character] [vname I-SEX-8] [loc 1300] [allow 1] [character] [vname I-SEX-9] [loc 1301] [allow 1] [character] [vname I-SEX-10] [loc 1302] [allow 1] [character] [vname I-SEX-11] [loc 1303] [allow 1] [character] [vname I-SEX-12] [loc 1304] [allow 1] [character] [vname I-SEX-13] [loc 1305] [allow 1] [character] [vname I-SEX-14] [loc 1306] [allow 1] [character] [vname I-SEX-15] [loc 1307] [allow 1] [character] [vname I-SEX-16] [loc 1308] [allow 1] [character] [vname I-AFNOW-1] [loc 1309] [allow 1] [character] ARE IN ARMED FORCES NOW [vname I-AFNOW-2] [loc 1310] [allow 1] [character] [vname I-AFNOW-3] [loc 1311] [allow 1] [character] [vname I-AFNOW-4] [loc 1312] [allow 1] [character] [vname I-AFNOW-5] [loc 1313] [allow 1] [character] [vname I-AFNOW-6] [loc 1314] [allow 1] [character] [vname I-AFNOW-7] [loc 1315] [allow 1] [character] [vname I-AFNOW-8] [loc 1316] [allow 1] [character] [vname I-AFNOW-9] [loc 1317] [allow 1] [character] [vname I-AFNOW-10] [loc 1318] [allow 1] [character] [vname I-AFNOW-11] [loc 1319] [allow 1] [character] [vname I-AFNOW-12] [loc 1320] [allow 1] [character] [vname I-AFNOW-13] [loc 1321] [allow 1] [character] [vname I-AFNOW-14] [loc 1322] [allow 1] [character] [vname I-AFNOW-15] [loc 1323] [allow 1] [character] [vname I-AFNOW-16] [loc 1324] [allow 1] [character] [vname I-RACE-1] [loc 1325] [allow 1] [character] RACE [vname I-RACE-2] [loc 1326] [allow 1] [character] [vname I-RACE-3] [loc 1327] [allow 1] [character] [vname I-RACE-4] [loc 1328] [allow 1] [character] [vname I-RACE-5] [loc 1329] [allow 1] [character] [vname I-RACE-6] [loc 1330] [allow 1] [character] [vname I-RACE-7] [loc 1331] [allow 1] [character] [vname I-RACE-8] [loc 1332] [allow 1] [character] [vname I-RACE-9] [loc 1333] [allow 1] [character] [vname I-RACE-10] [loc 1334] [allow 1] [character] [vname I-RACE-11] [loc 1335] [allow 1] [character] [vname I-RACE-12] [loc 1336] [allow 1] [character] [vname I-RACE-13] [loc 1337] [allow 1] [character] [vname I-RACE-14] [loc 1338] [allow 1] [character] [vname I-RACE-15] [loc 1339] [allow 1] [character] [vname I-RACE-16] [loc 1340] [allow 1] [character] [vname I-FNAME-1] [loc 1341] [allow 20] [character] FIRST NAME [vname I-FNAME-2] [loc 1361] [allow 20] [character] [vname I-FNAME-3] [loc 1381] [allow 20] [character] [vname I-FNAME-4] [loc 1401] [allow 20] [character] [vname I-FNAME-5] [loc 1421] [allow 20] [character] [vname I-FNAME-6] [loc 1441] [allow 20] [character] [vname I-FNAME-7] [loc 1461] [allow 20] [character] [vname I-FNAME-8] [loc 1481] [allow 20] [character] [vname I-FNAME-9] [loc 1501] [allow 20] [character] [vname I-FNAME-10] [loc 1521] [allow 20] [character] [vname I-FNAME-11] [loc 1541] [allow 20] [character] [vname I-FNAME-12] [loc 1561] [allow 20] [character] [vname I-FNAME-13] [loc 1581] [allow 20] [character] [vname I-FNAME-14] [loc 1601] [allow 20] [character] [vname I-FNAME-15] [loc 1621] [allow 20] [character] [vname I-FNAME-16] [loc 1641] [allow 20] [character] [vname I-LNAME-1] [loc 1661] [allow 20] [character] LAST NAME [vname I-LNAME-2] [loc 1681] [allow 20] [character] [vname I-LNAME-3] [loc 1701] [allow 20] [character] [vname I-LNAME-4] [loc 1721] [allow 20] [character] [vname I-LNAME-5] [loc 1741] [allow 20] [character] [vname I-LNAME-6] [loc 1761] [allow 20] [character] [vname I-LNAME-7] [loc 1781] [allow 20] [character] [vname I-LNAME-8] [loc 1801] [allow 20] [character] [vname I-LNAME-9] [loc 1821] [allow 20] [character] [vname I-LNAME-10] [loc 1841] [allow 20] [character] [vname I-LNAME-11] [loc 1861] [allow 20] [character] [vname I-LNAME-12] [loc 1881] [allow 20] [character] [vname I-LNAME-13] [loc 1901] [allow 20] [character] [vname I-LNAME-14] [loc 1921] [allow 20] [character] [vname I-LNAME-15] [loc 1941] [allow 20] [character] [vname I-LNAME-16] [loc 1961] [allow 20] [character] [vname I-PARNT-1] [loc 1981] [allow 2] [character] LINE NUMBER OF PARENT [vname I-PARNT-2] [loc 1983] [allow 2] [character] [vname I-PARNT-3] [loc 1985] [allow 2] [character] [vname I-PARNT-4] [loc 1987] [allow 2] [character] [vname I-PARNT-5] [loc 1989] [allow 2] [character] [vname I-PARNT-6] [loc 1991] [allow 2] [character] [vname I-PARNT-7] [loc 1993] [allow 2] [character] [vname I-PARNT-8] [loc 1995] [allow 2] [character] [vname I-PARNT-9] [loc 1997] [allow 2] [character] [vname I-PARNT-10] [loc 1999] [allow 2] [character] [vname I-PARNT-11] [loc 2001] [allow 2] [character] [vname I-PARNT-12] [loc 2003] [allow 2] [character] [vname I-PARNT-13] [loc 2005] [allow 2] [character] [vname I-PARNT-14] [loc 2007] [allow 2] [character] [vname I-PARNT-15] [loc 2009] [allow 2] [character] [vname I-PARNT-16] [loc 2011] [allow 2] [character] [vname I-SPOUS-1] [loc 2013] [allow 2] [character] LINE NUMBER OF SPOUCE [vname I-SPOUS-2] [loc 2015] [allow 2] [character] [vname I-SPOUS-3] [loc 2017] [allow 2] [character] [vname I-SPOUS-4] [loc 2019] [allow 2] [character] [vname I-SPOUS-5] [loc 2021] [allow 2] [character] [vname I-SPOUS-6] [loc 2023] [allow 2] [character] [vname I-SPOUS-7] [loc 2025] [allow 2] [character] [vname I-SPOUS-8] [loc 2027] [allow 2] [character] [vname I-SPOUS-9] [loc 2029] [allow 2] [character] [vname I-SPOUS-10] [loc 2031] [allow 2] [character] [vname I-SPOUS-11] [loc 2033] [allow 2] [character] [vname I-SPOUS-12] [loc 2035] [allow 2] [character] [vname I-SPOUS-13] [loc 2037] [allow 2] [character] [vname I-SPOUS-14] [loc 2039] [allow 2] [character] [vname I-SPOUS-15] [loc 2041] [allow 2] [character] [vname I-SPOUS-16] [loc 2043] [allow 2] [character] [vname I-BRTHM-1] [loc 2045] [allow 2] [character] MONTH OF BIRTH [vname I-BRTHM-2] [loc 2047] [allow 2] [character] [vname I-BRTHM-3] [loc 2049] [allow 2] [character] [vname I-BRTHM-4] [loc 2051] [allow 2] [character] [vname I-BRTHM-5] [loc 2053] [allow 2] [character] [vname I-BRTHM-6] [loc 2055] [allow 2] [character] [vname I-BRTHM-7] [loc 2057] [allow 2] [character] [vname I-BRTHM-8] [loc 2059] [allow 2] [character] [vname I-BRTHM-9] [loc 2061] [allow 2] [character] [vname I-BRTHM-10] [loc 2063] [allow 2] [character] [vname I-BRTHM-11] [loc 2065] [allow 2] [character] [vname I-BRTHM-12] [loc 2067] [allow 2] [character] [vname I-BRTHM-13] [loc 2069] [allow 2] [character] [vname I-BRTHM-14] [loc 2071] [allow 2] [character] [vname I-BRTHM-15] [loc 2073] [allow 2] [character] [vname I-BRTHM-16] [loc 2075] [allow 2] [character] [vname I-BRTHD-1] [loc 2077] [allow 2] [character] DAY OF BIRTH [vname I-BRTHD-2] [loc 2079] [allow 2] [character] [vname I-BRTHD-3] [loc 2081] [allow 2] [character] [vname I-BRTHD-4] [loc 2083] [allow 2] [character] [vname I-BRTHD-5] [loc 2085] [allow 2] [character] [vname I-BRTHD-6] [loc 2087] [allow 2] [character] [vname I-BRTHD-7] [loc 2089] [allow 2] [character] [vname I-BRTHD-8] [loc 2091] [allow 2] [character] [vname I-BRTHD-9] [loc 2093] [allow 2] [character] [vname I-BRTHD-10] [loc 2095] [allow 2] [character] [vname I-BRTHD-11] [loc 2097] [allow 2] [character] [vname I-BRTHD-12] [loc 2099] [allow 2] [character] [vname I-BRTHD-13] [loc 2101] [allow 2] [character] [vname I-BRTHD-14] [loc 2103] [allow 2] [character] [vname I-BRTHD-15] [loc 2105] [allow 2] [character] [vname I-BRTHD-16] [loc 2107] [allow 2] [character] [vname I-BRTHY-1] [loc 2109] [allow 2] [character] YEAR OF BIRTH [vname I-BRTHY-2] [loc 2111] [allow 2] [character] [vname I-BRTHY-3] [loc 2113] [allow 2] [character] [vname I-BRTHY-4] [loc 2115] [allow 2] [character] [vname I-BRTHY-5] [loc 2117] [allow 2] [character] [vname I-BRTHY-6] [loc 2119] [allow 2] [character] [vname I-BRTHY-7] [loc 2121] [allow 2] [character] [vname I-BRTHY-8] [loc 2123] [allow 2] [character] [vname I-BRTHY-9] [loc 2125] [allow 2] [character] [vname I-BRTHY-10] [loc 2127] [allow 2] [character] [vname I-BRTHY-11] [loc 2129] [allow 2] [character] [vname I-BRTHY-12] [loc 2131] [allow 2] [character] [vname I-BRTHY-13] [loc 2133] [allow 2] [character] [vname I-BRTHY-14] [loc 2135] [allow 2] [character] [vname I-BRTHY-15] [loc 2137] [allow 2] [character] [vname I-BRTHY-16] [loc 2139] [allow 2] [character] [vname I-MARTL-1] [loc 2141] [allow 1] [character] MARITL STATUS [vname I-MARTL-2] [loc 2142] [allow 1] [character] [vname I-MARTL-3] [loc 2143] [allow 1] [character] [vname I-MARTL-4] [loc 2144] [allow 1] [character] [vname I-MARTL-5] [loc 2145] [allow 1] [character] [vname I-MARTL-6] [loc 2146] [allow 1] [character] [vname I-MARTL-7] [loc 2147] [allow 1] [character] [vname I-MARTL-8] [loc 2148] [allow 1] [character] [vname I-MARTL-9] [loc 2149] [allow 1] [character] [vname I-MARTL-10] [loc 2150] [allow 1] [character] [vname I-MARTL-11] [loc 2151] [allow 1] [character] [vname I-MARTL-12] [loc 2152] [allow 1] [character] [vname I-MARTL-13] [loc 2153] [allow 1] [character] [vname I-MARTL-14] [loc 2154] [allow 1] [character] [vname I-MARTL-15] [loc 2155] [allow 1] [character] [vname I-MARTL-16] [loc 2156] [allow 1] [character] [vname I-AFEVR-1] [loc 2157] [allow 1] [character] EVER IN THE ARMED FORCES [vname I-AFEVR-2] [loc 2158] [allow 1] [character] [vname I-AFEVR-3] [loc 2159] [allow 1] [character] [vname I-AFEVR-4] [loc 2160] [allow 1] [character] [vname I-AFEVR-5] [loc 2161] [allow 1] [character] [vname I-AFEVR-6] [loc 2162] [allow 1] [character] [vname I-AFEVR-7] [loc 2163] [allow 1] [character] [vname I-AFEVR-8] [loc 2164] [allow 1] [character] [vname I-AFEVR-9] [loc 2165] [allow 1] [character] [vname I-AFEVR-10] [loc 2166] [allow 1] [character] [vname I-AFEVR-11] [loc 2167] [allow 1] [character] [vname I-AFEVR-12] [loc 2168] [allow 1] [character] [vname I-AFEVR-13] [loc 2169] [allow 1] [character] [vname I-AFEVR-14] [loc 2170] [allow 1] [character] [vname I-AFEVR-15] [loc 2171] [allow 1] [character] [vname I-AFEVR-16] [loc 2172] [allow 1] [character] [vname I-AFWHN-1] [loc 2173] [allow 1] [character] WHEN IN ARMED FORCES [vname I-AFWHN-2] [loc 2174] [allow 1] [character] [vname I-AFWHN-3] [loc 2175] [allow 1] [character] [vname I-AFWHN-4] [loc 2176] [allow 1] [character] [vname I-AFWHN-5] [loc 2177] [allow 1] [character] [vname I-AFWHN-6] [loc 2178] [allow 1] [character] [vname I-AFWHN-7] [loc 2179] [allow 1] [character] [vname I-AFWHN-8] [loc 2180] [allow 1] [character] [vname I-AFWHN-9] [loc 2181] [allow 1] [character] [vname I-AFWHN-10] [loc 2182] [allow 1] [character] [vname I-AFWHN-11] [loc 2183] [allow 1] [character] [vname I-AFWHN-12] [loc 2184] [allow 1] [character] [vname I-AFWHN-13] [loc 2185] [allow 1] [character] [vname I-AFWHN-14] [loc 2186] [allow 1] [character] [vname I-AFWHN-15] [loc 2187] [allow 1] [character] [vname I-AFWHN-16] [loc 2188] [allow 1] [character] [vname I-EDUCA-1] [loc 2189] [allow 2] [character] HIGHEST GRADE ACHIEVED [vname I-EDUCA-2] [loc 2191] [allow 2] [character] [vname I-EDUCA-3] [loc 2193] [allow 2] [character] [vname I-EDUCA-4] [loc 2195] [allow 2] [character] [vname I-EDUCA-5] [loc 2197] [allow 2] [character] [vname I-EDUCA-6] [loc 2199] [allow 2] [character] [vname I-EDUCA-7] [loc 2201] [allow 2] [character] [vname I-EDUCA-8] [loc 2203] [allow 2] [character] [vname I-EDUCA-9] [loc 2205] [allow 2] [character] [vname I-EDUCA-10] [loc 2207] [allow 2] [character] [vname I-EDUCA-11] [loc 2209] [allow 2] [character] [vname I-EDUCA-12] [loc 2211] [allow 2] [character] [vname I-EDUCA-13] [loc 2213] [allow 2] [character] [vname I-EDUCA-14] [loc 2215] [allow 2] [character] [vname I-EDUCA-15] [loc 2217] [allow 2] [character] [vname I-EDUCA-16] [loc 2219] [allow 2] [character] [vname I-ORIGN-1] [loc 2221] [allow 2] [character] ORIGIN [vname I-ORIGN-2] [loc 2223] [allow 2] [character] [vname I-ORIGN-3] [loc 2225] [allow 2] [character] [vname I-ORIGN-4] [loc 2227] [allow 2] [character] [vname I-ORIGN-5] [loc 2229] [allow 2] [character] [vname I-ORIGN-6] [loc 2231] [allow 2] [character] [vname I-ORIGN-7] [loc 2233] [allow 2] [character] [vname I-ORIGN-8] [loc 2235] [allow 2] [character] [vname I-ORIGN-9] [loc 2237] [allow 2] [character] [vname I-ORIGN-10] [loc 2239] [allow 2] [character] [vname I-ORIGN-11] [loc 2241] [allow 2] [character] [vname I-ORIGN-12] [loc 2243] [allow 2] [character] [vname I-ORIGN-13] [loc 2245] [allow 2] [character] [vname I-ORIGN-14] [loc 2247] [allow 2] [character] [vname I-ORIGN-15] [loc 2249] [allow 2] [character] [vname I-ORIGN-16] [loc 2251] [allow 2] [character] [vname I-SSN-1] [loc 2253] [allow 9] [character] SOCIAL SECURITY NUMBER [vname I-SSN-2] [loc 2262] [allow 9] [character] [vname I-SSN-3] [loc 2271] [allow 9] [character] [vname I-SSN-4] [loc 2280] [allow 9] [character] [vname I-SSN-5] [loc 2289] [allow 9] [character] [vname I-SSN-6] [loc 2298] [allow 9] [character] [vname I-SSN-7] [loc 2307] [allow 9] [character] [vname I-SSN-8] [loc 2316] [allow 9] [character] [vname I-SSN-9] [loc 2325] [allow 9] [character] [vname I-SSN-10] [loc 2334] [allow 9] [character] [vname I-SSN-11] [loc 2343] [allow 9] [character] [vname I-SSN-12] [loc 2352] [allow 9] [character] [vname I-SSN-13] [loc 2361] [allow 9] [character] [vname I-SSN-14] [loc 2370] [allow 9] [character] [vname I-SSN-15] [loc 2379] [allow 9] [character] [vname I-SSN-16] [loc 2388] [allow 9] [character] [vname I-CHH-1] [loc 2397] [allow 2] [character] CHANGE IN HH COMPOSITION [vname I-CHH-2] [loc 2399] [allow 2] [character] [vname I-CHH-3] [loc 2401] [allow 2] [character] [vname I-CHH-4] [loc 2403] [allow 2] [character] [vname I-CHH-5] [loc 2405] [allow 2] [character] [vname I-CHH-6] [loc 2407] [allow 2] [character] [vname I-CHH-7] [loc 2409] [allow 2] [character] [vname I-CHH-8] [loc 2411] [allow 2] [character] [vname I-CHH-9] [loc 2413] [allow 2] [character] [vname I-CHH-10] [loc 2415] [allow 2] [character] [vname I-CHH-11] [loc 2417] [allow 2] [character] [vname I-CHH-12] [loc 2419] [allow 2] [character] [vname I-CHH-13] [loc 2421] [allow 2] [character] [vname I-CHH-14] [loc 2423] [allow 2] [character] [vname I-CHH-15] [loc 2425] [allow 2] [character] [vname I-CHH-16] [loc 2427] [allow 2] [character] [vname I-MLR-1] [loc 2429] [allow 1] [character] MAJOR LABOR FORCE RECODE [vname I-MLR-2] [loc 2430] [allow 1] [character] [vname I-MLR-3] [loc 2431] [allow 1] [character] [vname I-MLR-4] [loc 2432] [allow 1] [character] [vname I-MLR-5] [loc 2433] [allow 1] [character] [vname I-MLR-6] [loc 2434] [allow 1] [character] [vname I-MLR-7] [loc 2435] [allow 1] [character] [vname I-MLR-8] [loc 2436] [allow 1] [character] [vname I-MLR-9] [loc 2437] [allow 1] [character] [vname I-MLR-10] [loc 2438] [allow 1] [character] [vname I-MLR-11] [loc 2439] [allow 1] [character] [vname I-MLR-12] [loc 2440] [allow 1] [character] [vname I-MLR-13] [loc 2441] [allow 1] [character] [vname I-MLR-14] [loc 2442] [allow 1] [character] [vname I-MLR-15] [loc 2443] [allow 1] [character] [vname I-MLR-16] [loc 2444] [allow 1] [character] [vname I-IONAM-1] [loc 2445] [allow 65] [character] [vname I-IONAM-2] [loc 2510] [allow 65] [character] [vname I-IONAM-3] [loc 2575] [allow 65] [character] [vname I-IONAM-4] [loc 2640] [allow 65] [character] [vname I-IONAM-5] [loc 2705] [allow 65] [character] [vname I-IONAM-6] [loc 2770] [allow 65] [character] [vname I-IONAM-7] [loc 2835] [allow 65] [character] [vname I-IONAM-8] [loc 2900] [allow 65] [character] [vname I-IONAM-9] [loc 2965] [allow 65] [character] [vname I-IONAM-10] [loc 3030] [allow 65] [character] [vname I-IONAM-11] [loc 3095] [allow 65] [character] [vname I-IONAM-12] [loc 3160] [allow 65] [character] [vname I-IONAM-13] [loc 3225] [allow 65] [character] [vname I-IONAM-14] [loc 3290] [allow 65] [character] [vname I-IONAM-15] [loc 3355] [allow 65] [character] [vname I-IONAM-16] [loc 3420] [allow 65] [character] [vname I-IOIND-1] [loc 3485] [allow 65] [character] [vname I-IOIND-2] [loc 3550] [allow 65] [character] [vname I-IOIND-3] [loc 3615] [allow 65] [character] [vname I-IOIND-4] [loc 3680] [allow 65] [character] [vname I-IOIND-5] [loc 3745] [allow 65] [character] [vname I-IOIND-6] [loc 3810] [allow 65] [character] [vname I-IOIND-7] [loc 3875] [allow 65] [character] [vname I-IOIND-8] [loc 3940] [allow 65] [character] [vname I-IOIND-9] [loc 4005] [allow 65] [character] [vname I-IOIND-10] [loc 4070] [allow 65] [character] [vname I-IOIND-11] [loc 4135] [allow 65] [character] [vname I-IOIND-12] [loc 4200] [allow 65] [character] [vname I-IOIND-13] [loc 4265] [allow 65] [character] [vname I-IOIND-14] [loc 4330] [allow 65] [character] [vname I-IOIND-15] [loc 4395] [allow 65] [character] [vname I-IOIND-16] [loc 4460] [allow 65] [character] [vname I-IOMFG-1] [loc 4525] [allow 1] [character] [vname I-IOMFG-2] [loc 4526] [allow 1] [character] [vname I-IOMFG-3] [loc 4527] [allow 1] [character] [vname I-IOMFG-4] [loc 4528] [allow 1] [character] [vname I-IOMFG-5] [loc 4529] [allow 1] [character] [vname I-IOMFG-6] [loc 4530] [allow 1] [character] [vname I-IOMFG-7] [loc 4531] [allow 1] [character] [vname I-IOMFG-8] [loc 4532] [allow 1] [character] [vname I-IOMFG-9] [loc 4533] [allow 1] [character] [vname I-IOMFG-10] [loc 4534] [allow 1] [character] [vname I-IOMFG-11] [loc 4535] [allow 1] [character] [vname I-IOMFG-12] [loc 4536] [allow 1] [character] [vname I-IOMFG-13] [loc 4537] [allow 1] [character] [vname I-IOMFG-14] [loc 4538] [allow 1] [character] [vname I-IOMFG-15] [loc 4539] [allow 1] [character] [vname I-IOMFG-16] [loc 4540] [allow 1] [character] [vname I-IOOCC-1] [loc 4541] [allow 65] [character] [vname I-IOOCC-2] [loc 4606] [allow 65] [character] [vname I-IOOCC-3] [loc 4671] [allow 65] [character] [vname I-IOOCC-4] [loc 4736] [allow 65] [character] [vname I-IOOCC-5] [loc 4801] [allow 65] [character] [vname I-IOOCC-6] [loc 4866] [allow 65] [character] [vname I-IOOCC-7] [loc 4931] [allow 65] [character] [vname I-IOOCC-8] [loc 4996] [allow 65] [character] [vname I-IOOCC-9] [loc 5061] [allow 65] [character] [vname I-IOOCC-10] [loc 5126] [allow 65] [character] [vname I-IOOCC-11] [loc 5191] [allow 65] [character] [vname I-IOOCC-12] [loc 5256] [allow 65] [character] [vname I-IOOCC-13] [loc 5321] [allow 65] [character] [vname I-IOOCC-14] [loc 5386] [allow 65] [character] [vname I-IOOCC-15] [loc 5451] [allow 65] [character] [vname I-IOOCC-16] [loc 5516] [allow 65] [character] [vname I-IODT1-1] [loc 5581] [allow 65] [character] [vname I-IODT1-2] [loc 5646] [allow 65] [character] [vname I-IODT1-3] [loc 5711] [allow 65] [character] [vname I-IODT1-4] [loc 5776] [allow 65] [character] [vname I-IODT1-5] [loc 5841] [allow 65] [character] [vname I-IODT1-6] [loc 5906] [allow 65] [character] [vname I-IODT1-7] [loc 5971] [allow 65] [character] [vname I-IODT1-8] [loc 6036] [allow 65] [character] [vname I-IODT1-9] [loc 6101] [allow 65] [character] [vname I-IODT1-10] [loc 6166] [allow 65] [character] [vname I-IODT1-11] [loc 6231] [allow 65] [character] [vname I-IODT1-12] [loc 6296] [allow 65] [character] [vname I-IODT1-13] [loc 6361] [allow 65] [character] [vname I-IODT1-14] [loc 6426] [allow 65] [character] [vname I-IODT1-15] [loc 6491] [allow 65] [character] [vname I-IODT1-16] [loc 6556] [allow 65] [character] [vname I-IODT2-1] [loc 6621] [allow 65] [character] [vname I-IODT2-2] [loc 6686] [allow 65] [character] [vname I-IODT2-3] [loc 6751] [allow 65] [character] [vname I-IODT2-4] [loc 6816] [allow 65] [character] [vname I-IODT2-5] [loc 6881] [allow 65] [character] [vname I-IODT2-6] [loc 6946] [allow 65] [character] [vname I-IODT2-7] [loc 7011] [allow 65] [character] [vname I-IODT2-8] [loc 7076] [allow 65] [character] [vname I-IODT2-9] [loc 7141] [allow 65] [character] [vname I-IODT2-10] [loc 7206] [allow 65] [character] [vname I-IODT2-11] [loc 7271] [allow 65] [character] vname I-IODT2-12 loc 7336 allow 65 character CHANGED FOR ** MOVERS ** vname I-IODT2-13 loc 7401 allow 65 character vname I-IODT2-14 loc 7466 allow 65 character vname I-IODT2-15 loc 7531 allow 65 character vname I-IODT2-16 loc 7596 allow 65 character [vname I-CP1FN] [loc 7336] [allow 16] [character] ADDED FOR ** MOVERS ** [vname I-CP1LN] [loc 7352] [allow 16] [character] [vname I-3BLANK] [loc 7368] [allow 2] [character] [vname I-CP1CT] [loc 7370] [allow 22] [character] [vname I-CP1ST] [loc 7392] [allow 2] [character] [vname I-CP1AR] [loc 7394] [allow 3] [character] [vname I-1BLANK] [loc 7397] [allow 4] [character] [vname I-CP1NUM] [loc 7401] [allow 7] [character] [vname I-CP1EXT] [loc 7408] [allow 4] [character] [vname I-CP1REL] [loc 7412] [allow 54] [character] [vname I-4BLANK] [loc 7466] [allow 31] [character] [vname I-MVCT] [loc 7497] [allow 22] [character] [vname I-MVST] [loc 7519] [allow 2] [character] [vname I-MVZP] [loc 7521] [allow 5] [character] [vname I-MVAR] [loc 7526] [allow 3] [character] [vname I-5BLANK] [loc 7529] [allow 2] [character] [vname I-MVNUM] [loc 7531] [allow 7] [character] [vname I-MVEXT] [loc 7538] [allow 4] [character] [vname I-MVST1] [loc 7542] [allow 54] [character] [vname I-MVST2] [loc 7596] [allow 54] [character] [vname I-6BLANK] [loc 7650] [allow 11] [character] [vname I-IOCOW-1] [loc 7661] [allow 2] [character] [vname I-IOCOW-2] [loc 7663] [allow 2] [character] [vname I-IOCOW-3] [loc 7665] [allow 2] [character] [vname I-IOCOW-4] [loc 7667] [allow 2] [character] [vname I-IOCOW-5] [loc 7669] [allow 2] [character] [vname I-IOCOW-6] [loc 7671] [allow 2] [character] [vname I-IOCOW-7] [loc 7673] [allow 2] [character] [vname I-IOCOW-8] [loc 7675] [allow 2] [character] [vname I-IOCOW-9] [loc 7677] [allow 2] [character] [vname I-IOCOW-10] [loc 7679] [allow 2] [character] [vname I-IOCOW-11] [loc 7681] [allow 2] [character] [vname I-IOCOW-12] [loc 7683] [allow 2] [character] [vname I-IOCOW-13] [loc 7685] [allow 2] [character] [vname I-IOCOW-14] [loc 7687] [allow 2] [character] [vname I-IOCOW-15] [loc 7689] [allow 2] [character] [vname I-IOCOW-16] [loc 7691] [allow 2] [character] [vname I-IOICD-1] [loc 7693] [allow 3] [character] [vname I-IOICD-2] [loc 7696] [allow 3] [character] [vname I-IOICD-3] [loc 7699] [allow 3] [character] [vname I-IOICD-4] [loc 7702] [allow 3] [character] [vname I-IOICD-5] [loc 7705] [allow 3] [character] [vname I-IOICD-6] [loc 7708] [allow 3] [character] [vname I-IOICD-7] [loc 7711] [allow 3] [character] [vname I-IOICD-8] [loc 7714] [allow 3] [character] [vname I-IOICD-9] [loc 7717] [allow 3] [character] [vname I-IOICD-10] [loc 7720] [allow 3] [character] [vname I-IOICD-11] [loc 7723] [allow 3] [character] [vname I-IOICD-12] [loc 7726] [allow 3] [character] [vname I-IOICD-13] [loc 7729] [allow 3] [character] [vname I-IOICD-14] [loc 7732] [allow 3] [character] [vname I-IOICD-15] [loc 7735] [allow 3] [character] [vname I-IOICD-16] [loc 7738] [allow 3] [character] [vname I-IOOCD-1] [loc 7741] [allow 3] [character] [vname I-IOOCD-2] [loc 7744] [allow 3] [character] [vname I-IOOCD-3] [loc 7747] [allow 3] [character] [vname I-IOOCD-4] [loc 7750] [allow 3] [character] [vname I-IOOCD-5] [loc 7753] [allow 3] [character] [vname I-IOOCD-6] [loc 7756] [allow 3] [character] [vname I-IOOCD-7] [loc 7759] [allow 3] [character] [vname I-IOOCD-8] [loc 7762] [allow 3] [character] [vname I-IOOCD-9] [loc 7765] [allow 3] [character] [vname I-IOOCD-10] [loc 7768] [allow 3] [character] [vname I-IOOCD-11] [loc 7771] [allow 3] [character] [vname I-IOOCD-12] [loc 7774] [allow 3] [character] [vname I-IOOCD-13] [loc 7777] [allow 3] [character] [vname I-IOOCD-14] [loc 7780] [allow 3] [character] [vname I-IOOCD-15] [loc 7783] [allow 3] [character] [vname I-IOOCD-16] [loc 7786] [allow 3] [character] [vname I-IOICR-1] [loc 7789] [allow 1] [character] [vname I-IOICR-2] [loc 7790] [allow 1] [character] [vname I-IOICR-3] [loc 7791] [allow 1] [character] [vname I-IOICR-4] [loc 7792] [allow 1] [character] [vname I-IOICR-5] [loc 7793] [allow 1] [character] [vname I-IOICR-6] [loc 7794] [allow 1] [character] [vname I-IOICR-7] [loc 7795] [allow 1] [character] [vname I-IOICR-8] [loc 7796] [allow 1] [character] [vname I-IOICR-9] [loc 7797] [allow 1] [character] [vname I-IOICR-10] [loc 7798] [allow 1] [character] [vname I-IOICR-11] [loc 7799] [allow 1] [character] [vname I-IOICR-12] [loc 7800] [allow 1] [character] [vname I-IOICR-13] [loc 7801] [allow 1] [character] [vname I-IOICR-14] [loc 7802] [allow 1] [character] [vname I-IOICR-15] [loc 7803] [allow 1] [character] [vname I-IOICR-16] [loc 7804] [allow 1] [character] [vname I-IOOCR-1] [loc 7805] [allow 1] [character] [vname I-IOOCR-2] [loc 7806] [allow 1] [character] [vname I-IOOCR-3] [loc 7807] [allow 1] [character] [vname I-IOOCR-4] [loc 7808] [allow 1] [character] [vname I-IOOCR-5] [loc 7809] [allow 1] [character] [vname I-IOOCR-6] [loc 7810] [allow 1] [character] [vname I-IOOCR-7] [loc 7811] [allow 1] [character] [vname I-IOOCR-8] [loc 7812] [allow 1] [character] [vname I-IOOCR-9] [loc 7813] [allow 1] [character] [vname I-IOOCR-10] [loc 7814] [allow 1] [character] [vname I-IOOCR-11] [loc 7815] [allow 1] [character] [vname I-IOOCR-12] [loc 7816] [allow 1] [character] [vname I-IOOCR-13] [loc 7817] [allow 1] [character] [vname I-IOOCR-14] [loc 7818] [allow 1] [character] [vname I-IOOCR-15] [loc 7819] [allow 1] [character] [vname I-IOOCR-16] [loc 7820] [allow 1] [character] [vname I-LAYDR-1] [loc 7821] [allow 3] [character] [vname I-LAYDR-2] [loc 7824] [allow 3] [character] [vname I-LAYDR-3] [loc 7827] [allow 3] [character] [vname I-LAYDR-4] [loc 7830] [allow 3] [character] [vname I-LAYDR-5] [loc 7833] [allow 3] [character] [vname I-LAYDR-6] [loc 7836] [allow 3] [character] [vname I-LAYDR-7] [loc 7839] [allow 3] [character] [vname I-LAYDR-8] [loc 7842] [allow 3] [character] [vname I-LAYDR-9] [loc 7845] [allow 3] [character] [vname I-LAYDR-10] [loc 7848] [allow 3] [character] [vname I-LAYDR-11] [loc 7851] [allow 3] [character] [vname I-LAYDR-12] [loc 7854] [allow 3] [character] [vname I-LAYDR-13] [loc 7857] [allow 3] [character] [vname I-LAYDR-14] [loc 7860] [allow 3] [character] [vname I-LAYDR-15] [loc 7863] [allow 3] [character] [vname I-LAYDR-16] [loc 7866] [allow 3] [character] [vname I-LAYFT-1] [loc 7869] [allow 1] [character] [vname I-LAYFT-2] [loc 7870] [allow 1] [character] [vname I-LAYFT-3] [loc 7871] [allow 1] [character] [vname I-LAYFT-4] [loc 7872] [allow 1] [character] [vname I-LAYFT-5] [loc 7873] [allow 1] [character] [vname I-LAYFT-6] [loc 7874] [allow 1] [character] [vname I-LAYFT-7] [loc 7875] [allow 1] [character] [vname I-LAYFT-8] [loc 7876] [allow 1] [character] [vname I-LAYFT-9] [loc 7877] [allow 1] [character] [vname I-LAYFT-10] [loc 7878] [allow 1] [character] [vname I-LAYFT-11] [loc 7879] [allow 1] [character] [vname I-LAYFT-12] [loc 7880] [allow 1] [character] [vname I-LAYFT-13] [loc 7881] [allow 1] [character] [vname I-LAYFT-14] [loc 7882] [allow 1] [character] [vname I-LAYFT-15] [loc 7883] [allow 1] [character] [vname I-LAYFT-16] [loc 7884] [allow 1] [character] [vname I-LK1-1] [loc 7885] [allow 1] [character] [vname I-LK1-2] [loc 7886] [allow 1] [character] [vname I-LK1-3] [loc 7887] [allow 1] [character] [vname I-LK1-4] [loc 7888] [allow 1] [character] [vname I-LK1-5] [loc 7889] [allow 1] [character] [vname I-LK1-6] [loc 7890] [allow 1] [character] [vname I-LK1-7] [loc 7891] [allow 1] [character] [vname I-LK1-8] [loc 7892] [allow 1] [character] [vname I-LK1-9] [loc 7893] [allow 1] [character] [vname I-LK1-10] [loc 7894] [allow 1] [character] [vname I-LK1-11] [loc 7895] [allow 1] [character] [vname I-LK1-12] [loc 7896] [allow 1] [character] [vname I-LK1-13] [loc 7897] [allow 1] [character] [vname I-LK1-14] [loc 7898] [allow 1] [character] [vname I-LK1-15] [loc 7899] [allow 1] [character] [vname I-LK1-16] [loc 7900] [allow 1] [character] [vname I-LK2-1] [loc 7901] [allow 1] [character] [vname I-LK2-2] [loc 7902] [allow 1] [character] [vname I-LK2-3] [loc 7903] [allow 1] [character] [vname I-LK2-4] [loc 7904] [allow 1] [character] [vname I-LK2-5] [loc 7905] [allow 1] [character] [vname I-LK2-6] [loc 7906] [allow 1] [character] [vname I-LK2-7] [loc 7907] [allow 1] [character] [vname I-LK2-8] [loc 7908] [allow 1] [character] [vname I-LK2-9] [loc 7909] [allow 1] [character] [vname I-LK2-10] [loc 7910] [allow 1] [character] [vname I-LK2-11] [loc 7911] [allow 1] [character] [vname I-LK2-12] [loc 7912] [allow 1] [character] [vname I-LK2-13] [loc 7913] [allow 1] [character] [vname I-LK2-14] [loc 7914] [allow 1] [character] [vname I-LK2-15] [loc 7915] [allow 1] [character] [vname I-LK2-16] [loc 7916] [allow 1] [character] [vname I-LKLW-1] [loc 7917] [allow 1] [character] [vname I-LKLW-2] [loc 7918] [allow 1] [character] [vname I-LKLW-3] [loc 7919] [allow 1] [character] [vname I-LKLW-4] [loc 7920] [allow 1] [character] [vname I-LKLW-5] [loc 7921] [allow 1] [character] [vname I-LKLW-6] [loc 7922] [allow 1] [character] [vname I-LKLW-7] [loc 7923] [allow 1] [character] [vname I-LKLW-8] [loc 7924] [allow 1] [character] [vname I-LKLW-9] [loc 7925] [allow 1] [character] [vname I-LKLW-10] [loc 7926] [allow 1] [character] [vname I-LKLW-11] [loc 7927] [allow 1] [character] [vname I-LKLW-12] [loc 7928] [allow 1] [character] [vname I-LKLW-13] [loc 7929] [allow 1] [character] [vname I-LKLW-14] [loc 7930] [allow 1] [character] [vname I-LKLW-15] [loc 7931] [allow 1] [character] [vname I-LKLW-16] [loc 7932] [allow 1] [character] [vname I-LKM-1] [loc 7933] [allow 2] [character] [vname I-LKM-2] [loc 7935] [allow 2] [character] [vname I-LKM-3] [loc 7937] [allow 2] [character] [vname I-LKM-4] [loc 7939] [allow 2] [character] [vname I-LKM-5] [loc 7941] [allow 2] [character] [vname I-LKM-6] [loc 7943] [allow 2] [character] [vname I-LKM-7] [loc 7945] [allow 2] [character] [vname I-LKM-8] [loc 7947] [allow 2] [character] [vname I-LKM-9] [loc 7949] [allow 2] [character] [vname I-LKM-10] [loc 7951] [allow 2] [character] [vname I-LKM-11] [loc 7953] [allow 2] [character] [vname I-LKM-12] [loc 7955] [allow 2] [character] [vname I-LKM-13] [loc 7957] [allow 2] [character] [vname I-LKM-14] [loc 7959] [allow 2] [character] [vname I-LKM-15] [loc 7961] [allow 2] [character] [vname I-LKM-16] [loc 7963] [allow 2] [character] [vname I-LKY-1] [loc 7965] [allow 2] [character] [vname I-LKY-2] [loc 7967] [allow 2] [character] [vname I-LKY-3] [loc 7969] [allow 2] [character] [vname I-LKY-4] [loc 7971] [allow 2] [character] [vname I-LKY-5] [loc 7973] [allow 2] [character] [vname I-LKY-6] [loc 7975] [allow 2] [character] [vname I-LKY-7] [loc 7977] [allow 2] [character] [vname I-LKY-8] [loc 7979] [allow 2] [character] [vname I-LKY-9] [loc 7981] [allow 2] [character] [vname I-LKY-10] [loc 7983] [allow 2] [character] [vname I-LKY-11] [loc 7985] [allow 2] [character] [vname I-LKY-12] [loc 7987] [allow 2] [character] [vname I-LKY-13] [loc 7989] [allow 2] [character] [vname I-LKY-14] [loc 7991] [allow 2] [character] [vname I-LKY-15] [loc 7993] [allow 2] [character] [vname I-LKY-16] [loc 7995] [allow 2] [character] [vname I-LKDUR-1] [loc 7997] [allow 3] [character] [vname I-LKDUR-2] [loc 8000] [allow 3] [character] [vname I-LKDUR-3] [loc 8003] [allow 3] [character] [vname I-LKDUR-4] [loc 8006] [allow 3] [character] [vname I-LKDUR-5] [loc 8009] [allow 3] [character] [vname I-LKDUR-6] [loc 8012] [allow 3] [character] [vname I-LKDUR-7] [loc 8015] [allow 3] [character] [vname I-LKDUR-8] [loc 8018] [allow 3] [character] [vname I-LKDUR-9] [loc 8021] [allow 3] [character] [vname I-LKDUR-10] [loc 8024] [allow 3] [character] [vname I-LKDUR-11] [loc 8027] [allow 3] [character] [vname I-LKDUR-12] [loc 8030] [allow 3] [character] [vname I-LKDUR-13] [loc 8033] [allow 3] [character] [vname I-LKDUR-14] [loc 8036] [allow 3] [character] [vname I-LKDUR-15] [loc 8039] [allow 3] [character] [vname I-LKDUR-16] [loc 8042] [allow 3] [character] [vname I-LKFT-1] [loc 8045] [allow 1] [character] [vname I-LKFT-2] [loc 8046] [allow 1] [character] [vname I-LKFT-3] [loc 8047] [allow 1] [character] [vname I-LKFT-4] [loc 8048] [allow 1] [character] [vname I-LKFT-5] [loc 8049] [allow 1] [character] [vname I-LKFT-6] [loc 8050] [allow 1] [character] [vname I-LKFT-7] [loc 8051] [allow 1] [character] [vname I-LKFT-8] [loc 8052] [allow 1] [character] [vname I-LKFT-9] [loc 8053] [allow 1] [character] [vname I-LKFT-10] [loc 8054] [allow 1] [character] [vname I-LKFT-11] [loc 8055] [allow 1] [character] [vname I-LKFT-12] [loc 8056] [allow 1] [character] [vname I-LKFT-13] [loc 8057] [allow 1] [character] [vname I-LKFT-14] [loc 8058] [allow 1] [character] [vname I-LKFT-15] [loc 8059] [allow 1] [character] [vname I-LKFT-16] [loc 8060] [allow 1] [character] [vname I-NATVT-1] [loc 8061] [allow 3] [character] [vname I-NATVT-2] [loc 8064] [allow 3] [character] [vname I-NATVT-3] [loc 8067] [allow 3] [character] [vname I-NATVT-4] [loc 8070] [allow 3] [character] [vname I-NATVT-5] [loc 8073] [allow 3] [character] [vname I-NATVT-6] [loc 8076] [allow 3] [character] [vname I-NATVT-7] [loc 8079] [allow 3] [character] [vname I-NATVT-8] [loc 8082] [allow 3] [character] [vname I-NATVT-9] [loc 8085] [allow 3] [character] [vname I-NATVT-10] [loc 8088] [allow 3] [character] [vname I-NATVT-11] [loc 8091] [allow 3] [character] [vname I-NATVT-12] [loc 8094] [allow 3] [character] [vname I-NATVT-13] [loc 8097] [allow 3] [character] [vname I-NATVT-14] [loc 8100] [allow 3] [character] [vname I-NATVT-15] [loc 8103] [allow 3] [character] [vname I-NATVT-16] [loc 8106] [allow 3] [character] [vname I-MNTVT-1] [loc 8109] [allow 3] [character] [vname I-MNTVT-2] [loc 8112] [allow 3] [character] [vname I-MNTVT-3] [loc 8115] [allow 3] [character] [vname I-MNTVT-4] [loc 8118] [allow 3] [character] [vname I-MNTVT-5] [loc 8121] [allow 3] [character] [vname I-MNTVT-6] [loc 8124] [allow 3] [character] [vname I-MNTVT-7] [loc 8127] [allow 3] [character] [vname I-MNTVT-8] [loc 8130] [allow 3] [character] [vname I-MNTVT-9] [loc 8133] [allow 3] [character] [vname I-MNTVT-10] [loc 8136] [allow 3] [character] [vname I-MNTVT-11] [loc 8139] [allow 3] [character] [vname I-MNTVT-12] [loc 8142] [allow 3] [character] [vname I-MNTVT-13] [loc 8145] [allow 3] [character] [vname I-MNTVT-14] [loc 8148] [allow 3] [character] [vname I-MNTVT-15] [loc 8151] [allow 3] [character] [vname I-MNTVT-16] [loc 8154] [allow 3] [character] [vname I-FNTVT-1] [loc 8157] [allow 3] [character] [vname I-FNTVT-2] [loc 8160] [allow 3] [character] [vname I-FNTVT-3] [loc 8163] [allow 3] [character] [vname I-FNTVT-4] [loc 8166] [allow 3] [character] [vname I-FNTVT-5] [loc 8169] [allow 3] [character] [vname I-FNTVT-6] [loc 8172] [allow 3] [character] [vname I-FNTVT-7] [loc 8175] [allow 3] [character] [vname I-FNTVT-8] [loc 8178] [allow 3] [character] [vname I-FNTVT-9] [loc 8181] [allow 3] [character] [vname I-FNTVT-10] [loc 8184] [allow 3] [character] [vname I-FNTVT-11] [loc 8187] [allow 3] [character] [vname I-FNTVT-12] [loc 8190] [allow 3] [character] [vname I-FNTVT-13] [loc 8193] [allow 3] [character] [vname I-FNTVT-14] [loc 8196] [allow 3] [character] [vname I-FNTVT-15] [loc 8199] [allow 3] [character] [vname I-FNTVT-16] [loc 8202] [allow 3] [character] [vname I-INUSY-1] [loc 8205] [allow 2] [character] [vname I-INUSY-2] [loc 8207] [allow 2] [character] [vname I-INUSY-3] [loc 8209] [allow 2] [character] [vname I-INUSY-4] [loc 8211] [allow 2] [character] [vname I-INUSY-5] [loc 8213] [allow 2] [character] [vname I-INUSY-6] [loc 8215] [allow 2] [character] [vname I-INUSY-7] [loc 8217] [allow 2] [character] [vname I-INUSY-8] [loc 8219] [allow 2] [character] [vname I-INUSY-9] [loc 8221] [allow 2] [character] [vname I-INUSY-10] [loc 8223] [allow 2] [character] [vname I-INUSY-11] [loc 8225] [allow 2] [character] [vname I-INUSY-12] [loc 8227] [allow 2] [character] [vname I-INUSY-13] [loc 8229] [allow 2] [character] [vname I-INUSY-14] [loc 8231] [allow 2] [character] [vname I-INUSY-15] [loc 8233] [allow 2] [character] [vname I-INUSY-16] [loc 8235] [allow 2] [character] [vname I-CITIZ-1] [loc 8237] [allow 1] [character] [vname I-CITIZ-2] [loc 8238] [allow 1] [character] [vname I-CITIZ-3] [loc 8239] [allow 1] [character] [vname I-CITIZ-4] [loc 8240] [allow 1] [character] [vname I-CITIZ-5] [loc 8241] [allow 1] [character] [vname I-CITIZ-6] [loc 8242] [allow 1] [character] [vname I-CITIZ-7] [loc 8243] [allow 1] [character] [vname I-CITIZ-8] [loc 8244] [allow 1] [character] [vname I-CITIZ-9] [loc 8245] [allow 1] [character] [vname I-CITIZ-10] [loc 8246] [allow 1] [character] [vname I-CITIZ-11] [loc 8247] [allow 1] [character] [vname I-CITIZ-12] [loc 8248] [allow 1] [character] [vname I-CITIZ-13] [loc 8249] [allow 1] [character] [vname I-CITIZ-14] [loc 8250] [allow 1] [character] [vname I-CITIZ-15] [loc 8251] [allow 1] [character] [vname I-CITIZ-16] [loc 8252] [allow 1] [character] [vname I-CITYA-1] [loc 8253] [allow 1] [character] CHANGED OCT 94 [vname I-CITYA-2] [loc 8254] [allow 1] [character] [vname I-CITYA-3] [loc 8255] [allow 1] [character] [vname I-CITYA-4] [loc 8256] [allow 1] [character] [vname I-CITYA-5] [loc 8257] [allow 1] [character] [vname I-CITYA-6] [loc 8258] [allow 1] [character] [vname I-CITYA-7] [loc 8259] [allow 1] [character] [vname I-CITYA-8] [loc 8260] [allow 1] [character] [vname I-CITYA-9] [loc 8261] [allow 1] [character] [vname I-CITYA-10] [loc 8262] [allow 1] [character] [vname I-CITYA-11] [loc 8263] [allow 1] [character] [vname I-CITYA-12] [loc 8264] [allow 1] [character] [vname I-CITYA-13] [loc 8265] [allow 1] [character] [vname I-CITYA-14] [loc 8266] [allow 1] [character] [vname I-CITYA-15] [loc 8267] [allow 1] [character] [vname I-CITYA-16] [loc 8268] [allow 1] [character] [vname I-CITYB-1] [loc 8269] [allow 1] [character] ADDED OCT 94 [vname I-CITYB-2] [loc 8270] [allow 1] [character] [vname I-CITYB-3] [loc 8271] [allow 1] [character] [vname I-CITYB-4] [loc 8272] [allow 1] [character] [vname I-CITYB-5] [loc 8273] [allow 1] [character] [vname I-CITYB-6] [loc 8274] [allow 1] [character] [vname I-CITYB-7] [loc 8275] [allow 1] [character] [vname I-CITYB-8] [loc 8276] [allow 1] [character] [vname I-CITYB-9] [loc 8277] [allow 1] [character] [vname I-CITYB-10] [loc 8278] [allow 1] [character] [vname I-CITYB-11] [loc 8279] [allow 1] [character] [vname I-CITYB-12] [loc 8280] [allow 1] [character] [vname I-CITYB-13] [loc 8281] [allow 1] [character] [vname I-CITYB-14] [loc 8282] [allow 1] [character] [vname I-CITYB-15] [loc 8283] [allow 1] [character] [vname I-CITYB-16] [loc 8284] [allow 1] [character] [vname I-DIPGD-1] [loc 8285] [allow 1] [character] ADDED JUN 96 [vname I-DIPGD-2] [loc 8286] [allow 1] [character] [vname I-DIPGD-3] [loc 8287] [allow 1] [character] [vname I-DIPGD-4] [loc 8288] [allow 1] [character] [vname I-DIPGD-5] [loc 8289] [allow 1] [character] [vname I-DIPGD-6] [loc 8290] [allow 1] [character] [vname I-DIPGD-7] [loc 8291] [allow 1] [character] [vname I-DIPGD-8] [loc 8292] [allow 1] [character] [vname I-DIPGD-9] [loc 8293] [allow 1] [character] [vname I-DIPGD-10] [loc 8294] [allow 1] [character] [vname I-DIPGD-11] [loc 8295] [allow 1] [character] [vname I-DIPGD-12] [loc 8296] [allow 1] [character] [vname I-DIPGD-13] [loc 8297] [allow 1] [character] [vname I-DIPGD-14] [loc 8298] [allow 1] [character] [vname I-DIPGD-15] [loc 8299] [allow 1] [character] [vname I-DIPGD-16] [loc 8300] [allow 1] [character] [vname I-HGCMP-1] [loc 8301] [allow 1] [character] ADDED JUN 96 [vname I-HGCMP-2] [loc 8302] [allow 1] [character] [vname I-HGCMP-3] [loc 8303] [allow 1] [character] [vname I-HGCMP-4] [loc 8304] [allow 1] [character] [vname I-HGCMP-5] [loc 8305] [allow 1] [character] [vname I-HGCMP-6] [loc 8306] [allow 1] [character] [vname I-HGCMP-7] [loc 8307] [allow 1] [character] [vname I-HGCMP-8] [loc 8308] [allow 1] [character] [vname I-HGCMP-9] [loc 8309] [allow 1] [character] [vname I-HGCMP-10] [loc 8310] [allow 1] [character] [vname I-HGCMP-11] [loc 8311] [allow 1] [character] [vname I-HGCMP-12] [loc 8312] [allow 1] [character] [vname I-HGCMP-13] [loc 8313] [allow 1] [character] [vname I-HGCMP-14] [loc 8314] [allow 1] [character] [vname I-HGCMP-15] [loc 8315] [allow 1] [character] [vname I-HGCMP-16] [loc 8316] [allow 1] [character] [vname I-CYC-1] [loc 8317] [allow 1] [character] ADDED JUN 96 [vname I-CYC-2] [loc 8318] [allow 1] [character] [vname I-CYC-3] [loc 8319] [allow 1] [character] [vname I-CYC-4] [loc 8320] [allow 1] [character] [vname I-CYC-5] [loc 8321] [allow 1] [character] [vname I-CYC-6] [loc 8322] [allow 1] [character] [vname I-CYC-7] [loc 8323] [allow 1] [character] [vname I-CYC-8] [loc 8324] [allow 1] [character] [vname I-CYC-9] [loc 8325] [allow 1] [character] [vname I-CYC-10] [loc 8326] [allow 1] [character] [vname I-CYC-11] [loc 8327] [allow 1] [character] [vname I-CYC-12] [loc 8328] [allow 1] [character] [vname I-CYC-13] [loc 8329] [allow 1] [character] [vname I-CYC-14] [loc 8330] [allow 1] [character] [vname I-CYC-15] [loc 8331] [allow 1] [character] [vname I-CYC-16] [loc 8332] [allow 1] [character] [vname I-GRPRF-1] [loc 8333] [allow 1] [character] ADDED JUN 96 [vname I-GRPRF-2] [loc 8334] [allow 1] [character] [vname I-GRPRF-3] [loc 8335] [allow 1] [character] [vname I-GRPRF-4] [loc 8336] [allow 1] [character] [vname I-GRPRF-5] [loc 8337] [allow 1] [character] [vname I-GRPRF-6] [loc 8338] [allow 1] [character] [vname I-GRPRF-7] [loc 8339] [allow 1] [character] [vname I-GRPRF-8] [loc 8340] [allow 1] [character] [vname I-GRPRF-9] [loc 8341] [allow 1] [character] [vname I-GRPRF-10] [loc 8342] [allow 1] [character] [vname I-GRPRF-11] [loc 8343] [allow 1] [character] [vname I-GRPRF-12] [loc 8344] [allow 1] [character] [vname I-GRPRF-13] [loc 8345] [allow 1] [character] [vname I-GRPRF-14] [loc 8346] [allow 1] [character] [vname I-GRPRF-15] [loc 8347] [allow 1] [character] [vname I-GRPRF-16] [loc 8348] [allow 1] [character] [vname I-GR6CR-1] [loc 8349] [allow 1] [character] ADDED JUN 96 [vname I-GR6CR-2] [loc 8350] [allow 1] [character] [vname I-GR6CR-3] [loc 8351] [allow 1] [character] [vname I-GR6CR-4] [loc 8352] [allow 1] [character] [vname I-GR6CR-5] [loc 8353] [allow 1] [character] [vname I-GR6CR-6] [loc 8354] [allow 1] [character] [vname I-GR6CR-7] [loc 8355] [allow 1] [character] [vname I-GR6CR-8] [loc 8356] [allow 1] [character] [vname I-GR6CR-9] [loc 8357] [allow 1] [character] [vname I-GR6CR-10] [loc 8358] [allow 1] [character] [vname I-GR6CR-11] [loc 8359] [allow 1] [character] [vname I-GR6CR-12] [loc 8360] [allow 1] [character] [vname I-GR6CR-13] [loc 8361] [allow 1] [character] [vname I-GR6CR-14] [loc 8362] [allow 1] [character] [vname I-GR6CR-15] [loc 8363] [allow 1] [character] [vname I-GR6CR-16] [loc 8364] [allow 1] [character] [vname I-MS123-1] [loc 8365] [allow 1] [character] ADDED JUN 96 [vname I-MS123-2] [loc 8366] [allow 1] [character] [vname I-MS123-3] [loc 8367] [allow 1] [character] [vname I-MS123-4] [loc 8368] [allow 1] [character] [vname I-MS123-5] [loc 8369] [allow 1] [character] [vname I-MS123-6] [loc 8370] [allow 1] [character] [vname I-MS123-7] [loc 8371] [allow 1] [character] [vname I-MS123-8] [loc 8372] [allow 1] [character] [vname I-MS123-9] [loc 8373] [allow 1] [character] [vname I-MS123-10] [loc 8374] [allow 1] [character] [vname I-MS123-11] [loc 8375] [allow 1] [character] [vname I-MS123-12] [loc 8376] [allow 1] [character] [vname I-MS123-13] [loc 8377] [allow 1] [character] [vname I-MS123-14] [loc 8378] [allow 1] [character] [vname I-MS123-15] [loc 8379] [allow 1] [character] [vname I-MS123-16] [loc 8380] [allow 1] [character] [vname I-BLANK12] [loc 8381] [allow 20] [character] $end LENGTH 8400 ============================================================================== COMMENT: THE VARIABLES MARK, STOPDATE, TIMEZONE, DSTIME, CBDATE, CBTIME, AND PHONENUM ARE SYSTEM DECLARED VARIABLES. THE VALUES ARE DEFINED AT THE BACK OF THE INSTRUMENT. **6A. Variables used only in "frontback" $create [vname NROSIZ] [allow 2] [integer] TOTAL NUMBER OF ROSTER POSITIONS USED (NOT INCLUDING EOL) [vname INOTS] [allow 1] [character] CREATED FOR FILES SO THEY WILL HAVE A FLAG TELLING THEM IF THE INOTES HAVE BEEN REPLACED. 1=REPLACE THE NOTES 0=LET THEM STAND [vname inotsa] [allow 65] [character] INTERVIEWER NOTES [vname inotsb] [allow 65] [character] [vname inotsc] [allow 65] [character] [vname inotsd] [allow 65] [character] [vname inotse] [allow 65] [character] ADDED JAN 95 [vname inotsf] [allow 65] [character] ADDED JAN 95 [vname PNOT1a] [allow 65] [character] Last I-notes from 1st month CATI interview [vname PNOT1b] [allow 65] [character] [vname PNOT1c] [allow 65] [character] [vname PNOT1d] [allow 65] [character] [vname PNOT2] [allow 65] [character] LAST I-NOTES FROM 2ND MONTH cati INTERVIEW [vname PNOT3] [allow 65] [character] Last I-notes from 3rd month CATI interview [vname cbtimc] [allow 8] [character] [vname cbdatc] [allow 9] [character] [vname intrdt] [allow 9] [character] holds date of the last interview date [vname nosun] [allow 1] [character] NO SUNDAY INTERVIEW CODE FOR NEXT MONTH blank sunday interviews OK cc-28b 1 No Sunday interview [vname bestti] [allow 1] [character] CC-28a [vname PHONEO] [allow 1] [character] 1=phone interview ok cc-27c [vname HOMOFF] [allow 1] [character] 1=home 2=office [vname CPROBE] [allow 1] [character] 0=cati int okay 1=not okay [vname CATREA] [allow 1] [character] why this case shouldn't go to cati [vname TELPV] [allow 1] [character] 1 = mostly by phone 2 = most PV ADDED JUN 96 [vname lstrst] [allow 1] [integer] if MISCK is one and phone interview because it's a last resort than lstrst eq 1 [vname introb] [allow 1] [character] ADDED TO STORE TEMPORARY [vname reason] [allow 1] [character] VARIABLES INTO PERMANENT ONES [vname vacar] [allow 3] [character] [vname vacnum] [allow 7] [character] [vname vacext] [allow 4] [character] [vname length] [allow 4] [integer] CUMULATIVE LENGTH OF INTERVIEW [vname permtext] [allow 35] [character] STORES REASON INTERVIEW WENT TO DA WHEN DA CAN NOT BE REACHED. [tabname lsthri] [entries 16] [allow 1] [integer] STORE 1 IF THIS PERSON HAS EVER BEEN A HOUSEHOLD RESPONDENT [tabname lasthr] [entries 16] [allow 1] [character] X FOR A PREVIOUS HH RESPONDENT [vname stopdt-c] [allow 9] [character] DISP. STOPDATE IN THE FORM JUL 12 82 [vname INTDAT] [allow 4] [character] JULIAN VERSION OF INTERVIEW DATE +++ ADDED FOR REINTERVIEW [vname inttime] [allow 4] [character] MINUTES PAST MIDNIGHT OF INTDAT +++ ADDED FOR REINTERVIEW [vname REINLN] [allow 2] [character] LINE NUMBER OF THE ORIGINAL 1ST RESP. +++ ADDED FOR REINTERVIEW [vname ORIGLN] [allow 2] [character] LINE NUMBER OF THE ORIGINAL FINAL RESP. +++ ADDED FOR REINTERVIEW [tabname TYPZLN] [entries 16] [allow 2] [integer] LINE NUMBER OF PEOPLE WHO ARE MISSING DATA [tabname typez] [entries 16] [allow 1] [character] REASON PERONS DATA IS MISSING [tabname TYPZSP] [entries 16] [allow 40] [character] OTHER-SPECIFY [vname lstout] [allow 3] [integer] HOLDS THE VALUE OF THE OUTCOME CODE FROM THE PREVIOUS CALL [vname SPNISH] [allow 1] [character] EQUAL 1 IF THIS CASE WAS INTERVIEWED IN SPANISH [vname REPFLG] [allow 1] [integer] replacement household flag. If this flag is set to 1 the on the HHnum-vr screen needs to come up again so that the case can be flaged as a replacement SECTION **6B COMMON VARIABLES [vname fardex] [allow 1] [integer] TELLS YOU THE FURTHEST POINT YOU GOT IN THE INTERVEIW 1 = Front 2 = hhnum verify 3 = address info 4 = Control Card 5 = Labor Force 6 = Debriefing (if any) 7 = telephone quest [vname RESPLI] [allow 2] [integer] LINE NUMBER OF THE CURRENT RESPONDENT [vname respna] [allow 24] [character] NAME OF THE CURRENT RESPONDENT [vname ORRESP] [allow 2] [integer] ORIGINAL LABOR FORCE RESPONDENT USED FOR [vname LK-ORRESP] [allow 1] [integer] REINTERVIEW ADDED JAN 96 [vname NUMHOU] [allow 2] [integer] TOTAL NUMBER OF HOUSEHOLD MEMBERS [vname MISCK] [allow 1] [character] MONTH IN SAMPLE [vname MISFLG] [allow 1] [character] MANIPULATE MONTH IN SAMPLE [vname HVSFLG] [allow 1] [character] EQUALS 1 IS ALL HVS QUESTIONS HAVE BEEN ASKED [vname NUMMSP] [allow 2] [integer] COUNTS NUMBER OF PEOPLE WHO ARE MISSING DATA [vname INTTYP] [allow 1] [integer] 1=PERSONAL 2=TELEPHONE [vname PROUT1] [allow 3] [character] PREVIOUS OUTCOMES THIS VARIABLE WAS NOT DELCARED AS A [vname PROUT2] [allow 3] [character] PREVIOUS OUTCOMES TABNAME BECAUSE THE PROGRAMMERS COULD [vname PROUT3] [allow 3] [character] PREVIOUS OUTCOMES NOT HANDLE AN ARRAY OF 8. EVERY PROCESSED [vname PROUT4] [allow 3] [character] PREVIOUS OUTCOMES VARAIBLE HAD TO BE AN ARRAY OF 16 OR NOT [vname PROUT5] [allow 3] [character] PREVIOUS OUTCOMES AN ARRAY AT ALL [vname PROUT6] [allow 3] [character] PREVIOUS OUTCOMES [vname PROUT7] [allow 3] [character] PREVIOUS OUTCOMES [vname PROUT8] [allow 3] [character] PREVIOUS OUTCOMES [vname REPLCE] [allow 1] [integer] 1=REPLACEMENT HOUSEHOLD [vname ADDCHG] [allow 1] [integer] 1=ADDRESS CHANGED [vname MAILCH] [allow 1] [integer] 1=MAIL ADDRESS CHANGED [vname HHNUM] [allow 1] [character] IF THE CASE IS A REPLACEMENT HOUSEHOLD THEN THE INTERVIEWER MUST ENTER A NEW NUMBER [vname lk-hhnum] [allow 1] [integer] USED TO LOCK HHNUM SO THAT IF YOU BACK PAST HHNUM IT WILL NOT ALWAYS ADD 1 [vname lk2-hhnum] [allow 1] [integer] USED TO LOCK HHNUM SO THAT IF YOU BACK PAST typeac it will not always add 1 [vname TELFLA] [allow 1] [integer] IF EQ 1 THAT SPECIAL TELEPHONE QUESTION HAS ALREADY BEEN ASKED [vname rsmtime] [allow 8] [integer] time when call resumed [tabname LBFstm] [entries 16] [allow 8] [integer] Start time for labor force questions [tabname LBFetm] [entries 16] [allow 8] [integer] End time for labor force questions [tabname LBFsec] [entries 16] [allow 8] [integer] total seconds to complete labor force questions [tabname LBFftim] [entries 16] [allow 8] [integer] used when F10'd or F9'd [tabname HWstm] [entries 16] [allow 8] [integer] Start time for Hours worked questions [tabname HWetm] [entries 16] [allow 8] [integer] End time for Hours worked questions [tabname HWsec] [entries 16] [allow 8] [integer] total seconds to complete Hours Worked questions [tabname HWftim] [entries 16] [allow 8] [integer] used when F10'd or F9'd [tabname IOstm] [entries 16] [allow 8] [integer] Start time for I&O questions [tabname IOetm] [entries 16] [allow 8] [integer] End time for I&O questions [tabname IOsec] [entries 16] [allow 8] [integer] total seconds to complete I&O questions [tabname IOftim] [entries 16] [allow 8] [integer] used when F10'd or F9'd [tabname WEstm] [entries 16] [allow 8] [integer] Start time for Weekly earnings questions [tabname WEetm] [entries 16] [allow 8] [integer] End time for Weekly earnings questions [tabname WEsec] [entries 16] [allow 8] [integer] total seconds to complete Weekly earnings questions [tabname WEftim] [entries 16] [allow 8] [integer] used when F10'd or F9'd [vname LBHstm] [allow 8] [integer] Start time for labor force questions [vname LBHetm] [allow 8] [integer] End time for labor force questions [vname LBHsec] [allow 8] [integer] total seconds to complete labor force questions [vname LBHHftim] [allow 8] [integer] used when F10'd or F9'd [vname sectim-i] [allow 5] [integer] current time in seconds past midnight [vname STRTMS] [allow 8] [integer] [vname endtms] [allow 8] [integer] [vname LENSEC] [allow 8] [integer] VARIALBLES FOR PROTECTING THE TIMEMARKERS FROM BEING RESET ON CALLBACKS WHEN THE F3 IS USED, SINCE ALL THE START AND END TIMEMARKERS ARE SET TO 0 AT RESET EVERYTIME THE CASE IS CALLED UP. [tabname lkLBstim] [entries 16] [allow 1] [integer] [tabname lkLBetim] [entries 16] [allow 1] [integer] [tabname lkHWstim] [entries 16] [allow 1] [integer] [tabname lkHWetim] [entries 16] [allow 1] [integer] [tabname lkIOstim] [entries 16] [allow 1] [integer] [tabname lkIOetim] [entries 16] [allow 1] [integer] [tabname lkWEstim] [entries 16] [allow 1] [integer] [tabname lkWEetim] [entries 16] [allow 1] [integer] [vname lkLBHSTM] [allow 1] [integer] [vname lkLBHETM] [allow 1] [integer] CONTACT PERSON INFORMATION ADDED OCT 96 FOR ** MOVERS ** [vname CP1FN] [allow 16] [character] [vname CP1LN] [allow 16] [character] [vname CP1REL] [allow 54] [character] [vname CP1CT] [allow 22] [character] [vname CP1ST] [allow 2] [character] [vname CP1ZP] [allow 5] [character] [vname CP1AR] [allow 3] [character] [vname CP1NUM] [allow 7] [character] [vname CP1EXT] [allow 4] [character] [vname MVST1] [allow 54] [character] MOVER INFORMATION [vname MVST2] [allow 54] [character] [vname MVCT] [allow 22] [character] [vname MVST] [allow 2] [character] [vname MVZP] [allow 5] [character] [vname MVAR] [allow 3] [character] [vname MVNUM] [allow 7] [character] [vname MVEXT] [allow 4] [character] [vname REPST1] [allow 54] [character] REPLACEMENT HH MOVER INFORMATION [vname REPST2] [allow 54] [character] [vname REPCT] [allow 22] [character] [vname REPST] [allow 2] [character] [vname REPZP] [allow 5] [character] [vname REPAR] [allow 3] [character] [vname REPNUM] [allow 7] [character] [vname REPPHONE] [allow 11] [character] [vname REPEXT] [allow 4] [character] [vname SPIN-FLG] [allow 1] [integer] [tabname RSNL1] [entries 16] [allow 1] [character] [tabname RSNL2] [entries 16] [allow 1] [character] [tabname RSNL3] [entries 16] [allow 1] [character] [tabname RSPHONE] [entries 16] [allow 11] [character] [tabname RSNAR] [entries 16] [allow 3] [character] [tabname RSNNUM] [entries 16] [allow 7] [character] [tabname RSNEXT] [entries 16] [allow 4] [character] [tabname RSNST1] [entries 16] [allow 54] [character] [tabname RSNST2] [entries 16] [allow 54] [character] [tabname RSNCT] [entries 16] [allow 22] [character] [tabname RSNST] [entries 16] [allow 2] [character] [tabname RSNZP] [entries 16] [allow 5] [character] [tabname RNST1] [entries 16] [allow 54] [character] [tabname RNST2] [entries 16] [allow 54] [character] [tabname RNCT] [entries 16] [allow 22] [character] [tabname RNST] [entries 16] [allow 2] [character] [tabname RNZP] [entries 16] [allow 5] [character] ---------------------------------------------------------------------- SECTION **6C VARIABLES USED IN MIDDLE ONLY CONTROL CARD VARIABLES [vname HADDR1] [allow 54] [character] FIRST LINE OF ADDRESS [vname HADDR2] [allow 54] [character] FIRST LINE OF ADDRESS [vname HADDCT] [allow 22] [character] CITY [vname HADDST] [allow 2] [character] STATE [vname HADDZP] [allow 5] [character] ZIP [vname MADDR] [allow 54] [character] FIRST LINE OF MAILING ADDRESS [vname MADDCT] [allow 22] [character] CITY [vname MADDST] [allow 2] [character] STATE [vname MADDZP] [allow 5] [character] ZIP [vname HOUSUT] [allow 2] [character] LIVQRT or OTHUNT COMMENT: PERMANENT VARIABLES WHICH HAVE REFUSED OR MISSING INFORMATION FROM THE PREVIOUS INTERVIEW WILL HAVE A VALUE OF BLANK RATHER THAN THE POSSIBLE VALUES LISTED BELOW. [tabname LINENO] [entries 16] [allow 2] [character] PERSON'S LINE NUMBER [tabname name] [entries 16] [allow 24] [character] PERSON'S NAME (FIRST AND LAST) [tabname Fname] [entries 16] [allow 20] [character] PERSON'S FIRST NAME [tabname Lname] [entries 16] [allow 20] [character] PERSON'S LAST NAME [vname HHname] [allow 20] [character] First PERSON'S LAST NAME [vname NEWRRP] [allow 1] [integer] ** RRP [tabname RRP] [entries 16] [allow 2] [character] RELATIONSHIP TO REFERENCE pERSON 01 Reference person with other relatives in HH 02 Reference person with no other relatives in HH 03 Spouse 04 Child 05 Grandchild 06 Parent 07 Brother/Sister 08 Other relative 09 Foster Child 10 Non-relative of reference person with own relatives in HH 11 Partner/Roommate 12 Non-relative of reference person with no own relatives in HH NEW RRP 18 Reference person with other relatives in HH 19 Reference person with no other relatives in HH 20 Spouse 21 Unmarried Partner 22 Child 23 Grandchild 24 Parent 25 Brother/Sister 26 Other relative 27 Foster Child 28 Housemate/Roommate 29 Roomer/Boarder 30 Non-relative of reference person with no own relatives in HH 31 Unmarried Partner/ with own rels 32 Unmarried Partner/ with OUT own rels 33 Housemate/Roommate/ with own rels 34 Housemate/Roommate/ with OUT own rels 35 Roomer/Boarder/ with own rels 36 Roomer/Boarder/ with OUT own rels 37 Other Nonrel/ with own rels 38 Other Nonrel/ with OUT own rels [tabname SUBFAM] [entries 16] [allow 11] [character] [tabname hhmem] [entries 16] [allow 1] [character] STATUS OF HH MEMBERSHIP 1 Yes, HH mem 2 No, not HH mem 3 hhmem but a proxy respondent [tabname PARENT] [entries 16] [allow 2] [character] LINE NUMBER OF PARENT [vname PAR-cnt] [allow 1] [integer] count of number of parents [tabname BIRTHM] [entries 16] [allow 2] [character] PERSON'S BIRTH MONTH [tabname BIRTHD] [entries 16] [allow 2] [character] PERSON'S BIRTH DATE OF MONTH [tabname BIRTHY] [entries 16] [allow 2] [character] PERSON'S BIRTH YEAR [tabname age] [entries 16] [allow 2] [character] PERSON'S AGE [tabname MARITL] [entries 16] [allow 1] [character] PERSON'S MARITL STATUS 1 Married - Spouse Present 2 Married - Spouse Absent 3 Widowed 4 Divorced 5 Separated 6 Never married [tabname SPOUSE] [entries 16] [allow 2] [character] LINE NUMBER OF SPOUSE [tabname sex] [entries 16] [allow 1] [character] PERSON'S SEX 1 Male 2 Female [tabname AFEVER] [entries 16] [allow 1] [character] EVER IN U.S. ARMED FORCES 1 Yes 2 No [tabname AFWHEN] [entries 16] [allow 1] [character] WHEN SERVED IN ARMED FORCES 1 Vietnam Era 2 Korean War 3 World War II 4 World War I 5 Other Service (all other periods) [tabname AFNOW] [entries 16] [allow 1] [character] NOW IN ARMED FORCES 1 Yes 2 No [tabname EDUCA] [entries 16] [allow 2] [character] HIGHEST GRADE OR YEAR OF REGULAR SCHOOL EVER ATTENDED [tabname DIPGED] [entries 16] [allow 1] [character] ADDED JAN 96 [tabname HGCOMP] [entries 16] [allow 1] [character] [tabname CYC] [entries 16] [allow 1] [character] [tabname GRPROF] [entries 16] [allow 1] [character] [tabname GR6COR] [entries 16] [allow 1] [character] [tabname MS123] [entries 16] [allow 1] [character] [tabname racesp] [entries 16] [allow 65] [character] OTHER SPECIFY RACE [tabname race] [entries 16] [allow 1] [character] PERSON'S RACE 1 White 2 Black 3 American Indian, Aleut, Eskimo 4 Asian or Pacific Islander 5 Other [tabname origin] [entries 16] [allow 2] [character] PERSON'S ORIGIN/DESCENT 01 German 02 Italian 03 Irish 04 French 05 Polish 06 Russian 07 English 08 Scottish 10 Mexican American 11 Chicano 12 Mexican 14 Puerto Rican 15 Cuban 16 Central or South American 17 Other Spanish 20 Afro-American (Black, Negro) 26 Dutch 27 Swedish 28 Hungarian 30 Another group not listed Don't know NOTE: This is 39 on paper form [tabname SSN] [entries 16] [allow 9] [character] [tabname NATVTY] [entries 16] [allow 3] [character] [tabname MNTVTY] [entries 16] [allow 3] [character] [tabname FNTVTY] [entries 16] [allow 3] [character] [tabname CITIZN] [entries 16] [allow 1] [character] [tabname I-CITYA] [entries 16] [allow 1] [character] ARRAY FOR STORING THE INPUT VALUES CHANGED OCT 94/ CHANGED APR 96 (KEPT FOR BACK UP PURPOSES) [tabname I-CITYB] [entries 16] [allow 1] [character] ARRAY FOR STORING THE INPUT VALUES ADDED OCT 94 CHANGED APR 96 (KEPT FOR BACK UP PURPOSES) [tabname CITYPA] [entries 16] [allow 1] [character] [tabname CITYPB] [entries 16] [allow 1] [character] [tabname INUSYR] [entries 16] [allow 2] [character] OTHER VARIABLES FOR CATI CONTROL CARD SECTION [tabname relation] [entries 16] [allow 10] [character] TEXT FILLS TO DISPLAY RELATIONSHIPS WHICH ARE CODED IN "RRP" AS FOLLOWS: 01 Ref Per 02 RefPer WO 03 Spouse 04 Child 05 Grandchild 06 Parent 07 Brother/Sister 08 Other rel of reference person 09 Foster child 10 Non rel 11 Part/Room 12 NonRel WO NEW RRP 18 Reference person with other relatives in HH 19 Reference person with no other relatives in HH 20 Spouse 21 Unmarried Partner 22 Child 23 Grandchild 24 Parent 25 Brother/Sister 26 Other relative 27 Foster Child 28 Housemate/Roommate 29 Roomer/Boarder 30 Non-relative of reference person with no own relatives in HH 31 Unmarried Partner/ with own rels 32 Unmarried Partner/ with OUT own rels 33 Housemate/Roommate/ with own rels 34 Housemate/Roommate/ with OUT own rels 35 Roomer/Boarder/ with own rels 36 Roomer/Boarder/ with OUT own rels 37 Other Nonrel/ with own rels 38 Other Nonrel/ with OUT own rels [tabname age-i] [entries 16] [allow 3] [integer] AGE IN INTEGER FORM [tabname AGERNG] [entries 16] [allow 1] [integer] AGE RANGE 1 - 0-14 yrs 2 - 15 yrs 3 - 16-24 yrs 4 - 25-49 yrs 5 - 50-64 yrs 6 - 65+ yrs 8 - refused age, but said Age was greater than 15 years old 9 - Age Range unknown (Don't Know or Refused) [vname RefPer] [allow 2] [integer] REFPER AS IDENTIFIED FROM THE LAST MONTH'S INTERVIEW [vname sumhrp] [allow 2] [integer] LINE NUMBER OF PERSON GIVING CC INFORMATION "FLAG" VARIABLES [tabname pelig] [entries 16] [allow 2] [integer] INTERVIEW STATUS OF EACH PERSON IN hh 1 Eligible for interview 2 Labor force fully complete 3 Missing Labor Force data for person 4 5 No AgeRng 6 Armed Forces member 7 Under 15 years old 8 Not a HH member 9 Deleted 10 Deceased 11 END OF LIST 12 After EOL [tabname nwprfg] [entries 16] [allow 1] [integer] SET = 1 IF NAME IS ADDED TO ROSTER (TEMPORARY) [tabname addper] [entries 16] [allow 1] [character] SET = 1 IF NAME IS ADDED TO ROSTER [tabname CHGper] [entries 16] [allow 1] [character] SET = 1 IF NAME IS ADDED TO ROSTER AT CHANGE SCREEN ADDED JAN 95 USED SO WE DON'T ASK VR2-NONREL AGAIN [tabname DELDEC] [entries 16] [allow 1] [character] DELETED/DECEASED FLAG 1 Moved out - deleted 2 Deceased 3 Other reason for delete 9 END OF LIST marker [vname NOTEFL] [allow 1] [integer] FLAG WHICH WARNS i'ER OF EARLIER CHANGES WHICH MAY AFFECT OTHER ENTRIES [vname WHO] [allow 2] [integer] LINE NUMBER OF THE PERSON WE ARE TALKING ABOUT IN THE CONTROL CARD SECTION [vname WHO2] [allow 2] [integer] LINE NUMBER OF THE PERSON WE ARE [vname CHG-FLAG] [allow 1] [character] 1=change screen 2=change2 screen [vname CHG-FLG] [allow 1] [integer] 1=if you add a nonrel at change screen ADDED JAN 95 [tabname CHINHH] [entries 16] [allow 1] [character] FLAGS CHANGE IN HH COMP FOR ITEM 26B. 1 Person added 2 Person added - URE 3 Person UDELeted 4 Person died 5 Person deleted for reason other than death 6 Person joined Armed Forces 7 Person no longer in A.F. 9 Change in demographic information [tabname Donper] [entries 16] [allow 1] [character] SET = 1 WHEN A PERSON GOES THROUGH LABOR-END. IT IS THEN USED TO STORE 2 IN pelig. [tabname misper] [entries 16] [allow 1] [character] SET = 1 WHEN A PERSON GOES THROUGH MISSINGPER. IT IS THEN USED TO STORE 3 IN pelig. VARIABLES USED IN LABOR FORCE SECTION [tabname SLFPRX] [entries 16] [allow 1] [character] WHETHER THE LABOR FORCE INFOR. WAS BY SELF OR PROXY. [tabname lockprox] [entries 16] [allow 1] [integer] SET = 1 WHEN FINISHED WITH LABOR FORCE QUESTIONS TO PREVENT SLFPRX VARIABLE FROM CHANGING. [tabname LABPAR] [entries 16] [allow 1] [character] A VALUE OF 1 MEANS ENOUGH LABOR FORCE INFO. WAS COMPLETED FOR A PERSON TO BE CONSIDERED A COMPLETED INTERVIEW THE FOLLOWING VARIABLES ARE USED TO STORE THE INPUT VARIABLES INTO ARRAYS SO THAT THEY ARE EASIER TO USE IN ROSTERS [tabname I-MLR] [entries 16] [allow 1] [character] MLR FROM PREVIOUS MONTHS INTERVIEW [tabname I-IO1NAM] [entries 16] [allow 65] [character] [tabname I-IO1IND] [entries 16] [allow 65] [character] [tabname I-IO1MFG] [entries 16] [allow 1] [character] [tabname I-IO1OCC] [entries 16] [allow 65] [character] [tabname I-IO1DT1] [entries 16] [allow 65] [character] [tabname I-IO1DT2] [entries 16] [allow 65] [character] [tabname I-IO1COW] [entries 16] [allow 2] [character] [tabname I-IO1ICD] [entries 16] [allow 3] [character] [tabname I-IO1OCD] [entries 16] [allow 3] [character] [tabname I-IO1ICR] [entries 16] [allow 1] [character] [tabname I-IO1OCR] [entries 16] [allow 1] [character] [tabname I-LAYDUR] [entries 16] [allow 3] [character] [tabname I-LAYFT] [entries 16] [allow 1] [character] [tabname I-LK1] [entries 16] [allow 1] [character] [tabname I-LK2] [entries 16] [allow 1] [character] [tabname I-LKLW] [entries 16] [allow 1] [character] [tabname I-LKM] [entries 16] [allow 2] [character] [tabname I-LKY] [entries 16] [allow 2] [character] [tabname I-LKDUR] [entries 16] [allow 3] [character] [Tabname I-LKFT] [entries 16] [allow 1] [character] [tabname MLR] [entries 16] [allow 1] [character] NEW MLR ASSIGNED IN INSTRUMENT OUT VARIABLES USED IN VERSION D [Tabname LKLL1O] [entries 16] [allow 1] [character] [Tabname LKLL2O] [entries 16] [allow 1] [character] [Tabname LKLWO] [entries 16] [allow 1] [character] [Tabname lkdtmo] [entries 16] [allow 2] [character] [Tabname lkdtyo] [entries 16] [allow 2] [character] [tabname LKFTO] [entries 16] [allow 1] [character] [Tabname DWWNTO] [entries 16] [allow 1] [character] [Tabname MJOT] [entries 16] [allow 1] [character] [Tabname DWLKO] [entries 16] [allow 1] [character] [Tabname ABSPDO] [entries 16] [allow 1] [character] [Tabname ABSOT] [entries 16] [allow 1] [character] [Tabname BUS2OT] [entries 16] [allow 1] [character] [vname BUSOT] [allow 2] [character] [Tabname HRUSLT] [entries 16] [allow 3] [character] [Tabname HRUSL-i] [entries 16] [allow 3] [integer] [Tabname HRACTT] [entries 16] [allow 3] [character] [Tabname HRACT-i] [entries 16] [allow 3] [integer] [Tabname IO1WPO] [entries 16] [allow 1] [character] [tabname HWKRN] [entries 16] [allow 10] [character] [tabname HWKRN2] [entries 16] [allow 10] [character] [tabname ERN] [entries 16] [allow 10] [character] [tabname ERN2] [entries 16] [allow 10] [character] [vname ERN2-r] [allow 10] [real] [vname ERN-r] [allow 10] [real] [vname HWKRN-r] [allow 10] [real] [vname HWKR2-r] [allow 10] [real] [vname ERNX1-r] [allow 10] [real] [vname ERNX2-r] [allow 10] [real] [tabname ERNX1] [entries 16] [allow 10] [character] [tabname ERNX2] [entries 16] [allow 10] [character] [tabname ERNAMT] [entries 16] [allow 10] [character] [tabname ERNH1O] [entries 16] [allow 10] [character] [tabname ERNPER] [entries 16] [allow 1] [character] [tabname ERNHRO] [entries 16] [allow 2] [character] [tabname ERNOTO] [entries 16] [allow 10] [character] [tabname PRERNX1] [entries 16] [allow 1] [character] [tabname JHDP1O] [entries 16] [allow 1] [character] [tabname LKDUR] [entries 16] [allow 6] [character] [tabname LKDURX] [entries 16] [allow 6] [character] [tabname LAYDUR] [entries 16] [allow 6] [character] [tabname LAYFTO] [entries 16] [allow 1] [character] [tabname JHWKO] [entries 16] [allow 1] [character] [tabname RETOT] [entries 16] [allow 1] [character] THESE FLAGS ARE USED TO HELP WITH FILLS [tabname IOFLAG] [entries 16] [allow 1] [integer] USED FOR FILLS IN I&O SERIES THIS FLAG IS SET TO 1 FOR ANY PERSON THAT IS AN OWNER OF A BUSINESS OR FOR ANYONE RELATED TO THE OWNER OF A BUSINESS [tabname relflg] [entries 16] [allow 1] [integer] THIS VARIABLE HOLDS THE LINE NUMBERS OF THE HOUSEHOLD THAT WAS REPLACED [tabname REPLNO] [entries 16] [allow 2] [integer] [vname telphn-flg] [allow 1] [integer] flag used in the back to determine if the telephone series has already been asked. added 1/4/93 [vname HISFLG] [allow 1] [integer] SUPPLEMENT VARIABLES **S -------------------- [vname rindex3] [allow 7] [real] [vname rindex4] [allow 7] [real] [vname DKFLAG] [allow 1] [integer] [tabname TEMPtab] [entries 16] [allow 2] [integer] [vname SUPFLG] [allow 1] [integer] ADDED CW 1/8/97 9 = initalized, don't know anything about supplement yet 1 = persons eligible, supplement started 2 = persons eligible, supplement not started 3 = no persons eligible [tabname Spelig] [entries 16] [allow 2] [integer] STATUS OF SUPPLEMENT [tabname dnper-s] [entries 16] [allow 1] [integer] This parallels DONPER. Used for the person part of the supplement. [vname dnper-s2] [allow 1] [integer] This parallels DONPER. Used for the household part of the supplement. [tabname mssper-s] [entries 16] [allow 1] [integer] This parallels MISPER. [vname hhs-pel] [allow 2] [integer] STATUS OF HH SUPPLEMENT. 1 Eligible for HH supplement 3 Completed HH supplement 4 Refused HH supplement [tabname Q33OUT] [entries 16] [allow 2] [character] OUTPUT FOR Q33 [tabname Q56BLN] [entries 16] [allow 2] [integer] USED TO STORE IN [tabname Q56GLN] [entries 16] [allow 2] [integer] INTEGER ARRAYS [tabname Q57BLN] [entries 16] [allow 2] [integer] LINE NUMBERS OF [tabname Q57DLN] [entries 16] [allow 2] [integer] LINE NUMBERS OF [tabname Q58BLN] [entries 16] [allow 2] [integer] PERSON INCLUDED [tabname Q5988L] [entries 16] [allow 2] [integer] [tabname Q59BLN] [entries 16] [allow 2] [integer] IN SCREENER ITEMS-- [tabname Q6088L] [entries 16] [allow 2] [integer] [tabname Q60BLN] [entries 16] [allow 2] [integer] (THE WHO IS THAT? [tabname Q62BLN] [entries 16] [allow 2] [integer] ITEMTABLES) [tabname Q63BLN] [entries 16] [allow 2] [integer] [tabname Q64BLN] [entries 16] [allow 2] [integer] [tabname Q65BLN] [entries 16] [allow 2] [integer] [tabname Q66CLN] [entries 16] [allow 2] [integer] [tabname Q70BLN] [entries 16] [allow 2] [integer] [tabname Q71BLN] [entries 16] [allow 2] [integer] [tabname Q72BLN] [entries 16] [allow 2] [integer] [tabname Q73B1L] [entries 16] [allow 2] [integer] [tabname Q73B2L] [entries 16] [allow 2] [integer] [tabname SPD1T] [entries 16] [allow 2] [integer] [tabname SPD2T] [entries 16] [allow 2] [integer] ITEMS ADDED FOR MISSING DATA (DONT KNOW) RESPONSES RECALLS [tabname whodex] [entries 10] [allow 2] [integer] [tabname kind] [entries 10] [allow 1] [character] [vname J1] [allow 2] [integer] [vname J2] [allow 2] [integer] [vname J3] [allow 2] [integer] [vname J4] [allow 2] [integer] [vname J5] [allow 2] [integer] [vname J6] [allow 2] [integer] [vname J7] [allow 2] [integer] [vname J8] [allow 2] [integer] [vname J9] [allow 2] [integer] [vname J10] [allow 2] [integer] ADDED FOR NEW 1995 ITEMS [tabname TQ48AV] [entries 16] [allow 10] [character] [tabname Q48aT] [entries 16] [allow 10] [character] [tabname Q48bT] [entries 16] [allow 10] [character] [tabname Q48blo] [entries 16] [allow 10] [character] [tabname T49B1V] [entries 16] [allow 10] [character] [tabname Q49B1T] [entries 16] [allow 10] [character] [tabname T51A13] [entries 16] [allow 10] [character] [tabname Q51A1T] [entries 16] [allow 10] [character] [tabname T51A23] [entries 16] [allow 10] [character] [tabname Q51A2T] [entries 16] [allow 10] [character] [tabname T51A33] [entries 16] [allow 10] [character] [tabname Q51A3T] [entries 16] [allow 10] [character] [tabname TQ52C3] [entries 16] [allow 10] [character] [tabname Q52cT] [entries 16] [allow 10] [character] [tabname Q56dO] [entries 16] [allow 10] [character] [vname r-Q56dO] [allow 10] [real] [tabname Q56d1O] [entries 16] [allow 10] [character] [vname r-Q56d1O] [allow 10] [real] [tabname TQ56D5] [entries 16] [allow 10] [character] [tabname Q56dT] [entries 16] [allow 10] [character] [tabname TQ56I4] [entries 16] [allow 10] [character] [tabname Q56iT] [entries 16] [allow 10] [character] [tabname TQ57C4] [entries 16] [allow 10] [character] [tabname Q57CT] [entries 16] [allow 10] [character] [tabname Q57I4T] [entries 16] [allow 10] [character] [tabname Q57iT] [entries 16] [allow 10] [character] [tabname T58E13] [entries 16] [allow 10] [character] [tabname Q58E1T] [entries 16] [allow 10] [character] [tabname T58E23] [entries 16] [allow 10] [character] [tabname Q58E2T] [entries 16] [allow 10] [character] [tabname T58E33] [entries 16] [allow 10] [character] [tabname Q58E3T] [entries 16] [allow 10] [character] [tabname TQ59E3] [entries 16] [allow 10] [character] [tabname Q59ET] [entries 16] [allow 10] [character] [tabname T60V13] [entries 16] [allow 10] [character] [tabname Q60V1T] [entries 16] [allow 10] [character] [tabname T60V23] [entries 16] [allow 10] [character] [tabname Q60V2T] [entries 16] [allow 10] [character] [tabname Q60E8O] [entries 16] [allow 10] [character] Q60V1T + Q60V2T [tabname T61E13] [entries 16] [allow 10] [character] [tabname Q61E1T] [entries 16] [allow 10] [character] [tabname T61E23] [entries 16] [allow 10] [character] [tabname Q61E2T] [entries 16] [allow 10] [character] [tabname T62E13] [entries 16] [allow 10] [character] [tabname Q62E1T] [entries 16] [allow 10] [character] [tabname T62E23] [entries 16] [allow 10] [character] [tabname Q62E2T] [entries 16] [allow 10] [character] [tabname T62E33] [entries 16] [allow 10] [character] [tabname Q62E3T] [entries 16] [allow 10] [character] [tabname Q63C3T] [entries 16] [allow 10] [character] [tabname Q63CT] [entries 16] [allow 10] [character] [tabname Q64C3T] [entries 16] [allow 10] [character] [tabname Q64CT] [entries 16] [allow 10] [character] [tabname Q65CT] [entries 16] [allow 10] [character] [tabname Q65Clo] [entries 16] [allow 10] [character] [tabname Q66H3T] [entries 16] [allow 10] [character] [tabname Q66HT] [entries 16] [allow 10] [character] [tabname TQ70C3] [entries 16] [allow 10] [character] [tabname Q70cT] [entries 16] [allow 10] [character] [tabname TQ71C3] [entries 16] [allow 10] [character] [tabname Q71cT] [entries 16] [allow 10] [character] [tabname TQ72C3] [entries 16] [allow 10] [character] [tabname Q72cT] [entries 16] [allow 10] [character] [tabname Q7313T] [entries 16] [allow 10] [character] [tabname Q731T] [entries 16] [allow 10] [character] [tabname Q7323T] [entries 16] [allow 10] [character] [tabname Q732T] [entries 16] [allow 10] [character] [vname TQ903] [allow 10] [character] [vname Q90T] [allow 10] [character] [vname MARstm] [allow 8] [integer] Start time for supplement questions [vname MARetm] [allow 8] [integer] End time for supplement questions [vname MARsec] [allow 8] [integer] total seconds to complete supplement questions [vname MARftim] [allow 8] [integer] used when F10'd or F9'd [vname lkMARSTM] [allow 1] [integer] [vname lkMARETM] [allow 1] [integer] MIGRATION VARIABLES [vname MIGCKA] [allow 3] [integer] [vname MIGCKB] [allow 3] [integer] [tabname NEXTMO] [entries 16] [allow 20] [integer] [vname Q59COT] [allow 2] [character] ADDED 1/15/97 $end ------------------------------------------------------------------------------- SECTION **6D VARIABLES SET FOR PROCESSING ONLY $create THE FOLLOWING VARIABLES ARE SET TO 1 IF THE IS A DIFFERENCE IN THE INPUT AND OUTPUT VARIABLE [tabname FHHMEM] [entries 16] [allow 1] [character] [tabname FRRP] [entries 16] [allow 1] [character] [tabname FPARNT] [entries 16] [allow 1] [character] [tabname FAGE] [entries 16] [allow 1] [character] [tabname FMARTL] [entries 16] [allow 1] [character] [tabname FSPOUS] [entries 16] [allow 1] [character] [tabname FAFEVR] [entries 16] [allow 1] [character] [tabname FAFWHN] [entries 16] [allow 1] [character] [tabname FAFNOW] [entries 16] [allow 1] [character] [tabname FEDUCA] [entries 16] [allow 1] [character] [tabname FRACE] [entries 16] [allow 1] [character] [tabname FORIGN] [entries 16] [allow 1] [character] [tabname FSSN] [entries 16] [allow 1] [character] THE FOLLOWING VARIABLES HOLD THE LINE NUMBER OF THE PERSON WHO RESPONDED FOR A PARTICULAR PERSON IN A PARTICULAR SERIES [tabname ERNLNO] [entries 16] [allow 2] [character] [tabname IOLNO] [entries 16] [allow 2] [character] [tabname LFLNO] [entries 16] [allow 2] [character] [tabname HRSLNO] [entries 16] [allow 2] [character] FLAGS SET IN EACH CHECK ITEM TO STORE WHICH CONDITION WAS MET THE INSTRUCTIONAL ITEM IS THE SAME NAME PLUS A -C. [Tabname BUSCK1] [entries 16] [allow 1] [character] BUSCK1-C [Tabname BUSCK2] [entries 16] [allow 1] [character] BUSCK2-C [tabname RETCK1] [entries 16] [allow 1] [character] RETCK1-C [tabname RETCK2] [entries 16] [allow 1] [character] [tabname RETCK3] [entries 16] [allow 1] [character] [tabname DISCK1] [entries 16] [allow 1] [character] [tabname BUSCK3] [entries 16] [allow 1] [character] [tabname DISCK2] [entries 16] [allow 1] [character] [tabname RETCK4] [entries 16] [allow 1] [character] [tabname DISCK3] [entries 16] [allow 1] [character] [tabname RETCK5] [entries 16] [allow 1] [character] [tabname BUSCK4] [entries 16] [allow 1] [character] [tabname ABSCK1] [entries 16] [allow 1] [character] [tabname HRCK1] [entries 16] [allow 1] [character] [tabname HRCK2] [entries 16] [allow 1] [character] [tabname HRCK3] [entries 16] [allow 1] [character] [tabname HRCK4] [entries 16] [allow 1] [character] [tabname HRCK5] [entries 16] [allow 1] [character] [tabname HRCK6] [entries 16] [allow 1] [character] [tabname HRCK7] [entries 16] [allow 1] [character] [tabname HRCK12] [entries 16] [allow 1] [character] [tabname LAYCK1] [entries 16] [allow 1] [character] [tabname LAYCK2] [entries 16] [allow 1] [character] [tabname LAYCK3] [entries 16] [allow 1] [character] [tabname LKCK1] [entries 16] [allow 1] [character] [tabname LKCK2] [entries 16] [allow 1] [character] [tabname LKACK1] [entries 16] [allow 1] [character] [tabname LKACK2] [entries 16] [allow 1] [character] [tabname LKACK3] [entries 16] [allow 1] [character] [tabname LKACK4] [entries 16] [allow 1] [character] [tabname LKACK5] [entries 16] [allow 1] [character] [tabname LKACK6] [entries 16] [allow 1] [character] [tabname LKACK7] [entries 16] [allow 1] [character] [tabname LKACK8] [entries 16] [allow 1] [character] [tabname LKACK9] [entries 16] [allow 1] [character] [tabname LKCK3] [entries 16] [allow 1] [character] [tabname LKCK3A] [entries 16] [allow 1] [character] [tabname LKCK3B] [entries 16] [allow 1] [character] [tabname LKCK3C] [entries 16] [allow 1] [character] [tabname LKCK3D] [entries 16] [allow 1] [character] [tabname LKCK3E] [entries 16] [allow 1] [character] [tabname LKCK4] [entries 16] [allow 1] [character] [tabname LKCK4A] [entries 16] [allow 1] [character] [tabname LKCK5] [entries 16] [allow 1] [character] [tabname LKCK6] [entries 16] [allow 1] [character] [tabname DWCK1] [entries 16] [allow 1] [character] [tabname DWCK2] [entries 16] [allow 1] [character] [tabname DWCK3] [entries 16] [allow 1] [character] [tabname DWCK4] [entries 16] [allow 1] [character] [tabname DWCK5] [entries 16] [allow 1] [character] [tabname JHCK1] [entries 16] [allow 1] [character] [tabname JHCK2] [entries 16] [allow 1] [character] [tabname JHCK3] [entries 16] [allow 1] [character] [tabname JHCK4] [entries 16] [allow 1] [character] [tabname JHCK5] [entries 16] [allow 1] [character] [tabname IOCK1] [entries 16] [allow 1] [character] [tabname IOCK2] [entries 16] [allow 1] [character] [tabname IOCK3] [entries 16] [allow 1] [character] [tabname IOCK4] [entries 16] [allow 1] [character] [tabname IOCK5] [entries 16] [allow 1] [character] [tabname IOCK6] [entries 16] [allow 1] [character] [tabname IOCK7] [entries 16] [allow 1] [character] [tabname IOCK7A] [entries 16] [allow 1] [character] [tabname IOCK8] [entries 16] [allow 1] [character] [tabname ERNCK] [entries 16] [allow 1] [character] [tabname NLFCK1] [entries 16] [allow 1] [character] [tabname NLFCK2] [entries 16] [allow 1] [character] [tabname SCHCK] [entries 16] [allow 1] [character] THE FLOOWING 2 VARIABLES HOLD THE TOTAL NUMBER OF PERSONS THAT WERE EVER IN A HOUSEHOLD. (THIS NUMBER CAN BE GREATER THAN 16.) [vname HALNO] [allow 2] [character] [vname HALNO-i] [allow 2] [integer] [tabname IO1ELI] [entries 16] [allow 1] [integer] [tabname IO1ELO] [entries 16] [allow 1] [integer] [tabname IODELI] [entries 16] [allow 1] [integer] [tabname IODELO] [entries 16] [allow 1] [integer] [tabname IO2ELI] [entries 16] [allow 1] [integer] [tabname IO2ELO] [entries 16] [allow 1] [integer] [tabname IO1COW] [entries 16] [allow 2] [character] [tabname IO2COW] [entries 16] [allow 2] [character] [tabname IO2NAM] [entries 16] [allow 65] [character] [tabname IO1NAM] [entries 16] [allow 65] [character] [tabname IO1ICD] [entries 16] [allow 3] [character] [tabname IO1OCD] [entries 16] [allow 3] [character] [tabname ERNHRY] [entries 16] [allow 1] [character] [tabname LFDEX] [entries 16] [allow 1] [character] 1 - DEMOGRAPHICS ONLY 2 - DEMO, INITIAL LF ONLY (WK ONLY) 3 - DEMO, LF THRU HOURS ONLY 4 - DEMO, LF THRU UNEMPLOYED SERIES 5 - ALL OTHER PARTIALS 6 - FULL LF THE FOLLOWING VARAIABLES WERE CREATED BECAUSE THE NEW PROCESSING SYSTEM WILL NOT CARRY ANY I- VARAIBLES THEREFORE ALL INPUT VARIABLES HAD TO BE STORED INTO OTHER VARIABLES [vname ACCESS] [allow 1] [character] [vname EXT] [allow 4] [character] [vname SEXT] [allow 4] [character] [vname AMPM] [allow 1] [character] [vname SAMPLE] [allow 3] [character] [vname TENURE] [allow 1] [character] [vname TELHHD] [allow 1] [character] [vname TELAVL] [allow 1] [character] [vname TELWHR] [allow 51] [character] [vname FAMINC] [allow 2] [character] [vname PRSCNT] [allow 1] [integer] [vname TELREG] [allow 2] [integer] CHANGED MAY 95 [vname LNDUSE] [allow 1] [character] [vname SEGTYP] [allow 1] [character] 1 = Area 2 = Unit 3 = Group quaters 4 = Permit 5 = Address 6 = Special place [vname SPCODE] [allow 2] [character] [vname SPNAME] [allow 20] [character] [vname SPHONE] [allow 10] [character] [vname SHOMOF] [allow 2] [character] [vname PAREA] [allow 1] [character] [vname AREASP] [allow 1] [character] [vname AREAMH] [allow 1] [character] [vname YRBLT] [allow 1] [character] [vname MULTUT] [allow 1] [character] [vname MULTSZ] [allow 1] [character] [vname EXTRA] [allow 3] [character] [vname SITE] [allow 1] [character] [vname REFLD] [allow 1] [character] [vname INTNAM] [allow 4] [character] ADDED FOR DECEMBER [vname MARHIS] [allow 1] [character] ADDED FOR OCTOBER [vname DESIGN] [allow 1] [character] [vname CONTYA] [allow 1] [character] [vname PH2NUM] [allow 2] [character] hold line number of secodary phone $end ******************************************************************************* **7** COVERAGE QUESTIONS CONTROL CARD FLOW ******************************************************************************** ADDED FOR CAPI $>pre-cc< [if mark le <10> then store <10> in mark] [IF intro-b is <3> then goto NONTYP] NONINTERVIEW [NIF MARHIS is <1> AND REPLCE eq <1> then] **S ** NEEDED FOR MARCH ** [goto SPNREP] [ENDIF] [goto pre-cc8] $end ------------------------------------------------------------------------------- ** NEEDED FOR MARCH ** **S $>SPNREP< $display >SPNREP< ** DO NOT READ ** THIS IS A SPANISH HOUSEHOLD. ENTER

TO PROCEED ===>_ [store <233> in outcome] [goto TYPBSP] $end ------------------------------------------------------------------------------- ADDED FOR CAPI -- CMC $>NONTYP< ** MOVERS ** (next 9 lines) - added precode 4 for movers only - made precode 3 unavailable for movers - changed gotos for 1 2 3 to fall into next item, MVLMON [store < > in temp2] [store <4> in XBAD(1)] [NIF caseid(14:14) isnt < > then] ** SPD ** [store <{4} TYPE D> in temp2] [store <0> in XBAD(1)] [ENDIF] $display >NONTYP< WHAT TYPE OF NON-INTERVIEW DO YOU HAVE? <1> TYPE A <2> TYPE B <3> TYPE C [fill temp2] MISTAKE-do not want to code noninterview [goto pre-cc8] [blind] <4> TYPE D [goto TYPD] ===>_ $edit [notequal XBAD(1)] $end ------------------------------------------------------------------------------- $>pre-mvlmon< ** SPD ** $end ------------------------------------------------------------------------------- $>MVLMON< ** MOVERS ** added ** SPD ** changed wording $d >MVLMON< Did this household move from this address? <1> Yes <2> No [goto aft-mvlm] [blind] Don't Know [goto aft-mvlm] ===>_ $edit $end ------------------------------------------------------------------------------- $>SPMVLM< ** SPIN OFF HERE ** ADDED FOR ** MOVERS ** [if SPIN-FLG eq <1> then goto aft-mvlm] [if caseid(14:14) isnt < > then goto aft-mvlm] ** SPD ** [store < > in REPST1] [store < > in REPST2] [store < > in REPCT] [store < > in REPST] [store < > in REPZP] [store < > in REPPHONE] [store < > in REPEXT] [spinstore I-PHONE REPPHONE] [spinstore I-EXT REPEXT] [spinstore I-ADD1 REPST1] [spinstore I-ADD2 REPST2] [spinstore I-CITY REPCT] [spinstore I-STATE REPST] [spinstore I-ZIP REPZP] [store < > in temp2] ** SPD ** [spinstore I-BLANK3 temp2] FLAG TO KNOW WHICH CASE IS A SPINOFF USE I-BLANK3 TO DETERMINE WHEN TO USE FILLS FOR MOVERS. IF I-BLANK3 =1 THEN IT IS A SPIN OFF CASE. IF I-BLANK3=BLANK THEN IT IS THE PARENT CASE. [store <5> in temp2] [spinstore I-MISCK temp2] Make case MIS 5 to reask I&O *** WHAT OTHER INPUT VARIABLES SHOULD BE CHANGED/BLANKED HERE *** The following blanks relationship, parent's line number spouse's line number and marital status in spawns. ** SPD ** [store < > in temp2] ** SPD ** [spinstore I-RRP-1 temp2] [spinstore I-RRP-2 temp2] [spinstore I-RRP-3 temp2] [spinstore I-RRP-4 temp2] [spinstore I-RRP-5 temp2] [spinstore I-RRP-6 temp2] [spinstore I-RRP-7 temp2] [spinstore I-RRP-8 temp2] [spinstore I-RRP-9 temp2] [spinstore I-RRP-10 temp2] [spinstore I-RRP-11 temp2] [spinstore I-RRP-12 temp2] [spinstore I-RRP-13 temp2] [spinstore I-RRP-14 temp2] [spinstore I-RRP-15 temp2] [spinstore I-RRP-16 temp2] [spinstore I-PARNT-1 temp2] [spinstore I-PARNT-2 temp2] [spinstore I-PARNT-3 temp2] [spinstore I-PARNT-4 temp2] [spinstore I-PARNT-5 temp2] [spinstore I-PARNT-6 temp2] [spinstore I-PARNT-7 temp2] [spinstore I-PARNT-8 temp2] [spinstore I-PARNT-9 temp2] [spinstore I-PARNT-10 temp2] [spinstore I-PARNT-11 temp2] [spinstore I-PARNT-12 temp2] [spinstore I-PARNT-13 temp2] [spinstore I-PARNT-14 temp2] [spinstore I-PARNT-15 temp2] [spinstore I-PARNT-16 temp2] [spinstore I-SPOUS-1 temp2] [spinstore I-SPOUS-2 temp2] [spinstore I-SPOUS-3 temp2] [spinstore I-SPOUS-4 temp2] [spinstore I-SPOUS-5 temp2] [spinstore I-SPOUS-6 temp2] [spinstore I-SPOUS-7 temp2] [spinstore I-SPOUS-8 temp2] [spinstore I-SPOUS-9 temp2] [spinstore I-SPOUS-10 temp2] [spinstore I-SPOUS-11 temp2] [spinstore I-SPOUS-12 temp2] [spinstore I-SPOUS-13 temp2] [spinstore I-SPOUS-14 temp2] [spinstore I-SPOUS-15 temp2] [spinstore I-SPOUS-16 temp2] [spinstore I-MARTL-1 temp2] [spinstore I-MARTL-2 temp2] [spinstore I-MARTL-3 temp2] [spinstore I-MARTL-4 temp2] [spinstore I-MARTL-5 temp2] [spinstore I-MARTL-6 temp2] [spinstore I-MARTL-7 temp2] [spinstore I-MARTL-8 temp2] [spinstore I-MARTL-9 temp2] [spinstore I-MARTL-10 temp2] [spinstore I-MARTL-11 temp2] [spinstore I-MARTL-12 temp2] [spinstore I-MARTL-13 temp2] [spinstore I-MARTL-14 temp2] [spinstore I-MARTL-15 temp2] [spinstore I-MARTL-16 temp2] [store < > in tempsp] [spinoff tempsp] [store <1> in SPIN-FLG] $end ------------------------------------------------------------------------------- $>MLMHC< ** MOVERS ** $d >MLMHC< A mover's household has been created. ENTER

TO PROCEED ===>_ $end ------------------------------------------------------------------------------- $>aft-mvlm< ** MOVERS ** added [NIF NONTYP is <1> then] [goto TYPEA] [ELSEIF NONTYP is <2> then] [goto TYPB] [ELSEIF NONTYP is <3> then] [goto TYPC] [ENDIF] $end ------------------------------------------------------------------------------- $>TYPEA< $display *** DO NOT F10 FROM THIS SCREEN *** >TYPEA< ENTER TYPE OF NONINTERVIEW <1> No one home (NOH) [store <216> in outcome] <2> Temporarily Absent (TA) [store <217> in outcome] <3> Refused (REF) [store <218> in outcome] <4> Other occupied - specify [store <219> in outcome] [goto TYPEAS] ===>_ [goto typeac-c] $end ------------------------------------------------------------------------------- $>TYPEAS< $display >TYPEAS< ENTER OTHER OCCUPIED TYPE A Noninterview ===>____________________________________________ $edit [anychar] $end ------------------------------------------------------------------------------ $>Typeac-c< [NIF MISFLG is <1> OR MISFLG is <5> then] [goto ABMAIL-A] [ELSEIF REPLCE eq <1> then] [goto REPA] [ELSEIF HISFLG eq <1> then] [goto checkout] ** NEEDED FOR MARCH ** **S [ELSE] [goto typeac] [ENDIF] $end ------------------------------------------------------------------------------ $>REPA< $display >REPA< ** ARE YOU SURE THIS CASE IS A TYPE A NONINTERVIEW ** <1> Yes <2> No [store <202> in outcome] [if marktwo eq <02> then store <204> in outcome] [if marktwo eq <05> then store <205> in outcome] [if marktwo eq <06> then store <205> in outcome] [backto nontyp] ===>_ [goto ABMAIL-A] $end -------------------------------------------------------------------------------- $>Typeac< $display >Typeac< ** ARE YOU SURE THIS CASE IS A TYPE A NONINTERVIEW ** <1> Yes - same household [store <0> in REPLCE] <2> Yes - replacement household [store <1> in REPLCE] [goto chg-hhnum] <3> No [store <202> in outcome] [if marktwo eq <02> then store <204> in outcome] [if marktwo eq <05> then store <205> in outcome] [store <0> in REPLCE] [backto nontyp] ===>_ [goto ABMAIL-A] $end -------------------------------------------------------------------------------- $>chg-HHnum< [store <0> in index] [NIF lk2-hhnum eq <1> then] [ELSE] [convert HHNUM character to index integer] [add <1> to index] AUTOMATICALLY INCREASE THE HOUSEHOLD NUMBER BY ONE. [convert index integer to HHNUM character] [store <1> in lk2-hhnum] [ENDIF] [goto ABMAIL-A] $end ------------------------------------------------------------------------------- $>TYPB< ** MOVERS ** -modified screen ** SPD ** -modified screen again $display *** DO NOT F10 FROM THIS SCREEN *** >TYPB< ENTER TYPE B NONINTERVIEW <4> URE - Institutionalized [store <228> in outcome] <9> Houshold moved [store <233> in outcome] [goto TYPBSP] ===>_ [goto ABMAIL-A] $edit [precodes] $end -------------------------------------------------------------------------------- $>TYPBSP< $display >TYPBSP< Enter Other TYPE B Noninterview ===>____________________________________________ [goto ABMAIL-A] $edit [anychar] $end ------------------------------------------------------------------------------ $>TYPBER< $display >TYPBER< *** DO NOT READ TO RESPONDENT *** THIS CASE REQUIRES THAT A ROSTER BE CREATED FOR THIS HOUSEHOLD UNLESS THIS IS A LAST RESORT. <1> Not a last resort [If MISFLG is <1> then goto vradd2] <2> LAST RESORT [store <225> in outcome] [If MISFLG is <1> then goto ABMAIL-A] ===>_ $end ---------------------------------------------------------------------- $>BREPLC< [If notbacked then reset BREPLC] [store <0> in REPFLG] $display >BREPLC< *** DO NOT READ TO RESPONDENT *** Is this a replacement household? <1> Yes [store <1> in REPLCE] <2> No [store <0> in REPLCE] [goto vradd2] ===>_ $end ---------------------------------------------------------------------- $>BRPLC2< [If notbacked then reset BRPLC2] [store <0> in REPFLG] $display >BRPLC2< A replacement household means that there are no members of the original household living at this address. Are you sure that this is a replacement household? <1> Yes <2> No [store <0> in REPLCE] [goto vradd2] ===>_ $end ------------------------------------------------------------------------------- COMMENT: SHOULD ONLY COME HERE IF IT IS A REPLACEMENT HOUSEHOLD. THIS ITEM WILL AUTOMATICALLY INCREASE THE HOUSEHOLD NUMBER BY 1 $>HHnum-ck2< [store <0> in index] [NIF lk-hhnum eq <1> then] [ELSE] [convert HHNUM character to index integer] [add <1> to index] AUTOMATICALLY INCREASE THE HOUSEHOLD NUMBER BY ONE. [convert index integer to HHNUM character] [store <1> in lk-hhnum] [ENDIF] $end ------------------------------------------------------------------------------- $>BCHECK< [If TYPBER is <1> then goto vradd2] [goto ABMAIL-A] $end ---------------------------------------------------------------------- $>vradd2< [store <3> in wheredex] [if wheredex gt fardex then store wheredex in fardex] [store <0> in ADDCHG] [NIF MISFLG is <1> OR MISFLG is <5> then] [store < > in temptext] [store < > in temp2] [store <3> in xbad(1)] [store <4> in xbad(2)] [ELSEIF INTTYP eq <1> then] [store <{3} Incorrect address previously recorded> in temptext] [store < > in temp2] [store <0> in xbad(1)] [store <4> in xbad(2)] [ELSE] [store <{3} Incorrect address previously recorded> in temptext] [store <{4} Moved, new address> in temp2] [store <0> in xbad(1)] [store <0> in xbad(2)] [ENDIF] [store in temp3] [If curralt eq <1> then store <¨Cu l es su direcci¢n exacta?> in temp3] [store <0> in index] [NIF MISFLG isnt <1> AND INTTYP eq <2> then] [if REPLCE nq <1> then store <1> in index] [ENDIF] [NIF index eq <1> AND curralt nq <1> then] [store in temp3] [ELSEIF index eq <1> then] [store <¨Sigue usted viviendo en la direcci¢n:> in temp3] [ENDIF] [store < > in temp4] [NIF MISFLG isnt <1> AND REPLCE nq <1> then] [If INTTYP eq <1> then store <**DO NOT ASK -- MARK AS APPROPRIATE**> in temp4] [ENDIF] [NIF MISFLG is <5> AND curralt nq <1> then] [store in temp3] [ELSEIF MISFLG is <5> then] [store <¨Cu l es su direcci¢n exacta?> in temp3] [ENDIF] $display >vradd2< [fill temp4] [fill temp3] [fill/l HADDR1] [fill/l HADDR2] [fill HADDCT], [fill HADDST] [fill HADDZP] <1> SAME address [if MISFLG is <1> then goto mail-ck2] [if replce eq <1> then goto mail-ck2] [goto CHNGPH2] <2> address has changed. [goto nwadd2] [fill temptext] [fill temp2] [blind] Refused [goto refset2] <3> Incorrect address previously recorded [goto nwadd2] <4> Moved, new address [store <202> in outcome] [if marktwo eq <02> then store <204> in outcome] [if marktwo eq <05> then store <205> in outcome] [if marktwo eq <06> then store <205> in outcome] [If BREPLC is <2> then store <1> in REPFLG] [goto thank2] ===>_ $d [alt 1] >vradd2< [fill temp4] [fill temp3] [fill/l HADDR1] [fill/l HADDR2] [fill HADDCT], [fill HADDST] [fill HADDZP] <1> SAME address [if MISFLG is <1> then goto mail-ck2] [if replce eq <1> then goto mail-ck2] [goto CHNGPH2] <2> address has changed. [goto nwadd2] [fill temptext] [fill temp2] [blind] Refused [goto refset2] <3> Incorrect address previously recorded [goto nwadd2] <4> Moved, new address [store <202> in outcome] [if marktwo eq <02> then store <204> in outcome] [if marktwo eq <05> then store <205> in outcome] [if marktwo eq <06> then store <205> in outcome] [If BREPLC is <2> then store <1> in REPFLG] [goto thank2] ===>_ $edit [notequal xbad(1)] [notequal xbad(2)] $end ------------------------------------------------------------------------------- $>newadr2< [multiple nwadd1 nwadd2 nwct2 newst2 nwzp2] [store <1> in ADDCHG] $itemtable >newadr2< ENTER CHANGE OR FOR SAME OLD ADDRESS: [fill HADDR1] SAME AS OLD ===>______________________________________________________ OLD ADDRESS: [fill HADDR2] SAME AS OLD ===>______________________________________________________ OLD CITY: [fill HADDCT] SAME AS OLD ===>______________________ OLD STATE: [fill HADDST] SAME AS OLD Help ===>__ OLD ZIP: [fill HADDZP] SAME AS OLD ===>_____ $end ------------------------------------------------------------------------------- $>nwadd1< [within newadr2] $display [none] SAME [if HADDR1 is < > then referto ref-not] ===>____________________________________ $edit [anychar] $end $>nwadd2< [within newadr2] [if nwadd1 isnt then store nwadd1 in HADDR1] $display [none] SAME [if HADDR2 is < > then referto ref-not] ===>____________________________________ $edit [anything] $end $>nwct2< [within newadr2] [if nwadd2 isnt then store nwadd2 in HADDR2] $display [none] SAME [if HADDCT is < > then referto ref-not] ===>______________________ $edit [anychar] $end $>newSt2< [within newadr2] [if nwct2 isnt then store nwct2 in HADDCT] $display [none] SAME [if HADDST is < > then referto ref-not] [referto state-ref] ===>__ $edit [precodes] $end $>nwzp2< [within newadr2] [if newst2 isnt then store newst2 in HADDST] $display [none] SAME [if HADDZP is < > then referto ref-not] ===>_____ $edit [numeric] $end -------------------------------------------------------------------------------- $>newcityx2< [if nwzp2 isnt then store nwzp2 in HADDZP] $end ------------------------------------------------------------------------------- $>CHNGPH2< ADDED AUG 94 $display >CHNGPH2< *** DO NOT ASK *** Do you need to change the current phone number? <1> Yes [goto NEWPH2] <2> No [goto mail-ck2] ===>_ $end ---------------------------------------------------------------------- $>newph2< [multiple newph2ar newph2num newph2ext] ADDED AUG 94 [store <1000000> in xbad(1)] [store <100> in xbad(2)] $itemtable >newph2< What is the new telephone number where you would like to be called? ENTER FOR NONE OR DON'T KNOW Area Code:==>___ New Number ===>___-____ EXT: ===>____ ENTER FOR SAME FOR NONE $end --------------------------------------------------------------------- $>newph2ar< [within newph2] $display [none] Same [if phonenum(2:4) is < > then referto ref-not] [goto mail-ck2] ===>___ $edit [notless xbad(2)] [numeric] $end $>newph2num< [within newph2] $display [none] $edit [notless xbad(1)] [numeric] $end $>newph2ext< [within newph2] $display [none] None ===>____ [goto newph2-st] $edit [numeric] $end --------------------------------------------------------------------- $>newph2-st< [if newph2ar isnt then store newph2ar in phonenum(2:4)] [store newph2num in phonenum(5:11)] [if newph2ext isnt then store newph2ext in EXT] [if newph2ext is then store < > in EXT] $end ---------------------------------------------------------------------- COMMENT: MAILING ADDRESS IS ONLY ASKED FOR MONTH-IN-SAMPLE 1 ,5, REPLACEMENT HOUSEHOLDS OR IF THE ADDRESS HAS CHANGED, ALL OTHERS GOTO INTRO-C $>mail-ck2< [store <3> in wheredex] [if wheredex gt fardex then store wheredex in fardex] [NIF MISFLG is <1> OR MISFLG is <5> then] [goto maila2] [ELSEIF REPLCE eq <1> OR ADDCHG eq <1> then] [goto maila2] [ENDIF] [goto pre-cc8] $end ------------------------------------------------------------------------------- $>maila2< $display >maila2< Is this your mailing address? [fill/l HADDR1] [fill/l HADDR2] [fill HADDCT], [fill HADDST] [fill HADDZP] <1> Yes [store <0> in MAILCH] [goto pre-cc8] <2> No [store <1> in MAILCH] ===>_ $d [alt 1] >maila2< ¨Es ‚sta su direcci¢n de correos? [fill/l HADDR1] [fill/l HADDR2] [fill HADDCT], [fill HADDST] [fill HADDZP] <1> Yes [store <0> in MAILCH] [goto pre-cc8] <2> No [store <1> in MAILCH] ===>_ $end ------------------------------------------------------------------------------- $>mailadd2< [multiple nmadd2 nmct2 nmst2 nmzip2] $itemtable >mailadd2< What is your mailing address? ENTER CHANGE OR FOR SAME SAME AS OLD ADDRESS: [fill HADDR1] ===>______________________________________________________ CITY: [fill HADDCT] SAME AS OLD ===>______________________ STATE: [fill HADDST] SAME AS OLD Help ===>__ ZIP: [fill HADDZP] SAME AS OLD ===>_____ $d [alt 1] >mailaddr< ¨Cu l es su direcci¢n de correos? ENTER CHANGE OR FOR SAME SAME AS OLD ADDRESS: [fill HADDR1] ===>______________________________________________________ CITY: [fill HADDCT] SAME AS OLD ===>______________________ STATE: [fill HADDST] SAME AS OLD Help ===>__ ZIP: [fill HADDZP] SAME AS OLD ===>_____ $end ------------------------------------------------------------------------------- $>nmadd2< [within mailadd2] $display [none] SAME [if HADDR1 is < > then referto ref-not] ===>____________________ $edit [anychar] $end $>nmct2< [within mailadd2] [store nmadd2 in MADDR] [If nmadd2 is then store HADDR1 in MADDR] $display [none] SAME [if HADDCT is < > then referto ref-not] ===>_______________ $edit [anychar] $end $>nmst2< [within mailadd2] [store nmct2 in MADDCT] [if nmct2 is then store HADDCT in MADDCT] $display [none] SAME [if HADDST is < > then referto ref-not] [referto state-ref] ===>__ $edit [precodes] $end $>nmzip2< [within mailadd2] [store nmst2 in MADDST] [if nmst2 is then store HADDST in MADDST] $display [none] SAME [if HADDZP is < > then referto ref-not] ===>_____ $edit [numeric] $end -------------------------------------------------------------------------------- $>aft-mail2< [store nmzip2 in MADDZP] [If nmzip2 is then store HADDZP in MADDZP] [goto pre-cc8] $end ------------------------------------------------------------------------------- COMMENT: SETS MARK DEPENDING ON IF THIS IS THE 1ST OR 2ND REFUSAL (COMES HERE IF THE RESPONDENT REFUSES AT INTRO-B) $>refset2< [store <202> in outcome] [if marktwo eq <02> then store <204> in outcome] [if marktwo eq <05> then store <205> in outcome] [if marktwo eq <06> then store <205> in outcome] [NIF mark le <9> then] [store <9> in mark] [ELSEIF mark eq <10> then] [store <15> in mark] [ELSEIF mark eq <16> OR MARK EQ <14> then] [store <15> in mark] [ENDIF] [goto helcom] $end ------------------------------------------------------------------------------ $>ABMAIL-A< ** MOVERS ** [if I-BLANK3 is <1> then goto checkout] [store <0> in index] [If onpath TYPB then store <1> in index] [IF HISFLG eq <1> then add <10> to index] [NIF TYPB is <1> AND index eq <11> then] [store <226> in outcome] [goto checkout] [ELSEIF TYPB is <2> AND index eq <11> then] [store <225> in outcome] [goto checkout] [ELSEIF TYPB is <3> AND index eq <11> then] [store <227> in outcome] [goto checkout] [ELSEIF TYPB is <4> AND index eq <11> then] [store <228> in outcome] [goto checkout] [ELSEIF TYPB is <5> AND index eq <11> then] [store <229> in outcome] [goto checkout] [ELSEIF TYPB is <6> AND index eq <11> then] [store <230> in outcome] [goto checkout] [ELSEIF TYPB is <7> AND index eq <11> then] [store <231> in outcome] [goto checkout] [ELSEIF TYPB is <8> AND index eq <11> then] [store <232> in outcome] [goto checkout] [ELSEIF TYPB is <9> AND index eq <11> then] [store <233> in outcome] [goto checkout] [ENDIF] [NIF MARHIS is <1> AND REPLCE eq <1> then] ** NEEDED FOR MARCH ** **S [goto checkout] [ELSEIF HISFLG eq <1> then] [goto checkout] [ENDIF] [NIF MISFLG is <1> AND TYPBER is <2> then] [If onpath TYPBER then goto ABMAIL] [ENDIF] [store <0> in index] [store <0> in index2] [convert MISFLG character to index integer] [NIF index ge <2> AND index le <8> then] [store <1> in index2] [ENDIF] [NIF TYPBER is <2> then] [if onpath TYPBER then add <10> to index2] [ENDIF] [NIF BREPLC is <1> then] [if onpath BREPLC then add <100> to index2] [ENDIF] [if index2 eq <111> then goto ABMAIL] [NIF NONTYP is <1> AND MISFLG is <1> then] [If onpath NONTYP then goto ABMAIL] [ELSEIF NONTYP is <1> AND MISFLG is <5> then] [If onpath NONTYP then goto ABMAIL] [ELSEIF NONTYP is <1> then] [If onpath NONTYP then goto NONTYP-c] [ENDIF] $end ------------------------------------------------------------------------------ $>ABMAIL< [multiple ABMADD1 ABMCITY ABMST ABMZIP] $itemtable >ABMAIL< What is the mailing address of this property? ENTER CHANGE OR FOR SAME ADDRESS: [fill HADDR1] ===>______________________________________________________ CITY: [fill HADDCT] SAME AS OLD ===>______________________ STATE: [fill HADDST] SAME AS OLD Help ===>__ ZIP: [fill HADDZP] SAME AS OLD ===>_____ $d [alt 1] >ABMAIL< ¨Cu l es la direcci¢n de correos de esta propiedad? ENTER CHANGE OR FOR SAME ADDRESS: [fill HADDR1] ===>______________________________________________________ CITY: [fill HADDCT] SAME AS OLD ===>______________________ STATE: [fill HADDST] SAME AS OLD Help ===>__ ZIP: [fill HADDZP] SAME AS OLD ===>_____ $end ------------------------------------------------------------------------------- $>ABMadd1< [within ABMAIL] $display [none] SAME [if HADDR1 is < > then referto ref-not] $edit [anychar] $end $>abmcity< [within ABMAIL] [store abmadd1 in MADDR] [If abmadd1 is then store HADDR1 in MADDR] $display [none] SAME [if HADDCT is < > then referto ref-not] ===>_______________________________ $edit [anychar] $end $>abmSt< [within ABMAIL] [store abmcity in MADDCT] [if abmcity is then store HADDCT in MADDCT] $display [none] SAME [if HADDST is < > then referto ref-not] [referto state-ref] ===>__ $end $>abmzip< [within ABMAIL] [store abmst in MADDST] [if abmst is then store HADDST in MADDST] $display [none] SAME [if HADDZP is < > then referto ref-not] ===>_____ $edit [numeric] $end -------------------------------------------------------------------------------- $>ABMAIL-C< [store abmzip in MADDZP] [If abmzip is then store HADDZP in MADDZP] [NIF TYPB is <8> then] [If onpath TYPB then goto pre-hvs] [ELSEIF TYPB is <7> then] [If onpath TYPB then goto aft-12] [ENDIF] [goto nontyp-c] $end ------------------------------------------------------------------------------ $>TYPC< ** MOVERS ** -modified screen ** SPD ** -modified screen again $display *** DO NOT F10 FROM THIS SCREEN *** >TYPC< ENTER TYPE C NONINTERVIEW <5> Merged with another SPD household[store <244> in outcome] <6> All sample persons deceased [store <245> in outcome] <7> All sample persons moved out of country [store <246> in outcome] <8> Living in Armed Forces [store <247> in outcome] <9> Other -specify [store <248> in outcome] [goto TYPCSP] ===>_ [goto NONTYP-C] $edit [precodes] $end -------------------------------------------------------------------------------- $>TYPCSP< $display >TYPCSP< Enter Other TYPE C Noninterview ===>____________________________________________ $edit [anychar] $end ------------------------------------------------------------------------------ $>NONTYP-C< ** MOVERS ** [if I-BLANK3 is <1> then goto checkout] [NIF I-AREAMH is <1> AND I-AREASP isnt <1> then] [goto PROPER] [ENDIF] [NIF MISFLG is <1> AND I-SEGTYP is <1> then] [If I-PAREA is <0> then goto STRBLT] [ELSEIF MISFLG is <1> AND I-SEGTYP is <1> then] [If I-PAREA is <0> then goto STRBLT] [ENDIF] [NIF MISCK is <1> OR MISCK is <5> then] [If I-SEGTYP is <1> then goto BUILD] [ENDIF] [goto pre-cc11] $end ----------------------------------------------------------------------------- $>TYPD< ** MOVERS ** This screen added for movers $display >TYPD< TYPE D NONINTERVIEW FOR MOVERS <1> Moved, address unknown [store <260> in OUTCOME] <2> Moved within U.S. but outside survey limits [store <261> in OUTCOME] <3> Moved with another SPD household [store <262> in OUTCOME] ===>_ [goto checkout] $end ----------------------------------------------------------------------------- $>pre-cc8< ** MOVERS ** [if I-BLANK3 is <1> then goto ckrp-rsp] [NIF REPLCE eq <1> then] [goto pre-tenure] CHANGED AUG 94 [ELSEIF MISFLG is <5> then] [goto pre-tenure] CHANGED AUG 94 [ELSEIF MISFLG isnt <1> then] [goto ckrp-rsp] [ENDIF] [If I-AREASP is <1> then goto pre-tenure] CHANGED AUG 94 [If I-AREAMH is <1> then goto PROPER] [NIF I-SEGTYP is <1> AND I-PAREA is <0> then] [goto STRBLT] [ELSEIF I-SEGTYP is <1> AND I-PAREA is <1> then] [goto BUILD-ck] [ENDIF] [goto pre-tenure] CHANGED AUG 94 $end ------------------------------------------------------------------------------- $>STRBLT< DELETE FILL, JUN 96 $display >STRBLT< When was this structure originally built? <1> Before 4-1-90 <2> After 4-1-90 (The case will be classified a Type C.) [store <246> in outcome] [goto PROPER] [blind] Don't know [store in YRBLT] [goto PROPER] ===>_ [store STRBLT in YRBLT] $d [alt 1] >STRBLT< ¨Cu ndo fue constru¡da esta estructura? <1> Antes de 4-1-90 <2> Despu‚s de 4-1-90 [store <246> in outcome] [goto PROPER] [blind] Don't know [store in YRBLT] [goto PROPER] ===>_ [store STRBLT in YRBLT] $end ----------------------------------------------------------------------------- $>BUILD-ck< [store <0> in jdate-i] [store <0> in mon-i] SETS CURRENT DATE [setdate jdate-i mon-i day-i year-i date-c wkday1-c wkday2-c] [NIF MARHIS is <1> then] ** NEEDED FOR MARCH ** **S [goto TENUR-scrn] [ENDIF] [NIF I-MULTUT is <1> OR I-MULTUT is <2> then] [If SEGTYP is <4> then goto pre-tenure] CHANGED AUG 94 [ENDIF] [NIF I-MULTUT is <0> OR I-MULTUT is < > then] [goto BUILD] [ENDIF] [NIF I-MULTUT is <1> OR I-MULTUT is <2> then] [goto FLOOR] [ENDIF] [goto pre-tenure] CHANGED AUG 94 $end ------------------------------------------------------------------------------- $>BUILD< $display >BUILD< Are there any occupied or vacant living quarters besides your own in this building? <1> Yes <2> No [goto FLOOR-ck] [blind] Don't know [goto FLOOR-ck] ===>_ $d [alt 1] >BUILD< Sin contar la suya, ¨hay alguna otra unidad de vivienda, ocupada o desocupada, en este edificio? <1> S¡ <2> No [goto FLOOR-ck] [blind] Don't know [goto FLOOR-ck] ===>_ $end ------------------------------------------------------------------------------- $>pre-tablex< [If SEGTYP is <3> then goto FLOOR-ck] $end ---------------------------------------------------------------------- $>Tablex< $display >Tablex< Complete TABLE X in the job aid manual to determine if an extra unit exists. Then continue with this interview. ENTER

TO PROCEED ===>_ $end ----------------------------------------------------------------------------- $>FLOOR-ck< [If I-MULTUT is <0> then goto PROPER] $end ------------------------------------------------------------------------------- $>FLOOR< $display >FLOOR< Are there any occupied or vacant living quarters besides your own on this floor? <1> Yes <2> No [blind] Don't know ===>_ $d [alt 1] >FLOOR< Sin contar la suya, ¨hay alguna otra unidad de vivienda, ocupada o desocupada, en este piso? <1> S¡ <2> No [blind] Don't know ===>_ $end -------------------------------------------------------------------------------- $>PROPER< [store I-TENURE in TENURE] CHANGED AUG 94 $display >PROPER< Is there any other building on this property for people to live in - either occupied or vacant? <1> Yes <2> No [If onpath NONTYP then goto pre-cc11] [goto pre-tenure] [blind] Don't know [If onpath NONTYP then goto pre-cc11] [goto pre-tenure] ===>_ $d [alt 1] >PROPER< ¨Hay alg£n otro edificio en esta propiedad, ya sea ocupado o desocupado, que se utilice para viviendas? <1> S¡ <2> No [If onpath NONTYP then goto pre-cc11] [goto pre-tenure] [blind] Don't know [If onpath NONTYP then goto pre-cc11] [goto pre-tenure] ===>_ $end ------------------------------------------------------------------------------- $>pretable-x< [NIF SEGTYP is <3> then] [If onpath NONTYP then goto pre-cc11] [ENDIF] [If SEGTYP is <3> then goto pre-tenure] CHANGED AUG 94 $end ---------------------------------------------------------------------- $>Table-x< $display >Table-x< Complete TABLE X in the job aid manual to determine if an extra unit exists. Then continue with this interview. ENTER

TO PROCEED ===>_ [If onpath NONTYP then goto pre-cc11] $end ----------------------------------------------------------------------------- $>pre-tenure< ADDED AUG 94 [NIF NONTYP is <3> then] [if onpath NONTYP then goto pre-cc11] [ENDIF] $end ---------------------------------------------------------------------- $>TENUR-scrn< $display >TENUR-scrn< Are your living quarters... READ ANSWER CATEGORIES <1> Owned or being bought by you or someone in your household? <2> Rented for cash? <3> Occupied without payment of cash rent? [blind] Don't know ===>_ [store TENUR-scrn in TENURE] $d [alt 1] >TENUR-scrn< Su vivienda... READ ANSWER CATEGORIES <1> ¨La compr¢, o la est  comprando, usted o alguien en su hogar? <2> ¨Se la alquilan/rentan a usted, o a alguien en su hogar, por dinero al contado (cash)? <3> ¨La ocupa usted sin pagar ning£n dinero por el alquiler/renta? [blind] Don't know ===>_ [store TENUR-scrn in TENURE] $end ------------------------------------------------------------------------------ IF CODE EQUALS URBAN GOTO ACCES-scr IF CODE EQUALS RURAL AND 85-88 GOTO FARM-c IF CODE EQUALS RURAL AND SPECIAL PLACE GOTO 12B $>pre-cc11< [store <0> in index] [If onpath NONTYP then store <1> in index] [NIf MISFLG is <5> AND index nq <1> then] [goto ckrp-rsp] [ENDIF] [IF I-LNDUSE is <1> then goto PRE-ACCESS] CHANGED AUG 94 [store <0> in index] [if I-SPCODE isnt < > then convert I-SPCODE character to index integer] [NIF index ge <85> AND index le <88> then] [if I-LNDUSE is <2> then goto FARM-C] [ENDIF] [NIF I-SPCODE is < > AND I-LNDUSE is <2> then] regular unit [goto FARM-C] [ENDIF] [goto PRE-ACCESS] CHANGED AUG 94 $end -------------------------------------------------------------------------------- $>FARM-C< [NIF TYPC is <5> then] [if onpath TYPC then goto aft-12] [ENDIF] $end ------------------------------------------------------------------------------ $>PRE-ACCESS< ADDED AUG 94 [store <0> in index] [NIF I-ACCESS isnt < > AND I-HOUSUT isnt < > then] [store <1> in index] [ENDIF] [NIF NONTYP is <1> then] [if onpath NONTYP then add <10> to index] [ENDIF] [NIF index eq <11> then] [store I-ACCESS in ACCESS] [if ACCESS isnt <1> then goto aft-12] [store I-HOUSUT in HOUSUT] [goto aft-12] [ENDIF] $end ---------------------------------------------------------------------- $>ACCES-scr< $display >ACCES-scr< *** DO NOT READ TO RESPONDENT *** Indicate if access to the household is: <1> Direct [store <1> in ACCESS] [goto LIVQRT] <2> Through another unit [store <2> in ACCESS] [blind] Don't know [store in ACCESS] ===>_ $end ------------------------------------------------------------------------------- $>MERGUA< [If notbacked then reset MERGUA] $display [no erase] >MERGUA< Is this a merged unit? <1> Merged [store <244> in outcome] [goto pre-hvs] <2> Not Merged [backto ACCES-scr] [blind] Don't know [goto LIVQRT] ===>_ $end ----------------------------------------------------------------------------- $>LIVQRT< ADDED STORE 7 in HOUSUT JAN 95 $display >LIVQRT< *** DO NOT READ TO RESPONDENT *** INTERVIEWER CHECK ITEM Enter type of Housing Unit. <1> House, apartment, flat <2> HU in nontransient hotel, motel, etc. <3> HU permanent in transient hotel, motel, etc. <4> HU in rooming house <5> Mobile home or trailer with no permanent room added <6> Mobile home or trailer with one or more permanent rooms added <7> HU not specified above [store <7> in HOUSUT] [goto LIVQSP] <0> Other Unit [goto OTHUNT] [blind] Don't know [goto aft-12] ===>_ [store LIVQRT in HOUSUT] [goto aft-12] $end ----------------------------------------------------------------------------- $>LIVQSP< $display >LIVQSP< ENTER OTHER TYPE OF UNIT ===>_____________________________________________ [goto aft-12] $edit [anychar] $end ------------------------------------------------------------------------------ $>OTHUNT< $display >OTHUNT< *** DO NOT READ TO RESPONDENT *** INTERVIEWER CHECK ITEM Enter type of Other Unit. <8> Quarters not HU in rooming or boarding house <9> Unit not permanent in transient hotel, motel, etc. <10> Unoccupied tent site or trailer site [store <231> in outcome] <11> Student quarters in college dormitory <12> OTHER unit not specified above [goto OTHUNS] ===>__ [store OTHUNT in HOUSUT] [goto aft-12] $end -------------------------------------------------------------------------------- $>OTHUNS< $display >OTHUNS< ENTER OTHER TYPE OF UNIT ===>_____________________________________________ $edit [anychar] $end ------------------------------------------------------------------------------ $>aft-12< [NIF MISFLG is <1> AND TYPBER is <2> then] ADDED 9/15/93 [If onpath TYPBER then goto SEASON] [ENDIF] [NIF MISFLG is <1> AND TYPBER is <1> then] [If onpath TYPBER then goto ckrp-rsp] [ENDIF] [store <0> in index] [store <0> in index2] [convert MISFLG character to index integer] [NIF index ge <2> AND index le <8> then] [store <1> in index2] [ENDIF] [NIF TYPBER is <2> then] [if onpath TYPBER then add <10> to index2] [ENDIF] [NIF BREPLC is <1> then] [if onpath BREPLC then add <100> to index2] [ENDIF] [if index2 eq <111> then goto SEASON] [store <0> in index] [store <0> in index2] [convert MISFLG character to index integer] [NIF index ge <2> AND index le <8> then] [store <1> in index2] [ENDIF] [NIF TYPBER is <1> then] [if onpath TYPBER then add <10> to index2] [ENDIF] [if onpath BREPLC then add <100> to index2] [if index2 eq <111> then goto ckrp-rsp] - END ADD - [NIF TYPC is <5> then] [If onpath TYPC then store <2> in ACCESS] [If onpath TYPC then store <1> in MERGUA] [If onpath TYPC then goto pre-hvs] [ENDIF] [NIF TYPB is <1> OR TYPB is <3> then] [If onpath TYPB then goto SEASON] [ELSEIF TYPB is <2> then] [If onpath TYPB then goto SEASON] [ELSEIF TYPB is <7> then] [If onpath TYPB then store <10> in HOUSUT] [If onpath TYPB then store <1> in ACCESS] [If onpath TYPB then goto pre-hvs] [ENDIF] [IF onpath TYPEA then goto checkout] [If onpath NONTYP then goto pre-hvs] [If outcome eq <246> then goto checkout] [goto ckrp-rsp] $end ------------------------------------------------------------------------------ $>SEASON< $display >SEASON< READ IF NECESSARY: This unit is intended for occupancy: <1> Year round [goto pre-hvs] <2> By migratory workers <3> Seasonally ===>_ $d [alt 1] >SEASON< READ IF NECESSARY: Esta unidad de vivienda es para ocuparla: <1> Todo el a¤o [goto pre-hvs] <2> Trabajadores migrantes <3> Por temporadas ===>_ $end ----------------------------------------------------------------------------- $>SEASON-ck< [store <0> in index] [If onpath LIVQRT then convert LIVQRT character to index integer] [store <0> in index2] [NIF TYPB is <2> then] [If onpath TYPB then store <1> in index2] [ENDIF] [NIF TYPBER is <2> then] [If onpath TYPBER then store <10> in index2] [ENDIF] [NIF index ge <1> AND index le <7> then] [goto INTOCC] [ELSEIF index2 eq <11> OR outcome eq <225> then] [goto BCINFO] [ELSE] [goto pre-hvs] [ENDIF] $end ------------------------------------------------------------------------------ $>INTOCC< [store <0> in index] [NIF TYPB is <2> then] [If onpath TYPB then store <1> in index] [ENDIF] [NIF TYPBER is <2> then] [If onpath TYPBER then store <10> in index] [ENDIF] [If outcome eq <225> then store <11> in index] $display >INTOCC< READ IF NECESSARY: This unit is intended for occupancy: <1> Summers only <2> Winters only <3> Other - specify [goto IOCCSP] ===>_ [If index eq <11> then goto BCINFO] [goto pre-hvs] $d [alt 1] >INTOCC< READ IF NECESSARY: Esat unidad de vivienda es para ocuparla: <1> Veranos solamente <2> Inviernos solamente <3> Otros per¡odos de tiempo - especifique [goto IOCCSP] ===>_ [If index eq <11> then goto BCINFO] [goto pre-hvs] $end ------------------------------------------------------------------------------ $>IOCCSP< $display >IOCCSP< ENTER OTHER TYPE OF OCCUPANCY ===>_______________________________________________ [If index eq <11> then goto BCINFO] $edit [anychar] $end ----------------------------------------------------------------------------- $>Pre-HVS< [NIF MARHIS is <1> AND TYPB is <1> then] ** NEEDED FOR MARCH ** **S [If onpath TYPB then goto BCINFO] [ELSEIF MARHIS is <1> AND TYPB is <2> then] [If onpath TYPB then goto BCINFO] [ENDIF] [store <0> in index] [store <0> in index2] [if onpath LIVQRT then convert LIVQRT character to index integer] [NIF SEASON is <1> then] [If onpath SEASON then store <1> in index2] [ENDIF] [NIF index ge <1> AND index le <7> then] [add <10> to index2] [ENDIF] [If index2 eq <11> then goto PRE-HVSC] [goto BCINFO] $end ---------------------------------------------------------------------------- $>pre-HVSC< [If I-MARHIS is <1> then goto BCINFO] ADDED 2/4/94 for march interviewing [NIF I-HVSC is < > OR I-HVSC is then] [goto HVSOBS] [ELSEIF I-HVSC is then] [goto HVSOBS] [ENDIF] [store I-HVSC in HVSC] [goto PRE-HVSYR] $end ---------------------------------------------------------------------- $>HVSOBS< ADDED IN MARCH $display >HVSOBS< *** DO NOT READ TO RESPONDENT *** IS THE HVS INTERVIEW BEING COMPLETED BY OBSERVATION? <1> Yes [goto HVSPV] <2> No [goto HVSC] ===>_ $end ---------------------------------------------------------------------- $>HVSPV< ADDED IN MARCH $display >HVSPV< *** THE HVS INTERVIEW REQUIRES A KNOWLEDGEABLE RESPONDENT UNLESS THIS IS A LAST RESORT *** Press F10 if this is NOT a last resort. (Find a knowledgeable HVS respondent to complete the HVS interview.) Enter

to proceed, only if this is a last resort interview ===>_ $end ---------------------------------------------------------------------- $>HVSC< $display >HVSC< DO NOT ASK IS THIS HOUSING UNIT ON A PLACE OF <1> Less than 10 acres <2> 10 acres or more [blind] Don't know Refused ===>_ $edit [precodes] $end ------------------------------------------------------------------------------- $>pre-HVSYR< [NIF I-HVSYR is < > OR I-HVSYR is then] [goto HVSYR] [ELSEIF I-HVSYR is then] [goto HVSYR] [ENDIF] [store I-HVSYR in HVSYR] [goto PRE-HVSNUM] $end ---------------------------------------------------------------------- $>HVSYR< [store <1> in HVSFLG] $display >HVSYR< In what year was this structure built? <1> 4/1/90 or later <2> 1985 to 3/31/90 <3> 1980 to 1984 <4> 1970 to 1979 <5> 1960 to 1969 <6> 1950 to 1959 <7> 1940 to 1949 <8> 1939 or earlier [blind] Don't know Refused ===>_ $edit [precodes] $end ------------------------------------------------------------------------------- $>pre-HVSNUM< [NIF I-HVSNUM is < > OR I-HVSNUM is then] [goto HVSNUM] [ELSEIF I-HVSNUM is then] [goto HVSNUM] [ENDIF] [store I-HVSNUM in HVSNUM] [goto PRE-HVSRM] $end ---------------------------------------------------------------------- $>HVSNUM< $display >HVSNUM< How many housing units are in this structure? DO NOT ASK COUNT OCCUPIED AND VACANT <1> 1 unit <2> 2 units <3> 3-4 units <4> 5-9 units <5> 10 or more units [blind] Don't know Refused ===>_ $edit [precodes] $end ------------------------------------------------------------------------------- $>pre-HVSRM< [NIF I-HVSRM is < > OR I-HVSRM is then] [goto HVSRM] [ELSEIF I-HVSRM is then] [goto HVSRM] [ENDIF] [store I-HVSRM in HVSRM] [goto PRE-HVSBD] $end ---------------------------------------------------------------------- $>HVSRM< $display >HVSRM< How many rooms are in this unit? DO NOT ASK COUNT THE KITCHEN AND NOT THE BATHROOM <1> 1 room <2> 2 rooms <3> 3 rooms <4> 4 rooms <5> 5 rooms <6> 6 rooms <7> 7 rooms <8> 8 or more rooms [blind] Don't know Refused ===>_ $edit [precodes] $end ------------------------------------------------------------------------------- $>pre-HVSBD< [NIF I-HVSBD is < > OR I-HVSBD is then] [goto HVSBD] [ELSEIF I-HVSBD is then] [goto HVSBD] [ENDIF] [store I-HVSBD in HVSBD] [goto PRE-HVSPLB] $end ---------------------------------------------------------------------- $>HVSBD< $display >HVSBD< How many bedrooms are in this unit? <1> 1 Bedroom <2> 2 Bedrooms <3> 3 Bedrooms <4> 4 or more bedrooms <5> None [blind] Don't know Refused ===>_ $edit [precodes] $end ------------------------------------------------------------------------------- $>pre-HVSPLB< [NIF I-HVSPLB is < > OR I-HVSPLB is then] [goto HVSPLB] [ELSEIF I-HVSPLB is then] [goto HVSPLB] [ENDIF] [store I-HVSPLB in HVSPLB] [goto PRE-HVSKIT] $end ---------------------------------------------------------------------- $>HVSPLB< $display >HVSPLB< Does this unit have COMPLETE plumbing facilities; that is, 1) hot and cold piped water, 2) a flush toilet, and 3) a bathtub or shower? <1> Yes, have all three facilities <2> No [blind] Don't know Refused ===>_ $edit [precodes] $end ------------------------------------------------------------------------------- $>pre-HVSKIT< [NIF I-HVSKIT is < > OR I-HVSKIT is then] [goto HVSKIT] [ELSEIF I-HVSKIT is then] [goto HVSKIT] [ENDIF] [store I-HVSKIT in HVSKIT] [goto PRE-HVSBTH] $end ---------------------------------------------------------------------- $>HVSKIT< $display >HVSKIT< Does this unit have COMPLETE kitchen facilities; that is, 1) a sink with piped water, 2) a range or cookstove, and 3) a refrigerator? <1> Yes, have all three facilities <2> No [blind] Don't know Refused ===>_ $edit [precodes] $end ------------------------------------------------------------------------------- $>pre-HVSBTH< [NIF I-HVSBTH is < > OR I-HVSBTH is then] [goto HVSBTH] [ELSEIF I-HVSBTH is then] [goto HVSBTH] [ENDIF] [store I-HVSBTH in HVSBTH] [goto PRE-HVSAC] $end ---------------------------------------------------------------------- $>HVSBTH< $display >HVSBTH< How many bathrooms does this unit have? A complete bathroom is a room with flush toilet, bathtub or shower, and wash basin with piped water. A half bathroom has at least a flush toilet or bathtub or shower, but does not have all the facilities for a complete bathroom. <1> No bathroom, or only a half bathroom <2> 1 complete bathroom <3> 1 complete bathroom, plus half bath(s) <4> 2 or more complete bathrooms [blind] Don't know Refused ===>_ $edit [precodes] $end ------------------------------------------------------------------------------- $>pre-HVSAC< [NIF I-HVSAC is < > OR I-HVSAC is then] [goto HVSAC] [ELSEIF I-HVSAC is then] [goto HVSAC] [ENDIF] [store I-HVSAC in HVSAC] [goto HVSOCC] $end ---------------------------------------------------------------------- $>HVSAC< $display >HVSAC< Does this unit have air conditioning? <1> Yes, a central air-conditioning system <2> Yes, 1 individual room unit <3> Yes, 2 or more individual room units <4> No [blind] Don't know Refused ===>_ $edit [precodes] $end ------------------------------------------------------------------------------- $>HVSOCC< $display >HVSOCC< Has this unit ever been occupied? <1> Yes <2> No [blind] Don't know Refused ===>_ $edit [precodes] $end ------------------------------------------------------------------------------- $>HVSVAC< $display >HVSVAC< How many months has this unit been vacant? <1> Up to 1 month <2> 1 up to 2 months <3> 2 up to 4 months <4> 4 up to 6 months <5> 6 up to 12 months <6> 1 year up to 2 years <7> 2 years or more [blind] Don't know Refused ===>_ $edit [precodes] $end ------------------------------------------------------------------------------- $>HVSSTA< $display >HVSSTA< Is this unit READ CATEGORIES <1> For rent <2> Rented, not occupied <3> For sale only--regular ownership <4> For sale only--condominium or cooperative ownership <5> Sold, not yet occupied <6> For occasional use <7> Occupied by person with usual home elsewhere <8> Other (specify) [goto HVSSTS] [blind] Don't know Refused ===>_ [goto HVSST-C] $edit [precodes] $end ------------------------------------------------------------------------------- $>HVSSTS< $display >HVSSTS< ENTER OTHER STATUS OF UNIT ===>___________________________________________________________ [goto BCINFO] $edit [anychar] $end ------------------------------------------------------------------------------- $>HVSST-C< [NIF HVSSTA is <1> OR HVSSTA is <2> then] [if onpath HVSSTA then goto HVSRNT] [ELSEIF HVSSTA is <3> OR HVSSTA is <4> then] [if onpath HVSSTA then goto HVSCOM] [ELSEIF HVSSTA is <5> then] [if onpath HVSSTA then goto HVSCOM] [ELSEIF HVSSTA is <6> OR HVSSTA is <7> then] [if onpath HVSSTA then goto BCINFO] [ENDIF] $end ------------------------------------------------------------------------------- $>HVSRNT< $display >HVSRNT< What is the monthly rent asked for this unit? <1> Less than $80 <12> $325 to $349 <2> $80 to $99 <13> $350 to $374 <3> $100 to $124 <14> $375 to $399 <4> $125 to $149 <15> $400 to $449 <5> $150 to $174 <16> $450 to $499 <6> $175 to $199 <17> $500 to $549 <7> $200 to $224 <18> $550 to $599 <8> $225 to $249 <19> $600 to $699 <9> $250 to $274 <20> $700 to $749 <10> $275 to $299 <21> $750 to $799 <11> $300 to $324 <22> $800 or more [blind] Don't know Refused ===>__ $edit [precodes] $end ------------------------------------------------------------------------------- $>HVSUTL< [multiple hvsut1 hvsut2 hvsut3 hvsut4] $itemtable >HVSUTL< In addition to rent, does renter pay for: Electricity? <1> Yes <2> No ===>_ Gas? <1> Yes <2> No ===>_ Water? <1> Yes <2> No ===>_ Oil, coal, wood, <1> Yes kerosene, etc.? <2> No ===>_ $end ------------------------------------------------------------------------------- COMMENT: Specifications for itemtable HVSUTL. $>HVSUT1< [within HVSUTL] $display [none] <1> Yes <2> No Don't know Refused $edit [precodes] $end $>HVSUT2< [within HVSUTL] $display [none] <1> Yes <2> No Don't know Refused $edit [precodes] $end $>HVSUT3< [within HVSUTL] $display [none] <1> Yes <2> No Don't know Refused $edit [precodes] $end $>HVSUT4< [within HVSUTL] $display [none] <1> Yes <2> No Don't know Refused ===>_ [goto BCINFO] $edit [precodes] $end ------------------------------------------------------------------------------- $>HVSCOM< $display >HVSCOM< Is any part of this property used as a commercial establishment, or a medical or dental office? <1> Yes <2> No [goto HVSPRC] [blind] Don't know Refused ===>_ [goto BCINFO] $edit [precodes] $end ------------------------------------------------------------------------------- $>HVSPRC< $display >HVSPRC< What is the sales price asked for this property? <1> Less than $10,000 <10> $50,000 to $59,999 <2> $10,000 to $12,499 <11> $60,000 to $74,999 <3> $12,500 to $14,999 <12> $75,000 to $99,999 <4> $15,000 to $19,999 <13> $100,000 to $124,999 <5> $20,000 to $24,999 <14> $125,000 to $149,999 <6> $25,000 to $29,999 <15> $150,000 to $199,999 <7> $30,000 to $34,999 <16> $200,000 to $249,999 <8> $35,000 to $39,999 <17> $250,000 to $299,999 <9> $40,000 to $49,999 <18> $300,000 or more [blind] Don't know Refused ===>__ $edit [precodes] $end ------------------------------------------------------------------------------- $>BCINFO< [multiple BCNAME BCTITL BCAREA BCNUM BCEXT BCOBSR] [store <100> in xbad(2)] [store <1000000> in xbad(1)] [store < > in temp4] [store < > in temp6] [store < > in temp7] [IF I-BCNUM isnt < > then combine <(> I-BCAREA <)> I-BCNUM(1:3) <-> I-BCNUM(4:7) into temp4] [IF I-BCEXT isnt < > then store I-BCEXT in temp7] [If I-BCOBSR is <1> then store in temp6] [If I-BCOBSR is <2> then store in temp6] $itemtable >BCINFO< ENTER FOR NONE ENTER FOR SAME NAME: [fill I-BCNAME] Name of contact person: ===>__________________________________________ TITLE: [fill I-BCTITL] Contact Person's title: ===>___________________________________________ PHONE NUMBER: [fill temp4] [fill temp7] Phone Number to contact: Area Code ===>___ Phone number ===>___-____ Extension ===>____ OBSERVATION: [fill temp6] Observation Only? <1> Yes <2> No ===>_ $end ------------------------------------------------------------------------------ $>BCNAME< [within BCINFO] $d [none] Same [If I-BCNAME is < > then referto ref-not] [store I-BCNAME in BCNAME] $edit [anychar] $end $>BCTITL< [within BCINFO] $d [none] Same [If I-BCTITL is < > then referto ref-not] [store I-BCTITL in BCTITL] $edit [anychar] $end $>BCAREA< [within BCINFO] $d [none] Same [If I-BCAREA is < > then referto ref-not] [If I-BCNUM is < > then referto ref-not] [store I-BCAREA in BCAREA] None [goto BCOBSR] Don't know [goto BCOBSR] Refused [goto BCOBSR] $edit [notless xbad(2)] [numeric] $end $>BCNUM< [within BCINFO] $d [none] Same [If I-BCNUM is < > then referto ref-not] [store I-BCNUM in BCNUM] None Refused DOn't know $edit [notless xbad(1)] [numeric] $end $>BCEXT< [within BCINFO] $d [none] Same [If I-BCEXT is < > then referto ref-not] [store I-BCEXT in BCEXT] None Refused Don't know $edit [numeric] $end $>BCOBSR< [within BCINFO] $d [none] Same [If I-BCOBSR is < > then referto ref-not] [store I-BCOBSR in BCOBSR] <1> Yes <2> No $end ---------------------------------------------------------------------------- $>BC-STORE< [store <0> in index] [If onpath TYPB then store <1> in index] [NIF index nq <1> then] [ELSEIF TYPB is <1> then] [store <226> in outcome] [ELSEIF TYPB is <2> then] [store <225> in outcome] [ELSEIF TYPB is <3> then] [store <227> in outcome] [ELSEIF TYPB is <4> then] [store <228> in outcome] [ELSEIF TYPB is <5> then] [store <229> in outcome] [ELSEIF TYPB is <6> then] [store <230> in outcome] [ELSEIF TYPB is <7> then] [store <231> in outcome] [ELSEIF TYPB is <8> then] [store <232> in outcome] [ELSEIF TYPB is <9> then] [store <233> in outcome] [ENDIF] [goto thank2] $end ******************************************************************************* **7A** CONTROL CARD CONTROL CARD FLOW ******************************************************************************** $>ckrp-rsp< [store <4> in wheredex] [if wheredex gt fardex then store wheredex in fardex] [if mark le <10> then store <10> in mark] **IF REPLACE IS 1 GOTO GET NAME AND BLANK ALL DEMOGRAPHICS [If REPLCE eq <1> then goto NOW-NAM] IF MONTH IN SAMPLE IS 5 AND THERE IS ALREADY A HOUSEHOLD ROSTER THEN GOTO CHECK TO MAKE SURE THAT THE HOUSEHOLD RESPONDENT IS ELIGIBLE [NIF MISCK is <5> AND name(1) isnt then] [goto OP-SHHR] [ENDIF] IF THIS IS A NEW CASE MIS IS 1 THEN COLLECT NAMES OF ALL HOUSEHOLD MEMBERS [IF MISFLG is <1> then goto NOW-NAM] [goto OP-SHHR] $end ------------------------------------------------------------------------------- COMMENT: IF THE HOUSEHOLD IS A REPLACEMENT HOUSEHOLD THEN WE STORE THE LINE NUMBERS OF THE ORIGINAL HOUSEHOLD INTO REPLNO AND THEN BLANK ALL THE DEMOGRAPHICS FOR THE ORIGINAL HOUSEHOLD $>NOW-NAM< [do index <1> <16>] [NIF REPLCE eq <1> AND name(index) isnt < > then] [if name(index) isnt then store index in REPLNO(index)] [ENDIF] [NIF REPLCE eq <1> then] [store < > in phonenum] [store < > in LINENO(index)] [store < > in Fname(index)] [store < > in Lname(index)] [store < > in name(index)] [store < > in sex(index)] [store < > in hhmem(index)] [store < > in AFNOW(index)] [store < > in AFWHEN(index)] [store < > in AFEVER(index)] [store < > in EDUCA(index)] [store < > in age(index)] [store < > in race(index)] [store < > in RRP(index)] [store < > in PARENT(index)] [store < > in SPOUSE(index)] [store < > in BIRTHM(index)] [store < > in BIRTHD(index)] [store < > in BIRTHY(index)] [store < > in MARITL(index)] [store < > in origin(index)] [store < > in SSN(index)] [store <0> in AGERNG(index)] [store < > in I-MLR(index)] [store < > in I-IO1NAM(index)] [store < > in I-IO1IND(index)] [store < > in I-IO1MFG(index)] [store < > in I-IO1OCC(index)] [store < > in I-IO1DT1(index)] [store < > in I-IO1DT2(index)] [store < > in I-IO1COW(index)] [store < > in I-IO1ICD(index)] [store < > in I-IO1OCD(index)] [store < > in I-IO1ICR(index)] [store < > in I-IO1OCR(index)] [store < > in I-LAYDUR(index)] [store < > in I-LAYFT(index)] [store < > in I-LK1(index)] [store < > in I-LK2(index)] [store < > in I-LKLW(index)] [store < > in I-LKM(index)] [store < > in I-LKY(index)] [store < > in I-LKDUR(index)] [store < > in I-LKFT(index)] [store <0> in DELDEC(index)] [store < > in SUBFAM(index)] [store < > in NATVTY(index)] [store < > in MNTVTY(index)] [store < > in FNTVTY(index)] [store < > in CITIZN(index)] [store < > in I-CITYA(index)] [store < > in I-CITYB(index)] ADDED APR 96 [store < > in CITYPA(index)] [store < > in CITYPB(index)] CHANGED APR 96 [store < > in INUSYR(index)] [store <0> in RESPLI] [store < > in RESPNA] [ENDIF] [end do] [store in name(1)] [store <11> in pelig(1)] [store <9> in DELDEC(1)] [do index2 <2> <16>] [store <12> in pelig(index2)] [end do] [store <0> in NAM_R_P] $end $ROPEN>NAM< $>AFT-NAM< [goto NROS2Bck] $end ------------------------------------------------------------------------------- BEGINNING OF THE NAMES ROSTER USED FOR NEW CASES (MIS IS 1) TO COLLECT ALL THE NAMES OF HOUSEHOLD MEMBERS. (RETURNING CASES WOULD NOT GO TO THIS ROSTER.) $RBEGIN>NAM< [maxelt 16] ------------------------------------------------------------------------------- $>prerpnames< [if R_P eq <1> then store <0> in NROSIZ] [if R_P gt <1> then goto NEXTNM] $end ------------------------------------------------------------------------------- THIS ITEM IS ONLY USED TO COLLECT THE REFERNECE PERSONS NAME. ALWAYS WANT THE REFERENCE PERSON TO BE THE FIRST PERSON. $>RPNAMES< [multiple fnam-scrn lnam-scrn] $itemtable >RPNAMES< What are the names of all persons living or staying here? Start with the name of the person or one of the persons who owns/rents this home. ENTER NAME FIRST NAME ===>________________ LAST NAME ===>________________ $d [alt 1] >RPNAMES< ¨Cu les son los nombres de todas las personas que viven o se est n quedando aqu¡? Empiece por el nombre de la persona, o de las personas, que (sea due¤o/alquile) esta propiedad. ENTER NAME FIRST NAME ===>________________ LAST NAME ===>________________ $end -------------------------------------------------------------------------------- $>fnam-scrn< [within RPNAMES] [if namck(R_P) is <2> then reset fnam-scrn] [if namck(R_P) is <1> then reset fnam-scrn] $d [none] [goto namck] [goto namck] $edit [alpha] $end $>lnam-scrn< [within RPNAMES] $d [none] ===>________ [goto str-nam] $edit [anything] $end ------------------------------------------------------------------------------- $>str-nam< [store <0> in index] [If onpath fnam-scrn:R_P then store <1> in index] [NIF index eq <1> then] [store fnam-scrn(R_P) in Fname(R_P)] [store lnam-scrn(R_P) in Lname(R_P)] [store Lname(R_P) in HHname] [convert R_P integer to LINENO(R_P) character] [store R_P in Refper] [store R_P in NROSIZ] [store < > in DELDEC(R_P)] [store <0> in pelig(R_P)] [store <1> in NWPRFG(R_P)] [ENDIF] [NIF Lname(R_P) is < > then] [store Fname(R_P) in name(R_P)] [ELSE] [combine Fname(R_P) < > Lname(R_P) into name(R_P)] [ENDIF] [goto P-SMEM] $end --------------------------------------------------------------------------- THIS ITEM IS USED TO COLLECT ALL THE OTHER NAMES OF HOUSEHOLD MEMBERS CHANGED 0 to 99 in AUG 94 ADDED "S" in AUG 94 $>NEXTNM< [multiple fnam2-scrn lnam2-scrn] [NIF HHRESP(R_P) is then] [If onpath HHRESP:R_P then reset fnam2-scrn] [ENDIF] [store R_P in index] [subtract <1> from index] [store LNAME(index) in temp2] $itemtable >NEXTNM< What is the name of the next person living or staying here? REFERENCE PERSON: [fill name(1)] ENTER NAME <99> No other person there Show household composition FIRST NAME ===>________________ If last name is [fill temp2] LAST NAME ===>________________ $d [alt 1] >NEXTNM< ¨Cu l es el nombre de la siguiente persona que vive o se est  quedando aqu¡? REFERENCE PERSON: [fill name(1)] ENTER NAME <99> No other person there Show household composition FIRST NAME ===>________________ If last name is [fill temp2] LAST NAME ===>________________ $end -------------------------------------------------------------------------------- $>fnam2-scrn< [within NEXTNM] [if namck(R_P) is <1> then reset fnam2-scrn] [if namck(R_P) is <2> then reset fnam2-scrn] $d [none] [goto namck] [goto namck] <99> [goto str-nam3] [referto HH-comp] ===>______________ $edit [alpha] $end $>lnam2-scrn< [within NEXTNM] $d [none] ===>______ [goto str-nam2] $edit [anychar] $end ------------------------------------------------------------------------------- SCREEN IS USED BECAUSE WE DO NOT WANT R FOR A FIRST NAME. $>namck< [indirect] [reset namck] $d >namck< IF THE PERSON HAS REFUSED TO GIVE HIS/HER FIRST NAME THEN USE THE F1 KEY TO BACK UP AND ENTER SOME NAME. IF THE PERSON HAS REFUSED THE INTERVIEW THEN USE THE F10 KEY TO SET UP CALLBACK/REFUSAL ===>_ $edit [precodes] $end ------------------------------------------------------------------------------- COMMENT: THIS INSTRUCTIONAL ITEM STORES THE NAMES OF THE PERSONS IN THE HOUSEHOLD INTO NAME. NROSIZ (NUMBER OF PEOPLE IN HH) IS INCREMENTED EACH TIME THE NAME IS STORED.) $>Str-nam2< [store <0> in index] [If onpath fnam2-scrn:R_P then store <1> in index] [store R_P in index2] [subtract <1> from index2] [NIF index eq <1> AND fnam2-scrn(R_P) isnt <99> then] [store fnam2-scrn(R_P) in Fname(R_P)] [If lnam2-scrn(R_P) isnt then store lnam2-scrn(R_P) in Lname(R_P)] [If lnam2-scrn(R_P) is then store LNAME(index2) in Lname(R_P)] [convert R_P integer to LINENO(R_P) character] [store < > in DELDEC(R_P)] [store <0> in pelig(R_P)] [store <1> in NWPRFG(R_P)] [ENDIF] [NIF Lname(R_P) is < > then] [store Fname(R_P) in name(R_P)] [ELSE] [combine Fname(R_P) < > Lname(R_P) into name(R_P)] [ENDIF] [store R_P in NROSIZ] [goto P-SMEM] $end ------------------------------------------------------------------------------ COMMENT: COMES HERE ONLY WHEN '0' FOR NO MORE PERSONS IS ENTERED IN NEXTNM $>str-nam3< [store <0> in index] [If onpath fnam2-scrn:R_P then store <1> in index] [store R_P in NROSIZ] [store R_P in HALNO-i] [NIF index eq <1> AND fnam2-scrn(R_P) is <99> then] [subtract <1> from NROSIZ] [subtract <1> from HALNO-i] [store < > in Fname(R_P)] [store < > in Lname(R_P)] [store in name(R_P)] [store <9> in DELDEC(R_P)] [store < > in LINENO(R_P)] [store <11> in pelig(R_P)] [ENDIF] [store <0> in index] [tablook pelig <11> index] [if index eq <0> then store <16> in index] CHECKS FOR 16 PERSON HH [add <1> to index] FIRST POSITION AFTER EOL [do index2 index <16>] [store <12> in pelig(index2)] [end do] [store <0> in NUMHOU] [do index <1> NROSIZ] [if hhmem(index) is <1> then add <1> to NUMHOU] Number of hh members [end do] THE FOLLOWING CHECKS TO SEE IF THERE IS A SPOUSE OR A CHILD IN THE HOUSEHOLD IF SO IT WILL AUTOMATICALLY PLUG THE LINE NUMBER OF SPOUSE (SPOUSE) AND LINE NUMBER OF PARENT (PARENT). [store <0> in index2] [store <0> in index3] [do index <1> NROSIZ] [If RRP(index) is <3> then store <1> in index2] [If RRP(index) is <20> then store <1> in index2] ** RRP [If RRP(index) is <6> then store <1> in index3] [If RRP(index) is <24> then store <1> in index3] ** RRP [end do] [if index2 eq <0> then store <0> in SPOUSE(RefPer)] [if index3 eq <0> then store <0> in PARENT(RefPer)] [convert HALNO-i integer to HALNO character] [do index <1> NROSIZ] [store <1> in LFDEX(index)] THIS VARIABLE IS SET UP FOR PROCESSING [end do] [IF RESPLI eq <0> then goto HHRESP1] [roster exit] $end ------------------------------------------------------------------------------- $>P-SMEM< [store R_P in WHO] [store <0> in SMEM_R_P] $end $ROPEN>SMEM< ** ** $>PT-SMEM< IF PERSON IS NOT A HOUSEHOLD MEMBER THAN WE DO NOT COLLECT DEMOGRAPHICS [NIF hhmem(R_P) is <2> OR hhmem(R_P) is <3> then] [roster loop] [ENDIF] $end ------------------------------------------------------------------------------- $>P-SSEX< [store R_P in WHO] [store <0> in SSEX_R_P] $end $ROPEN>SSEX< **E** $>PT-SSEX< [IF R_P eq <16> then goto HHRESP1] 16 members, not at end of hhmem LT 16 members, not at end of hhmem [roster loop] $end ------------------------------------------------------------------------------- COMMENT: USED TO FIND OUT CURRENT RESPONDENT $>HHRESP1< [multiple HHRESP] [if HHRESP(R_P) is then reset HHRESP] [do index <1> <16>] [store < > in table(index)] [store < > in xbad(index)] [NIF LINENO(index) is < > then] [convert index integer to xbad(index) character] [store < > in table(index)(1:2)] [ENDIF] [end do] [do index <1> NROSIZ] [convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 gt <0> then] [convert index2 integer to table(index)(2:2) character] [ELSE] [convert index2 integer to table(index)(1:2) character] [ENDIF] [store name(index) in table(index)(5:39)] [end do] $itemtable >HHRESP< LN NAME [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] ASK IF NECESSARY: With whom am I speaking? ENTER LINE NUMBER or Person not on list - backup and add ===>__ $d [alt 1] >HHRESP< LN NAME [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] ASK IF NECESSARY: ¨Con qui‚n estoy hablando? ENTER LINE NUMBER or Person not on list - backup and add ===>__ $end ---------------------------------------------------------------------------- $>HHRESP< [within HHRESP1] $display [none] Person not on list - backup and add [backto NEXTNM:R_P] <1-16> $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end ------------------------------------------------------------------------------- COMMENT: THIS INSTRUCTIONAL ITEM STORES THE HHRESP IN respna AND THE LINE NUMBER IN RESPLI. $>Hhresp-set< [If onpath HHRESP:R_P then convert HHRESP(R_P) character to RESPLI integer] [if onpath HHRESP:R_P then store name(RESPLI) in respna] [roster exit] $end ------------------------------------------------------------------------------- $REND>NAM< =============================================================================== COMMENT: SINCE 16 IS THE MAX NUMBER OF PEOPLE IF 16 PEOPLE ARE ENTERED AND A RESPONDENT HAS BEEN CHOSEN THEN GOTO ITEM THAT ASKS IF THERE ARE ANYMORE PEOPLE $>NROS2Bck< [NIF RESPLI gt <0> AND NROSIZ eq <16> then] [goto NROS2B] HHresp chosen, 16 members, not end of hhmember [ENDIF] [goto MCHILD-1] $end ------------------------------------------------------------------------------- $>NROS2B< $d >NROS2B< ***16 PERSONS IN HOUSEHOLD ROSTER*** AT THIS POINT COUNT ADDITIONAL PEOPLE. YOU WILL INTERVIEW ONLY THOSE HOUSEHOLD MEMBERS 15 YEARS OLD OR OLDER WHO ARE LISTED. Are there any other persons 15 years old or older now living or staying there? (Who have not been listed.) Show household listing again [referto HH-Comp] <1> Yes [goto CNT2BG] <2> No ===>_ [goto MCHILD-1] $d [alt 1] >NROS2B< ***16 PERSONS IN HOUSEHOLD ROSTER*** AT THIS POINT COUNT ADDITIONAL PEOPLE. YOU WILL INTERVIEW ONLY THOSE HOUSEHOLD MEMBERS 15 YEARS OLD OR OLDER WHO ARE LISTED. ¨Hay alguna otra persona de 15 ¢ m s a¤os de edad que est‚ viviendo o qued ndose ah¡ ahora? (Que no est‚n anotados.) Show household listing again [referto HH-Comp] <1> Yes [goto CNT2BG] <2> No ===>_ [goto MCHILD-1] $end ------------------------------------------------------------------------------- COMMENT: COLLECTS THE NUMBER OF PEOPLE IN THE HOUSEHOLD PAST THE 16 MAXIMUM $>CNT2BG< $d >CNT2BG< How many others? ENTER NUMBER [blind] <1-25> Refused Don't know ===>__ [goto MCHILD-1] $d [alt 1] >CNT2BG< ¨Cu ntas otras personan hay? ENTER NUMBER [blind] <1-25> Refused Don't know ===>__ [goto MCHILD-1] $end ------------------------------------------------------------------------------- COMMENT: COMES HERE FOR RETURNING CASES TO MAKE SURE THE RESPONDENT IS ELIGIBLE $>OP-SHHR< [do index <1> NROSIZ] [store <1> in LFDEX(index)] THIS VARIABLE IS SET UP FOR PROCESSING [end do] [store <0> in SHHR_R_P] $end $ROPEN>SHHR< **I** $>CL-SHHR< ** MOVERS ** NOT SURE WHAT HAPENS FOR REFPER?? BUT SENDING CASE ON IT's way [if I-BLANK3 is <1> then goto CK-HHSIZE] IF ALL OF THE HOUSEHOLD MEMBERS ARE UNDER 15 (AGEFLG EQ 1) THEN GOTO CHANGE [if AGEFLG eq <1> then goto CHANGE] IF ALL OF THE HOUSEHOLD MEMBERS ARE URE (UREFLG EQ 1) THEN GOTO CHANGE [IF UREFLG eq <1> then goto CHANGE] IF NOT A NEW CASE AND HAVE A CURRENT RESPONDENT BUT REFPER IS 0 THEN NEED TO SELECT A REFERENCE PERSON (PERSON WHO OWNS OR RENTS THE HOME) [if RefPer eq <0> then goto OP-SREF] [goto CK-HHSIZE] $end ------------------------------------------------------------------------------- COMMENT: COMES HERE FOR RETURNING CASES TO MAKE SURE THE REFERENCE PERSON IS ELIGIBLE $>OP-SREF< [store <0> in SREF_R_P] $end $ROPEN>SREF< **K** $>CL-SREF< IF ALL OF THE HOUSEHOLD MEMBERS ARE URE (UREFLG EQ 1) THEN GOTO CHANGE [IF UREFLG eq <1> then goto CHANGE] $end ------------------------------------------------------------------------------- $>ck-hhsize< [if mark le <10> then store <10> in mark] ** MOVERS ** [if I-BLANK3 is <1> then goto ck-prlbfr] SKIP ALL DEMOS, etc ALL MONTH IN SAMPLE 5 CASES MUST GET ASKED THE STILL LIVING HERE QUESTION [If MISCK is <5> then goto STLLIV-1] IF ONLY ONE PERSON IN THE HOUSEHOLD THAN YOU DON'T NEED TO ASK IF HE STILL LIVES HERE. SO SKIPS OVER STLLIV. [if NUMHOU le <1> then goto NEWLIV-1] $end -------------------------------------------------------------------------------- COMMENT: STLLIV VERIFIES THAT EVERYONE STILL A MEMBER OF THE HOUSEHOLD (IT GIVES YOU A CHANCE TO DELETE PEOPLE.) NEWLIV ASKS IF ANYONE ELSE NEEDS TO BE ADDED $>STLLIV-1< [multiple STLLIV] [NIF STLLIV is

OR STLLIV is then] [reset STLLIV] [ENDIF] [do index <1> <16>] [store < > in table(index)] [store < > in xbad(index)] [NIF LINENO(index) is < > then] [convert index integer to xbad(index) character] [store < > in table(index)(3:4)] [ENDIF] [end do] [do index <1> NROSIZ] [if hhmem(index) is <1> then store in table(index)(1:1)] [store <0> in index2] [convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to table(index)(4:4) character] [ELSEIF index2 ge <10> then] [convert index2 integer to table(index)(3:4) character] [ENDIF] [NIF RESPLI eq index AND curralt nq <1> then] [store in table(index)(6:29)] [ELSEIF RESPLI eq index AND curralt eq <1> then] [store in table(index)(6:29)] [ELSE] [store name(index) in table(index)(6:29)] [ENDIF] [store < > in relation(index)] [store <0> in index3] [convert RRP(index) character to index3 integer] [NIF index3 nq <0> AND NEWRRP eq <0> then] ** RRP [store reltab(index3) in relation(index)] [ELSEIF index3 nq <0> AND NEWRRP eq <1> then] [store n-reltab(index3) in relation(index)] [ENDIF] [NIF hhmem(index) is <2> then] [store in relation(index)] [ELSEIF hhmem(index) is <3> then] [store in relation(index)] [ENDIF] [NIF DELDEC(index) is <1> OR DELDEC(index) is <3> then] [store <*deleted*> in relation(index)] [ELSEIF DELDEC(index) is <2> then] [store <*deceased> in relation(index)] [store <*DECEASED*> in table(index)(6:29)] [ENDIF] [store relation(index) in table(index)(31:40)] [end do] $itemtable >STLLIV< I have listed (READ NAMES BELOW) LN NAME RELATION [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] Do all of these persons still live here? ENTER LINE NUMBER FOR MEMBERSHIP CHANGE

ALL CORRECT ===>__ $d [alt 1] >STLLIV< Tengo anotados a (READ NAMES BELOW) LN NAME RELATION [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] ¨Siguen viviendo (aqu¡/ah¡) todas estas personas? ENTER LINE NUMBER FOR MEMBERSHIP CHANGE

ALL CORRECT ===>__ $end --------------------------------------------------------------------------- $>STLLIV< [within STLLIV-1] $display [none]

ALL CORRECT [goto NEWLIV-1] <1> <2> <3> <4> <5> <6> <7> <8> <9> <10-16> Refused [goto NEWLIV-1] ===>__ [goto NOW-SDEL] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end ----------------------------------------------------------------------------------------------------------------------- COMMENT: THE FOLLOWING ASKS IF THERE ARE OTHERS MEMBERS OF THE HOUSEHOLD WHO HAVE NOT BEEN ADDED. $>NEWLIV-1< [multiple NEWLIV] [IF NEWLIV is then reset NEWLIV] [do index <1> <16>] [store < > in table(index)] [store < > in xbad(index)] [store < > in relation(index)] [NIF LINENO(index) is < > then] [convert index integer to xbad(index) character] [store < > in table(index)(3:4)] [ENDIF] [end do] [do index <1> NROSIZ] [store <0> in index2] [convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to table(index)(4:4) character] [ELSEIF index2 ge <10> then] [convert index2 integer to table(index)(3:4) character] [ENDIF] [NIF RESPLI eq index AND curralt nq <1> then] [store in table(index)(6:29)] [ELSEIF RESPLI eq index AND curralt eq <1> then] [store in table(index)(6:29)] [ELSE] [store name(index) in table(index)(6:29)] [ENDIF] [store <0> in index3] [convert RRP(index) character to index3 integer] [NIF index3 nq <0> AND NEWRRP eq <0> then] ** RRP [store reltab(index3) in relation(index)] [ELSEIF index3 nq <0> AND NEWRRP eq <1> then] [store n-reltab(index3) in relation(index)] [ENDIF] [NIF hhmem(index) is <1> then] [store in table(index)(1:1)] [ELSEIF hhmem(index) is <2> then] [store in relation(index)] [ELSEIF hhmem(index) is <3> then] [store in relation(index)] [ENDIF] [NIF DELDEC(index) is <1> OR DELDEC(index) is <3> then] [store <*deleted*> in relation(index)] [ELSEIF DELDEC(index) is <2> then] [store <*deceased> in relation(index)] [store <*DECEASED*> in table(index)(6:29)] [ENDIF] [store relation(index) in table(index)(31:40)] [end do] [store < > in temptext] [store <{P} No one else living or staying here> in temptext] [store in temp2] [If INTTYP eq <1> then store in temp2] $itemtable >NEWLIV< Is there anyone else living or staying there now? LN NAME RELATION [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)]

No one else living or staying here ADD Person NOT LISTED above Enter LINE NUMBER to UNDELETE someone listed above ===>__ $d [alt 1] >NEWLIV< ¨Hay alguna otra persona que est‚ viviendo o qued ndose (ah¡/aqu¡) ahora? LN NAME RELATION [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)]

No one else living or staying here ADD Person NOT LISTED above Enter LINE NUMBER to UNDELETE someone listed above ===>__ $end ------------------------------------------------------------------------------- $>NEWLIV< [within NEWLIV-1] $display [none] ADD Person NOT LISTED above [if NROSIZ ge <16> then goto RSFULL] [goto P1-SNAM] <1> <2> <3> <4> <5> <6> <7> <8> <9> <10-16> Refused [goto ck-newper]

All correct [If MISCK is <5> then goto MCHILD-1] [goto ck-newper] ===>__ [goto NOW-UDEL] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end ----------------------------------------------------------------------------------------------------------------------- COMMENT: IF AT STLLIV YOU NEED TO DELETE A HOUSEHOLD MEMBER IT COMES HERE $>NOW-SDEL< [if onpath STLLIV-1 then convert STLLIV character to WHO integer] [store <0> in SDEL_R_P] $end $ROPEN>SDEL< **A** $>LTR-SDEL< [goto STLLIV-1] $end ------------------------------------------------------------------------------ COMMENT: IF A PERSON WAS PREVIOUSLY DELETED AND THEY HAVE RETURNED TO THE HOUSEHOLD OR IF YOU NEED TO ADD SOMEONE WHO WAS MISSED THAN IT COMES HERE FROM NEWLIV. $>NOW-UDEL< [IF NEWLIV isnt then convert NEWLIV character to WHO integer] [store <0> in UDEL_R_P] $end $ROPEN>UDEL< **H** $>LTR-UDEL< [goto NEWLIV-1] $end ------------------------------------------------------------------------------- COMMENT: THE FOLLOWING FOUR SCREEN ARE FOR WHEN MISFLG IS 1 (CASES THAT SHOULD ACT LIKE MONTH-IN-SAMPLE ONES.) AND FOR RETURNING MIS 5 CASES, THEY CHECK TO SEE IF ANYONE WAS MISSED WHEN THE NAMES WERE COLLECTED $>MCHILD-1< [multiple MCHILD] [store < > in temp2] [NIF MCHILD is then] [combine < other> < > into temp2] [reset MCHILD] [ENDIF] [do index <1> <16>] [store < > in table(index)] [NIF LINENO(index) is < > then] [store < > in table(index)(3:4)] [ENDIF] [end do] [do index <1> NROSIZ] [if hhmem(index) is <1> then store in table(index)(1:1)] [store <0> in index2] [convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to table(index)(4:4) character] [ELSEIF index2 ge <10> then] [convert index2 integer to table(index)(3:4) character] [ENDIF] [NIF RESPLI eq index AND curralt nq <1> then] [store in table(index)(6:29)] [ELSEIF RESPLI eq index AND CURRALT eq <1> then] [store in table(index)(6:29)] [ELSE] [store name(index) in table(index)(6:29)] [ENDIF] [store < > in relation(index)] [store <0> in index3] [convert RRP(index) character to index3 integer] [NIF index3 nq <0> AND NEWRRP eq <0> then] ** RRP [store reltab(index3) in relation(index)] [ELSEIF index3 nq <0> AND NEWRRP eq <1> then] [store n-reltab(index3) in relation(index)] [ENDIF] [NIF hhmem(index) is <2> then] [store in relation(index)] [ELSEIF hhmem(index) is <3> then] [store in relation(index)] [ENDIF] [NIF DELDEC(index) is <1> OR DELDEC(index) is <3> then] [store <*deleted*> in relation(index)] [ELSEIF DELDEC(index) is <2> then] [store <*deceased> in relation(index)] [store <*DECEASED*> in table(index)(6:29)] [ENDIF] [store relation(index) in table(index)(31:40)] [end do] [store in temptext] [if curralt eq <1> then store in temptext] [NIF MISCK is <5> then] [if onpath STLLIV then store < > in temptext] [ENDIF] $itemtable >MCHILD< [fill temptext] LN NAME RELATION [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] Have I missed any[fill temp2]babies or small children?

NO ONE ELSE TO ADD ADD Person NOT listed above ===>_ $d [alt 1] >MCHILD< [fill temptext] LN NAME RELATION [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] ¨Me falta: alg£n beb‚ o ni¤o peque¤o?

NO ONE ELSE TO ADD ADD Person NOT listed above ===>_ $end -------------------------------------------------------------------------------- $>MCHILD< [within MCHILD-1] $display [none]

NO ONE ELSE TO ADD [goto MAWAY-1] ADD Person NOT listed above [If NROSIZ ge <16> then goto RSFULL] [goto P1-SNAM] Refused [goto MAWAY-1] $end -------------------------------------------------------------------------------- $>MAWAY-1< [multiple MAWAY] [store < > in temp2] [If MAWAY is then combine < else> < > into temp2] [If MAWAY is then reset MAWAY] [do index <1> <16>] [store < > in table(index)] [NIF LINENO(index) is < > then] [store < > in table(index)(3:4)] [ENDIF] [end do] [do index <1> NROSIZ] [if hhmem(index) is <1> then store in table(index)(16:16)] [store <0> in index2] [convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to table(index)(18:18) character] [ELSEIF index2 ge <10> then] [convert index2 integer to table(index)(17:18) character] [ENDIF] [NIF RESPLI eq index AND curralt nq <1> then] [store in table(index)(20:40)] [ELSEIF RESPLI eq index AND CURRALT eq <1> then] [store in table(index)(20:40)] [ELSE] [store name(index) in table(index)(20:40)] [ENDIF] [store < > in relation(index)] [store <0> in index3] [convert RRP(index) character to index3 integer] [NIF index3 nq <0> AND NEWRRP eq <0> then] ** RRP [store reltab(index3) in relation(index)] [ELSEIF index3 nq <0> AND NEWRRP eq <1> then] [store n-reltab(index3) in relation(index)] [ENDIF] [Nif hhmem(index) is <2> then] [store in relation(index)] [ELSEIF hhmem(index) is <3> then] [store in relation(index)] [ENDIF] [NIF DELDEC(index) is <1> OR DELDEC(index) is <3> then] [store <*deleted*> in relation(index)] [ELSEIF DELDEC(index) is <2> then] [store <*deceased> in relation(index)] [store <*DECEASED*> in table(index)(20:40)] [ENDIF] [store relation(index) in table(index)(44:53)] [end do] $itemtable >MAWAY< LN NAME RELATION [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] Have I missed anyone[fill temp2]who usually lives here but is away now traveling, at school, or in a hospital?

NO ONE ELSE TO ADD ADD Person NOT listed above ===>_ $d [alt 1] >MAWAY< LN NAME RELATION [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] ¨Me falta: alguna persona que regularmente viva aqu¡ pero que actualmente est‚ viajando, asistiendo a la escuela o universidad, o en el hospital?

NO ONE ELSE TO ADD ADD Person NOT listed above ===>_ $end -------------------------------------------------------------------------------- $>MAWAY< [within MAWAY-1] $display [none]

NO ONE ELSE TO ADD [goto MLODGE-1] ADD Person NOT listed above [If NROSIZ ge <16> then goto RSFULL] [goto P1-SNAM] Refused [goto MLODGE-1] $end -------------------------------------------------------------------------------- $>MLODGE-1< [multiple MLODGE] [store < > in temp2] [If MLODGE is then combine < other> < > into temp2] [If MLODGE is then reset MLODGE] [do index <1> <16>] [store < > in table(index)] [NIF LINENO(index) is < > then] [store < > in table(index)(3:4)] [ENDIF] [end do] [do index <1> NROSIZ] [if hhmem(index) is <1> then store in table(index)(14:14)] [store <0> in index2] [convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to table(index)(17:17) character] [ELSEIF index2 ge <10> then] [convert index2 integer to table(index)(16:17) character] [ENDIF] [NIF RESPLI eq index AND curralt nq <1> then] [store in table(index)(19:42)] [ELSEIF RESPLI eq index AND CURRALT eq <1> then] [store in table(index)(19:42)] [ELSE] [store name(index) in table(index)(19:42)] [ENDIF] [store < > in relation(index)] [store <0> in index3] [convert RRP(index) character to index3 integer] [NIF index3 nq <0> AND NEWRRP eq <0> then] ** RRP [store reltab(index3) in relation(index)] [ELSEIF index3 nq <0> AND NEWRRP eq <1> then] [store n-reltab(index3) in relation(index)] [ENDIF] [NIF hhmem(index) is <2> then] [store in relation(index)] [ELSEIF hhmem(index) is <3> then] [store in relation(index)] [ENDIF] [NIF DELDEC(index) is <1> OR DELDEC(index) is <3> then] [store <*deleted*> in relation(index)] [ELSEIF DELDEC(index) is <2> then] [store <*deceased> in relation(index)] [store <*DECEASED*> in table(index)(19:42)] [ENDIF] [store relation(index) in table(index)(44:53)] [end do] $itemtable >MLODGE< LN NAME RELATION [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] Have I missed any[fill temp2]lodgers, boarders, or persons you employ who live here?

NO ONE ELSE TO ADD ADD Person NOT listed above ===>_ $d [alt 1] >MLODGE< LN NAME RELATION [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] ¨Me falta: alg£n hu‚sped, inquilino, o alg£n empleado que viva aqu¡?

NO ONE ELSE TO ADD ADD Person NOT listed above ===>_ $end -------------------------------------------------------------------------------- $>MLODGE< [within MLODGE-1] $display [none]

NO ONE ELSE TO ADD [goto MELSE-1] ADD Person NOT listed above [If NROSIZ ge <16> then goto RSFULL] [goto P1-SNAM] Refused [goto MELSE-1] $end -------------------------------------------------------------------------------- $>MELSE-1< [multiple MELSE] [store < > in temp2] [If MELSE is then combine < other> < > into temp2] [if MELSE is then reset MELSE] [do index <1> <16>] [store < > in table(index)] [NIF LINENO(index) is < > then] [store < > in table(index)(3:4)] [ENDIF] [end do] [do index <1> NROSIZ] [if hhmem(index) is <1> then store in table(index)(1:1)] [store <0> in index2] [convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to table(index)(4:4) character] [ELSEIF index2 ge <10> then] [convert index2 integer to table(index)(3:4) character] [ENDIF] [NIF RESPLI eq index AND CURRALT nq <1> then] [store in table(index)(6:29)] [ELSEIF RESPLI eq index AND CURRALT eq <1> then] [store in table(index)(6:29)] [ELSE] [store name(index) in table(index)(6:29)] [ENDIF] [store < > in relation(index)] [store <0> in index3] [convert RRP(index) character to index3 integer] [NIF index3 nq <0> AND NEWRRP eq <0> then] ** RRP [store reltab(index3) in relation(index)] [ELSEIF index3 nq <0> AND NEWRRP eq <1> then] [store n-reltab(index3) in relation(index)] [ENDIF] [NIF hhmem(index) is <2> then] [store in relation(index)] [ELSEIF hhmem(index) is <3> then] [store in relation(index)] [ENDIF] [NIF DELDEC(index) is <1> OR DELDEC(index) is <3> then] [store <*deleted*> in relation(index)] [ELSEIF DELDEC(index) is <2> then] [store <*deceased> in relation(index)] [store <*DECEASED*> in table(index)(6:29)] [ENDIF] [store relation(index) in table(index)(31:40)] [end do] $itemtable >MELSE< LN NAME RELATION [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] Have I missed any one else staying here?

NO ONE ELSE TO ADD ADD Person NOT listed above ===>_ $d [alt 1] >MELSE< LN NAME RELATION [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] ¨Me falta: alguna otra persona que se est‚ quedando aqu¡?

NO ONE ELSE TO ADD ADD Person NOT listed above ===>_ $end -------------------------------------------------------------------------------- $>MELSE< [within MELSE-1] $display [none]

NO ONE ELSE TO ADD [goto pre-LIVEAT] ADD Person NOT listed above [If NROSIZ ge <16> then goto RSFULL] [goto P1-SNAM] Refused [goto pre-LIVEAT] $end -------------------------------------------------------------------------------- COMMENT: COMES HERE IF IN THE MCHILD - MELSE SERIES YOU TRY TO ADD SOMEONE BUT THERE ARE ALREADY 16 PEOPLE IN THE HOUSEHOLD. $>RSFULL< [reset RSFULL] $d >RSFULL< ** DO NOT READ TO RESPONDENT ** HOUSEHOLD ROSTER IS FULL. ADDITIONAL PERSONS WILL NOT BE INCLUDED IN THE INTERVIEW. ENTER

TO PROCEED ===>_ $end ------------------------------------------------------------------------------ $>c2FULCK< [If MCHILD is then goto MCHILD-1] [If MAWAY is then goto MAWAY-1] [If MLODGE is then goto MLODGE-1] [If MELSE is then goto MELSE-1] [If NEWLIV is then goto NEWLIV-1] $end ------------------------------------------------------------------------------- THE FOLLOWING CODE ACCESSES THE NECESSARY ROSTERS IF SOMEONE WAS ADDED IN MCHILD THRU MELSE. (WE ASK NAME HHMEM , RELATIONSHIP AND SEX FIRST THEN AFTER EVERYBODY HAS BEEN ADDED IT WILL ASK THE REST OF THE DEMOGRAPHICS FOR EVERONE THAT WAS ADDED.) $>P1-SNAM< [store <0> in WHO] [store <0> in SNAM_R_P] $end $ROPEN>SNAM< ** ** $>PT1-SNAM< IF A MISTAKE WAS MADE AND A PERSON WAS NOT REALY TO BE ADDED (M IN FNAME-SCRN) THEN THE CODE BELOW WILL RETURN YOU TO THE APPROPRIATE ITEM FROM WHICH YOU CAME [NIF FNAME-scrn(SNAM_R_P) is AND MCHILD is then] [goto MCHILD-1] [ELSEIF FNAME-scrn(SNAM_R_P) is AND MAWAY is then] [goto MAWAY-1] [ELSEIF FNAME-scrn(SNAM_R_P) is AND MLODGE is then] [goto MLODGE-1] [ELSEIF FNAME-scrn(SNAM_R_P) is AND MELSE is then] [goto MELSE-1] [ELSEIF FNAME-scrn(SNAM_R_P) is AND NEWLIV is then] [goto NEWLIV-1] [ENDIF] $end ----------------------------------------------------------------------------- COLLECT MEMBERSHIP OF THE PERSON ADDED IN THE MCHILD-MELSE SERIES $>P1-SMEM< [store <0> in SMEM_R_P] $end $ROPEN>SMEM< **C** $>PT1-SMEM< [NIF hhmem(WHO) is <2> OR hhmem(WHO) is <3> then] [If MCHILD is then goto MCHILD-1] [If MAWAY is then goto MAWAY-1] [If MLODGE is then goto MLODGE-1] [If MELSE is then goto MELSE-1] [If NEWLIV is then goto NEWLIV-1] [ENDIF] $end ----------------------------------------------------------------------------- COLLECT SEX OF THE PERSON ADDED IN THE MCHILD-MELSE SERIES $>P1-SSEX< [store <0> in SSEX_R_P] $end $ROPEN>SSEX< **E** $>PT1-SSEX< [If MCHILD is then goto MCHILD-1] [If MAWAY is then goto MAWAY-1] [If MLODGE is then goto MLODGE-1] [If MELSE is then goto MELSE-1] [If NEWLIV is then goto NEWLIV-1] $end ---------------------------------------------------------------------- COMMENT: IF THE UNIT IS A SPECIAL PLACE THEN GOES TO NOW-DEM ELSE GOES TO LIVEAT $>PRE-LIVEAT< IF THERE IS MORE THAN ONE PERSON IN THE HOUSEHOLD AND YOU WENT THROUGHT THE NAMES ROSTER (REPLACEMENT HH OR MIS = 1) THEN NEED TO ASK LIVEEAT. [NIF NROSIZ gt <1> then] [If onpath fnam2-scrn:NAM_R_P then goto LIVEAT] [ENDIF] IF ONLY ONLY ONE PERSON IN THE HOUSEHOLD AND YOU WENT THROUGHT THE NAMES ROSTER (REPLACEMENT HH OR MIS = 1) THEN NEED TO ASK HHLIV. [If onpath fnam2-scrn:NAM_R_P then goto HHLIV] IF MIS = 5 THEN SKIP OVER LIVEAT AND HHLIVE [If MISCK is <5> then goto Ck-newper] [If i-segtyp is <3> then goto ck-newper] [if NROSIZ eq <1> then goto HHLIV] $end ------------------------------------------------------------------------------ $>LIVEAT< [NIF SEGTYP is <3> then] [store in temp2] [store < statement to the footnotes section of the listing sheet:> in temp3] [store < "Additional units found during interview; add them to> in temp4] [store < listing sheet at next updating."> in temp5] [ELSE] [store < > in temp2] [store < > in temp3] [store < > in temp4] [store < > in temp5] [ENDIF] $display >LIVEAT< *** ASK IF NOT APPARENT *** Do all persons in this household live or eat together? [fill temp2] [fill temp3] [fill temp4] [fill temp5] <1> Yes [goto HHLIV] <2> No, neither live or eat together ===>_ [If SEGTYP is <3> then goto HHLIV] $d [alt 1] >LIVEAT< *** ASK IF NOT APPARENT *** ¨Viven o comen juntos en esta vivienda todos los miembros del hogar? [fill temp2] [fill temp3] [fill temp4] [fill temp5] <1> S¡ [goto HHLIV] <2> No, neither live or eat together ===>_ [If SEGTYP is <3> then goto HHLIV] $end -------------------------------------------------------------------------------- $>EXTRAU< $display >EXTRAU< ** DO NOT READ TO RESPONDENT ** Refer to table X in flashcard booklet to determine if person or group of persons not living or eating with the Reference Person should be considered an EXTRA unit. Complete interview for all persons who DO live and eat together at THIS basic address. ENTER

TO PROCEED ===>_ $end -------------------------------------------------------------------------------- $>HHLIV< $display >HHLIV< *** ASK IF NOT APPARENT *** Does any other household on the property live or eat with this household? <1> Yes <2> No [goto ck-newper] ===>_ $d [alt 1] >HHLIV< *** ASK IF NOT APPARENT *** ¨Hay alguna otra familia en esta propiedad que viva o coma con esta familia? <1> S¡ <2> No [goto ck-newper] ===>_ $end ------------------------------------------------------------------------------- $>MERGUB< **need to go back and add people $display >MERGUB< Redefine the unit to include space occupied by all persons who live and eat together. Apply merged unit procedures if appropriate. If merged unit, add person or persons to household roster and complete interview. <1> Merged Unit [backto MELSE-1] <2> Not Merge Unit ===>_ $end -------------------------------------------------------------------------------- COMMENT: THE FOLLOWING CHECK IF THERE HAVE BEEN ANY NEW PEOPLE ADDED (nwprfg =1). IF SO, IT GETS THE REMAINING DEMOGRAPHICS. IF NOT, IT GOES TO CHECK FOR MISSING DATA. $>ck-newper< [store <0> in index2] [do index <1> NROSIZ] [NIF hhmem(index) is <1> OR hhmem(index) is <3> then] [store <1> in index2] [ENDIF] [NIF hhmem(index) is <2> OR hhmem(index) is <3> then] [store <0> in NWPRFG(index)] [ENDIF] [end do] IF EVERYONE IN THE HOUSEHOLD HAS A USUAL RESIDENCE ELSEWHERE (HHMEM EQ 2) THEN STORES 1 IN UREFLG AND GOES TO THE CHANGE [NIF index2 eq <0> then] [store <1> in UREFLG] [goto ck-missdat] [ENDIF] [store <0> in index] [tablook nwprfg <1> index] [store <0> in index3] [do index2 <1> NROSIZ] [NIF RRP(index2) is <13> AND NWPRFG(index2) nq <1> then] ADDED OCTOBER 13 [store <1> in index3] [ELSEIF RRP(index2) is <21> AND NWPRFG(index2) nq <1> then] ** RRP [store <1> in index3] [ELSEIF RRP(index2) is <28> AND NWPRFG(index2) nq <1> then] [store <1> in index3] [ELSEIF RRP(index2) is <29> AND NWPRFG(index2) nq <1> then] [store <1> in index3] [ELSEIF RRP(index2) is <30> AND NWPRFG(index2) nq <1> then] [store <1> in index3] [ENDIF] [end do] [NIF index3 eq <0> AND index eq <0> then] [goto ck-missdat] [ELSEIF index3 eq <1> AND index eq <0> then] [goto NOW-DEM] [ENDIF] $end ---------------------------------------------------------------------------- $>GET-RRP< [store <0> in SRRP_R_P] $end $ROPEN>SRRP< $>GOT-RRP< [store <0> in SRRP_R_P] COMMENT: SETS UP RRP FOR THE REFERENCE PERSON. IT STARTS WITH A VALUE OF 2. IT THEN CHECKS IF THERE IS A HOUSEHOLD MEMBER (HHMEM = 1) THAT HAS A RRP VALUE BETWEEN 3 AND 9. IF THESE THREE CONDITIONS ARE MET, THEN IT REASSIGNS THE VALUE OF 1. [store <02> in RRP(RefPer)] [if NEWRRP eq <1> then store <19> in RRP(RefPer)] ** RRP [do index <1> NROSIZ] [store <0> in index2] [convert RRP(index) character to tabindex(index) integer] [If hhmem(index) is <1> then add <1> to index2] [NIF tabindex(index) ge <3> AND tabindex(index) lt <9> then] [add <1> to index2] [ENDIF] HAD TO SPLIT BECAUSE WE DO NOT WANT TO INCLUDE RRP=21 [NIF tabindex(index) ge <22> AND tabindex(index) lt <27> then] ** RRP [add <1> to index2] [ELSEIF tabindex(index) eq <20> then] [add <1> to index2] [ENDIF] [If index2 eq <2> then store <01> in RRP(RefPer)] [NIF NEWRRP eq <1> AND index2 eq <2> then] ** RRP [store <18> in RRP(RefPer)] [ENDIF] [end do] [goto NOW-DEM] $end ------------------------------------------------------------------------------- THIS ROSTER COLLECTS LINE NUMBER OF PARENT FOR NECESSARY PERSONS $RBEGIN>SRRP< [maxelt 16] ---------------------------------------------------------------------- $>ck-rrp< [if R_P eq RefPer then roster loop] [if name(R_P) is then goto aft-rrp] [NIF hhmem(R_P) is <2> OR hhmem(R_P) is <3> then] [goto aft-rrp] [ENDIF] [if NWPRFG(R_P) nq <1> then goto aft-rrp] [store R_P in WHO] [store <0> in SREL_R_P] $end $ROPEN>SREL< **B** $>aft-rrp< [if name(R_P) is then roster exit] [roster loop] $end ------------------------------------------------------------------------------- $REND>SRRP< ------------------------------------------------------------------------------ COMMENT: DEM ROSTER COLLECTS AGE, MARITAL, SEX, ARMED FORCES AND EDUCATION FOR NEW CASES (MIS IS 1) AND FOR ANYONE THAT WAS ADDED IN MCHILD THRU MELSE $>NOW-DEM< [store <0> in DEM_R_P] $end $ROPEN>DEM< $>AFT-DEM< [store <0> in DEM_R_P] [store NROSIZ in index2] [add <1> to index2] [if index2 gt <16> then store <16> in index2] [do index <1> index2] [store <1> in pelig(index)] [NIF DELDEC(index) is <9> then] [store <11> in pelig(index)] [ELSEIF Donper(index) is <1> then] [store <2> in pelig(index)] [ELSEIF misper(index) is <1> then] [store <3> in pelig(index)] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <1> then] [store <9> in pelig(index)] [ELSEIF DELDEC(index) is <2> then] [store <10> in pelig(index)] [ELSEIF hhmem(index) is <2> OR hhmem(index) is <3> then] [store <8> in pelig(index)] [ELSEIF AGERNG(index) eq <1> then] [store <7> in pelig(index)] [ELSEIF AFNOW(index) is <1> then] [store <6> in pelig(index)] [ELSEIF AGERNG(index) eq <9> then] [store <5> in pelig(index)] [ENDIF] [end do] [store <0> in index] [tablook pelig <11> index] [if index eq <0> then store <16> in index] checks for 16 person hh [add <1> to index] First position after EOL [do index2 index <16>] [store <12> in pelig(index2)] [end do] IF THERE IS AT LEAST ONE ELIGIBLE PERSON THEN GOES TO CHECK THE RESPONDENT [store <0> in index] [tablook pelig <1> index] [if index nq <0> then goto NOW-CKRR] [store <0> in index2] [store <0> in index3] [do index <1> NROSIZ] [if pelig(index) eq <7> then add <1> to index2] [if pelig(index) eq <8> then add <1> to index3] [end do] IF EVERYONE IS UNDER 15 OR URE THEN GO TO THE CHANGE SCREEN [NIF index2 eq NROSIZ then] [store <1> in AGEFLG] [ELSEIF index3 eq NROSIZ then] [store <1> in UREFLG] [goto CHANGE] [ELSE] [goto NOW-CKRR] [ENDIF] COMMENT: FOR CASES WERE EVERYONE IS UNDER 15 WE NEED TO SET NWPRFG TO ZERO BEFORE GOING TO CHANGE - ADDED 12/23/93 [do index <1> NROSIZ] [store <0> in NWPRFG(index)] [end do] [goto CHANGE] $end ------------------------------------------------------------------------------- $RBEGIN>DEM< [maxelt 16] ------------------------------------------------------------------------------- COMMENT: IF THE ROSTER POSITION IS GREATER THAN THE NUMBER OF PEOPLE IN THE HOUSEHOLD THAN EXIT. $>pre-DEM< [if R_P gt NROSIZ then roster exit] DO NOT COLLECT DEMOGRAPHICS FOR NON HOUSEHOLD MEMBERS [NIF hhmem(R_P) is <2> OR hhmem(R_P) is <3> then] [roster loop] [ELSEIF RRP(R_P) is <13> AND NWPRFG(R_P) nq <1> then] ADDED OCTOBER 13 [goto P-SREL] [ELSEIF RRP(R_P) is <21> AND NWPRFG(R_P) nq <1> then] ** RRP [goto P-SREL] [ELSEIF RRP(R_P) is <28> AND NWPRFG(R_P) nq <1> then] [goto P-SREL] [ELSEIF RRP(R_P) is <29> AND NWPRFG(R_P) nq <1> then] [goto P-SREL] [ELSEIF RRP(R_P) is <30> AND NWPRFG(R_P) nq <1> then] [goto P-SREL] [ELSEIF NWPRFG(R_P) nq <1> then] [roster loop] [ENDIF] $end _______________________________________________________________________________ COMMENT - ADDED TO ASSIGN A RELATION IF THERE IS ONLY ONE PERSON IN HOUSEHOLD $>P-SREL< [store R_P in WHO] [store <0> in SREL_R_P] $end $ROPEN>SREL< **B** $>PT-SREL< [If NWPRFG(R_P) nq <1> then roster loop] ADDED OCTOBER 13 $end ------------------------------------------------------------------------------- $>P-SAGE< [if age(R_P) isnt < > then goto PT-SAGE] [store R_P in WHO] [store <0> in SAGE_R_P] $end $ROPEN>SAGE< **D** $>PT-SAGE< $end ------------------------------------------------------------------------------- COLLECTS MARITL STATUS. IF AGE IS LT 15 THAN DON'T ASK MARITL STATUS. $>P-SMAR< [IF AGERNG(R_P) lt <2> then goto PT-SMAR] [if MARITL(R_P) isnt < > then goto PT-SMAR] [store R_P in WHO] [store <0> in SMAR_R_P] $end $ROPEN>SMAR< $>PT-SMAR< [goto P-SAF] $end -------------------------------------------------------------------------------- COLLECTS ARMED FORCES STATUS. IF AGE IS LT 17 THAN DON'T ASK ARMED FORCE STATUS. $>P-SAF< [convert age(R_P) character to age-i(R_P) integer] [if age-i(R_P) lt <17> then goto P-SED] [store R_P in WHO] [store <0> in SAF_R_P] $end $ROPEN>SAF< **F** $>PT-SAF< [goto P-SED] $end ------------------------------------------------------------------------------- COLLECTS EDUCATIONAL STATUS. DON'T COLLECT IF AGE IS LT 15. $>P-SED< [If AGERNG(R_P) lt <2> then roster loop] [store R_P in WHO] [store <0> in SED_R_P] $end $ROPEN>SED< $>PT-SED< [roster loop] $end -------------------------------------------------------------------------- $REND>DEM< =============================================================================== COMMENT: THE FOLLOWING IS TO CHECK AND MAKE SURE WE HAVE AN ELIGIBLE RESPONDENT AND REFERENCE PERSON FOR MISFLGS OF 1 (CASES THAT SHOULD ACT LIKE MONTH-IN-SAMPLE ONE CASES.) $>now-CKRR< [store <0> in CKRR_R_P] $end $ROPEN>CKRR< $>aft-CKRR< [store <0> in CKRR_R_P] [if AGEFLG eq <1> then goto CHANGE] EVERYONE UNDER 15 [if UREFLG eq <1> then goto CHANGE] EVERYONE URE [goto NOW-RCE] $end ----------------------------------------------------------------------------- $RBEGIN>CKRR< [maxelt 16] $>pre-ckrr< [if R_P gt NROSIZ then roster exit] IF THE RESPONDENT IS LT 15 THAN NEED TO GET ANOTHER RESPONDENT WE ARE ASSUMING THAT SOMEONE LT 15 CAN'T BE A RESPONDENT [NIF AGERNG(RESPLI) eq <1> AND R_P eq RESPLI then] [goto P2-SHHR] [ELSEIF hhmem(RESPLI) is <2> AND R_P eq RESPLI then] [goto P2-SHHR] [ENDIF] IF THE REFERENCE PERSON IF LT 15 THAN NEED TO VERIFY WHO OWNS OR RENTS THE HOME WE ARE ASSUMING THAT SOMEONE LT 15 CAN'T ONW OR RENT A HOME. [NIF AGERNG(RefPer) eq <1> AND R_P eq RefPer then] REF PERSON LT 15 YEARS OF AGE [goto P2-SREF] [ELSEIF hhmem(RefPer) is <2> AND R_P eq RefPer then] REF PERSON NOT A HOUSEHOLD MEMBER [goto P2-SREF] [ELSEIF hhmem(RefPer) is <3> AND R_P eq RefPer then] REF PERSON IS A PROXY RESPONDENT [goto P2-SREF] [ENDIF] [roster loop] $end ----------------------------------------------------------------------------- $>P2-SHHR< [store R_P in WHO] [store <0> in SHHR_R_P] $end $ROPEN>SHHR< **I** $>PT2-SHHR< IF ALL OF THE HOUSEHOLD MEMBERS ARE UNDER 15 (AGEFLG EQ 1) THEN GOTO CHANGE [if AGEFLG eq <1> then ROSTER EXIT] IF ALL OF THE HOUSEHOLD MEMBERS ARE URE (UREFLG EQ 1) THEN GOTO CHANGE [IF UREFLG EQ <1> THEN ROSTER EXIT] $end ---------------------------------------------------------------------------- $>P2-SREF< [store <0> in SREF_R_P] $end $ROPEN>SREF< **K** $>PT2-SREF< IF ALL OF THE HOUSEHOLD MEMBERS ARE URE (UREFLG EQ 1) THEN ROSTER EXIT [IF UREFLG eq <1> then roster exit] $end ------------------------------------------------------------------------------- $REND>CKRR< ---------------------------------------------------------------------------- COMMENT: THE FOLLOWING ROSTER COLLECTS RACE FOR ALL NEW CASES (MIS IS 1) AND FOR ANYONE THAT WAS ADDED IN MCHILD THRU MELSE $>NOW-RCE< [store <0> in RCE_R_P] $end $ROPEN>RCE< $>AFT-RCE< [goto NOW-ORIG] $end ---------------------------------------------------------------------------- $RBEGIN>RCE< [maxelt 16] ------------------------------------------------------------------------------- $>pre-RCE< [if R_P gt NROSIZ then roster exit] [NIF hhmem(R_P) is <2> OR hhmem(R_P) is <3> then] [roster loop] [ELSEIF NWPRFG(R_P) nq <1> then] [roster loop] [ENDIF] $end ----------------------------------------------------------------------------- $>P-SRCE< [store R_P in WHO] [store <0> in SRCE_R_P] $end $ROPEN>SRCE< **G** $>PT-SRCE< [roster loop] $end ------------------------------------------------------------------------------- $REND>RCE< =============================================================================== COMMENT: THE FOLLOWING ROSTER COLLECTS ORIGIN FOR ALL NEW CASES (MIS IS 1) AND FOR ANYONE THAT WAS ADDED IN MCHILD THRU MELSE $>NOW-ORIG< [store <0> in ORIG_R_P] $end $ROPEN>ORIG< $>AFT-ORIG< [goto NOW-SOCN] $end ---------------------------------------------------------------------------- $RBEGIN>ORIG< [maxelt 16] ------------------------------------------------------------------------------- $>pre-ORIG< [if R_P gt NROSIZ then roster exit] [NIF hhmem(R_P) is <2> OR hhmem(R_P) is <3> then] [roster loop] [ELSEIF NWPRFG(R_P) nq <1> then] [roster loop] [ENDIF] $end _______________________________________________________________________________ $>P-SOR< [store R_P in WHO] [store <0> in SOR_R_P] $end $ROPEN>SOR< **G** $>PT-SOR< [roster loop] $end ------------------------------------------------------------------------------- $REND>ORIG< =============================================================================== COMMENT: THE FOLLOWING ROSTER COLLECTS SOCIAL SECURITY FOR ALL NEW CASES (MIS IS 1) AND FOR ANYONE THAT WAS ADDED IN MCHILD THRU MELSE THE GOTO WAS ADDED BECAUSE WE DO NOT WANT TO COLLECT SOCIAL SECURITY AT THIS TIME, BUT WE MAY IN THE FUTURE. (CW 1/1/92) $>NOW-SOCN< [store <0> in SOCN_R_P] $end $ROPEN>SOCN< $>AFT-SOCN< [goto ck-missdat] $end ---------------------------------------------------------------------------- $RBEGIN>SOCN< [maxelt 16] ------------------------------------------------------------------------------- $>pre-SSN< [if R_P gt NROSIZ then roster exit] [NIF hhmem(R_P) is <2> OR hhmem(R_P) is <3> then] [roster loop] [ELSEIF NWPRFG(R_P) nq <1> then] [roster loop] [ENDIF] $end _______________________________________________________________________________ COMMENT: Social Security ASKED FOR MIS-1 AND MIS-5 AND IN jAN FOR MIS-2 AND MIS-6; IN FEB FOR MIS-2, MIS-3, MIS-6, AND MIS-7; AND IN MAR FOR MIS-2, MIS-3, MIS-4 MIS-6, MIS-7, AND MIS-8. $>P-SSSN< ** SPD ** entire item revised [If AGERNG(R_P) lt <2> then store <0> in NWPRFG(R_P)] [If AGERNG(R_P) lt <2> then roster loop] [store <0> in index] [IF SSN(R_P) is < > then store <1> in index] [If index nq <1> then store <0> in NWPRFG(R_P)] [If index nq <1> then roster loop] [store R_P in WHO] [store <0> in SSSN_R_P] $end $ROPEN>SSSN< $>PT-SSSN< [store <0> in NWPRFG(R_P)] [roster loop] $end ------------------------------------------------------------------------------- $REND>SOCN< ============================================================================== COMMENT: The following checks if there is missing data for anyone who is a current household member. If so, it goes to the MISS roster. Otherwise, it goes to CHANGE to see if any changes are necessary. Index3 is used as a flag that someone (anyone) has missing data. Therefore, it is set to 0 outside the loop and if,within the loop, you find someone has missing data, it is set to 1. if the person with missing data is not a household member (hhmem eq 2 or 3) then index3 is set back to zero $>ck-missdat< ** SPD ** item revised for SSN [store <0> in jdate-i] [store <0> in mon-i] [setdate jdate-i mon-i day-i year-i date-c wkday1-c wkday2-c] IF ALL PERSONS IF THE HOUSEHOLD ARE URE OR UNDER 15 THEN GOTO CHANGE [IF UREFLG eq <1> then goto CHANGE] [IF AGEFLG eq <1> then goto CHANGE] [do index <1> NROSIZ] [NIF RACE(index) is < > OR ORIGIN(index) is < > then] [goto dem-intro] [ENDIF] [end do] IF YOU HAVE GONE THROUGH THE NAMES ROSTER (REPLACEMENT HOUSEHOLD/MIS=1) THEN SKIP RIGHT TO CHANGE SCREEN BECAUSE YOU DO NOT WANT TO REASK ANY BLANK DEMOGRAPHICS. (YOU JUST ASKED ALL DEMOS AND IF SOME ARE BLANK THEN THEY MUST HAVE BEEN D'S OR R'S.) [If onpath fnam2-scrn:NAM_R_P then goto CHANGE] WE AUTOMATICALLY UPDATE EDUCATION IN FEB., JULY, OCTOBER AND FOR ALL MIS=5 [NIF mon-i eq <2> OR mon-i eq <7> then] [goto dem-Intro] [ELSEIF mon-i eq <10> then] [goto dem-Intro] [ELSEIF MISCK is <5> then] [goto dem-Intro] [ENDIF] [do index <1> NROSIZ] [store <0> in index3] [NIF hhmem(index) is < > OR HHmem(index) is then] [store <1> in index3] [ELSEIF RRP(index) is < > OR RRP(index) is then] [store <1> in index3] [ELSEIF RRP(index) is <10> AND SUBFAM(index) is < > then] ADDED IN APRIL 93 BECAUSE DIDN'T CARRY SUBFAM FORWARD [store <1> in index3] [ELSEIF RRP(index) is <31> AND SUBFAM(index) is < > then] ** RRP [store <1> in index3] [ELSEIF RRP(index) is <33> AND SUBFAM(index) is < > then] [store <1> in index3] [ELSEIF RRP(index) is <35> AND SUBFAM(index) is < > then] [store <1> in index3] [ELSEIF RRP(index) is <37> AND SUBFAM(index) is < > then] [store <1> in index3] [ELSEIF age(index) is < > OR age(index) is then] [store <1> in index3] [ELSEIF BIRTHM(index) is < > OR BIRTHM(index) is then] [store <1> in index3] [ELSEIF BIRTHD(index) is < > OR BIRTHD(index) is then] [store <1> in index3] [ELSEIF BIRTHY(index) is < > OR BIRTHY(index) is then] [store <1> in index3] [ELSEIF sex(index) is < > OR sex(index) is then] [store <1> in index3] [ELSEIF AFNOW(index) is <1> then] [store <1> in index3] [ELSEIF race(index) is < > OR race(index) is then] [store <1> in index3] [ELSEIF origin(index) is < > OR origin(index) is then] [store <1> in index3] [ELSEIF MARITL(index) is < > AND AGERNG(index) ge <2> then] [store <1> in index3] [ELSEIF MARITL(index) is AND AGERNG(index) ge <2> then] [store <1> in index3] [ELSEIF EDUCA(index) is < > AND AGERNG(index) ge <2> then] [store <1> in index3] [ELSEIF EDUCA(index) is AND AGERNG(index) ge <2> then] [store <1> in index3] [ENDIF] ADDED JUN 96 [NIF AGERNG(index) lt <2> then] [ELSEIF DIPGED(index) is < > AND EDUCA(index) is <39> then] [store <1> in index3] [ELSEIF DIPGED(index) is AND EDUCA(index) is <39> then] [store <1> in index3] [ELSEIF HGCOMP(index) is < > AND DIPGED(index) is <2> then] [store <1> in index3] [ELSEIF HGCOMP(index) is AND DIPGED(index) is <2> then] [store <1> in index3] [ELSEIF CYC(index) is < > AND EDUCA(index) is <40> then] [store <1> in index3] [ELSEIF CYC(index) is < > AND EDUCA(index) is <41> then] [store <1> in index3] [ELSEIF CYC(index) is < > AND EDUCA(index) is <42> then] [store <1> in index3] [ELSEIF CYC(index) is AND EDUCA(index) is <40> then] [store <1> in index3] [ELSEIF CYC(index) is AND EDUCA(index) is <41> then] [store <1> in index3] [ELSEIF CYC(index) is AND EDUCA(index) is <42> then] [store <1> in index3] [ELSEIF GRPROF(index) is < > AND EDUCA(index) is <43> then] [store <1> in index3] [ELSEIF GRPROF(index) is AND EDUCA(index) is <43> then] [store <1> in index3] [ELSEIF GR6COR(index) is < > AND GRPROF(index) is <1> then] [store <1> in index3] [ELSEIF GR6COR(index) is AND GRPROF(index) is <1> then] [store <1> in index3] [ELSEIF MS123(index) is < > AND EDUCA(index) is <44> then] [store <1> in index3] [ELSEIF MS123(index) is AND EDUCA(index) is <44> then] [store <1> in index3] [ENDIF] [NIF AGERNG(index) lt <2> OR AGERNG(index) ge <6> then] [ELSEIF AFEVER(index) is < > OR AFEVER(index) is then] [store <1> in index3] [ELSEIF AFEVER(index) is <1> AND AFWHEN(index) is < > then] [store <1> in index3] [ELSEIF AFEVER(index) is <1> AND AFWHEN(index) is then] [store <1> in index3] [ELSEIF AFNOW(index) is < > OR AFNOW(index) is then] [store <1> in index3] [ENDIF] [store <0> in index4] [If SSN(index) is < > then store <1> in index4] [If AGERNG(index) lt <2> then store <0> in index4] [If index4 eq <1> then store <1> in index3] [NIF hhmem(index) is <2> OR addper(index) is <1> then] [store <0> in index3] [ELSEIF hhmem(index) is <3> then] [store <0> in index3] [ENDIF] [If index3 ge <1> then goto dem-intro] [end do] [if index3 eq <0> then goto CHANGE] $end -------------------------------------------------------------------------------- $>dem-Intro< $d >dem-intro< Next, I need to update some demographic information. ENTER

TO PROCEED ===>_ [goto NOW-MISS] $d [alt 1] >dem-intro< Ahora, necesito poner al d¡a algunos datos demogr ficos. ENTER

TO PROCEED ===>_ [goto NOW-MISS] $end ------------------------------------------------------------------------------- COMMENT: THIS ROSTER CHECKS TO SEE IF ANY NECESSARY DEMOGRAPHICS WERE LEFT BLANK $>NOW-MISS< [store <0> in MISS_R_P] $end $ROPEN>MISS< $>LTR-MISS< [goto CHANGE] $end ------------------------------------------------------------------------------- $RBEGIN>MISS< [maxelt 16] $>ck-perdata< [if R_P gt NROSIZ then roster exit] COMMENT: DO NOT ASK DEMOGRPHICS OF NON HOUSEHOLD MEMBERS NEW PERSON ADDED THIS TIME ALREADY WENT THRU ROSTERS [NIF hhmem(R_P) is <2> OR HHmem(R_P) is <3> then] [roster loop] [ELSEIF SSN(R_P) isnt < > AND addper(R_P) is <1> then] [roster loop] ADDED JAN 95 [ELSEIF SSN(R_P) is AND addper(R_P) is <1> then] [roster loop] [ELSEIF SSN(R_P) is AND addper(R_P) is <1> then] [roster loop] [ENDIF] [If MISFLG is <1> then goto PRE-SRCE] ADDED TO CHECK FOR BLANK RACE/ORIGIN FOR MIS 1 JAN 95 [NIF MISCK is <5> AND ADDPER(R_P) is <1> then] ADDED JAN 95 [goto pre-SSSN] [ENDIF] [goto PRE-SMEM] $end ---------------------------------------------------------------------------- $>PRE-SMEM< [NIF hhmem(R_P) isnt < > AND hhmem(R_P) isnt then] [goto PRE-SSEX] [ENDIF] [store R_P in WHO] [store <0> in SMEM_R_P] $end $ROPEN>SMEM< **C** $>PST-SMEM< [NIF hhmem(R_P) is <2> OR hhmem(R_P) is <3> then] [roster loop] [ENDIF] $end ------------------------------------------------------------------------------ $>PRE-SSEX< [NIF sex(R_P) isnt < > AND sex(R_P) isnt then] [goto PRE-SREL] [ENDIF] [store R_P in WHO] [store <0> in SSEX_R_P] $end $ROPEN>SSEX< **E** $>PST-SSEX< $end ------------------------------------------------------------------------------ $>PRE-SREL< [NIF RRP(R_P) is <10> AND SUBFAM(R_P) is < > then] [ELSEIF RRP(R_P) is <31> AND SUBFAM(R_P) is < > then] ** RRP [ELSEIF RRP(R_P) is <33> AND SUBFAM(R_P) is < > then] ** RRP [ELSEIF RRP(R_P) is <35> AND SUBFAM(R_P) is < > then] ** RRP [ELSEIF RRP(R_P) is <37> AND SUBFAM(R_P) is < > then] ** RRP [ELSEIF RRP(R_P) isnt < > AND RRP(R_P) isnt then] [goto PRE-SAGE] [ENDIF] [store R_P in WHO] [store <0> in SREL_R_P] $end $ROPEN>SREL< **B** $>PST-SREL< $end ------------------------------------------------------------------------------ $>PRE-SAGE< [store <0> in index] [NIF age(R_P) is < > OR age(R_P) is then] [store <1> in index] [ELSEIF BIRTHM(R_P) is < > OR BIRTHM(R_P) is then] [store <1> in index] [ELSEIF BIRTHD(R_P) is < > OR BIRTHD(R_P) is then] [store <1> in index] [ELSEIF BIRTHY(R_P) is < > OR BIRTHY(R_P) is then] [store <1> in index] [ENDIF] [if index eq <0> then goto PRE-SMAR] [store R_P in WHO] [store <0> in SAGE_R_P] $end $ROPEN>SAGE< **D** $>PST-SAGE< $end ------------------------------------------------------------------------------ $>PRE-SMAR< [NIF AGERNG(R_P) lt <2> then] [goto PRE-SAF] [ELSEIF MARITL(R_P) isnt < > AND Maritl(R_P) isnt then] [goto PRE-SAF] [ENDIF] [store R_P in WHO] [store <0> in SMAR_R_P] $end $ROPEN>SMAR< **E** $>PST-SMAR< $end ------------------------------------------------------------------------------ $>PRE-SAF< [convert age(R_P) character to age-i(R_P) integer] [if age-i(R_P) lt <17> then goto PRE-SED] [store <0> in index3] [NIF AFNOW(R_P) is <1> OR AFEVER(R_P) is < > then] Currently in AF-verify [store <1> in index3] [ELSEIF AFEVER(R_P) is then] Currently in AF-verify [store <1> in index3] [ELSEIF AFEVER(R_P) is <1> AND AFWHEN(R_P) is < > then] [store <1> in index3] [ELSEIF AFEVER(R_P) is <1> AND AFWHEN(R_P) is then] [store <1> in index3] [ELSEIF AFNOW(R_P) is < > OR AFNOW(R_P) is then] [store <1> in index3] [ENDIF] [if index3 eq <0> then goto PRE-SED] [store R_P in WHO] [store <0> in SAF_R_P] $end $ROPEN>SAF< **F** $>PST-SAF< $end ------------------------------------------------------------------------------ $>PRE-SED< [if AGERNG(R_P) lt <2> then goto PRE-SRCE] [store <0> in index] [NIF EDUCA(R_P) is < > OR EDUCA(R_P) is then] [store <1> in index] [ELSEIF MISCK is <5> AND ADDPER(R_P) isnt <1> then] [store <1> in index] [ELSEIF mon-i eq <2> OR mon-i eq <7> then] [store <1> in index] [ELSEIF mon-i eq <10> then] [store <1> in index] [ENDIF] [NIF DIPGED(R_P) is < > AND EDUCA(R_P) is <39> then] ADDED JUN 96 [store <1> in index] [ELSEIF DIPGED(R_P) is AND EDUCA(R_P) is <39> then] [store <1> in index] [ELSEIF HGCOMP(R_P) is < > AND DIPGED(R_P) is <2> then] [store <1> in index] [ELSEIF HGCOMP(R_P) is AND DIPGED(R_P) is <2> then] [store <1> in index] [ELSEIF CYC(R_P) is < > AND EDUCA(R_P) is <40> then] [store <1> in index] [ELSEIF CYC(R_P) is < > AND EDUCA(R_P) is <41> then] [store <1> in index] [ELSEIF CYC(R_P) is < > AND EDUCA(R_P) is <42> then] [store <1> in index] [ELSEIF CYC(R_P) is AND EDUCA(R_P) is <40> then] [store <1> in index] [ELSEIF CYC(R_P) is AND EDUCA(R_P) is <41> then] [store <1> in index] [ELSEIF CYC(R_P) is AND EDUCA(R_P) is <42> then] [store <1> in index] [ELSEIF GRPROF(R_P) is < > AND EDUCA(R_P) is <43> then] [store <1> in index] [ELSEIF GRPROF(R_P) is AND EDUCA(R_P) is <43> then] [store <1> in index] [ELSEIF GR6COR(R_P) is < > AND GRPROF(R_P) is <1> then] [store <1> in index] [ELSEIF GR6COR(R_P) is AND GRPROF(R_P) is <1> then] [store <1> in index] [ELSEIF MS123(R_P) is < > AND EDUCA(R_P) is <44> then] [store <1> in index] [ELSEIF MS123(R_P) is AND EDUCA(R_P) is <44> then] [store <1> in index] [ENDIF] [if index eq <0> then goto PRE-SRCE] [store R_P in WHO] [store <0> in SED_R_P] $end $ROPEN>SED< **H** $>PST-SED< $end ------------------------------------------------------------------------------ $>PRE-SRCE< [NIF race(R_P) isnt < > AND race(R_P) isnt then] [goto PRE-SOR] [ENDIF] [store R_P in WHO] [store <0> in SRCE_R_P] $end $ROPEN>SRCE< **G** $>PST-SRCE< $end ------------------------------------------------------------------------------ $>PRE-SOR< [NIF origin(R_P) isnt < > AND origin(R_P) isnt then] [goto PRE-SSSN] [ENDIF] [store R_P in WHO] [store <0> in SOR_R_P] $end $ROPEN>SOR< **J** $>PST-SOR< $end ------------------------------------------------------------------------------ $>PRE-SSSN< ** SPD ** entire item revised [If AGERNG(R_P) lt <2> then roster loop] [store <0> in index] [IF SSN(R_P) is < > then store <1> in index] [If index eq <1> then goto PRE-SSN2] CHANGED DEC 94 [roster loop] $end ---------------------------------------------------------------------- $>PRE-SSN2< [store R_P in WHO] [store <0> in SSSN_R_P] $end $ROPEN>SSSN< **O** $>PST-SSSN< [roster loop] $end ------------------------------------------------------------------------------ $REND>MISS< ============================================================================= COMMENT: The following ARE the overall change screen. Currently, it appears at the end of the control card, immediately before the labor force items. It was titled simply CHANGE so that it would be easier for interviewers to remember in case they wanted to jumpback to change something. THERE ARE TWO CHANGE SCREENS BECAUSE 16 PEOPLE WOULD NOT FIT ON ONE SCREEN. $>CHANGE< [store <1> in CHG-FLAG] [If NOTBACKED then reset CHANGE] [reset CHG-WHAT] [do index <1> <8>] [store < > in table(index)] [store < > in relation(index)] [store < > in xbad(index)] [if LINENO(index) is < > then convert index integer to xbad(index) character] [end do] [store <0> in index2] [store NROSIZ in index2] [if NROSIZ gt <8> then store <8> in index2] [do index <1> index2] [store <0> in index3] [convert LINENO(index) character to index3 integer] [NIf LINENO(index)(2:2) is < > then] [store LINENO(index) in table(index)(2:2)] [ELSE] [store LINENO(index) in table(index)(1:2)] [ENDIF] [store name(index) in table(index)(4:27)] [store <0> in index3] [NIF RRP(index) is OR RRP(index) is then] [store RRP(index) in relation(index)] [ELSEIF NEWRRP eq <0> then] ** RRP [convert RRP(index) character to index3 integer] [If index3 nq <0> then store reltab(index3) in relation(index)] [ELSE] [convert RRP(index) character to index3 integer] [If index3 nq <0> then store n-reltab(index3) in relation(index)] [ENDIF] [NIF hhmem(index) is <1> then] [store in table(index)(29:29)] [ELSEIF hhmem(index) is <2> then] [store in relation(index)] [ELSEIF hhmem(index) is <3> then] [store in relation(index)] [ENDIF] [NIF DELDEC(index) is <1> OR DELDEC(index) is <3> then] [store <*deleted*> in relation(index)] [ELSEIF DELDEC(index) is <2> then] [store <*deceased> in relation(index)] [store <*DECEASED*> in table(index)(4:27)] [ENDIF] [store relation(index) in table(index)(31:40)] [NIF sex(index) is <2> then] [store in table(index)(44:44)] [ELSEIF sex(index) is <1> then] [store in table(index)(44:44)] [ELSE] [store sex(index) in table(index)(44:44)] [ENDIF] [store <0> in index2] [If PARENT(index) isnt < > then convert PARENT(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to table(index)(41:41) character] [ELSEIF index2 ge <10> then] [convert index2 integer to table(index)(41:42) character] [ENDIF] [NIF age-i(index) le <9> AND age-i(index) ge <1> then] [store age(index) in table(index)(48:48)] [ELSEIF age-i(index) ge <10> then] [store age(index) in table(index)(47:48)] [ELSEIF age(index) is then] [store in table(index)(48:48)] [ELSEIF age(index) is then] [store in table(index)(48:48)] [ENDIF] [store <0> in index2] [NIF MARITL(index) is OR MARITL(index) is then] [store MARITL(index) in table(index)(52:52)] [ELSEIF MARITL(index) isnt < > then] [convert MARITL(index) character to index2 integer] [store Martab(index2) in table(index)(51:53)] [ENDIF] [store <0> in index2] [If SPOUSE(index) isnt < > then convert SPOUSE(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to table(index)(56:56) character] [ELSEIF index2 ge <10> then] [convert index2 integer to table(index)(55:56) character] [ENDIF] [NIF AFNOW(index) is <1> then] [store in table(index)(59:59)] [ELSEIF AFNOW(index) is <2> then] [store in table(index)(59:59)] [ELSE] [store AFNOW(index) in table(index)(59:59)] [ENDIF] [NIF EDUCA(index) is OR EDUCA(index) is then] [store EDUCA(index) in table(index)(61:61)] [ELSEIF EDUCA(index) isnt < > then] [store EDUCA(index) in table(index)(61:62)] [ENDIF] [store RACE(index) in table(index)(64:64)] [store ORIGIN(index) in table(index)(67:68)] [store SSN(index) in table(index)(70:78)] [end do] [store < > in temptext] [NIF NOTEFL eq <1> then] [store in temptext] [ELSEIF NOTEFL eq <2> then] [store in temptext] [ELSEIF NOTEFL eq <3> then] [store in temptext] [ENDIF] [store < > in temp3] [store <{P} All correct> in temp3(1:15)] [if NROSIZ gt <8> then store <{N} TO REVIEW REST OF HOUSEHOLD> in temp3(23:60)] ** MOVERS ** added skip to get into labor force $d >CHANGE< ***** DO NOT USE F1 FROM THIS SCREEN ***** Since last time, has any household member had any changes in his or her Marital Status? ** DO NOT READ ** ENTER CHANGES NEEDED FOR ITEMS DISPLAYED BELOW CURRENT RESPONDENT: [fill name(RESPLI)] [fill temptext] LN NAME M RELATION PR SX AGE MAR SP AN ED RC OR SSN [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill temp3] ADD Person NOT LISTED above [if NROSIZ ge <16> then goto NOADDP] [goto P3-SNAM] Enter LINE NUMBER to CHANGE something above [blind] <1-8>

All correct [if sumhrp eq <0> then store RESPLI in sumhrp] [if I-BLANK3 is <1> then goto ck-prlbfr] [goto ck-newper2] TO REVIEW REST [if NROSIZ lt <8> then referto ref-bad] [goto CHANGE2] ===>__ [goto CHGWHAT] $d [alt 1] >CHANGE< ***** DO NOT USE F1 FROM THIS SCREEN ***** Desde el mes pasado, ¨ha habido alg£n cambio en el estado civil de alg£n miembro del hogar? ** DO NOT READ ** ENTER CHANGES NEEDED FOR ITEMS DISPLAYED BELOW CURRENT RESPONDENT: [fill name(RESPLI)] [fill temptext] LN NAME M RELATION PR SX AGE MAR SP AN ED RC OR SSN [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill temp3] ADD Person NOT LISTED above [if NROSIZ ge <16> then goto NOADDP] [goto P3-SNAM] Enter LINE NUMBER to CHANGE something above [blind] <1-8>

All correct [if sumhrp eq <0> then store RESPLI in sumhrp] [if I-BLANK3 is <1> then goto ck-prlbfr] [goto ck-newper2] TO REVIEW REST [if NROSIZ lt <8> then referto ref-bad] [goto CHANGE2] ===>__ [goto CHGWHAT] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] $end ------------------------------------------------------------------------------- $>CHANGE2< [store <2> in CHG-FLAG] [If NOTBACKED then reset CHANGE2] [reset CHG-WHAT] [do index <9> NROSIZ] [store < > in table(index)] [store < > in relation(index)] [store < > in xbad(index)] [if LINENO(index) is < > then convert index integer to xbad(index) character] [end do] [do index <9> NROSIZ] [store <0> in index3] [convert LINENO(index) character to index3 integer] [NIf LINENO(index)(2:2) is < > then] [store LINENO(index) in table(index)(2:2)] [ELSE] [store LINENO(index) in table(index)(1:2)] [ENDIF] [store name(index) in table(index)(4:27)] [store <0> in index3] [NIF RRP(index) is OR RRP(index) is then] [store RRP(index) in relation(index)] [ELSEIF NEWRRP eq <0> then] ** RRP [convert RRP(index) character to index3 integer] [If index3 nq <0> then store reltab(index3) in relation(index)] [ELSE] [convert RRP(index) character to index3 integer] [If index3 nq <0> then store n-reltab(index3) in relation(index)] [ENDIF] [NIF hhmem(index) is <1> then] [store in table(index)(29:29)] [ELSEIF hhmem(index) is <2> then] [store in relation(index)] [ELSEIF hhmem(index) is <3> then] [store in relation(index)] [ENDIF] [NIF DELDEC(index) is <1> OR DELDEC(index) is <3> then] [store <*deleted*> in relation(index)] [ELSEIF DELDEC(index) is <2> then] [store <*deceased> in relation(index)] [store <*DECEASED*> in table(index)(4:27)] [ENDIF] [store relation(index) in table(index)(31:40)] [NIF sex(index) is <2> then] [store in table(index)(44:44)] [ELSEIF sex(index) is <1> then] [store in table(index)(44:44)] [ELSE] [store sex(index) in table(index)(44:44)] [ENDIF] [store <0> in index2] [If PARENT(index) isnt < > then convert PARENT(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to table(index)(41:41) character] [ELSEIF index2 ge <10> then] [convert index2 integer to table(index)(41:42) character] [ENDIF] [NIF age-i(index) le <9> AND age-i(index) ge <1> then] [store age(index) in table(index)(48:48)] [ELSEIF age-i(index) ge <10> then] [store age(index) in table(index)(47:48)] [ELSEIF age(index) is then] [store in table(index)(48:48)] [ELSEIF age(index) is then] [store in table(index)(48:48)] [ENDIF] [store <0> in index2] [NIF MARITL(index) is OR MARITL(index) is then] [store MARITL(index) in table(index)(52:52)] [ELSEIF MARITL(index) isnt < > then] [convert MARITL(index) character to index2 integer] [store Martab(index2) in table(index)(51:53)] [ENDIF] [store <0> in index2] [If SPOUSE(index) isnt < > then convert SPOUSE(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to table(index)(56:56) character] [ELSEIF index2 ge <10> then] [convert index2 integer to table(index)(55:56) character] [ENDIF] [NIF AFNOW(index) is <1> then] [store in table(index)(58:58)] [ELSEIF AFNOW(index) is <2> then] [store in table(index)(58:58)] [ELSE] [store AFNOW(index) in table(index)(58:58)] [ENDIF] [NIF EDUCA(index) is OR EDUCA(index) is then] [store EDUCA(index) in table(index)(61:61)] [ELSEIF EDUCA(index) isnt < > then] [store EDUCA(index) in table(index)(61:62)] [ENDIF] [store RACE(index) in table(index)(64:64)] [store ORIGIN(index) in table(index)(67:68)] [store SSN(index) in table(index)(70:78)] [end do] [store < > in temptext] [NIF NOTEFL eq <1> then] [store in temptext] [ELSEIF NOTEFL eq <2> then] [store in temptext] [ELSEIF NOTEFL eq <3> then] [store in temptext] [ENDIF] [store < > in temp2] [store <{P} All correct> in temp2(1:15)] ** MOVERS ** added skip to get into labor force $d >CHANGE2< Since last time, has any household member had any changes in his or her Marital Status? ** DO NOT READ ** ENTER CHANGES NEEDED FOR ITEMS DISPLAYED BELOW CURRENT RESPONDENT: [fill name(RESPLI)] [fill temptext] LN NAME M RELATION PR SX AGE MAR SP AN ED RC OR SSN [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] [fill temp2] ADD Person NOT LISTED above [if NROSIZ ge <16> then goto NOADDP] [goto P3-SNAM] Enter LINE NUMBER to CHANGE something above [blind] <9-16>

All correct [if sumhrp eq <0> then store RESPLI in sumhrp] [if I-BLANK3 is <1> then goto ck-prlbfr] [goto ck-newper2] ===>__ [goto CHGWHAT] $d [alt 1] >CHANGE2< Desde el mes pasado, ¨ha habido alg£n cambio en el estado civil de alg£n miembro del hogar? ** DO NOT READ ** ENTER CHANGES NEEDED FOR ITEMS DISPLAYED BELOW CURRENT RESPONDENT: [fill name(RESPLI)] [fill temptext] LN NAME M RELATION PR SX AGE MAR SP AN ED RC OR SSN [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] [fill temp2] ADD Person NOT LISTED above [if NROSIZ ge <16> then goto NOADDP] [goto P3-SNAM] Enter LINE NUMBER to CHANGE something above [blind] <9-16>

All correct [if sumhrp eq <0> then store RESPLI in sumhrp] [if I-BLANK3 is <1> then goto ck-prlbfr] [goto ck-newper2] ===>__ [goto CHGWHAT] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] $end ------------------------------------------------------------------------------- $>ck-newper2< [store <0> in index2] [do index <1> NROSIZ] [NIF hhmem(index) is <1> OR hhmem(index) is <3> then] [store <1> in index2] [ENDIF] [NIF hhmem(index) is <2> OR hhmem(index) is <3> then] [store <0> in NWPRFG(index)] [ENDIF] [end do] IF EVERYONE IN THE HOUSEHOLD HAS A USUAL RESIDENCE ELSEWHERE (HHMEM EQ 2) THEN STORES 1 IN UREFLG AND GOES TO THE CHANGE [NIF index2 eq <0> then] [store <1> in UREFLG] [goto CK-PRLBFR] [ENDIF] [store <0> in index] [tablook nwprfg <1> index] [if index eq <0> then goto check-rrp] [goto GET-RRP2] $end ---------------------------------------------------------------------- COMMENT: NOTE TO THE INTERVIEWER. IF THERE ARE ALREADY 16 PEOPLE LIVING HERE AND THEY SAY AT NEWLIV THAT THERE ARE OTHER PEOPLE LIVING HERE. 16 IS THE MAX NUMBER OF PEOPLE $>NOADDP< [reset NOADDP] $d >NOADDP< ** DO NOT READ TO RESPONDENT ** HOUSEHOLD ROSTER IS FULL. ADDITIONAL PERSONS WILL NOT BE INCLUDED IN THE INTERVIEW. LIST THE NAMES AND AGES OF ALL ADDITIONAL HOUSEHOLD MEMBERS IN THE INOTES SCREEN AT THE END OF THE INTERVIEW. ENTER

TO PROCEED ===>_ $end ------------------------------------------------------------------------------ $>cc2FULCK< [NIF CHG-FLAG is <2> then] [if onpath CHANGE2 then goto change2] [ENDIF] [goto change] $end ------------------------------------------------------------------------------ COMES HERE IF THE INTERVIEWER WANTS TO CHANGE SOMETHING FOR A PERSON CHG-FLAG IS USED TO KEEP TRACK OF WHICH CHANGE SCREEN THE INTERVIEW CAME FROM $>CHGWHAT< [multiple CHG-WHAT] [reset CHG-WHAT] [reset error-1] [IF CHG-FLAG is <1> then convert CHANGE character to WHO integer] [IF CHG-FLAG is <2> then convert CHANGE2 character to WHO integer] [store < > in table(1)] [if RESPLI eq WHO then store in table(1)(1:1)] [store name(WHO) in table(1)(3:26)] [store < > in relation(WHO)] [store <0> in index3] [NIF RRP(WHO) is OR RRP(WHO) is then] [store RRP(WHO) in relation(WHO)] [ELSEIF NEWRRP eq <0> then] [convert RRP(WHO) character to index3 integer] [If index3 nq <0> then store reltab(index3) in relation(WHO)] [ELSE] [convert RRP(WHO) character to index3 integer] ** RRP [If index3 nq <0> then store n-reltab(index3) in relation(WHO)] [ENDIF] [store < > in temp] [NIF hhmem(WHO) is <1> then] [store in table(1)(28:28)] [store in temp(1:40)] [ELSEIF hhmem(WHO) is <2> then] [store in table(1)(28:28)] [store in relation(WHO)] [store in temp(1:40)] [ELSEIF hhmem(WHO) is <3> then] [store in relation(WHO)] [store in table(1)(28:28)] [ENDIF] [NIF DELDEC(WHO) is <1> OR DELDEC(WHO) is <3> then] [store <*deleted*> in relation(WHO)] [ELSEIF DELDEC(WHO) is <2> then] [store <*deceased> in relation(WHO)] [ENDIF] [store relation(WHO) in table(1)(30:39)] [NIF sex(WHO) is <2> then] [store in table(1)(42:42)] [ELSEIF sex(WHO) is <1> then] [store in table(1)(42:42)] [ELSE] [store sex(WHO) in table(1)(42:42)] [ENDIF] [store <0> in index2] [If PARENT(WHO) isnt < > then convert PARENT(WHO) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to table(1)(40:40) character] [ELSEIF index2 ge <10> then] [convert index2 integer to table(1)(39:40) character] [ENDIF] [NIF age-i(WHO) le <9> AND age-i(WHO) gt <0> then] [store age(WHO) in table(1)(47:47)] [ELSEIF age-i(WHO) ge <10> then] [store age(WHO) in table(1)(46:47)] [ELSEIF age(WHO) is then] [store in table(1)(47:47)] [ELSEIF age(WHO) is then] [store in table(1)(47:47)] [ENDIF] [store <0> in index2] [NIF MARITL(WHO) is OR MARITL(WHO) is then] [store MARITL(WHO) in table(1)(51:51)] [ELSEIF MARITL(WHO) isnt < > then] [convert MARITL(WHO) character to index2 integer] [store Martab(index2) in table(1)(50:52)] [ENDIF] [store <0> in index2] [If SPOUSE(WHO) isnt < > then convert SPOUSE(WHO) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to table(1)(55:55) character] [ELSEIF index2 ge <10> then] [convert index2 integer to table(1)(55:55) character] [ENDIF] [NIF AFNOW(WHO) is <1> then] [store in table(1)(58:58)] [ELSEIF AFNOW(WHO) is <2> then] [store in table(1)(58:58)] [ELSE] [store AFNOW(WHO) in table(1)(58:58)] [ENDIf] [NIF EDUCA(WHO) is OR EDUCA(WHO) is then] [store EDUCA(WHO) in table(1)(61:61)] [ELSEIF EDUCA(WHO) isnt < > then] [store EDUCA(WHO) in table(1)(60:61)] [ENDIF] [store RACE(WHO) in table(1)(63:63)] [store ORIGIN(WHO) in table(1)(66:67)] [store SSN(WHO) in table(1)(69:77)] [NIF AGERNG(WHO) lt <2> then] [store < > in temp(43:65)] [store < > in temp6] [store < > in temp2] [store < > in temp4] [store < > in temp5] [ELSE] [store <{10} Present Armed Forces status> in temp4] [store <{11} Education (Highest> in temp(43:65)] [store in temp6] [ENDIF] [store <0> in index3] [NIF hhmem(who) is <2> or hhmem(who) is <3> then] [store <1> in index3] [ENDIF] $itemtable >CHG-WHAT< WHAT CHANGE IS NEEDED FOR: 1 2 3-4 5 6 7 8 9 10 11 12 13 14 R NAME M RELATION PR SX AGE MAR SP AN ED RC OR SSN [fill table(1)] <1> Respondent status <8> Age <2> Name <9> MARITAL Status <3> Household membership status -- OR Line number of spouse person STILL in HHLD - URE [fill temp4] <4> [fill/l temp] <5> Relationship [fill temp6] <6> Line number of parent <12> Race <7> Sex recorded incorrectly <13> Origin <14> Social Security number MISTAKE: no change needed ===>__ $end ------------------------------------------------------------------------------ $>CHG-WHAT< [within CHGWHAT] $D [none] <1> Respondent status [goto GET-SHHR] <2> Name [if INDEX3 EQ <1> then goto error-1] [goto GET-SNAM] <3> Household membership status -- person STILL in HHLD - URE [goto GET-SMEM] <4> DEL/UNDEL [if hhmem(WHO) is <1> then goto GET-SDEL] [if INDEX3 EQ <1> then goto GET-UDEL] <5> Relationship [if INDEX3 EQ <1> then goto error-1] [if WHO eq RefPer then goto error-1] [goto GET-SREL] <6> Line number of parent [goto GET-SREL] <7> Sex [if INDEX3 EQ <1> then goto error-1] [goto GET-SSEX] <8> Age [if INDEX3 EQ <1> then goto error-1] [goto GET-SAGE] <9> MARITL/spouse [goto GET-SMAR] <10> Armed Forces [if AGERNG(WHO) lt <2> then goto error-1] [if AGERNG(WHO) ge <6> then goto error-1] [if INDEX3 EQ <1> then goto error-1] [goto GET-SAF] <11> Education [if AGERNG(WHO) lt <2> then goto error-1] [if INDEX3 EQ <1> then goto error-1] [goto GET-SED] <12> Race [If index3 eq <1> then goto error-1] [goto GET-SRCE] <13> Origin [if index3 eq <1> then goto error-1] [goto GET-SOR] <14> Social Security number [if index3 eq <1> then goto error-1] [goto GET-SSSN] MISTAKE: no change needed [if CHG-FLAG is <2> then goto CHANGE2] [goto CHANGE] $end ----------------------------------------------------------------------------- $>error-1< $d >error-1< PERSON NOT ELIGIBLE FOR THIS CHANGE. ENTER

TO BACK UP AND SELECT ANOTHER PRECODE. ===>_ [backto CHGWHAT] $end ------------------------------------------------------------------------------ $>GET-SDEL< [NIF CHG-FLAG is <2> then] [convert CHANGE2 character to WHO integer] [ELSE] [convert CHANGE character to WHO integer] [ENDIF] [store <0> in SDEL_R_P] $end $ROPEN>SDEL< **A** $>GOT-SDEL< [goto CHG-MORE] $end ------------------------------------------------------------------------------ $>GET-UDEL< [NIF CHG-FLAG is <2> then] [convert CHANGE2 character to WHO integer] [ELSE] [convert CHANGE character to WHO integer] [ENDIF] [store <0> in UDEL_R_P] $end $ROPEN>UDEL< **H** $>GOT-UDEL< [NIF hhmem(WHO) is <2> OR hhmem(WHO) is <3> then] [if CHG-FLAG is <2> then goto CHANGE2] [goto CHANGE] [ENDIF] IF YOU UNDELETE A PERSON THAN YOU NEED TO CHECK AND MAKE SURE ALL HIS DEMOGRAPHICS ARE COMPLETE [NIF RRP(WHO) is < > then] [goto GET-SREL] [ELSEIF age(WHO) is < > then] [goto GET-SAGE] [ELSEIF sex(WHO) is < > then] [goto GET-SSEX] [ELSEIF AFNOW(WHO) is < > then] [goto GET-SAF] [ELSEIF Race(WHO) is < > then] [goto GET-SRCE] [ENDIF] [goto CHG-MORE] $end ------------------------------------------------------------------------------ $>GET-SHHR< [NIF CHG-FLAG is <2> AND CHANGE2 isnt then] [convert CHANGE2 character to WHO integer] [ELSEIF CHANGE isnt then] [convert CHANGE character to WHO integer] [ENDIF] [store <0> in SHHR_R_P] $end $ROPEN>SHHR< **I** $>GOT-SHHR< [NIF AGERNG(Refper) eq <1> AND WHO eq refper then] [goto GET-SREF] [ENDIF] [If CHG-FLAG is <2> then goto CHANGE2] [goto CHANGE] $end ------------------------------------------------------------------------------ $>GET-SREF< [NIF CHG-FLAG is <2> AND CHANGE2 isnt then] [convert CHANGE2 character to WHO integer] [ELSEIF CHANGE isnt then] [convert CHANGE character to WHO integer] [ENDIF] [store <0> in SREF_R_P] $end $ROPEN>SREF< **I** $>GOT-SREF< [If CHG-FLAG is <2> then goto CHANGE2] [goto CHANGE] $end ------------------------------------------------------------------------------ $>GET-SNAM< [store <0> in WHO] [NIF CHG-FLAG is <2> then] [convert CHANGE2 character to WHO integer] [ELSE] [convert CHANGE character to WHO integer] [ENDIF] [store <0> in SNAM_R_P] $end $ROPEN>SNAM< **J** $>GOT-SNAM< [NIF CHG-FLAG is <2> AND FNAME-scrn(SNAM_R_P) is then] [goto CHANGE2] [ELSEIF FNAME-scrn(SNAM_R_P) is then] [goto CHANGE] [ENDIF] [NIF CHG-FLAG is <2> then] [goto CHG-MORE] [ELSE] [goto CHG-MORE] [ENDIF] $end ------------------------------------------------------------------------------ $>GET-SMEM< [NIF CHG-FLAG is <2> then] [convert CHANGE2 character to WHO integer] [ELSE] [convert CHANGE character to WHO integer] [ENDIF] [store <0> in SMEM_R_P] $end $ROPEN>SMEM< **C** $>GOT-SMEM< [NIF hhmem(WHO) is <2> OR hhmem(WHO) is <3> then] [If CHG-FLAG is <2> then goto CHANGE2] [goto CHANGE] [ENDIF] IF YOU CHANGE A PERSONS MEMBERSHIP AND HE IS NOW A HOUSEHOLD MEMBER THAN NEED TO CHECK TO MAKE SURE ALL DEMOGRAPHICS ARE COMPLETE [NIF sex(WHO) is < > then] [goto GET-SSEX] [ELSEIF RRP(WHO) is < > then] [goto GET-SREL] [ELSEIF age(WHO) is < > then] [goto GET-SAGE] [ELSEIF MARITL(WHO) is < > then] [goto GET-SMAR] [ELSEIF AFNOW(WHO) is < > then] [goto GET-SAF] [ELSEIF EDUCA(WHO) is < > then] [goto GET-SED] [ELSEIF Race(WHO) is < > then] [goto GET-SRCE] [ELSEIF Origin(WHO) is < > then] [goto GET-SOR] [ENDIF] [goto CHG-MORE] $end ------------------------------------------------------------------------------ $>GET-SSEX< [NIF CHG-FLAG is <2> then] [convert CHANGE2 character to WHO integer] [ELSE] [convert CHANGE character to WHO integer] [ENDIF] [store <0> in SSEX_R_P] $end $ROPEN>SSEX< **E** $>GOT-SSEX< [NIF RRP(WHO) is < > then] [goto GET-SREL] [ELSEIF age(WHO) is < > then] [goto GET-SAGE] [ELSEIF MARITL(WHO) is < > then] [goto GET-SMAR] [ELSEIF AFNOW(WHO) is < > then] [goto GET-SAF] [ELSEIF EDUCA(WHO) is < > then] [goto GET-SED] [ELSEIF Race(WHO) is < > then] [goto GET-SRCE] [ELSEIF Origin(WHO) is < > then] [goto GET-SOR] [ENDIF] [goto CHG-MORE] $end ------------------------------------------------------------------------------ $>GET-SREL< [NIF CHG-FLAG is <2> then] [convert CHANGE2 character to WHO integer] [ELSE] [convert CHANGE character to WHO integer] [ENDIF] [store <0> in SREL_R_P] $end $ROPEN>SREL< **B** $>GOT-SREL< [NIF age(WHO) is < > then] [goto GET-SAGE] [ELSEIF MARITL(WHO) is < > then] [goto GET-SMAR] [ELSEIF AFNOW(WHO) is < > then] [goto GET-SAF] [ELSEIF EDUCA(WHO) is < > then] [goto GET-SED] [ELSEIF Race(WHO) is < > then] [goto GET-SRCE] [ELSEIF Origin(WHO) is < > then] [goto GET-SOR] [ENDIF] [goto CHG-MORE] $end ------------------------------------------------------------------------------ $>GET-SAGE< [NIF CHG-FLAG is <2> then] [convert CHANGE2 character to WHO integer] [ELSE] [convert CHANGE character to WHO integer] [ENDIF] [store <0> in SAGE_R_P] $end $ROPEN>SAGE< **D** $>GOT-SAGE< IF THE RESPONDENT IS LT 15 THAN NEED TO GET ANOTHER RESPONDENT WE ARE ASSUMING THAT SOMEONE LT 15 CAN'T BE A RESPONDENT [NIF AGERNG(RESPLI) eq <1> AND WHO eq RESPLI then] [goto GET-SHHR] [ENDIF] [NIF AGERNG(Refper) eq <1> AND WHO eq refper then] [goto GET-SREF] [ENDIF] [NIF MARITL(WHO) is < > then] [goto GET-SMAR] [ELSEIF AFNOW(WHO) is < > then] [goto GET-SAF] [ELSEIF EDUCA(WHO) is < > then] [goto GET-SED] [ELSEIF Race(WHO) is < > then] [goto GET-SRCE] [ELSEIF Origin(WHO) is < > then] [goto GET-SOR] [ENDIF] [goto CHG-MORE] $end ------------------------------------------------------------------------------ $>GET-SMAR< [NIF CHG-FLAG is <2> then] [convert CHANGE2 character to WHO integer] [ELSE] [convert CHANGE character to WHO integer] [ENDIF] [NIF AGERNG(WHO) lt <2> AND CHG-WHAT isnt <9> then] [goto GOT-SMAR] [ENDIF] [store <0> in SMAR_R_P] $end $ROPEN>SMAR< **E** $>GOT-SMAR< [NIF AFNOW(WHO) is < > then] [goto GET-SAF] [ELSEIF EDUCA(WHO) is < > then] [goto GET-SED] [ELSEIF Race(WHO) is < > then] [goto GET-SRCE] [ELSEIF Origin(WHO) is < > then] [goto GET-SOR] [ENDIF] [goto CHG-MORE] $end ------------------------------------------------------------------------------ $>GET-SAF< [NIF CHG-FLAG is <2> then] [convert CHANGE2 character to WHO integer] [ELSE] [convert CHANGE character to WHO integer] [ENDIF] [convert age(WHO) character to age-i(WHO) integer] [if age-i(WHO) lt <17> then goto GOT-SAF] [store <0> in SAF_R_P] $end $ROPEN>SAF< **F** $>GOT-SAF< [NIF EDUCA(WHO) is < > then] [goto GET-SED] [ELSEIF Race(WHO) is < > then] [goto GET-SRCE] [ELSEIF Origin(WHO) is < > then] [goto GET-SOR] [ENDIF] [goto CHG-MORE] $end -------------------------------------------------------------------------------- $>GET-SED< [NIF CHG-FLAG is <2> then] [convert CHANGE2 character to WHO integer] [ELSE] [convert CHANGE character to WHO integer] [ENDIF] [If AGERNG(WHO) lt <2> then goto GOT-SED] [store <0> in SED_R_P] $end $ROPEN>SED< **H** $>GOT-SED< [NIF Race(WHO) is < > then] [goto GET-SRCE] [ELSEIF Origin(WHO) is < > then] [goto GET-SOR] [ENDIF] [goto CHG-MORE] $end -------------------------------------------------------------------------------- $>GET-SRCE< [NIF CHG-FLAG is <2> then] [convert CHANGE2 character to WHO integer] [ELSE] [convert CHANGE character to WHO integer] [ENDIF] [store <0> in SRCE_R_P] $end $ROPEN>SRCE< **G** $>GOT-SRCE< [IF Origin(WHO) is < > then goto GET-SOR] [goto CHG-MORE] $end ------------------------------------------------------------------------------ $>GET-SOR< [NIF CHG-FLAG is <2> then] [convert CHANGE2 character to WHO integer] [ELSE] [convert CHANGE character to WHO integer] [ENDIF] [store <0> in SOR_R_P] $end $ROPEN>SOR< **J** $>GOT-SOR< [goto CHG-MORE] $end ------------------------------------------------------------------------------ $>GET-SSSN< [NIF CHG-FLAG is <2> then] [convert CHANGE2 character to WHO integer] [ELSE] [convert CHANGE character to WHO integer] [ENDIF] [store <0> in SSSN_R_P] $end $ROPEN>SSSN< **O** $>GOT-SSSN< [goto CHG-MORE] $end ------------------------------------------------------------------------------ THIS SCREEN ASKS IF ANYMORE CHANGES NEED TO BE MADE FOR THE PERSON THAT WAS SELECTED AT THE CHANGE SCREEN. IF NO THEN IT GOES BACK TO THE APPROPRIATE CHANGE SCREEN, IF YES THEN IT GOES BACK TO CHG-WHAT. $>CHG-MORE< [reset CHG-MORE] [NIF CHG-FLAG is <2> then] [convert CHANGE2 character to WHO integer] [ELSE] [convert CHANGE character to WHO integer] [ENDIF] [store < > in table(1)] [if RESPLI eq WHO then store in table(1)(1:1)] [store name(WHO) in table(1)(3:26)] [store < > in relation(WHO)] [store <0> in index3] [NIF RRP(WHO) is OR RRP(WHO) is then] [store RRP(WHO) in relation(WHO)] [ELSEIF NEWRRP eq <0> then] [convert RRP(WHO) character to index3 integer] [If index3 nq <0> then store reltab(index3) in relation(WHO)] [ELSE] [convert RRP(WHO) character to index3 integer] ** RRP [If index3 nq <0> then store n-reltab(index3) in relation(WHO)] [ENDIF] [NIF hhmem(WHO) is <1> then] [store in table(1)(28:28)] [ELSEIF hhmem(WHO) is <2> then] [store in table(1)(28:28)] [store in relation(WHO)] [ELSEIF hhmem(WHO) is <3> then] [store in table(1)(28:28)] [store in relation(WHO)] [ENDIF] [NIF DELDEC(WHO) is <1> OR DELDEC(WHO) is <3> then] [store <*deleted*> in relation(WHO)] [ELSEIF DELDEC(WHO) is <2> then] [store <*deceased> in relation(WHO)] [ENDIF] [store relation(WHO) in table(1)(30:39)] [NIF sex(WHO) is <2> then] [store in table(1)(44:44)] [ELSEIF sex(WHO) is <1> then] [store in table(1)(44:44)] [ELSE] [store sex(WHO) in table(1)(44:44)] [ENDIF] [store <0> in index2] [If PARENT(WHO) isnt < > then convert PARENT(WHO) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to table(1)(42:42) character] [ELSEIF index2 ge <10> then] [convert index2 integer to table(1)(41:42) character] [ENDIF] [NIF age-i(WHO) le <9> AND age-i(WHO) gt <0> then] [store age(WHO) in table(1)(48:48)] [ELSEIF age-i(WHO) ge <10> then] [store age(WHO) in table(1)(47:48)] [ELSEIF age(WHO) is then] [store in table(1)(48:48)] [ELSEIF age(WHO) is then] [store in table(1)(48:48)] [ENDIF] [store <0> in index2] [NIF MARITL(WHO) is OR MARITL(WHO) is then] [store MARITL(WHO) in table(1)(51:53)] [ELSEIF MARITL(WHO) isnt < > then] [convert MARITL(WHO) character to index2 integer] [store Martab(index2) in table(1)(51:53)] [ENDIF] [store <0> in index2] [If SPOUSE(WHO) isnt < > then convert SPOUSE(WHO) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to table(1)(56:56) character] [ELSEIF index2 ge <10> then] [convert index2 integer to table(1)(55:56) character] [ENDIF] [NIF AFNOW(WHO) is <1> then] [store in table(1)(58:58)] [ELSEIF AFNOW(WHO) is <2> then] [store in table(1)(58:58)] [ELSE] [store AFNOW(WHO) in table(1)(58:58)] [ENDIf] [NIF EDUCA(WHO) is OR EDUCA(WHO) is then] [store EDUCA(WHO) in table(1)(62:62)] [ELSEIF EDUCA(WHO) isnt < > then] [store EDUCA(WHO) in table(1)(61:62)] [ENDIF] [store RACE(WHO) in table(1)(64:64)] [store ORIGIN(WHO) in table(1)(67:68)] [store SSN(WHO) in table(1)(70:78)] $d >CHG-MORE< ARE ANY MORE CHANGES NEEDED FOR: R NAME M RELATION PR SX AGE MAR SP AN ED RC OR SSN [fill table(1)] <1> Yes [goto CHGWHAT] <2> No [if CHG-FLAG is <2> then goto CHANGE2] [goto CHANGE] ===>_ $end -------------------------------------------------------------------------------- ---------------------------------------------------------------------- ---------------------------------------------------------------------- THE FOLLOWING CODE ACCESSES THE NECESSARY ROSTERS IF SOMEONE WAS ADDED IN CHANGE OR CHANGE2. (WE ASK NAME HHMEM , RELATIONSHIP AND SEX FIRST THEN AFTER EVERYBODY HAS BEEN ADDED IT WILL ASK THE REST OF THE DEMOGRAPHICS FOR EVERONE THAT WAS ADDED.) $>P3-SNAM< [store <0> in WHO] [store <0> in SNAM_R_P] $end $ROPEN>SNAM< ** ** $>PT3-SNAM< IF A MISTAKE WAS MADE AND A PERSON WAS NOT REALY TO BE ADDED (M IN FNAME-SCRN) THEN THE CODE BELOW WILL RETURN YOU TO THE APPROPRIATE ITEM FROM WHICH YOU CAME [NIF FNAME-scrn(SNAM_R_P) is then] [if CHANGE is then goto CHANGE] [if CHANGE2 is then goto CHANGE2] [ENDIF] $end ----------------------------------------------------------------------------- COLLECT MEMBERSHIP OF THE PERSON ADDED IN THE MCHILD-MELSE SERIES $>P3-SMEM< [store <0> in SMEM_R_P] $end $ROPEN>SMEM< **C** $>PT3-SMEM< $end ----------------------------------------------------------------------------- COLLECT SEX OF THE PERSON ADDED IN THE MCHILD-MELSE SERIES $>P3-SSEX< [store <0> in SSEX_R_P] $end $ROPEN>SSEX< **E** $>PT3-SSEX< [if CHANGE is then goto CHANGE] [if CHANGE2 is then goto CHANGE2] $end ------------------------------------------------------------------------------- =================================================================== $>GET-RRP2< [store <0> in SRRP2_R_P] $end $ROPEN>SRRP2< $>GOT-RRP2< [store <0> in SRRP2_R_P] COMMENT: SETS UP RRP FOR THE REFERENCE PERSON. IT STARTS WITH A VALUE OF 2. IT THEN CHECKS IF THERE IS A HOUSEHOLD MEMBER (HHMEM = 1) THAT HAS A RRP VALUE BETWEEN 3 AND 9. IF THESE THREE CONDITIONS ARE MET, THEN IT REASSIGNS THE VALUE OF 1. [store <02> in RRP(RefPer)] [if NEWRRP eq <1> then store <19> in RRP(RefPer)] ** RRP [do index <1> NROSIZ] [store <0> in index2] [convert RRP(index) character to tabindex(index) integer] [If hhmem(index) is <1> then add <1> to index2] [NIF tabindex(index) ge <3> AND tabindex(index) lt <9> then] [add <1> to index2] [ENDIF] SPLIT BECAUSE WE DO NOT WANT TO INCLUDE RRP=21 [NIF tabindex(index) ge <22> AND tabindex(index) lt <27> then] ** RRP [add <1> to index2] [ELSEIF tabindex(index) eq <20> then] [add <1> to index2] [ENDIF] [NIF index2 eq <2> AND NEWRRP eq <0> then] ** RRP [store <01> in RRP(RefPer)] [ELSEIF index2 eq <2> AND NEWRRP eq <1> then] [store <18> in RRP(RefPer)] [ENDIF] [end do] [goto NOW-DEM2] $end ------------------------------------------------------------------------------- THIS ROSTER COLLECTS LINE NUMBER OF PARENT FOR NECESSARY PERSONS $RBEGIN>SRRP2< [maxelt 16] ---------------------------------------------------------------------- $>ck-rrp2< [if R_P eq RefPer then roster loop] [if name(R_P) is then goto aft-rrp2] DO NOT COLLECT DEMOGRAPHICS FOR NON HOUSEHOLD MEMBERS [NIF hhmem(R_P) is <2> OR hhmem(R_P) is <3> then] [goto aft-rrp2] [ELSEIF NWPRFG(R_P) nq <1> then] [goto aft-rrp2] [ENDIF] [store R_P in WHO] [store <0> in SREL_R_P] $end $ROPEN>SREL< **B** $>aft-rrp2< [if name(R_P) is then roster exit] [roster loop] $end ------------------------------------------------------------------------------- $REND>SRRP2< ------------------------------------------------------------------------------ COMMENT: DEM ROSTER COLLECTS AGE, MARITAL, SEX, ARMED FORCES AND EDUCATION FOR NEW CASES (MIS IS 1) AND FOR ANYONE THAT WAS ADDED IN MCHILD THRU MELSE $>NOW-DEM2< [store <0> in DEM2_R_P] $end $ROPEN>DEM2< $>AFT-DEM2< [store <0> in DEM2_R_P] [store NROSIZ in index2] [add <1> to index2] [if index2 gt <16> then store <16> in index2] [do index <1> index2] [store <1> in pelig(index)] [NIF DELDEC(index) is <9> then] [store <11> in pelig(index)] [ELSEIF Donper(index) is <1> then] [store <2> in pelig(index)] [ELSEIF misper(index) is <1> then] [store <3> in pelig(index)] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <1> then] [store <9> in pelig(index)] [ELSEIF DELDEC(index) is <2> then] [store <10> in pelig(index)] [ELSEIF hhmem(index) is <2> OR hhmem(index) is <3> then] [store <8> in pelig(index)] [ELSEIF AGERNG(index) eq <1> then] [store <7> in pelig(index)] [ELSEIF AFNOW(index) is <1> then] [store <6> in pelig(index)] [ELSEIF AGERNG(index) eq <9> then] [store <5> in pelig(index)] [ENDIF] [end do] [store <0> in index] [tablook pelig <11> index] [if index eq <0> then store <16> in index] checks for 16 person hh [add <1> to index] First position after EOL [do index2 index <16>] [store <12> in pelig(index2)] [end do] [store <0> in index2] [store <0> in index3] [do index <1> NROSIZ] [if pelig(index) eq <7> then add <1> to index2] [if pelig(index) eq <8> then add <1> to index3] [end do] IF EVERYONE IS UNDER 15 OR URE THEN GO TO THE CHANGE SCREEN [NIF index2 eq NROSIZ then] [store <1> in AGEFLG] [goto ST-NWPRFG] [ELSEIF index3 eq NROSIZ then] [store <1> in UREFLG] [goto CHANGE] [ENDIF] [goto NOW3-RCE] $end ------------------------------------------------------------------------------- COMMENT: FOR CASES WERE EVERYONE IS UNDER 15 WE NEED TO SET NWPRFG TO ZERO BEFORE GOING TO CHANGE - ADDED 12/23/93 $>ST-NWPRFG< [do index <1> NROSIZ] [store <0> in NWPRFG(index)] [end do] [goto CHANGE] $end ---------------------------------------------------------------------- $RBEGIN>DEM2< [maxelt 16] ------------------------------------------------------------------------------- COMMENT: IF THE ROSTER POSITION IS GREATER THAN THE NUMBER OF PEOPLE IN THE HOUSEHOLD THAN EXIT. $>pre-DEM2< [if R_P gt NROSIZ then roster exit] DO NOT COLLECT DEMOGRAPHICS FOR NON HOUSEHOLD MEMBERS [NIF hhmem(R_P) is <2> OR hhmem(R_P) is <3> then] [roster loop] [ELSEIF NWPRFG(R_P) nq <1> then] [roster loop] [ENDIF] $end _______________________________________________________________________________ COLLECT RELATIONSHIP OF THE PERSON ADDED IN THE MCHILD-MELSE SERIES $>P3-SREL< [store <0> in SREL_R_P] [store R_P in WHO] $end $ROPEN>SREL< ** ** $>PT3-SREL< $end ---------------------------------------------------------------------------- $>P3-SAGE< [if age(R_P) isnt < > then goto PT3-SAGE] [store R_P in WHO] [store <0> in SAGE_R_P] $end $ROPEN>SAGE< **D** $>PT3-SAGE< $end ------------------------------------------------------------------------------- COLLECTS MARITL STATUS. IF AGE IS LT 15 THAN DON'T ASK MARITL STATUS. $>P3-SMAR< [IF AGERNG(R_P) lt <2> then goto PT3-SMAR] [if MARITL(R_P) isnt < > then goto PT3-SMAR] [store R_P in WHO] [store <0> in SMAR_R_P] $end $ROPEN>SMAR< $>PT3-SMAR< [goto P3-SAF] $end -------------------------------------------------------------------------------- COLLECTS ARMED FORCES STATUS. IF AGE IS LT 15 THAN DON'T ASK ARMED FORCE STATUS. $>P3-SAF< [convert age(R_P) character to age-i(R_P) integer] [if age-i(R_P) lt <17> then goto P3-SED] [store R_P in WHO] [store <0> in SAF_R_P] $end $ROPEN>SAF< **F** $>PT3-SAF< [goto P3-SED] $end ------------------------------------------------------------------------------- COLLECTS EDUCATIONAL STATUS. DON'T COLLECT IF AGE IS LT 15. $>P3-SED< [If AGERNG(R_P) lt <2> then roster loop] [store R_P in WHO] [store <0> in SED_R_P] $end $ROPEN>SED< $>PT3-SED< [roster loop] $end -------------------------------------------------------------------------- $REND>DEM2< =============================================================================== COMMENT: THE FOLLOWING ROSTER COLLECTS RACE FOR ALL NEW CASES (MIS IS 1) AND FOR ANYONE THAT WAS ADDED IN MCHILD THRU MELSE $>NOW3-RCE< [store <0> in RCE3_R_P] $end $ROPEN>RCE3< $>AFT3-RCE< [goto NOW3-ORIG] $end ---------------------------------------------------------------------------- $RBEGIN>RCE3< [maxelt 16] ------------------------------------------------------------------------------- $>pre-RCE3< [if R_P gt NROSIZ then roster exit] [NIF hhmem(R_P) is <2> OR hhmem(R_P) is <3> then] [roster loop] [ELSEIF NWPRFG(R_P) nq <1> then] [roster loop] [ELSEIF RACE(R_P) is AND MISFLG is <1> then] [roster loop] ADDED JAN 95 [ELSEIF RACE(R_P) is AND MISFLG is <1> then] [roster loop] ADDED JAN 95 [ENDIF] $end ----------------------------------------------------------------------------- $>P3-SRCE< [store R_P in WHO] [store <0> in SRCE_R_P] $end $ROPEN>SRCE< **G** $>PT3-SRCE< [roster loop] $end ------------------------------------------------------------------------------- $REND>RCE3< =============================================================================== COMMENT: THE FOLLOWING ROSTER COLLECTS ORIGIN FOR ALL NEW CASES (MIS IS 1) AND FOR ANYONE THAT WAS ADDED IN MCHILD THRU MELSE $>NOW3-ORIG< [store <0> in ORIG3_R_P] $end $ROPEN>ORIG3< $>AFT-ORIG3< [goto NOW3-SOCN] $end ---------------------------------------------------------------------------- $RBEGIN>ORIG3< [maxelt 16] ------------------------------------------------------------------------------- $>pre-ORIG3< [if R_P gt NROSIZ then roster exit] [NIF hhmem(R_P) is <2> OR hhmem(R_P) is <3> then] [roster loop] [ELSEIF NWPRFG(R_P) nq <1> then] [roster loop] [ELSEIF ORIGIN(R_P) is AND MISFLG is <1> then] [roster loop] ADDED JAN 95 [ELSEIF ORIGIN(R_P) is AND MISFLG is <1> then] [roster loop] ADDED JAN 95 [ENDIF] $end _______________________________________________________________________________ $>P3-SOR< [store R_P in WHO] [store <0> in SOR_R_P] $end $ROPEN>SOR< **G** $>PT3-SOR< [roster loop] $end ------------------------------------------------------------------------------- $REND>ORIG3< =============================================================================== COMMENT: THE FOLLOWING ROSTER COLLECTS SOCIAL SECURITY FOR ALL NEW CASES (MIS IS 1) AND FOR ANYONE THAT WAS ADDED IN MCHILD THRU MELSE THE GOTO WAS ADDED BECAUSE WE DO NOT WANT TO COLLECT SOCIAL SECURITY AT THIS TIME, BUT WE MAY IN THE FUTURE. (CW 1/1/92) $>NOW3-SOCN< [store <0> in SOCN3_R_P] $end $ROPEN>SOCN3< $>AFT3-SOCN< [store <0> in nwprfg(WHO)] [goto CHANGE] $end ---------------------------------------------------------------------------- $RBEGIN>SOCN3< [maxelt 16] ------------------------------------------------------------------------------- $>pre-SSN3< [if R_P gt NROSIZ then roster exit] [NIF hhmem(R_P) is <2> OR hhmem(R_P) is <3> then] [roster loop] [ELSEIF NWPRFG(R_P) nq <1> then] [roster loop] [ENDIF] $end _______________________________________________________________________________ COMMENT: Social Security ASKED FOR MIS-1 AND MIS-5 AND IN jAN FOR MIS-2 AND MIS-6; IN FEB FOR MIS-2, MIS-3, MIS-6, AND MIS-7; AND IN MAR FOR MIS-2, MIS-3, MIS-4 MIS-6, MIS-7, AND MIS-8. $>P3-SSSN< ** SPD ** entire item revised [If AGERNG(R_P) lt <2> then store <0> in NWPRFG(R_P)] [If AGERNG(R_P) lt <2> then roster loop] [store <0> in index] [IF SSN(R_P) is < > then store <1> in index] [If index nq <1> then store <0> in NWPRFG(R_P)] [If index nq <1> then roster loop] [store R_P in WHO] [store <0> in SSSN_R_P] $end $ROPEN>SSSN< $>PT3-SSSN< [store <0> in NWPRFG(R_P)] [roster loop] $end ------------------------------------------------------------------------------- $REND>SOCN3< ============================================================================= CHECK INSTRUCTIONS DELETED IN DECEMBER 94 $>check-rrp< [if CHG-FLG eq <1> then goto PRE-NONREL] ADDED JAN 95 [goto CKHIS1] **S $end ---------------------------------------------------------------------------- $>PRE-NONREL< ADDED JAN 95 [store <0> in NONREL_R_P] $end $ROPEN>NONREL< $>AFT-NONREL< [do index <1> NROSIZ] [store <0> in CHGPER(index)] [end do] [goto CK-PRLBFR] $end ---------------------------------------------------------------------- $RBEGIN>NONREL< [maxelt 16] ------------------------------------------------------------------------------- $>CK-NONREL< [if R_P gt nrosiz then roster exit] [if HHMEM(R_P) isnt <1> then roster loop] [if CHGPER(R_P) is <1> then roster loop] [store <0> in index] [convert RRP(R_P) character to index integer] [NIF index ge <31> AND index le <38> then] [goto vr2-nonrel] [ENDIF] [roster loop] $end ---------------------------------------------------------------------- $>vr2-nonrel< [if notbacked then reset vr2-nonrel] [If SBFAM-1(R_P) is then reset SBFAM2-1] [store < > in areis] [store < > in temptext] [store < > in temp3] [store < > in werewas] [NIF R_P eq RESPLI then] [store in areis] [If curralt nq <1> then store in temptext] [If curralt eq <1> then store in temptext] [store in werewas] [ELSE] [store in areis] [store name(R_P) in temptext] [store in werewas] [ENDIF] [NIF R_P eq RefPer then] [if curralt nq <1> then store in temp3] [If curralt eq <1> then store in temp3] [ELSE] [store name(Refper) in temp3] [ENDIF] [store < > in temp4] [combine temptext < > werewas into temp4] [store < > in temp2] [store < > in temp5] [store in temp6] [NIF REPLCE eq <1> OR misflg is <1> then] [If curralt nq <1> then combine < > temp4 into temp2] [If curralt nq <1> then combine < > temp3 into temp5] [If curralt nq <1> then store in temp6] [If curralt eq <1> then combine < > temptext into temp2] [If curralt eq <1> then combine < no era pariente de> < > temp3 into temp5] [ENDIF] $display >vr2-nonrel< [fill temp2] [fill temp5] [fill areis] [fill temptext] related to anyone [fill temp6] this household? <1> Yes [goto PRE-SBFAM2] <2> No ===>_ [goto nonrel-st2] $d [alt 1] >vr2-nonrel< [fill temp2] [fill temp5] ¨Es [fill temptext] pariente de alg£n otro miembro de este hogar? <1> S¡ [goto PRE-SBFAM2] <2> No ===>_ [goto nonrel-st2] $end ------------------------------------------------------------------------------ $>PRE-SBFAM2< ** RRP [if NEWRRP eq <0> then store <10> in RRP(R_P)] [if RRP(R_P) is <21> then store <31> in RRP(R_P)] [if RRP(R_P) is <32> then store <31> in RRP(R_P)] [if RRP(R_P) is <28> then store <33> in RRP(R_P)] [if RRP(R_P) is <34> then store <33> in RRP(R_P)] [if RRP(R_P) is <29> then store <35> in RRP(R_P)] [if RRP(R_P) is <36> then store <35> in RRP(R_P)] [if RRP(R_P) is <30> then store <37> in RRP(R_P)] [if RRP(R_P) is <38> then store <37> in RRP(R_P)] $end ---------------------------------------------------------------------- $>SBFAMILY2< [multiple SBFAM2-1 SBFAM2-2 SBFAM2-3 SBFAM2-4] [If notbacked then reset SBFAM2-1] [If notbacked then reset SBFAM2-2] [If notbacked then reset SBFAM2-3] [If notbacked then reset SBFAM2-4] [store < > in areis] [store < > in temptext] [NIF R_P eq RESPLI then] [store in areis] [If curralt nq <1> then store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [store in areis] [store name(R_P) in temptext] [ENDIF] [do index <1> <16>] [store < > in table(index)] [store < > in xbad(index)] [NIF LINENO(index) is < > then] [store < > in table(index)(3:4)] [convert index integer to xbad(index) character] [ENDIF] [end do] [do index <1> NROSIZ] [if hhmem(index) is <1> then store in table(index)(1:1)] [store <0> in index2] [convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to table(index)(4:4) character] [ELSEIF index2 ge <10> then] [convert index2 integer to table(index)(3:4) character] [ENDIF] [NIF RESPLI eq index AND curralt nq <1> then] [store in table(index)(6:29)] [ELSEIF RESPLI eq index AND curralt eq <1> then] [store in table(index)(6:29)] [ELSE] [store name(index) in table(index)(6:29)] [ENDIF] [store < > in relation(index)] [store <0> in index3] [convert RRP(index) character to index3 integer] [NIF index3 nq <0> AND NEWRRP eq <0> then] ** RRP [store reltab(index3) in relation(index)] [ELSEIF index3 nq <0> AND NEWRRP eq <1> then] [store n-reltab(index3) in relation(index)] [ENDIF] [NIF hhmem(index) is <2> then] [store in relation(index)] [ELSEIF hhmem(index) is <3> then] [store in relation(index)] [ENDIF] [NIF DELDEC(index) is <1> OR DELDEC(index) is <3> then] [store <*deleted*> in relation(index)] [ELSEIF DELDEC(index) is <2> then] [store <*deceased> in relation(index)] [store <*DECEASED*> in table(index)(6:29)] [ENDIF] [store relation(index) in table(index)(31:40)] [store SUBFAM(index) in table(index)(43:54)] [NIF hhmem(index) is <2> OR HHMEM(index) is <3> then] [convert index integer to xbad(index) character] [ENDIF] [NIF RRP(index) is <19> OR RRP(index) is <2> then] [convert index integer to xbad(index) character] [ENDIF] [end do] [convert R_P integer to xbad(R_P) character] $itemtable >SBFAMILY2< Who [fill areis] [fill temptext] related to? PROBE: Anyone else? ENTER FOR NO MORE/ FOR MISTAKE LN NAME RELATION SUBFAMILY [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] ENTER LINE NUMBER for each household member to whom [fill temptext] [fill areis] related. ===>__ ===>__ ===>__ ===>__ $d [alt 1] >SBFAMILY2< ¨De qui‚n es pariente [fill temptext]? PROBE: ¨De alguien m s? ENTER FOR NO MORE/ FOR MISTAKE LN NAME RELATION SUBFAMILY [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] ENTER LINE NUMBER for each household member to whom [fill temptext] [fill areis] related. ===>__ ===>__ ===>__ ===>__ $end -------------------------------------------------------------------------------- $>SBFAM2-1< [within SBFAMily2] $display [none] <1-16> Mistake [backto vr2-nonrel:R_P] Don't know [if NEWRRP eq <0> then store <12> in RRP(R_P)] [if RRP(R_P) is <31> then store <32> in RRP(R_P)] [if RRP(R_P) is <33> then store <34> in RRP(R_P)] [if RRP(R_P) is <35> then store <36> in RRP(R_P)] [if RRP(R_P) is <37> then store <38> in RRP(R_P)] [roster loop] Refused [if NEWRRP eq <0> then store <12> in RRP(R_P)] [if RRP(R_P) is <31> then store <32> in RRP(R_P)] [if RRP(R_P) is <33> then store <34> in RRP(R_P)] [if RRP(R_P) is <35> then store <36> in RRP(R_P)] [if RRP(R_P) is <37> then store <38> in RRP(R_P)] [roster loop] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end $>SBFAM2-2< [within SBFAMily2] $display [none] <1-16> No more [goto SBFAM-st2] Don't know [goto SBFAM-st2] Refused [goto SBFAM-st2] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end $>SBFAM2-3< [within SBFAMily2] $display [none] <1-16> No more [goto SBFAM-st2] Don't know [goto SBFAM-st2] Refused [goto SBFAM-st2] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end $>SBFAM2-4< [within SBFAMily2] $display [none] <1-16> No more [goto SBFAM-st2] Don't know [goto SBFAM-st2] Refused [goto SBFAM-st2] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end -------------------------------------------------------------------------------- $>SBFAM-st2< [store <0> in index] [store <0> in index2] [store <0> in index3] [store <0> in index4] [store < > in SUBFAM(R_P)] [NIF SBFAM2-1(R_P) isnt AND SBFAM2-1(R_P) isnt then] [if onpath SBFAM2-1:R_P then convert SBFAM2-1(R_P) character to index integer] [ENDIF] [NIF index eq <0> then] [ELSEIF RRP(index) is <11> then] [store <10> in RRP(index)] [ELSEIF RRP(index) is <21> then] [store <31> in RRP(index)] ** RRP [ELSEIF RRP(index) is <28> then] [store <33> in RRP(index)] [ELSEIF RRP(index) is <29> then] [store <35> in RRP(index)] [ELSEIF RRP(index) is <30> then] [store <37> in RRP(index)] [ENDIF] [NIF SBFAM2-2(R_P) isnt AND SBFAM2-2(R_P) isnt then] [if onpath SBFAM2-2:R_P then convert SBFAM2-2(R_P) character to index2 integer] [ENDIF] [NIF index2 eq <0> then] [ELSEIF RRP(index2) is <11> then] [store <10> in RRP(index2)] [ELSEIF RRP(index2) is <21> then] [store <31> in RRP(index2)] ** RRP [ELSEIF RRP(index2) is <28> then] [store <33> in RRP(index2)] [ELSEIF RRP(index2) is <29> then] [store <35> in RRP(index2)] [ELSEIF RRP(index2) is <30> then] [store <37> in RRP(index2)] [ENDIF] [NIF SBFAM2-3(R_P) isnt AND SBFAM2-3(R_P) isnt then] [if onpath SBFAM2-3:R_P then convert SBFAM2-3(R_P) character to index3 integer] [ENDIF] [NIF index3 eq <0> then] [ELSEIF RRP(index3) is <11> then] [store <10> in RRP(index3)] [ELSEIF RRP(index3) is <21> then] [store <31> in RRP(index3)] ** RRP [ELSEIF RRP(index3) is <28> then] [store <33> in RRP(index3)] [ELSEIF RRP(index3) is <29> then] [store <35> in RRP(index3)] [ELSEIF RRP(index3) is <30> then] [store <37> in RRP(index3)] [ENDIF] [NIF SBFAM2-4(R_P) isnt AND SBFAM2-4(R_P) isnt then] [if onpath SBFAM2-4:R_P then convert SBFAM2-4(R_P) character to index4 integer] [ENDIF] [NIF index4 eq <0> then] [ELSEIF RRP(index4) is <11> then] [store <10> in RRP(index4)] [ELSEIF RRP(index4) is <21> then] [store <31> in RRP(index4)] ** RRP [ELSEIF RRP(index4) is <28> then] [store <33> in RRP(index4)] [ELSEIF RRP(index4) is <29> then] [store <35> in RRP(index4)] [ELSEIF RRP(index4) is <30> then] [store <37> in RRP(index4)] [ENDIF] [NIF index ge <1> AND index le <9> then] [convert index integer to SUBFAM(R_P)(2:2) character] [ELSEIF index ge <10> then] [convert index integer to SUBFAM(R_P)(1:2) character] [ENDIF] [NIF index2 ge <1> AND index2 le <9> then] [convert index2 integer to SUBFAM(R_P)(5:5) character] [ELSEIF index2 ge <10> then] [convert index2 integer to SUBFAM(R_P)(4:5) character] [ENDIF] [NIF index3 ge <1> AND index3 le <9> then] [convert index3 integer to SUBFAM(R_P)(8:8) character] [ELSEIF index3 ge <10> then] [convert index3 integer to SUBFAM(R_P)(7:8) character] [ENDIF] [NIF index4 ge <1> AND index4 le <9> then] [convert index4 integer to SUBFAM(R_P)(11:11) character] [ELSEIF index4 ge <10> then] [convert index4 integer to SUBFAM(R_P)(10:11) character] [ENDIF] [roster loop] $end ---------------------------------------------------------------------- $>nonrel-st2< [If NEWRRP eq <0> then store <12> in RRP(R_P)] [NIF RRP(R_P) is <31> OR RRP(R_P) is <21> then] ** RRP [store <32> in RRP(R_P)] [ELSEIF RRP(R_P) is <33> OR RRP(R_P) is <28> then] [store <34> in RRP(R_P)] [ELSEIF RRP(R_P) is <35> OR RRP(R_P) is <29> then] [store <36> in RRP(R_P)] [ELSEIF RRP(R_P) is <37> OR RRP(R_P) is <30> then] [store <38> in RRP(R_P)] [ENDIF] [store < > in SUBFAM(R_P)] $end ------------------------------------------------------------------------------- $REND>NONREL< ================================================================================ ******************************************************************************* **7B** CONTROL CARD CONTROL CARD ROSTERS ******************************************************************************** Table of Rosters: **A** SDEL Delete a person from the household **B** SREL Change/Collect relationship **C** SMEM Change person to not a household member -- still in hhld **D** SAGE Change/Collect age or date of birth **E** SMAR Change/Collect MARITL status (persons 15+) **F** SSEX Change/Collect sex **G** SAF Change/Collect current Armed Forces status, ever serve, when (persons 15+) **H** SED Change/Collect EDUCA status (persons 15+) **I** SRCE Collect race **J** SOR Collect origin **K** UDEL Change a person listed on the roster as a non-member to a member **L** SHHR Change the current respondent **M** SNAM Change/Collect a name of a household member **N** SREF Change the reference person **O** SSSN Collect Social Security Number ================================================================================ ******************************************************************************* **A** SDEL ******************************************************************************** $RBEGIN>SDEL< [maxelt 1] ------------------------------------------------------------------------------- $>DELPER< [if notbacked then reset DELPER] [if notbacked then reset RSN1] ADDED FOR ** MOVERS ** [if notbacked then reset RSN2] [if notbacked then reset RSN3] [if notbacked then reset RSNADD1] [if notbacked then reset RSNADR1] [if notbacked then reset RSNADR2] [if notbacked then reset RSNCITY] [if notbacked then reset RSNSTATE] [if notbacked then reset RSNZIP] [if notbacked then reset RSNTEL1] [if notbacked then reset RSNAREA] [if notbacked then reset RSNNUMB] [if notbacked then reset RSNEXTN] [if notbacked then reset WHOWITH1] [if notbacked then reset WHOWITH2] [if notbacked then reset WHOWITH3] [if notbacked then reset WHOWITH4] CHANGED SKIPS FOR ** MOVERS ** changed (2) and (5) for ** SPD ** $d >DELPER< (DO NOT ASK) WHY IS [fill name(WHO)] TO BE DELETED? <1> Person deceased [goto FOR-SREF] <2> Person moved out [IF MISFLG is <1> then goto FOR-SREF] [IF I-Blank3 is <1> then goto FOR-SREF] [goto RSNLFT] <3> Person left - was a URE last month [goto FOR-SREF] <4> To correct previous mistake [goto FOR-SREF] <5> Person is a URE this month [IF MISFLG is <1> then goto FOR-SREF] [IF I-Blank3 is <1> then goto FOR-SREF] [goto RSNLFT] MISTAKE: DO NOT DELETE PERSON [roster exit] ===>_ $end ----------------------------------------------------------------------------- $>RSNLFT< [multiple RSN1 RSN2 RSN3] ADDED FOR ** MOVERS ** $itemtable >RSNLFT< Why did [fill name(WHO)] move? ENTER ALL THAT APPLY ENTER FOR NO MORE <1> Institutionalized <2> Living in Armed Forces barracks <3> Moved outside of U.S. <4> Separation or divorce <5> Marriage <6> Became employed/unemployed <7> Due to job change <8> Going to school <9> Other ===>_ ===>_ ===>_ $end ---------------------------------------------------------------------- $>RSN1< [within RSNLFT] $d [none] <1-9> $end $>RSN2< [within RSNLFT] $d [none] <1-9> [goto CK-RSNLFT] $edit [notequal RSN1(R_P)] $end $>RSN3< [within RSNLFT] $d [none] <1-9> $edit [notequal RSN1(R_P)] [notequal RSN2(R_P)] $end ---------------------------------------------------------------------- $>CK-RSNLFT< ADDED FOR ** MOVERS ** [store RSN1(R_P) in RSNL1(WHO)] [store RSN2(R_P) in RSNL2(WHO)] [store RSN3(R_P) in RSNL3(WHO)] [store <0> in index] [NIF RSN1(R_P) is <1> OR RSN1(R_P) is <2> then] [if onpath RSN1:R_P then store <1> in index] [ELSEIF RSN1(R_P) is <3> then] [if onpath RSN1:R_P then store <1> in index] [ENDIF] [NIF RSN2(R_P) is AND index eq <1> then] DO NOT FOLLOW [if onpath RSN2:R_P then goto FOR-SREF] [ENDIF] [store <0> in index] [NIF RSN1(R_P) is <1> OR RSN1(R_P) is <2> then] [if onpath RSN1:R_P then store <1> in index] [ELSEIF RSN1(R_P) is <3> then] [if onpath RSN1:R_P then store <1> in index] [ENDIF] [NIF RSN2(R_P) is <1> OR RSN2(R_P) is <2> then] [if onpath RSN2:R_P then add <1> to index] [ELSEIF RSN2(R_P) is <3> then] [if onpath RSN2:R_P then add <1> to index] [ENDIF] [NIF RSN3(R_P) is AND index eq <2> then] DO NOT FOLLOW [if onpath RSN3:R_P then goto FOR-SREF] [ENDIF] [store <0> in index] [NIF RSN1(R_P) is <1> OR RSN1(R_P) is <2> then] [if onpath RSN1:R_P then store <1> in index] [ELSEIF RSN1(R_P) is <3> then] [if onpath RSN1:R_P then store <1> in index] [ENDIF] [NIF RSN2(R_P) is <1> OR RSN2(R_P) is <2> then] [if onpath RSN2:R_P then add <1> to index] [ELSEIF RSN2(R_P) is <3> then] [if onpath RSN2:R_P then add <1> to index] [ENDIF] [NIF RSN3(R_P) is <1> OR RSN3(R_P) is <2> then] [if onpath RSN3:R_P then add <1> to index] [ELSEIF RSN3(R_P) is <3> then] [if onpath RSN3:R_P then add <1> to index] [ENDIF] [IF index eq <3> then goto FOR-SREF] DO NOT FOLLOW $end ---------------------------------------------------------------------- $>RSNADD< [multiple RSNADD1 RSNADR1 RSNADR2 RSNCITY RSNSTATE RSNZIP] ADDED FOR ** MOVERS ** $itemtable >RSNADD< What is the new address for [fill name(WHO)]? FR: Do you know the new address? <1> Yes <2> No ===>_ STREET ADDRESS: ===>______________________________________________________ ===>______________________________________________________ CITY: ===>______________________ STATE: ===>__ Help ZIP: ===>_____ $end ------------------------------------------------------------------------------- $>RSNADD1< [within RSNADD] $d [none] <1> <2> [goto ST-RSNADDR] $end $>RSNADR1< [within RSNADD] $display [none] ===>____________________________________ $edit [anychar] $end $>RSNADR2< [within RSNADD] $display [none] ===>____________________________________ $edit [anything] $end $>RSNcity< [within RSNADD] $display [none] ===>______________________ $edit [anychar] $end $>RSNSTATE< [within RSNADD] $display [none] [referto state-ref] ===>__ $edit [precodes] $end $>RSNzip< [within RSNADD] $display [none] ===>_____ $edit [numeric] $end -------------------------------------------------------------------------------- $>ST-RSNADDR< ADDED FOR ** MOVERS ** [NIF RSNADD1(R_P) is <2> then] [store < > in RSNST1(WHO)] [store < > in RSNST2(WHO)] [store < > in RSNCT(WHO)] [store < > in RSNST(WHO)] [store < > in RSNZP(WHO)] [goto RSNTEL] [ENDIF] [store RSNADR1(R_P) in RSNST1(WHO)] [store RSNADR2(R_P) in RSNST2(WHO)] [store RSNCITY(R_P) in RSNCT(WHO)] [store RSNSTATE(R_P) in RSNST(WHO)] [store RSNZIP(R_P) in RSNZP(WHO)] $end ------------------------------------------------------------------------------- $>RSNTEL< [multiple RSNTEL1 RSNAREA RSNNUMB RSNEXTN] ADDED FOR ** MOVERS ** [store <1000000> in xbad(1)] [store <100> in xbad(2)] $itemtable >RSNTEL< What is the new telephone number for [fill name(WHO)]? FR: Do you know the new telephone number? <1> Yes <2> No ===>_ Area Code:==>___ New Number ===>___-____ EXT: ===>____ IF NO EXTENSION, PRESS ENTER $end --------------------------------------------------------------------- $>RSNTEL1< [within RSNTEL] $display [none] <1> <2> [goto ST-RSNTEL] $end $>RSNAREA< [within RSNTEL] $display [none] $edit [notless xbad(2)] [numeric] $end $>RSNNUMB< [within RSNTEL] $display [none] $edit [notless xbad(1)] [numeric] $end $>RSNEXTN< [within RSNTEL] $display [none] $edit [anything] $end --------------------------------------------------------------------- $>ST-RSNTEL< ADDED FOR ** MOVERS ** [NIF RSNTEL1(R_P) is <2> then] [store < > in RSNAR(WHO)] [store < > in RSNNUM(WHO)] [store < > in RSNEXT(WHO)] [store < > in RSPHONE(WHO)] [goto WHOWITH] [ENDIF] [store RSNAREA(R_P) in RSNAR(WHO)] [store RSNNUMB(R_P) in RSNNUM(WHO)] [store RSNEXTN(R_P) in RSNEXT(WHO)] [combine <1> RSNAR(WHO) RSNNUM(WHO) into RSPHONE(WHO)] $end ---------------------------------------------------------------------- $>WHOWITH< [multiple WHOWITH1 WHOWITH2 WHOWITH3 WHOWITH4] ADDED FOR ** MOVERS ** [do index <1> NROSIZ] [store < > in tempname(index)] [store <0> in xbad(index)] [if LINENO(index) is < > then convert index integer to xbad(index) character] [IF HHMEM(index) isnt <1> then convert index integer to xbad(index) character] [end do] [do index <1> NROSIZ] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to tempname(index)(2:2) character] [ELSEIF index2 ge <10> then] [convert index2 integer to tempname(index)(1:2) character] [ENDIF] [store name(index) in tempname(index)(4:23)] [if LINENO(index) is < > then store < > in tempname(index)] ADDED IN FEB 94 [end do] $itemtable >WHOWITH< Did anyone else move to the same address as [fill name(WHO)]? ENTER FOR NO MORE LN NAME LN NAME LN NAME [fill tempname(1)] [fill tempname(7)] [fill tempname(12)] [fill tempname(2)] [fill tempname(8)] [fill tempname(13)] [fill tempname(3)] [fill tempname(9)] [fill tempname(14)] [fill tempname(4)] [fill tempname(10)] [fill tempname(15)] [fill tempname(5)] [fill tempname(11)] [fill tempname(16)] [fill tempname(6)] ===>__ ===>__ ===>__ ===>__ $end ---------------------------------------------------------------------- $>WHOWITH1< [within WHOWITH] $d [none] <1-16> [goto SPIN1] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end $>WHOWITH2< [within WHOWITH] $d [none] <1-16> [goto SPIN1] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal WHOWITH1(R_P)] $end $>WHOWITH3< [within WHOWITH] $d [none] <1-16> [goto SPIN1] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal WHOWITH1(R_P)] [notequal WHOWITH2(R_P)] $end $>WHOWITH4< [within WHOWITH] $d [none] <1-16> $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal WHOWITH1(R_P)] [notequal WHOWITH2(R_P)] [notequal WHOWITH3(R_P)] $end ---------------------------------------------------------------------- $>SPIN1< ** SPIN OFF HERE ** ADDED FOR ** MOVERS ** ** DO I NEED TO STORE OFF WHOWITH INTO PERMANENT VARIABLES? ** [if caseid(14:14) isnt < > then goto SPDB] ** SPD ** [spinstore I-PHONE RSPHONE(WHO)] new phone [spinstore I-EXT RSNEXT(WHO)] [spinstore I-ADD1 RSNST1(WHO)] new address [spinstore I-ADD2 RSNST2(WHO)] [spinstore I-CITY RSNCT(WHO)] [spinstore I-STATE RSNST(WHO)] [spinstore I-ZIP RSNZP(WHO)] [convert WHO integer to TEMP2 character] [spinstore I-HHR TEMP2] Household respondent [store < > in temp2] ** SPD ** [spinstore I-BLANK3 temp2] FLAG TO KNOW WHICH CASE IS A SPINOFF USE I-BLANK3 TO DETERMINE WHEN TO USE FILLS FOR MOVERS. IF I-BLANK3 =1 THEN IT IS A SPIN OFF CASE. IF I-BLANK3=BLANK THEN IT IS THE PARENT CASE. [store <5> in temp2] [spinstore I-MISCK temp2] Make case MIS 5 to reask I&O START OFF BY SETTING HH MEMBERSHIP = 2 FOR EVERYONE [store <2> in temp2] [spinstore I-HHMEM-1 temp2] [spinstore I-HHMEM-2 temp2] [spinstore I-HHMEM-3 temp2] [spinstore I-HHMEM-4 temp2] [spinstore I-HHMEM-5 temp2] [spinstore I-HHMEM-6 temp2] [spinstore I-HHMEM-7 temp2] [spinstore I-HHMEM-8 temp2] [spinstore I-HHMEM-9 temp2] [spinstore I-HHMEM-10 temp2] [spinstore I-HHMEM-11 temp2] [spinstore I-HHMEM-12 temp2] [spinstore I-HHMEM-13 temp2] [spinstore I-HHMEM-14 temp2] [spinstore I-HHMEM-15 temp2] [spinstore I-HHMEM-16 temp2] SET HH MEMBERSHIP = 1 FOR CURRENT PERSON [store <1> in temp2] [NIF WHO eq <1> then] [spinstore I-HHMEM-1 temp2] [ENDIF] [NIF WHO eq <2> then] [spinstore I-HHMEM-2 temp2] [ENDIF] [NIF WHO eq <3> then] [spinstore I-HHMEM-3 temp2] [ENDIF] [NIF WHO eq <4> then] [spinstore I-HHMEM-4 temp2] [ENDIF] [NIF WHO eq <5> then] [spinstore I-HHMEM-5 temp2] [ENDIF] [NIF WHO eq <6> then] [spinstore I-HHMEM-6 temp2] [ENDIF] [NIF WHO eq <7> then] [spinstore I-HHMEM-7 temp2] [ENDIF] [NIF WHO eq <8> then] [spinstore I-HHMEM-8 temp2] [ENDIF] [NIF WHO eq <9> then] [spinstore I-HHMEM-9 temp2] [ENDIF] [NIF WHO eq <10> then] [spinstore I-HHMEM-10 temp2] [ENDIF] [NIF WHO eq <11> then] [spinstore I-HHMEM-11 temp2] [ENDIF] [NIF WHO eq <12> then] [spinstore I-HHMEM-12 temp2] [ENDIF] [NIF WHO eq <13> then] [spinstore I-HHMEM-13 temp2] [ENDIF] [NIF WHO eq <14> then] [spinstore I-HHMEM-14 temp2] [ENDIF] [NIF WHO eq <15> then] [spinstore I-HHMEM-15 temp2] [ENDIF] [NIF WHO eq <16> then] [spinstore I-HHMEM-16 temp2] [ENDIF] SET HH MEMBERSHIP = 1 FOR ALL LINE NUMBERS ENTERED IN WHOWITH [store <0> in index] [If onpath WHOWITH1:R_P then store <1> in index] [NIF WHOWITH1(R_P) is <1> AND index eq <1> then] [spinstore I-HHMEM-1 temp2] [ENDIF] [NIF WHOWITH1(R_P) is <2> AND index eq <1> then] [spinstore I-HHMEM-2 temp2] [ENDIF] [NIF WHOWITH1(R_P) is <3> AND index eq <1> then] [spinstore I-HHMEM-3 temp2] [ENDIF] [NIF WHOWITH1(R_P) is <4> AND index eq <1> then] [spinstore I-HHMEM-4 temp2] [ENDIF] [NIF WHOWITH1(R_P) is <5> AND index eq <1> then] [spinstore I-HHMEM-5 temp2] [ENDIF] [NIF WHOWITH1(R_P) is <6> AND index eq <1> then] [spinstore I-HHMEM-6 temp2] [ENDIF] [NIF WHOWITH1(R_P) is <7> AND index eq <1> then] [spinstore I-HHMEM-7 temp2] [ENDIF] [NIF WHOWITH1(R_P) is <8> AND index eq <1> then] [spinstore I-HHMEM-8 temp2] [ENDIF] [NIF WHOWITH1(R_P) is <9> AND index eq <1> then] [spinstore I-HHMEM-9 temp2] [ENDIF] [NIF WHOWITH1(R_P) is <10> AND index eq <1> then] [spinstore I-HHMEM-10 temp2] [ENDIF] [NIF WHOWITH1(R_P) is <11> AND index eq <1> then] [spinstore I-HHMEM-11 temp2] [ENDIF] [NIF WHOWITH1(R_P) is <12> AND index eq <1> then] [spinstore I-HHMEM-12 temp2] [ENDIF] [NIF WHOWITH1(R_P) is <13> AND index eq <1> then] [spinstore I-HHMEM-13 temp2] [ENDIF] [NIF WHOWITH1(R_P) is <14> AND index eq <1> then] [spinstore I-HHMEM-14 temp2] [ENDIF] [NIF WHOWITH1(R_P) is <15> AND index eq <1> then] [spinstore I-HHMEM-15 temp2] [ENDIF] [NIF WHOWITH1(R_P) is <16> AND index eq <1> then] [spinstore I-HHMEM-16 temp2] [ENDIF] $end ---------------------------------------------------------------------- $>SPIN1a< [store <0> in index] [If onpath WHOWITH2:R_P then store <1> in index] [NIF WHOWITH2(R_P) is <1> AND index eq <1> then] [spinstore I-HHMEM-1 temp2] [ENDIF] [NIF WHOWITH2(R_P) is <2> AND index eq <1> then] [spinstore I-HHMEM-2 temp2] [ENDIF] [NIF WHOWITH2(R_P) is <3> AND index eq <1> then] [spinstore I-HHMEM-3 temp2] [ENDIF] [NIF WHOWITH2(R_P) is <4> AND index eq <1> then] [spinstore I-HHMEM-4 temp2] [ENDIF] [NIF WHOWITH2(R_P) is <5> AND index eq <1> then] [spinstore I-HHMEM-5 temp2] [ENDIF] [NIF WHOWITH2(R_P) is <6> AND index eq <1> then] [spinstore I-HHMEM-6 temp2] [ENDIF] [NIF WHOWITH2(R_P) is <7> AND index eq <1> then] [spinstore I-HHMEM-7 temp2] [ENDIF] [NIF WHOWITH2(R_P) is <8> AND index eq <1> then] [spinstore I-HHMEM-8 temp2] [ENDIF] [NIF WHOWITH2(R_P) is <9> AND index eq <1> then] [spinstore I-HHMEM-9 temp2] [ENDIF] [NIF WHOWITH2(R_P) is <10> AND index eq <1> then] [spinstore I-HHMEM-10 temp2] [ENDIF] [NIF WHOWITH2(R_P) is <11> AND index eq <1> then] [spinstore I-HHMEM-11 temp2] [ENDIF] [NIF WHOWITH2(R_P) is <12> AND index eq <1> then] [spinstore I-HHMEM-12 temp2] [ENDIF] [NIF WHOWITH2(R_P) is <13> AND index eq <1> then] [spinstore I-HHMEM-13 temp2] [ENDIF] [NIF WHOWITH2(R_P) is <14> AND index eq <1> then] [spinstore I-HHMEM-14 temp2] [ENDIF] [NIF WHOWITH2(R_P) is <15> AND index eq <1> then] [spinstore I-HHMEM-15 temp2] [ENDIF] [NIF WHOWITH2(R_P) is <16> AND index eq <1> then] [spinstore I-HHMEM-16 temp2] [ENDIF] [store <0> in index] [If onpath WHOWITH3:R_P then store <1> in index] [NIF WHOWITH3(R_P) is <1> AND index eq <1> then] [spinstore I-HHMEM-1 temp2] [ENDIF] [NIF WHOWITH3(R_P) is <2> AND index eq <1> then] [spinstore I-HHMEM-2 temp2] [ENDIF] [NIF WHOWITH3(R_P) is <3> AND index eq <1> then] [spinstore I-HHMEM-3 temp2] [ENDIF] [NIF WHOWITH3(R_P) is <4> AND index eq <1> then] [spinstore I-HHMEM-4 temp2] [ENDIF] [NIF WHOWITH3(R_P) is <5> AND index eq <1> then] [spinstore I-HHMEM-5 temp2] [ENDIF] [NIF WHOWITH3(R_P) is <6> AND index eq <1> then] [spinstore I-HHMEM-6 temp2] [ENDIF] [NIF WHOWITH3(R_P) is <7> AND index eq <1> then] [spinstore I-HHMEM-7 temp2] [ENDIF] [NIF WHOWITH3(R_P) is <8> AND index eq <1> then] [spinstore I-HHMEM-8 temp2] [ENDIF] [NIF WHOWITH3(R_P) is <9> AND index eq <1> then] [spinstore I-HHMEM-9 temp2] [ENDIF] [NIF WHOWITH3(R_P) is <10> AND index eq <1> then] [spinstore I-HHMEM-10 temp2] [ENDIF] [NIF WHOWITH3(R_P) is <11> AND index eq <1> then] [spinstore I-HHMEM-11 temp2] [ENDIF] [NIF WHOWITH3(R_P) is <12> AND index eq <1> then] [spinstore I-HHMEM-12 temp2] [ENDIF] [NIF WHOWITH3(R_P) is <13> AND index eq <1> then] [spinstore I-HHMEM-13 temp2] [ENDIF] [NIF WHOWITH3(R_P) is <14> AND index eq <1> then] [spinstore I-HHMEM-14 temp2] [ENDIF] [NIF WHOWITH3(R_P) is <15> AND index eq <1> then] [spinstore I-HHMEM-15 temp2] [ENDIF] [NIF WHOWITH3(R_P) is <16> AND index eq <1> then] [spinstore I-HHMEM-16 temp2] [ENDIF] [store <0> in index] [If onpath WHOWITH4:R_P then store <1> in index] [NIF WHOWITH4(R_P) is <1> AND index eq <1> then] [spinstore I-HHMEM-1 temp2] [ENDIF] [NIF WHOWITH4(R_P) is <2> AND index eq <1> then] [spinstore I-HHMEM-2 temp2] [ENDIF] [NIF WHOWITH4(R_P) is <3> AND index eq <1> then] [spinstore I-HHMEM-3 temp2] [ENDIF] [NIF WHOWITH4(R_P) is <4> AND index eq <1> then] [spinstore I-HHMEM-4 temp2] [ENDIF] [NIF WHOWITH4(R_P) is <5> AND index eq <1> then] [spinstore I-HHMEM-5 temp2] [ENDIF] [NIF WHOWITH4(R_P) is <6> AND index eq <1> then] [spinstore I-HHMEM-6 temp2] [ENDIF] [NIF WHOWITH4(R_P) is <7> AND index eq <1> then] [spinstore I-HHMEM-7 temp2] [ENDIF] [NIF WHOWITH4(R_P) is <8> AND index eq <1> then] [spinstore I-HHMEM-8 temp2] [ENDIF] [NIF WHOWITH4(R_P) is <9> AND index eq <1> then] [spinstore I-HHMEM-9 temp2] [ENDIF] [NIF WHOWITH4(R_P) is <10> AND index eq <1> then] [spinstore I-HHMEM-10 temp2] [ENDIF] [NIF WHOWITH4(R_P) is <11> AND index eq <1> then] [spinstore I-HHMEM-11 temp2] [ENDIF] [NIF WHOWITH4(R_P) is <12> AND index eq <1> then] [spinstore I-HHMEM-12 temp2] [ENDIF] [NIF WHOWITH4(R_P) is <13> AND index eq <1> then] [spinstore I-HHMEM-13 temp2] [ENDIF] [NIF WHOWITH4(R_P) is <14> AND index eq <1> then] [spinstore I-HHMEM-14 temp2] [ENDIF] [NIF WHOWITH4(R_P) is <15> AND index eq <1> then] [spinstore I-HHMEM-15 temp2] [ENDIF] [NIF WHOWITH4(R_P) is <16> AND index eq <1> then] [spinstore I-HHMEM-16 temp2] [ENDIF] *** WHAT OTHER INPUT VARIABLES SHOULD BE CHANGED/BLANKED HERE *** RRP, SPOUSE, PARENT, ADDRESS ASSOCIATED VARIABLES $end ---------------------------------------------------------------------- $>SPIN1b< The following blanks relationship, parent's line number spouse's line number and marital status in spawns. ** SPD ** [store < > in temp2] ** SPD ** [spinstore I-RRP-1 temp2] [spinstore I-RRP-2 temp2] [spinstore I-RRP-3 temp2] [spinstore I-RRP-4 temp2] [spinstore I-RRP-5 temp2] [spinstore I-RRP-6 temp2] [spinstore I-RRP-7 temp2] [spinstore I-RRP-8 temp2] [spinstore I-RRP-9 temp2] [spinstore I-RRP-10 temp2] [spinstore I-RRP-11 temp2] [spinstore I-RRP-12 temp2] [spinstore I-RRP-13 temp2] [spinstore I-RRP-14 temp2] [spinstore I-RRP-15 temp2] [spinstore I-RRP-16 temp2] [spinstore I-PARNT-1 temp2] [spinstore I-PARNT-2 temp2] [spinstore I-PARNT-3 temp2] [spinstore I-PARNT-4 temp2] [spinstore I-PARNT-5 temp2] [spinstore I-PARNT-6 temp2] [spinstore I-PARNT-7 temp2] [spinstore I-PARNT-8 temp2] [spinstore I-PARNT-9 temp2] [spinstore I-PARNT-10 temp2] [spinstore I-PARNT-11 temp2] [spinstore I-PARNT-12 temp2] [spinstore I-PARNT-13 temp2] [spinstore I-PARNT-14 temp2] [spinstore I-PARNT-15 temp2] [spinstore I-PARNT-16 temp2] [spinstore I-SPOUS-1 temp2] [spinstore I-SPOUS-2 temp2] [spinstore I-SPOUS-3 temp2] [spinstore I-SPOUS-4 temp2] [spinstore I-SPOUS-5 temp2] [spinstore I-SPOUS-6 temp2] [spinstore I-SPOUS-7 temp2] [spinstore I-SPOUS-8 temp2] [spinstore I-SPOUS-9 temp2] [spinstore I-SPOUS-10 temp2] [spinstore I-SPOUS-11 temp2] [spinstore I-SPOUS-12 temp2] [spinstore I-SPOUS-13 temp2] [spinstore I-SPOUS-14 temp2] [spinstore I-SPOUS-15 temp2] [spinstore I-SPOUS-16 temp2] [spinstore I-MARTL-1 temp2] [spinstore I-MARTL-2 temp2] [spinstore I-MARTL-3 temp2] [spinstore I-MARTL-4 temp2] [spinstore I-MARTL-5 temp2] [spinstore I-MARTL-6 temp2] [spinstore I-MARTL-7 temp2] [spinstore I-MARTL-8 temp2] [spinstore I-MARTL-9 temp2] [spinstore I-MARTL-10 temp2] [spinstore I-MARTL-11 temp2] [spinstore I-MARTL-12 temp2] [spinstore I-MARTL-13 temp2] [spinstore I-MARTL-14 temp2] [spinstore I-MARTL-15 temp2] [spinstore I-MARTL-16 temp2] [store < > in tempsp] [spinoff tempsp] $end ---------------------------------------------------------------------- $>SPDB< ** SPD ** *** HHMEM will need to be backup protected, if we change hhmem to a 2 and they back up and erase that person from whowith we will need to reset hhmem back to 1. - don't know how to do this NEED TO CHANGE CURRENT HHMEM, DELDEC and CHINHH to DELETED FOR EVERYONE ENTERED IN WHOWITH FOR PARENT CASE COMMENT: FLAGS THE FACT THAT A PERSON WHO WAS MARRIED WAS DELETED. THE FLAG IS THEN USED TO WARN THE I'ER TO CHECK MARITL STATUS CLOSELY. [if MARITL(WHO) is <1> then store <1> in NOTEFL] [store <0> in index2] [If onpath WHOWITH1:R_P then convert WHOWITH1(R_P) character to index2 integer] [NIF index2 nq <0> then] [store <2> in HHMEM(index2)] [store <1> in DELDEC(index2)] [store <5> in CHINHH(index2)] [if MARITL(index2) is <1> then store <1> in NOTEFL] [ENDIF] [store <0> in index3] [NIF WHOWITH2(R_P) isnt then] [If onpath WHOWITH2:R_P then convert WHOWITH2(R_P) character to index3 integer] [ENDIF] [NIF index3 nq <0> then] [store <2> in HHMEM(index3)] [store <1> in DELDEC(index3)] [store <5> in CHINHH(index3)] [if MARITL(index3) is <1> then store <1> in NOTEFL] [ENDIF] [store <0> in index4] [NIF WHOWITH3(R_P) isnt then] [If onpath WHOWITH3:R_P then convert WHOWITH3(R_P) character to index4 integer] [ENDIF] [NIF index4 nq <0> then] [store <2> in HHMEM(index4)] [store <1> in DELDEC(index4)] [store <5> in CHINHH(index4)] [if MARITL(index4) is <1> then store <1> in NOTEFL] [ENDIF] [store <0> in index5] [NIF WHOWITH4(R_P) isnt then] [If onpath WHOWITH4:R_P then convert WHOWITH4(R_P) character to index5 integer] [ENDIF] [NIF index5 nq <0> then] [store <2> in HHMEM(index5)] [store <1> in DELDEC(index5)] [store <5> in CHINHH(index5)] [if MARITL(index5) is <1> then store <1> in NOTEFL] [ENDIF] COMMENT: CHECKS TO SEE IF THIS DELETED PERSON WAS LISTED AS A PARENT TO TO ANYONE ON ROSTER. IF SO, IT BLANKS IT OUT AND FLAGS IT. [do index <1> NROSIZ] [convert PARENT(index) character to tabindex(index) integer] [NIF tabindex(index) eq index2 AND index2 nq <0> then] [store < > in PARENT(index)] [store <2> in NOTEFL] [ENDIF] [NIF tabindex(index) eq index3 AND index3 nq <0> then] [store < > in PARENT(index)] [store <2> in NOTEFL] [ENDIF] [NIF tabindex(index) eq index4 AND index4 nq <0> then] [store < > in PARENT(index)] [store <2> in NOTEFL] [ENDIF] [NIF tabindex(index) eq index5 AND index5 nq <0> then] [store < > in PARENT(index)] [store <2> in NOTEFL] [ENDIF] [end do] COMMENT: CHECKS TO SEE IF THIS DELETED PERSON WAS LISTED AS A SPOUSE TO ANYONE ON ROSTER. IF SO, IT BLANKS IT OUT AND FLAGS IT. [do index <1> NROSIZ] [convert SPOUSE(index) character to tabindex(index) integer] [NIF tabindex(index) eq index2 AND index2 nq <0> then] [store < > in SPOUSE(index)] [store <3> in NOTEFL] [ENDIF] [NIF tabindex(index) eq index3 AND index3 nq <0> then] [store < > in SPOUSE(index)] [store <3> in NOTEFL] [ENDIF] [NIF tabindex(index) eq index4 AND index4 nq <0> then] [store < > in SPOUSE(index)] [store <3> in NOTEFL] [ENDIF] [NIF tabindex(index) eq index5 AND index5 nq <0> then] [store < > in SPOUSE(index)] [store <3> in NOTEFL] [ENDIF] [end do] WHAT IF ONE OF THE PERSONS LISTED IN WHOWITH IS THE REFERENSE PERSON $end ---------------------------------------------------------------------- $>FOR-SREF< [store <2> in hhmem(WHO)] [NIF DELPER(R_P) is <1> then] [store <2> in DELDEC(WHO)] [store <4> in CHINHH(WHO)] [ELSEIF DELPER(R_P) is <2> then] [store <1> in DELDEC(WHO)] [store <5> in CHINHH(WHO)] [ELSEIF DELPER(R_P) is <3> then] [store <1> in DELDEC(WHO)] [store <5> in CHINHH(WHO)] [ELSEIF DELPER(R_P) is <4> then] [store <3> in DELDEC(WHO)] [store <5> in CHINHH(WHO)] [ENDIF] [store <0> in NUMHOU] [do index <1> NROSIZ] [if hhmem(index) is <1> then add <1> to NUMHOU] Number of hh members [end do] COMMENT: FLAGS THE FACT THAT A PERSON WHO WAS MARRIED WAS DELETED. THE FLAG IS THEN USED TO WARN THE I'ER TO CHECK MARITL STATUS CLOSELY. [if MARITL(WHO) is <1> then store <1> in NOTEFL] COMMENT: CHECKS TO SEE IF THIS DELETED PERSON WAS LISTED AS A PARENT TO TO ANYONE ON ROSTER. IF SO, IT BLANKS IT OUT AND FLAGS IT. [do index <1> NROSIZ] [convert PARENT(index) character to tabindex(index) integer] [NIF tabindex(index) eq WHO then] [store < > in PARENT(index)] [store <2> in NOTEFL] [ENDIF] [end do] COMMENT: CHECKS TO SEE IF THIS DELETED PERSON WAS LISTED AS A SPOUSE TO ANYONE ON ROSTER. IF SO, IT BLANKS IT OUT AND FLAGS IT. [do index <1> NROSIZ] [convert SPOUSE(index) character to tabindex(index) integer] [NIF tabindex(index) eq WHO then] [store < > in SPOUSE(index)] [store <3> in NOTEFL] [ENDIF] [end do] [if RefPer nq WHO then goto FOR-SHHR] [store <0> in SREF_R_P] $end $ROPEN>SREF< **N** $>AFT-SREF< [roster exit] $end -------------------------------------------------------- $>FOR-SHHR< [if RESPLI nq WHO then roster exit] [store <0> in SHHR_R_P] $end $ROPEN>SHHR< **L** $>AFT-SHHR< [roster exit] $end ------------------------------------------------------------------------------ $REND>SDEL< ============================================================================= ******************************************************************************* **B** SREL ******************************************************************************** $RBEGIN>SREL< [maxelt 1] ------------------------------------------------------------------------------- $>RRP-pre< [if CHG-WHAT is <6> then goto PAR-scrn] [store <0> in index] [store DEM_R_P in index] ** [IF index nq <0> then goto CHECK-par] [store <0> in index] [store DEM2_R_P in index] ** [IF index nq <0> then goto CHECK-par] [if NEWRRP eq <1> then goto RRP-NSCR] $end ------------------------------------------------------------------------------- $>RRP-scrn< [if notbacked then reset RRP-scrn] [NIF WHO eq RESPLI then] [store in areis] [If curralt nq <1> then store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [store in areis] [store name(WHO) in temptext] [ENDIF] [NIF RESPLI eq RefPer then] [If curralt nq <1> then store in temp2] [If curralt eq <1> then store in temp2] [ELSE] [store name(RefPer) in temp2] [ENDIF] [store < > in relation(WHO)] [store <0> in index3] [convert RRP(WHO) character to index3 integer] [if index3 nq <0> then store reltab(index3) in relation(WHO)] [store in temp3] [If relation(WHO) isnt < > then store relation(WHO) in temp3] [NIF hhmem(WHO) is <2> OR DELDEC(WHO) is <1> then] [store < > in relation(WHO)] [ELSEIF DELDEC(WHO) is <2> OR DELDEC(WHO) is <3> then] [store < > in relation(WHO)] [ELSEIF hhmem(WHO) is <3> then] [store < > in relation(WHO)] [ENDIF] [NIF INTTYP eq <1> then] [store <** Show Respondent the Flash Card **> in temp4] [store < > in temp5] [ELSEIF INTTYP eq <2> then] [store <** Read Respondent the Categories **> in temp4] [store in temp5] [ELSE] [store < > in temp4] [store < > in temp5] CATI interview [ENDIF] $d [fill temp4] >RRP-scrn< [fill temp5] How [fill areis] [fill temptext] related to [fill temp2]? (PREVIOUS ENTRY WAS: [fill temp3]) <3> Spouse <4> Child <5> Grandchild <6> Parent [If PAR-cnt eq <2> then referto PARENT-vr] <7> Brother/Sister <8> Other relative of reference person <9> Foster child <11> Partner/Roommate <13> Non-relative of reference person [store <13> in RRP(WHO)] [blind] Don't know Refused ===>__ [goto SET-RRP] $d [alt 1] [fill temp2] >RRP-scrn< [fill temp3] ¨Qu‚ relaci¢n o parentesco tiene [fill temptext] con [fill temp2]? (PREVIOUS ENTRY WAS: [fill temp3]) <3> Esposo(a) <4> Hijo(a) <5> Nieto(a) <6> Padre/madre [If PAR-cnt eq <2> then referto PARENT-vr] <7> Hermano(a) <8> Otro pariente de la persona de referencia <9> Hijo adoptado (formal o informalmente) <11> Compa¤ero(a) de residencia <13> No es pariente/familia de la persona de referencia [store <13> in RRP(WHO)] [blind] Don't know Refused ===>__ [goto SET-RRP] $end ------------------------------------------------------------------------------- COMMENT: FIRST LINE FLAGS WHENEVER A CHANGE WAS MADE TO A PERSON'S DEMOGRAPHIC INFO. $>set-RRP< [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] [CASE RRP-scrn(R_P)] [OF <3> then] [store <03> in RRP(WHO)] [convert RefPer integer to SPOUSE(WHO) character] [convert WHO integer to SPOUSE(RefPer) character] [store <1> in MARITL(WHO)] [store <1> in MARITL(RefPer)] [OF <4> then] [store <04> in RRP(WHO)] [store LINENO(RefPer) in PARENT(WHO)] [OF <5> then] [store <05> in RRP(WHO)] [OF <6> then] [store <06> in RRP(WHO)] [store LINENO(WHO) in PARENT(RefPer)] [OF <7> then] [store <07> in RRP(WHO)] [OF <8> then] [store <08> in RRP(WHO)] [OF <9> then] [store <09> in RRP(WHO)] [OF <10> then] [store <10> in RRP(WHO)] [OF <11> then] [store <11> in RRP(WHO)] [OF <12> then] [store <12> in RRP(WHO)] [store < > in PARENT(WHO)] [store < > in SPOUSE(WHO)] [store < > in MARITL(WHO)] [OF then] [store in RRP(WHO)] [OF then] [store in RRP(WHO)] [ENDCASE] [store <0> in PAR-cnt] [do index <1> NROSIZ] [If RRP(index) is <06> then add <1> to PAR-cnt] [end do] COMMENT: SETS UP RRP FOR THE REFERENCE PERSON. IT STARTS WITH A VALUE OF 2. IT THEN CHECKS IF THERE IS A HOUSEHOLD MEMBER (HHMEM = 1) THAT HAS A RRP VALUE BETWEEN 3 AND 9. IF THESE THREE CONDITIONS ARE MET, THEN IT REASSIGNS THE VALUE OF 1. [store <02> in RRP(RefPer)] [do index <1> NROSIZ] [store <0> in index2] [convert RRP(index) character to tabindex(index) integer] [If hhmem(index) is <1> then add <1> to index2] [NIF tabindex(index) ge <3> AND tabindex(index) lt <9> then] [add <1> to index2] [ENDIF] [If index2 eq <2> then store <01> in RRP(RefPer)] [end do] [NIF CHG-WHAT is <5> then] [if onpath CHG-WHAT then goto CHECK-PAR] [ENDIF] [store <0> in index3] [NIF RRP-scrn(R_P) is <13> AND RRP(1) is <02> then] [If NROSIZ eq <2> then store <1> in index3] [ENDIF] [NIF RRP-scrn(R_P) is <13> AND RRP(1) is <2> then] [If NROSIZ eq <2> then store <1> in index3] [ENDIF] [NIF index3 eq <1> then] [store <12> in RRP(WHO)] [store <0> in PARENT(WHO)] [store <0> in SPOUSE(WHO)] [store < > in SUBFAM(WHO)] [If MARITL(WHO) is <1> then store < > in MARITL(WHO)] [roster exit] [ENDIF] [NIF RRP-scrn(R_P) is <13> then] [If onpath NEWLIV-1 then goto vr-nonrel] [If onpath CHANGE then goto vr-nonrel] [If onpath CHANGE2 then goto vr-nonrel] [roster exit] [ENDIF] [store <0> in index] [if onpath NEWLIV-1 then store <1> in index] [if onpath CHANGE then store <1> in index] [if onpath CHANGE2 then store <1> in index] [NIF NWPRFG(WHO) eq <1> AND index eq <1> then] [roster exit] [ENDIF] [IF RRP(WHO) is <03> then goto ck-spoussx] [roster exit] $end ------------------------------------------------------------------------------ $>RRP-Nscr< [if notbacked then reset RRP-Nscr] [NIF WHO eq RESPLI then] [store in areis] [If curralt nq <1> then store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [store in areis] [store name(WHO) in temptext] [ENDIF] [NIF RESPLI eq RefPer then] [If curralt nq <1> then store in temp2] [If curralt eq <1> then store in temp2] [ELSE] [store name(RefPer) in temp2] [ENDIF] [store < > in relation(WHO)] [store <0> in index3] [convert RRP(WHO) character to index3 integer] [If index3 nq <0> then store n-reltab(index3) in relation(WHO)] [store in temp3] [If relation(WHO) isnt < > then store relation(WHO) in temp3] [NIF hhmem(WHO) is <2> OR DELDEC(WHO) is <1> then] [store < > in relation(WHO)] [ELSEIF DELDEC(WHO) is <2> OR DELDEC(WHO) is <3> then] [store < > in relation(WHO)] [ELSEIF hhmem(WHO) is <3> then] [store < > in relation(WHO)] [ENDIF] [NIF INTTYP eq <1> then] [store <** Show Respondent the Flash Card **> in temp4] [store < > in temp5] [ELSEIF INTTYP eq <2> then] [store <** Read Respondent the Categories **> in temp4] [store in temp5] [ELSE] [store < > in temp4] [store < > in temp5] CATI interview [ENDIF] $d [fill temp4] >RRP-nscr< [fill temp5] How [fill areis] [fill temptext] related to [fill temp2]? (PREVIOUS ENTRY WAS: [fill temp3]) <20> Spouse (Husband/Wife) <21> Unmarried Partner <22> Child <23> Grandchild <24> Parent (Mother/Father) [If PAR-cnt eq <2> then referto PARENT-vr] <25> Brother/Sister <26> Other relative (Aunt, Cousin, Nephew, Mother-in-law, etc.) <27> Foster child <28> Housemate/Roommate <29> Roomer/Boarder <30> Other nonrelative [blind] Don't know Refused ===>__ [goto SET-NRRP] $d [alt 1] [fill temp2] >RRP-nscr< [fill temp3] ¨Qu‚ relaci¢n o parentesco tiene [fill temptext] con [fill temp2]? (PREVIOUS ENTRY WAS: [fill temp3]) <20> Esposo(a) <21> Pareja no casada <22> Hijo(a) <23> Nieto(a) <24> Padre/Madre [If PAR-cnt eq <2> then referto PARENT-vr] <25> Hermano(a) <26> Otro pariente (Tia, Primo, Sobrino, Suegra, etc.) <27> Hijo(a) de crianza <28> Compa¤ero(a) de residencia <29> Inquilino(a), Pupilo(a) <30> No es pariente/familia de la persona de referencia [blind] Don't know Refused ===>__ $end ------------------------------------------------------------------------------- COMMENT: FIRST LINE FLAGS WHENEVER A CHANGE WAS MADE TO A PERSON'S DEMOGRAPHIC INFO. $>set-NRRP< [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] [CASE RRP-nscr(R_P)] [OF <20> then] [store <20> in RRP(WHO)] [convert RefPer integer to SPOUSE(WHO) character] [convert WHO integer to SPOUSE(RefPer) character] [store <1> in MARITL(WHO)] [store <1> in MARITL(RefPer)] [OF <21> then] [store <21> in RRP(WHO)] [OF <22> then] [store <22> in RRP(WHO)] [store LINENO(RefPer) in PARENT(WHO)] [OF <23> then] [store <23> in RRP(WHO)] [OF <24> then] [store <24> in RRP(WHO)] [store LINENO(WHO) in PARENT(RefPer)] [OF <25> then] [store <25> in RRP(WHO)] [OF <26> then] [store <26> in RRP(WHO)] [OF <27> then] [store <27> in RRP(WHO)] [OF <28> then] [store <28> in RRP(WHO)] [OF <29> then] [store <29> in RRP(WHO)] [OF <30> then] [store <30> in RRP(WHO)] [OF then] [store in RRP(WHO)] [OF then] [store in RRP(WHO)] [ENDCASE] [store <0> in PAR-cnt] [do index <1> NROSIZ] [If RRP(index) is <24> then add <1> to PAR-cnt] [end do] COMMENT: SETS UP RRP FOR THE REFERENCE PERSON. IT STARTS WITH A VALUE OF 2. IT THEN CHECKS IF THERE IS A HOUSEHOLD MEMBER (HHMEM = 1) THAT HAS A RRP VALUE BETWEEN 3 AND 9. IF THESE THREE CONDITIONS ARE MET, THEN IT REASSIGNS THE VALUE OF 1. [store <19> in RRP(RefPer)] [do index <1> NROSIZ] [store <0> in index2] [convert RRP(index) character to tabindex(index) integer] [If hhmem(index) is <1> then add <1> to index2] SPLIT BECAUSE WE DO NOT WANT TO INCLUDE RRP=21 [NIF tabindex(index) ge <22> AND tabindex(index) lt <27> then] [add <1> to index2] [ELSEIF tabindex(index) eq <20> then] [add <1> to index2] [ENDIF] [If index2 eq <2> then store <18> in RRP(RefPer)] [end do] [NIF CHG-WHAT is <5> then] [if onpath CHG-WHAT then goto CHECK-PAR] [ENDIF] [store <0> in index3] [NIF RRP-nscr(R_P) is <21> AND RRP(1) is <19> then] [If NROSIZ eq <2> then store <1> in index3] [ENDIF] [NIF RRP-nscr(R_P) is <28> AND RRP(1) is <19> then] [If NROSIZ eq <2> then store <1> in index3] [ENDIF] [NIF RRP-nscr(R_P) is <29> AND RRP(1) is <19> then] [If NROSIZ eq <2> then store <1> in index3] [ENDIF] [NIF RRP-nscr(R_P) is <30> AND RRP(1) is <19> then] [If NROSIZ eq <2> then store <1> in index3] [ENDIF] [NIF index3 eq <1> then] [if RRP-nscr(R_P) is <21> then store <32> in RRP(WHO)] [if RRP-nscr(R_P) is <28> then store <34> in RRP(WHO)] [if RRP-nscr(R_P) is <29> then store <36> in RRP(WHO)] [if RRP-nscr(R_P) is <30> then store <38> in RRP(WHO)] [store <0> in PARENT(WHO)] [store <0> in SPOUSE(WHO)] [store < > in SUBFAM(WHO)] [If MARITL(WHO) is <1> then store < > in MARITL(WHO)] [roster exit] [ENDIF] [NIF RRP-nscr(R_P) is <21> then] [If onpath NEWLIV-1 then goto vr-nonrel] [If onpath CHANGE then goto vr-nonrel] [If onpath CHANGE2 then goto vr-nonrel] [roster exit] [ENDIF] [NIF RRP-nscr(R_P) is <28> then] [If onpath NEWLIV-1 then goto vr-nonrel] [If onpath CHANGE then goto vr-nonrel] [If onpath CHANGE2 then goto vr-nonrel] [roster exit] [ENDIF] [NIF RRP-nscr(R_P) is <29> then] [If onpath NEWLIV-1 then goto vr-nonrel] [If onpath CHANGE then goto vr-nonrel] [If onpath CHANGE2 then goto vr-nonrel] [roster exit] [ENDIF] [NIF RRP-nscr(R_P) is <30> then] [If onpath NEWLIV-1 then goto vr-nonrel] [If onpath CHANGE then goto vr-nonrel] [If onpath CHANGE2 then goto vr-nonrel] [roster exit] [ENDIF] [store <0> in index] [if onpath NEWLIV-1 then store <1> in index] [if onpath CHANGE then store <1> in index] [if onpath CHANGE2 then store <1> in index] [NIF NWPRFG(WHO) eq <1> AND index eq <1> then] [roster exit] [ENDIF] [IF RRP(WHO) is <20> then goto ck-spoussx] [roster exit] $end ------------------------------------------------------------------------------ $>ck-spoussx< [NIF sex(refper) is sex(WHO) AND RRP(WHO) is <03> then] [goto spsex1] [ENDIF] [NIF sex(refper) is sex(WHO) AND RRP(WHO) is <20> then] ** RRP [goto spsex1] [ENDIF] [roster exit] $end ------------------------------------------------------------------------------ $>spsex1< [reset spsex1] [store < > in table(1)] [store < > in table(2)] [store LINENO(RefPer) in table(1)(5:6)] [store LINENO(WHO) in table(2)(5:6)] [store name(RefPer) in table(1)(16:39)] [store name(WHO) in table(2)(16:39)] [store in table(1)(41:57)] [store in table(2)(41:57)] [store sex(RefPer) in table(1)(60:60)] [store sex(WHO) in table(2)(60:60)] $display >spsex1< *** DO NOT ASK *** Is one of the following SEX entries incorrect?: LINE PERSON'S RELATION SEX NUMBER NAME [fill table(1)] [fill table(2)] <1> To correct Line 1's sex entry <2> To correct Line 2's sex entry Neither sex is incorrect [goto spsex2] ===>_ [goto now-spsex] $end ------------------------------------------------------------------------------- $>spsex2< [reset spsex2] [store < > in temptext] [combine name(RefPer) <'s> into temptext] $display >spsex2< You said that [fill name(WHO)] is [fill temptext] spouse? Is that correct? <1> Yes [if NEWRRP eq <0> then store <11> in RRP(WHO)] [if NEWRRP eq <1> then store <28> in RRP(WHO)] [store in MARITL(WHO)] [store < > in SPOUSE(RefPer)] [store < > in SPOUSE(WHO)] <2> No [if onpath rrp-nscr:R_P then backto RRP-nscr:R_P] [backto RRP-scrn:R_P] ===>_ [roster exit] $d [alt 1] >spsex2< Usted dijo que [fill name(WHO)] y [fill temptext] son esposos, ¨correcto? <1> Yes [if NEWRRP eq <0> then store <11> in RRP(WHO)] [if NEWRRP eq <1> then store <28> in RRP(WHO)] [store in MARITL(WHO)] [store < > in SPOUSE(RefPer)] [store < > in SPOUSE(WHO)] <2> No [if onpath rrp-nscr:R_P then backto RRP-nscr:R_P] [backto RRP-scrn:R_P] ===>_ [roster exit] $end ------------------------------------------------------------------------------- $>now-spsex< [store <0> in SSEX_R_P] $end $ROPEN>SSEX< $>aft-spsex< [goto CK-spoussx] $end ----------------------------------------------------------------------------- $>CHECK-par< [NIF WHO nq <0> AND RRP(WHO) is <13> then] [goto vr-nonrel] [ELSEIF WHO nq <0> AND RRP(WHO) is <21> then] ** RRP [goto vr-nonrel] [ELSEIF WHO nq <0> AND RRP(WHO) is <28> then] ** RRP [goto vr-nonrel] [ELSEIF WHO nq <0> AND RRP(WHO) is <29> then] ** RRP [goto vr-nonrel] [ELSEIF WHO nq <0> AND RRP(WHO) is <30> then] ** RRP [goto vr-nonrel] [ELSEIF WHO nq <0> AND RRP(WHO) is <10> then] ADDED IN APRIL 93 [If SUBFAM(WHO) is < > then goto vr-nonrel] [ELSEIF WHO nq <0> AND RRP(WHO) is <31> then] ** RRP [If SUBFAM(WHO) is < > then goto vr-nonrel] [ELSEIF WHO nq <0> AND RRP(WHO) is <33> then] ** RRP [If SUBFAM(WHO) is < > then goto vr-nonrel] [ELSEIF WHO nq <0> AND RRP(WHO) is <35> then] ** RRP [If SUBFAM(WHO) is < > then goto vr-nonrel] [ELSEIF WHO nq <0> AND RRP(WHO) is <37> then] ** RRP [If SUBFAM(WHO) is < > then goto vr-nonrel] [ENDIF] [goto pre-PARENT] $end ---------------------------------------------------------------------- $>vr-nonrel< [if notbacked then reset vr-nonrel] [If SBFAM-1(R_P) is then reset SBFAM-1] [store < > in areis] [store < > in temptext] [store < > in temp3] [store < > in werewas] [NIF WHO eq RESPLI then] [store in areis] [If curralt nq <1> then store in temptext] [If curralt eq <1> then store in temptext] [store in werewas] [ELSE] [store in areis] [store name(WHO) in temptext] [store in werewas] [ENDIF] [NIF WHO eq RefPer then] [if curralt nq <1> then store in temp3] [If curralt eq <1> then store in temp3] [ELSE] [store name(Refper) in temp3] [ENDIF] [store < > in temp4] [combine temptext < > werewas into temp4] [store < > in temp2] [store < > in temp5] [store in temp6] [NIF REPLCE eq <1> OR misflg is <1> then] [If curralt nq <1> then combine < > temp4 into temp2] [If curralt nq <1> then combine < > temp3 into temp5] [If curralt nq <1> then store in temp6] [If curralt eq <1> then combine < > temptext into temp2] [If curralt eq <1> then combine < no era pariente de> < > temp3 into temp5] [ENDIF] [store <0> in CHG-FLG] $display >vr-nonrel< [fill temp2] [fill temp5] [fill areis] [fill temptext] related to anyone [fill temp6] this household? <1> Yes [goto PRE-SBFAM] <2> No ===>_ [goto nonrel-st] $d [alt 1] >vr-nonrel< [fill temp2] [fill temp5] ¨Es [fill temptext] pariente de alg£n otro miembro de este hogar? <1> S¡ [goto PRE-SBFAM] <2> No ===>_ [goto nonrel-st] $end ------------------------------------------------------------------------------ $>PRE-SBFAM< ** RRP [if NEWRRP eq <0> then store <10> in RRP(WHO)] [store <0> in CHG-FLG] [NIF ADDPER(WHO) is <1> then] [store <1> in CHG-FLG] ADDED JAN 95 [store <1> in CHGPER(WHO)] [ENDIF] [if RRP(WHO) is <21> then store <31> in RRP(WHO)] [if RRP(WHO) is <32> then store <31> in RRP(WHO)] [if RRP(WHO) is <28> then store <33> in RRP(WHO)] [if RRP(WHO) is <34> then store <33> in RRP(WHO)] [if RRP(WHO) is <29> then store <35> in RRP(WHO)] [if RRP(WHO) is <36> then store <35> in RRP(WHO)] [if RRP(WHO) is <30> then store <37> in RRP(WHO)] [if RRP(WHO) is <38> then store <37> in RRP(WHO)] $end ---------------------------------------------------------------------- $>SBFAMILY< [multiple SBFAM-1 SBFAM-2 SBFAM-3 SBFAM-4] [If notbacked then reset SBFAM-1] [If notbacked then reset SBFAM-2] [If notbacked then reset SBFAM-3] [If notbacked then reset SBFAM-4] [store < > in areis] [store < > in temptext] [NIF WHO eq RESPLI then] [store in areis] [If curralt nq <1> then store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [store in areis] [store name(WHO) in temptext] [ENDIF] [do index <1> <16>] [store < > in table(index)] [store < > in xbad(index)] [NIF LINENO(index) is < > then] [store < > in table(index)(3:4)] [convert index integer to xbad(index) character] [ENDIF] [end do] [do index <1> NROSIZ] [if hhmem(index) is <1> then store in table(index)(1:1)] [store <0> in index2] [convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to table(index)(4:4) character] [ELSEIF index2 ge <10> then] [convert index2 integer to table(index)(3:4) character] [ENDIF] [NIF RESPLI eq index AND curralt nq <1> then] [store in table(index)(6:29)] [ELSEIF RESPLI eq index AND curralt eq <1> then] [store in table(index)(6:29)] [ELSE] [store name(index) in table(index)(6:29)] [ENDIF] [store < > in relation(index)] [store <0> in index3] [convert RRP(index) character to index3 integer] [NIF index3 nq <0> AND NEWRRP eq <0> then] ** RRP [store reltab(index3) in relation(index)] [ELSEIF index3 nq <0> AND NEWRRP eq <1> then] [store n-reltab(index3) in relation(index)] [ENDIF] [NIF hhmem(index) is <2> then] [store in relation(index)] [ELSEIF hhmem(index) is <3> then] [store in relation(index)] [ENDIF] [NIF DELDEC(index) is <1> OR DELDEC(index) is <3> then] [store <*deleted*> in relation(index)] [ELSEIF DELDEC(index) is <2> then] [store <*deceased> in relation(index)] [store <*DECEASED*> in table(index)(6:29)] [ENDIF] [store relation(index) in table(index)(31:40)] [store SUBFAM(index) in table(index)(43:54)] [NIF hhmem(index) is <2> OR HHMEM(index) is <3> then] [convert index integer to xbad(index) character] [ENDIF] [NIF RRP(index) is <19> OR RRP(index) is <2> then] [convert index integer to xbad(index) character] [ENDIF] [end do] [convert WHO integer to xbad(WHO) character] $itemtable >SBFAMILY< Who [fill areis] [fill temptext] related to? PROBE: Anyone else? ENTER FOR NO MORE/ FOR MISTAKE LN NAME RELATION SUBFAMILY [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] ENTER LINE NUMBER for each household member to whom [fill temptext] [fill areis] related. ===>__ ===>__ ===>__ ===>__ $d [alt 1] >SBFAMILY< ¨De qui‚n es pariente [fill temptext]? PROBE: ¨De alguien m s? ENTER FOR NO MORE/ FOR MISTAKE LN NAME RELATION SUBFAMILY [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] ENTER LINE NUMBER for each household member to whom [fill temptext] [fill areis] related. ===>__ ===>__ ===>__ ===>__ $end -------------------------------------------------------------------------------- $>SBFAM-1< [within SBFAMily] $display [none] <1-16> Mistake [backto vr-nonrel:R_P] Don't know [if NEWRRP eq <0> then store <12> in RRP(WHO)] [if RRP(WHO) is <31> then store <32> in RRP(WHO)] [if RRP(WHO) is <33> then store <34> in RRP(WHO)] [if RRP(WHO) is <35> then store <36> in RRP(WHO)] [if RRP(WHO) is <37> then store <38> in RRP(WHO)] [goto pre-parent] Refused [if NEWRRP eq <0> then store <12> in RRP(WHO)] [if RRP(WHO) is <31> then store <32> in RRP(WHO)] [if RRP(WHO) is <33> then store <34> in RRP(WHO)] [if RRP(WHO) is <35> then store <36> in RRP(WHO)] [if RRP(WHO) is <37> then store <38> in RRP(WHO)] [goto pre-parent] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end $>SBFAM-2< [within SBFAMily] $display [none] <1-16> No more [goto SBFAM-st] Don't know [goto SBFAM-st] Refused [goto SBFAM-st] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end $>SBFAM-3< [within SBFAMily] $display [none] <1-16> No more [goto SBFAM-st] Don't know [goto SBFAM-st] Refused [goto SBFAM-st] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end $>SBFAM-4< [within SBFAMily] $display [none] <1-16> No more [goto SBFAM-st] Don't know [goto SBFAM-st] Refused [goto SBFAM-st] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end -------------------------------------------------------------------------------- $>SBFAM-st< [store <0> in index] [store <0> in index2] [store <0> in index3] [store <0> in index4] [store < > in SUBFAM(WHO)] [NIF SBFAM-1(R_P) isnt AND SBFAM-1(R_P) isnt then] [if onpath SBFAM-1:R_P then convert SBFAM-1(R_P) character to index integer] [ENDIF] [NIF index eq <0> then] [ELSEIF RRP(index) is <11> then] [store <10> in RRP(index)] [ELSEIF RRP(index) is <21> then] [store <31> in RRP(index)] ** RRP [ELSEIF RRP(index) is <28> then] [store <33> in RRP(index)] [ELSEIF RRP(index) is <29> then] [store <35> in RRP(index)] [ELSEIF RRP(index) is <30> then] [store <37> in RRP(index)] [ENDIF] [NIF SBFAM-2(R_P) isnt AND SBFAM-2(R_P) isnt then] [if onpath SBFAM-2:R_P then convert SBFAM-2(R_P) character to index2 integer] [ENDIF] [NIF index2 eq <0> then] [ELSEIF RRP(index2) is <11> then] [store <10> in RRP(index2)] [ELSEIF RRP(index2) is <21> then] [store <31> in RRP(index2)] ** RRP [ELSEIF RRP(index2) is <28> then] [store <33> in RRP(index2)] [ELSEIF RRP(index2) is <29> then] [store <35> in RRP(index2)] [ELSEIF RRP(index2) is <30> then] [store <37> in RRP(index2)] [ENDIF] [NIF SBFAM-3(R_P) isnt AND SBFAM-3(R_P) isnt then] [if onpath SBFAM-3:R_P then convert SBFAM-3(R_P) character to index3 integer] [ENDIF] [NIF index3 eq <0> then] [ELSEIF RRP(index3) is <11> then] [store <10> in RRP(index3)] [ELSEIF RRP(index3) is <21> then] [store <31> in RRP(index3)] ** RRP [ELSEIF RRP(index3) is <28> then] [store <33> in RRP(index3)] [ELSEIF RRP(index3) is <29> then] [store <35> in RRP(index3)] [ELSEIF RRP(index3) is <30> then] [store <37> in RRP(index3)] [ENDIF] [NIF SBFAM-4(R_P) isnt AND SBFAM-4(R_P) isnt then] [if onpath SBFAM-4:R_P then convert SBFAM-4(R_P) character to index4 integer] [ENDIF] [NIF index4 eq <0> then] [ELSEIF RRP(index4) is <11> then] [store <10> in RRP(index4)] [ELSEIF RRP(index4) is <21> then] [store <31> in RRP(index4)] ** RRP [ELSEIF RRP(index4) is <28> then] [store <33> in RRP(index4)] [ELSEIF RRP(index4) is <29> then] [store <35> in RRP(index4)] [ELSEIF RRP(index4) is <30> then] [store <37> in RRP(index4)] [ENDIF] [NIF index ge <1> AND index le <9> then] [convert index integer to SUBFAM(WHO)(2:2) character] [ELSEIF index ge <10> then] [convert index integer to SUBFAM(WHO)(1:2) character] [ENDIF] [NIF index2 ge <1> AND index2 le <9> then] [convert index2 integer to SUBFAM(WHO)(5:5) character] [ELSEIF index2 ge <10> then] [convert index2 integer to SUBFAM(WHO)(4:5) character] [ENDIF] [NIF index3 ge <1> AND index3 le <9> then] [convert index3 integer to SUBFAM(WHO)(8:8) character] [ELSEIF index3 ge <10> then] [convert index3 integer to SUBFAM(WHO)(7:8) character] [ENDIF] [NIF index4 ge <1> AND index4 le <9> then] [convert index4 integer to SUBFAM(WHO)(11:11) character] [ELSEIF index4 ge <10> then] [convert index4 integer to SUBFAM(WHO)(10:11) character] [ENDIF] [goto pre-parent] $end ---------------------------------------------------------------------- $>nonrel-st< [If NEWRRP eq <0> then store <12> in RRP(WHO)] [NIF RRP(WHO) is <31> OR RRP(WHO) is <21> then] ** RRP [store <32> in RRP(WHO)] [ELSEIF RRP(WHO) is <33> OR RRP(WHO) is <28> then] [store <34> in RRP(WHO)] [ELSEIF RRP(WHO) is <35> OR RRP(WHO) is <29> then] [store <36> in RRP(WHO)] [ELSEIF RRP(WHO) is <37> OR RRP(WHO) is <30> then] [store <38> in RRP(WHO)] [ENDIF] [store <0> in PARENT(WHO)] [store <0> in SPOUSE(WHO)] [if MARITL(WHO) is <1> then store < > in MARITL(WHO)] [store < > in SUBFAM(WHO)] $end ------------------------------------------------------------------------------- $>pre-parent< [NIF NUMHOU eq <1> then] [store <0> in PARENT(WHO)] [roster exit] [ENDIF] [store <0> in index] [NIF RRP(1) is <01> AND RRP(2) is <03> then] [store <1> in index] [ELSEIF RRP(1) is <18> AND RRP(2) is <20> then] ** RRP [store <1> in index] [ENDIF] [NIF index eq <1> AND NUMHOU eq <2> then] [store <0> in PARENT(1)] [store <0> in PARENT(2)] [roster exit] [ENDIF] [NIF RRP(WHO) is <07> AND PARENT(RefPer) isnt < > then] [store PARENT(RefPer) in PARENT(WHO)] [If PARENT(WHO) isnt <0> then goto PRNTVR] [ENDIF] [NIF RRP(WHO) is <25> AND PARENT(RefPer) isnt < > then] ** RRP [store PARENT(RefPer) in PARENT(WHO)] [If PARENT(WHO) isnt <0> then goto PRNTVR] [ENDIF] [NIF PARENT(WHO) is < > OR CHG-WHAT is <6> then] [goto PAR-scrn] [ENDIF] [roster exit] $end ----------------------------------------------------------------------------- $>PAR-scrn< [multiple PAREN-scrn] [if notbacked then reset PAREN-scrn] [do index <1> <16>] [store < > in table(index)] [store <99> in xbad(index)] [if LINENO(index) is < > then convert index integer to xbad(index) character] [end do] [do index <1> NROSIZ] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to table(index)(2:2) character] [ELSEIF index2 ge <10> then] [convert index2 integer to table(index)(1:2) character] [ENDIF] [store name(index) in table(index)(6:29)] [store < > in relation(index)] [store <0> in index3] [convert RRP(index) character to index3 integer] [NIF index3 nq <0> AND NEWRRP eq <0> then] ** RRP [store reltab(index3) in relation(index)] [ELSEIF index3 nq <0> AND NEWRRP eq <1> then] [store n-reltab(index3) in relation(index)] [ENDIF] [NIF hhmem(index) is <2> then] [store in relation(index)] [ELSEIF hhmem(index) is <3> then] [store in relation(index)] [ENDIF] [NIF DELDEC(index) is <1> OR DELDEC(index) is <3> then] [store <*deleted*> in relation(index)] [ELSEIF DELDEC(index) is <2> then] [store <*deceased> in relation(index)] [store <*DECEASED*> in table(index)(6:29)] [ENDIF] [store relation(index) in table(index)(31:40)] [convert index integer to xbad(index) character] [store <0> in index4] [store <0> in index5] [convert RRP(WHO) character to index4 integer] [convert RRP(index) character to index5 integer] [NIF index4 eq <3> and index5 eq <8> then] [store <99> in xbad(index)] [ELSEIF index4 eq <4> and index5 eq <1> then] [store <99> in xbad(index)] [ELSEIF index4 eq <4> and index5 eq <3> then] [store <99> in xbad(index)] [ELSEIF index4 eq <5> and index5 eq <4> then] [store <99> in xbad(index)] [ELSEIF index4 eq <5> and index5 eq <8> then] [store <99> in xbad(index)] [ELSEIF index4 eq <6> and index5 eq <8> then] [store <99> in xbad(index)] [ELSEIF index4 eq <7> and index5 eq <6> then] [store <99> in xbad(index)] [ELSEIF index4 eq <8> and index5 eq <3> then] [store <99> in xbad(index)] [ELSEIF index4 eq <8> and index5 eq <7> then] [store <99> in xbad(index)] [ELSEIF index4 eq <8> and index5 eq <8> then] [store <99> in xbad(index)] [ELSEIF index4 eq <8> and index5 eq <10> then] [store <99> in xbad(index)] [ELSEIF index4 eq <13> and index5 eq <13> then] [store <99> in xbad(index)] [ELSEIF index4 eq <10> and index5 eq <10> then] [store <99> in xbad(index)] [ELSEIF index4 eq <10> and index5 eq <13> then] [store <99> in xbad(index)] [ENDIF] [NIF index4 eq <20> and index5 eq <26> then] ** RRP [store <99> in xbad(index)] [ELSEIF index4 eq <22> and index5 eq <18> then] [store <99> in xbad(index)] [ELSEIF index4 eq <22> and index5 eq <20> then] [store <99> in xbad(index)] [ELSEIF index4 eq <23> and index5 eq <22> then] [store <99> in xbad(index)] [ELSEIF index4 eq <23> and index5 eq <26> then] [store <99> in xbad(index)] [ELSEIF index4 eq <24> and index5 eq <26> then] [store <99> in xbad(index)] [ELSEIF index4 eq <25> and index5 eq <24> then] [store <99> in xbad(index)] [ELSEIF index4 eq <26> and index5 eq <20> then] [store <99> in xbad(index)] [ELSEIF index4 eq <26> and index5 eq <25> then] [store <99> in xbad(index)] [ELSEIF index4 eq <26> and index5 eq <26> then] [store <99> in xbad(index)] [ENDIF] [store <0> in index6] [store <0> in index7] [NIF index4 eq <21> OR index4 eq <28> then] [store <1> in index6] [ELSEIF index4 eq <29> OR index4 eq <30> then] [store <1> in index6] [ENDIF] [NIF index5 eq <21> OR index5 eq <28> then] [store <1> in index7] [ELSEIF index5 eq <29> OR index5 eq <30> then] [store <1> in index7] [ENDIF] [NIF index6 eq <1> and index7 eq <1> then] [store <99> in xbad(index)] [ENDIF] [NIF index4 eq <21> AND index5 eq <21> then] ADDED DEC 94 [convert index integer to xbad(index) character] [ENDIF] [store <0> in index6] [store <0> in index7] [NIF index4 eq <31> OR index4 eq <33> then] [store <1> in index6] [ELSEIF index4 eq <35> OR index4 eq <37> then] [store <1> in index6] [ENDIF] [NIF index5 eq <31> OR index5 eq <33> then] [store <1> in index7] [ELSEIF index5 eq <35> OR index5 eq <37> then] [store <1> in index7] [ENDIF] [NIF index6 eq <1> and index7 eq <1> then] [store <99> in xbad(index)] [ENDIF] [NIF index4 eq <31> AND index5 eq <31> then] ADDED DEC 94 [convert index integer to xbad(index) character] [ENDIF] [store <0> in index6] [store <0> in index7] [NIF index4 eq <31> OR index4 eq <33> then] [store <1> in index6] [ELSEIF index4 eq <35> OR index4 eq <37> then] [store <1> in index6] [ENDIF] [NIF index5 eq <21> OR index5 eq <28> then] [store <1> in index7] [ELSEIF index5 eq <29> OR index5 eq <30> then] [store <1> in index7] [ENDIF] [NIF index6 eq <1> and index7 eq <1> then] [store <99> in xbad(index)] [ENDIF] [NIF index4 eq <31> AND index5 eq <21> then] ADDED DEC 94 [convert index integer to xbad(index) character] [ENDIF] [store <0> in index4] [convert PARENT(index) character to index4 integer] [If index4 eq WHO then convert index integer to xbad(index) character] [store <0> in index4] [convert SPOUSE(index) character to index4 integer] [If index4 eq WHO then convert index integer to xbad(index) character] [end do] [store <0> in index] [if onpath NEWLIV-1 then store <1> in index] [If MISCK is <5> then store <0> in index] [if onpath CHANGE then store <1> in index] [if onpath CHANGE2 then store <1> in index] [NIF NWPRFG(WHO) eq <1> AND index eq <1> then] [if LINENO(1) isnt < > then store <99> in xbad(1)] [if LINENO(2) isnt < > then store <99> in xbad(2)] [if LINENO(3) isnt < > then store <99> in xbad(3)] [if LINENO(4) isnt < > then store <99> in xbad(4)] [if LINENO(5) isnt < > then store <99> in xbad(5)] [if LINENO(6) isnt < > then store <99> in xbad(6)] [if LINENO(7) isnt < > then store <99> in xbad(7)] [if LINENO(8) isnt < > then store <99> in xbad(8)] [if LINENO(9) isnt < > then store <99> in xbad(9)] [if LINENO(10) isnt < > then store <99> in xbad(10)] [if LINENO(11) isnt < > then store <99> in xbad(11)] [if LINENO(12) isnt < > then store <99> in xbad(12)] [if LINENO(13) isnt < > then store <99> in xbad(13)] [if LINENO(14) isnt < > then store <99> in xbad(14)] [if LINENO(15) isnt < > then store <99> in xbad(15)] [if LINENO(16) isnt < > then store <99> in xbad(16)] [ENDIF] [do index <1> NROSIZ] [NIF hhmem(index) is <2> OR HHMEM(index) is <3> then] [convert index integer to xbad(index) character] [ENDIF] [end do] [convert WHO integer to xbad(WHO) character] $itemtable >PAREN-scrn< LINE NAME RELATION [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] ENTER LINE NUMBER OF PARENT OF [fill name(WHO)] -- ASK IF NECESSARY <0> NO ONE LISTED ABOVE ===>__ $end ----------------------------------------------------------------------------- $>PAREN-scrn< [within PAR-scrn] $d [none] <0> NO ONE LISTED ABOVE [store <0> in PARENT(WHO)] <1-16> [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] [store PAREN-scrn(R_P) in PARENT(WHO)] Don't Know [store in PARENT(WHO)] Refused [store in PARENT(WHO)] ===>__ [roster exit] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end ----------------------------------------------------------------------------- $>PRNTVR< [if notbacked then reset PRNTVR] [store < > in temptext] [store < > in temp2] [combine name(RefPer) <'s> into temptext] [combine name(WHO) <'s> into temp2] [If curralt eq <1> then combine < > name(RefPer) into temptext] [If curralt eq <1> then combine < > name(WHO) into temp2] $display >PRNTVR< [fill temptext] parent is also [fill temp2] parent, is that correct? <1> Yes <2> No [store < > in PARENT(WHO)] [goto PAR-scrn] ===>_ [roster exit] $d [alt 1] >PRNTVR< El pap  (o la mam ) [fill temptext] tambi‚n es pap  (o mam ) [fill temp2], ¨correcto? <1> S¡ <2> No [store < > in PARENT(WHO)] [goto PAR-scrn] ===>_ [roster exit] $end ---------------------------------------------------------------------------- $REND>SREL< ================================================================================ ******************************************************************************* **C** SMEM ******************************************************************************** $RBEGIN>SMEM< [maxelt 1] ------------------------------------------------------------------------------- $>VERURE< [if notbacked then reset VERURE] [if notbacked then reset HHMEM-scrn] [NIF WHO eq RESPLI then] [If curralt nq <1> then store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [combine name(WHO) <'s> into temptext] [If curralt eq <1> then combine < > name(WHO) into temptext] [ENDIF] $d >VERURE< VERIFY OR ASK: Is this [fill temptext] usual place of residence? <1> Yes [store <1> in hhmem(WHO)] [store <0> in DELDEC(WHO)] [goto SMEM-out] <2> No [if CHINHH(WHO) is <1> then store <2> in CHINHH(WHO)] [store <2> in hhmem(WHO)] [store <0> in DELDEC(WHO)] [goto HHMEM-scrn] <3> No, but PROXY respondent [store <3> in hhmem(WHO)] [store <0> in DELDEC(WHO)] [blind] Don't know [store <1> in hhmem(WHO)] [store <0> in DELDEC(WHO)] [goto HHMEM-scrn] Refused [store <1> in hhmem(WHO)] [store <0> in DELDEC(WHO)] [goto SMEM-out] ===>_ $D [alt 1] >VERURE< VERIFY OR ASK: ¨Es ‚sta la residencia usual [fill temptext]? <1> S¡ [store <1> in hhmem(WHO)] [store <0> in DELDEC(WHO)] [goto SMEM-out] <2> No [if CHINHH(WHO) is <1> then store <2> in CHINHH(WHO)] [store <2> in hhmem(WHO)] [store <0> in DELDEC(WHO)] [goto HHMEM-scrn] <3> No, but PROXY respondent [store <3> in hhmem(WHO)] [store <0> in DELDEC(WHO)] [blind] Don't know [store <1> in hhmem(WHO)] [store <0> in DELDEC(WHO)] [goto HHMEM-scrn] Refused [store <1> in hhmem(WHO)] [store <0> in DELDEC(WHO)] [goto SMEM-out] ===>_ $end -------------------------------------------------------------------------------- $>HHMEM-scrn< [If notbacked then reset HHMEM-scrn] [store < > in dodoes] [store < > in temptext] [NIF WHO eq RESPLI then] [store in dodoes] [store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [store in dodoes] [store name(WHO) in temptext] [ENDIF] $d [no erase] >HHMEM-scrn< [fill dodoes] [fill temptext] have a usual place of residence elsewhere? <1> Yes [if CHINHH(WHO) is <1> then store <2> in CHINHH(WHO)] [store <2> in hhmem(WHO)] [if VERURE is <3> then store <3> in hhmem(WHO)] [store <0> in DELDEC(WHO)] <2> No [store <1> in hhmem(WHO)] [store <0> in DELDEC(WHO)] [blind] Don't know [store <1> in hhmem(WHO)] [store <0> in DELDEC(WHO)] Refused [store <1> in hhmem(WHO)] [store <0> in DELDEC(WHO)] ===>_ [goto SMEM-out] $d [alt 1] [no erase] >HHMEM-scrn< ¨Tiene [fill temptext] su residencia usual en alg£n otro sitio? <1> S¡ [if CHINHH(WHO) is <1> then store <2> in CHINHH(WHO)] [store <2> in hhmem(WHO)] [if VERURE is <3> then store <3> in hhmem(WHO)] [store <0> in DELDEC(WHO)] <2> No [store <1> in hhmem(WHO)] [store <0> in DELDEC(WHO)] [blind] Don't know [store <1> in hhmem(WHO)] [store <0> in DELDEC(WHO)] Refused [store <1> in hhmem(WHO)] [store <0> in DELDEC(WHO)] ===>_ [goto SMEM-out] $end -------------------------------------------------------------------------------- $>SMEM-out< [store <0> in NUMHOU] [do index <1> NROSIZ] [if hhmem(index) is <1> then add <1> to NUMHOU] Number of hh members [end do] IF THE PERSON IS A PROXY RESPONDENT THEN YOU MUST BE TALKING TO THAT PERSON [If VERURE(R_P) is <3> then store WHO in RESPLI] [roster exit] $end ------------------------------------------------------------------------------- $REND>SMEM< ================================================================================ ******************************************************************************* **D** SAGE ******************************************************************************** $RBEGIN>SAGE< [maxelt 1] ------------------------------------------------------------------------------- $>BIRTH-scrn< [if notbacked then reset BMON-scrn] [if notbacked then reset BDAY-scrn] [if notbacked then reset BYEAR-scrn] [multiple BMON-scrn BDAY-scrn BYEAR-scrn] [store < > in temptext] [store < > in temp3] [store < > in temp4] [store < > in temp5] [NIF WHO eq RESPLI then] [If curralt nq <1> then store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [combine name(WHO) <'s> into temptext] [If curralt eq <1> then store name(WHO) in temptext] [ENDIF] [NIF BIRTHM(WHO) isnt < > then] [store BIRTHM(WHO) in temp3] [ELSE] [store in temp3] [ENDIF] [NIF BIRTHD(WHO) isnt < > then] [store BIRTHD(WHO) in temp4] [ELSE] [store in temp4] [ENDIF] [NIF BIRTHY(WHO) isnt < > then] [store BIRTHY(WHO) in temp5] [ELSE] [store in temp5] [ENDIF] [store < > in xbad(1)] [store < > in xbad(2)] $itemtable >BMON-scrn< What is [fill temptext] date of birth? (First, the month.) PREVIOUS ENTRY WAS: [fill temp3] <1> January <5> May <9> September <2> February <6> June <10> October <3> March <7> July <11> November <4> April <8> August <12> December ENTER MONTH ===>__ BDAY-scrn <1-31> Day PREVIOUS ENTRY WAS: [fill temp4] ENTER DAY ===>__ BYEAR-scrn <98-99> 1898 to 1899 PREVIOUS ENTRY WAS: [fill temp5] <00-97> 1900 to 1997 ENTER YEAR ===>__ $d [alt 1] >BMON-scrn< ¨En qu‚ fecha naci¢ [fill temptext]? (First, the month.) PREVIOUS ENTRY WAS: [fill temp3] <1> Enero <5> Mayo <9> Septiembre <2> Febrero <6> Junio <10> Octubre <3> Marzo <7> Julio <11> Noviembre <4> Abril <8> Agosto <12> Diciembre ENTER MONTH ===>__ BDAY-scrn <1-31> Day PREVIOUS ENTRY WAS: [fill temp4] ENTER DAY ===>__ BYEAR-scrn <98-99> 1898 to 1899 PREVIOUS ENTRY WAS: [fill temp5] <00-97> 1900 to 1997 ENTER YEAR ===>__ $end -------------------------------------------------------------------------------- $>BMON-scrn< [within BIRTH-scrn] $d [none] <1> January <2> February [store <31> in xbad(1)] [store <30> in xbad(2)] <3> March <4> April [store <31> in xbad(1)] <5> May <6> June [store <31> in xbad(1)] <7> July <8> August <9> September [store <31> in xbad(1)] <10> October <11> November [store <31> in xbad(1)] <12> December Don't know [store in BIRTHM(WHO)] [goto BYEAR-scrn] Refused [store in BIRTHM(WHO)] [goto BYEAR-scrn] $end $>BDAY-scrn< [within BIRTH-scrn] [store BMON-scrn(R_P) in BIRTHM(WHO)] $d [none] <1-31> Date Don't know [goto BYEAR-scrn] Refused [goto BYEAR-scrn] $edit [notequal xbad(1)] [notequal xbad(2)] $end $>BYEAR-scrn< [within BIRTH-scrn] [store BDAY-scrn(R_P) in BIRTHD(WHO)] $d [none] <00-99> Year Don't know Refused $end ----------------------------------------------------------------------------- $>check-age2< [store BYEAR-scrn(R_P) in BIRTHY(WHO)] [NIF BIRTHM(WHO) is OR BIRTHM(WHO) is then] [goto BIRTH-st] [ELSEIF BIRTHD(WHO) is OR BIRTHD(WHO) is then] [goto BIRTH-st] [ELSEIF BIRTHY(WHO) is OR BIRTHY(WHO) is then] [goto BIRTH-st] [ENDIF] [store <0> in jdate-i] [store <0> in mon-i] [setdate jdate-i mon-i day-i year-i date-c wkday1-c wkday2-c] [store <0> in index] [convert BIRTHY(WHO) character to index integer] [add <1900> to index] [If index nq year-i then goto BIRTH-st] [convert BIRTHM(WHO) character to bmo-i integer] [convert BIRTHD(WHO) character to bday-i integer] [convert BIRTHY(WHO) character to byear-i integer] [add <1900> to byear-i] [store <0> in bjdate-i] [setdate bjdate-i bmo-i bday-i byear-i bdate-c BWKD1 BWKD2] [if jdate-i lt bjdate-i then goto errdate] Complete birthdate after current date [goto BIRTH-st] $end -------------------------------------------------------------------------------- $>errdate< [if notbacked then reset errdate] $display >errdate< *** ERROR - BIRTHDATE IN FUTURE *** BACK TO CORRECT [backto BIRTH-scrn:R_P] ===>_ $end -------------------------------------------------------------------------------- COMMENT: IF WE HAVE BIRTH MONTH AND YEAR, WE COMPUTE AGE. IF YEAR OF BIRTH IS REFUSED, WE ONLY ASK FOR AN AGE RANGE. OTHERWISE, IF ANY PORTION (EITHER MONTH OR YEAR) IS MISSING WE ASK FOR AN ESTIMATE. $>BIRTH-St< [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] [NIF BIRTHY(WHO) is then] [store in age(WHO)] [goto UNDAGE] [ENDIF] [if BIRTHY(WHO) is then goto GESAGE] [goto agevr] $end ------------------------------------------------------------------------------- $>agevr< [if agevr(R_P) is <2> then reset agevr] [if notbacked then reset agevr] [store <0> in jdate-i] [store <0> in mon-i] [setdate jdate-i mon-i day-i year-i date-c wkday1-c wkday2-c] APPROXIMATE AGE IF DOB-M0 IS AN R OR D [NIF BIRTHM(WHO) isnt AND BIRTHM(WHO) isnt then] [convert BIRTHM(WHO) character to BrthM-i(WHO) integer] [ENDIF] [convert BIRTHY(WHO) character to BrthY-i(WHO) integer] COMMENT: THE FOLLOWING CALCULATES AGE AS OF LAST MONTH [store <0> in index] [store <0> in age-i(WHO)] [store <0> in index2] [store year-i in index] [subtract <1900> from index] [add index to age-i(WHO)] [if BrthY-i(WHO) gt index then add <100> to age-i(WHO)] [subtract BrthY-i(WHO) from age-i(WHO)] IF MON-I IS JANUARY--JUNE PERSON WOULD BE 18 IF MON-I IS JULY--DECEMBER PERSON WOULD BE 19 [NIF BIRTHM(WHO) is OR BIRTHM(WHO) is then] [If mon-i le <6> then subtract <1> from age-i(WHO)] [ENDIF] [if mon-i le BrthM-i(WHO) then subtract <1> from age-i(WHO)] [convert BIRTHD(WHO) character to BrthD-i(WHO) integer] [NIF BIRTHD(WHO) is OR BIRTHD(WHO) is < > then] [store <15> in BrthD-i(WHO)] [ENDIF] COMMENT: SETS UP THE DATE OF THE SATURDAY OF REFERENCE WEEK. [store day-i in index] [CASE wkday1-c] [OF then] [subtract <1> from index] [OF then] [subtract <2> from index] [OF then] [subtract <3> from index] [OF then] [subtract <4> from index] [OF then] [subtract <5> from index] [OF then] [subtract <6> from index] [OF then] [subtract <7> from index] [ENDCASE] COMMENT: THE FOLLOWING UPDATES AGE IF BIRTHDAY IS DURING CURRENT MONTH AND BEFORE INTERVIEW WEEK. [NIF BrthM-i(WHO) eq mon-i AND BrthD-i(WHO) le index then] [add <1> to age-i(WHO)] [ENDIF] [NIF age-i(WHO) gt <99> then] [store <99> in age-i(WHO)] [ELSEIF age-i(WHO) le <0> then] [store <0> in age-i(WHO)] [ENDIF] [convert age-i(WHO) integer to age(WHO) character] [store <0> in AGERNG(WHO)] [NIF age-i(who) ge <65> then] [store <6> in AGERNG(WHO)] [ELSEIF age-i(who) ge <50> then] [store <5> in AGERNG(WHO)] [ELSEIF age-i(who) ge <25> then] [store <4> in AGERNG(WHO)] [ELSEIF age-i(who) ge <16> then] [store <3> in AGERNG(WHO)] [ELSEIF age-i(who) eq <15> then] [store <2> in AGERNG(WHO)] [ELSEIF age-i(who) ge <0> then] [store <1> in AGERNG(WHO)] [ENDIF] [NIF WHO eq RESPLI then] [store in temp4] [If curralt eq <1> then store in temp4] [ELSE] [store name(WHO) in temp4] [ENDIF] [store age(WHO) in temptext] [NIF BIRTHM(WHO) is OR BIRTHM(WHO) is then] [combine < > age(WHO) into temptext] [If curralt eq <1> then combine < > age(WHO) into temptext] [ENDIF] [NIF age-i(WHO) eq <0> then] [store in temptext] [If curralt eq <1> then store in temptext] [ELSEIF age-i(WHO) ge <99> then] [store in temptext] [If curralt eq <1> then store in temptext] [ENDIF] [store in temp2] [If curralt eq <1> then store in temp2] [NIF age(WHO) is <0> OR age(WHO) is <1> then] [store in temp2] [If curralt eq <1> then store in temp2] [ENDIF] [store <0> in index] [NIF BIRTHD(WHO) is < > OR BIRTHD(WHO) is then] [add <1> to index] [ENDIF] $d >agevr< As of last week, that would make [fill temp4] [fill temptext] [fill temp2] old. Is that correct? <1> Yes, age is correct. PROCEED [roster exit] <2> No, age is NOT correct. RECHECK BIRTHDATE [backto BYEAR-scrn:R_P] ===>_ $d [alt 1] >agevr< Eso significa que [fill temp4] tiene [fill temptext] [fill temp2]. ¨Correcto? <1> Yes, age is correct. PROCEED [roster exit] <2> No, age is NOT correct. RECHECK BIRTHDATE [backto BYEAR-scrn:R_P] ===>_ $end ------------------------------------------------------------------------------- $>GESAGE< [if notbacked then reset GESAGE] [NIF WHO eq RESPLI then] [store in temptext] [store in yourhshr] [store in youheshe] [store in werewas] [If curralt eq <1> then store in temptext] [If curralt eq <1> then store in youheshe] [ELSEIF sex(WHO) is <2> then] [store in youheshe] [combine name(WHO) <'s> into temptext] [store in temp3] [store in werewas] [If curralt eq <1> then store in youheshe] [If curralt eq <1> then store name(WHO) in temptext] [ELSE] [combine name(WHO) <'s> into temptext] [store in youheshe] [store in yourhshr] [store in werewas] [If curralt eq <1> then store <‚l> in youheshe] [If curralt eq <1> then store name(WHO) in temptext] [ENDIF] $d >GESAGE< Even though you don't know [fill temptext] exact birthdate, what is your best guess as to how old [fill youheshe] [fill werewas] on [fill yourhshr] last birthday? <99> 99 years or older [store GESAGE(R_P) in age(WHO)] [convert GESAGE(R_P) character to age-i(WHO) integer] [store <6> in AGERNG(WHO)] <00-98> 0 to 98 years old [store GESAGE(R_P) in age(WHO)] [convert GESAGE(R_P) character to age-i(WHO) integer] [store <1> in AGERNG(WHO)] [if age-i(WHO) eq <15> then store <2> in AGERNG(WHO)] [if age-i(WHO) ge <16> then store <3> in AGERNG(WHO)] [if age-i(WHO) ge <25> then store <4> in AGERNG(WHO)] [if age-i(WHO) ge <50> then store <5> in AGERNG(WHO)] [if age-i(WHO) ge <65> then store <6> in AGERNG(WHO)] [blind] Refused [store in age(WHO)] [store <9> in AGERNG(WHO)] [goto UNDAGE] Don't know [store in age(WHO)] [store <9> in AGERNG(WHO)] [goto UNDAGE] ===>__ [roster exit] $d [alt 1] >GESAGE< Aunque no sabe la fecha exacta en que naci¢ [fill temptext], ¨qu‚ edad calcula que calcula que [fill youheshe] cumpli¢ en su £ltimo cumplea¤os? <99> 99 a¤os o m s [store GESAGE(R_P) in age(WHO)] [convert GESAGE(R_P) character to age-i(WHO) integer] [store <6> in AGERNG(WHO)] <00-98> 0 a 98 a¤os de edad [store GESAGE(R_P) in age(WHO)] [convert GESAGE(R_P) character to age-i(WHO) integer] [store <1> in AGERNG(WHO)] [if age-i(WHO) eq <15> then store <2> in AGERNG(WHO)] [if age-i(WHO) ge <16> then store <3> in AGERNG(WHO)] [if age-i(WHO) ge <25> then store <4> in AGERNG(WHO)] [if age-i(WHO) ge <50> then store <5> in AGERNG(WHO)] [if age-i(WHO) ge <65> then store <6> in AGERNG(WHO)] [blind] Refused [store in age(WHO)] [store <9> in AGERNG(WHO)] [goto UNDAGE] Don't know [store in age(WHO)] [store <9> in AGERNG(WHO)] [goto UNDAGE] ===>__ [roster exit] $end ------------------------------------------------------------------------------ $>UNDAGE< [if notbacked then reset UNDAGE] [NIF WHO eq RESPLI then] [store in areis] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSEIF sex(WHO) is <2> then] [store in areis] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSE] [store in areis] [store in youheshe] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] $d >UNDAGE< ASK IF NECESSSARY: [fill areis] [fill youheshe] under 15? <1> Yes [store <1> in AGERNG(WHO)] <2> No [store <8> in AGERNG(WHO)] [blind] Don't know [store <9> in AGERNG(WHO)] [store in age(WHO)] Refused [store <9> in AGERNG(WHO)] [store in age(WHO)] ===>_ [roster exit] $d [alt 1] >UNDAGE< ASK IF NECESSSARY: ¨Es [fill youheshe] menor de 15 a¤os? <1> S¡ [store <1> in AGERNG(WHO)] <2> No [store <8> in AGERNG(WHO)] [blind] Don't know [store <9> in AGERNG(WHO)] [store in age(WHO)] Refused [store <9> in AGERNG(WHO)] [store in age(WHO)] ===>_ [roster exit] $end -------------------------------------------------------------------------------- $REND>SAGE< ================================================================================ ******************************************************************************* **E** SMAR ******************************************************************************** $RBEGIN>SMAR< [maxelt 1] ------------------------------------------------------------------------------- $>MARIT-scrn< [if notbacked then reset MARIT-scrn] [if notbacked then reset SPOUS-scrn] [if notbacked then reset SPOUS-nscr] [NIF WHO eq RESPLI then] [store in areis] [If curralt nq <1> then store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [store in areis] [store name(WHO) in temptext] [ENDIF] [store <0> in xbad(1)] [store <{1} Married - spouse PRESENT> in temp2] [NIF WHO eq RefPer AND SPOUSE(Refper) is <0> then] [store < > in temp2] [store <1> in xbad(1)] [ENDIF] [NIF RRP(WHO) is <32> OR RRP(WHO) is <31> then] [store < > in temp2] [store <1> in xbad(1)] [ENDIF] [store <0> in index2] [store <0> in index3] [do index <1> <16>] [if sex(index) is <1> then add <1> to index2] [if sex(index) is <2> then add <1> to index3] [end do] [NIF index2 eq NROSIZ then] [store < > in temp2] [store <1> in xbad(1)] [ELSEIF index3 eq NROSIZ then] [store < > in temp2] [store <1> in xbad(1)] [ENDIF] [If NROSIZ eq <2> then store < > in temp2] [If NROSIZ eq <2> then store <1> in xbad(1)] [store <0> in index] [if onpath NEWLIV-1 then store <1> in index] [if onpath CHANGE then store <1> in index] [if onpath CHANGE2 then store <1> in index] [NIF NWPRFG(WHO) eq <1> AND index eq <1> then] [store <0> in xbad(1)] [store <{1} Married - spouse PRESENT> in temp2] [ENDIF] $d >MARIT-scrn< [fill areis] [fill temptext] now married, widowed, divorced, separated or never married? [fill temp2] <2> Married - spouse ABSENT [store <2> in MARITL(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] [store < > in SPOUSE(WHO)] [roster exit] <3> Widowed [store <3> in MARITL(WHO)] [store < > in SPOUSE(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] [roster exit] <4> Divorced [store <4> in MARITL(WHO)] [store < > in SPOUSE(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] [roster exit] <5> Separated [store <5> in MARITL(WHO)] [store < > in SPOUSE(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] [roster exit] <6> Never married [store <6> in MARITL(WHO)] [store < > in SPOUSE(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] [roster exit] [blind] Don't know [store in MARITL(WHO)] [store < > in SPOUSE(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] [roster exit] Refused [store in MARITL(WHO)] [store < > in SPOUSE(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] [roster exit] <1> Married - spouse PRESENT [store <1> in MARITL(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] [if SPOUSE(WHO) is < > then goto Ck-SPOUSE] [if CHG-WHAT is <9> then goto SPOUSE-scr] [roster exit] ===>_ $d [alt 1] >MARIT-scrn< Actualmente, ¨est  [fill temptext] casado(a), viudo(a), divorciado(a), separado(a) o nunca se ha casado? [fill temp2] <2> Married - spouse ABSENT [store <2> in MARITL(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] [store < > in SPOUSE(WHO)] [roster exit] <3> Widowed [store <3> in MARITL(WHO)] [store < > in SPOUSE(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] [roster exit] <4> Divorced [store <4> in MARITL(WHO)] [store < > in SPOUSE(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] [roster exit] <5> Separated [store <5> in MARITL(WHO)] [store < > in SPOUSE(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] [roster exit] <6> Never married [store <6> in MARITL(WHO)] [store < > in SPOUSE(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] [roster exit] [blind] Don't know [store in MARITL(WHO)] [store < > in SPOUSE(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] [roster exit] Refused [store in MARITL(WHO)] [store < > in SPOUSE(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] [roster exit] <1> Married - spouse PRESENT [store <1> in MARITL(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] [if SPOUSE(WHO) is < > then goto ck-SPOUSE] [if CHG-WHAT is <9> then goto SPOUSE-scr] [roster exit] ===>_ $edit [notequal xbad(1)] $end ----------------------------------------------------------------------------- $>ck-SPOUSE< [if NEWRRP eq <1> then goto SPOUSE-nsc] $end ---------------------------------------------------------------------- $>SPOUSE-scr< [multiple SPOUS-scrn] [do index <1> <16>] [store < > in table(index)] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to table(index)(2:2) character] [ELSEIF index2 ge <10> then] [convert index2 integer to table(index)(1:2) character] [ENDIF] [if LINENO(index) is < > then store < > in table(index)(1:2)] [if LINENO(index) is < > then convert index integer to xbad(index) character] [store name(index) in table(index)(6:29)] [if DELDEC(index) is <2> then store <*DECEASED*> in table(index)(6:29)] [store < > in relation(index)] [store <0> in index3] [convert RRP(index) character to index3 integer] [If index3 nq <0> then store reltab(index3) in relation(index)] [NIF hhmem(index) is <2> then] [store in relation(index)] [ELSEIF hhmem(index) is <3> then] [store in relation(index)] [ENDIF] [NIF DELDEC(index) is <1> OR DELDEC(index) is <3> then] [store <*deleted*> in relation(index)] [ELSEIF DELDEC(index) is <2> then] [store <*deceased> in relation(index)] [ENDIF] [store relation(index) in table(index)(31:40)] [store <0> in index2] [NIF MARITL(index) isnt < > AND MARITL(index) isnt then] [convert MARITL(index) character to index2 integer] [ENDIF] [If index2 nq <0> then store Martab(index2) in table(index)(43:45)] [convert index integer to xbad(index) character] [store <0> in index2] [NIF RRP(index) is <13> or RRP(index) is <10> then] [store <3> in index2] [if sex(index) is <1> then store <1> in index2] [if sex(index) is <2> then store <2> in index2] [ENDIF] [NIF RRP(WHO) is <10> and sex(WHO) is <1> then] [if index2 eq <2> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ELSEIF RRP(WHO) is <10> and sex(WHO) is <2> then] [if index2 eq <1> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ELSEIF RRP(WHO) is <10> then] [if index2 eq <1> then store <99> in xbad(index)] [if index2 eq <2> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ENDIF] [store <0> in index2] [NIF RRP(index) is <4> or RRP(index) is <5> then] [store <3> in index2] [if sex(index) is <1> then store <1> in index2] [if sex(index) is <2> then store <2> in index2] [ELSEIF RRP(index) is <6> or RRP(index) is <7> then] [store <3> in index2] [if sex(index) is <1> then store <1> in index2] [if sex(index) is <2> then store <2> in index2] [ELSEIF RRP(index) is <8> then] [store <3> in index2] [if sex(index) is <1> then store <1> in index2] [if sex(index) is <2> then store <2> in index2] [ENDIF] [NIF RRP(WHO) is <8> and sex(WHO) is <1> then] [if index2 eq <2> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ELSEIF RRP(WHO) is <8> and sex(WHO) is <2> then] [if index2 eq <1> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ELSEIF RRP(WHO) is <8> then] [if index2 eq <1> then store <99> in xbad(index)] [if index2 eq <2> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ENDIF] [store <0> in index2] [NIF RRP(WHO) is <4> or RRP(WHO) is <5> then] [store <3> in index2] [if sex(WHO) is <1> then store <1> in index2] [if sex(WHO) is <2> then store <2> in index2] [ELSEIF RRP(WHO) is <6> or RRP(WHO) is <7> then] [store <3> in index2] [if sex(WHO) is <1> then store <1> in index2] [if sex(WHO) is <2> then store <2> in index2] [ELSEIF RRP(WHO) is <8> then] [store <3> in index2] [if sex(WHO) is <1> then store <1> in index2] [if sex(WHO) is <2> then store <2> in index2] [ENDIF] [NIF RRP(index) is <8> and sex(index) is <1> then] [if index2 eq <2> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ELSEIF RRP(index) is <8> and sex(index) is <2> then] [if index2 eq <1> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ELSEIF RRP(index) is <8> then] [if index2 eq <1> then store <99> in xbad(index)] [if index2 eq <2> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ENDIF] [store <0> in index2] [NIF RRP(index) is <6> then] [store <3> in index2] [if sex(index) is <1> then store <1> in index2] [if sex(index) is <2> then store <2> in index2] [ENDIF] [NIF RRP(WHO) is <6> and sex(WHO) is <1> then] [if index2 eq <2> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ELSEIF RRP(WHO) is <6> and sex(WHO) is <2> then] [if index2 eq <1> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ELSEIF RRP(WHO) is <6> then] [if index2 eq <1> then store <99> in xbad(index)] [if index2 eq <2> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ENDIF] [store <0> in index2] [NIF RRP(index) is <3> then] [store <3> in index2] [if sex(index) is <1> then store <1> in index2] [if sex(index) is <2> then store <2> in index2] [ENDIF] [NIF RRP(WHO) is <1> and sex(WHO) is <1> then] [if index2 eq <2> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ELSEIF RRP(WHO) is <1> and sex(WHO) is <2> then] [if index2 eq <1> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ELSEIF RRP(WHO) is <1> then] [if index2 eq <1> then store <99> in xbad(index)] [if index2 eq <2> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ENDIF] [store <0> in index2] [NIF RRP(index) is <1> OR RRP(index) is <18> then] [store <3> in index2] [if sex(index) is <1> then store <1> in index2] [if sex(index) is <2> then store <2> in index2] [ENDIF] [NIF RRP(WHO) is <3> and sex(WHO) is <1> then] [if index2 eq <2> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ELSEIF RRP(WHO) is <3> and sex(WHO) is <2> then] [if index2 eq <1> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ELSEIF RRP(WHO) is <3> then] [if index2 eq <1> then store <99> in xbad(index)] [if index2 eq <2> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ENDIF] [store <0> in index2] [NIF RRP(index) is <1> then] [store <3> in index2] [if sex(index) is <1> then store <1> in index2] [if sex(index) is <2> then store <2> in index2] [ENDIF] [NIF RRP(WHO) is <3> and sex(WHO) is <1> then] [if index2 eq <2> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ELSEIF RRP(WHO) is <3> and sex(WHO) is <2> then] [if index2 eq <1> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ELSEIF RRP(WHO) is <3> then] [if index2 eq <1> then store <99> in xbad(index)] [if index2 eq <2> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ENDIF] [end do] [store <0> in index] [if onpath NEWLIV-1 then store <1> in index] [IF MISCK is <5> then store <0> in index] [if onpath CHANGE then store <1> in index] [if onpath CHANGE2 then store <1> in index] [NIF NWPRFG(WHO) eq <1> AND index eq <1> then] [if LINENO(1) isnt < > then store <99> in xbad(1)] [if LINENO(2) isnt < > then store <99> in xbad(2)] [if LINENO(3) isnt < > then store <99> in xbad(3)] [if LINENO(4) isnt < > then store <99> in xbad(4)] [if LINENO(5) isnt < > then store <99> in xbad(5)] [if LINENO(6) isnt < > then store <99> in xbad(6)] [if LINENO(7) isnt < > then store <99> in xbad(7)] [if LINENO(8) isnt < > then store <99> in xbad(8)] [if LINENO(9) isnt < > then store <99> in xbad(9)] [if LINENO(10) isnt < > then store <99> in xbad(10)] [if LINENO(11) isnt < > then store <99> in xbad(11)] [if LINENO(12) isnt < > then store <99> in xbad(12)] [if LINENO(13) isnt < > then store <99> in xbad(13)] [if LINENO(14) isnt < > then store <99> in xbad(14)] [if LINENO(15) isnt < > then store <99> in xbad(15)] [if LINENO(16) isnt < > then store <99> in xbad(16)] [ENDIF] [do index <1> NROSIZ] [NIF hhmem(index) is <2> OR HHMEM(index) is <3> then] [convert index integer to xbad(index) character] [ENDIF] [end do] [convert WHO integer to xbad(WHO) character] [store < > in temp2] [If PARENT(WHO) isnt <0> then store PARENT(WHO) in temp2] $itemtable >SPOUS-scrn< LINE NAME RELATION MAR [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] ENTER LINE NUMBER OF SPOUSE OF [fill name(WHO)] -- ASK IF NECESSARY <0> NO ONE LISTED ABOVE ===>__ $end ----------------------------------------------------------------------------- $>SPOUS-scrn< [within SPOUSE-scr] $d [none] <0> NO ONE LISTED ABOVE [store < > in SPOUSE(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] <1-16> [store SPOUS-scrn(R_P) in SPOUSE(WHO)] [convert SPOUS-scrn(R_P) character to index integer] [store <1> in MARITL(index)] [convert WHO integer to SPOUSE(index) character] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] [goto CK-spssx2] Don't Know [store in SPOUSE(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] Refused [store in SPOUSE(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] ===>__ [roster exit] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal temp2] $end ----------------------------------------------------------------------------- $>SPOUSE-nsc< [multiple SPOUS-nscr] ** RRP [do index <1> <16>] [store < > in table(index)] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to table(index)(2:2) character] [ELSEIF index2 ge <10> then] [convert index2 integer to table(index)(1:2) character] [ENDIF] [if LINENO(index) is < > then store < > in table(index)(1:2)] [if LINENO(index) is < > then convert index integer to xbad(index) character] [store name(index) in table(index)(6:29)] [if DELDEC(index) is <2> then store <*DECEASED*> in table(index)(6:29)] [store < > in relation(index)] [store <0> in index3] [convert RRP(index) character to index3 integer] [if index3 nq <0> then store n-reltab(index3) in relation(index)] [NIF hhmem(index) is <2> then] [store in relation(index)] [ELSEIF hhmem(index) is <3> then] [store in relation(index)] [ENDIF] [NIF DELDEC(index) is <1> OR DELDEC(index) is <3> then] [store <*deleted*> in relation(index)] [ELSEIF DELDEC(index) is <2> then] [store <*deceased> in relation(index)] [ENDIF] [store relation(index) in table(index)(31:40)] [store <0> in index2] [NIF MARITL(index) isnt < > AND MARITL(index) isnt then] [convert MARITL(index) character to index2 integer] [ENDIF] [If index2 nq <0> then store Martab(index2) in table(index)(43:45)] [convert index integer to xbad(index) character] [store <0> in index3] [store <0> in index4] [NIF RRP(index) is <21> OR RRP(index) is <28> then] SAME AS RRP=13 [store <1> in index3] [ELSEIF RRP(index) is <29> OR RRP(index) is <30> then] [store <1> in index3] [ENDIF] [NIF RRP(index) is <31> OR RRP(index) is <33> then] SAME AS RRP=10 [store <1> in index4] [ELSEIF RRP(index) is <35> OR RRP(index) is <37> then] [store <1> in index4] [ENDIF] [store <0> in index2] [NIF index4 eq <1> OR index3 eq <1> then] [store <3> in index2] [if sex(index) is <1> then store <1> in index2] [if sex(index) is <2> then store <2> in index2] [ENDIF] [store <0> in index4] [NIF RRP(WHO) is <31> OR RRP(WHO) is <33> then] SAME AS RRP=10 [store <1> in index4] [ELSEIF RRP(WHO) is <35> OR RRP(WHO) is <37> then] [store <1> in index4] [ENDIF] [NIF index4 eq <1> and sex(WHO) is <1> then] [if index2 eq <2> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ELSEIF index4 eq <1> and sex(WHO) is <2> then] [if index2 eq <1> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ELSEIF index4 eq <1> then] [if index2 eq <1> then store <99> in xbad(index)] [if index2 eq <2> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ENDIF] [store <0> in index2] [NIF RRP(index) is <22> or RRP(index) is <23> then] [store <3> in index2] [if sex(index) is <1> then store <1> in index2] [if sex(index) is <2> then store <2> in index2] [ELSEIF RRP(index) is <24> or RRP(index) is <25> then] [store <3> in index2] [if sex(index) is <1> then store <1> in index2] [if sex(index) is <2> then store <2> in index2] [ELSEIF RRP(index) is <26> then] [store <3> in index2] [if sex(index) is <1> then store <1> in index2] [if sex(index) is <2> then store <2> in index2] [ENDIF] [NIF RRP(WHO) is <26> and sex(WHO) is <1> then] [if index2 eq <2> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ELSEIF RRP(WHO) is <26> and sex(WHO) is <2> then] [if index2 eq <1> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ELSEIF RRP(WHO) is <26> then] [if index2 eq <1> then store <99> in xbad(index)] [if index2 eq <2> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ENDIF] [store <0> in index2] [NIF RRP(WHO) is <22> or RRP(WHO) is <23> then] [store <3> in index2] [if sex(WHO) is <1> then store <1> in index2] [if sex(WHO) is <2> then store <2> in index2] [ELSEIF RRP(WHO) is <24> or RRP(WHO) is <25> then] [store <3> in index2] [if sex(WHO) is <1> then store <1> in index2] [if sex(WHO) is <2> then store <2> in index2] [ELSEIF RRP(WHO) is <26> then] [store <3> in index2] [if sex(WHO) is <1> then store <1> in index2] [if sex(WHO) is <2> then store <2> in index2] [ENDIF] [NIF RRP(index) is <26> and sex(index) is <1> then] [if index2 eq <2> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ELSEIF RRP(index) is <26> and sex(index) is <2> then] [if index2 eq <1> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ELSEIF RRP(index) is <26> then] [if index2 eq <1> then store <99> in xbad(index)] [if index2 eq <2> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ENDIF] [store <0> in index2] [NIF RRP(index) is <24> then] [store <3> in index2] [if sex(index) is <1> then store <1> in index2] [if sex(index) is <2> then store <2> in index2] [ENDIF] [NIF RRP(WHO) is <24> and sex(WHO) is <1> then] [if index2 eq <2> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ELSEIF RRP(WHO) is <24> and sex(WHO) is <2> then] [if index2 eq <1> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ELSEIF RRP(WHO) is <24> then] [if index2 eq <1> then store <99> in xbad(index)] [if index2 eq <2> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ENDIF] [store <0> in index2] [NIF RRP(index) is <20> then] [store <3> in index2] [if sex(index) is <1> then store <1> in index2] [if sex(index) is <2> then store <2> in index2] [ENDIF] [NIF RRP(WHO) is <18> and sex(WHO) is <1> then] [if index2 eq <2> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ELSEIF RRP(WHO) is <18> and sex(WHO) is <2> then] [if index2 eq <1> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ELSEIF RRP(WHO) is <18> then] [if index2 eq <1> then store <99> in xbad(index)] [if index2 eq <2> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ENDIF] [store <0> in index2] [NIF RRP(index) is <18> then] [store <3> in index2] [if sex(index) is <1> then store <1> in index2] [if sex(index) is <2> then store <2> in index2] [ENDIF] [NIF RRP(WHO) is <20> and sex(WHO) is <1> then] [if index2 eq <2> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ELSEIF RRP(WHO) is <20> and sex(WHO) is <2> then] [if index2 eq <1> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ELSEIF RRP(WHO) is <20> then] [if index2 eq <1> then store <99> in xbad(index)] [if index2 eq <2> then store <99> in xbad(index)] [if index2 eq <3> then store <99> in xbad(index)] [ENDIF] [end do] [store <0> in index] [if onpath NEWLIV-1 then store <1> in index] [IF MISCK is <5> then store <0> in index] [if onpath CHANGE then store <1> in index] [if onpath CHANGE2 then store <1> in index] [NIF NWPRFG(WHO) eq <1> AND index eq <1> then] [if LINENO(1) isnt < > then store <99> in xbad(1)] [if LINENO(2) isnt < > then store <99> in xbad(2)] [if LINENO(3) isnt < > then store <99> in xbad(3)] [if LINENO(4) isnt < > then store <99> in xbad(4)] [if LINENO(5) isnt < > then store <99> in xbad(5)] [if LINENO(6) isnt < > then store <99> in xbad(6)] [if LINENO(7) isnt < > then store <99> in xbad(7)] [if LINENO(8) isnt < > then store <99> in xbad(8)] [if LINENO(9) isnt < > then store <99> in xbad(9)] [if LINENO(10) isnt < > then store <99> in xbad(10)] [if LINENO(11) isnt < > then store <99> in xbad(11)] [if LINENO(12) isnt < > then store <99> in xbad(12)] [if LINENO(13) isnt < > then store <99> in xbad(13)] [if LINENO(14) isnt < > then store <99> in xbad(14)] [if LINENO(15) isnt < > then store <99> in xbad(15)] [if LINENO(16) isnt < > then store <99> in xbad(16)] [ENDIF] [do index <1> NROSIZ] [NIF hhmem(index) is <2> OR HHMEM(index) is <3> then] [convert index integer to xbad(index) character] [ENDIF] [end do] [convert WHO integer to xbad(WHO) character] [store < > in temp2] [If PARENT(WHO) isnt <0> then store PARENT(WHO) in temp2] $itemtable >SPOUS-nscr< LINE NAME RELATION MAR [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] ENTER LINE NUMBER OF SPOUSE OF [fill name(WHO)] -- ASK IF NECESSARY <0> NO ONE LISTED ABOVE ===>__ $end ----------------------------------------------------------------------------- $>SPOUS-nscr< [within SPOUSE-nsc] $d [none] <0> NO ONE LISTED ABOVE [store < > in SPOUSE(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] <1-16> [store SPOUS-nscr(R_P) in SPOUSE(WHO)] [convert SPOUS-nscr(R_P) character to index integer] [store <1> in MARITL(index)] [convert WHO integer to SPOUSE(index) character] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] [goto CK-spssx2] Don't Know [store in SPOUSE(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] Refused [store in SPOUSE(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] ===>__ [roster exit] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal temp2] $end ----------------------------------------------------------------------------- $>ck-spssx2< [store <0> in index] [convert SPOUSE(WHO) character to index integer] [NIF sex(WHO) is sex(index) AND RRP(WHO) is <03> then] [goto spssx1] [ELSEIF sex(WHO) is sex(index) AND RRP(WHO) is <20> then] [goto spssx1] [ENDIF] [roster exit] $end ------------------------------------------------------------------------------ $>spssx1< [reset spssx1] [store <0> in index] [convert SPOUSE(WHO) character to index integer] [store < > in table(1)] [store < > in table(2)] [store LINENO(WHO) in table(1)(5:6)] [store LINENO(index) in table(2)(5:6)] [store name(WHO) in table(1)(16:39)] [store name(index) in table(2)(16:39)] [store sex(WHO) in table(1)(42:42)] [store sex(index) in table(2)(42:42)] $display >spssx1< *** DO NOT ASK *** Is one of the following SEX entries incorrect?: LINE PERSON'S SEX NUMBER NAME [fill table(1)] [fill table(2)] <1> To correct Line 1's sex entry <2> To correct Line 2's sex entry Neither sex is incorrect [goto spssx2] ===>_ [goto now-spsex2] $end ------------------------------------------------------------------------------- $>spssx2< [reset spssx2] [store < > in temptext] [store < > in temp2] [combine name(WHO) <'s> into temptext] [store <0> in index] [convert SPOUSE(WHO) character to index integer] [store name(index) in temp2] $display >spssx2< You said that [fill temp2] is [fill temptext] spouse? Is that correct? <1> Yes [If NEWRRP eq <0> then store <11> in RRP(WHO)] [if NEWRRP eq <1> then store <28> in RRP(WHO)] [store in MARITL(WHO)] [store < > in SPOUSE(RefPer)] <2> No [store < > in SPOUSE(WHO)] [if onpath SPOUS-nscr:R_P then backto SPOUSE-nsc:R_P] [backto SPOUSE-scr:R_P] ===>_ [roster exit] $d [alt 1] >spssx2< Usted dijo que [fill temp2] y [fill temptext] son esposos? ¨correcto? <1> S¡ [If NEWRRP eq <0> then store <11> in RRP(WHO)] [if NEWRRP eq <1> then store <28> in RRP(WHO)] [store in MARITL(WHO)] [store < > in SPOUSE(RefPer)] <2> No [store < > in SPOUSE(WHO)] [if onpath SPOUS-nscr:R_P then backto SPOUSE-nsc:R_P] [backto SPOUSE-scr:R_P] ===>_ [roster exit] $end ------------------------------------------------------------------------------- $>now-spsex2< [store <0> in SSEX_R_P] $end $ROPEN>SSEX< $>aft-spsex2< [goto CK-spssx2] $end ----------------------------------------------------------------------------- $REND>SMAR< ================================================================================ ******************************************************************************* **F** SSEX ******************************************************************************** $RBEGIN>SSEX< [maxelt 1] ------------------------------------------------------------------------------- $>SEX-scrn< [if notbacked then reset SEX-scrn] [store < > in temptext] [NIF WHO eq RESPLI then] [If curralt nq <1> then store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [combine name(WHO) <'s> into temptext] [If curralt eq <1> then store name(WHO) in temptext] [ENDIF] $d >SEX-scrn< ENTER APPROPRIATE SEX. ASK ONLY IF NECESSARY: What is [fill temptext] sex? <1> Male [store <1> in sex(WHO)] <2> Female [store <2> in sex(WHO)] [blind] Don't know [store in sex(WHO)] Refused [store in sex(WHO)] ===>_ [roster exit] $d [alt 1] >SEX-scrn< ENTER APPROPRIATE SEX. ASK ONLY IF NECESSARY: ¨De qu‚ sexo es [fill temptext]? <1> Masculino [store <1> in sex(WHO)] <2> Femenino [store <2> in sex(WHO)] [blind] Don't know [store in sex(WHO)] Refused [store in sex(WHO)] ===>_ [roster exit] $end ------------------------------------------------------------------------------ $REND>SSEX< ================================================================================ ******************************************************************************* **G** SAF ******************************************************************************** $RBEGIN>SAF< [maxelt 1] ------------------------------------------------------------------------------- $>AF-pre< [if notbacked then reset AFEVE-scrn] [if notbacked then reset AFWHE-scrn] [if notbacked then reset AFNOW-scrn] [if AFEVER(WHO) is <1> then goto AFWHEN-pre] $end ------------------------------------------------------------------------------- $>AFEVE-scrn< [store < > in temptext] [NIF WHO eq RESPLI then] [If curralt nq <1> then store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [store name(WHO) in temptext] [ENDIF] $d >AFEVE-scrn< Did [fill temptext] ever serve on active duty in the U. S. Armed Forces? <1> Yes [store <1> in AFEVER(WHO)] [store < > in AFNOW(WHO)] <2> No [store <2> in AFEVER(WHO)] [store <2> in AFNOW(WHO)] [blind] Don't know [store in AFEVER(WHO)] [store < > in AFNOW(WHO)] Refused [store in AFEVER(WHO)] [store < > in AFNOW(WHO)] ===>_ [goto AFWHEN-Pre] $d [alt 1] >AFEVE-scrn< ¨Alguna vez ha estado [fill temptext] en servicio activo en las Fuerzas Armadas de los Estados Unidos? <1> S¡ [store <1> in AFEVER(WHO)] [store < > in AFNOW(WHO)] <2> No [store <2> in AFEVER(WHO)] [store <2> in AFNOW(WHO)] [blind] Don't know [store in AFEVER(WHO)] [store < > in AFNOW(WHO)] Refused [store in AFEVER(WHO)] [store < > in AFNOW(WHO)] ===>_ [goto AFWHEN-Pre] $end -------------------------------------------------------------------------------- $>AFWHEN-Pre< [NIF AFWHEN(WHO) isnt < > AND AFWHEN(WHO) isnt then] [goto AFNOW-pre] [ELSEIF AFEVER(WHO) isnt <1> then] [goto AFNOW-pre] [ENDIF] $end -------------------------------------------------------------------------------- $>AFWHE-scrn< [store < > in temptext] [store < > in youheshe] [NIF WHO eq RESPLI AND curralt nq <1> then] [store in temptext] [store in youheshe] [ELSEIF WHO eq RESPLI AND curralt eq <1> then] [store in temptext] [store in youheshe] [ELSEIF sex(WHO) is <2> then] [store name(WHO) in temptext] [If curralt nq <1> then store in youheshe] [If curralt eq <1> then store in youheshe] [ELSE] [store name(WHO) in temptext] [If curralt nq <1> then store in youheshe] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] [store <0> in jdate-i] [store <0> in mon-i] [setdate jdate-i mon-i day-i year-i date-c wkday1-c wkday2-c] [subtract <1900> from year-i] [store <32> in index2] [store <51> in index3] [store <52> in index4] [store <59> in index5] [store <60> in index6] [store <88> in index7] [store <89> in index8] [NIF year-i eq <92> then] [add <1> to index2] [add <1> to index3] [add <1> to index4] [add <1> to index5] [add <1> to index6] [add <1> to index7] [add <1> to index8] [ELSEIF year-i eq <95> then] [add <4> to index2] [add <4> to index3] [add <4> to index4] [add <4> to index5] [add <4> to index6] [add <4> to index7] [add <4> to index8] [ELSEIF year-i eq <96> then] [add <5> to index2] [add <5> to index3] [add <5> to index4] [add <5> to index5] [add <5> to index6] [add <5> to index7] [add <5> to index8] [ELSEIF year-i eq <97> then] [add <6> to index2] [add <6> to index3] [add <6> to index4] [add <6> to index5] [add <6> to index6] [add <6> to index7] [add <6> to index8] [ENDIF] [store <2> in AFWHEN(WHO)] [store <3> in AFWHEN(WHO)] [store <4> in AFWHEN(WHO)] [NIF curralt eq <1> then] [store <{1} Era de Vietnam (Agosto '64 - Abril '75)> in temp2] [store <{2} Guerra de Korea (Junio '50 - Enero '55)> in temp3] [store <{3} Segunda Guerra Mundial (Septiembre '40 - Julio '47)> in temp4] [store <{4} Primera Guerra Mundial (Abril '17 - Noviembre '18)> in temp5] [store < > in xbad(1)] [store < > in xbad(2)] [store < > in xbad(3)] [store < > in xbad(4)] [ELSE] [store <{1} Vietnam Era---(Aug. '64 - Apr. '75)> in temp2] [store <{2} Korean War----(June '50 - Jan. '55)> in temp3] [store <{3} WW II---------(Sep. '40 - July '47)> in temp4] [store <{4} WW I----------(Apr. '17 - Nov. '18)> in temp5] [store < > in xbad(1)] [store < > in xbad(2)] [store < > in xbad(3)] [store < > in xbad(4)] [ENDIF] [convert age(WHO) character to age-i(WHO) integer] [NIF age-i(WHO) ge index2 AND age-i(WHO) le index3 then] [store < > in temp3] [store < > in temp4] [store < > in temp5] [store <2> in xbad(2)] [store <3> in xbad(3)] [store <4> in xbad(4)] [ELSEIF age-i(WHO) ge index4 AND age-i(WHO) le index5 then] [store < > in temp4] [store < > in temp5] [store <3> in xbad(3)] [store <4> in xbad(4)] [ELSEIF age-i(WHO) ge index6 AND age-i(WHO) le index8 then] [store < > in temp5] [store <4> in xbad(4)] [ELSEIF age-i(WHO) gt index8 then] [store < > in temp2] [store <1> in xbad(1)] [ELSEIF age-i(WHO) lt index2 then] [store < > in temp2] [store < > in temp3] [store < > in temp4] [store < > in temp5] [store <1> in xbad(1)] [store <2> in xbad(2)] [store <3> in xbad(3)] [store <4> in xbad(4)] [ENDIF] $d >AFWHE-scrn< IF NECESSARY: Previously I was told that [fill temptext] served on active duty in the U. S. Armed Forces. When did [fill youheshe] serve? [fill temp2] [fill temp3] [fill temp4] [fill temp5] <5> Other service-(All other periods) [store <5> in AFWHEN(WHO)] <6> Nonveteran [store <6> in AFWHEN(WHO)] [blind] Don't know [store in AFWHEN(WHO)] Refused [store in AFWHEN(WHO)] <1> Vietnam Era---(Aug. '64 - Apr. '75) [store <1> in AFWHEN(WHO)] <2> Korean War----(June '50 - Jan. '55) [store <2> in AFWHEN(WHO)] <3> WW II---------(Sep. '40 - July '47) [store <3> in AFWHEN(WHO)] <4> WW I----------(Apr. '17 - Nov. '18) [store <4> in AFWHEN(WHO)] ===>_ [goto AFNOW-Pre] $d [alt 1] >AFWHE-scrn< IF NECESSARY: La informaci¢n que tengo indica que [fill temptext] estuvo en servicio activo en las Fuerzas Armadas de los Estados Unidos. ¨Cu ndo sirvi¢ [fill youheshe]? [fill temp2] [fill temp3] [fill temp4] [fill temp5] <5> Otro Servicio (Dem s per¡odos) [store <5> in AFWHEN(WHO)] <6> No es veterano [store <6> in AFWHEN(WHO)] [blind] Don't know [store in AFWHEN(WHO)] Refused [store in AFWHEN(WHO)] <1> Era de Vietnam (Agosto '64 - Abril '75) [store <1> in AFWHEN(WHO)] <2> Guerra de Korea (Junio '50 - Enero '55) [store <2> in AFWHEN(WHO)] <3> Segunda Guerra Mundial (Septiembre '40 - Julio '47) [store <3> in AFWHEN(WHO)] <4> Primera Guerra Mundial (Abril '17 - Noviembre '18) [store <4> in AFWHEN(WHO)] ===>_ [goto AFNOW-Pre] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] $end ------------------------------------------------------------------------------- $>AFNOW-Pre< [IF AGERNG(WHO) ge <6> then roster exit] [NIF AFEVER(WHO) is <1> OR AFEVER(WHO) is then] [goto AFNOW-scrn] [ELSEIF AFEVER(WHO) is OR AFNOW(WHO) is <1> then] [goto AFNOW-scrn] [ELSEIF AFNOW(R_P) is < > OR AFNOW(R_P) is then] [goto AFNOW-scrn] [ENDIF] [roster exit] $end -------------------------------------------------------------------------------- $>AFNOW-scrn< [store < > in areis] [store < > in temptext] [store < > in temp2] [NIF WHO eq RESPLI then] [store in areis] [If curralt nq <1> then store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [store name(WHO) in temptext] [store in areis] [ENDIF] [if AFNOW(WHO) isnt <1> then store in temp2] [if AFNOW(WHO) is <1> then store in temp2] $d >AFNOW-scrn< [fill areis] [fill temptext] [fill temp2] in the Armed Forces? <1> Yes [if AFNOW(WHO) is <2> then store <6> in CHINHH(WHO)] [store <1> in AFNOW(WHO)] <2> No [if AFNOW(WHO) is <1> then store <7> in CHINHH(WHO)] [store <2> in AFNOW(WHO)] [blind] Don't know [store in AFNOW(WHO)] Refused [store in AFNOW(WHO)] ===>_ [roster exit] $d [alt 1] >AFNOW-scrn< ¨Est  sirviendo [fill temptext] actualmente en las Fuerzas Armadas? <1> S¡ [if AFNOW(WHO) is <2> then store <6> in CHINHH(WHO)] [store <1> in AFNOW(WHO)] <2> No [if AFNOW(WHO) is <1> then store <7> in CHINHH(WHO)] [store <2> in AFNOW(WHO)] [blind] Don't know [store in AFNOW(WHO)] Refused [store in AFNOW(WHO)] ===>_ [roster exit] $end ----------------------------------------------------------------------------- $REND>SAF< ================================================================================ ******************************************************************************* **H** SED ******************************************************************************** $RBEGIN>SED< [maxelt 1] ------------------------------------------------------------------------------- $>PRE-EDUCA< [NIF EDUCA(WHO) is < > OR EDUCA(WHO) is then] [goto EDUC-scrn] [ELSEIF MISCK is <5> AND ADDPER(WHO) isnt <1> then] [goto EDUC-scrn] [ELSEIF mon-i eq <2> OR mon-i eq <7> then] [goto EDUC-scrn] [ELSEIF mon-i eq <10> then] [goto EDUC-scrn] [ENDIF] [NIF CHG-FLAG is <1> OR CHG-FLAG is <2> then] IF THEY WANT TO CHANGE [goto EDUC-scrn] EDUCATION FROM THE CHANGE SCREEN [ENDIF] [goto CK-NEWED] CHANGED JUN 96 $end ------------------------------------------------------------------------------- $>EDUC-scrn< [multiple EDUCA-scrn] [if notbacked then reset EDUCA-scrn] [store < > in temptext] [store < > in havehas] [NIF WHO eq RESPLI then] [store in havehas] [If curralt nq <1> then store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [store Name(WHO) in temptext] [store in havehas] [ENDIF] [store in temp2] [if EDUCA(WHO) isnt < > then store EDUCA(WHO) in temp2] [NIF vr2-educ(R_P) is <2> then] [reset vr2-educ] [reset EDUCA-scrn] [endif] $itemtable >EDUCA-scrn< What is the highest level of school [fill temptext] [fill havehas] completed or the highest degree [fill temptext] [fill havehas] received? PREVIOUS ENTRY WAS: [fill temp2] <31> Less than 1st grade <43> Bachelor's degree <32> 1st, 2nd, 3rd or 4th grade (For example: BA, AB, BS) <33> 5th or 6th grade <44> Master's degree (For example: <34> 7th or 8th grade MA, MS, MEng, MEd, MSW, MBA) <35> 9th grade <45> Professional School Degree (For <36> 10th grade example: MD,DDS,DVM,LLB,JD) <37> 11th grade <46> Doctorate degree <38> 12th grade NO DIPLOMA (For example: PhD, EdD) <39> HIGH SCHOOL GRADUATE- high school DIPLOMA or the equivalent (For example: GED) <40> Some college but no degree <41> Associate degree in college - Occupational/vocational program <42> Associate degree in college -- Academic program ===>__ $d [alt 1] >EDUCA-scrn< ¨Cu l es el grado escolar o nivel de educaci¢n m s avanzado que [fill temptext] ha completado, o el t¡tulo m s alto que [fill temptext] ha recibido? PREVIOUS ENTRY WAS: [fill temp2] <31> Menos de primer grado <43> T¡tulo Universitario <32> Primero, segundo, tercero, (For example: BA, AB, BS) o cuarto grado <33> Quinto o sexto grado <44> Maestr¡a (For example: <34> S‚ptimo u octavo grado MA, MS, MEng, MEd, MSW, MBA) <35> Noveno grado <45> T¡tulo de Escuela o Colegio Profesional <36> D‚cimo grado (For example: MD,DDS,DVM,LLB,JD) <37> D‚cimo-primer grado <46> Doctorado <38> D‚cimo-segundo grado (For example: PhD, EdD) SIN DIPLOMA <39> Escuela secundaria (high school) -- DIPLOMA de escuela secundaria, o el equivalente (example: GED) <40> Estudios a nivel universitario, pero SIN TITULO UNIVERSITARIO <41> Grado Asociado (2 a¤os de universidad) -- Programa ocupacional/vocacional <42> Grado Asociado (2 a¤os de universidad) -- Programa acad‚mico ===>__ $end ------------------------------------------------------------------------------ $>EDUCA-scrn< [within EDUC-scrn] $d [none] <31-46> Don't know [store in EDUCA(WHO)] [roster exit] Refused [store in EDUCA(WHO)] [roster exit] ===>__ [store EDUCA-scrn(R_P) in EDUCA(WHO)] $end ------------------------------------------------------------------------------ $>ck-educ< [If REPLCE eq <1> then goto Ck2-educ] changed in october [store <0> in index2] [CASE WHO] [OF <1> then] [convert I-EDUCA-1 character to index2 integer] [OF <2> then] [convert I-EDUCA-2 character to index2 integer] [OF <3> then] [convert I-EDUCA-3 character to index2 integer] [OF <4> then] [convert I-EDUCA-4 character to index2 integer] [OF <5> then] [convert I-EDUCA-5 character to index2 integer] [OF <6> then] [convert I-EDUCA-6 character to index2 integer] [OF <7> then] [convert I-EDUCA-7 character to index2 integer] [OF <8> then] [convert I-EDUCA-8 character to index2 integer] [OF <9> then] [convert I-EDUCA-9 character to index2 integer] [OF <10> then] [convert I-EDUCA-10 character to index2 integer] [OF <11> then] [convert I-EDUCA-11 character to index2 integer] [OF <12> then] [convert I-EDUCA-12 character to index2 integer] [OF <13> then] [convert I-EDUCA-13 character to index2 integer] [OF <14> then] [convert I-EDUCA-14 character to index2 integer] [OF <15> then] [convert I-EDUCA-15 character to index2 integer] [OF <16> then] [convert I-EDUCA-16 character to index2 integer] [ENDCASE] [store <0> in index] [convert EDUCA(WHO) character to index integer] [NIF index lt index2 AND index2 nq <0> then] [goto vr1-educ] [ENDIF] [convert age(WHO) character to age-i(WHO) integer] [NIF age-i(WHO) eq <19> AND index ge <44> then] [goto vr2-educ] [ELSEIF age-i(WHO) ge <16> AND age-i(WHO) le <18> then] [If index ge <43> then goto vr2-educ] [ELSEIF age-i(WHO) le <15> AND index ge <40> then] [goto vr2-educ] [ENDIF] [goto CK-NEWED] $end ------------------------------------------------------------------------------ $>vr1-educ< [store < > in temptext] [NIF WHO eq RESPLI then] [If curralt nq <1> then store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [combine name(WHO) <'s> into temptext] [If curralt eq <1> then combine < > name(R_P) into temptext] [ENDIF] [store <0> in index2] [CASE WHO] [OF <1> then] [convert I-EDUCA-1 character to index2 integer] [OF <2> then] [convert I-EDUCA-2 character to index2 integer] [OF <3> then] [convert I-EDUCA-3 character to index2 integer] [OF <4> then] [convert I-EDUCA-4 character to index2 integer] [OF <5> then] [convert I-EDUCA-5 character to index2 integer] [OF <6> then] [convert I-EDUCA-6 character to index2 integer] [OF <7> then] [convert I-EDUCA-7 character to index2 integer] [OF <8> then] [convert I-EDUCA-8 character to index2 integer] [OF <9> then] [convert I-EDUCA-9 character to index2 integer] [OF <10> then] [convert I-EDUCA-10 character to index2 integer] [OF <11> then] [convert I-EDUCA-11 character to index2 integer] [OF <12> then] [convert I-EDUCA-12 character to index2 integer] [OF <13> then] [convert I-EDUCA-13 character to index2 integer] [OF <14> then] [convert I-EDUCA-14 character to index2 integer] [OF <15> then] [convert I-EDUCA-15 character to index2 integer] [OF <16> then] [convert I-EDUCA-16 character to index2 integer] [ENDCASE] [store EDUCA(WHO) in xbad(2)] [convert index2 integer to xbad(1) character] [subtract <30> from index2] [subtract <30> from index] [store < > in temp2] [store < > in temp3] [combine <{> xbad(1) <}> < > EDTAB(index2) into temp2] [combine <{> xbad(2) <}> < > EDTAB(index) into temp3] $display >vr1-educ< Previously I was told that [fill temptext] education level was [fill EDTAB(index2)]; however, this month you are reporting that the education level is lower -- [fill EDTAB(index)]. Which one is correct? ENTER CODE [fill temp2] [fill temp3] ===>__ [store vr1-educ(R_P) in EDUCA(WHO)] $d [alt 1] >vr1-educ< La informaci¢n del mes pasado indica que el grado/nivel de educacion [fill temptext] era [fill EDTAB(index2)]; pero este mes usted me indica que el grado/nivel de educaci¢n es m s bajo -- [fill EDTAB(index)]. ¨Cu l de los dos es el correcto? ENTER CODE [fill temp2] [fill temp3] ===>__ [store vr1-educ(R_P) in EDUCA(WHO)] $edit [equal xbad(1)] [equal xbad(2)] $end ------------------------------------------------------------------------------- $>ck2-educ< [store <0> in index] [convert EDUCA(WHO) character to index integer] [convert age(WHO) character to age-i(WHO) integer] [NIF age-i(WHO) eq <19> AND index ge <44> then] [goto vr2-educ] [ELSEIF age-i(WHO) ge <16> AND age-i(WHO) le <18> then] [If index ge <43> then goto vr2-educ] [ELSEIF age-i(WHO) le <15> AND index ge <40> then] [goto vr2-educ] [ENDIF] [goto CK-NEWED] $end ------------------------------------------------------------------------------ $>vr2-educ< [store < > in temptext] [store < > in temp2] [store < > in youheshe] [store < > in areis] [combine name(WHO) <'s> into temptext] [If curralt eq <1> then store name(WHO) in temptext] [NIF WHO eq RESPLI then] [store in youheshe] [store in areis] [If curralt eq <1> then store in youheshe] [ELSEIF sex(WHO) is <2> then] [store in youheshe] [store in areis] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [store in areis] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] [store <0> in index] [convert EDUCA(WHO) character to index integer] [NIF index ge <44> AND curralt nq <1> then] [store in temp2] [ELSEIF index ge <44> then] [store in temp2] [ELSEIF index ge <43> AND curralt nq <1> then] [store in temp2] [ELSEIF index ge <43> then] [store in temp2] [ELSE] [store in temp2] [ENDIF] $display >vr2-educ< You reported that [fill temptext] education level is the same or higher than [fill temp2] even though [fill youheshe] [fill areis] only [fill age(WHO)] years old. Is that correct? <1> Yes <2> No [backto EDUC-scrn:R_P] ===>_ $d [alt 1] >vr2-educ< Usted indic¢ que el nivel de educaci¢n que [fill temptext] tiene es, como m¡nimo, de [fill temp2] aunque [fill youheshe] tiene [fill age(WHO)] a¤os. ¨Correcto? <1> S¡ <2> No [backto EDUC-scrn:R_P] ===>_ $end ----------------------------------------------------------------------------- $>CK-NEWED< CHANGED JUN 96 IF onpath EDUCA-scrn:R_P then store < > in DIPGED(WHO) *** Changed by Thuan 7/22/96 [IF onpath EDUCA-scrn:R_P then store < > in HGCOMP(WHO)] [IF onpath EDUCA-scrn:R_P then store < > in CYC(WHO)] [IF onpath EDUCA-scrn:R_P then store < > in GRPROF(WHO)] [IF onpath EDUCA-scrn:R_P then store < > in GR6COR(WHO)] [IF onpath EDUCA-scrn:R_P then store < > in MS123(WHO)] [NIF MISCK is <5> AND ADDPER(WHO) isnt <1> then] [goto PRE-DIPGED] [ELSEIF mon-i eq <2> OR mon-i eq <7> then] [goto PRE-DIPGED] [ELSEIF mon-i eq <10> then] [goto PRE-DIPGED] [ENDIF] [NIF MISCK is <1> AND EDUCA(WHO) is <39> then] *** Added by Thuan 7/22/96 [goto S-DIPGED] [ENDIF] [IF onpath EDUCA-scrn:R_P then goto PRE-DIPGED] [NIF EDUCA(WHO) is <39> AND DIPGED(WHO) is < > then] [goto S-DIPGED] [ELSEIF EDUCA(WHO) is <39> AND DIPGED(WHO) is then] [goto S-DIPGED] [ENDIF] goto CK-HGCOMP *** Changed by Thuan 7/22/96 [roster exit] *** Added by Thuan 7/22/96 $end ---------------------------------------------------------------------- $>PRE-DIPGED< ADDED JUN 96 IF EDUCA(WHO) is <39> then goto S-DIPGED *** Changed by Thuan 7/22/96 [NIF EDUCA(WHO) is <39> AND DIPGED(WHO) is < > then] *** Added by Thuan 7/22/96 [goto S-DIPGED] [ELSEIF EDUCA(WHO) is <39> AND DIPGED(WHO) is then] [goto S-DIPGED] [ELSEIF EDUCA(WHO) is <39> AND DIPGED(WHO) isnt < > then] [roster exit] [ENDIF] [NIF EDUCA(WHO) is <40> OR EDUCA(WHO) is <41> then] [goto S-CYC] [ELSEIF EDUCA(WHO) is <42> then] [goto S-CYC] [ENDIF] [if EDUCA(WHO) is <43> then goto S-GRPROF] [if EDUCA(WHO) is <44> then goto S-MS123] [roster exit] $end ---------------------------------------------------------------------- $>S-DIPGED< [NIF WHO eq respli then] [store in temptext] [store in yourhshr] [if curralt eq <1> then store in temptext] [ELSE] [store name(WHO) in temptext] [store in yourhshr] [if SEX(WHO) is <2> then store in yourhshr] [ENDIF] [if notbacked then reset S-DIPGED] GOTO CHANGED JUN 96 $display >S-DIPGED< People can get a High School diploma in a variety of ways, such as graduating from High School or by getting a GED or other equivalent. How did [fill temptext] get [fill yourhshr] High School diploma? <1> Graduation from High School <2> GED or other equivalent [store <2> in DIPGED(WHO)] [goto CK-HGCOMP] [blind] Don't know Refused ===>_ [store S-DIPGED(R_P) in DIPGED(WHO)] [roster exit] $d [alt 1] >S-DIPGED< La gente puede obtener su diploma de escuela secundaria de diferentes maneras, ya sea gradu ndose de una escuela secundaria, u obteniendo un GED u otro equivalente. ¨C¢mo obtuvo [fill temptext] su diploma de escuela secundaria? <1> Gradu ndose de una escuela secundaria <2> Obteniendo un GED u otro equivalente [store <2> in DIPGED(WHO)] [goto CK-HGCOMP] [blind] Don't know Refused ===>_ [store S-DIPGED(R_P) in DIPGED(WHO)] [roster exit] $end -------------------------------------------------------------------------- $>CK-HGCOMP< ADDED JUN 96 [NIF MISCK is <5> AND ADDPER(R_P) isnt <1> then] [IF DIPGED(WHO) is <2> then goto S-HGCOMP] [ENDIF] [NIF mon-i eq <2> AND DIPGED(WHO) is <2> then] [goto S-HGCOMP] [ELSEIF mon-i eq <7> AND DIPGED(WHO) is <2> then] [goto S-HGCOMP] [ELSEIF mon-i eq <10> AND DIPGED(WHO) is <2> then] [goto S-HGCOMP] [ENDIF] [NIF DIPGED(WHO) is <2> then] [IF onpath EDUCA-scrn:R_P then goto S-HGCOMP] [ENDIF] [NIF DIPGED(WHO) is <2> AND HGCOMP(WHO) is < > then] [goto S-HGCOMP] [ELSEIF DIPGED(WHO) is <2> AND HGCOMP(WHO) is then] [goto S-HGCOMP] [ENDIF] [goto CK-CYC] $end ---------------------------------------------------------------------- $>S-HGCOMP< [NIF WHO eq respli then] [store in temptext] [store in yourhshr] [if curralt eq <1> then store in temptext] [ELSE] [store name(WHO) in temptext] [store in yourhshr] [if SEX(WHO) is <2> then store in yourhshr] [ENDIF] [if notbacked then reset S-HGCOMP] $display >S-HGCOMP< What was the highest grade of regular school [fill temptext] completed before receiving [fill yourhshr] GED? <1> Less than 1st grade <2> 1st, 2nd, 3rd, or 4th grade <3> 5th or 6th grade <4> 7th or 8th grade <5> 9th grade <6> 10th grade <7> 11th grade <8> 12th grade NO DIPLOMA [blind] Don't know Refused ===>_ [store S-HGCOMP(R_P) in HGCOMP(WHO)] [roster exit] $d [alt 1] >S-HGCOMP< ¨Cu l fue el grado m s avanzado de escuela regular que [fill temptext] complet¢ antes de recibir su GED? <1> Menos de primer grado <2> Primero, segundo, tercero, o cuarto grado <3> Quinto o sexto grado <4> S‚ptimo u octavo grado <5> Noveno grado <6> D‚cimo grado <7> D‚cimo-primer grado <8> D‚cimo-segundo grado SIN DIPLOMA [blind] Don't know Refused ===>_ [store S-HGCOMP(R_P) in HGCOMP(WHO)] [roster exit] $end -------------------------------------------------------------------------- $>CK-CYC< ADDED JUN 96 [NIF EDUCA(WHO) is <40> AND CYC(WHO) is < > then] [goto S-CYC] [ELSEIF EDUCA(WHO) is <41> AND CYC(WHO) is < > then] [goto S-CYC] [ELSEIF EDUCA(WHO) is <42> AND CYC(WHO) is < > then] [goto S-CYC] [ELSEIF EDUCA(WHO) is <40> AND CYC(WHO) is then] [goto S-CYC] [ELSEIF EDUCA(WHO) is <41> AND CYC(WHO) is then] [goto S-CYC] [ELSEIF EDUCA(WHO) is <42> AND CYC(WHO) is then] [goto S-CYC] [ENDIF] [goto CK-GRPROF] $end ---------------------------------------------------------------------- $>S-CYC< [NIF WHO eq respli then] [store in temptext] [store in havehas] [store in temp6] [store in temp4] [if curralt eq <1> then store in temptext] [if curralt eq <1> then store in temp6] [ELSEIF sex(WHO) is <2> then] [store name(WHO) in temptext] [store in havehas] [store in temp4] [store in temp6] [if curralt eq <1> then store in temp6] [ELSE] [store name(WHO) in temptext] [store in havehas] [store in temp4] [store in temp6] [if curralt eq <1> then store <‚l> in temp6] [ENDIF] [NIF EDUCA(WHO) is <41> OR EDUCA(WHO) is <42> then] [store in temp2] [store in temp3] [store in temp5] [if curralt eq <1> then store in temp2] [if curralt eq <1> then store in temp3] [if curralt eq <1> then store <¨Cu ntos> in temp5] [ELSE] [store < > in temp2] [store < > in temp3] [store in temp5] [if curralt eq <1> then store <¨Cu ntos> in temp5] [ENDIF] [if notbacked then reset S-CYC] $display >S-CYC< [fill temp2] [fill temp3] [fill temp5] many years of college CREDIT [fill temp4] [fill temptext] completed? [Fill havehas] [fill temp6] COMPLETED... <1> Less than 1 year (include 0 years completed)? <2> The first, or FRESHMAN year? <3> The second, or SOPHOMORE year? <4> The third, or JUNIOR year? <5> Four or more years? [blind] Don't know Refused ===>_ [store S-CYC(R_P) in CYC(WHO)] [roster exit] $d [alt 1] >S-CYC< [fill temp2] [fill temp3] [fill temp5] a os de cr‚dito universitario ha completado [fill temptext]? ¨Ha COMPLETADO [fill temp6] ... <1> Menos de 1 a¤o <2> El primer a¤o ( a¤o FRESHMAN) <3> El segundo a¤o (a¤o SOPHOMORE) <4> El tercer a¤o (a¤o JUNIOR) <5> Cuatro o m s a¤os [blind] Don't know Refused ===>_ [store S-CYC(R_P) in CYC(WHO)] [roster exit] $end -------------------------------------------------------------------------- $>CK-GRPROF< ADDED JUN 96 [NIF EDUCA(WHO) is <43> AND GRPROF(WHO) is < > then] [goto S-GRPROF] [ELSEIF EDUCA(WHO) is <43> AND GRPROF(WHO) is then] [goto S-GRPROF] [ENDIF] [goto CK-GR6COR] $end ---------------------------------------------------------------------- $>S-GRPROF< [NIF WHO eq respli then] [store in temptext] [store in Havehas] [store in temp3] [if curralt eq <1> then store in temptext] [ELSE] [store name(WHO) in temptext] [store in Havehas] [store in temp3] [if SEX(WHO) is <2> then store in temp3] [ENDIF] [if notbacked then reset S-GRPROF] GOTO CHANGED JUN 96 $display >S-GRPROF< Since completing [fill temp3] Bachelor's degree [Fill havehas] [fill temptext] ever taken any GRADUATE or PROFESSIONAL school courses for credit? <1> Yes [store <1> in GRPROF(WHO)] [goto CK-GR6COR] <2> No [blind] Don't know Refused ===>_ [store S-GRPROF(R_P) in GRPROF(WHO)] [roster exit] $d [alt 1] >S-GRPROF< Desde que complet¢ su Bachillerato (Bachelor's degree), ¨ha tomado [fill temptext] alg£n curso a nivel de escuela GRADUADA o PROFESIONAL? <1> S¡ [store <1> in GRPROF(WHO)] [goto CK-GR6COR] <2> No [blind] Don't know Refused ===>_ [store S-GRPROF(R_P) in GRPROF(WHO)] [roster exit] $end -------------------------------------------------------------------------- $>CK-GR6COR< ADDED JUN 96 [NIF MISCK is <5> AND ADDPER(R_P) isnt <1> then] [IF GRPROF(WHO) is <1> then goto S-GR6COR] [ENDIF] [NIF mon-i eq <2> AND GRPROF(WHO) is <1> then] [goto S-GR6COR] [ELSEIF mon-i eq <7> AND GRPROF(WHO) is <1> then] [goto S-GR6COR] [ELSEIF mon-i eq <10> AND GRPROF(WHO) is <1> then] [goto S-GR6COR] [ENDIF] [NIF GRPROF(WHO) is <1> then] [IF onpath EDUCA-scrn:R_P then goto S-GR6COR] [ENDIF] [NIF GRPROF(WHO) is <1> AND GR6COR(WHO) is < > then] [goto S-GR6COR] [ELSEIF GRPROF(WHO) is <1> AND GR6COR(WHO) is then] [goto S-GR6COR] [ENDIF] [goto CK-MS123] $end ---------------------------------------------------------------------- $>S-GR6COR< [NIF WHO eq respli then] [store in temptext] [if curralt eq <1> then store in temptext] [ELSE] [store name(WHO) in temptext] [ENDIF] [if notbacked then reset S-GR6COR] $display >S-GR6COR< Did [fill temptext] complete SIX or MORE graduate or professional school courses? <1> Yes <2> No [blind] Don't know Refused ===>_ [store S-GR6COR(R_P) in GR6COR(WHO)] [roster exit] $d [alt 1] >S-GR6COR< ¨Complet¢ [fill temptext] SEIS o M S cursos a nivel de escuela GRADUADA o PROFESIONAL? <1> S¡ <2> No [blind] Don't know Refused ===>_ [store S-GR6COR(R_P) in GR6COR(WHO)] [roster exit] $end -------------------------------------------------------------------------- $>CK-MS123< ADDED JUN 96 [NIF EDUCA(WHO) is <44> AND MS123(WHO) is < > then] [goto S-MS123] [ELSEIF EDUCA(WHO) is <44> AND MS123(WHO) is then] [goto S-MS123] [ENDIF] [roster exit] $end ---------------------------------------------------------------------- $>S-MS123< [NIF WHO eq respli then] [store in temp2] [if curralt eq <1> then store in temp2] [ELSE] [combine name(WHO) <'s> into temp2] [ENDIF] [if notbacked then reset S-MS123] $display >S-MS123< Was [fill temp2] Master's Degree program a 1-year, 2-year, or 3-year program? <1> 1-year program <2> 2-year program <3> 3-year program (or longer) [blind] Don't know Refused ===>_ [store S-MS123(R_P) in MS123(WHO)] [roster exit] $d [alt 1] >S-MS123< El programa de Maestr¡a en el que [fill temp2] particip¢, ¨fue de 1 a¤o, de 2 a¤os, ¢ de 3 a¤os? <1> Programa de 1 a¤o <2> Programa de 2 a¤os <3> Programa de 3 ¢ m s a¤os [blind] Don't know Refused ===>_ [store S-MS123(R_P) in MS123(WHO)] [roster exit] $end -------------------------------------------------------------------------- $REND>SED< ================================================================================ ******************************************************************************* **I** SRCE ******************************************************************************** $RBEGIN>SRCE< [maxelt 1] ------------------------------------------------------------------------------- $>RACE-scrn< [if notbacked then reset RACE-scrn] [store < > in temptext] [store < > in youheshe] [store < > in areis] [NIF WHO eq RESPLI then] [store in youheshe] [store in areis] [store in temptext] [If curralt eq <1> then store in temptext] [If curralt eq <1> then store in youheshe] [ELSEIF sex(WHO) is <2> then] [combine name(WHO) <'s> into temptext] [store in youheshe] [store in areis] [If curralt eq <1> then store name(WHO) in temptext] [If curralt eq <1> then store in youheshe] [ELSE] [combine name(WHO) <'s> into temptext] [store in youheshe] [store in areis] [If curralt eq <1> then store name(WHO) in temptext] [if curralt eq <1> then store <‚l> in youheshe] [ENDIF] [NIF INTTYP eq <1> then] [store <** Show Respondent the Flash Card **> in temp2] [store < > in temp3] [ELSEIF INTTYP eq <2> then] [store <** Read Respondent the Categories **> in temp2] [store in temp3] [ELSE] [store < > in temp2] [store < > in temp3] CATI interview [ENDIF] $d [fill temp2] >RACE-scrn< [fill temp3] What is [fill temptext] race? PROBE: [fill areis] [fill youheshe] White, Black, American Indian, Aleut or Eskimo, Asian or Pacific Islander or something else? <1> White [store <1> in race(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] <2> Black [store <2> in race(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] <3> American Indian, Aleut, or Eskimo [store <3> in race(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] <4> Asian or Pacific Islander [store <4> in race(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] <5> Other - specify [store <5> in race(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] [goto RACES-scr] [blind] Don't know [store in race(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] Refused [store in race(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] ===>_ [roster exit] $d [alt 1] [fill temp2] >RACE-scrn< [fill temp3] ¨De qu‚ raza es [fill temptext]? PROBE: ¨Es [fill youheshe] Blanco(a), Negro(a), Indio(a) Americano(a), Asi tico(a) o de las Islas del Pac¡fico , o de alguna otra raza? <1> Blanco(a) [store <1> in race(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] <2> Negro(a) [store <2> in race(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] <3> Indio(a) Americano(a), Aleuta, Esquimal [store <3> in race(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] <4> Asi tico(a) o de las Islas del Pac¡fico [store <4> in race(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] <5> Otra raza [store <5> in race(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] [goto RACES-scr] [blind] Don't know [store in race(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] Refused [store in race(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] ===>_ [roster exit] $end ---------------------------------------------------------------------- $>RACES-scr< $display >RACES-scr< ENTER VERBATIM RESPONSE [blind] Don't know Refused ==>_________________________________________________________________ [store races-scr in RACESP] $edit [anychar] $end ---------------------------------------------------------------------- $REND>SRCE< ================================================================================ ******************************************************************************* **J** SOR ******************************************************************************** $RBEGIN>SOR< [maxelt 1] ------------------------------------------------------------------------------- $>ORIGI-scrn< [if notbacked then reset ORIGI-scrn] [store < > in temptext] [NIF WHO eq RESPLI then] [If curralt nq <1> then store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [combine name(WHO) <'s> into temptext] [If curralt eq <1> then store name(WHO) in temptext] [ENDIF] [NIF INTTYP eq <1> then] [store <** Show Respondent the Flash Card **> in temp2] [store < > in temp3] [ELSEIF INTTYP eq <2> then] [store <** Read Respondent the Categories **> in temp2] [store in temp3] [ELSE] [store < > in temp2] [store < > in temp3] CATI interview [ENDIF] $d [fill temp2] >ORIGI-scrn< [fill temp3] What is [fill temptext] origin or descent? <1> German <12> Mexican <2> Italian <14> Puerto Rican <3> Irish <15> Cuban <4> French <16> Central or South American (Hispanic Countries) <5> Polish <17> Other Hispanic <6> Russian <20> Afro-American (Black, Negro) <7> English <26> Dutch <8> Scottish <27> Swedish <10> Mexican American <28> Hungarian <11> Chicano <30> Another group not listed [blind] Don't Know Refused ===>__ $d [alt 1] [fill temp2] >ORIGI-scrn< [fill temp3] ¨De qu‚ origen o descendencia es [fill temptext]? <1> Alem n <12> Mexicano <2> Italiano <14> Puertorrique¤o <3> Irland‚s <15> Cubano <4> Franc‚s <16> Centro o Sur-Americano <5> Polaco <17> Otro origen hispano <6> Ruso <20> Afro-Americano (Negro) <7> Ingl‚s <26> Holand‚s <8> Escoc‚s <27> Sueco <10> Mexicano-Americano <28> H£ngaro <11> Chicano <30> Otro origen no indicado [blind] Don't Know Refused ===>__ $end ----------------------------------------------------------------------------- $>ORIGI-st< [store ORIGI-scrn(R_P) in origin(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] [roster exit] $end ----------------------------------------------------------------------------- $REND>SOR< ================================================================================ ******************************************************************************* **K** UDEL ******************************************************************************** $RBEGIN>UDEL< [maxelt 1] ------------------------------------------------------------------------------- $>UDELET< [if notbacked then reset UDELET] $d >UDELET< (DO NOT ASK) WHY IS [fill name(WHO)] TO BE UNDELETED? <1> Person rejoined household <2> To correct previous mistake MISTAKE: DO NOT UNDELETE PERSON [roster exit] ===>_ $end ------------------------------------------------------------------------------- $>FOR-SSEX< [store <1> in hhmem(WHO)] [store <3> in CHINHH(WHO)] [store <0> in DELDEC(WHO)] [store <0> in NUMHOU] [do index <1> NROSIZ] [if hhmem(index) is <1> then add <1> to NUMHOU] NUMBER OF HH MEMBERS [end do] [store <0> in SSEX_R_P] [if sex(WHO) isnt < > then goto FOR-SREL] $end $ROPEN>SSEX< **F** $>AFT-SSEX< $end ------------------------------------------------------------------------------ $>FOR-SREL< [if RRP(WHO) isnt < > then goto FOR-SAGE] [store <0> in SREL_R_P] $end $ROPEN>SREL< **B** $>AFT-SREL< $end ------------------------------------------------------------------------------ $>FOR-SAGE< [store <0> in index] [NIF age(WHO) is < > OR BIRTHM(WHO) is < > then] [store <1> in index] [ELSEIF BIRTHD(WHO) is < > OR BIRTHY(WHO) is < > then] [store <1> in index] [ENDIF] [if index eq <0> then goto FOR-SMAR] [store <0> in SAGE_R_P] $end $ROPEN>SAGE< **D** $>AFT-SAGE< $end ------------------------------------------------------------------------------ $>FOR-SMAR< [NIF AGERNG(WHO) lt <2> OR MARITL(WHO) isnt < > then] [goto FOR-SAF] [ENDIF] [store <0> in SMAR_R_P] $end $ROPEN>SMAR< **E** $>AFT-SMAR< $end ------------------------------------------------------------------------------ $>FOR-SAF< [convert age(WHO) character to age-i(WHO) integer] [if age-i(WHO) lt <17> then goto FOR-SED] [store <0> in index3] [NIF AFNOW(WHO) is <1> OR AFEVER(WHO) is < > then] [store <1> in index3] [ELSEIF AFEVER(WHO) is <1> AND AFWHEN(WHO) is < > then] [store <1> in index3] [ELSEIF AGERNG(WHO) nq <6> AND AFNOW(WHO) is < > then] [store <1> in index3] [ENDIF] [if index3 eq <0> then goto FOR-SED] [store <0> in SAF_R_P] $end $ROPEN>SAF< **G** $>AFT-SAF< $end ------------------------------------------------------------------------------ $>FOR-SED< [if AGERNG(WHO) lt <2> then goto FOR-SRCE] [store <0> in index] [NIF EDUCA(WHO) is < > OR mon-i eq <2> then] [store <1> in index] [ELSEIF mon-i eq <7> OR mon-i eq <10> then] [store <1> in index] [ENDIF] [if index eq <0> then goto FOR-SRCE] [store <0> in SED_R_P] $end $ROPEN>SED< **H** $>AFT-SED< $end ------------------------------------------------------------------------------ $>FOR-SRCE< [if race(WHO) isnt < > then goto FOR-SOR] [store <0> in SRCE_R_P] $end $ROPEN>SRCE< **I** $>AFT-SRCE< $end ------------------------------------------------------------------------------ $>FOR-SOR< [if origin(WHO) isnt < > then goto FOR-SSSN] [store <0> in SOR_R_P] $end $ROPEN>SOR< **J** $>AFT-SOR< $end ------------------------------------------------------------------------------ $>FOR-SSSN< ** SPD ** entire item revised [If AGERNG(R_P) lt <2> then roster exit] [store <0> in index] [IF SSN(R_P) is < > then store <1> in index] [if index nq <1> then roster exit] [store <0> in SSSN_R_P] $end $ROPEN>SSSN< **O** $>AFT-SSSN< [roster exit] $end ----------------------------------------------------------------------------- $REND>UDEL< ================================================================================ ******************************************************************************* **L** SHHR ******************************************************************************** $RBEGIN>SHHR< [maxelt 1] ------------------------------------------------------------------------------- $>Resp1< [NIF resp-prb(R_P) is

then] [store <0> in index5] [store in temp2] [ELSE] [store < > in temp2] [store <1> in index5] [ENDIF] [NIF resp-prb(R_P) is

OR FNAME-scrn(1) is then] [reset Resp1] [ENDIF] [if notbacked then reset Resp1] [if notbacked then reset to-full2] [if notbacked then reset resp-prb] [do index <1> <16>] [store < > in tempname(index)] [store < > in xbad(index)] [if LINENO(index) is < > then convert index integer to xbad(index) character] [end do] [do index <1> NROSIZ] [if RESPLI eq index then store in tempname(index)(1:1)] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to tempname(index)(4:4) character] [ELSEIF index2 ge <10> then] [convert index2 integer to tempname(index)(3:4) character] [ENDIF] [store name(index) in tempname(index)(6:29)] [NIF hhmem(index) is <1> then] [store in tempname(index)(31:31)] [ELSEIF hhmem(index) is <2> then] [store in tempname(index)(31:31)] [ELSEIF hhmem(index) is <3> then] [store in tempname(index)(31:34)] [ENDIF] [NIF age-i(index) le <9> AND age-i(index) gt <0> then] [store age(index) in tempname(index)(36:36)] [ELSEIF age-i(index) ge <10> then] [store age(index) in tempname(index)(36:37)] [ENDIF] [end do] ** MOVERS ** (next 10 lines) [NIF I-BLANK3 IS <1> then] [store in TEMP3] [store < > in TEMP4] [store <1> in INDEX6] [ELSE] [store in TEMP3] [store in TEMP4] [store <0> in INDEX6] [ENDIF] COMMENT: Also made check for MOVERS for precode A $display >Resp1< ENTER LINE NUMBER OF NEW RESPONDENT *** NEW RESPONDENT MUST BE A [fill TEMP3] *** R LN NAME MEM AGE R LN NAME MEM AGE [fill tempname(1)] [fill tempname(9)] [fill tempname(2)] [fill tempname(10)] [fill tempname(3)] [fill tempname(11)] [fill tempname(4)] [fill tempname(12)] [fill tempname(5)] [fill tempname(13)] [fill tempname(6)] [fill tempname(14)] [fill tempname(7)] [fill tempname(15)] [fill tempname(8)] [fill tempname(16)] ENTER LINE NUMBER <1-16> IF CURRENT RESPONDENT [goto resp-2] [fill TEMP4] ENTER IF ALL PERSONS UNDER 15 [fill temp2] [blind] [If index5 eq <1> then referto ref-bad] [goto resp1b] [if INDEX6 eq <1> then referto ref-bad] [if NROSIZ ge <16> then goto to-full2] [goto HAV-SNAM] ===>__ $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end ----------------------------------------------------------------------------- $>resp1a< $display >resp1a< Is anyone in this household 15 years of age or older? IF YES ENTER <1> AND RECORD THAT PERSON ON RESP1 [backto RESP1:R_P] ENTER <2> IF ALL PERSONS UNDER 15 YEARS OF AGE ===>_ $d [alt 1] >resp1a< ¨Hay alguien en el hogar mayor de 15 a¤os de edad? IF YES ENTER <1> AND RECORD THAT PERSON ON RESP1 [backto RESP1:R_P] ENTER <2> IF ALL PERSONS UNDER 15 YEARS OF AGE ===>_ $end -------------------------------------------------------------------------------- COMMENT: ADDED SO THAT IF THIS IS A VACATION HOME (EVERYONE IS URE) THEN STORE 2 IN EVERYONES HHMEM AND GOTO PR-LABFOR WITCH WILL ASSIGN OUTCOME AND GO OUT. $>resp-1ac< [store <1> in AGEFLG] [roster exit] $end ------------------------------------------------------------------------------- $>resp1b< $display >resp1b< Does anyone in this household USUALLY live at this address? IF YES ENTER <1> AND RECORD THAT PERSON ON RESP1 [backto RESP1:R_P] ENTER <2> IF ALL PERSONS URE ===>_ $d [alt 1] >resp1b< ¨Hay alguien en el hogar que POR LO REGULAR vive en esta direcci¢n? IF YES ENTER <1> AND RECORD THAT PERSON ON RESP1 [backto RESP1:R_P] ENTER <2> IF ALL PERSONS URE ===>_ $end -------------------------------------------------------------------------------- COMMENT: ADDED SO THAT IF THIS IS A VACATION HOME (EVERYONE IS URE) THEN STORE 2 IN EVERYONES HHMEM AND GOTO PR-LABFOR WITCH WILL ASSIGN OUTCOME AND GO OUT. $>resp-1bc< [store <1> in UREFLG] [roster exit] $end ------------------------------------------------------------------------------- $>to-full2< $d >to-full2< ** DO NOT READ TO RESPONDENT ** HOUSEHOLD ROSTER IS FULL. ENTER

TO BACK UP AND CHOOSE ANOTHER RESPONDENT. ===>_ [goto Resp1] $end ------------------------------------------------------------------------------ $>Resp-2< [convert Resp1(R_P) character to WHO integer] [goto ck-resp] $end ------------------------------------------------------------------------------ $>HAV-SNAM< [store <0> in WHO] [store <0> in SNAM_R_P] $end $ROPEN>SNAM< **M** $>HAD-SNAM< [if FNAME-scrn(SNAM_R_P) is then goto Resp1] $end ----------------------------------------------------------------------------- $>HAV-SMEM< [store <0> in SMEM_R_P] $end $ROPEN>SMEM< **C** $>HAD-SMEM< [IF hhmem(WHO) is <3> then store <0> in nwprfg(WHO)] [IF hhmem(WHO) is <3> then goto ck-resp] ADDED JUNE 94 $end ------------------------------------------------------------------------------- $>HAV-SSEX< [store <0> in SSEX_R_P] ADDED JUNE 94 $end $ROPEN>SSEX< **F** $>HAD-SSEX< [goto ck-resp] $end ------------------------------------------------------------------------------- $>HAV-SAGE< [store <0> in SAGE_R_P] $end $ROPEN>SAGE< **D** $>HAD-SAGE< [goto ck-resp] $end ------------------------------------------------------------------------------- $>HAV-UDEL< [store <0> in UDEL_R_P] $end $ROPEN>UDEL< **K** $>HAD-UDEL< [goto ck-resp] $end ------------------------------------------------------------------------------- $>ck-resp< [if hhmem(WHO) is < > then goto HAV-SMEM] [if hhmem(WHO) is <2> then goto resp-prb] [NIF age(WHO) is < > AND hhmem(WHO) isnt <3> then] [goto HAV-SAGE] [ENDIF] [NIF AGERNG(WHO) lt <2> AND hhmem(WHO) isnt <3> then] [goto resp-prb] [ENDIF] [store WHO in RESPLI] [store name(RESPLI) in respna] [convert RESPLI integer to REINLN character] REINT VARIABLE [roster exit] $end ------------------------------------------------------------------------------ $>resp-prb< [reset resp-prb] [store < > in temptext] [store < > in temp2] [NIF hhmem(WHO) is <2> then] [store in temptext] [store <{M} TO CHANGE MEMBERSHIP> in temp2] [ELSEIF AGERNG(WHO) lt <2> then] [store in temptext] [store <{A} TO CHANGE AGE> in temp2] [ENDIF] $d >resp-prb< *** PROBLEM *** RESPONDENT PERSON IS [fill temptext] ENTER

TO BACKUP AND CHOOSE ANOTHER RESPONDENT [goto Resp1] [fill temp2] [blind] Change Membership [goto HAV-UDEL] Change Age [goto HAV-SAGE] ===>_ $end -------------------------------------------------------------------------------- $REND>SHHR< ================================================================================ ******************************************************************************* **M** SNAM ******************************************************************************** $RBEGIN>SNAM< [maxelt 1] ------------------------------------------------------------------------------- $>Pre-FLNAME< [if notbacked then reset FNAME-scrn] [if notbacked then reset LNAME-scrn] $end -------------------------------------------------------------------------------- $>FLNAME< [multiple FNAME-scrn LNAME-scrn] [store in temptext] [if WHO nq <0> then store name(WHO) in temptext] $itemtable ENTER CORRECT FIRST AND LAST NAME. Previous name entry: [fill temptext] MISTAKE: NO CHANGE TO FIRST OR LAST NAME FNAME-scrn FIRST NAME ===>_________ LNAME-scrn LAST NAME ===>______________ $end -------------------------------------------------------------------------------- $>FNAME-scrn< [within FLNAME] $d [none] Mistake: No change to first or last name [roster exit] $edit [alpha] $end $>LNAME-scrn< [within FLNAME] $d [none] $edit [alpha] $end ------------------------------------------------------------------------------ $>set-WHO< [if WHO nq <0> then goto name-store] [do index <1> <16>] [if DELDEC(index) is <9> then store <11> in pelig(index)] [if pelig(index) eq <11> then store index in WHO] [end do] [store <1> in nwprfg(WHO)] [store <1> in addper(WHO)] [store <0> in pelig(WHO)] [store < > in DELDEC(WHO)] [add <1> to HALNO-i] [convert HALNO-i integer to HALNO character] [store WHO in index] [add <1> to index] [NIF index le <16> then] [store <11> in pelig(index)] [store <9> in DELDEC(index)] [store in name(index)] [ENDIF] [store <0> in index] [tablook pelig <11> index] [if index nq <0> then store index in NROSIZ] This would be the position of EOL [subtract <1> from NROSIZ] This is size not including EOL [if index eq <0> then store <16> in NROSIZ] If no EOL then must have full roster [convert WHO integer to LINENO(WHO) character] $end ---------------------------------------------------------------------------- $>Name-store< [store FNAME-scrn(R_P) in Fname(WHO)] [store LNAME-scrn(R_P) in Lname(WHO)] [combine FNAME-SCRN(R_P) < > LNAME-scrn(R_P) into name(WHO)] [store <1> in CHINHH(WHO)] [roster exit] $end ----------------------------------------------------------------------------- $REND>SNAM< ================================================================================ ******************************************************************************* **N** SREF ******************************************************************************** $RBEGIN>SREF< [maxelt 1] ------------------------------------------------------------------------------- $>OWNREN< [if BADREFPER(R_P) is

then reset OWNREN] [if FNAME-scrn(1) is then reset OWNREN] [if notbacked then reset OWNREN] [if notbacked then reset Too-Full] [if notbacked then reset BADREFPER] [do index <1> <16>] [store < > in tempname(index)] [store < > in xbad(index)] [if LINENO(index) is < > then convert index integer to xbad(index) character] [end do] [do index <1> NROSIZ] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to tempname(index)(2:2) character] [ELSEIF index2 ge <10> then] [convert index2 integer to tempname(index)(1:1) character] [ENDIF] [store name(index) in tempname(index)(4:27)] [NIF hhmem(index) is <1> then] [store in tempname(index)(29:29)] [ELSEIF hhmem(index) is <2> OR hhmem(index) is <3> then] [store in tempname(index)(29:29)] [ENDIF] [NIF age-i(index) le <9> AND age-i(index) gt <0> then] [store age(index) in tempname(index)(34:34)] [ELSEIF age-i(index) ge <10> then] [store age(index) in tempname(index)(33:34)] [ENDIF] [end do] $d >OWNREN< What is the name of the person or one of the persons who owns or rents that home? LN NAME MEM AGE LN NAME MEM AGE [fill tempname(1)] [fill tempname(2)] [fill tempname(3)] [fill tempname(4)] [fill tempname(5)] [fill tempname(6)] [fill tempname(7)] [fill tempname(8)] [fill tempname(9)] [fill tempname(10)] [fill tempname(11)] [fill tempname(12)] [fill tempname(13)] [fill tempname(14)] [fill tempname(15)] [fill tempname(16)] ENTER LINE NUMBER <1-16> IF CURRENT HH MEMBER [goto OWNREN-st] ENTER FOR SOMEONE NOT LISTED [if NROSIZ ge <16> then goto Too-Full] [goto ASK-SNAM] ENTER IF OWNER(S)/RENTER(S) NOT A HOUSEHOLD MEMBER [goto USEASRES] ===>__ $d [alt 1] >OWNREN< ¨Cu l es el nombre de la persona, o de una de las personas, que son due¤os de la vivienda o que alquilan la vivienda? LN NAME MEM AGE LN NAME MEM AGE [fill tempname(1)] [fill tempname(2)] [fill tempname(3)] [fill tempname(4)] [fill tempname(5)] [fill tempname(6)] [fill tempname(7)] [fill tempname(8)] [fill tempname(9)] [fill tempname(10)] [fill tempname(11)] [fill tempname(12)] [fill tempname(13)] [fill tempname(14)] [fill tempname(15)] [fill tempname(16)] ENTER LINE NUMBER <1-16> IF CURRENT HH MEMBER [goto OWNREN-st] ENTER FOR SOMEONE NOT LISTED [if NROSIZ ge <16> then goto Too-Full] [goto ASK-SNAM] ENTER IF OWNER(S)/RENTER(S) NOT A HOUSEHOLD MEMBER [goto USEASRES] ===>__ $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end ----------------------------------------------------------------------------- COMMENT: ADDED IF THE PERSON WHO OWN/RENTS THE HOME IS A URE, WE TRY TO DETERMINE IF THERE IS ANYONE WHO USUALLY LIVE THERE. IF SO, ONE PERSON HAS TO BE PICKED AS THE REFERENCE PERSON. $>USEASRES< $display >USEASRES< Does anyone use this as their usual residence? IF YES ENTER <1> AND RECORD THAT PERSON ON OWNREN [goto OWNREN] ENTER <2> IF ALL PERSONS LIVE ELSEWHERE ===>_ $d [alt 1] >USEASRES< ¨Usa alguien esta vivienda como su residencia usual? IF YES ENTER <1> AND RECORD THAT PERSON ON OWNREN [goto OWNREN] ENTER <2> IF ALL PERSONS LIVE ELSEWHERE ===>_ $end -------------------------------------------------------------------------------- COMMENT: ADDED SO THAT IF THIS IS A VACATION HOME (EVERYONE IS URE) THEN STORE 2 IN EVERYONES HHMEM AND GOTO PR-LABFOR WITCH WILL ASSIGN OUTCOME AND GO OUT. $>USEASRESck< [Do index <1> <16>] [NIF name(index) isnt < > AND name(index) isnt then] [store <2> in hhmem(index)] [ENDIF] [end do] [store <1> in UREFLG] [roster exit] $end --------------------------------------------------------------------------------- $>Too-Full< $d >Too-Full< ** DO NOT READ TO RESPONDENT ** HOUSEHOLD ROSTER IS FULL. ENTER

TO BACK UP AND CHOOSE ANOTHER REFERENCE PERSON. ===>_ [goto OWNREN] $end ------------------------------------------------------------------------------ $>OWNREN-st< [convert OWNREN(R_P) character to WHO integer] [goto ck-refper] $end ------------------------------------------------------------------------------ $>ASK-SNAM< [store <0> in WHO] [store <0> in SNAM_R_P] $end $ROPEN>SNAM< **M** $>ANS-SNAM< [if FNAME-scrn(SNAM_R_P) is then goto OWNREN] $end ----------------------------------------------------------------------------- $>ASK-SMEM< [store <0> in SMEM_R_P] $end $ROPEN>SMEM< **C** $>ANS-SMEM< [goto ck-refper] $end ------------------------------------------------------------------------------- $>ASK-SAGE< [store <0> in SAGE_R_P] $end $ROPEN>SAGE< **D** $>ANS-SAGE< [goto ck-refper] $end ------------------------------------------------------------------------------- $>ASK-UDEL< [store <0> in UDEL_R_P] $end $ROPEN>UDEL< **K** $>ANS-UDEL< [goto ck-refper] $end ------------------------------------------------------------------------------- $>ck-refper< [if hhmem(WHO) is < > then goto ASK-SMEM] [if hhmem(WHO) is <2> then goto BADREFPER] [if hhmem(WHO) is <3> then goto BADREFPER] [if age(WHO) is < > then goto ASK-SAGE] [if AGERNG(WHO) lt <2> then goto BADREFPER] [store WHO in RefPer] [do index <1> <16>] [store < > in RRP(index)] [end do] ASSUME THERE ARE NO OTHERS IN HH BECAUSE WE MAY NOT GET INTO SREL ROSTER TO CHANGE IT. [If NEWRRP eq <0> then store <02> in RRP(RefPer)] ** RRP [If NEWRRP eq <1> then store <19> in RRP(RefPer)] ** RRP [goto ASK-SREL] $end ------------------------------------------------------------------------------ $>BADREFPER< [reset BADREFPER] [store < > in temptext] [store < > in temp2] [NIF AGERNG(WHO) lt <2> AND AGERNG(WHO) gt <0> then] [store in temptext] [store <{A} TO CHANGE AGE> in temp2] [ELSEIF hhmem(WHO) is <2> OR hhmem(WHO) is <3> then] [store in temptext] [store <{M} TO CHANGE MEMBERSHIP> in temp2] [ENDIF] $d >BADREFPER< *** PROBLEM *** REFERENCE PERSON IS [fill temptext] ENTER

TO BACKUP AND CHOOSE ANOTHER REFERENCE PERSON [goto OWNREN] [fill temp2] [blind] Change Membership [goto ASK-UDEL] Change Age [goto ASK-SAGE] ===>_ $end -------------------------------------------------------------------------------- $>ASK-SREL< [if STLLIV is < > then goto OUT-SREL] [store <0> in WHO] [do index NROSIZ <1> <-1>] [NIF RRP(index) is < > AND hhmem(index) isnt <2> then] [store index in WHO] [ENDIF] [end do] [if WHO eq <0> then goto OUT-SREL] [store <0> in SREL_R_P] $end $ROPEN>SREL< **B** $>AN-SREL< [goto ASK-SREL] $end $>OUT-SREL< [if RRP(RefPer) is <02> then store < > in SPOUSE(RefPer)] [if RRP(RefPer) is <02> then store < > in PARENT(RefPer)] [if RRP(RefPer) is <19> then store < > in SPOUSE(RefPer)] ** RRP [if RRP(RefPer) is <19> then store < > in PARENT(RefPer)] [roster exit] $end ------------------------------------------------------------------------------- $REND>SREF< ================================================================================ ******************************************************************************* **O** SSSN ******************************************************************************** $RBEGIN>SSSN< [maxelt 1] ------------------------------------------------------------------------------- COMMENT: ALL SOCIAL SECURITY NUMBERS ARE BETWEEN 001-00-0000 AND 750-00-0000. $>SSN-scrn< [if notbacked then reset SSN-scrn] [store < > in temptext] [NIF WHO eq RESPLI then] [If curralt nq <1> then store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [combine name(WHO) <'s> into temptext] [If curralt eq <1> then combine < > name(R_P) into temptext] [ENDIF] [store <1000000> in xbad(1)] [store <729000000> in xbad(2)] $d >SSN-scrn< What is [fill temptext] Social Security or Railroad Retirement number? ENTER FOR NONE [blind] Don't Know Refused ===>___-__-____ $d [alt 1] >SSN-scrn< ¨Cu l es el n£mero de Seguro Social o el n£mero de Retiro de Ferrocarriles (Railroad Retirement number) [fill temptext]? ENTER FOR NONE [blind] Don't Know Refused ===>___-__-____ $edit [notless xbad(1)] [notgreater xbad(2)] [numeric] $end ----------------------------------------------------------------------------- $>SSN-store< [store SSN-scrn(R_P) in SSN(WHO)] [if addper(WHO) isnt <1> then store <9> in CHINHH(WHO)] [roster exit] $end ----------------------------------------------------------------------------- $REND>SSSN< ================================================================================ ** NEEDED FOR MARCH ** **S MOVED FROM BEFORE CHANGE IN MAR 95 $>CKHIS1< [If MARHIS isnt <1> then goto CK-PRLBFR] [store <0> in index4] [store <1> in HISFLG] [do index <1> NROSIZ] [store <0> in index2] [convert age(index) character to age-i(index) integer] [NIF HHmem(index) is <1> AND age-i(index) gt <14> then] [store <1> in index2] [ENDIF] [store <0> in index3] [convert ORIGIN(index) character to index3 integer] [NIF index3 ge <10> AND index3 le <17> then] [add <10> to index2] [ENDIF] [if index2 eq <11> then store <1> in index4] [end do] [If index4 eq <1> then goto CKRFPR] [If MARHIS is <1> then goto SPNREP] [goto CK-PRLBFR] $end ---------------------------------------------------------------------- $>CKRFPR< [store <0> in index3] [store <0> in index2] [convert ORIGIN(Refper) character to index3 integer] [NIF index3 ge <10> AND index3 le <17> then] [store <1> in index2] [ENDIF] [NIF REFPER eq <1> AND index2 eq <1> then] [goto CK-PRLBFR] [ELSEIF REFPER eq <1> then] [goto SNAD2] [ENDIF] $end ---------------------------------------------------------------------- $>SNAD1< $display >SNAD1< Did [fill name(RefPer)] live at this address during the week of November 19, 1996? <1> Yes [goto SNAD2] <2> No [goto TYPB] ===>_ $end ---------------------------------------------------------------------------- $>SNAD2< [do index <1> <16>] [store <0> in xbad(index)] [store < > in tempname(index)] [convert index integer to FrLine(index) character] [NIF name(index) is < > OR name(index) is then] [store < > in FrLine(index)] [convert index integer to xbad(index) character] [ELSEIF hhmem(index) isnt <1> then] [store < > in FrLine(index)] [convert index integer to xbad(index) character] [ENDIF] [NIF FrLine(index)(2:2) is < > then] [store FrLine(index) in tempname(index)(1:1)] [ELSE] [store FrLine(index) in tempname(index)(1:2)] [ENDIF] [store name(index) in tempname(index)(4:23)] [If hhmem(index) isnt <1> then store < > in tempname(index)(1:23)] [store <0> in index3] [store <0> in index2] [convert ORIGIN(index) character to index3 integer] [NIF index3 ge <10> AND index3 le <17> then] [store <1> in index2] [ENDIF] [If index2 nq <1> then store < > in tempname(index)(1:23)] [If index2 nq <1> then convert index integer to xbad(index) character] [end do] $display >SNAD2< Did (READ NAMES LISTED BELOW) live here during the week of November 19, 1996? LN NAME LN NAME [fill tempname(1)] [fill tempname(9)] [fill tempname(2)] [fill tempname(10)] [fill tempname(3)] [fill tempname(11)] [fill tempname(4)] [fill tempname(12)] [fill tempname(5)] [fill tempname(13)] [fill tempname(6)] [fill tempname(14)] [fill tempname(7)] [fill tempname(15)] [fill tempname(8)] [fill tempname(16)] <1> Yes <2> No ===>_ $end ---------------------------------------------------------------------- ******************************************************************************** **8** LABOR FORCE THIS IS THE BEGINNING OF THE LABOR FORCE ITEMS ******************************************************************************** -------------------------------------------------------------------------------- $>ck-prlbfr< [If mark le <14> then store <14> in mark] [store <0> in CHG-FLG] [store <0> in index] [store NROSIZ in index2] [add <1> to index2] [if index2 gt <16> then store <16> in index2] [do index <1> index2] [store <1> in pelig(index)] [NIF DELDEC(index) is <9> then] [store <11> in pelig(index)] [ELSEIF Donper(index) is <1> then] [store <2> in pelig(index)] [ELSEIF misper(index) is <1> then] [store <3> in pelig(index)] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <1> then] [store <9> in pelig(index)] [ELSEIF DELDEC(index) is <2> then] [store <10> in pelig(index)] [ELSEIF hhmem(index) is <2> OR hhmem(index) is <3> then] [store <8> in pelig(index)] [ELSEIF AGERNG(index) eq <1> then] [store <7> in pelig(index)] [ELSEIF AFNOW(index) is <1> then] [store <6> in pelig(index)] [ELSEIF AGERNG(index) eq <9> then] [store <5> in pelig(index)] [ENDIF] [end do] [store <0> in index] [tablook pelig <11> index] [if index eq <0> then store <16> in index] checks for 16 person hh [add <1> to index] First position after EOL [do index2 index <16>] [store <12> in pelig(index2)] [end do] [store <0> in index] [store <0> in index2] This item checks to see if a household is occupied entirely [tablook pelig <1> index] by URE's (outcome = 25) or by AF members (outcome = 24). [if index eq <0> then tablook pelig <2> index] Since we don't update the labor force items for these [if index eq <0> then tablook pelig <3> index] households, we display the appropriate wording (the next [if index eq <0> then tablook pelig <5> index] displayed item will be "Thankyou"). [do index3 <1> NROSIZ] [if AFNOW(index3) is <1> then store index3 in index2] [end do] [if index2 nq <0> then store <224> in outcome] [if index nq <0> then store <0> in outcome] [if AGEFLG eq <1> then store <224> in outcome] [if UREFLG eq <1> then store <225> in outcome] [NIF outcome eq <224> OR outcome eq <225> then] [goto PRLBFR] [ENDIF] [goto LABFOR] $end ---------------------------------------------------------------------------- $>PRLBFR< [store <0> in index] [store NROSIZ in index2] [add <1> to index2] [if index2 gt <16> then store <16> in index2] [do index <1> index2] [store <1> in pelig(index)] [NIF DELDEC(index) is <9> then] [store <11> in pelig(index)] [ELSEIF Donper(index) is <1> then] [store <2> in pelig(index)] [ELSEIF misper(index) is <1> then] [store <3> in pelig(index)] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <1> then] [store <9> in pelig(index)] [ELSEIF DELDEC(index) is <2> then] [store <10> in pelig(index)] [ELSEIF hhmem(index) is <2> OR hhmem(index) is <3> then] [store <8> in pelig(index)] [ELSEIF AGERNG(index) eq <1> then] [store <7> in pelig(index)] [ELSEIF AFNOW(index) is <1> then] [store <6> in pelig(index)] [ELSEIF AGERNG(index) eq <9> then] [store <5> in pelig(index)] [ENDIF] [end do] [store <0> in index] [tablook pelig <11> index] [if index eq <0> then store <16> in index] checks for 16 person hh [add <1> to index] First position after EOL [do index2 index <16>] [store <12> in pelig(index2)] [end do] [store < > in table(1)] [store < > in table(2)] [store < > in table(3)] [store < > in table(4)] [store <0> in index] [store <0> in index2] This item checks to see if a household is occupied entirely [tablook pelig <1> index] by URE's (outcome = 25) or by AF members (outcome = 24). [if index eq <0> then tablook pelig <2> index] Since we don't update the labor force items for these [if index eq <0> then tablook pelig <3> index] households, we display the appropriate wording (the next [if index eq <0> then tablook pelig <5> index] displayed item will be "Thankyou"). [do index3 <1> NROSIZ] [if AFNOW(index3) is <1> then store index3 in index2] [end do] [if index2 nq <0> then store <224> in outcome] [if index nq <0> then store <0> in outcome] [if AGEFLG eq <1> then store <224> in outcome] [If UREFLG eq <1> then store <225> in outcome] [store <0> in index2] [NIF outcome eq <224> AND MISFLG is <1> then] [store <1> in index2] [ELSEIF outcome eq <224> AND MISFLG is <5> then] [store <1> in index2] [ELSEIF outcome eq <224> AND curralt nq <1> then] [store in table(1)] [store in table(2)] [if AGEFLG eq <1> then store in table(1)] [if AGEFLG eq <1> then store in table(2)] [ELSEIF outcome eq <224> AND curralt eq <1> then] [store in table(1)] [store in table(2)] [store in table(3)] [store in table(4)] [If AGEFLG eq <1> then store in table(1)] [If AGEFLG eq <1> then store in table(2)] [If AGEFLG eq <1> then store in table(3)] [ELSEIF outcome eq <225> AND MISFLG is <1> then] [store in table(1)] [store in table(2)] [store in table(3)] [If curralt eq <1> then store in table(1)] [if curralt eq <1> then store in table(2)] [if curralt eq <1> then store in table(3)] [If curralt eq <1> then store in table(4)] [ELSEIF outcome eq <225> AND MISFLG is <5> then] [store in table(1)] [store in table(2)] [store in table(3)] [If curralt eq <1> then store in table(1)] [if curralt eq <1> then store in table(2)] [if curralt eq <1> then store in table(3)] [If curralt eq <1> then store in table(4)] [ELSEIF outcome eq <225> then] [store in table(1)] [store in table(2)] [store in table(3)] [If curralt eq <1> then store in table(1)] [if curralt eq <1> then store in table(2)] [if curralt eq <1> then store in table(3)] [If curralt eq <1> then store in table(4)] [ENDIF] [NIF index2 eq <1> AND curralt nq <1> then] [store in table(1)] [store in table(2)] [If AGEFLG eq <1> then store in table(1)] [If AGEFLG eq <1> then store in table(2)] [ELSEIF index2 eq <1> then] [store in table(1)] [store in table(2)] [store in table(3)] [store in table(4)] [If AGEFLG eq <1> then store in table(1)] [If AGEFLG eq <1> then store in table(2)] [If AGEFLG eq <1> then store in table(3)] [ENDIF] $d >PRLBFR< [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] ENTER

TO PROCEED ===>_ [If outcome eq <225> then goto SEASON] [goto endmid] $d [alt 1] >PRLBFR< [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] ENTER

TO PROCEED ===>_ [If outcome eq <225> then goto SEASON] [goto endmid] $end -------------------------------------------------------------------------------- $>LABFOR< [store < > in temptext] [store < > in temp2] [store <0> in index] COMMENT: SETS START TIME FOR VERSION D LABOR FORCE (WK-LBFR-end) [setsec sectim-i] [NIF LBHSTM eq <0> AND lkLBHSTM eq <0> then] [store sectim-i in LBHSTM] [ENDIF] [store <1> in lkLBHSTM] [store <0> in jdate-i] [store <0> in mon-i] [setdate jdate-i mon-i day-i year-i date-c wkday1-c wkday2-c] [NIF mon-i eq <1> AND year-i eq <1997> then] [store in temptext] [store in temp2] [If curralt eq <1> then store <12 de enero> in temptext] [If curralt eq <1> then store <18 de enero> in temp2] [ELSEIF mon-i eq <2> AND year-i eq <1997> then] [store in temptext] [store in temp2] [If curralt eq <1> then store <9 de febrero> in temptext] [If curralt eq <1> then store <15 de febrero> in temp2] [ELSEIF mon-i eq <3> AND year-i eq <1997> then] [store in temptext] [store in temp2] [If curralt eq <1> then store <9 de marzo> in temptext] [If curralt eq <1> then store <15 de marzo> in temp2] [ELSEIF mon-i eq <4> AND year-i eq <199> then] [store in temptext] [store in temp2] [If curralt eq <1> then store <6 de abril> in temptext] [If curralt eq <1> then store <12 de abril> in temp2] [ELSEIF mon-i eq <5> AND year-i eq <1997> then] [store in temptext] [store in temp2] [If curralt eq <1> then store <11 de mayo> in temptext] [If curralt eq <1> then store <17 de mayo> in temp2] [ELSEIF mon-i eq <6> AND year-i eq <1997> then] [store in temptext] [store in temp2] [If curralt eq <1> then store <8 de junio> in temptext] [If curralt eq <1> then store <14 de junio> in temp2] [ELSEIF mon-i eq <7> AND year-i eq <1997> then] [store in temptext] [store in temp2] [If curralt eq <1> then store <6 de julio> in temptext] [If curralt eq <1> then store <12 de julio> in temp2] [ELSEIF mon-i eq <8> AND year-i eq <1997> then] [store in temptext] [store in temp2] [If curralt eq <1> then store <10 de agosto> in temptext] [If curralt eq <1> then store <16 de agosto> in temp2] [ELSEIF mon-i eq <9> AND year-i eq <1997> then] [store in temptext] [store in temp2] [If curralt eq <1> then store <7 de septiembre> in temptext] [If curralt eq <1> then store <13 de septiembre> in temp2] [ELSEIF mon-i eq <10> AND year-i eq <1997> then] [store in temptext] [store in temp2] [If curralt eq <1> then store <12 de octubre> in temptext] [If curralt eq <1> then store <18 de octubre> in temp2] [ELSEIF mon-i eq <11> AND year-i eq <1997> then] [store in temptext] [store in temp2] [If curralt eq <1> then store <9 de noviembre> in temptext] [If curralt eq <1> then store <15 de noviembre> in temp2] [ELSEIF mon-i eq <12> AND year-i eq <1997> then] [store in temptext] [store in temp2] [If curralt eq <1> then store <7 de diciembre> in temptext] [If curralt eq <1> then store <13 de diciembre> in temp2] [ENDIF] THIS CODE SETS-UP THE REFERENCE WEEK FILL IN THE VARIABLE "WHATWEEK". [store <0> in index] [store day-i in index] [CASE wkday1-c] [OF then] [subtract <1> from index] [OF then] [subtract <2> from index] [OF then] [subtract <3> from index] [OF then] [subtract <4> from index] [OF then] [subtract <5> from index] [OF then] [subtract <6> from index] [ENDCASE] [store in WHATWEEK] [store in swhatwk] ** SPD ** dropped second sentence, default last week $d >LABFOR< I am going to ask a few questions about work-related activities [fill whatweek]. ENTER

TO PROCEED ===>_ $d [alt 1] >LABFOR< Voy a hacerle algunas preguntas sobre actividades de trabajo realizadas [fill swhatwk]. ENTER

TO PROCEED ===>_ $end ------------------------------------------------------------------------------- $>BUS< ADDED JAN 96 [NIF LK-ORRESP eq <0> then] SAVE ORIGINAL RESPONDENT FOR REINTERVIEW [store respli in ORRESP] [store <1> in LK-ORRESP] [endif] [store <0> in index3] [store NROSIZ in index2] [add <1> to index2] [if index2 gt <16> then store <16> in index2] [do index <1> index2] [store <1> in pelig(index)] [NIF DELDEC(index) is <9> then] [store <11> in pelig(index)] [ELSEIF Donper(index) is <1> then] [store <2> in pelig(index)] [ELSEIF misper(index) is <1> then] [store <3> in pelig(index)] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <1> then] [store <9> in pelig(index)] [ELSEIF DELDEC(index) is <2> then] [store <10> in pelig(index)] [ELSEIF hhmem(index) is <2> OR hhmem(index) is <3> then] [store <8> in pelig(index)] [ELSEIF AGERNG(index) eq <1> then] [store <7> in pelig(index)] [ELSEIF AFNOW(index) is <1> then] [store <6> in pelig(index)] [ELSEIF AGERNG(index) eq <9> then] [store <5> in pelig(index)] [ENDIF] IF THERE IS ONLY 1 ELIGIBLE HHMEM (INCLUDES af HHMEM) AND IF BUS IS ANSWERED [NIF pelig(index) eq <1> OR pelig(index) eq <2> then] [If top is < > then convert index integer to top character] [add <1> to index3] [ELSEIF pelig(index) eq <6> OR pelig(index) eq <3> then] [If top is < > then convert index integer to top character] [add <1> to index3] [ENDIF] [end do] [store <0> in index] [tablook pelig <11> index] [if index eq <0> then store <16> in index] checks for 16 person hh [add <1> to index] First position after EOL [do index2 index <16>] [store <12> in pelig(index2)] [end do] [store < > in BUSOT] [store <0> in index] [convert top character to index integer] [NIF index3 eq <1> AND index eq RESPLI then] index3 is the number of persons eligible for CPS [store in temptext] [ELSEIF index3 eq <1> then] [combine < > name(index) into temptext] [ELSEIF I-BLANK3 is <1> then] ** MOVERS ** added this check for MOVERS [store in temptext] [ELSE] [store in temptext] [ENDIF] $d >BUS< [fill temptext] have a business or a farm? <1> Yes [if index3 eq <1> then store top in BUSOT] [if index3 eq <1> then goto BUSREL] [goto BUSALST] <2> No [store < > in BUSOT] [blind] Don't know [store < > in BUSOT] Refused [store < > in BUSOT] ===>_ [goto PLBFR] $d [alt 1] >BUS< ¨Hay alguien en este hogar que tenga un negocio, o una granja/una finca/un rancho? <1> S¡ [if index3 eq <1> then store top in BUSOT] [if index3 eq <1> then goto BUSREL] [goto BUSALST] <2> No [store < > in BUSOT] [blind] Don't know [store < > in BUSOT] Refused [store < > in BUSOT] ===>_ [goto PLBFR] $end ------------------------------------------------------------------------------- $>BUSALST< [multiple BUSL1 BUSL2 BUSL3 BUSL4] [store < > in BUSOT] [do index <1> <16>] [store < > in table(index)] [store < > in xbad(index)] [store < > in relation(index)] [IF pelig(index) ge <12> then convert index integer to xbad(index) character] [end do] [store NROSIZ in index2] [add <1> to index2] [if index2 gt <16> then store <16> in index2] [do index <1> index2] [store name(index) in table(index)(9:36)] [store hhmem(index) in table(index)(40:40)] [store age(index) in table(index)(60:61)] [if LINENO(index) isnt < > then store LINENO(index) in table(index)(2:4)] [store <0> in index3] [convert RRP(index) character to index3 integer] [NIF index3 nq <0> AND NEWRRP eq <0> then] ** RRP [store reltab(index3) in relation(index)] [ELSEIF index3 nq <0> AND NEWRRP eq <1> then] [store n-reltab(index3) in relation(index)] [ENDIF] [store relation(index) in table(index)(45:56)] [NIF hhmem(index) is <2> OR hhmem(index) is <3> then] [convert index integer to xbad(index) character] [store < > in table(index)] [ELSEIF AGERNG(index) lt <2> then] [convert index integer to xbad(index) character] [store < > in table(index)] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <3> then] [convert index integer to xbad(index) character] [store < > in table(index)] [ELSEIF DELDEC(index) is <2> then] [convert index integer to xbad(index) character] [store < > in table(index)] [ELSEIF DELDEC(index) is <9> then] [convert index integer to xbad(index) character] [store < > in table(index)] [ENDIF] [end do] $itemtable >BUSLST< Whose business or farm is it? LINE NAME MEM REL AGE [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] ENTER LINE NUMBER OR FOR NO MORE PROBE: Anyone else? ===>__ ===>__ ===>__ ===>__ $d [alt 1] >BUSLST< ¨De qui‚n es el negocio o la granja/la finca/el rancho? LINE NAME MEM REL AGE [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] ENTER LINE NUMBER OR FOR NO MORE PROBE: Anyone else? ===>__ ===>__ ===>__ ===>__ $end ------------------------------------------------------------------------------- $>BUSL1< [within BUSALST] $d [none] <01-16> Don't know [goto Plbfr] Refused [goto Plbfr] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end $>BUSL2< [within BUSALST] $d [none] <01-16> Don't know [goto BUSREL] No more [goto BUSREL] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal BUSL1] $end $>BUSL3< [within BUSALST] $d [none] <01-16> Don't know [goto BUSREL] No more [goto BUSREL] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal BUSL1] [notequal BUSL2] $end $>BUSL4< [within BUSALST] $d [none] <01-16> Don't know No more $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal BUSL1] [notequal BUSL2] [notequal BUSL3] $end ------------------------------------------------------------------------------- COMMENT: THIS ITEM TRIES TO DETERMINE RELATIONSHIP TO THE OWNER OF THE BUSINESS $>BUSREL< [if NEWRRP eq <1> then goto BUSREL2] ** RRP [store <0> in index2] [store <0> in index3] [store <0> in index4] [store <0> in index7] [IF BUSOT isnt < > then convert BUSOT character to index2 integer] [NIF BUSL1 isnt AND BUSL1 isnt then] [if onpath BUSL1 then convert BUSL1 character to index2 integer] [ENDIF] [NIF BUSL2 isnt AND BUSL2 isnt then] [if onpath BUSL2 then convert BUSL2 character to index3 integer] [ENDIF] [NIF BUSL3 isnt AND BUSL3 isnt then] [if onpath BUSL3 then convert BUSL3 character to index4 integer] [ENDIF] [NIF BUSL4 isnt AND BUSL4 isnt then] [if onpath BUSL4 then convert BUSL4 character to index7 integer] [ENDIF] [Do index <1> NROSIZ] [store <0> in relflg(index)] [store <0> in index5] [store <0> in index6] [if RRP(index) isnt < > then convert RRP(index) character to index5 integer] [NIF index5 ge <3> AND index5 le <8> then] [store <1> in index6] [ELSEIF index5 eq <1> then] [store <1> in index6] [ENDIF] [store <0> in index8] [store <0> in index9] [store <0> in index10] [store <0> in index11] [store < > in temp2] [store < > in temp3] [store < > in temp4] [store < > in temp5] [NIF RRP(index2) is <1> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index2) is <2> AND index5 eq <2> then] [store <1> in relflg(index)] [ELSEIF RRP(index2) is <3> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index2) is <4> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index2) is <5> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index2) is <6> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index2) is <7> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index2) is <8> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index2) is <10> then] [store SUBFAM(index2)(1:2) in temp2] [store SUBFAM(index2)(4:5) in temp3] [store SUBFAM(index2)(7:8) in temp4] [store SUBFAM(index2)(10:11) in temp5] [If temp2 isnt < > then convert temp2 character to index8 integer] [If temp3 isnt < > then convert temp3 character to index9 integer] [If temp4 isnt < > then convert temp4 character to index10 integer] [If temp5 isnt < > then convert temp5 character to index11 integer] [If index8 nq <0> then store <1> in relflg(index8)] [If index9 nq <0> then store <1> in relflg(index9)] [If index10 nq <0> then store <1> in relflg(index10)] [If index11 nq <0> then store <1> in relflg(index11)] [ENDIF] [store <0> in index8] [store <0> in index9] [store <0> in index10] [store <0> in index11] [store < > in temp2] [store < > in temp3] [store < > in temp4] [store < > in temp5] [NIF index3 eq <0> then] [ELSEIF RRP(index3) is <1> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index3) is <2> AND index5 eq <2> then] [store <1> in relflg(index)] [ELSEIF RRP(index3) is <3> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index3) is <4> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index3) is <5> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index3) is <6> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index3) is <7> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index3) is <8> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index3) is <10> then] [store SUBFAM(index3)(1:2) in temp2] [store SUBFAM(index3)(4:5) in temp3] [store SUBFAM(index3)(7:8) in temp4] [store SUBFAM(index3)(10:11) in temp5] [If temp2 isnt < > then convert temp2 character to index8 integer] [If temp3 isnt < > then convert temp3 character to index9 integer] [If temp4 isnt < > then convert temp4 character to index10 integer] [If temp5 isnt < > then convert temp5 character to index11 integer] [If index8 nq <0> then store <1> in relflg(index8)] [If index9 nq <0> then store <1> in relflg(index9)] [If index10 nq <0> then store <1> in relflg(index10)] [If index11 nq <0> then store <1> in relflg(index11)] [ENDIF] [store <0> in index8] [store <0> in index9] [store <0> in index10] [store <0> in index11] [store < > in temp2] [store < > in temp3] [store < > in temp4] [store < > in temp5] [NIF index4 eq <0> then] [ELSEIF RRP(index4) is <1> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index4) is <2> AND index5 eq <2> then] [store <1> in relflg(index)] [ELSEIF RRP(index4) is <3> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index4) is <4> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index4) is <5> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index4) is <6> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index4) is <7> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index4) is <8> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index4) is <10> then] [store SUBFAM(index4)(1:2) in temp2] [store SUBFAM(index4)(4:5) in temp3] [store SUBFAM(index4)(7:8) in temp4] [store SUBFAM(index4)(10:11) in temp5] [If temp2 isnt < > then convert temp2 character to index8 integer] [If temp3 isnt < > then convert temp3 character to index9 integer] [If temp4 isnt < > then convert temp4 character to index10 integer] [If temp5 isnt < > then convert temp5 character to index11 integer] [If index8 nq <0> then store <1> in relflg(index8)] [If index9 nq <0> then store <1> in relflg(index9)] [If index10 nq <0> then store <1> in relflg(index10)] [If index11 nq <0> then store <1> in relflg(index11)] [ENDIF] [store <0> in index8] [store <0> in index9] [store <0> in index10] [store <0> in index11] [store < > in temp2] [store < > in temp3] [store < > in temp4] [store < > in temp5] [NIF index7 eq <0> then] [ELSEIF RRP(index7) is <1> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index7) is <2> AND index5 eq <2> then] [store <1> in relflg(index)] [ELSEIF RRP(index7) is <3> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index7) is <4> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index7) is <5> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index7) is <6> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index7) is <7> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index7) is <8> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index7) is <10> then] [store SUBFAM(index7)(1:2) in temp2] [store SUBFAM(index7)(4:5) in temp3] [store SUBFAM(index7)(7:8) in temp4] [store SUBFAM(index7)(10:11) in temp5] [If temp2 isnt < > then convert temp2 character to index8 integer] [If temp3 isnt < > then convert temp3 character to index9 integer] [If temp4 isnt < > then convert temp4 character to index10 integer] [If temp5 isnt < > then convert temp5 character to index11 integer] [If index8 nq <0> then store <1> in relflg(index8)] [If index9 nq <0> then store <1> in relflg(index9)] [If index10 nq <0> then store <1> in relflg(index10)] [If index11 nq <0> then store <1> in relflg(index11)] [ENDIF] [END DO] [store <1> in relflg(index2)] [store <1> in relflg(index3)] [store <1> in relflg(index4)] [store <1> in relflg(index7)] [goto PLBFR] $end ---------------------------------------------------------------------------- $>BUSREL2< ** RRP [store <0> in index2] [store <0> in index3] [store <0> in index4] [store <0> in index7] [IF BUSOT isnt < > then convert BUSOT character to index2 integer] [NIF BUSL1 isnt AND BUSL1 isnt then] [if onpath BUSL1 then convert BUSL1 character to index2 integer] [ENDIF] [NIF BUSL2 isnt AND BUSL2 isnt then] [if onpath BUSL2 then convert BUSL2 character to index3 integer] [ENDIF] [NIF BUSL3 isnt AND BUSL3 isnt then] [if onpath BUSL3 then convert BUSL3 character to index4 integer] [ENDIF] [NIF BUSL4 isnt AND BUSL4 isnt then] [if onpath BUSL4 then convert BUSL4 character to index7 integer] [ENDIF] [Do index <1> NROSIZ] [store <0> in relflg(index)] [store <0> in index5] [store <0> in index6] [if RRP(index) isnt < > then convert RRP(index) character to index5 integer] [NIF index5 ge <22> AND index5 le <26> then] [store <1> in index6] [ELSEIF index5 eq <20> then] [store <1> in index6] [ELSEIF index5 eq <18> then] [store <1> in index6] [ENDIF] [store <0> in index8] [store <0> in index9] [store <0> in index10] [store <0> in index11] [store < > in temp2] [store < > in temp3] [store < > in temp4] [store < > in temp5] [NIF RRP(index2) is <18> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index2) is <19> AND index5 eq <2> then] [store <1> in relflg(index)] [ELSEIF RRP(index2) is <20> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index2) is <22> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index2) is <23> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index2) is <24> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index2) is <25> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index2) is <26> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index2) is <31> then] [store SUBFAM(index2)(1:2) in temp2] [store SUBFAM(index2)(4:5) in temp3] [store SUBFAM(index2)(7:8) in temp4] [store SUBFAM(index2)(10:11) in temp5] [If temp2 isnt < > then convert temp2 character to index8 integer] [If temp3 isnt < > then convert temp3 character to index9 integer] [If temp4 isnt < > then convert temp4 character to index10 integer] [If temp5 isnt < > then convert temp5 character to index11 integer] [If index8 nq <0> then store <1> in relflg(index8)] [If index9 nq <0> then store <1> in relflg(index9)] [If index10 nq <0> then store <1> in relflg(index10)] [If index11 nq <0> then store <1> in relflg(index11)] [ELSEIF RRP(index2) is <33> then] [store SUBFAM(index2)(1:2) in temp2] [store SUBFAM(index2)(4:5) in temp3] [store SUBFAM(index2)(7:8) in temp4] [store SUBFAM(index2)(10:11) in temp5] [If temp2 isnt < > then convert temp2 character to index8 integer] [If temp3 isnt < > then convert temp3 character to index9 integer] [If temp4 isnt < > then convert temp4 character to index10 integer] [If temp5 isnt < > then convert temp5 character to index11 integer] [If index8 nq <0> then store <1> in relflg(index8)] [If index9 nq <0> then store <1> in relflg(index9)] [If index10 nq <0> then store <1> in relflg(index10)] [If index11 nq <0> then store <1> in relflg(index11)] [ELSEIF RRP(index2) is <35> then] [store SUBFAM(index2)(1:2) in temp2] [store SUBFAM(index2)(4:5) in temp3] [store SUBFAM(index2)(7:8) in temp4] [store SUBFAM(index2)(10:11) in temp5] [If temp2 isnt < > then convert temp2 character to index8 integer] [If temp3 isnt < > then convert temp3 character to index9 integer] [If temp4 isnt < > then convert temp4 character to index10 integer] [If temp5 isnt < > then convert temp5 character to index11 integer] [If index8 nq <0> then store <1> in relflg(index8)] [If index9 nq <0> then store <1> in relflg(index9)] [If index10 nq <0> then store <1> in relflg(index10)] [If index11 nq <0> then store <1> in relflg(index11)] [ELSEIF RRP(index2) is <37> then] [store SUBFAM(index2)(1:2) in temp2] [store SUBFAM(index2)(4:5) in temp3] [store SUBFAM(index2)(7:8) in temp4] [store SUBFAM(index2)(10:11) in temp5] [If temp2 isnt < > then convert temp2 character to index8 integer] [If temp3 isnt < > then convert temp3 character to index9 integer] [If temp4 isnt < > then convert temp4 character to index10 integer] [If temp5 isnt < > then convert temp5 character to index11 integer] [If index8 nq <0> then store <1> in relflg(index8)] [If index9 nq <0> then store <1> in relflg(index9)] [If index10 nq <0> then store <1> in relflg(index10)] [If index11 nq <0> then store <1> in relflg(index11)] [ENDIF] [store <0> in index8] [store <0> in index9] [store <0> in index10] [store <0> in index11] [store < > in temp2] [store < > in temp3] [store < > in temp4] [store < > in temp5] [NIF index3 eq <0> then] [ELSEIF RRP(index3) is <18> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index3) is <19> AND index5 eq <2> then] [store <1> in relflg(index)] [ELSEIF RRP(index3) is <20> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index3) is <22> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index3) is <23> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index3) is <24> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index3) is <25> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index3) is <26> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index3) is <31> then] [store SUBFAM(index3)(1:2) in temp2] [store SUBFAM(index3)(4:5) in temp3] [store SUBFAM(index3)(7:8) in temp4] [store SUBFAM(index3)(10:11) in temp5] [If temp2 isnt < > then convert temp2 character to index8 integer] [If temp3 isnt < > then convert temp3 character to index9 integer] [If temp4 isnt < > then convert temp4 character to index10 integer] [If temp5 isnt < > then convert temp5 character to index11 integer] [If index8 nq <0> then store <1> in relflg(index8)] [If index9 nq <0> then store <1> in relflg(index9)] [If index10 nq <0> then store <1> in relflg(index10)] [If index11 nq <0> then store <1> in relflg(index11)] [ELSEIF RRP(index3) is <33> then] [store SUBFAM(index3)(1:2) in temp2] [store SUBFAM(index3)(4:5) in temp3] [store SUBFAM(index3)(7:8) in temp4] [store SUBFAM(index3)(10:11) in temp5] [If temp2 isnt < > then convert temp2 character to index8 integer] [If temp3 isnt < > then convert temp3 character to index9 integer] [If temp4 isnt < > then convert temp4 character to index10 integer] [If temp5 isnt < > then convert temp5 character to index11 integer] [If index8 nq <0> then store <1> in relflg(index8)] [If index9 nq <0> then store <1> in relflg(index9)] [If index10 nq <0> then store <1> in relflg(index10)] [If index11 nq <0> then store <1> in relflg(index11)] [ELSEIF RRP(index3) is <35> then] [store SUBFAM(index3)(1:2) in temp2] [store SUBFAM(index3)(4:5) in temp3] [store SUBFAM(index3)(7:8) in temp4] [store SUBFAM(index3)(10:11) in temp5] [If temp2 isnt < > then convert temp2 character to index8 integer] [If temp3 isnt < > then convert temp3 character to index9 integer] [If temp4 isnt < > then convert temp4 character to index10 integer] [If temp5 isnt < > then convert temp5 character to index11 integer] [If index8 nq <0> then store <1> in relflg(index8)] [If index9 nq <0> then store <1> in relflg(index9)] [If index10 nq <0> then store <1> in relflg(index10)] [If index11 nq <0> then store <1> in relflg(index11)] [ELSEIF RRP(index3) is <37> then] [store SUBFAM(index3)(1:2) in temp2] [store SUBFAM(index3)(4:5) in temp3] [store SUBFAM(index3)(7:8) in temp4] [store SUBFAM(index3)(10:11) in temp5] [If temp2 isnt < > then convert temp2 character to index8 integer] [If temp3 isnt < > then convert temp3 character to index9 integer] [If temp4 isnt < > then convert temp4 character to index10 integer] [If temp5 isnt < > then convert temp5 character to index11 integer] [If index8 nq <0> then store <1> in relflg(index8)] [If index9 nq <0> then store <1> in relflg(index9)] [If index10 nq <0> then store <1> in relflg(index10)] [If index11 nq <0> then store <1> in relflg(index11)] [ENDIF] [end do] $end ---------------------------------------------------------------------- $>BUSREL2a< ** RRP [Do index <1> NROSIZ] [store <0> in index5] [store <0> in index6] [if RRP(index) isnt < > then convert RRP(index) character to index5 integer] [NIF index5 ge <22> AND index5 le <26> then] [store <1> in index6] [ELSEIF index5 eq <20> then] [store <1> in index6] [ELSEIF index5 eq <18> then] [store <1> in index6] [ENDIF] [store <0> in index8] [store <0> in index9] [store <0> in index10] [store <0> in index11] [store < > in temp2] [store < > in temp3] [store < > in temp4] [store < > in temp5] [NIF index4 eq <0> then] [ELSEIF RRP(index4) is <18> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index4) is <19> AND index5 eq <2> then] [store <1> in relflg(index)] [ELSEIF RRP(index4) is <20> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index4) is <22> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index4) is <23> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index4) is <24> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index4) is <25> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index4) is <26> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index4) is <31> then] [store SUBFAM(index4)(1:2) in temp2] [store SUBFAM(index4)(4:5) in temp3] [store SUBFAM(index4)(7:8) in temp4] [store SUBFAM(index4)(10:11) in temp5] [If temp2 isnt < > then convert temp2 character to index8 integer] [If temp3 isnt < > then convert temp3 character to index9 integer] [If temp4 isnt < > then convert temp4 character to index10 integer] [If temp5 isnt < > then convert temp5 character to index11 integer] [If index8 nq <0> then store <1> in relflg(index8)] [If index9 nq <0> then store <1> in relflg(index9)] [If index10 nq <0> then store <1> in relflg(index10)] [If index11 nq <0> then store <1> in relflg(index11)] [ELSEIF RRP(index4) is <33> then] [store SUBFAM(index4)(1:2) in temp2] [store SUBFAM(index4)(4:5) in temp3] [store SUBFAM(index4)(7:8) in temp4] [store SUBFAM(index4)(10:11) in temp5] [If temp2 isnt < > then convert temp2 character to index8 integer] [If temp3 isnt < > then convert temp3 character to index9 integer] [If temp4 isnt < > then convert temp4 character to index10 integer] [If temp5 isnt < > then convert temp5 character to index11 integer] [If index8 nq <0> then store <1> in relflg(index8)] [If index9 nq <0> then store <1> in relflg(index9)] [If index10 nq <0> then store <1> in relflg(index10)] [If index11 nq <0> then store <1> in relflg(index11)] [ELSEIF RRP(index4) is <35> then] [store SUBFAM(index4)(1:2) in temp2] [store SUBFAM(index4)(4:5) in temp3] [store SUBFAM(index4)(7:8) in temp4] [store SUBFAM(index4)(10:11) in temp5] [If temp2 isnt < > then convert temp2 character to index8 integer] [If temp3 isnt < > then convert temp3 character to index9 integer] [If temp4 isnt < > then convert temp4 character to index10 integer] [If temp5 isnt < > then convert temp5 character to index11 integer] [If index8 nq <0> then store <1> in relflg(index8)] [If index9 nq <0> then store <1> in relflg(index9)] [If index10 nq <0> then store <1> in relflg(index10)] [If index11 nq <0> then store <1> in relflg(index11)] [ELSEIF RRP(index4) is <37> then] [store SUBFAM(index4)(1:2) in temp2] [store SUBFAM(index4)(4:5) in temp3] [store SUBFAM(index4)(7:8) in temp4] [store SUBFAM(index4)(10:11) in temp5] [If temp2 isnt < > then convert temp2 character to index8 integer] [If temp3 isnt < > then convert temp3 character to index9 integer] [If temp4 isnt < > then convert temp4 character to index10 integer] [If temp5 isnt < > then convert temp5 character to index11 integer] [If index8 nq <0> then store <1> in relflg(index8)] [If index9 nq <0> then store <1> in relflg(index9)] [If index10 nq <0> then store <1> in relflg(index10)] [If index11 nq <0> then store <1> in relflg(index11)] [ENDIF] [store <0> in index8] [store <0> in index9] [store <0> in index10] [store <0> in index11] [store < > in temp2] [store < > in temp3] [store < > in temp4] [store < > in temp5] [NIF index7 eq <0> then] [ELSEIF RRP(index7) is <18> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index7) is <19> AND index5 eq <2> then] [store <1> in relflg(index)] [ELSEIF RRP(index7) is <20> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index7) is <22> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index7) is <23> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index7) is <24> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index7) is <25> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index7) is <26> AND index6 eq <1> then] [store <1> in relflg(index)] [ELSEIF RRP(index7) is <31> then] [store SUBFAM(index7)(1:2) in temp2] [store SUBFAM(index7)(4:5) in temp3] [store SUBFAM(index7)(7:8) in temp4] [store SUBFAM(index7)(10:11) in temp5] [If temp2 isnt < > then convert temp2 character to index8 integer] [If temp3 isnt < > then convert temp3 character to index9 integer] [If temp4 isnt < > then convert temp4 character to index10 integer] [If temp5 isnt < > then convert temp5 character to index11 integer] [If index8 nq <0> then store <1> in relflg(index8)] [If index9 nq <0> then store <1> in relflg(index9)] [If index10 nq <0> then store <1> in relflg(index10)] [If index11 nq <0> then store <1> in relflg(index11)] [ELSEIF RRP(index7) is <33> then] [store SUBFAM(index7)(1:2) in temp2] [store SUBFAM(index7)(4:5) in temp3] [store SUBFAM(index7)(7:8) in temp4] [store SUBFAM(index7)(10:11) in temp5] [If temp2 isnt < > then convert temp2 character to index8 integer] [If temp3 isnt < > then convert temp3 character to index9 integer] [If temp4 isnt < > then convert temp4 character to index10 integer] [If temp5 isnt < > then convert temp5 character to index11 integer] [If index8 nq <0> then store <1> in relflg(index8)] [If index9 nq <0> then store <1> in relflg(index9)] [If index10 nq <0> then store <1> in relflg(index10)] [If index11 nq <0> then store <1> in relflg(index11)] [ELSEIF RRP(index7) is <35> then] [store SUBFAM(index7)(1:2) in temp2] [store SUBFAM(index7)(4:5) in temp3] [store SUBFAM(index7)(7:8) in temp4] [store SUBFAM(index7)(10:11) in temp5] [If temp2 isnt < > then convert temp2 character to index8 integer] [If temp3 isnt < > then convert temp3 character to index9 integer] [If temp4 isnt < > then convert temp4 character to index10 integer] [If temp5 isnt < > then convert temp5 character to index11 integer] [If index8 nq <0> then store <1> in relflg(index8)] [If index9 nq <0> then store <1> in relflg(index9)] [If index10 nq <0> then store <1> in relflg(index10)] [If index11 nq <0> then store <1> in relflg(index11)] [ELSEIF RRP(index7) is <37> then] [store SUBFAM(index7)(1:2) in temp2] [store SUBFAM(index7)(4:5) in temp3] [store SUBFAM(index7)(7:8) in temp4] [store SUBFAM(index7)(10:11) in temp5] [If temp2 isnt < > then convert temp2 character to index8 integer] [If temp3 isnt < > then convert temp3 character to index9 integer] [If temp4 isnt < > then convert temp4 character to index10 integer] [If temp5 isnt < > then convert temp5 character to index11 integer] [If index8 nq <0> then store <1> in relflg(index8)] [If index9 nq <0> then store <1> in relflg(index9)] [If index10 nq <0> then store <1> in relflg(index10)] [If index11 nq <0> then store <1> in relflg(index11)] [ENDIF] [END DO] [store <1> in relflg(index2)] [store <1> in relflg(index3)] [store <1> in relflg(index4)] [store <1> in relflg(index7)] [goto PLBFR] $end ---------------------------------------------------------------------------- $>PLBFR< [store <0> in LBFR_R_P] $end ------------------------------------------------------------------------------- $ROPEN>LBFR< -------------------------------------------------------------------------------- $>Aft-LbFr< COMMENT: SET END TIME FOR THE LABOR FORCE QUESTIONS. [store <0> in index] [setsec sectim-i] [NIF LBHSTM nq <0> AND lkLBHETM eq <0> then] [If LBHETM eq <0> then store sectim-i in LBHETM] [ELSEIF rsmtime nq <0> AND lkLBHETM eq <0> then] [If LBHETM eq <0> then store sectim-i in LBHETM] [ENDIF] [store LBHETM in index] [NIF LBHSTM nq <0> then] [subtract LBHSTM from index] [ELSE] [subtract rsmtime from index] [ENDIF] [If lkLBHETM eq <0> then add index to LBHSEC] [store <1> in LkLBHSTM] [store <1> in lkLBHETM] [goto pre-nat] $end ------------------------------------------------------------------------------- $RBEGIN>LBFR< [maxelt 16] -------------------------------------------------------------------------------- $>Pre-Ques< [store <1> in pelig(R_P)] [NIF DELDEC(R_P) is <9> then] [store <11> in pelig(R_P)] [ELSEIF Donper(R_P) is <1> then] [store <2> in pelig(R_P)] [ELSEIF misper(R_P) is <1> then] [store <3> in pelig(R_P)] [ELSEIF DELDEC(R_P) is <3> OR DELDEC(R_P) is <1> then] [store <9> in pelig(R_P)] [ELSEIF DELDEC(R_P) is <2> then] [store <10> in pelig(R_P)] [ELSEIF hhmem(R_P) is <2> OR hhmem(R_P) is <3> then] [store <8> in pelig(R_P)] [ELSEIF AGERNG(R_P) eq <1> then] [store <7> in pelig(R_P)] [ELSEIF AFNOW(R_P) is <1> then] [store <6> in pelig(R_P)] [ELSEIF AGERNG(R_P) eq <9> then] [store <5> in pelig(R_P)] [ENDIF] [store <0> in index] [store <0> in index2] [tablook pelig <11> index] [if index eq <0> then store <16> in index] checks for 16 person hh [add <1> to index] First position after EOL [do index2 index <16>] [store <12> in pelig(index2)] [end do] [if pelig(R_P) ge <11> then roster exit] [if pelig(R_P) ge <5> then roster loop] [if pelig(R_P) eq <4> then roster loop] [if AGERNG(R_P) le <1> then roster loop] $end ------------------------------------------------------------------------------- $>WK< [open missingper] [store <5> in wheredex] [if wheredex gt fardex then store wheredex in fardex] COMMENT: SETS START TIME FOR VERSION D LABOR FORCE (WK-LBFR-end) [setsec sectim-i] [NIF LBFSTM(R_P) eq <0> AND lkLBstim(R_P) eq <0> then] [store sectim-i in LBFSTM(R_P)] [ENDIF] [store <1> in lkLBstim(R_P)] [store < > in temptext] [store < > in temp2] [NIF RESPLI eq R_P then] [store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [ENDIF] [store <0> in index] [NIF BUS is <1> AND relflg(R_P) eq <1> then] [If onpath BUS then store <1> in index] [ENDIF] [NIF index eq <1> then] [If curralt nq <1> then store in temp2] [If curralt eq <1> then store in temp2] [ELSE] [store in temp2] [If curralt eq <1> then store in temp2] [ENDIF] THIS CODE SETS-UP THE REFERENCE WEEK FILL IN THE VARIABLE "WHATWEEK". [store <0> in index] [store day-i in index] [CASE wkday1-c] [OF then] [subtract <1> from index] [OF then] [subtract <2> from index] [OF then] [subtract <3> from index] [OF then] [subtract <4> from index] [OF then] [subtract <5> from index] [OF then] [subtract <6> from index] [ENDCASE] [store in WHATWEEK] [store in swhatwk] ** SPD ** default last week $d >WK< [fill whatweek], did [fill temptext] do ANY work for [fill temp2] <1> Yes <2> No <3> Retired <4> Disabled <5> Unable to work [blind] Don't know Refused ===>_ $d [alt 1] >WK< [fill swhatwk], ¨hizo [fill temptext] [fill temp2] <1> S¡ <2> No <3> Retirado(a)/jubilado(a) <4> Incapacitado(a) <5> No puede trabajar [blind] Don't know Refused ===>_ $end -------------------------------------------------------------------------- $>WK-set< [store <5> in fardex] THE FOLLOWING CODE SETS UP THE SELF/PROXY FLAG [NIF R_P nq RESPLI AND SLFPRX(R_P) is < > then] [store <2> in SLFPRX(R_P)] [ELSEIF R_P eq RESPLI AND SLFPRX(R_P) is < > then] [store <1> in SLFPRX(R_P)] [ENDIF] [NIF WK(R_P) is <1> then] [if onpath WK:R_P then goto MJ] [ELSEIF WK(R_P) is OR WK(R_P) is then] [if onpath WK:R_P then goto ABS] [ENDIF] $end -------------------------------------------------------------------------------- COMMENT: 1) IF ONPATH ENTRY OF 1 IN BUS AND RELFLG EQ 1 THEN GOTO BUS1 2) ALL OTHERS GOTO RETCK1-C $>BUSCK1-C< [store < > in BUSCK1(R_P)] [NIF BUS is <1> AND relflg(R_P) eq <1> then] [if onpath BUS then store <1> in BUSCK1(R_P)] [if onpath BUS then goto BUS1] [ENDIF] [store <2> in BUSCK1(R_P)] [goto RETCK1-C] $end ------------------------------------------------------------------------------ $>BUS1< [store < > in temptext] [NIF R_P eq RESPLI then] [store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [ENDIF] THIS CODE SETS-UP THE REFERENCE WEEK FILL IN THE VARIABLE "WHATWEEK". [store <0> in index] [store day-i in index] [CASE wkday1-c] [OF then] [subtract <1> from index] [OF then] [subtract <2> from index] [OF then] [subtract <3> from index] [OF then] [subtract <4> from index] [OF then] [subtract <5> from index] [OF then] [subtract <6> from index] [ENDCASE] [store in WHATWEEK] [store in swhatwk] ** SPD ** default last week $d >BUS1< [fill whatweek], did [fill temptext] do any unpaid work in the family business or farm? <1> Yes [goto BUSCK2-C] <2> No [blind] Don't know Refused ===>_ [goto RETCK1-C] $d [alt 1] >BUS1< [fill swhatwk], ¨trabaj¢ [fill temptext] gratis en el negocio o en la granja/la finca/el rancho de la familia? <1> S¡ [goto BUSCK2-C] <2> No [blind] Don't know Refused ===>_ [goto RETCK1-C] $end ------------------------------------------------------------------------------- COMMENT: 1) IF CURRENT ROSTER POSITION EQUALS ANY OF THE VALUES IN BUSLST THEN STORE 1 IN BUS2OT AND GOTO HRUSL1 2) ALL OTHERS BUS2 $>BUSCK2-C< [store < > in BUSCK2(R_P)] [store <0> in index] [convert BUSOT character to index integer] [NIF R_P eq index then] [store <1> in BUS2OT(R_P)] [store <1> in BUSCK2(R_P)] [goto HRUSL1] [ENDIF] THIS CHECKS FOR ANY OTHER MEMBERS WHO OWN/OPERATE A BUSINDESS & SKIPS ACCORDINGLY [store <0> in index] [store <0> in index2] [store <0> in index3] [store <0> in index4] [NIF BUSL1 isnt AND BUSL1 isnt then] [if onpath BUSL1 then convert BUSL1 character to index integer] [ENDIF] [NIF BUSL2 isnt AND BUSL2 isnt then] [If onpath BUSL2 then convert BUSL2 character to index2 integer] [ENDIF] [NIF BUSL3 isnt AND BUSL3 isnt then] [If onpath BUSL3 then convert BUSL3 character to index3 integer] [ENDIF] [NIF BUSL4 isnt AND BUSL4 isnt then] [If onpath BUSL4 then convert BUSL4 character to index4 integer] [ENDIF] [NIF index eq R_P OR index2 eq R_P then] [store <1> in BUSCK2(R_P)] [store <1> in BUS2OT(R_P)] [goto HRUSL1] [ELSEIF index3 eq R_P OR index4 eq R_P then] [store <1> in BUSCK2(R_P)] [store <1> in BUS2OT(R_P)] [goto HRUSL1] [ENDIF] [store <2> in BUSCK2(R_P)] $end -------------------------------------------------------------------------------- $>BUS2< [indirect] [store < > in temptext] [store < > in dodoes] [store < > in temptext] [store < > in dodoes] [NIF R_P eq RESPLI then] [store in temptext] [store in DoDoes] [If curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [store in DoDoes] [ENDIF] $d >BUS2< [fill DoDoes] [fill temptext] receive any payments or profits from the business? <1> Yes [store <1> in BUS2OT(R_P)] <2> No [store <2> in BUS2OT(R_P)] [blind] Don't know [store in BUS2OT(R_P)] Refused [store in BUS2OT(R_P)] ===>_ [goto HRUSL1] $d [alt 1] >BUS2< ¨Recibe [fill temptext] alg£n pago o alguna ganancia de este negocio? <1> S¡ [store <1> in BUS2OT(R_P)] <2> No [store <2> in BUS2OT(R_P)] [blind] Don't know [store in BUS2OT(R_P)] Refused [store in BUS2OT(R_P)] ===>_ [goto HRUSL1] $end ------------------------------------------------------------------------------- COMMENT: 1. IF MISCK IS 2-4 OR 6-8 AND I-MLR IS 5 AND AGE IS 50+ AND ONPATH ENTRY OF 3 IN WK STORE 1 IN RETOT AND GOTO RET1 (CHANGES NLFCK2-C to RET1 IN APRIL 93) 2. IF MISCK IS 2-4 OR 6-8 AND I-MLR IS 5 AND AGE IS 50+ AND ONPATH ENTRY OTHER THAN 3 IN WK THEN GOTO RET 3. IF MISCK IS 2-4 OR 6-8 AND I-MLR IS 6 THEN GOTO DIS 4. IF ONPATH ENTRY OF 4 IN WK THEN GOTO DIS1 5. IF ONPATH ENTRY OF 5 IN WK THEN GOTO DIS2 6. ALL OTHERS GOTO RETCK2-C $>RETCK1-C< [store <0> in index] [store < > in RETCK1(R_P)] [NIF MISCK isnt <1> AND MISCK isnt <5> then] [store <1> in index] [ENDIF] [NIF I-MLR(R_P) is <5> AND AGERNG(R_P) ge <5> then] [add <10> to index] [ENDIF] 1. [NIF index eq <11> AND WK(R_P) is <3> then] [If onpath WK:R_P then store <1> in RETOT(R_P)] [If onpath WK:R_P then store <1> in RETCK1(R_P)] [If onpath WK:R_P then goto RET1] [ENDIF] 2. [NIF index eq <11> AND WK(R_P) isnt <3> then] [If onpath WK:R_P then store <2> in RETCK1(R_P)] [If onpath WK:R_P then goto RET] [ENDIF] 3. [NIF MISCK isnt <1> AND MISCK isnt <5> then] [If I-MLR(R_P) is <6> then store <3> in RETCK1(R_P)] [If I-MLR(R_P) is <6> then goto DIS] [ENDIF] 4. [NIF WK(R_P) is <4> then] [If onpath WK:R_P then store <4> in RETCK1(R_P)] [If onpath WK:R_P then goto DIS1] [ENDIF] 5. [NIF WK(R_P) is <5> then] [If onpath WK:R_P then store <5> in RETCK1(R_P)] [If onpath WK:R_P then goto DIS2] [ENDIF] 6. [store <6> in RETCK1(R_P)] [goto RETCK2-C] $end ------------------------------------------------------------------------------ $>RET< [store < > in temptext] [store < > in werewas] [store < > in areis] [store < > in youheshe] [NIF RESPLI eq R_P AND curralt nq <1> then] [store in temptext] [store in areis] [store in werewas] [store in youheshe] [ELSEIF RESPLI eq R_P then] [store in temptext] [store in youheshe] [ELSEIF sex(R_P) is <2> then] [store name(R_P) in temptext] [store in areis] [store in werewas] [store in youheshe] [if curralt eq <1> then store in youheshe] [ELSE] [store name(R_P) in temptext] [store in areis] [store in werewas] [store in youheshe] [if curralt eq <1> then store <‚l> in youheshe] [ENDIF] $display >RET< Last month [fill temptext] [fill werewas] reported to be retired. [fill Areis] [fill youheshe] still retired? <1> Yes [store <1> in RETOT(R_P)] [goto RET1] <2> No <3> Was not retired last month [blind] Don't know Refused ===>_ [store RET(R_P) in RETOT(R_P)] [goto RETCK2-C] $d [alt 1] >RET< El mes pasado me informaron que [fill temptext] estaba retirado(a)/jubilado(a). ¨Sigue retirado(a)/jubilado(a)? <1> S¡ [store <1> in RETOT(R_P)] [goto NLFCK2-C] <2> No <3> No estaba retirado(a)/jubilado(a) [blind] Don't know Refused ===>_ [store RET(R_P) in RETOT(R_P)] [goto RETCK2-C] $end ----------------------------------------------------------------------------- $>DIS< [store < > in temptext] [store < > in werewas] [store < > in yourhshr] [store < > in youhmhr] [NIF RESPLI eq R_P then] [store in temptext] [store in youhmhr] [store in werewas] [store in yourhshr] [if curralt eq <1> then store in temptext] [ELSEIF sex(R_P) is <2> then] [store name(R_P) in temptext] [store in youhmhr] [store in werewas] [store in yourhshr] [ELSE] [store name(R_P) in temptext] [store in youhmhr] [store in werewas] [store in yourhshr] [ENDIF] [store < > in temp2] [store in temp3] [store < > in temp6] [NIF WK(R_P) is <2> AND curralt nq <1> then] [if onpath WK:R_P then combine < > temptext < > werewas < reported to have a> into temp2] [If onpath WK:R_P then store in temp3] [ELSEIF WK(R_P) is <2> then] [If onpath WK:R_P then combine < > temptext < estaba incapacitado(a).> into temp2] [If onpath WK:R_P then store < > in temp3] [ENDIF] [store in temp4] [store < > in temp5] [store <0> in index] [NIF BUS is <1> AND relflg(R_P) eq <1> then] [If onpath BUS then store <1> in index] [ENDIF] [NIF index eq <1> AND curralt nq <1> then] [store <,> in temp4] [store in temp5] [store < > in temp6] [ELSEIF index eq <1> then] [store <,> in temp4] [store in temp5] [store in temp6] [ENDIF] $display >DIS< [fill temp2] [fill temp3] [fill yourhshr] disability continue to prevent [fill youhmhr] from doing any kind of work for the next 6 months[fill temp4] [fill temp5] <1> Yes [goto NLFCK2-C] <2> No <3> Did not have disability last month [blind] Don't know Refused ===>_ $d [alt 1] >DIS< [fill temp2] ¨Sigue [fill temptext] incapacitado(a), de manera que no pueda hacer ning£n tipo de trabajo durante los pr¢ximos 6 meses[fill temp4] [fill temp5] [fill temp6] <1> S¡ [goto NLFCK2-C] <2> No <3> estaba incapacitado(a) el mes pasado [blind] Don't know Refused ===>_ $end ------------------------------------------------------------------------------- COMMENT: 1) IF ONPATH ENTRY OF 3 IN WK THEN GOTO RETCK3-C 2) ALL OTHERS GOTO ABS $>RETCK2-C< [store < > in RETCK2(R_P)] [NIF WK(R_P) is <3> then] [If onpath WK:R_P then store <1> in RETCK2(R_P)] [If onpath WK:R_P then goto RETCK3-C] [ENDIF] [store <2> in RETCK2(R_P)] [goto ABS] $end ------------------------------------------------------------------------------- COMMENT: 1) IF AGERNG EQ 1,2,3,4 OR 9 THEN GOTO ABS 2) ALL OTHERS GOTO RET1 $>RETCK3-C< [store < > in RETCK3(R_P)] [NIF AGERNG(R_P) ge <1> AND AGERNG(R_P) le <4> then] [store <1> in RETCK3(R_P)] [goto ABS] [ELSEIF AGERNG(R_P) eq <9> then] [store <1> in RETCK3(R_P)] [goto ABS] [ENDIF] [store <2> in RETCK3(R_P)] $end ------------------------------------------------------------------------------- $>RET1< [store < > in DoDoes] [store < > in temptext] [NIF R_P eq RESPLI then] [store in temptext] [store in DoDoes] [If curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [store in DoDoes] [ENDIF] $d >RET1< [fill DoDoes] [fill temptext] currently want a job, either full or part-time? <1> Yes or maybe, it depends <2> No [goto NLFCK2-C] <3> Has a job [goto ABSRSN] [blind] Don't know Refused ===>_ [goto LK] $d [alt 1] >RET1< Actualmente ¨quisiera [fill temptext] tener un empleo, ya sea de horario parcial o de horario completo? <1> S¡ o quiz s, depende <2> No [goto NLFCK2-C] <3> Tiene un empleo [goto ABSRSN] [blind] Don't know Refused ===>_ [goto LK] $end ------------------------------------------------------------------------------- $>DIS1< [indirect] [store < > in yourhshr] [store < > in youhmhr] [NIF R_P eq RESPLI then] [store in yourhshr] [store in youhmhr] [ELSEIF sex(R_P) is <2> then] [store in yourhshr] [store in youhmhr] [ELSE] [store in youhmhr] [store in yourhshr] [ENDIF] [store < > in temptext] [NIF R_P eq RESPLI AND curralt eq <1> then] [store in temptext] [ELSEIF curralt eq <1> then] [combine < > name(R_P) into temptext] [ENDIF] $d >DIS1< Does [fill yourhshr] disability prevent [fill youhmhr] from accepting any kind of work during the next six months? <1> Yes [goto NLFCK2-C] <2> No [blind] Don't know Refused ===>_ [goto DISCK1-C] $d [alt 1] >DIS1< ¨Le impide la incapacidad [fill temptext] aceptar cualquier tipo de trabajo durante los pr¢ximos seis meses? <1> S¡ [goto NLFCK2-C] <2> No [blind] Don't know Refused ===>_ [goto DISCK1-C] $end ------------------------------------------------------------------------------- $>DIS2< [indirect] [store < > in youhmhr] [store < > in temptext] [store < > in dodoes] [NIF R_P eq RESPLI then] [store in youhmhr] [store in temptext] [store in DoDoes] [If curralt eq <1> then store in temptext] [ELSEIF sex(R_P) is <2> then] [store in youhmhr] [store in DoDoes] [store name(R_P) in temptext] [ELSE] [store in youhmhr] [store in DoDoes] [store name(R_P) in temptext] [ENDIF] $d >DIS2< [fill DoDoes] [fill temptext] have a disability that prevents [fill youhmhr] from accepting any kind of work during the next six months? <1> Yes [goto NLFCK2-C] <2> No [blind] Don't know Refused ===>_ $d [alt 1] >DIS2< ¨Tiene [fill temptext] alguna incapacidad que le impida aceptar cualquier tipo de trabajo durante los pr¢ximos seis meses? <1> S¡ [goto NLFCK2-C] <2> No [blind] Don't know Refused ===>_ $end ------------------------------------------------------------------------------- COMMENT: 1) IF ONPATH ENTRY OF 4 OR 5 IN DWWNT GOTO JHCK1-C 2) IF ONPATH ENTRY OF 4 OR 5 IN LK GOTO DWCK1-C 3) IF ONPATH ENTRY OF 4 OR 5 IN LAY GOTO LK 4) IF ONPATH ENTRY OF 4 OR 5 IN ABS GOTO LAY 5) ALL OTHER GOTO ABS $>DISCK1-C< [store < > in DISCK1(R_P)] DON'T NEED TO CHECK OTHER POSSIBILITIES FOR OUT VARIABLE BECAUSE ONLY A 1 IS STORED AND SKIPPED [NIF DWWNTO(R_P) is <4> OR DWWNTO(R_P) is <5> then] [If onpath DWWNT:R_P then store <1> in DISCK1(R_P)] [If onpath DWWNT:R_P then goto JHCK1-C] [ENDIF] 2. [NIF LK(R_P) is <4> OR LK(R_P) is <5> then] [If onpath LK:R_P then store <2> in DISCK1(R_P)] [If onpath LK:R_P then goto DWCK1-C] [ENDIF] 3. [NIF LAY(R_P) is <4> OR LAY(R_P) is <5> then] [If onpath LAY:R_P then store <3> in DISCK1(R_P)] [If onpath LAY:R_P then goto LK] [ENDIF] 4. [NIF ABS(R_P) is <4> OR ABS(R_P) is <5> then] [If onpath ABS:R_P then store <4> in DISCK1(R_P)] [If onpath ABS:R_P then goto LAY] [ENDIF] 5. [store <5> in DISCK1(R_P)] [goto ABS] $end ------------------------------------------------------------------------------- $>ABS< [store < > in temptext] [NIF R_P eq RESPLI then] [store in temptext] [store in werewas] [If curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [store in werewas] [ENDIF] [store <0> in index] [convert BUSOT character to index integer] [store <0> in index4] [IF R_P eq index then store <1> in index4] THIS CHECKS FOR ANY OTHER MEMBERS WHO OWN/OPERATE A BUSINDESS & SKIPS ACCORDINGLY [store <0> in index] [store <0> in index2] [store <0> in index3] [store <0> in index5] [NIF BUSL1 isnt AND BUSL1 isnt then] [if onpath BUSL1 then convert BUSL1 character to index integer] [ENDIF] [NIF BUSL2 isnt AND BUSL2 isnt then] [If onpath BUSL2 then convert BUSL2 character to index2 integer] [ENDIF] [NIF BUSL3 isnt AND BUSL3 isnt then] [If onpath BUSL3 then convert BUSL3 character to index3 integer] [ENDIF] [NIF BUSL4 isnt AND BUSL4 isnt then] [If onpath BUSL4 then convert BUSL4 character to index5 integer] [ENDIF] [store < > in temp2] [NIF index4 eq <1> OR index eq R_P then] [combine < in addition to the business> < > into temp2] [If curralt eq <1> then combine < adem s del negocio> < > into temp2] [ELSEIF index2 eq R_P OR index3 eq R_P then] [combine < in addition to the business> < > into temp2] [If curralt eq <1> then combine < adem s del negocio> < > into temp2] [ELSEIF index5 eq R_P then] [combine < in addition to the business> < > into temp2] [If curralt eq <1> then combine < adem s del negocio> < > into temp2] [ENDIF] THE FOLLOWING IS USED FOR THE FILLLING OF RETIRED, DIABLED, ETC. [NIF curralt nq <1> then] [store <{3} Retired> in temp3] [store <{4} Disabled> in temp4] [store <{5} Unable to work> in temp5] [ELSE] [store <{3} Retirado(a)/jubilado(a)> in temp3] [store <{4} Incapacitado(a)> in temp4] [store <{5} No puede trabajar> in temp5] [ENDIF] [store <0> in index2] [store < > in xbad(1)] [store < > in xbad(2)] [store < > in xbad(3)] [NIF WK(R_P) is <3> OR WK(R_P) is <4> then] [If onpath WK:R_P then store <1> in index2] [ELSEIF WK(R_P) is <5> then] [If onpath WK:R_P then store <1> in index2] [ENDIF] [NIF index2 eq <1> then] [store < > in temp3] [store < > in temp4] [store < > in temp5] [store <3> in xbad(1)] [store <4> in xbad(2)] [store <5> in xbad(3)] [ENDIF] THIS CODE SETS-UP THE REFERENCE WEEK FILL IN THE VARIABLE "WHATWEEK". [store <0> in index] [store day-i in index] [CASE wkday1-c] [OF then] [subtract <1> from index] [OF then] [subtract <2> from index] [OF then] [subtract <3> from index] [OF then] [subtract <4> from index] [OF then] [subtract <5> from index] [OF then] [subtract <6> from index] [ENDCASE] [store in WHATWEEK] [store in swhatwk] ** SPD ** default last week $d >ABS< [fill whatweek],[fill temp2]did [fill temptext] have a job either full or part time? Include any job from which [fill temptext] [fill werewas] temporarily absent. <1> Yes [store <1> in ABSOT(R_P)] [goto ABSRSN] <2> No [store <2> in ABSOT(R_P)] [goto BUSCK3-C] [fill temp3] [fill temp4] [fill temp5] [blind] Don't know [store in ABSOT(R_P)] Refused [store in ABSOT(R_P)] <3> Retired [store <3> in ABSOT(R_P)] [goto RETCK4-C] <4> Disabled [store <4> in ABSOT(R_P)] [goto DISCK2-C] <5> Unable to work [store <5> in ABSOT(R_P)] [goto DISCK2-C] ===>_ [goto LAY] $d [alt 1] >ABS< [fill swhatwk],[fill temp2]¨ten¡a [fill temptext] un empleo, de horario parcial o de horario completo? Incluya cualquier empleo del cual [fill temptext] estaba ausente temporalmente/temporeramente. <1> S¡ [store <1> in ABSOT(R_P)] [goto ABSRSN] <2> No [store <2> in ABSOT(R_P)] [goto BUSCK3-C] [fill temp3] [fill temp4] [fill temp5] [blind] Don't know [store in ABSOT(R_P)] Refused [store in ABSOT(R_P)] <3> Retirado(a)/jubilado(a) [store <3> in ABSOT(R_P)] [goto RETCK4-C] <4> Incapacitado(a) [store <4> in ABSOT(R_P)] [goto DISCK2-C] <5> No puede trabajar [store <5> in ABSOT(R_P)] [goto DISCK2-C] ===>_ [goto LAY] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] $end ------------------------------------------------------------------------------- COMMENT: 1) IF THE CURRENT ROSTER POSITION EQUALS ANY OF THE VALUES IN BUSLST OR BUSOT THEN GOTO ABSRSN 2) ALL OTHERS GOTO LAY $>BUSCK3-C< [store < > in BUSCK3(R_P)] [store <0> in index] [convert BUSOT character to index integer] [NIF R_P eq index then] [store <1> in BUSCK3(R_P)] [goto ABSRSN] [ENDIF] THIS CHECKS FOR ANY OTHER MEMBERS WHO OWN/OPERATE A BUSINDESS & SKIPS ACCORDINGLY [store <0> in index] [store <0> in index2] [store <0> in index3] [store <0> in index4] [NIF BUSL1 isnt AND BUSL1 isnt then] [if onpath BUSL1 then convert BUSL1 character to index integer] [ENDIF] [NIF BUSL2 isnt AND BUSL2 isnt then] [If onpath BUSL2 then convert BUSL2 character to index2 integer] [ENDIF] [NIF BUSL3 isnt AND BUSL3 isnt then] [If onpath BUSL3 then convert BUSL3 character to index3 integer] [ENDIF] [NIF BUSL4 isnt AND BUSL4 isnt then] [If onpath BUSL4 then convert BUSL4 character to index4 integer] [ENDIF] [store < > in temp2] [NIF index eq R_P OR index2 eq R_P then] [store <1> in BUSCK3(R_P)] [goto ABSRSN] [ELSEIF index3 eq R_P OR index4 eq R_P then] [store <1> in BUSCK3(R_P)] [goto ABSRSN] [ELSE] [store <2> in BUSCK3(R_P)] [goto LAY] [ENDIF] $end ------------------------------------------------------------------------------- COMMENT: 1) IF ONPATH ENTRY IN DIS1 OR DIS2 GOTO LAY 2) IF ONPATH ENTRY OF 4 IN ABS GOTO DIS1 3) IF ONPATH ENTRY OF 5 IN ABS GOTO DIS2 4) ALL OTHERS GOTO RETCK4-C $>DISCK2-C< [store < > in DISCK2(R_P)] [If onpath DIS1:R_P then store <1> in DISCK2(R_P)] [If onpath DIS1:R_P then goto LAY] [If onpath DIS2:R_P then store <1> in DISCK2(R_P)] [If onpath DIS2:R_P then goto LAY] [store <0> in index] [If onpath ABS:R_P then store <1> in index] [NIF ABS(R_P) is <4> AND index eq <1> then] [store <2> in DISCK2(R_P)] [goto DIS1] [ELSEIF ABS(R_P) is <5> AND index eq <1> then] [store <3> in DISCK2(R_P)] [goto DIS2] [ENDIF] [store <4> in DISCK2(R_P)] $end ------------------------------------------------------------------------------ COMMENT: 1) IF AGERNG EQUALS 1,2,3,4 OR 9 GOTO LAY 2) ALL OTHERS GOTO RET1 $>RETCK4-C< [store < > in RETCK4(R_P)] [NIF AGERNG(R_P) ge <1> AND AGERNG(R_P) le <4> then] [store <1> in RETCK4(R_P)] [goto LAY] [ELSEIF AGERNG(R_P) eq <9> then] [store <1> in RETCK4(R_P)] [goto LAY] [ELSE] [store <2> in RETCK4(R_P)] [goto RET1] [ENDIF] $end ------------------------------------------------------------------------------- $>LAY< [store < > in werewas] [store < > in temptext] [NIF R_P eq RESPLI then] [store in werewas] [store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [store in werewas] [ENDIF] THE FOLLOWING IS USED FOR THE FILLLING OF RETIRED, DIABLED, ETC. [NIF curralt nq <1> then] [store <{3} Retired> in temp3] [store <{4} Disabled> in temp4] [store <{5} Unable to work> in temp5] [ELSE] [store <{3} Retirado(a)/jubilado(a)> in temp3] [store <{4} Incapacitado(a)> in temp4] [store <{5} No puede trabajar> in temp5] [ENDIF] [store <0> in index2] [store < > in xbad(1)] [store < > in xbad(2)] [store < > in xbad(3)] [NIF WK(R_P) is <3> OR WK(R_P) is <4> then] [If onpath WK:R_P then store <1> in index2] [ELSEIF WK(R_P) is <5> then] [If onpath WK:R_P then store <1> in index2] [ENDIF] [NIF ABS(R_P) is <3> OR ABS(R_P) is <4> then] [If onpath ABS:R_P then store <1> in index2] [ELSEIF ABS(R_P) is <5> then] [If onpath ABS:R_P then store <1> in index2] [ENDIF] [NIF index2 eq <1> then] [store < > in temp3] [store < > in temp4] [store < > in temp5] [store <3> in xbad(1)] [store <4> in xbad(2)] [store <5> in xbad(3)] [ENDIF] THIS CODE SETS-UP THE REFERENCE WEEK FILL IN THE VARIABLE "WHATWEEK". [store <0> in index] [store day-i in index] [CASE wkday1-c] [OF then] [subtract <1> from index] [OF then] [subtract <2> from index] [OF then] [subtract <3> from index] [OF then] [subtract <4> from index] [OF then] [subtract <5> from index] [OF then] [subtract <6> from index] [ENDCASE] [store in WHATWEEK] [store in swhatwk] ** SPD ** default last week $d >LAY< [fill whatweek], [fill werewas] [fill temptext] on layoff from a job? <1> Yes [goto LAYDT] <2> No [fill temp3] [fill temp4] [fill temp5] [blind] Don't know Refused <3> Retired [goto RETCK5-C] <4> Disabled [goto DISCK3-C] <5> Unable to work [goto DISCK3-C] ===>_ [goto LK] $d [alt 1] >LAY< [fill swhatwk], ¨estaba [fill temptext] separado(a) temporalmente/temporeramente (layoff) de su trabajo? <1> S¡ [goto LAYDT] <2> No [fill temp3] [fill temp4] [fill temp5] [blind] Don't know Refused <3> Retirado(a)/jubilado(a) [goto RETCK5-C] <4> Incapacitado(a) [goto DISCK3-C] <5> No puede trabajar [goto DISCK3-C] ===>_ [goto LK] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] $end ------------------------------------------------------------------------------- COMMENT: 1) IF ONPATH ENTRY IN DIS1 OR DIS2 GOTO LK 2) IF ONPATH ENTRY OF 4 IN LAY GOTO DIS1 3) IF ONPATH ENTRY OF 5 IN LAY GOTO DIS2 4) ALL OTHERS GOTO RETCK5-C $>DISCK3-C< [store < > in DISCK3(R_P)] [If onpath DIS1:R_P then store <1> in DISCK3(R_P)] [If onpath DIS1:R_P then goto LK] [if onpath DIS2:R_P then store <1> in DISCK3(R_P)] [if onpath DIS2:R_P then goto LK] [store <0> in index] [If onpath LAY:R_P then store <1> in index] [NIF LAY(R_P) is <4> AND index eq <1> then] [store <2> in DISCK3(R_P)] [goto DIS1] [ELSEIF LAY(R_P) is <5> AND index eq <1> then] [store <3> in DISCK3(R_P)] [goto DIS2] [ENDIF] [store <4> in DISCK3(R_P)] $end ------------------------------------------------------------------------------- COMMENT: 1) IF AGERNG EQUALS 1-4 OR 9 GOTO LK 2) ALL OTHERS GOTO RET1 $>RETCK5-C< [store < > in RETCK5(R_P)] [NIF AGERNG(R_P) ge <1> AND AGERNG(R_P) le <4> then] [store <1> in RETCK5(R_P)] [goto LK] [ELSEIF AGERNG(R_P) eq <9> then] [store <1> in RETCK5(R_P)] [goto LK] [ELSE] [store <2> in RETCK5(R_P)] [goto RET1] [ENDIF] $end ------------------------------------------------------------------------------- $>ABSRSN< [store < > in youheshe] [store < > in werewas] [NIF R_P eq RESPLI then] [store in youheshe] [store in werewas] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [store in werewas] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [store in werewas] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] [store <0> in index4] [NIF ABS(R_P) is <2> then] [If onpath ABS:R_P then store <1> in index4] [ENDIF] [NIF BUS is <1> then] [If onpath BUS then add <10> to index4] [ENDIF] [store <0> in index] [convert BUSOT character to index integer] [IF R_P eq index then add <100> to index4] THIS CHECKS FOR ANY OTHER MEMBERS WHO OWN/OPERATE A BUSINDESS & SKIPS ACCORDINGLY [store <0> in index] [store <0> in index2] [store <0> in index3] [store <0> in index5] [NIF BUSL1 isnt AND BUSL1 isnt then] [if onpath BUSL1 then convert BUSL1 character to index integer] [ENDIF] [NIF BUSL2 isnt AND BUSL2 isnt then] [If onpath BUSL2 then convert BUSL2 character to index2 integer] [ENDIF] [NIF BUSL3 isnt AND BUSL3 isnt then] [If onpath BUSL3 then convert BUSL3 character to index3 integer] [ENDIF] [NIF BUSL4 isnt AND BUSL4 isnt then] [If onpath BUSL4 then convert BUSL4 character to index5 integer] [ENDIF] [NIF index eq R_P OR index2 eq R_P then] [add <100> to index4] [ELSEIF index3 eq R_P OR index5 eq R_P then] [add <100> to index4] [ENDIF] [store <0> in xbad(1)] [store <0> in xbad(2)] [store <0> in xbad(3)] [NIF curralt nq <1> then] [store <{1} On layoff (temporary or indefinite)> in temptext] [store <{2} Slack work/business conditions> in temp2] [store <{3} Waiting for new job to begin> in temp3] [ELSE] [store <{1} Separaci¢n (temporal/temporera o indefinida) (layoff)> in temptext] [store <{2} Poco trabajo/actividades laborales> in temp2] [store <{3} Esperando empezar en un nuevo empleo> in temp3] [ENDIF] [NIF index4 eq <111> then] [store < > in temp2] [store < > in temp3] [store < > in temptext] [store <1> in xbad(1)] [store <2> in xbad(2)] [store <3> in xbad(3)] [ENDIF] THIS CODE SETS-UP THE REFERENCE WEEK FILL IN THE VARIABLE "WHATWEEK". [store <0> in index] [store day-i in index] [CASE wkday1-c] [OF then] [subtract <1> from index] [OF then] [subtract <2> from index] [OF then] [subtract <3> from index] [OF then] [subtract <4> from index] [OF then] [subtract <5> from index] [OF then] [subtract <6> from index] [ENDCASE] [store in WHATWEEK] [store in swhatwk] ** SPD ** default last week $d >ABSRSN< What was the main reason [fill youheshe] [fill werewas] absent from work [fill whatweek]? [fill temptext] [fill temp2] [fill temp3] <4> Vacation/personal days <5> Own illness/injury/medical problems <6> Child care problems <7> Other family/personal obligation <8> Maternity/paternity leave <9> Labor dispute <10> Weather affected job <11> School/training <12> Civic/military duty <13> Does not work in the business [goto LK] <14> Other (specify) [goto ABSPC] [blind] Don't know Refused <1> On layoff (temporary or indefinite) [goto LAYDT] <2> Slack work/business conditions [goto LAYDT] <3> Waiting for a new job to begin [goto LK] ===>__ [goto BUSCK4-C] $d [alt 1] >ABSRSN< ¨Cu l es la raz¢n principal por la cual [fill youheshe] estuvo ausente del trabajo [fill swhatwk]? [fill temptext] [fill temp2] [fill temp3] <4> Vacaciones/d¡as libres personales <5> Enfermedad propia/lesi¢n/problemas de salud <6> Cuidado de ni¤os <7> Otras obligaciones personales o de familia <8> D¡as libres por maternidad o paternidad <9> Conflicto laboral <10> Trabajo afectado por condiciones del tiempo <11> Educaci¢n/adiestramiento <12> Deberes civiles o militares <13> No trabaja en el negocio [goto LK] <14> Otra raz¢n (especifique) [goto ABSPC] [blind] Don't know Refused <1> Separaci¢n (temporal/temporera o indefinida) [goto LAYDT] <2> Poco trabajo/actividades laborales [goto LAYDT] <3> Esperando empezar en un nuevo empleo [goto LK] ===>__ [goto BUSCK4-C] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] $end ------------------------------------------------------------------------------- $>ABSPC< $display >ABSPC< ENTER VERBATIM RESPONSE ===>_________________________________________________________________ $edit [anychar] $end -------------------------------------------------------------------------------- COMMENT: 1) IF THE CURRENT ROSTER POSITION EQUALS ANY OF THE VALUES IN BUSLST OR BUSOT AND ONPATH ENTRY OF 2 IN ABS THEN PLUG ABSPDO EQUAL TO 1, MJOT EQUAL TO 2 AND GOTO HRUSL1 2) ALL OTHERS GOTO ABSPD $>BUSCK4-C< [store <0> in index4] [store < > in BUSCK4(R_P)] [NIF ABS(R_P) is <2> then] [If onpath ABS:R_P then store <1> in index4] [ENDIF] [store <0> in index] [convert BUSOT character to index integer] [NIF R_P eq index AND index4 eq <1> then] [store <1> in ABSPDO(R_P)] [store <2> in MJOT(R_P)] [store <1> in BUSCK4(R_P)] [goto HRUSL1] [ENDIF] THIS CHECKS FOR ANY OTHER MEMBERS WHO OWN/OPERATE A BUSINDESS & SKIPS ACCORDINGLY [store <0> in index] [store <0> in index2] [store <0> in index3] [store <0> in index5] [NIF BUSL1 isnt AND BUSL1 isnt then] [if onpath BUSL1 then convert BUSL1 character to index integer] [ENDIF] [NIF BUSL2 isnt AND BUSL2 isnt then] [If onpath BUSL2 then convert BUSL2 character to index2 integer] [ENDIF] [NIF BUSL3 isnt AND BUSL3 isnt then] [If onpath BUSL3 then convert BUSL3 character to index3 integer] [ENDIF] [NIF BUSL4 isnt AND BUSL4 isnt then] [If onpath BUSL4 then convert BUSL4 character to index5 integer] [ENDIF] [store < > in temp2] [NIF index eq R_P AND index4 eq <1> then] [store <1> in ABSPDO(R_P)] [store <2> in MJOT(R_P)] [store <1> in BUSCK4(R_P)] [goto HRUSL1] [ELSEIF index2 eq R_P AND index4 eq <1> then] [store <1> in ABSPDO(R_P)] [store <2> in MJOT(R_P)] [store <1> in BUSCK4(R_P)] [goto HRUSL1] [ELSEIF index3 eq R_P AND index4 eq <1> then] [store <1> in ABSPDO(R_P)] [store <2> in MJOT(R_P)] [store <1> in BUSCK4(R_P)] [goto HRUSL1] [ELSEIF index5 eq R_P AND index4 eq <1> then] [store <1> in ABSPDO(R_P)] [store <2> in MJOT(R_P)] [store <1> in BUSCK4(R_P)] [goto HRUSL1] [ENDIF] [store <2> in BUSCK4(R_P)] $end ------------------------------------------------------------------------------- $>ABSPD< [indirect] [store < > in youheshe] [store < > in areis] [store < > in yourhshr] [NIF R_P eq RESPLI then] [store in youheshe] [store in AreIs] [store in yourhshr] [if curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [store in AreIs] [store in yourhshr] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [store in AreIs] [store in yourhshr] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] THIS CODE SETS-UP THE REFERENCE WEEK FILL IN THE VARIABLE "WHATWEEK". [store <0> in index] [store day-i in index] [CASE wkday1-c] [OF then] [subtract <1> from index] [OF then] [subtract <2> from index] [OF then] [subtract <3> from index] [OF then] [subtract <4> from index] [OF then] [subtract <5> from index] [OF then] [subtract <6> from index] [ENDCASE] [store in whatwk2] [store in Swhatwk2] ** SPD ** default last week $d >ABSPD< [fill AreIs] [fill youheshe] being paid by [fill yourhshr] employer for any of the time off [fill whatwk2]? <1> Yes [store <1> in ABSPDO(R_P)] <2> No [store <2> in ABSPDO(R_P)] [blind] Don't Know [store in ABSPDO(R_P)] [goto MJ] Refused [store in ABSPDO(R_P)] [goto MJ] ===>_ $d [alt 1] >ABSPD< ¨Le paga su compa¤¡a por alguna parte del tiempo que [fill youheshe] estuvo ausente [fill swhatwk2]? <1> S¡ [store <1> in ABSPDO(R_P)] <2> No [store <2> in ABSPDO(R_P)] [blind] Don't Know [store in ABSPDO(R_P)] [goto MJ] Refused [store in ABSPDO(R_P)] [goto MJ] ===>_ $end ------------------------------------------------------------------------------- COMMENT: 1) IF HRACT1 AND HRACT2 EQ 0 THEN GOTO HRCK3-C 2) ALL OTHERS GOTO MJ $>ABSCK1-C< [store < > in ABSCK1(R_P)] [NIF HRACT1(R_P) is <0> and HRACT2(R_P) IS <0> then] [store <1> in ABSCK1(R_P)] [goto HRCK3-C] [ENDIF] [store <2> in ABSCK1(R_P)] $end ------------------------------------------------------------------------------- $>MJ< [store < > in temptext] [store < > in temp2] [NIF R_P eq RESPLI then] [store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [ENDIF] [store <0> in index] [convert BUSOT character to index integer] [store <0> in index4] [IF R_P eq index then store <1> in index4] THIS CHECKS FOR ANY OTHER MEMBERS WHO OWN/OPERATE A BUSINDESS & SKIPS ACCORDINGLY [store <0> in index] [store <0> in index2] [store <0> in index3] [store <0> in index5] [NIF BUSL1 isnt AND BUSL1 isnt then] [if onpath BUSL1 then convert BUSL1 character to index integer] [ENDIF] [NIF BUSL2 isnt AND BUSL2 isnt then] [If onpath BUSL2 then convert BUSL2 character to index2 integer] [ENDIF] [NIF BUSL3 isnt AND BUSL3 isnt then] [If onpath BUSL3 then convert BUSL3 character to index3 integer] [ENDIF] [NIF BUSL4 isnt AND BUSL4 isnt then] [If onpath BUSL4 then convert BUSL4 character to index5 integer] [ENDIF] [store in temp2] [store < > in temp3] [If curralt eq <1> then store in temp2] [If curralt eq <1> then store in temp3] [NIF index4 eq <1> OR index eq R_P then] [store in temp2] [If curralt eq <1> then store in temp2] [If curralt eq <1> then store in temp3] [ELSEIF index2 eq R_P OR index3 eq R_P then] [store in temp2] [If curralt eq <1> then store in temp2] [If curralt eq <1> then store in temp3] [ELSEIF index5 eq R_P then] [store in temp2] [If curralt eq <1> then store in temp2] [If curralt eq <1> then store in temp3] [ENDIF] THIS CODE SETS-UP THE REFERENCE WEEK FILL IN THE VARIABLE "WHATWEEK". [store <0> in index] [store day-i in index] [CASE wkday1-c] [OF then] [subtract <1> from index] [OF then] [subtract <2> from index] [OF then] [subtract <3> from index] [OF then] [subtract <4> from index] [OF then] [subtract <5> from index] [OF then] [subtract <6> from index] [ENDCASE] [store in WHATWEEK] [store in swhatwk] ** SPD ** default last week $d >MJ< [fill whatweek], did [fill temptext] have more than one [fill temp2], including part-time, evening or weekend work? [fill temp3] <1> Yes [store <1> in MJOT(R_P)] [goto MJNUM] <2> No [store <2> in MJOT(R_P)] [blind] Don't know [store in MJOT(R_P)] Refused [store in MJOT(R_P)] ===>_ [goto HRUSL1] $d [alt 1] >MJ< [fill swhatwk], ¨ten¡a [fill temptext] m s de un [fill temp2], incluyendo todo [fill temp3] en el que trabaje horario parcial, de noche o en fines de semana? <1> S¡ [store <1> in MJOT(R_P)] [goto MJNUM] <2> No [store <2> in MJOT(R_P)] [blind] Don't know [store in MJOT(R_P)] Refused [store in MJOT(R_P)] ===>_ [goto HRUSL1] $end ------------------------------------------------------------------------------- $>MJNUM< [indirect] [store < > in youheshe] [NIF R_P eq RESPLI then] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] [store <0> in index] [convert BUSOT character to index integer] [store <0> in index4] [IF R_P eq index then store <1> in index4] THIS CHECKS FOR ANY OTHER MEMBERS WHO OWN/OPERATE A BUSINDESS & SKIPS ACCORDINGLY [store <0> in index] [store <0> in index2] [store <0> in index3] [store <0> in index5] [NIF BUSL1 isnt AND BUSL1 isnt then] [if onpath BUSL1 then convert BUSL1 character to index integer] [ENDIF] [NIF BUSL2 isnt AND BUSL2 isnt then] [If onpath BUSL2 then convert BUSL2 character to index2 integer] [ENDIF] [NIF BUSL3 isnt AND BUSL3 isnt then] [If onpath BUSL3 then convert BUSL3 character to index3 integer] [ENDIF] [NIF BUSL4 isnt AND BUSL4 isnt then] [If onpath BUSL4 then convert BUSL4 character to index5 integer] [ENDIF] [store in temp2] [if curralt eq <1> then store in temp2] [NIF index4 eq <1> OR index eq R_P then] [store in temp2] [If curralt eq <1> then store in temp2] [ELSEIF index2 eq R_P OR index3 eq R_P then] [store in temp2] [If curralt eq <1> then store in temp2] [ELSEIF index5 eq R_P then] [store in temp2] [If curralt eq <1> then store in temp2] [ENDIF] $d >MJNUM< Altogether, how many [fill temp2] did [fill youheshe] have? <2> 2 jobs <3> 3 jobs <4> 4 or more jobs [blind] Don't Know Refused ===>_ $d [alt 1] >MJNUM< En total, ¨cu ntos [fill temp2] ten¡a [fill youheshe]? <2> 2 empleos <3> 3 empleos <4> 4 o m s empleos [blind] Don't Know Refused ===>_ $end ------------------------------------------------------------------------------- $>HRUSL1< SETS START TIMER FOR HOURS WORKED SERIES HRUSL1 - HRCK12-C [store <0> in sectim-i] [setsec sectim-i] [NIF HWstm(R_P) eq <0> AND lkHWstim(R_P) eq <0> then] [store sectim-i in HWstm(R_P)] [ENDIF] [store <1> in lkHWstim(R_P)] [store < > in yourhshr] [store < > in temptext] [store < > in dodoes] [store < > in youheshe] [store < > in temp4] [NIF R_P eq RESPLI then] [store in yourhshr] [store in temptext] [store in dodoes] [store in youheshe] [store in temp4] [If curralt eq <1> then store in temptext] [ELSEIF sex(R_P) is <2> then] [store in yourhshr] [store in dodoes] [store name(R_P) in temptext] [store in youheshe] [store in temp4] [ELSE] [store in yourhshr] [store in dodoes] [store name(R_P) in temptext] [store in youheshe] [store in temp4] [ENDIF] DON'T NEED TO TEST THE OUT VARIABLE FOR MJ BECAUSE WE ONLY PLUG MJOT WITH 2 AND SKIP. THE ONLY WAY THAT MJOT COULD BE A 1 IS IF THEY ACTUALLY WENT TO MJ [store in temp2] [store < > in temp3] [store < > in temp5] [store < > in temp6] [If curralt eq <1> then store in temp6] [NIF MJ(R_P) is <1> AND curralt nq <1> then] [If onpath MJ:R_P then store

in temp2] [If onpath MJ:R_P then combine < > youheshe < usually> into temp3] [if onpath MJ:R_P then combine temp4 < the most hours.> into temp5] [ELSEIF MJ(R_P) is <1> then] [If onpath MJ:R_P then store in temp6] [ENDIF] $d >HRUSL1< How many hours per week [fill dodoes] [fill temptext] USUALLY work at [fill yourhshr] [fill temp2] [fill temp3] [fill temp5] ENTER NUMBER OF HOURS <00-99> Hours each week Hours vary each week [blind] Don't Know Refused ===>__ $d [alt 1] >HRUSL1< En su [fill temp6], ¨cu ntas horas a la semana trabaja [fill temptext] REGULARMENTE? ENTER NUMBER OF HOURS <00-99> Horas por semana Var¡an las horas [blind] Don't Know Refused ===>__ $end ------------------------------------------------------------------------------- COMMENT: 1) IF ONPATH ENTRY IF 1 IN MJ GOTO HRUSL2 2) ALL OTHERS GOTO HRUSLT-C $>HRCK1-C< [store < > in HRCK1(R_P)] DON'T NEED TO TEST THE OUT VARIABLE FOR MJ BECAUSE WE ONLY PLUG MJOT WITH 2 AND SKIP. THE ONLY WAY THAT MJOT COULD BE A 1 IS IF THEY ACTUALLY WENT TO MJ [NIF MJ(R_P) is <1> then] [if onpath MJ:R_P then store <1> in HRCK1(R_P)] [if onpath MJ:R_P then goto HRUSL2] [ENDIF] [store <2> in HRCK1(R_P)] [goto HRUSLT-C] $end ------------------------------------------------------------------------------- $>HRUSL2< [store < > in yourhshr] [store < > in youheshe] [store < > in dodoes] [NIF R_P eq RESPLI then] [store in yourhshr] [store in youheshe] [store in dodoes] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [store in dodoes] [store in yourhshr] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [store in dodoes] [store in yourhshr] [if curralt eq <1> then store <‚l> in youheshe] [ENDIF] [store in temp2] [store < > in temp3] [If curralt eq <1> then store in temp3] [store <0> in index] [NIF MJNUM(R_P) is <3> OR MJNUM(R_P) is <4> then] [if onpath MJNUM:R_P then store <1> in index] [ENDIF] [NIF index eq <1> AND curralt nq <1> then] [store in temp2] [ELSEIF index eq <1> then] [store in temp3] [ENDIF] $d [no erase] >HRUSL2< How many hours per week [fill dodoes] [fill youheshe] USUALLY work at [fill yourhshr] other [fill temp2]? ENTER NUMBER OF HOURS <00-99> Hours each week Hours vary each week [blind] Don't Know Refused ===>__ $d [alt 1] [no erase] >HRUSL2< En [fill temp3], ¨cu ntas horas a la semana trabaja [fill youheshe] REGULARMENTE? ENTER NUMBER OF HOURS <00-99> Hours each week Var¡an las horas [blind] Don't Know Refused ===>__ $end ------------------------------------------------------------------------------- COMMENT: IF ONPATH ENTRY OF D OR R IN BOTH HRUSL1 AND HRUSL2 STORE D IN HRUSLT AND GOTO HRCK2-C IF ONPATH ENTRY OF V IN BOTH HRUSL1 AND HRUSL2 STORE V IN HRUSLT AND GOTO HRCK2-C IF ONPATH ENTRY OF D OR R IN HRUSL1 AND ONPATH ENTRY OF V IN HRUSL2 THEN STORE V IN HRUSLT AND GOTO HRCK2-C IF ONPATH ENTRY OF D OR R IN HRUSL2 AND ONPATH ENTRY OF V IN HRUSL1 THEN STORE V IN HRUSLT AND GOTO HRCK2-C IF ONPATH ENTRY OF V IN HRUSL1 AND NO ONPATH ENTRY IN HRUSL2 STORE V IN HRUSLT AND GOTO HRCK2-C IF ONPATH ENTRY OF D OR R IN HRUSL1 AND NO ONPATH ENTRY IN HRUSL2 THEN STORE D IN HRUSLT AND GOTO HRCK2-C IF ONPATH ENTRY OTHER THAN D,R OR V IN HRUSL2 AND ONPATH ENTRY OF D,R OR V IN HRUSL1 STORE HRUSL2 IN HRUSLT GOTO HRCK2-C IF ONPATH ENRY OTHER THAN D, R, OR V IN HRUSL1 AND ONPATH ENRY OF D,R, OR V IN HRUSL2 STORE HRUSL1 IN HRUSLT GOTO HRCK2-C IF ONPATH ENTRY OTHER THAN D,R OR V IN HRUSL1 AND NO ONPATH ENTRY IN HRUSL2 STORE HRUSL1 IN HRUSLT GOTO HRCK2-C IF ONPATH ENTRY OTHER THAN D,R OR V IN HRUSL1 AND HRUSL2 ADD HRUSL1 AND HRUSL2 AND STORE IN HRUSLT GOTO HRCK2-C $>HRUSLT-C< [store < > in HRUSLT(R_P)] [store <0> in HRUSL-i(R_P)] [store <0> in index] [store <0> in index2] [NIF HRUSL1(R_P) is OR HRUSL1(R_P) is then] [If onpath HRUSL1:R_P then store <1> in index] [ELSEIF HRUSL1(R_P) is then] [If onpath HRUSL1:R_P then store <2> in index] [ELSE] [if onpath HRUSL1:R_P then store <3> in index] [ENDIF] [NIF HRUSL2(R_P) is OR HRUSL2(R_P) is then] [If onpath HRUSL2:R_P then add <10> to index] [ELSEIF HRUSL2(R_P) is then] [If onpath HRUSL2:R_P then add <20> to index] [ELSE] [if onpath HRUSL2:R_P then add <30> to index] [ENDIF] [NIF index eq <11> then] [store in HRUSLT(R_P)] both D or R [goto HRCK2-C] [ELSEIF index eq <22> then] [store in HRUSLT(R_P)] both a V [goto HRCK2-C] [ELSEIF index eq <21> OR index eq <12> then] one a D and one a V [store in HRUSLT(R_P)] [goto HRCK2-C] [ELSEIF index eq <2> then] v in one and other notonpath [store in HRUSLT(R_P)] [goto HRCK2-C] [ELSEIF index eq <1> then] d,r in one & other notonpath [store in HRUSLT(R_P)] [goto HRCK2-C] [ELSEIF index eq <31> OR index eq <32> then] D,R OR V IN HRUSL1 AND ENTRY IN HRUSL2 [store HRUSL2(R_P) in HRUSLT(R_P)] [goto HRCK2-C] [ELSEIF index eq <13> OR index eq <23> then] D,R OR V IN HRUSL2 AND ENTRY IN HRUSL1 [store HRUSL1(R_P) in HRUSLT(R_P)] [goto HRCK2-C] [ELSEIF index eq <3> then] ENTRY IN HRUSL1 AND HRUSL2 NO ONPATH [store HRUSL1(R_P) in HRUSLT(R_P)] [goto HRCK2-C] [ELSE] [if onpath HRUSL1:R_P then convert HRUSL1(R_P) character to HRUSL-i(R_P) integer] [If onpath HRUSL2:R_P then convert HRUSL2(R_P) character to index2 integer] [add index2 to HRUSL-i(R_P)] [convert HRUSL-i(R_P) integer to HRUSLT(R_P) character] [goto HRCK2-C] [ENDIF] $end ------------------------------------------------------------------------------- COMMENT: 1) IF ONPATH ENTRY OF 1 IN MJ AND ONPATH ENTRY OF D,R OR V IN HRUSL1 AND ONPATH ENTRY OF D,R,V OR 0-34 IN HRUSL2 GOTO HRFTPT 2) IF ONPATH ENTRY OF 1 IN MJ AND ONPATH ENTRY OF D,R OR V IN HRUSL2 AND ONPATH ENTRY OF D,R,V OR 0-34 IN HRUSL1 GOTO HRFTPT 3) IF ENTRY OF 2, D OR R IN MJOT AND ONPATH ENTRY OF D,R OR V IN (CHANGED SEP 95) HRUSL1 GOTO HRFTPT 4) IF ONPATH ENTRY OF 1 IN BUS1 AND ONPATH ENTRY OF D,R OR V IN HRUSL1 THEN GOTO HRFTPT 5) ALL OTHERS GOTO HRCK3-C $>HRCK2-C< [store < > in HRCK2(R_P)] [store <0> in index] [NIF MJ(R_P) is <1> then] [If onpath MJ:R_P then store <1> in index] [ENDIF] [store <0> in index2] [NIF HRUSL1(R_P) is OR HRUSL1(R_P) is then] [If onpath HRUSL1:R_P then store <1> in index2] [ELSEIF HRUSL1(R_P) is then] [If onpath HRUSL1:R_P then store <1> in index2] [ENDIF] [store <0> in index3] [store <0> in index6] [NIF HRUSL2(R_P) is OR HRUSL2(R_P) is then] [If onpath HRUSL2:R_P then store <1> in index3] [If onpath HRUSL2:R_P then store <1> in index6] [ELSEIF HRUSL2(R_P) is then] [If onpath HRUSL2:R_P then store <1> in index3] [If onpath HRUSL2:R_P then store <1> in index6] [ENDIF] [store <0> in index5] [NIF index3 eq <0> then] [If onpath HRUSL2:R_P then convert HRUSL2(R_P) character to index5 integer] [ENDIF] [NIF index5 ge <0> AND index5 le <34> then] [store <1> in index3] [ENDIF] 1. [NIF index2 eq <1> AND index3 eq <1> then] [if index eq <1> then store <1> in HRCK2(R_P)] [if index eq <1> then goto HRFTPT] [ENDIF] [store <0> in index4] [NIF index2 eq <0> then] [If onpath HRUSL1:R_P then convert HRUSL1(R_P) character to index4 integer] [ENDIF] [NIF index4 ge <0> AND index4 le <34> then] [store <1> in index2] [ENDIF] 2. [NIF index eq <1> AND index2 eq <1> then] [If index6 eq <1> then store <2> in HRCK2(R_P)] [If index6 eq <1> then goto HRFTPT] [ENDIF] [store <0> in index2] [NIF HRUSL1(R_P) is OR HRUSL1(R_P) is then] [If onpath HRUSL1:R_P then store <1> in index2] [ELSEIF HRUSL1(R_P) is then] [If onpath HRUSL1:R_P then store <1> in index2] [ENDIF] 3. [NIF MJOT(R_P) isnt <1> AND index2 eq <1> then] (CHANGED SEP 95) [store <3> in HRCK2(R_P)] [goto HRFTPT] [ENDIF] [store <0> in index] [NIF BUS1(R_P) is <1> then] [If onpath BUS1:R_P then store <1> in index] [ENDIF] 4. [NIF index eq <1> and index2 eq <1> then] [store <4> in HRCK2(R_P)] [goto HRFTPT] [ENDIF] 5. [store <5> in HRCK2(R_P)] [goto HRCK3-C] $end ------------------------------------------------------------------------------ $>HRFTPT< [store < > in dodoes] [store < > in youheshe] [store < > in temp2] [store < > in yourhshr] [NIF RESPLI eq R_P then] [store in yourhshr] [store in DoDoes] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in yourhshr] [store in DoDoes] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSE] [store in yourhshr] [store in DoDoes] [store in youheshe] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] [combine < > yourhshr < job> into temp2] [If curralt eq <1> then store in temp2] [store <0> in index] [NIF BUS1(R_P) is <1> AND relflg(R_P) eq <1> then] [If onpath BUS1:R_P then store <1> in index] [ENDIF] [NIF index eq <1> AND curralt nq <1> then] [store in temp2] [ELSEIF index eq <1> then] [store in temp2] [ENDIF] [NIF curralt nq <1> then] [if onpath MJNUM:R_P then combine < > yourhshr < jobs combined> into temp2] [ELSE] [If onpath MJNUM:R_P then store in temp2] [ENDIF] $d >HRFTPT< [fill DoDoes] [fill youheshe] usually work 35 hours or more per week [fill temp2]? <1> Yes <2> No <3> Hours vary [blind] Don't know Refused ===>_ $d [alt 1] >HRFTPT< ¨Trabaja [fill youheshe] NORMALMENTE 35 horas o m s a la semana [fill temp2]? <1> S¡ <2> No <3> Var¡an las horas [blind] Don't know Refused ===>_ $end ------------------------------------------------------------------------------- COMMENT: 1) IF ENTRY OF 1 IN ABSOT OR (ENTRY OF 2 IN ABS AND THE CURRENT R_P EQUALS BUSLST OR BUSOT) THEN GOTO HRCK8 2) IF ONPATH ENTRY OF 3 IN RET1 GOTO HRCK8 3) IF ONPATH ENTRY OF 2, D OR R IN BUS2 THEN GOTO HRACT1 (ADDED IN JANUARY) 4) IF ENTRY IN HRUSLT IS 0-34 HOURS GOTO HRCK4-C 5) IF ENTRY IN HRUSLT IS 35+ GOTO HROFCK 6) ALL OTHERS GOTO HRCK4-C $>HRCK3-C< [store < > in HRCK3(R_P)] [NIF ABSOT(R_P) is <1> then] [store <1> in HRCK3(R_P)] [goto HRCK8] [ENDIF] [store <0> in index] [convert BUSOT character to index integer] [store <0> in index4] [IF R_P eq index then store <1> in index4] THIS CHECKS FOR ANY OTHER MEMBERS WHO OWN/OPERATE A BUSINDESS & SKIPS ACCORDINGLY [store <0> in index] [store <0> in index2] [store <0> in index3] [store <0> in index5] [NIF BUSL1 isnt AND BUSL1 isnt then] [if onpath BUSL1 then convert BUSL1 character to index integer] [ENDIF] [NIF BUSL2 isnt AND BUSL2 isnt then] [If onpath BUSL2 then convert BUSL2 character to index2 integer] [ENDIF] [NIF BUSL3 isnt AND BUSL3 isnt then] [If onpath BUSL3 then convert BUSL3 character to index3 integer] [ENDIF] [NIF BUSL4 isnt AND BUSL4 isnt then] [If onpath BUSL4 then convert BUSL4 character to index5 integer] [ENDIF] [NIF BUS is <1> AND index eq R_P then] [If onpath BUS then store <1> in index4] [ELSEIF BUS is <1> AND index2 eq R_P then] [if onpath BUS then store <1> in index4] [ELSEIF BUS is <1> AND index3 eq R_P then] [if onpath BUS then store <1> in index4] [ELSEIF BUS is <1> AND index5 eq R_P then] [if onpath BUS then store <1> in index4] [ENDIF] BETTER TO USE ABS THEN ABSOT BECAUSE WE ONLY PLUG ABSOT WITH A ONE. [NIF index4 eq <1> AND ABS(R_P) is <2> then] [If onpath ABS:R_P then store <1> in HRCK3(R_P)] [If onpath ABS:R_P then goto HRCK8] [ENDIF] [NIF RET1(R_P) is <3> then] [If onpath RET1:R_P then store <2> in HRCK3(R_P)] [If onpath RET1:R_P then goto HRCK8] [ENDIF] ADDED IN JANUARY [NIF BUS2(R_P) isnt <1> then] [If onpath BUS2:R_P then store <3> in HRCK3(R_P)] [If onpath BUS2:R_P then goto HRACT1] [ENDIF] [If HRUSLT(R_P) isnt < > then convert HRUSLT(R_P) character to HRUSL-i(R_P) integer] [NIF HRUSL-i(R_P) le <34> then] [store <4> in HRCK3(R_P)] [goto HRCK4-C] [ELSEIF HRUSL-i(R_P) gt <34> then] [store <5> in HRCK3(R_P)] [goto HROFCK] CHANGED APR 95 [ENDIF] [store <6> in HRCK3(R_P)] $end ------------------------------------------------------------------------------- COMMENT: 1) IF ONPATH ENTRY OF 1, D, R OR V IN HRFTPT THEN GOTO HRACT1 2) IF ENTRY of 2, D OR R IN BUS2 THEN GOTO HROFCK 3) IF HRUSLT IS 1-34 THEN GOTO HRWANT 4) IF ONPATH ENTRY OF 2 IN HRFTPT THEN GOTO HRWANT 5) ALL OTHERS GOTO HRACT1 $>HRCK4-C< [store < > in HRCK4(R_P)] [NIF HRFTPT(R_P) isnt <2> then] [If onpath HRFTPT:R_P then store <1> in HRCK4(R_P)] [If onpath HRFTPT:R_P then goto HRACT1] [ENDIF] ONLY PLUG 1 in BUS2OT [NIF BUS2(R_P) is OR BUS2(R_P) is then] [If onpath BUS2:R_P then store <2> in HRCK4(R_P)] [If onpath BUS2:R_P then goto HROFCK] CHANGED APR 95 [ELSEIF BUS2(R_P) is <2> then] [If onpath BUS2:R_P then store <2> in HRCK4(R_P)] [If onpath BUS2:R_P then goto HROFCK] CHANGED APR 95 [ENDIF] [If HRUSLT(R_P) isnt < > then convert HRUSLT(R_P) character to HRUSL-i(R_P) integer] [NIF HRUSL-i(R_P) ge <1> AND HRUSL-i(R_P) le <34> then] [store <3> in HRCK4(R_P)] [goto HRWANT] [ELSEIF HRUSLT(R_P) isnt AND HRUSLT(R_P) isnt then] [store <3> in HRCK4(R_P)] [goto HRWANT] [ENDIF] [NIF HRFTPT(R_P) is <2> then] [If onpath HRFTPT:R_P then store <4> in HRCK4(R_P)] [If onpath HRFTPT:R_P then goto HRWANT] [ENDIF] [store <5> in HRCK4(R_P)] [goto HRACT1] $end ------------------------------------------------------------------------------- $>HRWANT< [store < > in dodoes] [store < > in temptext] [NIF RESPLI eq R_P then] [store in DoDoes] [store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [store in DoDoes] [ENDIF] CHANGED SKIP APR 95 $d >HRWANT< [fill DoDoes] [fill temptext] want to work a full-time workweek of 35 hours or more per week? <1> Yes [goto HRRSN1] <2> No [goto HRRSN2] <3> Regular hours are full-time [blind] Don't know Refused ===>_ [goto HROFCK] $d [alt 1] >HRWANT< ¨Quisiera [fill temptext] trabajar una semana laboral de horario completo, de 35 horas o m s por semana? <1> S¡ [goto HRRSN1] <2> No [goto HRRSN2] <3> Horas regulares son de horario completo [blind] Don't know Refused ===>_ [goto HROFCK] $end ------------------------------------------------------------------------------- $>HRRSN1< [store < > in temptext] [NIF RESPLI eq R_P then] [store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [combine name(R_P) <'s> into temptext] [If curralt eq <1> then combine < > name(R_P) into temptext] [ENDIF] CHANGED SKIP APR 95 $d >HRRSN1< Some people work part time because they cannot find full-time work or because business is poor. Others work part time because of family obligations or other personal reasons. What is [fill temptext] MAIN reason for working part time? (PROBE IF NECESSARY: What is [fill temptext] main reason for working PART TIME instead of FULL TIME?) <1> Slack work/business conditions <2> Could only find part-time work <3> Seasonal work <4> Child care problems <5> Other family/personal obligations <6> Health/medical limitations <7> School/training <8> Retired/Social Security limit on earnings <9> Full-time workweek is less than 35 hours <10> Other - specify [goto HRSPC1] [blind] Don't know Refused ===>__ [goto HROFCK] $d [alt 1] >HRRSN1< Hay personas que trabajan horario parcial porque no consiguen trabajo de horario completo, o porque hay poco trabajo. Otras trabajan horario parcial porque deben cumplir con obligaciones de familia o por otras razones personales. ¨Cu l es la raz¢n PRINCIPAL por la que [fill temptext] trabaja horario parcial? (PROBE IF NECESSARY: ¨Cu l es la raz¢n PRINCIPAL por la que [fill temptext] trabaja HORARIO PARCIAL en vez de HORARIO COMPLETO?) <1> Poco trabajo/actividades laborales <2> S¢lo pudo conseguir trabajo de horario parcial <3> Trabajo de temporada <4> Cuidado de ni¤os <5> Otras obligaciones personales o de familia <6> Restricciones m‚dicas/de salud <7> Educaci¢n/adiestramiento <8> Retirado(a)/jubilado(a) o ingresos limitados por el Seguro Social <9> Semana laboral de horario completo es de menos de 35 horas <10> Otra raz¢n (especifique) [goto HRSPC1] [blind] Don't know Refused ===>__ [goto HROFCK] $end ------------------------------------------------------------------------------- $>HRSPC1< CHANGED SKIP APR 95 $display >HRSPC1< ENTER VERBATIM RESPONSE ===>_________________________________________________________________ [goto HROFCK] $edit [anychar] $end -------------------------------------------------------------------------------- $>HRRSN2< [indirect] [store < > in youheshe] [store < > in dodoes] [NIF R_P eq RESPLI then] [store in dodoes] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [store in dodoes] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [store in dodoes] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] CHANGED SKIP APR 95 $d >HRRSN2< What is the main reason [fill youheshe] [fill dodoes] not want to work full time? <1> Child care problems <2> Other family/personal obligations <3> Health/medical limitations <4> School/training <5> Retired/Social Security limit on earnings <6> Full time workweek less than 35 hours <7> Other [goto HRSPC2] [blind] Don't know Refused ===>_ [goto HROFCK] $d [alt 1] >HRRSN2< ¨Cu l es la raz¢n principal por la que [fill youheshe] no quiere trabajar horario completo? <1> Cuidado de ni¤os <2> Otras obligaciones personales o de familia <3> Restricciones m‚dicas/de salud <4> Educaci¢n/adiestramiento <5> Retirado(a)/jubilado(a) o ingresos limitados por el Seguro Social <6> Semana laboral de horario completo es de menos de 35 horas <7> Otra raz¢n (especifique) [goto HRSPC2] [blind] Don't know Refused ===>_ [goto HROFCK] $end ------------------------------------------------------------------------------- $>HRSPC2< $display >HRSPC2< ENTER VERBATIM RESPONSE ===>_________________________________________________________________ $edit [anychar] $end -------------------------------------------------------------------------------- $>HROFCK< ADDED APR 95 [NIF HRFTPT(R_P) is <2> then] [if onpath HRFTPT:R_P then goto HRACT1] [ENDIF] $end -------------------------------------------------------------------------------- $>HROFF1< [store < > in yourhshr] [store < > in temptext] [store < > in temp2] [store < > in youheshe] [NIF R_P eq RESPLI then] [store in yourhshr] [store in temptext] [store in youheshe] [If curralt eq <1> then store in youheshe] [If curralt eq <1> then store in temptext] [ELSEIF Sex(R_P) is <2> then] [store in yourhshr] [store name(R_P) in temptext] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSE] [store in yourhshr] [store name(R_P) in temptext] [store in youheshe] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] DON'T NEED TO TEST THE OUT VARIABLE FOR MJ BECAUSE WE ONLY PLUG MJOT WITH 2 AND SKIP. THE ONLY WAY THAT MJOT COULD BE A 1 IS IF THEY ACTUALLY WENT TO MJ [store in temp2] [store < > in temp3] [If curralt eq <1> then store <,> in temp2] [If curralt eq <1> then store in temp3] [NIF MJ(R_P) is <1> AND curralt nq <1> then] [If onpath MJ:R_P then combine yourhshr < MAIN job> into temp2] [ELSEIF MJ(R_P) is <1> then] [If onpath MJ:R_P then store < de su empleo> in temp2] [If onpath MJ:R_P then store in temp3] [ENDIF] [If curralt nq <1> then store < > in temp3] THIS CODE SETS-UP THE REFERENCE WEEK FILL IN THE VARIABLE "WHATWEEK". [store <0> in index] [store day-i in index] [CASE wkday1-c] [OF then] [subtract <1> from index] [OF then] [subtract <2> from index] [OF then] [subtract <3> from index] [OF then] [subtract <4> from index] [OF then] [subtract <5> from index] [OF then] [subtract <6> from index] [ENDCASE] [store in WHATWEEK] [store in swhatwk] ** SPD ** default last week $d >HROFF1< Now I have some questions about the exact number of hours [fill temptext] worked [fill whatweek]. [fill whatweek], did [fill youheshe] lose or take off any hours from [fill temp2], for ANY reason such as illness, slack work, vacation, or holiday? [fill temp3] <1> Yes [goto HROFF2] <2> No [blind] Don't know Refused ===>_ [goto HROT1] $d [alt 1] >HROFF1< Ahora tengo algunas preguntas sobre el n£mero exacto de horas que [fill temptext] trabaj¢ [fill swhatwk]. [fill swhatwk], ¨perdi¢ [fill youheshe] algunas horas de trabajo o pidi¢ horas libres[fill temp2] [fill temp3] ALGUNA raz¢n como enfermedad, poco trabajo, vacaciones o d¡as festivos/feriados? <1> S¡ [goto HROFF2] <2> No [blind] Don't know Refused ===>_ [goto HROT1] $end ------------------------------------------------------------------------------- $>HROFF2< [indirect] [store < > in temptext] [NIF R_P eq RESPLI then] [store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [ENDIF] $d [no erase] >HROFF2< How many hours did [fill temptext] take off? ENTER NUMBER OF HOURS [blind] Don't know Refused ===>[N]__ $d [alt 1] [no erase] >HROFF2< ¨Cu ntas horas tom¢ [fill temptext] libres? N£mero de horas [blind] Don't know Refused ===>[N]__ $edit [numeric] $end ------------------------------------------------------------------------------- $>HROT1< [store < > in youheshe] [store < > in temptext] [store < > in yourhshr] [store < > in dodoes] [store < > in temp2] [NIF R_P eq RESPLI then] [store in yourhshr] [store in dodoes] [store in temptext] [store in youheshe] [if curralt eq <1> then store in temptext] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [store name(R_P) in temptext] [store in dodoes] [store in yourhshr] [ELSE] [store in youheshe] [store in yourhshr] [store name(R_P) in temptext] [store in dodoes] [ENDIF] DON'T NEED TO TEST THE OUT VARIABLE FOR MJ BECAUSE WE ONLY PLUG MJOT WITH 2 AND SKIP. THE ONLY WAY THAT MJOT COULD BE A 1 IS IF THEY ACTUALLY WENT TO MJ [NIF MJ(R_P) is <1> AND curralt nq <1> then] [if onpath MJ:R_P then combine < at> < > yourhshr < MAIN job> < > into temp2] [ELSEIF MJ(R_P) is <1> then] [If onpath MJ:R_P then store in temp2] [ENDIF] THIS CODE SETS-UP THE REFERENCE WEEK FILL IN THE VARIABLE "WHATWEEK". [store <0> in index] [store day-i in index] [CASE wkday1-c] [OF then] [subtract <1> from index] [OF then] [subtract <2> from index] [OF then] [subtract <3> from index] [OF then] [subtract <4> from index] [OF then] [subtract <5> from index] [OF then] [subtract <6> from index] [ENDCASE] [store in WHATWEEK] [store in swhatwk] ** SPD ** default last week $d >HROT1< [fill whatweek], did [fill temptext] work any overtime or extra hours[fill temp2]that [fill youheshe] [fill dodoes] not usually work? <1> Yes [goto HROT2] <2> No [blind] Don't know Refused ===>_ [goto HRACT1] $d [alt 1] >HROT1< [fill swhatwk], ¨trabaj¢ [fill temptext] alg£n tiempo extra u horas EXTRAS [fill temp2] que NORMALMENTE no trabaja? <1> S¡ [goto HROT2] <2> No [blind] Don't know Refused ===>_ [goto HRACT1] $end ------------------------------------------------------------------------------- $>HROT2< [indirect] [store < > in youheshe] [NIF R_P eq RESPLI then] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] $d [no erase] >HROT2< How many ADDITIONAL hours did [fill youheshe] work? ENTER NUMBER OF HOURS [Blind] Don't know Refused ===>[N]__ $d [alt 1] [no erase] >HROT2< ¨Cu ntas horas EXTRAS trabaj¢ [fill youheshe]? N£mero de horas [Blind] Don't know Refused ===>[N]__ $edit [numeric] $end ------------------------------------------------------------------------------- $>HRACT1< [store < > in youheshe] [store < > in yourhshr] [NIF R_P eq RESPLI then] [store in yourhshr] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in yourhshr] [store in youheshe] [if curralt eq <1> then store in youheshe] [ELSE] [store in yourhshr] [store in youheshe] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] DON'T NEED TO TEST THE OUT VARIABLE FOR MJ BECAUSE WE ONLY PLUG MJOT WITH 2 AND SKIP. THE ONLY WAY THAT MJOT COULD BE A 1 IS IF THEY ACTUALLY WENT TO MJ [store <0> in xbad(1)] (IF MJ IS 1 THEN SHOULD BE ALLOWED TO ENTER 00) [store in temp2] [If curralt eq <1> then store in temp2] [NIF MJ(R_P) is <1> AND curralt nq <1> then] [If onpath MJ:R_P then store
in temp2] [If onpath MJ:R_P then store < > in xbad(1)] [ELSEIF MJ(R_P) is <1> then] [If onpath MJ:R_P then store < PRINCIPAL?> in temp2] [If onpath MJ:R_P then store < > in xbad(1)] [ENDIF] THIS CODE SETS-UP THE REFERENCE WEEK FILL IN THE VARIABLE "WHATWEEK". [store <0> in index] [store day-i in index] [CASE wkday1-c] [OF then] [subtract <1> from index] [OF then] [subtract <2> from index] [OF then] [subtract <3> from index] [OF then] [subtract <4> from index] [OF then] [subtract <5> from index] [OF then] [subtract <6> from index] [ENDCASE] [store in WHATWEEK] [store in swhatwk] ** SPD ** default last week [store whatweek in temp3] [If curralt eq <1> then store swhatwk in temp3] [NIF curralt nq <1> then] [If onpath HROFF1:R_P then combine < > whatweek into temp3] [ELSE] [If onpath HROFF1:R_P then combine < > swhatwk into temp3] [ENDIF] [store <{01-99}> in temp4] [If xbad(1) is < > then store <{00-99}> in temp4] $d >HRACT1< [fill temp3], how many hours did [fill youheshe] ACTUALLY work at [fill yourhshr] [fill temp2] ENTER NUMBER OF HOURS [fill temp4] [blind] <00-99> Don't know Refused ===>__ $d [alt 1] >HRACT1< [fill temp3], ¨cu ntas horas trabaj¢ [fill youheshe] en su empleo[fill temp2] N£mero de horas [fill temp4] [blind] <00-99> Don't know Refused ===>__ $edit [notequal xbad(1)] $end ------------------------------------------------------------------------------- COMMENT: 1) IF ONPATH ENTRY OF 1 IN MJOT GOTO HRACT2 2) ALL OTHERS GOTO HRCK6-C $>HRCK5-C< [store < > in HRCK5(R_P)] DON'T NEED TO TEST THE OUT VARIABLE FOR MJ BECAUSE WE ONLY PLUG MJOT WITH 2 AND SKIP. THE ONLY WAY THAT MJOT COULD BE A 1 IS IF THEY ACTUALLY WENT TO MJ [NIF MJ(R_P) is <1> then] [if onpath MJ:R_P then store <1> in HRCK5(R_P)] [if onpath MJ:R_P then goto HRACT2] [ENDIF] [store <2> in HRCK5(R_P)] [goto HRCK6-C] $end ------------------------------------------------------------------------------- $>HRACT2< [store < > in temp2] [store < > in youheshe] [store < > in yourhshr] [NIF R_P eq RESPLI then] [store in youheshe] [store in yourhshr] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [store in yourhshr] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [store in yourhshr] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] THIS CODE SETS-UP THE REFERENCE WEEK FILL IN THE VARIABLE "WHATWEEK". [store <0> in index] [store day-i in index] [CASE wkday1-c] [OF then] [subtract <1> from index] [OF then] [subtract <2> from index] [OF then] [subtract <3> from index] [OF then] [subtract <4> from index] [OF then] [subtract <5> from index] [OF then] [subtract <6> from index] [ENDCASE] [store in WHATWEEK] [store in swhatwk] ** SPD ** default last week [Store <0> in xbad(1)] (IF MJ IS 1 THEN SHOULD BE ALLOWED TO ENTER 00) [NIF MJ(R_P) is <1> then] [If onpath MJ:R_P then store < > in xbad(1)] [ENDIF] [store in temp2] [If curralt eq <1> then store in temp2] [store <0> in index] [NIF MJNUM(R_P) is <3> OR MJNUM(R_P) is <4> then] [if onpath MJNUM:R_P then store <1> in index] [ENDIF] [NIF index eq <1> AND curralt nq <1> then] [store in temp2] [ELSEIF index eq <1> then] [store in temp2] [ENDIF] [store <{01-99}> in temp4] [If xbad(1) is < > then store <{00-99}> in temp4] $d [no erase] >HRACT2< [fill whatweek], how many hours did [fill youheshe] ACTUALLY work at [fill yourhshr] other [fill temp2] ENTER NUMBER OF HOURS [fill temp4] [Blind] <00-99> Don't know Refused ===>__ $d [alt 1] [no erase] >HRACT2< [fill swhatwk], ¨cu ntas horas trabaj¢ [fill youheshe] en [fill temp2] N£mero de horas [fill temp4] [Blind] <00-99> Don't know Refused ===>__ $edit [notequal xbad(1)] $end ------------------------------------------------------------------------------- COMMENT: 1) IF HRACT1 AND HRACT2 EQ 0 AND ONPATH ENTRY OF 2,D,R IN BUS2 THEN GOTO LK 2) IF HRACT1 AND HRACT2 EQ 0 THEN STORE 1 IN ABSOT AND GOTO ABSRSN 3) ALL OTHERS GOTO HRACTT-C $>HRCK6-C< [store < > in HRCK6(R_P)] [store <0> in index] [NIF HRACT1(R_P) is <0> then] [If onpath HRACT1:R_P then store <1> in index] [ENDIF] [NIF HRACT2(R_P) is <0> then] [If onpath HRACT2:R_P then add <10> to index] [ENDIF] [NIF BUS2(R_P) is <2> OR BUS2(R_P) is then] [If onpath BUS2:R_P then add <100> to index] [ENDIF] [NIF BUS2(R_P) is then] [If onpath BUS2:R_P then add <100> to index] [ENDIF] [NIF index eq <111> then] [store <1> in HRCK6(R_P)] [goto LK] [ELSEIF index eq <11> then] [store <2> in HRCK6(R_P)] [store <1> in ABSOT(R_P)] [goto ABSRSN] [ELSE] [store <3> in HRCK6(R_P)] [goto HRACTT-C] [ENDIF] $END ------------------------------------------------------------------------------- COMMENT: IF ONPATH ENTRY OF D OR R IN BOTH HRACT1 AND HRACT2 STORE D IN HRACTT AND GOTO HRCK7-C IF ONPATH ENTRY OF V IN BOTH HRACT1 AND HRACT2 STORE V IN HRACTT AND GOTO HRCK7-C IF ONPATH ENTRY OF D OR R IN HRACT1 AND ONPATH ENTRY OF V IN HRACT2 STORE V IN HRACTT AND GOTO HRCK7-C IF ONPATH ENTRY OF V IN HRACT1 AND ONPATH ENTRY OF D OR R IN HRACT1 STORE V IN HRACTT AND GOTO HRCK7-C IF ONPATH ENTRY OTHER THAN D,R OR V IN HRACT1 AND ONPATH ENTRY OF D,R OR V IN HRACT2 STORE HRACT1 IN HRACTT GOTO HRCK7-C IF ONPATH ENTRY OTHER THAN D,R OR V IN HRACT2 AND ONPATH ENTRY OF D,R OR V IN HRACT1 STORE HRACT2 IN HRACTT GOTO HRCK7-C IF ONPATH ENTRY OTHER THAN D,R OR V IN HRACT1 AND HRACT2 ADD HRACT1 AND HRACT2 AND STORE IN HRACTT GOTO HRCK7-C IF ONPATH ENTRY OTHER THAN D,R OR V IN HRACT1 AND NO ONPATH ENTRY IN HRACT2 STORE HRACT1 IN HRACTT GOTO HRCK7-C IF ONPATH ENTRY OF D OR R IN HRACT1 AND NO ONPATH ENTRY IN HRACT2 STORE D IN HRACTT AND GOTO HRCK7-C IF ONPATH ENTRY OF V IN HRACT1 AND NO ONPATH ENTRY IN HRACT2 STORE V IN HRACTT AND GOTO HRCK7-C $>HRACTT-C< [store < > in HRACTT(R_P)] [store <0> in HRACT-i(R_P)] [store <0> in index] [store <0> in index2] [store <0> in index3] [If onpath HRACT1:R_P then store <1> in index3] [NIF HRACT1(R_P) is AND index3 eq <1> then] [store <1> in index] [ELSEIF HRACT1(R_P) is AND index3 eq <1> then] [store <1> in index] [ELSEIF HRACT1(R_P) is AND index3 eq <1> then] [store <2> in index] [ELSE] [if index3 eq <1> then store <3> in index] [ENDIF] [store <0> in index3] [If onpath HRACT2:R_P then store <1> in index3] [NIF HRACT2(R_P) is AND index3 eq <1> then] [add <10> to index] [ELSEIF HRACT2(R_P) is AND index3 eq <1> then] [add <10> to index] [ELSEIF HRACT2(R_P) is AND index3 eq <1> then] [add <20> to index] [ELSE] [if index3 eq <1> then add <30> to index] [ENDIF] [NIF index eq <11> then] [store in HRACTT(R_P)] both D or R [goto HRCK7-C] [ELSEIF index eq <22> then] [store in HRACTT(R_P)] both a V [goto HRCK7-C] [ELSEIF index eq <21> OR index eq <12> then] one a D and one a V [store in HRACTT(R_P)] [goto HRCK7-C] [ELSEIF index eq <2> then] v in one & other not onpath [store in HRACTT(R_P)] [goto HRCK7-C] [ELSEIF index eq <1> then] d,r in one & other not onpath [store in HRACTT(R_P)] [goto HRCK7-C] [ELSEIF index eq <31> OR index eq <32> then] i-2 answered and d,r or v in i-1 [store HRACT2(R_P) in HRACTT(R_P)] [convert HRACTT(R_P) character to HRACT-i(R_P) integer] [goto HRCK7-C] [ELSEIF index eq <13> OR index eq <23> then] answer in i-1 and d,r or v in i-2 [store HRACT1(R_P) in HRACTT(R_P)] [convert HRACTT(R_P) character to HRACT-i(R_P) integer] [goto HRCK7-C] [ELSEIF index eq <3> then] answer in i-1 and i-2 not onpath [store HRACT1(R_P) in HRACTT(R_P)] [convert HRACTT(R_P) character to HRACT-i(R_P) integer] [goto HRCK7-C] [ELSEIF index eq <33> then] both onpath [convert HRACT1(R_P) character to HRACT-i(R_P) integer] [convert HRACT2(R_P) character to index2 integer] [add index2 to HRACT-i(R_P)] [convert HRACT-i(R_P) integer to HRACTT(R_P) character] [goto HRCK7-C] [ENDIF] $end ------------------------------------------------------------------------------- COMMENT: 1) (IF ENTRY OF 2, D OR R IN BUS2) AND (HRACT1 LESS THAN 15 OR D) GOTO HRCK8 2) (IF ENTRY OF 2, D OR R IN BUS2) AND (HRACT1 IS 15+) GOTO HRCK8 3) (IF HRUSLT IS 35+ OR IF ONPATH ENTRY OF 1 IN HRFTPT) AND (HRACTT LT 35) AND ENTRY IN HRACT1 OR HRACT2 ISNT D OR R THEN GOT0 HRRSN3 4) IF ONPATH ENTRY IF 1 IN HRWANT AND HRACTT LT 35 AND (ONPATH ENTRY OF 1,2,3 IN HRRSN1 GOTO HRAVL 5) ALL OTHERS GOTO HRCK8 $>HRCK7-C< [store <0> in index] [store < > in HRCK7(R_P)] 1. [NIF BUS2(R_P) is OR BUS2(R_P) is then] [If onpath BUS2:R_P then store <1> in index] [ELSEIF BUS2(R_P) is <2> then] [If onpath BUS2:R_P then store <1> in index] [ENDIF] [store <0> in index2] [NIF HRACT1(R_P) isnt AND HRACT1(R_P) isnt then] [If onpath HRACT1:R_P then convert HRACT1(R_P) character to index2 integer] [ENDIF] [NIF index2 lt <15> AND index2 gt <0> then] [add <10> to index] [ELSEIF HRACT1(R_P) is then] [add <10> to index] 2. [ELSEIF index2 ge <15> then] [add <20> to index] [ENDIF] [NIF index eq <11> then] [store <1> in HRCK7(R_P)] [goto HRCK8] [ELSEIF index eq <21> then] [store <2> in HRCK7(R_P)] [goto HRCK8] [ENDIF] 3. [store <0> in index] [store <0> in index2] [NIF HRUSLT(R_P) isnt AND HRUSLT(R_P) isnt then] [convert HRUSLT(R_P) character to index2 integer] [ENDIF] [NIF index2 ge <35> then] [store <1> in index] [ELSEIF HRFTPT(R_P) is <1> then] [if onpath HRFTPT:R_P then store <1> in index] [ENDIF] CHECK FOR D AND V BECAUSE IF HRACTT IS D OR V THEN HRACT-i WOULD BE 0 [NIF HRACTT(R_P) isnt AND HRACTT(R_P) isnt then] [IF HRACT-i(R_P) lt <35> then add <10> to index] [ENDIF] [NIF HRACT1(R_P) isnt AND HRACT1(R_P) isnt then] [If onpath HRACT1:R_P then add <100> to index] [ENDIF] [NIF HRACT2(R_P) isnt AND HRACT2(R_P) isnt then] [If onpath HRACT2:R_P then add <100> to index] [ENDIF] [NIF index eq <111> OR index eq <211> then] [store <3> in HRCK7(R_P)] [goto HRRSN3] [ENDIF] 4. [store <0> in index] [NIF HRWANT(R_P) is <1> then] [If onpath HRWANT:R_P then store <1> in index] [ENDIF] [NIF HRACTT(R_P) isnt AND HRACTT(R_P) isnt then] [IF HRACT-i(R_P) lt <35> then add <10> to index] [ENDIF] [NIF HRRSN1(R_P) is <1> OR HRRSN1(R_P) is <2> then] [If onpath HRRSN1:R_P then add <100> to index] [ENDIF] [NIF HRRSN1(R_P) is <3> then] [If onpath HRRSN1:R_P then add <100> to index] [ENDIF] [NIF index eq <111> then] [store <4> in HRCK7(R_P)] [goto HRAVL] [ENDIF] 5. [store <5> in HRCK7(R_P)] [goto HRCK8] $end ------------------------------------------------------------------------------- $>HRRSN3< [store < > in temptext] [NIF R_P eq RESPLI then] [store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [ENDIF] THIS CODE SETS-UP THE REFERENCE WEEK FILL IN THE VARIABLE "WHATWEEK". [store <0> in index] [store day-i in index] [CASE wkday1-c] [OF then] [subtract <1> from index] [OF then] [subtract <2> from index] [OF then] [subtract <3> from index] [OF then] [subtract <4> from index] [OF then] [subtract <5> from index] [OF then] [subtract <6> from index] [ENDCASE] [store in WHATWEEK] [store in swhatwk] ** SPD ** default last week $d >HRRSN3< What is the main reason [fill temptext] worked less than 35 hours [fill whatweek]? <1> Slack work/business conditions <2> Seasonal work <3> Job started or ended during week <4> Vacation/personal day <5> Own illness/injury/medical appointment <6> Holiday (legal or religious) <7> Child care problems <8> Other family/personal obligations <9> Labor dispute <10> Weather affected job <11> School/training <12> Civic/Military duty <13> Other reason [goto HRSPC3] [blind] Don't know Refused ===>__ [goto HRCK8] $d [alt 1] >HRRSN3< ¨Cu l es la raz¢n principal por la que [fill temptext] trabaj¢ menos de 35 horas [fill swhatwk]? <1> Poco trabajo/actividades laborales <2> Trabajo de temporada <3> El empleo empez¢ o termin¢ durante la semana <4> Vacaciones/d¡as libres personales <5> Enfermedad propia/lesi¢n/visita al m‚dico <6> D¡a festivo/feriado (legal o religioso) <7> Cuidado de ni¤os <8> Otras obligaciones personales o de familia <9> Conflicto laboral <10> Trabajo afectado por condiciones del tiempo <11> Educaci¢n/adiestramiento <12> Deberes civiles o militares <13> Otra raz¢n [goto HRSPC3] [blind] Don't know Refused ===>__ [goto HRCK8] $end ------------------------------------------------------------------------------- $>HRSPC3< $d >HRSPC3< ENTER VERBATIM RESPONSE ===>_________________________________________________________________ [goto HRCK8] $edit [anychar] $end ------------------------------------------------------------------------------- $>HRAVL< [store < > in temptext] [NIF R_P eq RESPLI then] [store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [ENDIF] THIS CODE SETS-UP THE REFERENCE WEEK FILL IN THE VARIABLE "WHATWEEK". [store <0> in index] [store day-i in index] [CASE wkday1-c] [OF then] [subtract <1> from index] [OF then] [subtract <2> from index] [OF then] [subtract <3> from index] [OF then] [subtract <4> from index] [OF then] [subtract <5> from index] [OF then] [subtract <6> from index] [ENDCASE] [store in WHATWEEK] [store in swhatwk] ** SPD ** default last week $d >HRAVL< [fill whatweek], could [fill temptext] have worked full-time if the hours had been available? <1> Yes <2> No [blind] Don't know Refused ===>_ [goto HRCK8] $d [alt 1] >HRAVL< [fill swhatwk], ¨hubiera podido [fill temptext] trabajar horario completo si le hubieran ofrecido ese horario de trabajo? <1> S¡ <2> No [blind] Don't know Refused ===>_ [goto HRCK8] $end ------------------------------------------------------------------------------- COMMENT: IF LINE NUM OF CURRENT PERSON EQ LINE NUM OF RESPONDENT GOTO IOCK1-C ALL OTHERS GOTO HRCK9 $>HRCK8< [NIF R_P eq RESPLI then] [convert RESPLI integer to HRSLNO(R_P) character] [goto HRCK12-C] [ENDIF] $end ------------------------------------------------------------------------------- $>HRCK9< $display >HRCK9< ***** DO NOT ASK THE RESPONDENT ***** Did [fill name(R_P)] provide any of the hours information you just collected? <1> Yes [convert R_P integer to HRSLNO(R_P) character] [goto HRCK12-C] <2> No [If NUMHOU eq <2> then convert RESPLI integer to HRSLNO(R_P) character] [If NUMHOU eq <2> then goto HRCK12-C] ===>_ $end ------------------------------------------------------------------------------- $>HRCK10< $display >HRCK10< ***** DO NOT ASK THE RESPONDENT ***** Did anyone other than [fill name(RESPLI)] provide any of the hours information you just collected? <1> Yes <2> No [goto HRCK12-C] ===>_ $end ------------------------------------------------------------------------------- $>HRCK11-C< [multiple HRCK11] [do index <1> <16>] [store < > in table(index)] [store < > in xbad(index)] [store < > in relation(index)] [IF pelig(index) ge <12> then convert index integer to xbad(index) character] [end do] [store NROSIZ in index2] [add <1> to index2] [if index2 gt <16> then store <16> in index2] [do index <1> index2] [store name(index) in table(index)(9:36)] [store hhmem(index) in table(index)(40:40)] [store age(index) in table(index)(60:61)] [if LINENO(index) isnt < > then store LINENO(index) in table(index)(2:4)] [store <0> in index3] [convert RRP(index) character to index3 integer] [NIF index3 nq <0> AND NEWRRP eq <0> then] ** RRP [store reltab(index3) in relation(index)] [ELSEIF index3 nq <0> AND NEWRRP eq <1> then] [store n-reltab(index3) in relation(index)] [ENDIF] [store relation(index) in table(index)(45:56)] [NIF hhmem(index) is <2> OR hhmem(index) is <3> then] [convert index integer to xbad(index) character] [store < > in table(index)] [ELSEIF AGERNG(index) lt <2> then] [convert index integer to xbad(index) character] [store < > in table(index)] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <3> then] [convert index integer to xbad(index) character] [store < > in table(index)] [ELSEIF DELDEC(index) is <2> then] [convert index integer to xbad(index) character] [store < > in table(index)] [ELSEIF DELDEC(index) is <9> then] [convert index integer to xbad(index) character] [store < > in table(index)] [ENDIF] [end do] [convert R_P integer to xbad(R_P) character] [convert RESPLI integer to xbad(RESPLI) character] $itemtable >HRCK11< ***** DO NOT ASK THE RESPONDENT ***** LINE NAME MEM REL AGE [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] Who Was that? ENTER LINE NUMBER ===>__ $end -------------------------------------------------------------------------------- $>HRCK11< [within HRCK11-C] $d [none] <1-16> ===>__ [store HRCK11(R_P) in HRSLNO(R_P)] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end --------------------------------------------------------------------------- COMMENT: 1) IF ENTRY OF 2,D OR R IN BUS2 AND HRACTT LT 15, D OR R GOTO LK 2) ALL OTHERS GOTO IOCK1-C $>HRCK12-C< SETS END TIME FOR THE HOURS WORKED SERIES [store <0> in sectim-i] [store <0> in index] [setsec sectim-i] [NIF lkHWetim(R_P) eq <0> AND HWstm(R_P) nq <0> then] [If HWetm(R_P) eq <0> then store sectim-i in HWetm(R_P)] [ELSEIF lkHWetim(R_P) eq <0> AND rsmtime nq <0> then] [If HWetm(R_P) eq <0> then store sectim-i in HWetm(R_P)] [ENDIF] [store HWetm(R_P) in index] [NIF HWstm(R_P) nq <0> then] [subtract HWstm(R_P) from index] [ELSE] [subtract rsmtime from index] [ENDIF] [If lkHWetim(R_P) eq <0> then add index to HWsec(R_P)] [store <1> in lkHWetim(R_P)] [store <1> in lkHWstim(R_P)] [store < > in HRCK12(R_P)] [store <0> in index] [NIF BUS2OT(R_P) is OR BUS2OT(R_P) is then] [store <1> in index] [ELSEIF BUS2OT(R_P) is <2> then] [store <1> in index] [ENDIF] COMMENT: HRACT-i IS THE INTEGER FROM AND HRACTT IS THE CHARACTER FROM IF D OR V IN HRACTT THAN HRACT-i WILL BE 0 HOWEVER 0 IS AN ACCEPTABLE ANSWER [NIF HRACT-i(R_P) lt <15> AND HRACT-i(R_P) gt <0> then] [add <10> to index] [ELSEIF HRACTT(R_P) is OR HRACTT(R_P) is then] [add <10> to index] [ENDIF] [NIF index eq <11> then] [store <1> in HRCK12(R_P)] [goto LK] [ENDIF] [store <2> in HRCK12(R_P)] [goto IOCK1-C] $end ------------------------------------------------------------------------------ $>LAYDT< [store < > in temptext] [store < > in youhmhr] [NIF R_P eq RESPLI then] [store in youhmhr] [store in temptext] [If curralt eq <1> then store in temptext] [ELSEIF sex(R_P) is <2> then] [store in youhmhr] [combine name(R_P) <'s> into temptext] [If curralt eq <1> then store name(R_P) in temptext] [ELSE] [store in youhmhr] [combine name(R_P) <'s> into temptext] [If curralt eq <1> then store name(R_P) in temptext] [ENDIF] $d >LAYDT< Has [fill temptext] employer given [fill youhmhr] a date to return to work? <1> Yes [goto LAYAVL] <2> No [blind] Don't know Refused ===>_ $d [alt 1] >LAYDT< ¨Le ha indicado su patr¢n o compa¤¡a en qu‚ fecha podr  [fill temptext] regresar al trabajo? <1> S¡ [goto LAYAVL] <2> No [blind] Don't know Refused ===>_ $end ------------------------------------------------------------------------------- $>LAY6M< [store < > in youheshe] [store < > in havehas] [NIF R_P eq RESPLI then] [store in youheshe] [store in HaveHas] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [store in HaveHas] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [store in HaveHas] [if curralt eq <1> then store <‚l> in youheshe] [ENDIF] $d >LAY6M< [fill HaveHas] [fill youheshe] been given any indication that [fill youheshe] will be recalled to work within the next 6 months? <1> Yes [goto LAYAVL] <2> No [blind] Don't know Refused ===>_ [goto LK] $d [alt 1] >LAY6M< ¨Le han dado alguna indicaci¢n de que [fill youheshe] regresar  a su trabajo en los pr¢ximos 6 meses? <1> S¡ [goto LAYAVL] <2> No [blind] Don't know Refused ===>_ [goto LK] $end ------------------------------------------------------------------------------- $>LAYAVL< [store < > in youheshe] [NIF R_P eq RESPLI then] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] THIS CODE SETS-UP THE REFERENCE WEEK FILL IN THE VARIABLE "WHATWEEK". [store <0> in index] [store day-i in index] [CASE wkday1-c] [OF then] [subtract <1> from index] [OF then] [subtract <2> from index] [OF then] [subtract <3> from index] [OF then] [subtract <4> from index] [OF then] [subtract <5> from index] [OF then] [subtract <6> from index] [ENDCASE] [store in WHATWEEK] [store in swhatwk] ** SPD ** default last week $d >LAYAVL< Could [fill youheshe] have returned to work [fill whatweek] if [fill youheshe] had been recalled? <1> Yes <2> No [goto LAYAVR] [blind] Don't know Refused ===>_ [goto LAYLK] $d [alt 1] >LAYAVL< ¨Podr¡a [fill youheshe] haber regresado al trabajo [fill swhatwk] si se lo hubieran pedido? <1> S¡ <2> No [goto LAYAVR] [blind] Don't know Refused ===>_ [goto LAYLK] $end ------------------------------------------------------------------------------- $>LAYAVR< [indirect] $d >LAYAVR< Why is that? <1> Own temporary illness <2> Going to school <3> Other [goto LAYAVS] [blind] Don't know Refused ===>_ [goto LAYLK] $d [alt 1] >LAYAVR< ¨Por qu‚ raz¢n? <1> Enfermedad propia temporal/temporera <2> Est  asistiendo a la escuela/universidad <3> Otra raz¢n (especifique) [goto LAYAVS] [blind] Don't know Refused ===>_ [goto LAYLK] $end ------------------------------------------------------------------------------- $>LAYAVS< $d >LAYAVS< ENTER SPECIFIC REASON ===>_________________________________________________________________ $edit [anychar] $end ------------------------------------------------------------------------------- $>LAYLK< [store < > in havehas] [store < > in youheshe] [store < > in temp2] [NIF R_P eq RESPLI then] [store in havehas] [store in youheshe] [store in temp2] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [store in temp2] [store in havehas] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [store in temp2] [store in havehas] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] $d >LAYLK< Even though [fill youheshe] [fill temp2] to be called back to work, [fill havehas] [fill youheshe] been looking for work during the last 4 weeks? <1> Yes <2> No [blind] Don't know Refused ===>_ $d [alt 1] >LAYLK< ¨Ha estado [fill youheshe] buscando trabajo durante las £ltimas 4 semanas, a pesar de que espera regresar a su trabajo? <1> S¡ <2> No [blind] Don't know Refused ===>_ $end ------------------------------------------------------------------------------- COMMENT: 1) IF I-MLR EQ 3 AND I-LAYDUR IS NOT BLANK,D OR R AND I-LAYFT IS NOT BLANK,D OR R UPDATE LAYDUR ACCORDINGLY (SEE SPECS), PLACE I-LAYFT IN LAYFTO AND GOTO LAYCK3-C 2) IF I-MLR EQ 3 AND I-LAYDUR IS NOT BLANK,D OR R AND I-LAYFT IS BLANK,D OR R THEN UPDATE LAYDUR ACCORDINGLY (SEE SPECS) GOTO LAYFT 3) ALL OTHERS GOTO LAYDR $>LAYCK1-C< [store < > in LAYCK1(R_P)] THE FOLLOWING BLOCK OF CODE IS USED SO THAT WE DO NOT HAVE TO EXECUTE UNNEEDED CODE [NIF I-LAYDUR(R_P) is OR I-LAYDUR(R_P) is then] [store <3> in LAYCK1(R_P)] [goto LAYDR] [ELSEIF I-LAYDUR(R_P) is < > OR I-MLR(R_P) isnt <3> then] [store <3> in LAYCK1(R_P)] [goto LAYDR] [ENDIF] [store <0> in jdate-i] [store <0> in mon-i] [setdate jdate-i mon-i day-i year-i date-c wkday1-c wkday2-c] [subtract <1900> from year-i] [store <0> in index2] [convert I-LAYDUR(R_P) character to index2 integer] [NIF mon-i ge <4> AND mon-i le <9> THEN] [If year-i eq <96> then add <4> to index2] [If year-i eq <96> then convert index2 integer to LAYDUR(R_P) character] [ENDIF] [NIF mon-i eq <11> OR mon-i eq <12> then] [If year-i eq <96> then add <4> to index2] [If year-i eq <96> then convert index2 integer to LAYDUR(R_P) character] [ENDIF] [NIF mon-i eq <2> OR mon-i eq <3> then] [If year-i eq <97> then add <4> to index2] [If year-i eq <97> then convert index2 integer to LAYDUR(R_P) character] [ENDIF] [NIF mon-i eq <5> OR mon-i eq <6> then] [If year-i eq <97> then add <4> to index2] [If year-i eq <97> then convert index2 integer to LAYDUR(R_P) character] [ENDIF] [NIF mon-i eq <8> OR mon-i eq <10> then] [If year-i eq <97> then add <4> to index2] [If year-i eq <97> then convert index2 integer to LAYDUR(R_P) character] [ENDIF] [NIF mon-i eq <11> then] [If year-i eq <97> then add <4> to index2] [If year-i eq <97> then convert index2 integer to LAYDUR(R_P) character] [ENDIF] [NIF mon-i eq <10> then] [If year-i eq <96> then add <5> to index2] [If year-i eq <96> then convert index2 integer to LAYDUR(R_P) character] [ENDIF] [NIF mon-i eq <1> OR mon-i eq <4> then] [If year-i eq <97> then add <5> to index2] [If year-i eq <97> then convert index2 integer to LAYDUR(R_P) character] [ENDIF] [NIF mon-i eq <7> OR mon-i eq <9> then] [If year-i eq <97> then add <5> to index2] [If year-i eq <97> then convert index2 integer to LAYDUR(R_P) character] [ENDIF] [NIF mon-i eq <12> then] [If year-i eq <97> then add <3> to index2] [If year-i eq <97> then convert index2 integer to LAYDUR(R_P) character] [ENDIF] [store <0> in index] [NIF I-LAYFT(R_P) is OR I-LAYFT(R_P) is then] [store <1> in index] [ELSEIF I-LAYFT(R_P) is < > then] [store <1> in index] [ENDIF] [NIF index eq <0> then] [store I-LAYFT(R_P) in LAYFTO(R_P)] [store <1> in LAYCK1(R_P)] [goto LAYCK3-C] [ENDIF] [store <2> in LAYCK1(R_P)] [goto LAYFT] $end ------------------------------------------------------------------------------ $>LAYDR< [multiple LAYDR1 LAYDR2] [store < > in youheshe] [store < > in temp2] [NIF R_P eq RESPLI then] [store in temp2] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [store in temp2] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [store in temp2] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] [store <99> in xbad(1)] THIS CODE SETS-UP THE REFERENCE WEEK FILL IN THE VARIABLE "WHATWEEK". [store <0> in index] [store day-i in index] [CASE wkday1-c] [OF then] [subtract <1> from index] [OF then] [subtract <2> from index] [OF then] [subtract <3> from index] [OF then] [subtract <4> from index] [OF then] [subtract <5> from index] [OF then] [subtract <6> from index] [ENDCASE] [store in WHATWEEK] [store in swhatwk] ** SPD ** default last week $itemtable >LAYDR1< As of the end of [fill whatweek], how long [fill temp2] [fill youheshe] been on layoff? <1> Weeks <2> Months <3> Years ===>_ LAYDR2 *** DO NOT READ TO RESPONDENT *** ENTER NUMBER OF WEEKS/MONTHS/YEARS ===>[N]___ $d [alt 1] >LAYDR1< Contando hasta [fill swhatwk], ¨cu nto tiempo ha estado [fill youheshe] sin su trabajo? <1> Semanas <2> Meses <3> A¤os ===>_ LAYDR2 *** DO NOT READ TO RESPONDENT *** N£mero ===>[N]___ $end ------------------------------------------------------------------------------- $>LAYDR1< [within LAYDR] $d [none] <1> [store <99> in xbad(1)] <2> [store <24> in xbad(1)] <3> [store <2> in xbad(1)] Don't know [goto LAYFT] Refused [goto LAYFT] $end $>LAYDR2< [within LAYDR] $d [none] ===>[N]___ $edit [numeric] [notgreater xbad(1)] $end ------------------------------------------------------------------------------ COMMENT: 1) IF ONPATH ENTRY OF 2 IN LAYDR1 AND ONPATH ENTRY OF 1-4 IN LAYDR2 GOTO LAYDR3 2) ALL OTHERS GOTO LAYFT $>LAYCK2-C< [store < > in LAYCK2(R_P)] [store <0> in index] [store <0> in index2] [NIF LAYDR1(R_P) is <2> then] [If onpath LAYDR1:R_P then store <1> in index] [ENDIF] [If onpath LAYDR2:R_P then convert LAYDR2(R_P) character to index2 integer] [NIF index2 ge <1> AND index2 le <4> then] [If index eq <1> then store <1> in LAYCK2(R_P)] [If index eq <1> then goto LAYDR3] [ENDIF] [store <2> in LAYCK2(R_P)] [goto LAYFT] $end ----------------------------------------------------------------------------- $>LAYDR3< [store < > in temptext] [NIF R_P eq RESPLI then] [store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [ENDIF] $display >LAYDR3< We would like to have that in weeks, if possible. Exactly how many weeks had [fill temptext] been on layoff? ENTER NUMBER OF WEEKS [blind] <0-260> Don't know Refused ===>___ $d [alt 1] >LAYDR3< ¨Responda en semanas, si es posible. Exactamente, ¨cu ntas semanas hac¡a que [fill temptext] estaba sin su trabajo? N£mero de semanas [blind] <0-260> Don't know Refused ===>___ $end ----------------------------------------------------------------------------- $>LAYFT< [store < > in areis] [store < > in temptext] [NIF R_P eq RESPLI then] [store in areis] [store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [store in areis] [ENDIF] $d >LAYFT< Is the job from which [fill temptext] [fill areis] on layoff a full-time job of 35 hours or more per week? <1> Yes <2> No [blind] Don't know Refused ===>_ [store LAYFT(R_P) in LAYFTO(R_P)] [goto IO1INT] $d [alt 1] >LAYFT< En el empleo del cual estaba separado(a) temporalmente/ temporeramente (layoff), ¨trabajaba [fill temptext] horario completo, de 35 horas o m s a la semana? <1> S¡ <2> No [blind] Don't know Refused ===>_ [store LAYFT(R_P) in LAYFTO(R_P)] [goto IO1INT] $end ------------------------------------------------------------------------------- COMMENT: 1) IF MISCK IS 5 THEN GOTO IO1INT 2) IF I-IO1ICR IS 1 OR I-IO1OCR IS 1 GOTO IO1INT 3) ALL OTHERS GOTO SCHCK-C $>LAYCK3-C< [store < > in LAYCK3(R_P)] [NIF MISCK is <5> then] [store <1> in LAYCK3(R_P)] [goto IO1INT] [ENDIF] [NIF I-IO1ICR(R_P) is <1> OR I-IO1OCR(R_P) is <1> then] [store <2> in LAYCK3(R_P)] [goto IO1INT] [ENDIF] [store <3> in LAYCK3(R_P)] [goto SCHCK-C] $end ------------------------------------------------------------------------------- $>LK< [store < > in temptext] [store < > in havehas] [store < > in temp7] [NIF R_P eq RESPLI then] [store in temptext] [store in HaveHas] [store in temp7] [If curralt eq <1> then store in temptext] [ELSE] [store in HaveHas] [store name(R_P) in temptext] [store in temp7] [ENDIF] THE FOLLOWING IS USED FOR THE FILLLING OF RETIRED, DIABLED, ETC. [NIF curralt nq <1> then] [store <{3} Retired> in temp3] [store <{4} Disabled> in temp4] [store <{5} Unable to work> in temp5] [ELSE] [store <{3} Retirado(a)/jubilado(a)> in temp3] [store <{4} Incapacitado(a)> in temp4] [store <{5} No puede trabajar> in temp5] [ENDIF] [store <0> in index2] [store < > in xbad(1)] [store < > in xbad(2)] [store < > in xbad(3)] [NIF WK(R_P) is <3> OR WK(R_P) is <4> then] [If onpath WK:R_P then store <1> in index2] [ELSEIF WK(R_P) is <5> then] [If onpath WK:R_P then store <1> in index2] [ENDIF] [NIF ABS(R_P) is <3> OR ABS(R_P) is <4> then] [If onpath ABS:R_P then store <1> in index2] [ELSEIF ABS(R_P) is <5> then] [If onpath ABS:R_P then store <1> in index2] [ENDIF] [NIF LAY(R_P) is <3> OR LAY(R_P) is <4> then] [If onpath LAY:R_P then store <1> in index2] [ELSEIF LAY(R_P) is <5> then] [If onpath LAY:R_P then store <1> in index2] [ENDIF] [NIF index2 eq <1> then] [store < > in temp3] [store < > in temp4] [store < > in temp5] [store <3> in xbad(1)] [store <4> in xbad(2)] [store <5> in xbad(3)] [ENDIF] $d >LK< [fill havehas] [fill temptext] been doing anything to find work during the last 4 weeks? <1> Yes [goto LKM1] <2> No [fill temp3] [fill temp4] [fill temp5] [blind] Don't know Refused <3> Retired [goto LKCK2-C] <4> Disabled [goto LKCK1-C] <5> Unable to work [goto LKCK1-C] ===>_ [goto DWCK1-C] $d [alt 1] >LK< ¨Ha hecho [fill temptext] algo para conseguir empleo durante las £ltimas 4 semanas? <1> S¡ [goto LKM1] <2> No [fill temp3] [fill temp4] [fill temp5] [blind] Don't know Refused <3> Retirado(a)/jubilado(a) [goto LKCK2-C] <4> Incapacitado(a) [goto LKCK1-C] <5> No puede trabajar [goto LKCK1-C] ===>_ [goto DWCK1-C] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] $end ------------------------------------------------------------------------------- COMMENT: 1) IF ONPATH ENTRY IN DIS1 OR DIS2 GOTO DWCK1-C 2) IF ONPATH ENTRY OF 4 IN LK GOTO DIS1 3) IF ONPATH ENTRY OF 5 IN LK GOTO DIS2 4) ALL OTHERS GOTO LKCK2-C $>LKCK1-C< [store < > in LKCK1(R_P)] [If onpath DIS1:R_P then store <1> in LKCK1(R_P)] [If onpath DIS1:R_P then goto DWCK1-C] [If onpath DIS2:R_P then store <1> in LKCK1(R_P)] [If onpath DIS2:R_P then goto DWCK1-C] [NIF LK(R_P) is <4> then] [If onpath LK:R_P then store <2> in LKCK1(R_P)] [If onpath LK:R_P then goto DIS1] [ELSEIF LK(R_P) is <5> then] [If onpath LK:R_P then store <3> in LKCK1(R_P)] [If onpath LK:R_P then goto DIS2] [ENDIF] [store <4> in LKCK1(R_P)] $end ------------------------------------------------------------------------------- COMMENT: 1) IF AGERNG IS 1-4 OR 9 GOTO DWCK1-C 2) ALL OTHERS GOTO NLFCK2-C $>LKCK2-C< [store < > in LKCK2(R_P)] [NIF AGERNG(R_P) ge <1> AND AGERNG(R_P) le <4> then] [store <1> in LKCK2(R_P)] [goto DWCK1-C] [ELSEIF AGERNG(R_P) eq <9> then] [store <1> in LKCK2(R_P)] [goto DWCK1-C] [ELSE] [store <2> in LKCK2(R_P)] [goto NLFCK2-C] [ENDIF] $end ------------------------------------------------------------------------------- $>LKM1< [store < > in havehas] [store < > in youheshe] [NIF R_P eq RESPLI then] [store in havehas] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [store in havehas] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [store in havehas] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] $d >LKM1< What are all of the things [fill youheshe] [fill havehas] done to find work during the last 4 weeks? DO NOT READ ANSWER CATEGORIES ACTIVE PASSIVE <1> Contacted employer <10> Looked at ads directly/interview <11> Attended job training <2> Contacted public employment agency programs/courses <3> Contacted private employment agency <4> Contacted friends or relatives <13> Other passive [goto LKMSP1] <5> Contacted school/university employment center <6> Sent out resumes/filled out applications <7> Checked union/professional registers <8> Placed or answered ads <12> Nothing [goto LKDK1] <9> Other active [goto LKMSP1] [blind] Don't know [goto LKDK1] Refused [goto DWCK1-C] ===>__ [goto LKM2] $d [alt 1] >LKM1< ¨Cu les son todas las cosas que [fill youheshe] ha hecho para conseguir empleo durante las £ltimas 4 semanas? DO NOT READ ANSWER CATEGORIES ACTIVE PASSIVE <1> Se comunic¢ con el lugar de <10> Ley¢ anuncios en la prensa empleo directamente/entrevista <11> Asisti¢ a cursos/programas <2> Agencia de empleo p£blica de adiestramiento <3> Agencia de empleo privada <4> Amigos o parientes <13> Otra cosa pasiva[goto LKMSP1] <5> Centro de empleo de una escuela/universidad <12> Ninguna Cosa [goto LKDK1] <6> Envi¢ resum‚/llen¢ solicitudes de empleo <7> Contest¢ o public¢ anuncios en la prensa <8> Consult¢ registros sindicales/profesionales <9> Otra cosa activa [goto LKMSP1] [blind] Don't know [goto LKDK1] Refused [goto DWCK1-C] ===>__ [goto LKM2] $end ------------------------------------------------------------------------------- $>LKMSP1< $D >LKMSP1< ENTER VERBATIM RESPONSE ===>_________________________________________________________________ $edit [anychar] $end ------------------------------------------------------------------------------- $>LKM2< [store < > in temptext] [store < > in havehas] [NIF R_P eq RESPLI then] [store in temptext] [store in havehas] [if curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [store in havehas] [ENDIF] $display >LKM2< Anything else? WHAT ARE ALL OF THE THINGS [FILL temptext] [FILL havehas] DONE TO FIND WORK DURING THE LAST 4 WEEKS? DO NOT READ ANSWER CATEGORIES ENTER FOR NO ADDITIONAL ANSWER ACTIVE PASSIVE <1> Contacted employer <10> Looked at ads directly/interview <11> Attended job training <2> Contacted public employment agency programs/courses <3> Contacted private employment agency <4> Contacted friends or relatives <13> Other passive [goto LKMSP2] <5> Contacted school/university employment center <6> Sent out resumes/filled out applications <7> Checked union/professional registers <8> Placed or answered ads <9> Other active [goto LKMSP2] [blind] Refused ===>__ [goto LKACK1-C] $d [alt 1] >LKM2< ¨Alguna otra cosa? ¨Cu les son todas las cosas que [fill temptext] ha hecho para conseguir empleo durante las £ltimas 4 semanas? DO NOT READ ANSWER CATEGORIES ENTER FOR NO ADDITIONAL ANSWER ACTIVE PASSIVE <1> Se comunic¢ con el lugar de <10> Ley¢ anuncios en la prensa empleo directamente/entrevista <11> Asisti¢ a cursos/programas <2> Agencia de empleo p£blica de adiestramiento <3> Agencia de empleo privada <4> Amigos o parientes <13> Otra cosa pasiva[goto LKMSP2] <5> Centro de empleo de una escuela/universidad <6> Envi¢ resum‚/llen¢ solicitudes de empleo <7> Contest¢ o public¢ anuncios en la prensa <8> Consult¢ registros sindicales/profesionales <9> Otra cosa activa [goto LKMSP2] [blind] Refused ===>__ [goto LKACK1-C] $edit [notequal LKM1(R_P)] $end ------------------------------------------------------------------------------- $>LKMSP2< $d >LKMSP2< ENTER VERBATIM RESPONSE ===>_________________________________________________________________ $edit [anychar] $end ------------------------------------------------------------------------------- COMMENT: IF ENTRY OF 10, 11 OR 13 IN LKM1 AND AN N OR R IN LKM2 GOTO LKPS1 IF ENTRY OF N (NO MORE) IN LKM2 GOTO LKAVL ALL OTHERS GOTO LKM3 $>LKACK1-C< [store <0> in index] [store < > in LKACK1(R_P)] [NIF LKM1(R_P) is <13> then] [If onpath LKM1:R_P then store <1> in index] [ELSEIF LKM1(R_P) is <10> OR LKM1(R_P) is <11> then] [If onpath LKM1:R_P then store <1> in index] [ENDIF] [NIF LKM2(R_P) is OR LKM2(R_P) IS then] [If onpath LKM2:R_P then add <10> to index] [ENDIF] [NIF index eq <11> then] [store <1> in LKACK1(R_P)] [goto LKPS1] [ELSEIF index eq <10> then] [store <2> in LKACK1(R_P)] [goto LKAVL] [ENDIF] [store <3> in LKACK1(R_P)] $end ------------------------------------------------------------------------------ $>LKM3< [store < > in temptext] [store < > in havehas] [NIF R_P eq RESPLI then] [store in temptext] [store in havehas] [if curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [store in havehas] [ENDIF] $display >LKM3< Anything else? WHAT ARE ALL OF THE THINGS [FILL temptext] [FILL havehas] DONE TO FIND WORK DURING THE LAST 4 WEEKS? DO NOT READ ANSWER CATEGORIES ENTER FOR NO ADDITIONAL ANSWER ACTIVE PASSIVE <1> Contacted employer <10> Looked at ads directly/interview <11> Attended job training <2> Contacted public employment agency programs/courses <3> Contacted private employment agency <4> Contacted friends or relatives <13> Other passive [goto LKMSP3] <5> Contacted school/university employment center <6> Sent out resumes/filled out applications <7> Checked union/professional registers <8> Placed or answered ads <9> Other active [goto LKMSP3] [blind] Refused ===>__ [goto LKACK2-C] $d [alt 1] >LKM3< ¨Alguna otra cosa? ¨Cu les son todas las cosas que [fill temptext] ha hecho para conseguir empleo durante las £ltimas 4 semanas? DO NOT READ ANSWER CATEGORIES ENTER FOR NO ADDITIONAL ANSWER ACTIVE PASSIVE <1> Se comunic¢ con el lugar de <10> Ley¢ anuncios en la prensa empleo directamente/entrevista <11> Asisti¢ a cursos/programas <2> Agencia de empleo p£blica de adiestramiento <3> Agencia de empleo privada <4> Amigos o parientes <13> Otra cosa pasiva[goto LKMSP3] <5> Centro de empleo de una escuela/universidad <6> Envi¢ resum‚/llen¢ solicitudes de empleo <7> Contest¢ o public¢ anuncios en la prensa <8> Consult¢ registros sindicales/profesionales <9> Otra cosa activa [goto LKMSP3] [blind] Refused ===>__ [goto LKACK2-C] $edit [notequal LKM1(R_P)] [notequal LKM2(R_P)] $end ------------------------------------------------------------------------------- $>LKMSP3< $d >LKMSP3< ENTER VERBATIM RESPONSE ===>_________________________________________________________________ $edit [anychar] $end ------------------------------------------------------------------------------- COMMENT: IF 10, 11 OR 13 ONLY IN LKM1 AND LKM2 AND N OR R IN LKM3 GOTO LKPS1 IF ONPATH ENTRY OF N (NO MORE) IN LKM3 GOTO LKAVL ELSE GOTO LKM4 $>LKACK2-C< [store <0> in index] [store < > in LKACK2(R_P)] [NIF LKM1(R_P) is <10> OR LKM1(R_P) is <11> then] [If onpath LKM1:R_P then store <1> in index] [ELSEIF LKM1(R_P) is <13> then] [If onpath LKM1:R_P then store <1> in index] [ENDIF] [NIF LKM2(R_P) is <10> OR LKM2(R_P) is <11> then] [If onpath LKM2:R_P then add <10> to index] [ELSEIF LKM2(R_P) is <13> then] [If onpath LKM2:R_P then add <10> to index] [ENDIF] [NIF LKM3(R_P) is OR LKM3(R_P) is then] [If onpath LKM3:R_P then add <100> to index] [ENDIF] [NIF index eq <111> then] [store <1> in LKACK2(R_P)] [goto LKPS1] [ENDIF] [NIF LKM3(R_P) is OR LKM3(R_P) is then] [If onpath LKM3:R_P then store <2> in LKACK2(R_P)] [If onpath LKM3:R_P then goto LKAVL] [ENDIF] [store <3> in LKACK2(R_P)] $end ------------------------------------------------------------------------------- $>LKM4< [store < > in temptext] [store < > in havehas] [NIF R_P eq RESPLI then] [store in temptext] [store in havehas] [if curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [store in havehas] [ENDIF] $display >LKM4< Anything else? WHAT ARE ALL OF THE THINGS [FILL temptext] [FILL havehas] DONE TO FIND WORK DURING THE LAST 4 WEEKS? DO NOT READ ANSWER CATEGORIES ENTER FOR NO ADDITIONAL ANSWER ACTIVE PASSIVE <1> Contacted employer <10> Looked at ads directly/interview <11> Attended job training <2> Contacted public employment agency programs/courses <3> Contacted private employment agency <4> Contacted friends or relatives <13> Other passive [goto LKMSP4] <5> Contacted school/university employment center <6> Sent out resumes/filled out applications <7> Checked union/professional registers <8> Placed or answered ads <9> Other active [goto LKMSP4] [blind] Refused ===>__ [goto LKACK3-C] $d [alt 1] >LKM4< ¨Alguna otra cosa? ¨Cu les son todas las cosas que [fill temptext] ha hecho para conseguir empleo durante las £ltimas 4 semanas? DO NOT READ ANSWER CATEGORIES ENTER FOR NO ADDITIONAL ANSWER ACTIVE PASSIVE <1> Se comunic¢ con el lugar de <10> Ley¢ anuncios en la prensa empleo directamente/entrevista <11> Asisti¢ a cursos/programas <2> Agencia de empleo p£blica de adiestramiento <3> Agencia de empleo privada <4> Amigos o parientes <13> Otra cosa pasiva[goto LKMSP4] <5> Centro de empleo de una escuela/universidad <6> Envi¢ resum‚/llen¢ solicitudes de empleo <7> Contest¢ o public¢ anuncios en la prensa <8> Consult¢ registros sindicales/profesionales <9> Otra cosa activa [goto LKMSP4] [blind] Refused ===>__ [goto LKACK3-C] $edit [notequal LKM1(R_P)] [notequal LKM2(R_P)] [notequal LKM3(R_P)] $end ------------------------------------------------------------------------------- $>LKMSP4< $d >LKMSP4< ENTER VERBATIM RESPONSE ===>_________________________________________________________________ $edit [anychar] $end ------------------------------------------------------------------------------- COMMENT: IF 10, 11 OR 13 ONLY IN LKM1, LKM2 AND LKM3 AND N OR R IN LKM4 GOTO LKPS1 IF ONPATH ENTRY OF N FOR NO MORE IN LKM4 THEN GOTO LKAVL ELSE GOTO LKM5 $>LKACK3-C< [store <0> in index] [store < > in LKACK3(R_P)] [NIF LKM1(R_P) is <10> OR LKM1(R_P) is <11> then] [If onpath LKM1:R_P then store <1> in index] [ELSEIF LKM1(R_P) is <13> then] [If onpath LKM1:R_P then store <1> in index] [ENDIF] [NIF LKM2(R_P) is <10> OR LKM2(R_P) is <11> then] [If onpath LKM2:R_P then add <10> to index] [ELSEIF LKM2(R_P) is <13> then] [If onpath LKM2:R_P then add <10> to index] [ENDIF] [NIF LKM3(R_P) is <10> OR LKM3(R_P) is <11> then] [If onpath LKM3:R_P then add <10> to index] [ELSEIF LKM3(R_P) is <13> then] [If onpath LKM3:R_P then add <10> to index] [ENDIF] [NIF LKM4(R_P) is OR LKM4(R_P) is then] [If onpath LKM4:R_P then add <100> to index] [ENDIF] [NIF index eq <111> then] [store <1> in LKACK3(R_P)] [goto LKPS1] [ENDIF] [NIF LKM4(R_P) is OR LKM4(R_P) is then] [If onpath LKM4:R_P then store <2> in LKACK3(R_P)] [If onpath LKM4:R_P then goto LKAVL] [ENDIF] [store <3> in LKACK3(R_P)] $end ------------------------------------------------------------------------------- $>LKM5< [store < > in temptext] [store < > in havehas] [NIF R_P eq RESPLI then] [store in temptext] [store in havehas] [if curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [store in havehas] [ENDIF] $display >LKM5< Anything else? WHAT ARE ALL OF THE THINGS [FILL temptext] [FILL havehas] DONE TO FIND WORK DURING THE LAST 4 WEEKS? DO NOT READ ANSWER CATEGORIES ENTER FOR NO ADDITIONAL ANSWER [goto LKAVL] ACTIVE PASSIVE <1> Contacted employer <10> Looked at ads directly/interview <11> Attended job training <2> Contacted public employment agency programs/courses <3> Contacted private employment agency <4> Contacted friends or relatives <13> Other passive [goto LKMSP5] <5> Contacted school/university employment center <6> Sent out resumes/filled out applications <7> Checked union/professional registers <8> Placed or answered ads <9> Other active [goto LKMSP5] [blind] Refused [goto LKAVL] ===>__ [goto LKM6] $d [alt 1] >LKM5< ¨Alguna otra cosa? ¨Cu les son todas las cosas que [fill temptext] ha hecho para conseguir empleo durante las £ltimas 4 semanas? DO NOT READ ANSWER CATEGORIES ENTER FOR NO ADDITIONAL ANSWER ACTIVE PASSIVE <1> Se comunic¢ con el lugar de <10> Ley¢ anuncios en la prensa empleo directamente/entrevista <11> Asisti¢ a cursos/programas <2> Agencia de empleo p£blica de adiestramiento <3> Agencia de empleo privada <4> Amigos o parientes <13> Otra cosa pasiva[goto LKMSP5] <5> Centro de empleo de una escuela/universidad <6> Envi¢ resum‚/llen¢ solicitudes de empleo <7> Contest¢ o public¢ anuncios en la prensa <8> Consult¢ registros sindicales/profesionales <9> Otra cosa activa [goto LKMSP5] [blind] Refused ===>__ [goto LKM6] $edit [notequal LKM1(R_P)] [notequal LKM2(R_P)] [notequal LKM3(R_P)] [notequal LKM4(R_P)] $end ------------------------------------------------------------------------------- $>LKMSP5< $d >LKMSP5< ENTER VERBATIM RESPONSE ===>_________________________________________________________________ $edit [anychar] $end ------------------------------------------------------------------------------- $>LKM6< [store < > in temptext] [store < > in havehas] [NIF R_P eq RESPLI then] [store in temptext] [store in havehas] [if curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [store in havehas] [ENDIF] $display >LKM6< Anything else? WHAT ARE ALL OF THE THINGS [FILL temptext] [FILL havehas] DONE TO FIND WORK DURING THE LAST 4 WEEKS? DO NOT READ ANSWER CATEGORIES ENTER FOR NO ADDITIONAL ANSWER [goto LKAVL] ACTIVE PASSIVE <1> Contacted employer <10> Looked at ads directly/interview <11> Attended job training <2> Contacted public employment agency programs/courses <3> Contacted private employment agency <4> Contacted friends or relatives <13> Other passive [goto LKMSP6] <5> Contacted school/university employment center <6> Sent out resumes/filled out applications <7> Checked union/professional registers <8> Placed or answered ads <9> Other active [goto LKMSP6] [blind] Refused ===>__ [goto LKAVL] $d [alt 1] >LKM6< ¨Alguna otra cosa? ¨Cu les son todas las cosas que [fill temptext] ha hecho para conseguir empleo durante las £ltimas 4 semanas? DO NOT READ ANSWER CATEGORIES ENTER FOR NO ADDITIONAL ANSWER ACTIVE PASSIVE <1> Se comunic¢ con el lugar de <10> Ley¢ anuncios en la prensa empleo directamente/entrevista <11> Asisti¢ a cursos/programas <2> Agencia de empleo p£blica de adiestramiento <3> Agencia de empleo privada <4> Amigos o parientes <13> Otra cosa pasiva[goto LKMSP6] <5> Centro de empleo de una escuela/universidad <6> Envi¢ resum‚/llen¢ solicitudes de empleo <7> Contest¢ o public¢ anuncios en la prensa <8> Consult¢ registros sindicales/profesionales <9> Otra cosa activa [goto LKMSP6] [blind] Refused ===>__ [goto LKAVL] $edit [notequal LKM1(R_P)] [notequal LKM2(R_P)] [notequal LKM3(R_P)] [notequal LKM4(R_P)] [notequal LKM5(R_P)] $end ------------------------------------------------------------------------------- $>LKMSP6< $d >LKMSP6< ENTER VERBATIM RESPONSE ===>_________________________________________________________________ [goto LKAVL] $edit [anychar] $end ------------------------------------------------------------------------------- $>LKDK1< [store < > in temptext] [store < > in havehas] [store < > in youheshe] [NIF R_P eq RESPLI then] [store in temptext] [store in youheshe] [store in havehas] [If curralt eq <1> then store in temptext] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store name(R_P) in temptext] [store in youheshe] [store in havehas] [If curralt eq <1> then store in youheshe] [ELSE] [store name(R_P) in temptext] [store in youheshe] [store in havehas] [if curralt eq <1> then store <‚l> in youheshe] [ENDIF] $display >LKDK1< You said [fill temptext] [fill havehas] been trying to find work. How did [fill youheshe] go about looking? DO NOT READ ANSWER CATEGORIES ACTIVE PASSIVE <1> Contacted employer <10> Looked at ads directly/interview <11> Attended job training <2> Contacted public employment agency programs/courses <3> Contacted private employment agency <4> Contacted friends or relatives <13> Other passive [goto LKDKS1] <5> Contacted school/university employment center <6> Sent out resumes/filled out applications <7> Checked union/professional registers <8> Placed or answered ads <12> Nothing [goto DWCK1-C] <9> Other active [goto LKDKS1] [blind] Don't know [goto DWCK1-C] Refused [goto DWCK1-C] ===>__ [goto LKDK2] $d [alt 1] >LKDK1< Usted dijo que [fill temptext] ha estado tratando de conseguir empleo. ¨Qu‚ cosas ha hecho [fill youheshe] para buscar empleo? DO NOT READ ANSWER CATEGORIES ACTIVE PASSIVE <1> Se comunic¢ con el lugar de <10> ¨Ley¢ anuncios en la prensa empleo directamente/entrevista <11> Asisti¢ a cursos/programas <2> Agencia de empleo p£blica de adiestramiento <3> Agencia de empleo privada <4> Amigos o parientes <13> Otra cosa pasiva[goto LKDKS1] <5> Centro de empleo de una escuela/universidad <12> Ninguna cosa[goto DWCK1-C] <6> Envi¢ resum‚/llen¢ solicitudes de empleo <7> Contest¢ o public¢ anuncios en la prensa <8> Consult¢ registros sindicales/profesionales <9> Otra cosa active [goto LKDKS1] [blind] Don't know [goto DWCK1-C] Refused [goto DWCK1-C] ===>__ [goto LKDK2] $end ------------------------------------------------------------------------------- $>LKDKS1< $display >LKDKS1< ENTER VERBATIM RESPONSE [blind] Don't know Refused ===>_________________________________________________________________ $edit [anychar] $end -------------------------------------------------------------------------------- $>LKDK2< [store < > in temptext] [store < > in havehas] [store < > in youheshe] [NIF R_P eq RESPLI then] [store in temptext] [store in youheshe] [store in havehas] [if curralt eq <1> then store in temptext] [if curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store name(R_P) in temptext] [store in youheshe] [store in havehas] [if curralt eq <1> then store in youheshe] [ELSE] [store name(R_P) in temptext] [store in youheshe] [store in havehas] [if curralt eq <1> then store <‚l> in youheshe] [ENDIF] $display >LKDK2< Anything else? YOU SAID [fill temptext] [fill havehas] BEEN TRYING TO FIND WORK. HOW DID [fill youheshe] GO ABOUT LOOKING? DO NOT READ ANSWER CATEGORIES ENTER FOR NO ADDITIONAL ANSWER ACTIVE PASSIVE <1> Contacted employer <10> Looked at ads directly/interview <11> Attended job training <2> Contacted public employment agency programs/courses <3> Contacted private employment agency <4> Contacted friends or relatives <13> Other passive [goto LKDKS2] <5> Contacted school/university employment center <6> Sent out resumes/filled out applications <7> Checked union/professional registers <8> Placed or answered ads <9> Other active [goto LKDKS2] [blind] Refused ===>__ [goto LKACK4-C] $d [alt 1] >LKDK2< ¨Alguna otra cosa? Usted dijo que [fill temptext] ha estado tratando de conseguir empleo. ¨Qu‚ cosas ha hecho [fill youheshe] para buscar empleo? DO NOT READ ANSWER CATEGORIES ENTER FOR NO ADDITIONAL ANSWER ACTIVE PASSIVE <1> Se comunic¢ con el lugar de <10> ¨Ley¢ anuncios en la prensa empleo directamente/entrevista <11> Asisti¢ a cursos/programas <2> Agencia de empleo p£blica de adiestramiento <3> Agencia de empleo privada <4> Amigos o parientes <13> Otra cosa pasiva[goto LKDKS2] <5> Centro de empleo de una escuela/universidad <6> Envi¢ resum‚/llen¢ solicitudes de empleo <7> Contest¢ o public¢ anuncios en la prensa <8> Consult¢ registros sindicales/profesionales <9> Otra cosa active [goto LKDKS2] [blind] Refused ===>__ [goto LKACK4-C] $edit [notequal LKDK1(R_P)] $end ------------------------------------------------------------------------------- $>LKDKS2< $display >LKDKS2< ENTER VERBATIM RESPONSE FOR FIRST ANSWER [blind] Don't know Refused ===>_________________________________________________________________ $edit [anychar] $end -------------------------------------------------------------------------------- COMMENT: ENTRY OF 10,11 OR 13 IN LKDK1 AND N OR R IN LKDK2 GOTO DWCK1-C ENTRY OTHER THAN 10,11 OR 13 IN LKDK1 AND N OR R IN LKDK2 GOTO LKAVL ALL OTHERS GOTO LKDK3 $>LKACK4-C< [store < > in LKACK4(R_P)] [store <0> in index] [NIF LKDK1(R_P) is <13> then] [if onpath LKDK1:R_P then store <1> in index] [ELSEIF LKDK1(R_P) is <10> OR LKDK1(R_P) is <11> then] [If onpath LKDK1:R_P then store <1> in index] [ENDIF] [NIF LKDK2(R_P) is OR LKDK2(R_P) is then] [If onpath LKDK2:R_P then add <10> to index] [ENDIF] [NIF index eq <11> then] [store <1> in LKACK4(R_P)] [goto DWCK1-C] [ELSEIF index eq <10> then] [store <2> in LKACK4(R_P)] [goto LKAVL] [ENDIF] [store <3> in LKACK4(R_P)] $end ------------------------------------------------------------------------------- $>LKDK3< [store < > in temptext] [store < > in havehas] [store < > in youheshe] [NIF R_P eq RESPLI then] [store in temptext] [store in youheshe] [store in havehas] [if curralt eq <1> then store in temptext] [if curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store name(R_P) in temptext] [store in youheshe] [store in havehas] [if curralt eq <1> then store in youheshe] [ELSE] [store name(R_P) in temptext] [store in youheshe] [store in havehas] [if curralt eq <1> then store <‚l> in youheshe] [ENDIF] $display >LKDK3< Anything else? YOU SAID [fill temptext] [fill havehas] BEEN TRYING TO FIND WORK. HOW DID [fill youheshe] GO ABOUT LOOKING? DO NOT READ ANSWER CATEGORIES ENTER FOR NO ADDITIONAL ANSWER ACTIVE PASSIVE <1> Contacted employer <10> Looked at ads directly/interview <11> Attended job training <2> Contacted public employment agency programs/courses <3> Contacted private employment agency <4> Contacted friends or relatives <13> Other passive [goto LKDKS3] <5> Contacted school/university employment center <6> Sent out resumes/filled out applications <7> Checked union/professional registers <8> Placed or answered ads <9> Other active [goto LKDKS3] [blind] Refused ===>__ [goto LKACK5-C] $d [alt 1] >LKDK3< ¨Alguna otra cosa? Usted dijo que [fill temptext] ha estado tratando de conseguir empleo. ¨Qu‚ cosas ha hecho [fill youheshe] para buscar empleo? DO NOT READ ANSWER CATEGORIES ENTER FOR NO ADDITIONAL ANSWER ACTIVE PASSIVE <1> Se comunic¢ con el lugar de <10> ¨Ley¢ anuncios en la prensa empleo directamente/entrevista <11> Asisti¢ a cursos/programas <2> Agencia de empleo p£blica de adiestramiento <3> Agencia de empleo privada <4> Amigos o parientes <13> Otra cosa pasiva[goto LKDKS3] <5> Centro de empleo de una escuela/universidad <6> Envi¢ resum‚/llen¢ solicitudes de empleo <7> Contest¢ o public¢ anuncios en la prensa <8> Consult¢ registros sindicales/profesionales <9> Otra cosa active [goto LKDKS3] [blind] Refused ===>__ [goto LKACK5-C] $edit [notequal LKDK1(R_P)] [notequal LKDK2(R_P)] $end ------------------------------------------------------------------------------- $>LKDKS3< $display >LKDKS3< ENTER VERBATIM RESPONSE [blind] Don't know Refused ===>_________________________________________________________________ $edit [anychar] $end -------------------------------------------------------------------------------- COMMENT: 1) ENTRY OF 10,11 OR 13 IN LKDK1 AND 10,11 OR 13 IN LKDK2 AND N OR R IN LKDK3 THE GOTO DWCK1-C 2) ENTRY OTHER THAN 10,11 OR 13 IN LKDK1 AND LKDK2 AND N OR R IN LKDK3 THEN GOTO LKAVL 3) ALL OTHERS GOTO LKDK4 $>LKACK5-C< [store < > in LKACK5(R_P)] [store <0> in index] [NIF LKDK1(R_P) is <10> OR LKDK1(R_P) is <11> then] [If onpath LKDK1:R_P then store <1> in index] [ELSEIF LKDK1(R_P) is <13> then] [If onpath LKDK1:R_P then store <1> in index] [ENDIF] [NIF LKDK2(R_P) is <10> OR LKDK2(R_P) is <11> then] [If onpath LKDK2:R_P then add <10> to index] [ELSEIF LKDK2(R_P) is <13> then] [If onpath LKDK2:R_P then add <10> to index] [ENDIF] [NIF LKDK3(R_P) is OR LKDK3(R_P) is then] [If onpath LKDK3:R_P then add <100> to index] [ENDIF] [NIF index eq <111> then] [store <1> in LKACK5(R_P)] [goto DWCK1-C] [ENDIF] [NIF LKDK3(R_P) is OR LKDK3(R_P) is then] [if onpath LKDK3:R_P then store <2> in LKACK5(R_P)] [if onpath LKDK3:R_P then goto LKAVL] [ENDIF] [store <3> in LKACK5(R_P)] $end -------------------------------------------------------------------------------- $>LKDK4< [store < > in temptext] [store < > in havehas] [store < > in youheshe] [NIF R_P eq RESPLI then] [store in temptext] [store in youheshe] [store in havehas] [if curralt eq <1> then store in temptext] [if curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store name(R_P) in temptext] [store in youheshe] [store in havehas] [if curralt eq <1> then store in youheshe] [ELSE] [store name(R_P) in temptext] [store in youheshe] [store in havehas] [if curralt eq <1> then store <‚l> in youheshe] [ENDIF] $display >LKDK4< Anything else? YOU SAID [fill temptext] [fill havehas] BEEN TRYING TO FIND WORK. HOW DID [fill youheshe] GO ABOUT LOOKING? DO NOT READ ANSWER CATEGORIES ENTER FOR NO ADDITIONAL ANSWER ACTIVE PASSIVE <1> Contacted employer <10> Looked at ads directly/interview <11> Attended job training <2> Contacted public employment agency programs/courses <3> Contacted private employment agency <4> Contacted friends or relatives <13> Other passive [goto LKDKS4] <5> Contacted school/university employment center <6> Sent out resumes/filled out applications <7> Checked union/professional registers <8> Placed or answered ads <9> Other active [goto LKDKS4] [blind] Refused ===>__ [goto LKACK6-C] $d [alt 1] >LKDK4< ¨Alguna otra cosa? Usted dijo que [fill temptext] ha estado tratando de conseguir empleo. ¨Qu‚ cosas ha hecho [fill youheshe] para buscar empleo? DO NOT READ ANSWER CATEGORIES ENTER FOR NO ADDITIONAL ANSWER ACTIVE PASSIVE <1> Se comunic¢ con el lugar de <10> ¨Ley¢ anuncios en la prensa empleo directamente/entrevista <11> Asisti¢ a cursos/programas <2> Agencia de empleo p£blica de adiestramiento <3> Agencia de empleo privada <4> Amigos o parientes <13> Otra cosa pasiva[goto LKDKS4] <5> Centro de empleo de una escuela/universidad <6> Envi¢ resum‚/llen¢ solicitudes de empleo <7> Contest¢ o public¢ anuncios en la prensa <8> Consult¢ registros sindicales/profesionales <9> Otra cosa active [goto LKDKS4] [blind] Refused ===>__ [goto LKACK6-C] $edit [notequal LKDK1(R_P)] [notequal LKDK2(R_P)] [notequal LKDK3(R_P)] $end ------------------------------------------------------------------------------- $>LKDKS4< $display >LKDKS4< ENTER VERBATIM RESPONSE [blind] Don't know Refused ===>_________________________________________________________________ $edit [anychar] $end -------------------------------------------------------------------------------- COMMENT: 1) ENTRY OF 10,11 OR 13 IN LKDK1 AND 10,11 OR 13 IN LKDK2 AND 10,11 OR 13 IN LKDK3 AND N OR R IN LKDK4 THE GOTO DWCK1 2) ENTRY OTHER THAN 10,11 OR 13 IN LKDK1, LKDK2 AND LKDK3 AND N OR R IN LKDK4 THEN GOTO LKAVL 3) ALL OTHERS GOTO LKDK5 $>LKACK6-C< [store < > in LKACK6(R_P)] [store <0> in index] [NIF LKDK1(R_P) is <10> OR LKDK1(R_P) is <11> then] [If onpath LKDK1:R_P then store <1> in index] [ELSEIF LKDK1(R_P) is <13> then] [If onpath LKDK1:R_P then store <1> in index] [ENDIF] [NIF LKDK2(R_P) is <10> OR LKDK2(R_P) is <11> then] [If onpath LKDK2:R_P then add <10> to index] [ELSEIF LKDK2(R_P) is <13> then] [If onpath LKDK2:R_P then add <10> to index] [ENDIF] [NIF LKDK3(R_P) is <10> OR LKDK3(R_P) is <11> then] [If onpath LKDK3:R_P then add <100> to index] [ELSEIF LKDK3(R_P) is <13> then] [If onpath LKDK3:R_P then add <100> to index] [ENDIF] [NIF LKDK4(R_P) is OR LKDK4(R_P) is then] [If onpath LKDK4:R_P then add <1000> to index] [ENDIF] [NIF index eq <1111> then] [store <1> in LKACK6(R_P)] [goto DWCK1-C] [ENDIF] [NIF LKDK4(R_P) is OR LKDK4(R_P) is then] [if onpath LKDK4:R_P then store <2> in LKACK6(R_P)] [if onpath LKDK4:R_P then goto LKAVL] [ENDIF] [store <3> in LKACK6(R_P)] $end -------------------------------------------------------------------------------- $>LKDK5< [store < > in temptext] [store < > in havehas] [store < > in youheshe] [NIF R_P eq RESPLI then] [store in temptext] [store in youheshe] [store in havehas] [if curralt eq <1> then store in temptext] [if curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store name(R_P) in temptext] [store in youheshe] [store in havehas] [if curralt eq <1> then store in youheshe] [ELSE] [store name(R_P) in temptext] [store in youheshe] [store in havehas] [if curralt eq <1> then store <‚l> in youheshe] [ENDIF] $display >LKDK5< Anything else? YOU SAID [fill temptext] [fill havehas] BEEN TRYING TO FIND WORK. HOW DID [fill youheshe] GO ABOUT LOOKING? DO NOT READ ANSWER CATEGORIES ENTER FOR NO ADDITIONAL ANSWER [goto LKAVL] ACTIVE PASSIVE <1> Contacted employer <10> Looked at ads directly/interview <11> Attended job training <2> Contacted public employment agency programs/courses <3> Contacted private employment agency <4> Contacted friends or relatives <13> Other passive [goto LKDKS5] <5> Contacted school/university employment center <6> Sent out resumes/filled out applications <7> Checked union/professional registers <8> Placed or answered ads <9> Other active [goto LKDKS5] [blind] Refused [goto LKAVL] ===>__ [goto LKDK6] $d [alt 1] >LKDK5< ¨Alguna otra cosa? Usted dijo que [fill temptext] ha estado tratando de conseguir empleo. ¨Qu‚ cosas ha hecho [fill youheshe] para buscar empleo? DO NOT READ ANSWER CATEGORIES ENTER FOR NO ADDITIONAL ANSWER ACTIVE PASSIVE <1> Se comunic¢ con el lugar de <10> ¨Ley¢ anuncios en la prensa empleo directamente/entrevista <11> Asisti¢ a cursos/programas <2> Agencia de empleo p£blica de adiestramiento <3> Agencia de empleo privada <4> Amigos o parientes <13> Otra cosa pasiva[goto LKDKS5] <5> Centro de empleo de una escuela/universidad <6> Envi¢ resum‚/llen¢ solicitudes de empleo <7> Contest¢ o public¢ anuncios en la prensa <8> Consult¢ registros sindicales/profesionales <9> Otra cosa active [goto LKDKS5] [blind] Refused [goto LKAVL] ===>__ [goto LKDK6] $edit [notequal LKDK1(R_P)] [notequal LKDK2(R_P)] [notequal LKDK3(R_P)] [notequal LKDK4(R_P)] $end ------------------------------------------------------------------------------- $>LKDKS5< $display >LKDKS5< ENTER VERBATIM RESPONSE [blind] Don't know Refused ===>_________________________________________________________________ $edit [anychar] $end -------------------------------------------------------------------------------- $>LKDK6< [store < > in temptext] [store < > in havehas] [store < > in youheshe] [NIF R_P eq RESPLI then] [store in temptext] [store in youheshe] [store in havehas] [if curralt eq <1> then store in temptext] [if curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store name(R_P) in temptext] [store in youheshe] [store in havehas] [if curralt eq <1> then store in youheshe] [ELSE] [store name(R_P) in temptext] [store in youheshe] [store in havehas] [if curralt eq <1> then store <‚l> in youheshe] [ENDIF] $display >LKDK6< Anything else? YOU SAID [fill temptext] [fill havehas] BEEN TRYING TO FIND WORK. HOW DID [fill youheshe] GO ABOUT LOOKING? DO NOT READ ANSWER CATEGORIES ENTER FOR NO ADDITIONAL ANSWER ACTIVE PASSIVE <1> Contacted employer <10> Looked at ads directly/interview <11> Attended job training <2> Contacted public employment agency programs/courses <3> Contacted private employment agency <4> Contacted friends or relatives <13> Other passive [goto LKDKS6] <5> Contacted school/university employment center <6> Sent out resumes/filled out applications <7> Checked union/professional registers <8> Placed or answered ads <9> Other active [goto LKDKS6] [blind] Refused ===>__ [goto LKAVL] $d [alt 1] >LKDK6< ¨Alguna otra cosa? Usted dijo que [fill temptext] ha estado tratando de conseguir empleo. ¨Qu‚ cosas ha hecho [fill youheshe] para buscar empleo? DO NOT READ ANSWER CATEGORIES ENTER FOR NO ADDITIONAL ANSWER ACTIVE PASSIVE <1> Se comunic¢ con el lugar de <10> ¨Ley¢ anuncios en la prensa empleo directamente/entrevista <11> Asisti¢ a cursos/programas <2> Agencia de empleo p£blica de adiestramiento <3> Agencia de empleo privada <4> Amigos o parientes <13> Otra cosa pasiva[goto LKDKS6] <5> Centro de empleo de una escuela/universidad <6> Envi¢ resum‚/llen¢ solicitudes de empleo <7> Contest¢ o public¢ anuncios en la prensa <8> Consult¢ registros sindicales/profesionales <9> Otra cosa active [goto LKDKS6] [blind] Refused ===>__ [goto LKAVL] $edit [notequal LKDK1(R_P)] [notequal LKDK2(R_P)] [notequal LKDK3(R_P)] [notequal LKDK4(R_P)] [notequal LKDK5(R_P)] $end ------------------------------------------------------------------------------- $>LKDKS6< $display >LKDKS6< ENTER VERBATIM RESPONSE FOR FIRST ANSWER [blind] Don't know Refused ===>_________________________________________________________________ [goto LKAVL] $edit [anychar] $end ------------------------------------------------------------------------------- $>LKPS1< [store < > in youheshe] [NIF R_P eq RESPLI then] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [if curralt eq <1> then store <‚l> in youheshe] [ENDIF] $display >LKPS1< Can you tell me more about what [fill youheshe] did to search for work? DO NOT READ ANSWER CATEGORIES ACTIVE PASSIVE <1> Contacted employer <10> Looked at ads directly/interview <11> Attended job training <2> Contacted public employment agency programs/courses <3> Contacted private employment agency <4> Contacted friends or relatives <13> Other passive [goto LKPSP1] <5> Contacted school/university employment center <6> Sent out resumes/filled out applications <7> Checked union/professional registers <8> Placed or answered ads <12> Nothing [goto DWCK1-C] <9> Other active [goto LKPSP1] NO [goto DWCK1-C] [blind] Don't know [goto DWCK1-C] Refused [goto DWCK1-C] ===>__ [goto LKPS2] $d [alt 1] >LKPS1< ¨Qu‚ m s puede decirme acerca de las cosas que [fill youheshe] hizo para buscar empleo? DO NOT READ ANSWER CATEGORIES ACTIVE PASSIVE <1> Se comunic¢ con el lugar de <10> ¨Ley¢ anuncios en la prensa empleo directamente/entrevista <11> Asisti¢ a cursos/programas <2> Agencia de empleo p£blica de adiestramiento <3> Agencia de empleo privada <4> Amigos o parientes <13> Otra cosa pasiva[goto LKPSP1] <5> Centro de empleo de una escuela/universidad <12> Ninguna cosa [goto DWCK1-C] <6> Envi¢ resum‚/llen¢ solicitudes de empleo <7> Contest¢ o public¢ anuncios en la prensa <8> Consult¢ registros sindicales/profesionales <9> Otra cosa active [goto LKPSP1] NO [goto DWCK1-C] [blind] Don't know [goto DWCK1-C] Refused [goto DWCK1-C] ===>__ [goto LKPS2] $end ------------------------------------------------------------------------------- $>LKPSP1< $display >LKPSP1< ENTER VERBATIM RESPONSE [blind] Don't know Refused ===>_________________________________________________________________ $edit [anychar] $end -------------------------------------------------------------------------------- $>LKPS2< [store < > in youheshe] [NIF R_P eq RESPLI then] [store in youheshe] [if curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [if curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [if curralt eq <1> then store <‚l> in youheshe] [ENDIF] $display >LKPS2< Anything else? CAN YOU TELL ME MORE ABOUT WHAT [fill youheshe] DID TO SEARCH FOR WORK? DO NOT READ ANSWER CATEGORIES ENTER FOR NO ADDITIONAL ANSWER ACTIVE PASSIVE <1> Contacted employer <10> Looked at ads directly/interview <11> Attended job training <2> Contacted public employment agency programs/courses <3> Contacted private employment agency <4> Contacted friends or relatives <13> Other passive [goto LKPSP2] <5> Contacted school/university employment center <6> Sent out resumes/filled out applications <7> Checked union/professional registers <8> Placed or answered ads <9> Other active [goto LKPSP2] [blind] Refused ===>__ [goto LKACK7-C] $d [alt 1] >LKPS2< ¨Alguna otra cosa? ¨Qu‚ m s puede decirme acerca de las cosas que [fill youheshe] hizo para buscar empleo? DO NOT READ ANSWER CATEGORIES ENTER FOR NO ADDITIONAL ANSWER ACTIVE PASSIVE <1> Se comunic¢ con el lugar de <10> ¨Ley¢ anuncios en la prensa empleo directamente/entrevista <11> Asisti¢ a cursos/programas <2> Agencia de empleo p£blica de adiestramiento <3> Agencia de empleo privada <4> Amigos o parientes <13> Otra cosa pasiva[goto LKPSP2] <5> Centro de empleo de una escuela/universidad <6> Envi¢ resum‚/llen¢ solicitudes de empleo <7> Contest¢ o public¢ anuncios en la prensa <8> Consult¢ registros sindicales/profesionales <9> Otra cosa active [goto LKPSP2] [blind] Refused ===>__ [goto LKACK7-C] $edit [notequal LKPS1(R_P)] $end ------------------------------------------------------------------------------- $>LKPSP2< $display >LKPSP2< ENTER VERBATIM RESPONSE [blind] Don't know Refused ===>_________________________________________________________________ $edit [anychar] $end -------------------------------------------------------------------------------- COMMENT: 1) ENTRY OF 10,11 OR 13 IN LKPS1 AND N OR R IN LKPS2 GOTO DWCK1-C 2) ENTRY OF N OR R IN LKPS2 GOTO LKAVL 3) ALL OTHERS GOTO LKPS3 $>LKACK7-C< [store < > in LKACK7(R_P)] [store <0> in index] [NIF LKPS1(R_P) is <13> then] [if onpath LKPS1:R_P then store <1> in index] [ELSEIF LKPS1(R_P) is <10> OR LKPS1(R_P) is <11> then] [If onpath LKPS1:R_P then store <1> in index] [ENDIF] [NIF LKPS2(R_P) is OR LKPS2(R_P) is then] [If onpath LKPS2:R_P then add <10> to index] [ENDIF] [NIF index eq <11> then] [store <1> in LKACK7(R_P)] [goto DWCK1-C] [ELSEIF index eq <10> then] [store <2> in LKACK7(R_P)] [goto LKAVL] [ENDIF] [store <3> in LKACK7(R_P)] $end ------------------------------------------------------------------------------- $>LKPS3< [store < > in youheshe] [NIF R_P eq RESPLI then] [store in youheshe] [if curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [if curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [if curralt eq <1> then store <‚l> in youheshe] [ENDIF] $display >LKPS3< Anything else? CAN YOU TELL ME MORE ABOUT WHAT [fill youheshe] DID TO SEARCH FOR WORK? DO NOT READ ANSWER CATEGORIES ENTER FOR NO ADDITIONAL ANSWER ACTIVE PASSIVE <1> Contacted employer <10> Looked at ads directly/interview <11> Attended job training <2> Contacted public employment agency programs/courses <3> Contacted private employment agency <4> Contacted friends or relatives <13> Other passive [goto LKPSP3] <5> Contacted school/university employment center <6> Sent out resumes/filled out applications <7> Checked union/professional registers <8> Placed or answered ads <9> Other active [goto LKPSP3] [blind] Refused ===>__ [goto LKACK8-C] $d [alt 1] >LKPS3< ¨Alguna otra cosa? ¨Qu‚ m s puede decirme acerca de las cosas que [fill youheshe] hizo para buscar empleo? DO NOT READ ANSWER CATEGORIES ENTER FOR NO ADDITIONAL ANSWER ACTIVE PASSIVE <1> Se comunic¢ con el lugar de <10> ¨Ley¢ anuncios en la prensa empleo directamente/entrevista <11> Asisti¢ a cursos/programas <2> Agencia de empleo p£blica de adiestramiento <3> Agencia de empleo privada <4> Amigos o parientes <13> Otra cosa pasiva[goto LKPSP3] <5> Centro de empleo de una escuela/universidad <6> Envi¢ resum‚/llen¢ solicitudes de empleo <7> Contest¢ o public¢ anuncios en la prensa <8> Consult¢ registros sindicales/profesionales <9> Otra cosa active [goto LKPSP3] [blind] Refused ===>__ [goto LKACK8-C] $edit [notequal LKPS1(R_P)] [notequal LKPS2(R_P)] $end ------------------------------------------------------------------------------- $>LKPSP3< $display >LKPSP3< ENTER VERBATIM RESPONSE [blind] Don't know Refused ===>_________________________________________________________________ $edit [anychar] $end -------------------------------------------------------------------------------- COMMENT: 1) ENTRY OF 10,11 OR 13 IN LKPS1 AND 10,11 OR 13 IN LKPS2 AND N OR R IN LKPS3 THEN GOTO DWCK1-C 2) ENTRY OF N OR R IN LKPS3 THEN GOTO LKAVL 3) ALL OTHERS GOTO LKPS3 $>LKACK8-C< [store < > in LKACK8(R_P)] [store <0> in index] [NIF LKPS1(R_P) is <10> OR LKPS1(R_P) is <11> then] [If onpath LKPS1:R_P then store <1> in index] [ELSEIF LKPS1(R_P) is <13> then] [If onpath LKPS1:R_P then store <1> in index] [ENDIF] [NIF LKPS2(R_P) is <10> OR LKPS2(R_P) is <11> then] [If onpath LKPS2:R_P then add <10> to index] [ELSEIF LKPS2(R_P) is <13> then] [If onpath LKPS2:R_P then add <10> to index] [ENDIF] [NIF LKPS3(R_P) is OR LKPS3(R_P) is then] [If onpath LKPS3:R_P then add <100> to index] [ENDIF] [NIF index eq <111> then] [store <1> in LKACK8(R_P)] [goto DWCK1-C] [ENDIF] [NIF LKPS3(R_P) is OR LKPS3(R_P) is then] [if onpath LKPS3:R_P then store <2> in LKACK8(R_P)] [if onpath LKPS3:R_P then goto LKAVL] [ENDIF] [store <3> in LKACK8(R_P)] $end -------------------------------------------------------------------------------- $>LKPS4< [store < > in youheshe] [NIF R_P eq RESPLI then] [store in youheshe] [if curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [if curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [if curralt eq <1> then store <‚l> in youheshe] [ENDIF] $display >LKPS4< Anything else? CAN YOU TELL ME MORE ABOUT WHAT [fill youheshe] DID TO SEARCH FOR WORK? DO NOT READ ANSWER CATEGORIES ENTER FOR NO ADDITIONAL ANSWER ACTIVE PASSIVE <1> Contacted employer <10> Looked at ads directly/interview <11> Attended job training <2> Contacted public employment agency programs/courses <3> Contacted private employment agency <4> Contacted friends or relatives <13> Other passive [goto LKPSP4] <5> Contacted school/university employment center <6> Sent out resumes/filled out applications <7> Checked union/professional registers <8> Placed or answered ads <9> Other active [goto LKPSP4] [blind] Refused ===>__ [goto LKACK9-C] $d [alt 1] >LKPS4< ¨Alguna otra cosa? ¨Qu‚ m s puede decirme acerca de las cosas que [fill youheshe] hizo para buscar empleo? DO NOT READ ANSWER CATEGORIES ENTER FOR NO ADDITIONAL ANSWER ACTIVE PASSIVE <1> Se comunic¢ con el lugar de <10> ¨Ley¢ anuncios en la prensa empleo directamente/entrevista <11> Asisti¢ a cursos/programas <2> Agencia de empleo p£blica de adiestramiento <3> Agencia de empleo privada <4> Amigos o parientes <13> Otra cosa pasiva[goto LKPSP4] <5> Centro de empleo de una escuela/universidad <6> Envi¢ resum‚/llen¢ solicitudes de empleo <7> Contest¢ o public¢ anuncios en la prensa <8> Consult¢ registros sindicales/profesionales <9> Otra cosa active [goto LKPSP4] [blind] Refused ===>__ [goto LKACK9-C] $edit [notequal LKPS1(R_P)] [notequal LKPS2(R_P)] [notequal LKPS3(R_P)] $end ------------------------------------------------------------------------------- $>LKPSP4< $display >LKPSP4< ENTER VERBATIM RESPONSE [blind] Don't know Refused ===>_________________________________________________________________ $edit [anychar] $end -------------------------------------------------------------------------------- COMMENT: 1) ENTRY OF 10,11 OR 13 IN LKPS1 AND 10,11 OR 13 IN LKPS2 AND LKPS3 AND N OR R IN LKPS4 THEN GOTO DWCK1-C 2) ENTRY OF N OR R IN LKPS4 THEN GOTO LKAVL 3) ALL OTHERS GOTO LKPS5 $>LKACK9-C< [store < > in LKACK9(R_P)] [store <0> in index] [NIF LKPS1(R_P) is <10> OR LKPS1(R_P) is <11> then] [If onpath LKPS1:R_P then store <1> in index] [ELSEIF LKPS1(R_P) is <13> then] [If onpath LKPS1:R_P then store <1> in index] [ENDIF] [NIF LKPS2(R_P) is <10> OR LKPS2(R_P) is <11> then] [If onpath LKPS2:R_P then add <10> to index] [ELSEIF LKPS2(R_P) is <13> then] [If onpath LKPS2:R_P then add <10> to index] [ENDIF] [NIF LKPS3(R_P) is <10> OR LKPS3(R_P) is <11> then] [If onpath LKPS3:R_P then add <100> to index] [ELSEIF LKPS3(R_P) is <13> then] [If onpath LKPS3:R_P then add <100> to index] [ENDIF] [NIF LKPS4(R_P) is OR LKPS4(R_P) is then] [If onpath LKPS4:R_P then add <1000> to index] [ENDIF] [NIF index eq <1111> then] [store <1> in LKACK9(R_P)] [goto DWCK1-C] [ENDIF] [NIF LKPS4(R_P) is OR LKPS4(R_P) is then] [if onpath LKPS4:R_P then store <2> in LKACK9(R_P)] [if onpath LKPS4:R_P then goto LKAVL] [ENDIF] [store <3> in LKACK9(R_P)] $end ------------------------------------------------------------------------------ $>LKPS5< [store < > in youheshe] [NIF R_P eq RESPLI then] [store in youheshe] [if curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [if curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [if curralt eq <1> then store <‚l> in youheshe] [ENDIF] $display >LKPS5< Anything else? CAN YOU TELL ME MORE ABOUT WHAT [fill youheshe] DID TO SEARCH FOR WORK? DO NOT READ ANSWER CATEGORIES ENTER FOR NO ADDITIONAL ANSWER [goto LKAVL] ACTIVE PASSIVE <1> Contacted employer <10> Looked at ads directly/interview <11> Attended job training <2> Contacted public employment agency programs/courses <3> Contacted private employment agency <4> Contacted friends or relatives <13> Other passive [goto LKPSP5] <5> Contacted school/university employment center <6> Sent out resumes/filled out applications <7> Checked union/professional registers <8> Placed or answered ads <9> Other active [goto LKPSP5] [blind] Refused [goto LKAVL] ===>__ [goto LKPS6] $d [alt 1] >LKPS5< ¨Alguna otra cosa? ¨Qu‚ m s puede decirme acerca de las cosas que [fill youheshe] hizo para buscar empleo? DO NOT READ ANSWER CATEGORIES ENTER FOR NO ADDITIONAL ANSWER ACTIVE PASSIVE <1> Se comunic¢ con el lugar de <10> ¨Ley¢ anuncios en la prensa empleo directamente/entrevista <11> Asisti¢ a cursos/programas <2> Agencia de empleo p£blica de adiestramiento <3> Agencia de empleo privada <4> Amigos o parientes <13> Otra cosa pasiva[goto LKPSP5] <5> Centro de empleo de una escuela/universidad <6> Envi¢ resum‚/llen¢ solicitudes de empleo <7> Contest¢ o public¢ anuncios en la prensa <8> Consult¢ registros sindicales/profesionales <9> Otra cosa active [goto LKPSP5] [blind] Refused [goto LKAVL] ===>__ [goto LKPS6] $edit [notequal LKPS1(R_P)] [notequal LKPS2(R_P)] [notequal LKPS3(R_P)] [notequal LKPS4(R_P)] $end ------------------------------------------------------------------------------- $>LKPSP5< $display >LKPSP5< ENTER VERBATIM RESPONSE [blind] Don't know Refused ===>_________________________________________________________________ $edit [anychar] $end -------------------------------------------------------------------------------- $>LKPS6< [store < > in youheshe] [NIF R_P eq RESPLI then] [store in youheshe] [if curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [if curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [if curralt eq <1> then store <‚l> in youheshe] [ENDIF] $display >LKPS6< Anything else? CAN YOU TELL ME MORE ABOUT WHAT [fill youheshe] DID TO SEARCH FOR WORK? DO NOT READ ANSWER CATEGORIES ENTER FOR NO ADDITIONAL ANSWER [goto LKAVL] ACTIVE PASSIVE <1> Contacted employer <10> Looked at ads [goto DWCK1-C] directly/interview <11> Attended job training [goto DWCK1-C] <2> Contacted public employment agency programs/courses <3> Contacted private employment agency <4> Contacted friends or relatives <13> Other passive [goto LKPSP6] <5> Contacted school/university employment center <6> Sent out resumes/filled out applications <7> Checked union/professional registers <8> Placed or answered ads <9> Other active [goto LKPSP6] [blind] Refused ===>__ [goto LKAVL] $d [alt 1] >LKPS6< ¨Alguna otra cosa? ¨Qu‚ m s puede decirme acerca de las cosas que [fill youheshe] hizo para buscar empleo? DO NOT READ ANSWER CATEGORIES ENTER FOR NO ADDITIONAL ANSWER ACTIVE PASSIVE <1> Se comunic¢ con el lugar de <10> ¨Ley¢ anuncios en la prensa empleo directamente/entrevista <11> Asisti¢ a cursos/programas <2> Agencia de empleo p£blica de adiestramiento <3> Agencia de empleo privada <4> Amigos o parientes <13> Otra cosa pasiva[goto LKPSP6] <5> Centro de empleo de una escuela/universidad <6> Envi¢ resum‚/llen¢ solicitudes de empleo <7> Contest¢ o public¢ anuncios en la prensa <8> Consult¢ registros sindicales/profesionales <9> Otra cosa active [goto LKPSP6] [blind] Refused ===>__ [goto LKAVL] $edit [notequal LKPS1(R_P)] [notequal LKPS2(R_P)] [notequal LKPS3(R_P)] [notequal LKPS4(R_P)] [notequal LKPS5(R_P)] $end ------------------------------------------------------------------------------- $>LKPSP6< $display >LKPSP6< ENTER VERBATIM RESPONSE [blind] Don't know Refused ===>_________________________________________________________________ $edit [anychar] $end -------------------------------------------------------------------------------- $>LKAVL< [store < > in youheshe] [NIF R_P eq RESPLI then] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <1> then] [store in youheshe] [If curralt eq <1> then store <‚l> in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [If curralt eq <1> then store in youheshe] [ENDIF] THIS CODE SETS-UP THE REFERENCE WEEK FILL IN THE VARIABLE "WHATWEEK". [store <0> in index] [store day-i in index] [CASE wkday1-c] [OF then] [subtract <1> from index] [OF then] [subtract <2> from index] [OF then] [subtract <3> from index] [OF then] [subtract <4> from index] [OF then] [subtract <5> from index] [OF then] [subtract <6> from index] [ENDCASE] [store in WHATWEEK] [store in swhatwk] ** SPD ** default last week $d >LKAVL< [fill whatweek], could [fill youheshe] have started a job if one had been offered? <1> Yes <2> No [goto LKAVR] [blind] Don't know Refused ===>_ [goto LKCK3-C] $d [alt 1] >LKAVL< [fill swhatwk], ¨podr¡a [fill youheshe] haber empezado a trabajar si le hubieran ofrecido empleo? <1> S¡ <2> No [goto LKAVR] [blind] Don't know Refused ===>_ [goto LKCK3-C] $end ------------------------------------------------------------------------------- $>LKAVR< [indirect] $d >LKAVR< Why is that? <1> Waiting for new job to begin [goto LKCK3-C] <2> Own temporary illness [goto LKCK3-C] <3> Going to school <4> Other (specify) [goto LKAVS] [blind] Don't know Refused ===>_ [goto JHCK1-C] $d [alt 1] >LKAVR< ¨Por qu‚ raz¢n? <1> Esperando a empezar en un nuevo empleo [goto LKCK3-C] <2> Enfermedad propia temporal/temporera [goto LKCK3-C] <3> Est  asistiendo a la escuela/universidad <4> Otra raz¢n (especifique) [goto LKAVS] [blind] Don't know Refused ===>_ [goto JHCK1-C] $end ------------------------------------------------------------------------------- $>LKAVS< $D >LKAVS< ENTER VERBATIM RESPONSE ===>_________________________________________________________________ [goto JHCK1-C] $edit [anychar] $end ------------------------------------------------------------------------------- COMMENT: 1) IF MISCK EQ 1 OR 5 OR I-MLR ISNT 4 THEN GOTO LKLL1 2) ALL OTHERS GOTO LKCK3A-C $>LKCK3-C< [store < > in LKCK3(R_P)] [NIF MISCK is <1> OR MISCK is <5> then] [store <1> in LKCK3(R_P)] [goto LKLL1] [ELSEIF I-MLR(R_P) isnt <4> then] [store <1> in LKCK3(R_P)] [goto LKLL1] [ENDIF] [store <2> in LKCK3(R_P)] $end ---------------------------------------------------------------------------- COMMENT: 1) IF I-LKLL1 ISNT D,R OR BLANK STORE I-LK1 IN LKLL1O THEN IF LKLL1O IS 1 GOTO LKCK3B-C 2) IF LKLL1O IS 1 THEN GOTO LKCK3C-C 3) ALL OTHERS GOTO LKLL1 $>LKCK3A-C< [store < > in LKCK3A(R_P)] [NIF I-LK1(R_P) is OR I-LK1(R_P) is then] [store <3> in LKCK3A(R_P)] [goto LKLL1] [ELSEIF I-LK1(R_P) is < > then] [store <3> in LKCK3A(R_P)] [goto LKLL1] [ENDIF] [store I-LK1(R_P) in LKLL1O(R_P)] [NIF LKLL1O(R_P) is <1> then] [store <1> in LKCK3A(R_P)] [goto LKCK3B-C] [ENDIF] [store <2> in LKCK3A(R_P)] [goto LKCK3C-C] $end ---------------------------------------------------------------------------- $>LKLL1< [store < > in werewas] [store < > in youheshe] [store < > in temptext] [NIF R_P eq RESPLI then] [store in youheshe] [store in werewas] [store in temptext] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [store in werewas] [store name(R_P) in temptext] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [store in werewas] [store name(R_P) in temptext] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] $d >LKLL1< BEFORE [fill temptext] started looking for work, what [fill werewas] [fill youheshe] doing: working, going to school or something else? <1> Working [store <1> in LKLL1O(R_P)] [goto LKCK3B-C] <2> School [store <2> in LKLL1O(R_P)] <3> Left military service [store <3> in LKLL1O(R_P)] [store <2> in LKLL2O(R_P)] <4> Something else [store <4> in LKLL1O(R_P)] [goto LKLL1S] [blind] Don't know [store in LKLL1O(R_P)] Refused [store in LKLL1O(R_P)] ===>_ [goto LKCK3C-C] $d [alt 1] >LKLL1< ANTES de que [fill youheshe] empezara a buscar empleo, ¨qu‚ estaba haciendo, estaba: trabajando, asistiendo a la escuela/universidad, o alguna otra cosa? <1> Trabajando [store <1> in LKLL1O(R_P)] [goto LKCK3B-C] <2> Asistiendo a la escuela/universidad [store <2> in LKLL1O(R_P)] <3> Sali¢ del servicio militar [store <3> in LKLL1O(R_P)] [store <2> in LKLL2O(R_P)] <4> Otra cosa (especifique) [store <4> in LKLL1O(R_P)] [goto LKLL1S] [blind] Don't know [store in LKLL1O(R_P)] Refused [store in LKLL1O(R_P)] ===>_ [goto LKCK3C-C] $end ------------------------------------------------------------------------------- $>LKLL1S< $d >LKLL1S< ENTER VERBATIM RESPONSE ===>________________________________________________________________ [goto LKCK3C-C] $edit [anychar] $end ------------------------------------------------------------------------------- COMMENT: 1) IF MISCK EQ 1 OR 5 OR I-MLR NQ 4 THEN GOTO LKLL2 2) IF I-LK2 NQ D, R OR BLANK PLACE I-LK2 IN LKLL2O AND GOTO LKCK3C-C 3) ALL OTHERS GOTO LKLL2 $>LKCK3B-C< [store < > in LKCK3B(R_P)] [NIF MISCK is <1> OR MISCK is <5> then] [store <1> in LKCK3B(R_P)] [goto LKLL2] [ELSEIF I-MLR(R_P) isnt <4> then] [store <1> in LKCK3B(R_P)] [goto LKLL2] [ENDIF] [NIF I-LK2(R_P) is OR I-LK2(R_P) is then] [store <3> in LKCK3B(R_P)] [goto LKLL2] [ELSEIF I-LK2(R_P) is < > then] [store <3> in LKCK3B(R_P)] [goto LKLL2] [ENDIF] [store I-LK2(R_P) in LKLL2O(R_P)] [store <2> in LKCK3B(R_P)] [goto LKCK3C-C] $end ------------------------------------------------------------------------------ $>LKLL2< [indirect] [store < > in youheshe] [NIF R_P eq RESPLI then] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] [store < > in temp2] [If curralt eq <1> then store youheshe in temp2] $d >LKLL2< Did [fill youheshe] lose or quit that job, or was it a temporary job that ended? [fill temp2] <1> Lost job [store <1> in LKLL2O(R_P)] <2> Quit job [store <2> in LKLL2O(R_P)] <3> Temporary job ended [store <3> in LKLL2O(R_P)] [blind] Don't know [store in LKLL2O(R_P)] Refused [store in LKLL2O(R_P)] ===>_ $d [alt 1] >LKLL2< ¨Perdi¢ [fill youheshe] ese empleo o renunci¢ [fill temp2] a ese empleo, o era un empleo temporal/temporero que lleg¢ a su fin? <1> Perdi¢ el empleo [store <1> in LKLL2O(R_P)] <2> Renunci¢ al empleo [store <2> in LKLL2O(R_P)] <3> Empleo temporal/temporero que se termin¢ [store <3> in LKLL2O(R_P)] [blind] Don't know [store in LKLL2O(R_P)] Refused [store in LKLL2O(R_P)] ===>_ $end ------------------------------------------------------------------------------- COMMENT: 1) IF MISCK IS 1 OR 5 OR I-MLR ISNT 4 GOTO LKLW 2) IF I-LKLW IS D,R OR BLANK ASK LKLW 3) IF I-LKLW EQ 1 AND I-LKM AND I-LKY ARE NOT EQUAL TO D, R OR BLANK THEN IF I-LKM AND I-LKY COMPARED TO THE CURRENT MONTH AND YEAR IS NOT LONGER THEN 12 MONTHS THEN PLACE I-LKLW IN LKLWO, I-LKM IN LKDTMO AND I-LKY IN LKDTYO - IF THE COMPARISON IS GREATER THAN 12 MONTHS AGO THEN PLACE 2 IN LKLWO, I-LKM IN LKDTMO AND I-LKY IN LKDTYO AND GOTO LKCK3E-C. 4) ALL OTHERS PLACE I-LKLW IN LKLWO AND GOTO LKDAT $>LKCK3C-C< [store < > in LKCK3C(R_P)] [NIF MISCK is <1> OR MISCK is <5> then] [store <1> in LKCK3C(R_P)] [goto LKLW] [ELSEIF I-MLR(R_P) isnt <4> then] [store <1> in LKCK3C(R_P)] [goto LKLW] [ENDIF] [NIF I-LKLW(R_P) is OR I-LKLW(R_P) is then] [store <2> in LKCK3C(R_P)] [goto LKLW] [ELSEIF I-LKLW(R_P) is < > then] [store <2> in LKCK3C(R_P)] [goto LKLW] [ENDIF] [store <0> in jdate-i] [store <0> in mon-i] [setdate jdate-i mon-i day-i year-i date-c wkday1-c wkday2-c] [store <0> in index] [store <0> in index2] [NIF I-LKM(R_P) isnt AND I-LKM(R_P) isnt then] [if I-LKM(R_P) isnt < > then convert I-LKM(R_P) character to index integer] [ENDIF] [NIF I-LKY(R_P) isnt AND I-LKY(R_P) isnt then] [if I-LKY(R_P) isnt < > then convert I-LKY(R_P) character to index2 integer] [ENDIF] [NIF index eq <0> OR index2 eq <0> then] [store I-LKLW(R_P) in LKLWO(R_P)] [store <4> in LKCK3C(R_P)] [goto LKDAT] [ELSEIF I-LKLW(R_P) isnt <1> then] [store I-LKLW(R_P) in LKLWO(R_P)] [store <4> in LKCK3C(R_P)] [goto LKDAT] [ENDIF] [subtract <1900> from year-i] [NIF index2 lt year-i AND index lt mon-i then] [store <2> in LKLWO(R_P)] [store I-LKM(R_P) in lkdtmo(R_P)] [store I-LKY(R_P) in lkdtyo(R_P)] [store <3> in LKCK3C(R_P)] [goto LKCK3E-C] [ELSEIF index2 lt year-i AND index eq mon-i then] [store <2> in LKLWO(R_P)] [store I-LKM(R_P) in lkdtmo(R_P)] [store I-LKY(R_P) in lkdtyo(R_P)] [store <3> in LKCK3C(R_P)] [goto LKCK3E-C] [ELSE] [store I-LKLW(R_P) in LKLWO(R_P)] [store I-LKM(R_P) in lkdtmo(R_P)] [store I-LKY(R_P) in lkdtyo(R_P)] [store <3> in LKCK3C(R_P)] [goto LKCK3E-C] [ENDIF] $end ------------------------------------------------------------------------- $>LKLW< [store < > in youheshe] [store < > in temp2] [NIF R_P eq RESPLI then] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] [store in temp2] [If curralt eq <1> then store in temp2] [NIF curralt nq <1> then] [If onpath LKLL2:R_P then store in temp2] [ELSE] [If onpath LKLL2:R_P then store in temp2] [ENDIF] $d >LKLW< When did [fill youheshe] last work at [fill temp2] job or business? <1> Within the last 12 months [store <1> in LKLWO(R_P)] [goto LKCK3D-C] <2> More than 12 months ago <3> Never worked [blind] Don't know Refused ===>_ [store LKLW(R_P) in LKLWO(R_P)] [goto LKCK3E-C] $d [alt 1] >LKLW< ¨Cu ndo fue la £ltima vez que [fill youheshe] trabaj¢ en [fill temp2] empleo o negocio? <1> Dentro de los £ltimos 12 meses [store <1> in LKLWO(R_P)] [goto LKCK3D-C] <2> Hace m s de 12 meses <3> Nunca ha trabajado [blind] Don't know Refused ===>_ [store LKLW(R_P) in LKLWO(R_P)] [goto LKCK3E-C] $end ------------------------------------------------------------------------------- COMMENT: 1) IF MISCK IS 1 OR 5 OR I-MLR ISNT 4 THEN GOTO LKDAT 2) IF I-LKM OR I-LKY IS BLANK,D OR R GOTO LKDAT 3) ALL OTHERS STORE I-LKM IN LKDTMO, I-LKY IN LKDTYO AND GOTO LKCK3E-C $>LKCK3D-C< [store < > in LKCK3D(R_P)] [NIF MISCK is <1> OR MISCK is <5> then] [store <1> in LKCK3D(R_P)] [goto LKDAT] [ELSEIF I-MLR(R_P) isnt <4> then] [store <1> in LKCK3D(R_P)] [goto LKDAT] [ENDIF] [NIF I-LKM(R_P) is OR I-LKM(R_P) is then] [store <2> in LKCK3D(R_P)] [goto LKDAT] [ELSEIF I-LKM(R_P) is < > then] [store <2> in LKCK3D(R_P)] [goto LKDAT] [ELSEIF I-LKY(R_P) is OR I-LKY(R_P) is then] [store <2> in LKCK3D(R_P)] [goto LKDAT] [ELSEIF I-LKY(R_P) is < > then] [store <2> in LKCK3D(R_P)] [goto LKDAT] [ENDIF] [store I-LKM(R_P) in lkdtmo(R_P)] [store I-LKY(R_P) in lkdtyo(R_P)] [store <3> in LKCK3D(R_P)] [goto LKCK3E-C] $end ------------------------------------------------------------------------------- $>LKDAT< [multiple LKDATM LKDATY] [store < > in youheshe] [NIF R_P eq RESPLI then] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [if curralt eq <1> then store <‚l> in youheshe] [ENDIF] $itemtable >LKDAT< ASK IF NECESSARY, OTHERWISE VERIFY What was the month and year that [fill youheshe] last worked? <1> January <5> May <9> September <2> February <6> June <10> October <3> March <7> July <11> November <4> April <8> August <12> December ENTER MONTH ===>__ <96-97> 1996 to 1997 ENTER YEAR ===>__ $d [alt 1] >LKDAT< ASK IF NECESSARY, OTHERWISE VERIFY ¨En qu‚ mes y a¤o fue que [fill youheshe] trabaj¢ por £ltima vez? <1> Enero <5> Mayo <9> Septiembre <2> Febrero <6> Junio <10> Octubre <3> Marzo <7> Julio <11> Noviembre <4> Abril <8> Agosto <12> Diciembre ENTER Mes ===>__ <96-97> 1996 to 1997 ENTER A¤o ===>__ $end ------------------------------------------------------------------------------- $>LKDATM< [within LKDAT] $d [none] <1> January [store <1> in lkdtmo(R_P)] <2> February [store <2> in lkdtmo(R_P)] <3> March [store <3> in lkdtmo(R_P)] <4> April [store <4> in lkdtmo(R_P)] <5> May [store <5> in lkdtmo(R_P)] <6> June [store <6> in lkdtmo(R_P)] <7> July [store <7> in lkdtmo(R_P)] <8> August [store <8> in lkdtmo(R_P)] <9> September [store <9> in lkdtmo(R_P)] <10> October [store <10> in lkdtmo(R_P)] <11> November [store <11> in lkdtmo(R_P)] <12> December [store <12> in lkdtmo(R_P)] Don't know [store in lkdtmo(R_P)] Refused [store in lkdtmo(R_P)] ===>__ $end $>LKDATY< [within LKDAT] $d [none] <96> [store <96> in lkdtyo(R_P)] <97> [store <97> in lkdtyo(R_P)] Don't know Refused ===>__ $end ------------------------------------------------------------------------------- COMMENT: THIS CODING PROHIBITS THE INTERVIEWER FROM ENTERING A MONTH LATER THAN THE CURRENT MONTH OR A DATE MORE THAN 12 MONTHS AGO. NOTE: 12 MONTHS IS CONSIDERED FROM MAY 91 TO MAY 92. $>LKDACK-C< [store <0> in jdate-i] [store <0> in mon-i] [setdate jdate-i mon-i day-i year-i date-c wkday1-c wkday2-c] [store <0> in index] [store <0> in index2] [store < > in top] [NIF LKDATM(R_P) isnt AND LKDATM(R_P) isnt then] [if onpath LKDATM:R_P then convert LKDATM(R_P) character to index integer] [ENDIF] [NIF LKDATY(R_P) isnt AND LKDATY(R_P) isnt then] [if onpath LKDATY:R_P then convert LKDATY(R_P) character to index2 integer] [ENDIF] [NIF index eq <0> OR index2 eq <0> then] [goto LKCK3E-C] [ENDIF] [subtract <1900> from year-i] [NIF index2 eq year-i AND index gt mon-i then] [goto LKDAER] [ELSEIF index2 lt year-i AND index lt mon-i then] [store <1> in top] [goto LKDAER] [ELSE] [goto LKCK3E-C] [ENDIF] $end ------------------------------------------------------------------------------- $>LKDAER< [store < > in temp2] [store in temp2] [If top is <1> then store in temp2] $d >LKDAER< Date entered is [fill temp2] ENTER TO BACKUP AND CHANGE ENTRY ===>_ [backto LKDATM:R_P] $end ------------------------------------------------------------------------------- COMMENT: 1) IF MISCK IS 1 OR 5 OR I-MLR ISNT 4 THEN GOTO LKDUR1-2 2) IF I-LKDUR IS BLANK, D OR R THEN GOTO LKDUR1-2 3) ALL OTHERS UPDATE LKDUR (SEE SPECS) AND GOTO LKCK4A-C $>LKCK3E-C< [store < > in LKCK3E(R_P)] [NIF MISCK is <1> OR MISCK is <5> then] [store <1> in LKCK3E(R_P)] [goto LKDUR1-2] [ELSEIF I-MLR(R_P) isnt <4> then] [store <1> in LKCK3E(R_P)] [goto LKDUR1-2] [ENDIF] [NIF I-LKDUR(R_P) is OR I-LKDUR(R_P) is then] [store <2> in LKCK3E(R_P)] [goto LKDUR1-2] [ELSEIF I-LKDUR(R_P) is < > then] [store <2> in LKCK3E(R_P)] [goto LKDUR1-2] [ENDIF] [store <3> in LKCK3E(R_P)] [store <0> in jdate-i] [store <0> in mon-i] [setdate jdate-i mon-i day-i year-i date-c wkday1-c wkday2-c] [subtract <1900> from year-i] [store <0> in index] [convert I-LKDUR(R_P) character to index integer] [NIF mon-i ge <4> AND mon-i le <9> THEN] [If year-i eq <96> then add <4> to index] [If year-i eq <96> then convert index integer to LKDUR(R_P) character] [If year-i eq <96> then goto test2] [ENDIF] [NIF mon-i eq <11> OR mon-i eq <12> then] [If year-i eq <96> then add <4> to index] [If year-i eq <96> then convert index integer to LKDUR(R_P) character] [If year-i eq <96> then goto test2] [ENDIF] [NIF mon-i eq <2> OR mon-i eq <3> then] [If year-i eq <97> then add <4> to index] [If year-i eq <97> then convert index integer to LKDUR(R_P) character] [If year-i eq <97> then goto test2] [ENDIF] [NIF mon-i eq <5> OR mon-i eq <6> then] [If year-i eq <97> then add <4> to index] [If year-i eq <97> then convert index integer to LKDUR(R_P) character] [If year-i eq <97> then goto test2] [ENDIF] [NIF mon-i eq <8> OR mon-i eq <10> then] [If year-i eq <97> then add <4> to index] [If year-i eq <97> then convert index integer to LKDUR(R_P) character] [If year-i eq <97> then goto test2] [ENDIF] [NIF mon-i eq <11> then] [If year-i eq <97> then add <4> to index] [If year-i eq <97> then convert index integer to LKDUR(R_P) character] [If year-i eq <97> then goto test2] [ENDIF] [NIF mon-i eq <10> then] [If year-i eq <96> then add <5> to index] [If year-i eq <96> then convert index integer to LKDUR(R_P) character] [If year-i eq <96> then goto test2] [ENDIF] [NIF mon-i eq <1> OR mon-i eq <4> then] [If year-i eq <97> then add <5> to index] [If year-i eq <97> then convert index integer to LKDUR(R_P) character] [If year-i eq <97> then goto test2] [ENDIF] [NIF mon-i eq <7> OR mon-i eq <9> then] [If year-i eq <97> then add <5> to index] [If year-i eq <97> then convert index integer to LKDUR(R_P) character] [If year-i eq <97> then goto test2] [ENDIF] [NIF mon-i eq <12> then] [If year-i eq <97> then add <3> to index] [If year-i eq <97> then convert index integer to LKDUR(R_P) character] [If year-i eq <97> then goto test2] [ENDIF] [goto LKDUR1-2] $end ---------------------------------------------------------------------- $>test2< [store <0> in rindex] [store <0> in rindex2] [store <0> in index] [store <0> in index2] [NIf LKDUR(R_P) isnt < > AND LKDUR(R_P) isnt then] [if LKDUR(R_P) isnt then convert LKDUR(R_P) character to rindex real] [ENDIF] [NIF LKDURX(R_P) isnt AND LKDURX(R_P) isnt then] [If LKDURX(R_P) isnt < > then convert LKDURX(R_P) character to rindex2 real] [ENDIF] [goto LKCK4A-c] $end ------------------------------------------------------------------------------ $>LKDUR1-2< [multiple LKDUR1 LKDUR2] [store < > in youheshe] [NIF R_P eq RESPLI then] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] THIS CODE SETS-UP THE REFERENCE WEEK FILL IN THE VARIABLE "WHATWEEK". [store <0> in index] [store day-i in index] [CASE wkday1-c] [OF then] [subtract <1> from index] [OF then] [subtract <2> from index] [OF then] [subtract <3> from index] [OF then] [subtract <4> from index] [OF then] [subtract <5> from index] [OF then] [subtract <6> from index] [ENDCASE] [store in WHATWEEK] [store in swhatwk] ** SPD ** default last week $itemtable >LKDUR1< As of the end of [fill whatweek], how long had [fill youheshe] been looking for work? <1> Weeks <2> Months <3> Years ===>_ LKDUR2 ** DO NOT READ TO RESPONDENT ** ENTER NUMBER OF WEEKS/MONTHS/YEARS ===>__ $d [alt 1] >LKDUR1< Contando hasta fines de [fill swhatwk], ¨cu nto tiempo hac¡a que [fill youheshe] estaba buscando empleo? <1> Semanas <2> Meses <3> A¥os ===>_ LKDUR2 ** DO NOT READ TO RESPONDENT ** ENTER NUMBER OF WEEKS/MONTHS/YEARS ===>__ $end ------------------------------------------------------------------------------ $>LKDUR1< [within LKDUR1-2] $d [none] <1> [store <99> in xbad(1)] <2> [store <24> in xbad(1)] <3> [store <2> in xbad(1)] Don't know [goto LKCK4A-C] Refused [goto LKCK4A-C] $end $>LKDUR2< [within LKDUR1-2] $d [none] <00-99> Don't know [goto LKCK4A-C] Refused [goto LKCK4A-C] $edit [notgreater xbad(1)] $end -------------------------------------------------------------------------------- COMMENT: 1) IF ENTRY OF 2 IN LKDUR1 AND ENTRY OF 1-4 IN LKDUR2 THEN GOTO LKDUR3 2) ALL OTHERS GOTO LKCK4A-C $>LKCK4-C< [store < > in LKCK4(R_P)] [store <0> in index] [NIF LKDUR1(R_P) is <2> then] [If onpath LKDUR1:R_P then store <1> in index] [ENDIF] [NIF LKDUR2(R_P) is <1> OR LKDUR2(R_P) is <2> then] [If onpath LKDUR2:R_P then add <10> to index] [ENDIF] [NIF LKDUR2(R_P) is <3> OR LKDUR2(R_P) is <4> then] [If onpath LKDUR2:R_P then add <10> to index] [ENDIF] [NIF index eq <11> then] [store <1> in LKCK4(R_P)] [goto LKDUR3] [ENDIF] [store <2> in LKCK4(R_P)] [goto LKCK4A-C] $end ---------------------------------------------------------------------------- $>LKDUR3< [store < > in havehas] [store < > in temptext] [NIF R_P eq RESPLI then] [store in temptext] [store in havehas] [If curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [store in havehas] [ENDIF] $display >LKDUR3< We would like to have that in weeks if possible. Exactly how many weeks [fill havehas] [fill temptext] been looking for work? ENTER NUMBER OF WEEKS [blind] Don't know Refused <1-99> ===>__ $d [alt 1] >LKDUR3< Responda en semanas, si es posible. Exactamente, ¨cu ntas semanas hac¡a que [fill temptext] estaba buscando empleo? N£mero de semanas [blind] Don't know Refused <1-99> ===>__ $end ------------------------------------------------------------------------------ COMMENT: 1) IF MISCK IS 1 OR 5 OR I-MLR ISNT 4 THEN GOTO LKFT 2) IF I-LKFT IS BLANK, D, OR R THEN ASK LKFT 3) ALL OTHERS STORE I-LKFT IN LKFTO AND GOTO LKCK5-C $>LKCK4A-C< [store < > in LKCK4A(R_P)] [NIF MISCK is <1> OR MISCK is <5> then] [store <1> in LKCK4A(R_P)] [goto LKFT] [ELSEIF I-MLR(R_P) isnt <4> then] [store <1> in LKCK4A(R_P)] [goto LKFT] [ENDIF] [NIF I-LKFT(R_P) is OR I-LKFT(R_P) is then] [store <2> in LKCK4A(R_P)] [goto LKFT] [ELSEIF I-LKFT(R_P) is < > then] [store <2> in LKCK4A(R_P)] [goto LKFT] [ENDIF] [store I-LKFT(R_P) in LKFTO(R_P)] [store <3> in LKCK4A(R_P)] [goto LKCK5-C] $end ------------------------------------------------------------------------------- $>LKFT< [store < > in youheshe] [store < > in havehas] [NIF R_P eq RESPLI then] [store in youheshe] [store in HaveHas] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [store in havehas] [if curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [store in HaveHas] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] $d >LKFT< [fill HaveHas] [fill youheshe] been looking for full-time work of 35 hours or more per week? <1> Yes <2> No <3> Doesn't matter [blind] Don't know Refused ===>_ [store LKFT(R_P) in LKFTO(R_P)] $d [alt 1] >LKFT< ¨Ha estado buscando [fill youheshe] un empleo de horario completo, de 35 horas o m s a la semana? <1> S¡ <2> No <3> No importa [blind] Don't know Refused ===>_ [store LKFT(R_P) in LKFTO(R_P)] $end ------------------------------------------------------------------------------- COMMENT: 1) IF ENTRY OF 3 IN LKLWO GOTO SCHCK-C 2) IF MISCK IS 5 AND ONPATH ENTRY OF 1 IN LKLW THEN GOTO IOCK1-C 3) IF I-MLR EQ 4 GOTO LKCK6-C 4) IF I-MLR EQ 1 OR 2 GOTO LKCK6-C 5) ALL OTHERS GOTO IO1INT $>LKCK5-C< [store < > in LKCK5(R_P)] [NIF LKLWO(R_P) is <3> then] [store <1> in LKCK5(R_P)] [goto SCHCK-C] [ENDIF] [NIF LKLW(R_P) is <1> AND MISCK is <5> then] [If onpath LKLW:R_P then store <2> in LKCK5(R_P)] [If onpath LKLW:R_P then goto IOCK1-C] [ENDIF] [NIF I-MLR(R_P) is <4> then] [store <3> in LKCK5(R_P)] [goto LKCK6-C] [ELSEIF I-MLR(R_P) is <1> OR I-MLR(R_P) is <2> then] [store <4> in LKCK5(R_P)] [goto LKCK6-C] [ENDIF] [store <5> in LKCK5(R_P)] [goto IO1INT] $end ------------------------------------------------------------------------------- COMMENT: 1) IF I-IO1ICR EQ 1 OR I-IO1OCR EQ 1 THEN GOTO IO1INT 2) ALL OTHERS GOTO SCHCK-C NOTE: CARRY OVER OF LAST MONTH I&O IS DONE IN LBFR-END $>LKCK6-C< [store < > in LKCK6(R_P)] [NIF I-IO1ICR(R_P) is <1> OR I-IO1OCR(R_P) is <1> then] [store <1> in LKCK6(R_P)] [goto IO1INT] [ENDIF] [store <2> in LKCK6(R_P)] [goto SCHCK-C] $end -------------------------------------------------------------------------------- COMMENT: 1) IF ENTRY OF 2 IN BUS2 GOTO SCHCK-C 2) IF ENTRY OF 3 ON ABSRSN GOTO NLFCK1-C 3) IF ENTRY OF 1 IN RET1, STORE 1 IN DWWNTO AND GOTO DWCK4-C 4) ALL OTHERS GOTO DWWNT $>DWCK1-C< [store < > in DWCK1(R_P)] DON'T NEED TO CHECK BUS2OT BECAUSE ONLY A 1 IN STORED AND SKIPPED. [NIF BUS2(R_P) is <2> then] [if onpath BUS2:R_P then store <1> in DWCK1(R_P)] [if onpath BUS2:R_P then goto SCHCK-C] [ENDIF] [NIF ABSRSN(R_P) is <3> then] [If onpath ABSRSN:R_P then store <2> in DWCK1(R_P)] [If onpath ABSRSN:R_P then goto NLFCK1-C] [ENDIF] [NIF RET1(R_P) is <1> then] [If onpath RET1:R_P then store <3> in DWCK1(R_P)] [If onpath RET1:R_P then store <1> in DWWNTO(R_P)] [If onpath RET1:R_P then goto DWCK4-C] [ENDIF] [store <4> in DWCK1(R_P)] $end ------------------------------------------------------------------------------- $>DWWNT< [store < > in temptext] [store < > in dodoes] [NIF R_P eq RESPLI then] [store in temptext] [store in Dodoes] [If curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [store in dodoes] [ENDIF] THE FOLLOWING IS USED FOR THE FILLLING OF RETIRED, DIABLED, ETC. [NIF curralt nq <1> then] [store <{3} Retired> in temp3] [store <{4} Disabled> in temp4] [store <{5} Unable to work> in temp5] [ELSE] [store <{3} Retirado(a)/jubilado(a)> in temp3] [store <{4} Incapacitado(a)> in temp4] [store <{5} No puede trabajar> in temp5] [ENDIF] [store <0> in index2] [store < > in xbad(1)] [store < > in xbad(2)] [store < > in xbad(3)] [NIF WK(R_P) is <3> OR WK(R_P) is <4> then] [If onpath WK:R_P then store <1> in index2] [ELSEIF WK(R_P) is <5> then] [If onpath WK:R_P then store <1> in index2] [ENDIF] [NIF ABS(R_P) is <3> OR ABS(R_P) is <4> then] [If onpath ABS:R_P then store <1> in index2] [ELSEIF ABS(R_P) is <5> then] [If onpath ABS:R_P then store <1> in index2] [ENDIF] [NIF LAY(R_P) is <3> OR LAY(R_P) is <4> then] [If onpath LAY:R_P then store <1> in index2] [ELSEIF LAY(R_P) is <5> then] [If onpath LAY:R_P then store <1> in index2] [ENDIF] [NIF LK(R_P) is <3> OR LK(R_P) is <4> then] [If onpath LK:R_P then store <1> in index2] [ELSEIF LK(R_P) is <5> then] [If onpath LK:R_P then store <1> in index2] [ENDIF] [NIF index2 eq <1> then] [store < > in temp3] [store < > in temp4] [store < > in temp5] [store <3> in xbad(1)] [store <4> in xbad(2)] [store <5> in xbad(3)] [ENDIF] $d >DWWNT< [fill DoDoes] [fill temptext] currently want a job, either full or part time? <1> Yes, or maybe, it depends [store <1> in DWWNTO(R_P)] [goto DWCK4-C] <2> No [store <2> in DWWNTO(R_P)] [goto JHCK1-C] [fill temp3] [fill temp4] [fill temp5] [blind] Don't know [store in DWWNTO(R_P)] [goto JHCK1-C] Refused [store in DWWNTO(R_P)] [goto JHCK1-C] <3> Retired [store <3> in DWWNTO(R_P)] [goto DWCK3-C] <4> Disabled [store <4> in DWWNTO(R_P)] <5> Unable to work [store <5> in DWWNTO(R_P)] ===>_ $d [alt 1] >DWWNT< Actualmente, ¨quisiera [fill temptext] un empleo, de horario parcial o de horario completo? <1> S¡, o quiz s, depende [store <1> in DWWNTO(R_P)] [goto DWCK4-C] <2> No [store <2> in DWWNTO(R_P)] [goto JHCK1-C] [fill temp3] [fill temp4] [fill temp5] [blind] Don't know [store in DWWNTO(R_P)] [goto JHCK1-C] Refused [store in DWWNTO(R_P)] [goto JHCK1-C] <3> Retirado(a)/jubilado(a) [store <3> in DWWNTO(R_P)] [goto DWCK3-C] <4> Incapacitado(a) [store <4> in DWWNTO(R_P)] <5> No puede trabajar [store <5> in DWWNTO(R_P)] ===>_ $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] $end ------------------------------------------------------------------------------- COMMENT: 1) IF ONPATH ENTRY IN DIS1 OR DIS2 GOTO JHCK1-C 2) IF ENTRY OF 4 IN DWWNT GOTO DIS1 3) IF ENTRY OF 5 IN DWWNT GOTO DIS2 4) ALL OTHERS GOTO DWCK4-C $>DWCK2-C< [store < > in DWCK2(R_P)] [If onpath DIS1:R_P then store <1> in DWCK2(R_P)] [If onpath DIS1:R_P then goto JHCK1-C] [If onpath DIS2:R_P then store <1> in DWCK2(R_P)] [If onpath DIS2:R_P then goto JHCK1-C] [NIF DWWNT(R_P) is <4> then] [If onpath DWWNT:R_P then store <2> in DWCK2(R_P)] [If onpath DWWNT:R_P then goto DIS1] [ELSEIF DWWNT(R_P) is <5> then] [if onpath DWWNT:R_P then store <3> in DWCK2(R_P)] [if onpath DWWNT:R_P then goto DIS2] [ENDIF] [store <4> in DWCK2(R_P)] [goto DWCK4-C] $end ------------------------------------------------------------------------------- COMMENT: 1) IF AGERNG EQ 1-4 OR 9 GOTO DWCK4-C 2) ALL OTHERS GOTO NLFCK2-C $>DWCK3-C< [store < > in DWCK3(R_P)] [NIF AGERNG(R_P) ge <1> AND AGERNG(R_P) le <4> then] [store <1> in DWCK3(R_P)] [goto DWCK4-C] [ELSEIF AGERNG(R_P) eq <9> then] [store <1> in DWCK3(R_P)] [goto DWCK4-C] [ELSE] [store <2> in DWCK3(R_P)] [goto NLFCK2-C] [ENDIF] $end -------------------------------------------------------------------------------- COMMENT: 1) IF ENTRY OF 10 AND/OR 11 ONLY IN LKM1-LKM2 THEN GOTO DWCK5-C 2) IF ENTRY OF 10 AND/OR 11 AND/OR 13 ONLY IN LKDK1-LKDK2 GOTO DWCK5-C 3) IF ENTRY OF 10 AND/OR 11 AND/OR 13 ONLY IN LKPS1-LKPS2 GOTO DWCK5-C 4) ALL OTHERS GOTO DWRSN $>DWCK4-C< [store < > in DWCK4(R_P)] [store <0> in index] [NIF LKM1(R_P) is <10> OR LKM1(R_P) is <11> then] [If onpath LKM1:R_P then store <1> in index] [ENDIF] [NIF LKM2(R_P) is <10> OR LKM2(R_P) is <11> then] [If onpath LKM2:R_P then add <10> to index] [ENDIF] [NIF index eq <1> AND LKM2(R_P) is then] [If onpath LKM2:R_P then store <1> in DWCK4(R_P)] [If onpath LKM2:R_P then goto DWCK5-C] [ENDIF] [NIF index eq <11> AND LKM3(R_P) is then] [If onpath LKM3:R_P then store <1> in DWCK4(R_P)] [If onpath LKM3:R_P then goto DWCK5-C] [ENDIF] [store <0> in index] [NIF LKDK1(R_P) is <10> OR LKDK1(R_P) is <11> then] [If onpath LKDK1:R_P then store <1> in index] [ELSEIF LKDK1(R_P) is <13> then] [If onpath LKDK1:R_P then store <1> in index] [ENDIF] [NIF index eq <1> AND LKDK2(R_P) is then] [If onpath LKDK2:R_P then store <2> in DWCK4(R_P)] [If onpath LKDK2:R_P then goto DWCK5-C] [ENDIF] [NIF LKDK2(R_P) is <10> OR LKDK2(R_P) is <11> then] [If onpath LKDK2:R_P then add <10> to index] [ELSEIF LKDK2(R_P) is <13> then] [If onpath LKDK2:R_P then add <10> to index] [ENDIF] [NIF index eq <11> AND LKDK3(R_P) is then] [If onpath LKDK3:R_P then store <2> in DWCK4(R_P)] [If onpath LKDK3:R_P then goto DWCK5-C] [ENDIF] [NIF LKDK3(R_P) is <10> OR LKDK3(R_P) is <11> then] [If onpath LKDK3:R_P then add <100> to index] [ELSEIF LKDK3(R_P) is <13> then] [If onpath LKDK3:R_P then add <100> to index] [ENDIF] [NIF index eq <111> AND LKDK4(R_P) is then] [If onpath LKDK4:R_P then store <2> in DWCK4(R_P)] [If onpath LKDK4:R_P then goto DWCK5-C] [ENDIF] [store <0> in index] [NIF LKPS1(R_P) is <10> OR LKPS1(R_P) is <11> then] [If onpath LKPS1:R_P then store <1> in index] [ELSEIF LKPS1(R_P) is <13> then] [If onpath LKPS1:R_P then store <1> in index] [ENDIF] [NIF index eq <1> AND LKPS2(R_P) is then] [If onpath LKPS2:R_P then store <3> in DWCK4(R_P)] [If onpath LKPS2:R_P then goto DWCK5-C] [ENDIF] [NIF LKPS2(R_P) is <10> OR LKPS2(R_P) is <11> then] [If onpath LKPS2:R_P then add <10> to index] [ELSEIF LKPS2(R_P) is <13> then] [If onpath LKPS2:R_P then add <10> to index] [ENDIF] [NIF index eq <11> AND LKPS3(R_P) is then] [If onpath LKPS3:R_P then store <3> in DWCK4(R_P)] [If onpath LKPS3:R_P then goto DWCK5-C] [ENDIF] [NIF LKPS3(R_P) is <10> OR LKPS3(R_P) is <11> then] [If onpath LKPS3:R_P then add <100> to index] [ELSEIF LKPS3(R_P) is <13> then] [If onpath LKPS3:R_P then add <100> to index] [ENDIF] [NIF index eq <111> AND LKPS4(R_P) is then] [If onpath LKPS4:R_P then store <3> in DWCK4(R_P)] [If onpath LKPS4:R_P then goto DWCK5-C] [ENDIF] [store <4> in DWCK4(R_P)] $end -------------------------------------------------------------------------------- $>DWRSN< [store < > in youheshe] [store < > in werewas] [NIF R_P eq RESPLI then] [store in youheshe] [store in werewas] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [store in werewas] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [store in werewas] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] $display >DWRSN< What is the main reason [fill youheshe] [fill werewas] not looking for work during the LAST 4 WEEKS? DO NOT READ LIST <1> Believes no work available in line of work or area <2> Couldn't find any work <3> Lacks necessary schooling, training, skills or experience <4> Employers think too young or too old <5> Other types of discrimination <6> Can't arrange child care <7> Family responsibilities <8> In school or other training <9> Ill-health, physical disability <10> Transportation problems <11> Other [goto DWRSP] [blind] Don't know Refused ===>__ [goto DWCK5-C] $d [alt 1] >DWRSN< ¨Cu l es la raz¢n principal por la cual [fill youheshe] no ha buscado trabajo durante las ULTIMAS 4 SEMANAS? DO NOT READ LIST <1> No cree que haya empleo para el tipo de trabajo que hace <2> No pudo conseguir empleo <3> No tiene la educaci¢n, adiestramiento, habilidad o experiencia necesaria <4> No le dan empleo porque es muy joven o muy viejo(a) <5> Otro tipo de discriminaci¢n <6> Cuidado de ni¤os <7> Responsabilidades de familia <8> Asistiendo a la escuela/universidad o a otro adiestramiento <9> Mala salud, incapacidad f¡sica <10> Problemas de transportaci¢n [goto DWRSP] <11> Otra raz¢n (especifique) [blind] Don't know Refused ===>__ [goto DWCK5-C] $end --------------------------------------------------------------------------- $>DWRSP< $display >DWRSP< ENTER VERBATIM RESPONSE ===>_________________________________________________________________ $edit [anychar] $end ----------------------------------------------------------------------------- COMMENT: 1) IF ENTRY OF 1 IN LK THEN STORE 1 IN DWLKO AND GOTO DWWK 2) ALL OTHERS GOTO DWLK $>DWCK5-C< [store < > in DWCK5(R_P)] [NIF LK(R_P) is <1> then] [If onpath LK:R_P then store <1> in DWCK5(R_P)] [If onpath LK:R_P then store <1> in DWLKO(R_P)] [If onpath LK:R_P then goto DWWK] [ENDIF] [store <2> in DWCK5(R_P)] $end ------------------------------------------------------------------------------- $>DWLK< [store < > in temptext] [NIF R_P eq RESPLI then] [store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [ENDIF] $d >DWLK< Did [fill temptext] look for work at any time during the last 12 months? <1> Yes [store <1> in DWLKO(R_P)] [goto DWWK] <2> No [store <2> in DWLKO(R_P)] [blind] Don't know [store in DWLKO(R_P)] Refused [store in DWLKO(R_P)] ===>_ [goto JHCK1-C] $d [alt 1] >DWLK< ¨Busc¢ [fill temptext] empleo en los £ltimos 12 meses? <1> S¡ [store <1> in DWLKO(R_P)] [goto DWWK] <2> No [store <2> in DWLKO(R_P)] [blind] Don't know [store in DWLKO(R_P)] Refused [store in DWLKO(R_P)] ===>_ [goto JHCK1-C] $end ------------------------------------------------------------------------------- $>DWWK< [store < > in youheshe] [NIF R_P eq RESPLI then] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [if curralt eq <1> then store <‚l> in youheshe] [ENDIF] $display >DWWK< Did [fill youheshe] actually WORK at a job or business during the last 12 months? <1> Yes [goto DW4WK] <2> No [Blind] Don't know Refused ===>_ [goto DWAVL] $d [alt 1] >DWWK< ¨TRABAJO [fill youheshe] en un empleo o negocio durante los £ltimos 12 meses? <1> S¡ [goto DW4WK] <2> No [Blind] Don't know Refused ===>_ [goto DWAVL] $end --------------------------------------------------------------------------- $>DW4WK< [store < > in youheshe] [NIF R_P eq RESPLI then] [store in youheshe] [if curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [if curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [if curralt eq <1> then store <‚l> in youheshe] [ENDIF] $d >DW4WK< Did [fill youheshe] do any of this work during the last 4 weeks? <1> Yes [goto JHCK1-C] <2> No [blind] Don't know Refused ===>_ $d [alt 1] >DW4WK< ¨Trabaj¢ [fill youheshe] en este empleo durante las £ltimas 4 semanas? <1> S¡ [goto JHCK1-C] <2> No [blind] Don't know Refused ===>_ $end ------------------------------------------------------------------------------- $>DWLKWK< [indirect] [store < > in temptext] [store < > in havehas] [store < > in youheshe] [NIF R_P eq RESPLI then] [store in temptext] [store in havehas] [store in youheshe] [If curralt eq <1> then store in temptext] [ELSEIF sex(R_P) is <2> then] [store name(R_P) in temptext] [store in havehas] [store in youheshe] [ELSE] [store name(R_P) in temptext] [store in havehas] [store in youheshe] [ENDIF] $display >DWLKWK< And since [fill temptext] LEFT that job or business [fill havehas] [fill youheshe] looked for work? <1> Yes [goto DWAVL] <2> No [blind] Don't know Refused ===>_ [goto JHCK1-C] $d [alt 1] >DWLKWK< Y desde que [fill temptext] DEJO ese empleo o negocio, ¨ha buscado trabajo? <1> S¡ [goto DWAVL] <2> No [blind] Don't know Refused ===>_ [goto JHCK1-C] $end --------------------------------------------------------------------------- $>DWAVL< [store < > in youheshe] [NIF R_P eq RESPLI then] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] THIS CODE SETS-UP THE REFERENCE WEEK FILL IN THE VARIABLE "WHATWEEK". [store <0> in index] [store day-i in index] [CASE wkday1-c] [OF then] [subtract <1> from index] [OF then] [subtract <2> from index] [OF then] [subtract <3> from index] [OF then] [subtract <4> from index] [OF then] [subtract <5> from index] [OF then] [subtract <6> from index] [ENDCASE] [store in WHATWEEK] [store in swhatwk] ** SPD ** default last week $display >DWAVL< [fill whatweek], could [fill youheshe] have started a job if one had been offered? <1> Yes <2> No [goto DWAVR] [blind] Don't know Refused ===>_ [goto JHCK1-C] $d [alt 1] >DWAVL< [fill swhatwk], ¨podr¡a [fill youheshe] haber empezado a trabajar si le hubieran ofrecido empleo? <1> S¡ <2> No [goto DWAVR] [blind] Don't know Refused ===>_ [goto JHCK1-C] $end ------------------------------------------------------------------------------- $>DWAVR< [indirect] $display >DWAVR< Why is that? <1> Own temporary illness <2> Going to school <3> Other (SPECIFY) [goto DWAVS] [blind] Don't know Refused ===>_ [goto JHCK1-C] $d [alt 1] >DWAVR< ¨Por qu‚ raz¢n? <1> Enfermedad propia temporal/temporera <2> Est  asistiendo a la escuela/universidad <3> Otra raz¢n (especifique en las notas) [goto DWAVS] [blind] Don't know Refused ===>_ [goto JHCK1-C] $end ----------------------------------------------------------------------------- $>DWAVS< $d >DWAVS< ENTER VERBATIM RESPONSE ===>_________________________________________________________________ $edit [anychar] $end ------------------------------------------------------------------------------- COMMENT: 1) IF RET1 IS 1, D OR R THEN GOTO NLFCK2-C (ADDED FOR JULY 1993) 2) IF MISCK EQ 4 OR 8 THEN GOTO JHCK2-C 3) ALL OTHERS GOTO NLFCK1-C $>JHCK1-C< [store < > in JHCK1(R_P)] [NIF RET1(R_P) is <1> OR RET1(R_P) is then] [If onpath RET1:R_P then store <1> in JHCK1(R_P)] [If onpath RET1:R_P then goto NLFCK2-C] [ENDIF] [NIF RET1(R_P) is then] [If onpath RET1:R_P then store <1> in JHCK1(R_P)] [If onpath RET1:R_P then goto NLFCK2-C] [ENDIF] [NIF MISCK is <4> OR MISCK is <8> then] [store <2> in JHCK1(R_P)] [goto JHCK2-C] [ENDIF] [store <3> in JHCK1(R_P)] [goto NLFCK1-C] $end ------------------------------------------------------------------------------ COMMENT: 1) IF ONPATH ENTRY OF 1 IN DWWK AND I-MLR IS 3 OR 4 THEN STORE 1 IN JHWKO, STORE DW4WK IN JHDP1O AND GOTO JHRSN 2) IF ONPATH ENTRY OF 2, D OR R IN DWWK THEN STORE DWWK IN JHWKO AND GOTO JHWANT 3) ALL OTHERS GOTO JHWK $>JHCK2-C< [store < > in JHCK2(R_P)] [store <0> in index] [NIF DWWK(R_P) is <1> then] [If onpath DWWK:R_P then store <1> in index] [ENDIF] [NIF I-MLR(R_P) is <3> OR I-MLR(R_P) is <4> then] [If index eq <1> then store DW4WK(R_P) in JHDP1O(R_P)] [ENDIF] [NIF index eq <1> then] [store <1> in JHCK2(R_P)] [store <1> in JHWKO(R_P)] [goto JHRSN] [ENDIF] [NIF DWWK(R_P) isnt <1> then] [If onpath DWWK:R_P then store <2> in JHCK2(R_P)] [If onpath DWWK:R_P then store DWWK(R_P) in JHWKO(R_P)] [If onpath DWWK:R_P then goto JHWANT] [ENDIF] [store <3> in JHCK2(R_P)] $end ------------------------------------------------------------------------------ $>JHWK< [store < > in Havehas] [store < > in temptext] [NIF R_P eq RESPLI then] [store in HaveHas] [store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [store in HaveHas] [ENDIF] $d >JHWK< [fill HaveHas] [fill temptext] worked at a job or business at any time during the past 12 months? <1> Yes [store <1> in JHWKO(R_P)] [goto JHCK3-C] <2> No [store <2> in JHWKO(R_P)] [blind] Don't know [store in JHWKO(R_P)] Refused [store in JHWKO(R_P)] ===>_ [goto JHWANT] $d [alt 1] >JHWK< ¨Trabaj¢ [fill temptext] en un empleo o negocio en los £ltimos 12 meses? <1> S¡ [store <1> in JHWKO(R_P)] [goto JHCK3-C] <2> No [store <2> in JHWKO(R_P)] [blind] Don't know [store in JHWKO(R_P)] Refused [store in JHWKO(R_P)] ===>_ [goto JHWANT] $end ------------------------------------------------------------------------------- COMMENT: 1) IF I-MLR EQ 3 OR 4 THEN GOTO JHDP1 2) ALL OTHERS GOTO JHRSN $>JHCK3-C< [store < > in JHCK3(R_P)] [NIF I-MLR(R_P) is <3> OR I-MLR(R_P) is <4> then] [store <1> in JHCK3(R_P)] [goto JHDP1] [ENDIF] [store <2> in JHCK3(R_P)] [goto JHRSN] $end ------------------------------------------------------------------------------- $>JHDP1< [store < > in youheshe] [NIF R_P eq RESPLI then] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [if curralt eq <1> then store <‚l> in youheshe] [ENDIF] $d >JHDP1< Did [fill youheshe] do any of this work during the last 4 weeks? <1> Yes <2> No [blind] Don't know Refused ===>_ [store JHDP1(R_P) in JHDP1O(R_P)] $d [alt 1] >JHDP1< ¨Trabaj¢ [fill youheshe] en este empleo durante las £ltimas 4 semanas? <1> S¡ <2> No [blind] Don't know Refused ===>_ [store JHDP1(R_P) in JHDP1O(R_P)] $end ------------------------------------------------------------------------------- $>JHRSN< [store < > in yourhshr] [store < > in youheshe] [NIF R_P eq RESPLI then] [store in yourhshr] [store in youheshe] [if curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [store in yourhshr] [if curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [store in yourhshr] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] $d >JHRSN< What is the main reason [fill youheshe] left [fill yourhshr] last job? <1> Personal, family (including pregnancy) <2> Return to school <3> Health <4> Retirement or old age <5> Temporary, seasonal or intermittent job completed <6> Slack work or business conditions <7> Unsatisfactory work arrangements (hours, pay, etc) <8> Other (specify) [goto JHRSP] [blind] Don't know Refused ===>_ [goto JHWANT] $d [alt 1] >JHRSN< ¨Cu l es la raz¢n principal por la que [fill youheshe] dej¢ su £ltimo empleo? <1> Por razones personales, de familia (incluyendo embarazo) <2> Regres¢ a la escuela/universidad <3> Salud <4> Por retiro o por vejez <5> Concluy¢ empleo temporal/temporero, intermitente o de temporada <6> Poco trabajo/actividades laborales <7> Condiciones de empleo no satisfactorias (horario, sueldo, etc.) <8> Otra raz¢n (especifique) [goto JHRSP] [blind] Don't know Refused ===>_ [goto JHWANT] $end ------------------------------------------------------------------------------- $>JHRSP< $d >JHRSP< ENTER VERBATIM REASON ===>_________________________________________________________________ $edit [anychar] $end ------------------------------------------------------------------------------- $>JHWANT< [store < > in dodoes] [store < > in temptext] [NIF R_P eq RESPLI then] [store in DoDoes] [store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [store in DoDoes] [ENDIF] $d >JHWANT< [fill DoDoes] [fill temptext] intend to look for work during the next 12 months? <1> Yes, or it depends <2> No [blind] Don't know Refused ===>_ $d [alt 1] >JHWANT< ¨Tiene [fill temptext] intenciones de buscar empleo durante los pr¢ximos 12 meses? <1> S¡, o depende <2> No [blind] Don't know Refused ===>_ $end ------------------------------------------------------------------------------- COMMENT: 1) IF ENTRY OF 2, D OR R IN JHDP1O THEN GOTO JHCK5-C 2) IF ENTRY OF 1 IN JHDP1O THEN GOTO IO1INT 3) IF I-MLR EQ 1 OR 2 AND ONPATH ENTRY IN JHRSN THEN GOTO JHCK5-C 4) IF ONPATH ENTRY IN JHRSN THEN GOTO IO1INT 5) ALL OTHERS GOTO NLFCK1-C $>JHCK4-C< [store < > in JHCK4(R_P)] [NIF JHDP1(R_P) isnt <1> then] [If onpath JHDP1:R_P then store <1> in JHCK4(R_P)] [If onpath JHDP1:R_P then goto JHCK5-C] 2. [ELSEIF JHDP1(R_P) is <1> then] [If onpath JHDP1:R_P then store <2> in JHCK4(R_P)] [If onpath JHDP1:R_P then goto IO1INT] [ENDIF] 3. [store <0> in index] [If onpath JHRSN:R_P then store <1> in index] [NIF I-MLR(R_P) is <1> OR I-MLR(R_P) is <2> then] [If index eq <1> then store <3> in JHCK4(R_P)] [If index eq <1> then goto JHCK5-C] 4. [ELSEIF index eq <1> then] [store <4> in JHCK4(R_P)] [goto IO1INT] [ENDIF] [store <5> in JHCK4(R_P)] [goto NLFCK1-C] $end ------------------------------------------------------------------------------- COMMENT: 1) IF I-IO1ICR EQ 1 OR I-IO1OCR EQ 1 THEN GOTO IO1INT 2) ALL OTHERS GOTO IOCK5-C NOTE: CARRY OVER OF I&O FROM PREVIOUS MONTH IS DONE IN LBFR-END $>JHCK5-C< [store < > in JHCK5(R_P)] [NIF I-IO1ICR(R_P) is <1> OR I-IO1OCR(R_P) is <1> then] [store <1> in JHCK5(R_P)] [goto IO1INT] [ELSE] [store <2> in JHCK5(R_P)] [goto IOCK5-C] [ENDIF] $end -------------------------------------------------------------------------------- COMMENT: 1) IF {MISCK EQ 1 OR 5) OR MISCK EQ 2-4, 6-8 AND I-MLR EQ 3-7) AND ONPATH ENTRY OF 1 IN ABS} THEN GOTO IO1INT 2) IF (MISCK EQ 1 OR 5) OR {(MISCK EQ 2-4, 6-8 AND I-MLR EQ 3-7) AND (ONPATH ENTRY OF 1 IN WK OR HRCK7-C IS BLANK, 1-3)} GOTO IO1INT 3) IF I-IO1NAM IS D, R OR BLANK THEN GOTO IO1INT 4) ALL OTHERS GOTO IODP1 $>IOCK1-C< SETS START TIME FOR THE I&O SERIRES IOCK1-C - IOCK9 [store <0> in sectim-i] [setsec sectim-i] [NIF IOstm(R_P) eq <0> AND lkIOstim(R_P) eq <0> then] [store sectim-i in IOstm(R_P)] [ENDIF] [store <1> in lkIOstim(R_P)] [store <0> in index] [store < > in IOCK1(R_P)] [store <0> in index2] [NIF ABS(R_P) is <1> then] [if onpath ABS:R_P then store <1> in index] [ENDIF] [NIF MISCK is <1> OR MISCK is <5> then] [if index eq <1> then store <1> in IOCK1(R_P)] [If index eq <1> then goto IO1INT] [ENDIF] [store <0> in index3] [convert MISCK character to index3 integer] [NIF index3 ge <2> AND index3 le <4> then] [add <10> to index] [store <1> in index2] [ELSEIF index3 ge <6> AND index le <8> then] [add <10> to index] [store <1> in index2] [ENDIF] [store <0> in index3] [If I-MLR(R_P) isnt < > then convert I-MLR(R_P) character to index3 integer] [NIF index3 ge <3> AND index3 le <7> then] [add <100> to index] [add <10> to index2] [ENDIF] [NIF index eq <111> then] [store <1> in IOCK1(R_P)] [goto IO1INT] [ENDIF] [NIF MISCK is <1> OR MISCK is <5> then] [store <2> in IOCK1(R_P)] [goto IO1INT] [ENDIF] [store <0> in index3] [NIF WK(R_P) is <1> then] [If onpath WK:R_P then store <1> in index3] [ENDIF] [store <0> in index4] [If HRCK7(R_P) isnt < > then convert HRCK7(R_P) character to index4 integer] [If HRCK7(R_P) is < > then store <1> in index3] [NIF index4 ge <1> AND index4 le <3> then] [store <1> in index3] [ENDIF] [NIF index2 eq <11> AND index3 eq <1> then] [store <2> in IOCK1(R_P)] [goto IO1INT] [ENDIF] [NIF I-IO1NAM(R_P) is OR I-IO1NAM(R_P) is then] [store <3> in IOCK1(R_P)] [goto IO1INT] [ELSEIF I-IO1NAM(R_P) is < > then] [store <3> in IOCK1(R_P)] [goto IO1INT] [ENDIF] [store <4> in IOCK1(R_P)] $end ------------------------------------------------------------------------------- $>IODP1< [store < > in IOCK2(R_P)] ADDED IN JULY 1993 [store < > in temptext] [store < > in dodoes] [store < > in youheshe] [store < > in yourhshr] [NIF R_P eq RESPLI then] [store in youheshe] [store in temptext] [store in DoDoes] [store in yourhshr] [If curralt eq <1> then store in temptext] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [store name(R_P) in temptext] [store in DoDoes] [store in yourhshr] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [store name(R_P) in temptext] [store in DoDoes] [store in yourhshr] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] [store in temp2] [NIF MJ(R_P) is <1> AND curralt nq <1> then] [if onpath MJ:R_P then combine < at> < > yourhshr < MAIN job?> into temp2] [ELSEIF MJ(R_P) is <1> then] [If onpath MJ:R_P then store < en su empleo principal?> in temp2] [ENDIF] $d >IODP1< Last month, it was reported that [fill temptext] worked for [fill I-IO1NAM(R_P)]. [fill DoDoes] [fill youheshe] still work for [fill I-IO1NAM(R_P)][fill temp2] <1> Yes [goto IOCK2-C] <2> No [blind] Don't know Refused ===>_ [goto IO1INT] $d [alt 1] >IODP1< La informaci¢n del mes pasado indica que [fill temptext] trabajaba para [fill I-IO1NAM(R_P)]. ¨Trabaja [fill youheshe] todav¡a para [fill I-IO1NAM(R_P)][fill temp2] <1> S¡ [goto IOCK2-C] <2> No [blind] Don't know Refused ===>_ [goto IO1INT] $end ------------------------------------------------------------------------------- COMMENT: 1) IF I-IO1ICR EQ 1 THEN GOTO IO1IND 2) IF I-IO1OCR EQ 1 THEN GOTO IO1OCC 3) ALL OTHERS GOTO IODP2 $>IOCK2-C< [store < > in IOCK2(R_P)] [NIF I-IO1ICR(R_P) is <1> then] [store <1> in IOCK2(R_P)] [goto IO1IND] [ELSEIF I-IO1OCR(R_P) is <1> then] [store <2> in IOCK2(R_P)] [goto IO1OCC] [ENDIF] [store <3> in IOCK2(R_P)] $end ---------------------------------------------------------------------------- $>IODP2< [indirect] [store < > in yourhshr] [NIF R_P eq RESPLI then] [store in yourhshr] [ELSEIF sex(R_P) is <2> then] [store in yourhshr] [ELSE] [store in yourhshr] [ENDIF] $display >IODP2< Have the usual activities and duties of [fill yourhshr] job changed since last month? <1> Yes <2> No [goto IOCK3-C] [blind] Don't know [goto IODP3] Refused [goto IODP3] ===>_ [goto IO1OCC] $d [alt 1] >IODP2< ¨Han cambiado sus actividades y responsabilidades de trabajo usuales desde el mes pasado? <1> S¡ <2> No [goto IOCK3-C] [blind] Don't know [goto IODP3] Refused [goto IODP3] ===>_ [goto IO1OCC] $end ---------------------------------------------------------------------------- COMMENT: 1) IF I-IO1OCC IS D, R OR BLANK THEN GOTO IO1OCC 2) IF I-IO1DT1 IS D, R OR BLANK THEN GOTO IO1OCC 3) ALL OTHERS GOTO IODP3 $>IOCK3-C< [store < > in IOCK3(R_P)] [NIF I-IO1OCC(R_P) is OR I-IO1OCC(R_P) is then] [store <1> in IOCK3(R_P)] [goto IO1OCC] [ELSEIF I-IO1OCC(R_P) is < > then] [store <1> in IOCK3(R_P)] [goto IO1OCC] [ELSEIF I-IO1DT1(R_P) is < > then] [store <2> in IOCK3(R_P)] [goto IO1OCC] [ELSEIF I-IO1DT1(R_P) is OR I-IO1DT1(R_P) is then] [store <2> in IOCK3(R_P)] [goto IO1OCC] [ENDIF] [store <3> in IOCK3(R_P)] $end ----------------------------------------------------------------------------- $>IODP3< [store < > in temptext] [store < > in yourhshr] [store < > in werewas] [NIF R_P eq RESPLI then] [store in yourhshr] [store in temptext] [store in werewas] [If curralt eq <1> then store in temptext] [ELSEIF sex(R_P) is <2> then] [store in yourhshr] [store name(R_P) in temptext] [store in werewas] [ELSE] [store in yourhshr] [store name(R_P) in temptext] [store in werewas] [ENDIF] ADDED SKIP FOR PRECODE 1 IN JAN 95 $display >IODP3< Last month [fill temptext] [fill werewas] reported as (a/an) [fill I-IO1OCC(R_P)] and [fill yourhshr] usual activities were [fill I-IO1DT1(R_P)] [fill I-IO1DT2(R_P)]. Is this an accurate description of [fill yourhshr] current job? <1> Yes [If MISCK is <4> then goto CK-IO1COW] [If MISCK is <8> then goto CK-IO1COW] <2> No [goto IO1OCC] [blind] Don't know Refused ===>_ [goto IOCK5-C] $d [alt 1] >IODP3< La informaci¢n del mew pasado indica que [fill temptext] es [fill I-IO1OCC(R_P)] y que sus actividades regulares son [fill I-IO1DT1(R_P)] [fill I-IO1DT2(R_P)]. ¨Es esta una descripci¢n precisa de su empleo actual? <1> S¡ [If MISCK is <4> then goto CK-IO1COW] [If MISCK is <8> then goto CK-IO1COW] <2> No [goto IO1OCC] [blind] Don't know Refused ===>_ [goto IOCK5-C] $end ----------------------------------------------------------------------------- $>CK-IO1COW< ADDED JAN 95 [IF I-IO1COW(R_P) is <7> then goto PDEMP1] [goto IOCK5-C] $end ---------------------------------------------------------------------- $>IO1INT< [store < > in temp2] [store < > in temp3] [store < > in youheshe] [store <0> in IOFLAG(R_P)] [store < > in werewas] [store < > in areis] [store < > in temptext] [NIF R_P eq RESPLI then] [store in youheshe] [store in werewas] [store in areis] [store in temptext] [If curralt eq <1> then store in youheshe] [If curralt eq <1> then store in temptext] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [store in werewas] [store in areis] [store name(R_P) in temptext] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [store in werewas] [store in areis] [store name(R_P) in temptext] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] THIS CODE SETS-UP THE REFERENCE WEEK FILL IN THE VARIABLE "WHATWEEK". [store <0> in index] [store day-i in index] [CASE wkday1-c] [OF then] [subtract <1> from index] [OF then] [subtract <2> from index] [OF then] [subtract <3> from index] [OF then] [subtract <4> from index] [OF then] [subtract <5> from index] [OF then] [subtract <6> from index] [ENDCASE] [store in WHATWEEK] [store in swhatwk] ** SPD ** default last week [combine < > youheshe < last worked.> into temp3] [If curralt eq <1> then combine < > temptext < trabaj¢ la £ltima vez.> into temp3] [store <4> in IOFLAG(R_P)] [store <0> in index] [store in temp2] [If curralt eq <1> then store in temp2] [NIF MJ(R_P) is <1> AND curralt nq <1> then] [If onpath MJ:R_P then store
in temp2] [ELSEIF MJ(R_P) is <1> then] [If onpath MJ:R_P then store in temp2] [ENDIF] [If onpath WK:R_P then store <1> in index] [NIF WK(R_P) is <1> AND index eq <1> then] [combine < > youheshe < worked> < > whatweek into temp3] [If curralt eq <1> then combine < > temptext < trabaj¢> < > swhatwk into temp3] [combine temp3 <.> into temp3] [store <1> in IOFLAG(R_P)] [ENDIF] [store <0> in index3] [NIF WK(R_P) is <2> then] [if onpath WK:R_P then store <1> in index3] [ENDIF] [NIF BUS1(R_P) is <1> then] [if onpath BUS1:R_P then add <10> to index3] [ENDIF] [NIF BUS2(R_P) is <1> then] [if onpath BUS2:R_P then add <100> to index3] [ENDIF] [NIF index3 eq <111> then] [combine < > youheshe < worked> < > whatweek into temp3] [If curralt eq <1> then combine < > temptext < trabaj¢> < > swhatwk into temp3] [combine temp3 <.> into temp3] [store <1> in IOFLAG(R_P)] [ENDIF] [NIF ABS(R_P) is <1> then] [If onpath ABS:R_P then add <10> to index] [ENDIF] [NIF WK(R_P) is <2> AND index eq <11> then] [If curralt nq <1> then combine < > youheshe < > werewas < absent> into temp3] [If curralt nq <1> then combine temp3 < > whatweek <.> into temp3] [If curralt eq <1> then combine < > temptext < estuvo ausente> into temp3] [If curralt eq <1> then combine temp3 < > swhatwk <.> into temp3] [store <2> in IOFLAG(R_P)] [ENDIF] [store <0> in index2] [NIF ABS(R_P) is <1> then] [If onpath ABS:R_P then store <1> in index2] [ENDIF] [NIF ABSRSN(R_P) is <3> then] [If onpath ABSRSN:R_P then add <10> to index2] [ENDIF] [IF LKCK5(R_P) is <5> then add <100> to index2] [IF index2 eq <111> then combine < > youheshe < last worked?> into temp3] [If onpath LAYFT:R_P then store <3> in IOFLAG(R_P)] [If onpath LAYFT:R_P then combine < > youheshe < > areis < on layoff.> into temp3] [NIF curralt eq <1> then] [If onpath LAYFT:R_P then combine < > temptext < est  separado(a) temporalmente/temporeramente (layoff).> into temp3] [ENDIF] [NIF LAYCK3(R_P) is <2> then] [store <3> in IOFLAG(R_P)] [combine < > youheshe < > areis < on layoff.> into temp3] [If curralt eq <1> then combine < > temptext < est  separado(a) temporalmente/temporeramente (layoff).> into temp3] [ENDIF] [store < > in temp4] [store < > in temp5] [store < > in temp6] [NIF RESPLI eq R_P then] [store in temp4] [ELSE] [store in temp4] [ENDIF] [If curralt eq <1> then store <¨Era> in temp4] [store in temp7] [If curralt eq <1> then store in temp7] [store <0> in index] [If onpath IODP1:R_P then store <1> in index] [NIF IODP1(R_P) is <2> AND index eq <1> then] [combine whatweek <,> < > werewas into temp4] [If curralt eq <1> then combine swhatwk <, era> into temp4] [store < > in temp2] [store < > in temp3] [store < > in temp7] [ELSEIF IODP1(R_P) is AND index eq <1> then] [combine whatweek <,> < > werewas into temp4] [If curralt eq <1> then combine swhatwk <, era> into temp4] [store < > in temp2] [store < > in temp3] [store < > in temp7] [ELSEIF IODP1(R_P) is AND index eq <1> then] [combine whatweek <,> < > werewas into temp4] [If curralt eq <1> then combine swhatwk <, era> into temp4] [store < > in temp2] [store < > in temp3] [store < > in temp7] [ENDIF] [store in temp5] [store <5> in xbad(1)] [store <0> in index5] [NIF BUS is <1> AND relflg(R_P) eq <1> then] [If onpath BUS then store <1> in index5] [ENDIF] [NIF index5 eq <1> then] [store < or working in the family business?> in temp5] [store <{5} Working in the family business> in temp6] [If curralt eq <1> then store < o en un negocio de familia?> in temp5] [If curralt eq <1> then store <{5} Trabajaba en negocio de familia> in temp6] [store < > in xbad(1)] [ENDIF] CHANGED SKIP FOR PRECODE 5 IN FEB 95 $display >IO1INT< [fill temp7] [fill temp2] [fill temp3] [fill temp4] [fill temptext] employed by government, by a private company, a non-profit organization, or [fill werewas] [fill youheshe] self employed[fill temp5] <1> Government [goto IO1GVT] <2> Private for profit company <3> Non-profit organization including tax exempt and charitable organizations <4> Self employed [goto IO1INC] [fill temp6] [blind] Don't know Refused <5> Working in the family business [goto IO1INC] ===>_ [goto IO1NMP] $d [alt 1] >IO1INT< [fill temp7] [fill temp2] [fill temp3] [fill temp4] [fill temptext] empleado(a) del gobierno, de una compa¤¡a privada, de una organizaci¢n ben‚fica/sin fines pecuniarios, o trabajaba [fill youheshe] por cuenta propia[fill temp5] <1> Gobierno [goto IO1GVT] <2> Compa¤¡a privada con fines de lucro <3> Organizaci¢n ben‚fica/sin fines pecuniarios <4> Trabajaba por cuenta propia [goto IO1INC] [fill temp6] [blind] Don't know Refused <5> Working in the family business [goto IO1INC] ===>_ [goto IO1NMP] $edit [notequal xbad(1)] $end -------------------------------------------------------------------------------- $>IO1GVT< [indirect] $display >IO1GVT< Would that be the federal, state, or local government? <1> Federal <2> State <3> Local (county, city, township) [blind] Don't know Refused ===>_ [goto IO1NMG] $d [alt 1] >IO1GVT< ¨Para qu‚ tipo de gobierno: federal, estatal o local? <1> Federal <2> Estatal <3> Local (del condado, ciudad, municipalidad) [blind] Don't know Refused ===>_ [goto IO1NMG] $end ------------------------------------------------------------------------------ $>IO1INC< [indirect] [store in temp2] [If curralt eq <1> then store in temp2] [NIF IOFLAG(R_P) eq <3> OR IOFLAG(R_P) eq <4> then] [store in temp2] [If curralt eq <1> then store in temp2] [ENDIF] CHANGED SKIPS IN FEB 95 $display >IO1INC< [fill temp2] this business incorporated? <1> Yes <2> No [blind] Don't know Refused ===>_ $d [alt 1] >IO1INC< ¨[fill temp2] el negocio incorporado? <1> S¡ <2> No [blind] Don't know Refused ===>_ $end -------------------------------------------------------------------------------- COMMENT: IF ONPATH ENTRY OF 1 IN IO1INC THEN GOTO IO1NMB IF ONPATH ENTRY OF D OR R IN IO1INC THEN GOTO IOCK4-C IF MISCK IS 4 OR 8 AND ({IF ENTRY OF 1 IN WK AND HRCK6 IS 3 OR BLANK OR (ENTRY OF ADDED SEP 95 1 IN BUS1 AND CONDITION 2-5 OR BLANK IS MET IN HRCK7} OR {IF ENTRY OF 1,2,D OR R IN ABSPD}) AND {(IO1INT = 4) OR (IO1NT = 5 AND THIS PERSON'S LINE NUMBER IS AN OWNER IN BUS)} THEN GOTO PDEMP1 ELSE GOTO IOCK4-C $>CK-IO1OWN< CHANGED FEB 95 1. [NIF IO1INC(R_P) is <1> then] [if onpath IO1INC:R_P then goto IO1NMB] [ENDIF] 2. [NIF IO1INC(R_P) is OR IO1INC(R_P) is then] [if onpath IO1INC:R_P then goto IOCK4-C] [ENDIF] 3. [store <0> in index] [NIF MISCK is <4> OR MISCK is <8> then] [store <1> in index] [ENDIF] [store <0> in index7] - - - - - - - - - ADDED SEP 95 - - - - - - - - - - - - - - IF ENTRY OF 1 IN WK AND HRCK6 IS 3 OR BLANK OR (ENTRY OF 1 IN BUS1 AND CONDITION 2-5 OR BLANK IS MET IN HRCK7) GOTO IOCK4-C [NIF WK(R_P) is <1> AND HRCK6(R_P) is <3> then] [If onpath WK:R_P then store <1> in index7] [ENDIF] [NIF WK(R_P) is <1> AND HRCK6(R_P) is < > then] [If onpath WK:R_P then store <1> in index7] [ENDIF] [store <0> in index3] [NIF BUS1(R_P) is <1> then] [If onpath BUS1:R_P then store <1> in index3] [ENDIF] [store <0> in index4] [If HRCK7(R_P) isnt < > then convert HRCK7(R_P) character to index4 integer] [NIF index4 ge <2> AND index4 le <5> then] [if index3 eq <1> then store <1> in index7] [ELSEIF HRCK7(R_P) is < > then] [if index3 eq <1> then store <1> in index7] [ENDIF] IF ENTRY OF 1,2,D OR R IN ABSPD GOTO IOCK4-C [If onpath ABSPD:R_P then store <1> in index7] THE FOLLOWING IS TO CHECK CONDITIONS OF ABSPDO (the following is the same as a 2 in ABSPD) [store <0> in index4] [NIF ABS(R_P) is <2> then] [If onpath ABS:R_P then store <1> in index4] [ENDIF] [store <0> in index6] [NIF ABSRSN(R_P) is <13> then] [if onpath ABSRSN:R_P then store <1> in index6] [ENDIF] [store <0> in index3] [convert BUSOT character to index3 integer] [NIF R_P eq index3 AND index6 nq <1> then] [If index4 eq <1> then store <1> in index7] [ENDIF] THIS CHECKS FOR ANY OTHER MEMBERS WHO OWN/OPERATE A BUSINDESS & SKIPS ACCORDINGLY [store <0> in index8] [store <0> in index2] [store <0> in index3] [store <0> in index5] [NIF BUSL1 isnt AND BUSL1 isnt then] [if onpath BUSL1 then convert BUSL1 character to index8 integer] [ENDIF] [NIF BUSL2 isnt AND BUSL2 isnt then] [If onpath BUSL2 then convert BUSL2 character to index2 integer] [ENDIF] [NIF BUSL3 isnt AND BUSL3 isnt then] [If onpath BUSL3 then convert BUSL3 character to index3 integer] [ENDIF] [NIF BUSL4 isnt AND BUSL4 isnt then] [If onpath BUSL4 then convert BUSL4 character to index5 integer] [ENDIF] [NIF index8 eq R_P AND index4 eq <1> then] [if index6 nq <1> then store <1> in index7] [ELSEIF index2 eq R_P AND index4 eq <1> then] [if index6 nq <1> then store <1> in index7] [ELSEIF index3 eq R_P AND index4 eq <1> then] [if index6 nq <1> then store <1> in index7] [ELSEIF index5 eq R_P AND index4 eq <1> then] [if index6 nq <1> then store <1> in index7] [ENDIF] - - - - - - - - - - - - - - - - - - - - - - - - - - - - [store <0> in index8] [NIF index7 eq <1> AND index eq <1> then] [store <1> in index8] [ENDIF] [NIF IO1INT(R_P) is <4> AND index8 eq <1> then] [if onpath IO1INT:R_P then goto PDEMP1] [ENDIF] [store <0> in index4] [store <0> in index6] [convert BUSOT character to index6 integer] [IF R_P eq index6 then store <1> in index4] THIS CHECKS FOR ANY OTHER MEMBERS WHO OWN/OPERATE A BUSINDESS & SKIPS ACCORDINGLY [store <0> in index6] [store <0> in index2] [store <0> in index3] [store <0> in index5] [NIF BUSL1 isnt AND BUSL1 isnt then] [if onpath BUSL1 then convert BUSL1 character to index6 integer] [ENDIF] [NIF BUSL2 isnt AND BUSL2 isnt then] [If onpath BUSL2 then convert BUSL2 character to index2 integer] [ENDIF] [NIF BUSL3 isnt AND BUSL3 isnt then] [If onpath BUSL3 then convert BUSL3 character to index3 integer] [ENDIF] [NIF BUSL4 isnt AND BUSL4 isnt then] [If onpath BUSL4 then convert BUSL4 character to index5 integer] [ENDIF] [NIF index6 eq R_P then] [store <1> in index4] [ELSEIF index2 eq R_P then] [store <1> in index4] [ELSEIF index3 eq R_P then] [store <1> in index4] [ELSEIF index5 eq R_P then] [store <1> in index4] [ENDIF] [NIF index4 eq <1> AND IO1INT(R_P) is <5> then] [if onpath IO1INT:R_P then add <10> to index] [ENDIF] [NIF index eq <11> AND index7 eq <1> then] [goto PDEMP1] [ENDIF] [goto IOCK4-C] $end ---------------------------------------------------------------------- $>PDEMP1< ADDED JAN 95 [NIF R_P eq respli then] [store in dodoes] [store in temptext] [store in werewas] [if curralt eq <1> then store in temptext] [ELSE] [store in dodoes] [store name(R_P) in temptext] [store in werewas] [ENDIF] [store < > in temp2] [store < > in temp3] [NIF IODP2(R_P) is <1> then] [if onpath IODP2:R_P then combine < > temptext < > werewas into temp2] [if onpath IODP2:R_P then store in temp3] [ENDIF] $display >PDEMP1< [fill temp2] [fill temp3] [fill dodoes] [fill temptext] usually have any paid employees? <1> Yes [goto NMEMP1] <2> No [blind] Don't know Refused ===>_ [goto SENWCK] $d [alt 1] >PDEMP1< Usualmente ¨tiene [fill temptext] alg£n empleado pagado? <1> S¡ [goto NMEMP1] <2> No [blind] Don't know Refused ===>_ [goto SENWCK] $end -------------------------------------------------------------------------------- $>NMEMP1< ADDED JAN 95 [NIF R_P eq respli then] [store in temptext] [if curralt eq <1> then store in temptext] [ELSE] [combine name(R_P) <'s> into temptext] [if curralt eq <1> then combine < > name(R_P) into temptext] [ENDIF] [store <1> in xbad(1)] CHANGED ANSWER SPACE FROM 5 TO 3 (SEP 95) $display >NMEMP1< Excluding all owners, how many paid employees does [fill temptext] business usually have? [blind] Don't know Refused ===>___ $d [alt 1] >NMEMP1< Excluyendo a todos los due¤os, usualmente ¨cu ntos empleados pagados tiene el negocio [fill temptext]? [blind] Don't know Refused ===>___ $edit [notless xbad(1)] [numeric] $end -------------------------------------------------------------------------------- $>NEP1CK< [store <0> in index] [convert NMEMP1(R_P) character to index integer] [if index gt <20> then goto NMEMPV] [goto SENWCK] $end ---------------------------------------------------------------------- $>NMEMPV< $display >NMEMPV< *** DO NOT READ TO RESPONDENT *** Number of employees: [fill NMEMP1(R_P)] Is this number correct? <1> Yes <2> No [backto NMEMP1:R_P] [blind] Don't know Refused ===>_ $end ---------------------------------------------------------------------- COMMENT: IF ONPATH ENTRY IN IODP2 OR IODP3 THEN GOTO IOCK5-C ELSE GOTO IOCK4-C $>SENWCK< CHANGED FEB 95 [if onpath IODP3:R_P then goto IOCK5-C] [if onpath IODP2:R_P then goto IOCK5-C] [NIF IODP1(R_P) is <1> then] [if onpath IODP1:R_P then goto IOCK5-C] [ENDIF] $end ---------------------------------------------------------------------- COMMENT: 1) IF ENTRY OF 2, D OR R IN BUS2 AND HRACT1 IS 15+, STORE 2 IN IO1WPO AND GOTO IO1NMB 2) IF BUSLST NQ CURRENT ROSTER POSITION AND ENRY OF 1 IN BUS2 AND RELFLG EQ 1 THEN STORE 1 IN IO1WPO AND GOTO IO1NMB 3) IF BUSLST NQ CURRENT ROSTER POSITION AND RELFLG EQ 1 THEN GOTO IO1WP 4) ALL OTHERS GOTO IO1NMB $>IOCK4-C< [store <0> in index] [store <0> in index2] [store < > in IOCK4(R_P)] [NIF BUS2(R_P) isnt <1> then] [If onpath BUS2:R_P then store <1> in index] [ENDIF] [NIF HRACT1(R_P) isnt AND HRACT1(R_P) isnt then] [If onpath HRACT1:R_P then convert HRACT1(R_P) character to index2 integer] [ENDIF] [NIF index2 ge <15> AND index eq <1> then] [store <1> in IOCK4(R_P)] [store <2> in IO1WPO(R_P)] [goto IO1NMB] [ENDIF] [store <0> in index4] [store <0> in index] [convert BUSOT character to index integer] 2. [IF R_P eq index then store <1> in index4] THIS CHECKS FOR ANY OTHER MEMBERS WHO OWN/OPERATE A BUSINDESS & SKIPS ACCORDINGLY [store <0> in index] [store <0> in index2] [store <0> in index3] [store <0> in index5] [NIF BUSL1 isnt AND BUSL1 isnt then] [if onpath BUSL1 then convert BUSL1 character to index integer] [ENDIF] [NIF BUSL2 isnt AND BUSL2 isnt then] [If onpath BUSL2 then convert BUSL2 character to index2 integer] [ENDIF] [NIF BUSL3 isnt AND BUSL3 isnt then] [If onpath BUSL3 then convert BUSL3 character to index3 integer] [ENDIF] [NIF BUSL4 isnt AND BUSL4 isnt then] [If onpath BUSL4 then convert BUSL4 character to index5 integer] [ENDIF] [NIF index eq R_P then] [store <1> in index4] [ELSEIF index2 eq R_P then] [store <1> in index4] [ELSEIF index3 eq R_P then] [store <1> in index4] [ELSEIF index5 eq R_P then] [store <1> in index4] [ENDIF] [store <0> in index6] [NIF index4 nq <1> AND BUS2(R_P) is <1> then] [If onpath BUS2:R_P then store <1> in index6] [ENDIF] [NIF RELFLG(R_P) eq <1> AND index6 eq <1> then] [store <1> in IO1WPO(R_P)] [store <2> in IOCK4(R_P)] [goto IO1NMB] [ENDIF] [NIF index4 nq <1> AND RELFLG(R_P) eq <1> then] [store <3> in IOCK4(R_P)] [goto IO1WP] [ENDIF] [store <4> in IOCK4(R_P)] [goto IO1NMB] $end ------------------------------------------------------------------------------ $>IO1WP< [indirect] [store < > in werewas] [store < > in temptext] [NIF R_P eq RESPLI then] [store in temptext] [store in werewas] [If curralt eq <1> then store in temptext] [ELSE] [store in werewas] [store name(R_P) in temptext] [ENDIF] $display >IO1WP< [fill werewas] [fill temptext] working for pay? <1> Yes [store <1> in IO1WPO(R_P)] <2> No [store <2> in IO1WPO(R_P)] [blind] Don't know [store in IO1WPO(R_P)] Refused [store in IO1WPO(R_P)] ===>_ [goto IO1NMB] $d [alt 1] >IO1WP< ¨Estaba [fill temptext] trabajando a sueldo o salario? <1> S¡ [store <1> in IO1WPO(R_P)] <2> No [store <2> in IO1WPO(R_P)] [blind] Don't know [store in IO1WPO(R_P)] Refused [store in IO1WPO(R_P)] ===>_ [goto IO1NMB] $end ------------------------------------------------------------------------------- $>IO1NMP< [store < > in youheshe] [store < > in yourhshr] [store < > in temp2] [store < > in temp4] [NIF RESPLI eq R_P then] [store in youheshe] [store in yourhshr] [store in temp2] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [store in yourhshr] [store in temp2] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [store in yourhshr] [store in temp2] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] [If curralt eq <1> then store in temp2] [NIF IOFLAG(R_P) eq <3> OR IOFLAG(R_P) eq <4> then] [store in temp2] [If curralt eq <1> then store in temp2] [ENDIF] [store in temp4] [NIF MJ(R_P) is <1> AND curralt nq <1> then] [If onpath MJ:R_P then combine < at> < > yourhshr < MAIN job?> into temp4] [ELSEIF MJ(R_P) is <1> then] [If onpath MJ:R_P then store < en su empleo PRINCIPAL?> in temp4] [ENDIF] [store in temp5] [If curralt eq <1> then store in temp5] [NIF IO1INT(R_P) is <3> AND curralt nq <1> then] [If onpath IO1INT:R_P then store in temp5] [ELSEIF IO1INT(R_P) is <3> then] [If onpath IO1INT:R_P then store in temp5] [ENDIF] $d >IO1NMP< What is the name of the [fill temp5] for which [fill youheshe] [fill temp2][fill temp4] DO NOT READ TO RESPONDENT: (name of company, business, organization or other employer) [blind] Don't know Refused ===>__________________________________________________________________ [goto IO1IND] $d [alt 1] >IO1NMP< ¨Cu l es el nombre de la [fill temp5] para la cual [fill youheshe] [fill temp2][fill temp4] DO NOT READ TO RESPONDENT: (nombre de la compa¤¡a, negocio u organizaci¢n donde est /estaba empleado) [blind] Don't know Refused ===>__________________________________________________________________ [goto IO1IND] $edit [anychar] $end ------------------------------------------------------------------------------- $>IO1NMG< [store < > in youheshe] [store < > in yourhshr] [store < > in temp2] [store < > in temp4] [NIF RESPLI eq R_P then] [store in youheshe] [store in yourhshr] [store in temp2] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [store in yourhshr] [store in temp2] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [store in yourhshr] [store in temp2] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] [If curralt eq <1> then store in temp2] [NIF IOFLAG(R_P) eq <3> OR IOFLAG(R_P) eq <4> then] [store in temp2] [If curralt eq <1> then store in temp2] [ENDIF] [store in temp4] [NIF MJ(R_P) is <1> AND curralt nq <1> then] [If onpath MJ:R_P then combine < at> < > yourhshr < MAIN job?> into temp4] [ELSEIF MJ(R_P) is <1> then] [If curralt eq <1> then store < en su empleo PRINCIPAL?> in temp4] [ENDIF] $display >IO1NMG< What is the name of the government agency for which [fill youheshe] [fill temp2][fill temp4] [blind] Don't know Refused ===>__________________________________________________________________ [goto IO1IND] $d [alt 1] >IO1NMG< ¨Cu l es el nombre de la agencia de gobierno para la cual [fill youheshe] [fill temp2][fill temp4] [blind] Don't know Refused ===>__________________________________________________________________ [goto IO1IND] $edit [anychar] $end ------------------------------------------------------------------------------- $>IO1NMB< [store < > in temptext] [store < > in temp2] [store < > in temp3] [store < > in temp4] [store < > in temp5] [NIF R_P eq RESPLI then] [store in temp5] [store in temptext] [store in temp4] [If curralt eq <1> then store in temptext] [If curralt eq <1> then store in temp4] [ELSE] [combine name(R_P) <'s> into temptext] [store name(R_P) in temp4] [store in temp5] [If curralt eq <1> then combine < > name(R_P) into temptext] [ENDIF] [store <0> in index4] [store <0> in index] [convert BUSOT character to index integer] [IF R_P eq index then store <1> in index4] THIS CHECKS FOR ANY OTHER MEMBERS WHO OWN/OPERATE A BUSINDESS & SKIPS ACCORDINGLY [store <0> in index] [store <0> in index2] [store <0> in index3] [store <0> in index5] [NIF BUSL1 isnt AND BUSL1 isnt then] [if onpath BUSL1 then convert BUSL1 character to index integer] [ENDIF] [NIF BUSL2 isnt AND BUSL2 isnt then] [If onpath BUSL2 then convert BUSL2 character to index2 integer] [ENDIF] [NIF BUSL3 isnt AND BUSL3 isnt then] [If onpath BUSL3 then convert BUSL3 character to index3 integer] [ENDIF] [NIF BUSL4 isnt AND BUSL4 isnt then] [If onpath BUSL4 then convert BUSL4 character to index5 integer] [ENDIF] [NIF index eq R_P OR index2 eq R_P then] [store <1> in index4] [ELSEIF index3 eq R_P OR index5 eq R_P then] [store <1> in index4] [ENDIF] [If curralt eq <1> then store in temp5] [NIF IOFLAG(R_P) eq <3> OR IOFLAG(R_P) eq <4> then] [store in temp5] [If curralt eq <1> then store in temp5] [ENDIF] [NIF curralt nq <1> then] [store in temp2] [combine temp4 < > temp5 into temp3] [ELSE] [store <¨C¢mo se llama el negocio para el que> in temp2] [combine temp4 < > temp5 into temp3] [ENDIF] [NIF index4 eq <1> AND curralt nq <1> then] [combine < > temptext < business?> into temp2] [store < > in temp3] [ELSEIF index4 eq <1> then] [combine <¨Cu l es el nombre del negocio> < > temptext into temp2] [store < > in temp3] [ENDIF] $display >IO1NMB< [fill temp2] [fill temp3] [blind] Don't know Refused ===>__________________________________________________________________ $d [alt 1] >IO1NMB< [fill temp2] [fill temp3] [blind] Don't know Refused ===>__________________________________________________________________ $edit [anychar] $end ------------------------------------------------------------------------------- $>IO1IND< [indirect] [store < > in youheshe] [store < > in temp2] [NIF R_P eq RESPLI then] [store in youheshe] [store in temp2] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [store in temp2] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [store in temp2] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] [If curralt eq <1> then store in temp2] [NIF IOFLAG(R_P) eq <3> OR IOFLAG(R_P) eq <4> then] [store in temp2] [If curralt eq <1> then store in temp2] [ENDIF] [store < > in temp3] [store < > in temp4] [NIF I-IO1ICR(R_P) is <1> then] [store <**THIS CASE WAS REFERRED LAST MONTH.**> in temp3] [store in temp4] [ENDIF] $d >IO1IND< What kind of business or industry is this? READ IF NECESSARY: What do they make or do where [fill youheshe] [fill temp2] [fill temp3] [fill temp4] [blind] Don't know [goto IO1OCC] Refused [goto IO1OCC] ===>__________________________________________________________________ $d [alt 1] >IO1IND< ¨Qu‚ tipo de negocio o industria es? READ IF NECESSARY: ¨Qu‚ fabrican o hacen donde [fill youheshe] [fill temp2] [fill temp3] [fill temp4] [blind] Don't know [goto IO1OCC] Refused [goto IO1OCC] ===>__________________________________________________________________ $edit [anychar] $end ------------------------------------------------------------------------------- $>IO1MFG< [indirect] $d >IO1MFG< ASK IF NECESSARY: Is this business or organization mainly manufacturing, retail trade, wholesale trade, or something else? <1> Manufacturing <2> Retail trade <3> Wholesale trade <4> Something else [blind] Don't know Refused ===>_ $d [alt 1] >IO1MFG< ASK IF NECESSARY: ¨Es este negocio u organizaci¢n principalmente de fabricaci¢n, comercio al menudeo/al detal, comercio al por mayor/al mayoreo, o de otro tipo? <1> Fabricaci¢n <2> Comercio al menudeo/al detal <3> Comercio al por mayor/al mayoreo <4> De otro tipo [blind] Don't know Refused ===>_ $end ------------------------------------------------------------------------------- $>IO1OCC< [indirect] [store < > in temp2] [store < > in temp3] [store < > in yourhshr] [store < > in temptext] [NIF R_P eq RESPLI then] [store in yourhshr] [store in temptext] [store in temp2] [If curralt eq <1> then store in temptext] [ELSEIF sex(R_P) is <2> then] [store in yourhshr] [store name(R_P) in temptext] [store in temp2] [ELSE] [store in yourhshr] [store name(R_P) in temptext] [store in temp2] [ENDIF] [store in temp3] [NIF curralt eq <1> then] [store in temp2] [store in temp3] [ENDIF] [NIF IOFLAG(R_P) eq <3> OR IOFLAG(R_P) eq <4> then] [store in temp2] [store in temp3] [If curralt eq <1> then store in temp2] [If curralt eq <1> then store in temp3] [ENDIF] [store < > in temp4] [store < > in temp5] [NIF I-IO1OCR(R_P) is <1> then] [store <**THIS CASE WAS REFERRED LAST MONTH.**> in temp4] [store in temp5] [ENDIF] $d >IO1OCC< What kind of work [fill temp2] [fill temptext] do, that is, what [fill temp3] [fill yourhshr] occupation? (For example: plumber, typist, farmer) [fill temp4] [fill temp5] [blind] Don't know Refused ===>_________________________________________________________________ $d [alt 1] >IO1OCC< ¨Qu‚ tipo de trabajo [fill temp2] [fill temptext], o sea, cu l [fill temp3] su oficio u ocupaci¢n? (Por ejemplo: plomero, electricista, agricultor) [fill temp4] [fill temp5] [blind] Don't know Refused ===>_________________________________________________________________ $edit [anychar] $end ------------------------------------------------------------------------------- $>IO1DT< [multiple IO1DT1 IO1DT2] [indirect] [store < > in yourhshr] [NIF R_P eq RESPLI then] [store in yourhshr] [ELSEIF sex(R_P) is <2> then] [store in yourhshr] [ELSE] [store in yourhshr] [ENDIF] [store in temp2] [If curralt eq <1> then store in temp2] [NIF IOFLAG(R_P) eq <3> OR IOFLAG(R_P) eq <4> then] [store in temp2] [If curralt eq <1> then store in temp2] [ENDIF] [store < > in temp4] [store < > in temp5] [NIF I-IO1OCR(R_P) is <1> then] [store <**THIS CASE WAS REFERRED LAST MONTH.**> in temp4] [store in temp5] [ENDIF] $itemtable >IO1DT< What [fill temp2] [fill yourhshr] usual activities or duties at this job? (For example: typing, keeping account books, filing, selling cars, operating printing press, laying brick.) [fill temp4] [fill temp5] ===>__________________________________________________ ===>__________________________________________________ $d [alt 1] >IO1DT< ¨Cu les [fill temp2] sus actividades o responsabilidades regulares en ese empleo? (Por ejemplo: escribir a m quina, llevar libros de contabilidad, archivar documentos, vender autos, manejar m quina impresora) [fill temp4] [fill temp5] ===>__________________________________________________ ===>__________________________________________________ $end ------------------------------------------------------------------------------- $>IO1DT1< [Within IO1DT] $d [none] Don't know [goto CK-MIS] Refused [goto CK-MIS] $edit [anychar] $end $>IO1DT2< [within IO1DT] $d [none] Don't know Refused $edit [anything] $end ------------------------------------------------------------------------------- COMMENT: IF MISCK IS 4 OR 8 AND (ONPATH ENTRY OF 1 IN IODP2) OR (ONPATH ENTRY OF 1 IN IODP1 AND (I-IO1ICR IS 1 OR I-IO1OCR IS 1)) AND I-IO1COW = 7 THEN GOTO PDEMP1 ELSE GOTO IOCK5-C $>CK-MIS< CHANGED IN FEB 95 [store <0> in index] [NIF IODP2(R_P) is <1> then] [if onpath IODP2:R_P then store <1> in index] [ENDIF] [If I-IO1COW(R_P) is <7> then add <10> to index] [NIF MISCK is <4> OR MISCK is <8> then] [if index eq <11> then goto PDEMP1] [ENDIF] [store <0> in index] [NIF IODP1(R_P) is <1> then] [if onpath IODP1:R_P then store <1> in index] [ENDIF] [If I-IO1COW(R_P) is <7> then add <10> to index] [NIF I-IO1ICR(R_P) is <1> or I-IO1OCR(R_P) is <1> then] [add <100> to index] [ENDIF] [NIF MISCK is <4> OR MISCK is <8> then] [if index eq <111> then goto PDEMP1] [ENDIF] $end ---------------------------------------------------------------------- COMMENT: 1) IF ONPATH ENTRY OF 1 IN MJOT AND (ONPATH ENTRY OF 2 IN IO1INC OR ((ONPATH ENTRY OF 1 IN IODP1) OR (I-NAM IS D, R OR BLANK) AND I-IO1COW EQ 7, 8 OR 11) THEN GOTO IOPRO1 (ADDED 7 IN AUGUST) 2) IF ENTRY IN MJOT THEN GOTO IOCK6-C 3) IF ONPATH ENTRY OF 1 IN BUS1 THEN GOTO IOCK9 4) IF ONPATH ENTRY IN JHRSN EQ 4 THEN GOTO IOCK9 5) IF ONPATH ENTRY IN JHRSN NQ 4 THEN GOTO IOCK9 6) IF ONPATH ENTRY IN NLFJH THEN GOTO IOCK9 7) IF ONPATH ENTRY OF 2, 3, D OR R IN LAYAVR THEN GOTO IOCK9 8) ALL OTHERS GOTO IOCK9 $>IOCK5-C< [store < > in IOCK5(R_P)] [store <0> in index] [If MJOT(R_P) is <1> then store <1> in index] [NIF IO1INC(R_P) is <2> then] [If onpath IO1INC:R_P then add <10> to index] [ENDIF] [NIF index eq <11> then] [store <1> in IOCK5(R_P)] [goto IOPRO1] [ENDIF] [store <0> in index] [NIF IODP1(R_P) is <1> then] [if onpath IODP1:R_P then store <1> in index] [ENDIF] [NIF I-IO1NAM(R_P) is < > OR I-IO1NAM(R_P) is then] [store <1> in index] [ELSEIF I-IO1NAM(R_P) is then] [store <1> in index] [ENDIF] [NIF I-IO1COW(R_P) is <8> OR I-IO1COW(R_P) is <11> then] [add <10> to index] [ELSEIF I-IO1COW(R_P) is <7> then] [add <10> to index] [ENDIF] [If MJOT(R_P) is <1> then add <100> to index] [NIF index eq <111> then] [store <1> in IOCK5(R_P)] [goto IOPRO1] [ENDIF] [NIF MJOT(R_P) isnt < > then] [store <2> in IOCK5(R_P)] [goto IOCK6-C] [ENDIf] [NIF BUS1(R_P) is <1> then] [If onpath BUS1:R_P then store <3> in IOCK5(R_P)] [If onpath BUS1:R_P then goto IOCK9] [ENDIF] [NIF JHRSN(R_P) is <4> then] [If onpath JHRSN:R_P then store <4> in IOCK5(R_P)] [If onpath JHRSN:R_P then goto IOCK9] [ENDIF] [NIF JHRSN(R_P) isnt <4> then] [If onpath JHRSN:R_P then store <5> in IOCK5(R_P)] [If onpath JHRSN:R_P then goto IOCK9] [ENDIF] [If onpath NLFJH:R_P then store <6> in IOCK5(R_P)] [If onpath NLFJH:R_P then goto IOCK9] [NIF LAYAVR(R_P) isnt <1> then] [if onpath LAYAVR:R_P then store <7> in IOCK5(R_P)] [If onpath LAYAVR:R_P then goto IOCK9] [ENDIF] [store <8> in IOCK5(R_P)] [goto IOCK9] $end ---------------------------------------------------------------------------- COMMENT: 1) IF MISCK EQ 4 OR 8 AND ENTRY OF 1 IN MJ THEN GOTO IOPRO1 2) ALL OTHERS GOTO IOCK9 $>IOCK6-C< [store < > in IOCK6(R_P)] [store <0> in index] [NIF MISCK is <4> OR MISCK is <8> then] [store <1> in index] [ENDIF] [NIF MJ(R_P) is <1> AND index eq <1> then] [If onpath MJ:R_P then store <1> in IOCK6(R_P)] [If onpath MJ:R_P then goto IOPRO1] [ENDIF] [store <2> in IOCK6(R_P)] [goto IOCK9] $end ----------------------------------------------------------------------------- $>IOPRO1< [store < > in yourhshr] [store < > in temp2] [store < > in temptext] [store < > in temp3] [store < > in temp4] [NIF R_P eq RESPLI then] [store in yourhshr] [store in temptext] [store in temp4] [If curralt eq <1> then store in temptext] [ELSEIF sex(R_P) is <2> then] [store in yourhshr] [store name(R_P) in temptext] [store in temp4] [If curralt eq <1> then combine < > name(R_P) into temptext] [ELSE] [store in yourhshr] [store name(R_P) in temptext] [store in temp4] [If curralt eq <1> then combine < > name(R_P) into temptext] [ENDIF] [store <0> in index] [store < > in temp5] [NIF MJNUM(R_P) is <3> OR MJNUM(R_P) is <4> then] [if onpath MJNUM:R_P then store <1> in index] [ENDIF] [NIF index eq <1> AND curralt nq <1> then] [store in temp2] [combine temptext < > temp4 < the second most hours.> into temp3] [store < > in temp5] [ELSEIF index eq <1> then] [store <(READ IF NECESSARY: Cuando digo segundo empleo me refiero> in temp2] [store in temp3] [store in temp5] [ENDIF] $display >IOPRO1< Now I have a few questions about [fill yourhshr] second job. [fill temp2] [fill temp3] [fill temp5] ENTER

TO PROCEED ===>_ $d [alt 1] >IOPRO1< Ahora voy a hacerle algunas preguntas sobre el segundo empleo [fill temptext]. [fill temp2] [fill temp3] [fill temp5] ENTER

TO PROCEED ===>_ $end ------------------------------------------------------------------------------- $>IO2INT< [store < > in youheshe] [store < > in temp4] [store < > in werewas] [store < > in temp2] [store < > in temptext] [NIF R_P eq RESPLI then] [store in temptext] [store in temp2] [store in youheshe] [store in werewas] [If curralt eq <1> then store in temptext] [If curralt eq <1> then store in temp2] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [store in werewas] [store name(R_P) in temptext] [combine name(R_P) <'s> into temp2] [If curralt eq <1> then store name(R_P) in temp2] [ELSE] [store in youheshe] [store name(R_P) in temptext] [combine name(R_P) <'s> into temp2] [store in werewas] [If curralt eq <1> then store name(R_P) in temp2] [ENDIF] THIS CODE SETS-UP THE REFERENCE WEEK FILL IN THE VARIABLE "WHATWEEK". [store <0> in index] [store day-i in index] [CASE wkday1-c] [OF then] [subtract <1> from index] [OF then] [subtract <2> from index] [OF then] [subtract <3> from index] [OF then] [subtract <4> from index] [OF then] [subtract <5> from index] [OF then] [subtract <6> from index] [ENDCASE] [store in WHATWEEK] [store in swhatwk] ** SPD ** default last week [store <5> in xbad(1)] [store in temp3] [store <0> in index] [NIF BUS is <1> AND relflg(R_P) eq <1> then] [If onpath BUS then store <1> in index] [ENDIF] [NIF index eq <1> AND curralt nq <1> then] [store < or working in the family business?> in temp3] [store <{5} Working in a family business> in temp4] [store < > in xbad(1)] [ELSEIF index eq <1> then] [store < o en un negocio de familia?> in temp3] [store <{5} trabajaba en negocio de familia> in temp4] [store < > in xbad(1)] [ENDIF] CHANGED SKIP FOR PRECODE 5 IN FEB 95 $display >IO2INT< [fill whatweek] at [fill temp2] second job, [fill werewas] [fill temptext] employed by government, by a private company, a non-profit organization, or [fill werewas] [fill youheshe] self employed[fill temp3] <1> Government [goto IO2GVT] <2> Private for profit company <3> Non-profit organization including tax exempt and charitable organizations <4> Self employed [goto IO2INC] [fill temp4] [blind] Don't know Refused <5> Working in a family business [goto IO2INC] ===>_ [goto IOCK8-C] $d [alt 1] >IO2INT< [fill swhatwk], en el segundo empleo [fill temp2], ¨era [fill temptext] empleado de gobierno, de una compa¤¡a u organizaci¢n privada, o trabajaba por cuenta propia[fill temp3] <1> Gobierno [goto IO2GVT] <2> Compa¤¡a privada con fines de lucro <3> Organizaci¢n ben‚fica/sin fines pecuniarios <4> Trabajaba por cuenta propia [goto IO2INC] [fill temp4] [blind] Don't know Refused <5> Trabajaba en negocio de familia [goto IO2INC] ===>_ [goto IOCK8-C] $end -------------------------------------------------------------------------------- $>IO2GVT< [indirect] $display >IO2GVT< Would that be the federal, state, or local government? <1> Federal <2> State <3> Local (county, city, township) [blind] Don't know Refused ===>_ [goto IOCK8-C] $d [alt 1] >IO2GVT< ¨Para qu‚ tipo de gobierno: federal, estatal o local? <1> Federal <2> Estatal <3> Local (del condado, ciudad, municipalidad) [blind] Don't know Refused ===>_ [goto IOCK8-C] $end ------------------------------------------------------------------------------ $>IO2INC< [indirect] CHANGED PRECODE 2 in JAN 95 $display >IO2INC< Is this business incorporated? <1> Yes <2> No [blind] Don't know Refused ===>_ $d [alt 1] >IO2INC< ¨Est  el negocio incorporado? <1> S¡ <2> No [blind] Don't know Refused ===>_ $end -------------------------------------------------------------------------------- COMMENT: IF ONPATH ENTRY IF 1 IN IO2INC THEN GOTO IO2NMB IF ONPATH ENTRY OF D OR R IN IO2INC THEN GOTO IOCK7-C IF MISCK IS 4 OR 8 AND ({IF ENTRY OF 1 IN WK AND HRCK6 IS 3 OR BLANK OR (ENTRY ADDED SEP 95 OF 1 IN BUS1 AND CONDITION 2-5 OR BLANK IS MET IN HRCK7)} OR {IF ENTRY OF 1,2,D OR R IN ABSPD}) AND ((IO2INT = 4) OR (IO2INT = 5 AND THIS PERSON'S LINE NUMBER IS AN OWNER IN BUS)) THEN GOTO PDEMP2 ELSE GOTO IOCK7-C $>CK-IO2OWN< CHANGED FEB 95 1. [NIF IO2INC(R_P) is <1> then] [if onpath IO2INC:R_P then goto IO2NMB] [ENDIF] 2. [NIF IO2INC(R_P) is OR IO2INC(R_P) is then] [if onpath IO2INC:R_P then goto IOCK7-C] [ENDIF] [store <0> in index] [NIF MISCK is <4> OR MISCK is <8> then] [store <1> in index] [ENDIF] [store <0> in index7] - - - - - - - - - ADDED SEP 95 - - - - - - - - - - - - - - IF ENTRY OF 1 IN WK AND HRCK6 IS 3 OR BLANK OR (ENTRY OF 1 IN BUS1 AND CONDITION 2-5 OR BLANK IS MET IN HRCK7) GOTO IOCK7-C [NIF WK(R_P) is <1> AND HRCK6(R_P) is <3> then] [If onpath WK:R_P then store <1> in index7] [ENDIF] [NIF WK(R_P) is <1> AND HRCK6(R_P) is < > then] [If onpath WK:R_P then store <1> in index7] [ENDIF] [store <0> in index6] [NIF BUS1(R_P) is <1> then] [If onpath BUS1:R_P then store <1> in index6] [ENDIF] [store <0> in index4] [If HRCK7(R_P) isnt < > then convert HRCK7(R_P) character to index4 integer] [NIF index4 ge <2> AND index4 le <5> then] [if index6 eq <1> then store <1> in index7] [ELSEIF HRCK7(R_P) is < > then] [if index6 eq <1> then store <1> in index7] [ENDIF] IF ENTRY OF 1,2,D OR R IN ABSPD GOTO IOCK7-C [If onpath ABSPD:R_P then store <1> in index7] THE FOLLOWING IS TO CHECK CONDITIONS OF ABSPDO (the following is the same as a 2 in ABSPD) [store <0> in index4] [NIF ABS(R_P) is <2> then] [If onpath ABS:R_P then store <1> in index4] [ENDIF] [store <0> in index6] [NIF ABSRSN(R_P) is <13> then] [if onpath ABSRSN:R_P then store <1> in index6] [ENDIF] [store <0> in index3] [convert BUSOT character to index3 integer] [NIF R_P eq index3 AND index6 nq <1> then] [If index4 eq <1> then store <1> in index7] [ENDIF] THIS CHECKS FOR ANY OTHER MEMBERS WHO OWN/OPERATE A BUSINDESS & SKIPS ACCORDINGLY [store <0> in index8] [store <0> in index2] [store <0> in index3] [store <0> in index5] [NIF BUSL1 isnt AND BUSL1 isnt then] [if onpath BUSL1 then convert BUSL1 character to index8 integer] [ENDIF] [NIF BUSL2 isnt AND BUSL2 isnt then] [If onpath BUSL2 then convert BUSL2 character to index2 integer] [ENDIF] [NIF BUSL3 isnt AND BUSL3 isnt then] [If onpath BUSL3 then convert BUSL3 character to index3 integer] [ENDIF] [NIF BUSL4 isnt AND BUSL4 isnt then] [If onpath BUSL4 then convert BUSL4 character to index5 integer] [ENDIF] [NIF index8 eq R_P AND index4 eq <1> then] [if index6 nq <1> then store <1> in index7] [ELSEIF index2 eq R_P AND index4 eq <1> then] [if index6 nq <1> then store <1> in index7] [ELSEIF index3 eq R_P AND index4 eq <1> then] [if index6 nq <1> then store <1> in index7] [ELSEIF index5 eq R_P AND index4 eq <1> then] [if index6 nq <1> then store <1> in index7] [ENDIF] - - - - - - - - - - - - - - - - - - - - - - - - - - - - [store <0> in index8] [NIF index7 eq <1> AND index eq <1> then] [store <1> in index8] [ENDIF] [NIF IO2INT(R_P) is <4> AND index8 eq <1> then] [if onpath IO2INT:R_P then goto PDEMP2] [ENDIF] [store <0> in index4] [store <0> in index6] [convert BUSOT character to index6 integer] [IF R_P eq index6 then store <1> in index4] THIS CHECKS FOR ANY OTHER MEMBERS WHO OWN/OPERATE A BUSINDESS & SKIPS ACCORDINGLY [store <0> in index8] [store <0> in index2] [store <0> in index3] [store <0> in index5] [NIF BUSL1 isnt AND BUSL1 isnt then] [if onpath BUSL1 then convert BUSL1 character to index8 integer] [ENDIF] [NIF BUSL2 isnt AND BUSL2 isnt then] [If onpath BUSL2 then convert BUSL2 character to index2 integer] [ENDIF] [NIF BUSL3 isnt AND BUSL3 isnt then] [If onpath BUSL3 then convert BUSL3 character to index3 integer] [ENDIF] [NIF BUSL4 isnt AND BUSL4 isnt then] [If onpath BUSL4 then convert BUSL4 character to index5 integer] [ENDIF] [NIF index8 eq R_P then] [store <1> in index4] [ELSEIF index2 eq R_P then] [store <1> in index4] [ELSEIF index3 eq R_P then] [store <1> in index4] [ELSEIF index5 eq R_P then] [store <1> in index4] [ENDIF] [NIF index4 eq <1> AND IO2INT(R_P) is <5> then] [if onpath IO2INT:R_P then add <10> to index] [ENDIF] [NIF index eq <11> AND index7 eq <1> then] [goto PDEMP2] [ENDIF] [goto IOCK7-C] $end ---------------------------------------------------------------------- $>PDEMP2< ADDED JAN 95 [NIF R_P eq respli then] [store in dodoes] [store in temptext] [if curralt eq <1> then store in temptext] [ELSE] [store in dodoes] [store name(R_P) in temptext] [ENDIF] $display >PDEMP2< [fill dodoes] [fill temptext] usually have any paid employees? <1> Yes [goto NMEMP2] <2> No [blind] Don't know Refused ===>_ [goto IOCK7-C] $d [alt 1] >PDEMP2< Usualmente ¨tiene [fill temptext] alg£n empleado pagado? <1> S¡ [goto NMEMP2] <2> No [blind] Don't know Refused ===>_ [goto IOCK7-C] $end -------------------------------------------------------------------------------- $>NMEMP2< ADDED JAN 95 [NIF R_P eq respli then] [store in temptext] [if curralt eq <1> then store in temptext] [ELSE] [combine name(R_P) <'s> into temptext] [if curralt eq <1> then combine < > name(R_P) into temptext] [ENDIF] [store <1> in xbad(1)] CHANGED ANSWER SPACE FROM 5 TO 3 (SEP 95) $display >NMEMP2< Excluding all owners, how many paid employees does [fill temptext] business usually have? [blind] Don't know Refused ===>___ $d [alt 1] >NMEMP2< Excluyendo a todos los due¤os, usualmente ¨cu ntos empleados pagados tiene el negocio [fill temptext]? [blind] Don't know Refused ===>___ $edit [notless xbad(1)] [numeric] $end -------------------------------------------------------------------------------- $>NEP2CK< [store <0> in index] [convert NMEMP2(R_P) character to index integer] [if index gt <20> then goto NEMPV2] [goto IOCK7-C] $end ---------------------------------------------------------------------- $>NEMPV2< $display >NEMPV2< *** DO NOT READ TO RESPONDENT *** Number of employees: [fill NMEMP2(R_P)] Is this number correct? <1> Yes <2> No [backto NMEMP2:R_P] [blind] Don't know Refused ===>_ $end ---------------------------------------------------------------------- COMMENT: 1) IF MISCK EQ 4 OR 8 AND ONPATH ENTRY OF 1 IN IO2INC GOTO IO2NMB 2) IF MISCK EQ 4 OR 8 AND ONPATH ENTRY OF 2, D, OR R IN IO2INC THEN GOTO IOCK7A-C 3) ALL OTHERS GOTO IOCK9 $>IOCK7-C< [store < > in IOCK7(R_P)] [store <0> in index] [NIF MISCK is <4> OR MISCK is <8> then] [store <1> in index] [ENDIF] [NIF IO2INC(R_P) is <1> then] [if onpath IO2INC:R_P then add <10> to index] [ENDIF] [NIF IO2INC(R_P) isnt <1> then] [if onpath IO2INC:R_P then add <20> to index] [ENDIF] [NIF index eq <11> then] [store <1> in IOCK7(R_P)] [goto IO2NMB] [ELSEIF index eq <21> then] [store <2> in IOCK7(R_P)] [goto IOCK7A-C] [ENDIF] [store <3> in IOCK7(R_P)] [goto IOCK9] $end ------------------------------------------------------------------------------- COMMENT: 1) IF ANY ENTRY IN BUSLST NQ CURRENT ROSTER POSITION THEN GOTO IO2WP 2) ALL OTHERS GOTO IO2NMB $>IOCK7A-C< [store < > in IOCK7A(R_P)] [store <0> in index4] [store <0> in index] [convert BUSOT character to index integer] [IF R_P eq index then store <1> in index4] THIS CHECKS FOR ANY OTHER MEMBERS WHO OWN/OPERATE A BUSINDESS & SKIPS ACCORDINGLY [store <0> in index] [store <0> in index2] [store <0> in index3] [store <0> in index5] [NIF BUSL1 isnt AND BUSL1 isnt then] [if onpath BUSL1 then convert BUSL1 character to index integer] [ENDIF] [NIF BUSL2 isnt AND BUSL2 isnt then] [If onpath BUSL2 then convert BUSL2 character to index2 integer] [ENDIF] [NIF BUSL3 isnt AND BUSL3 isnt then] [If onpath BUSL3 then convert BUSL3 character to index3 integer] [ENDIF] [NIF BUSL4 isnt AND BUSL4 isnt then] [If onpath BUSL4 then convert BUSL4 character to index5 integer] [ENDIF] [NIF index eq R_P OR index2 eq R_P then] [store <1> in index4] [ELSEIF index3 eq R_P OR index5 eq R_P then] [store <1> in index4] [ENDIF] [NIF index4 nq <1> then] [store <1> in IOCK7A(R_P)] [goto IO2WP] [ENDIF] [store <2> in IOCK7A(R_P)] [goto IO2NMB] $end ------------------------------------------------------------------------------- $>IO2WP< [indirect] [store < > in temptext] [NIF R_P eq RESPLI then] [store in temptext] [store in werewas] [If curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [store in werewas] [ENDIF] $display >IO2WP< [fill werewas] [fill temptext] working for pay? <1> Yes <2> No [blind] Don't know Refused ===>_ [goto IO2NMB] $d [alt 1] >IO2WP< ¨Estaba [fill temptext] trabajando a sueldo o salario? <1> S¡ <2> No [blind] Don't know Refused ===>_ [goto IO2NMB] $end ------------------------------------------------------------------------------- COMMENT: 1) IF MISCK EQ 4 OR 8 AND ONPATH ENTRY OF 1 IO2INT THEN GOTO IO2NMG 2) IF MISCK EQ 4 OR 8 AND ONPATH ENTRY OF 2, D OR R IN IO2INT THEN GOTO IO2NMP 3) ALL OTHERS GOTO IOCK9 $>IOCK8-C< [store < > in IOCK8(R_P)] [store <0> in index] [NIF MISCK is <4> OR MISCK is <8> then] [store <1> in index] [ENDIF] [NIF IO2INT(R_P) is <1> then] [if onpath IO2INT:R_P then add <10> to index] [ENDIF] [NIF IO2INT(R_P) isnt <1> then] [if onpath IO2INT:R_P then add <20> to index] [ENDIF] [NIF index eq <11> then] [store <1> in IOCK8(R_P)] [goto IO2NMG] [ELSEIF index eq <21> then] [store <2> in IOCK8(R_P)] [goto IO2NMP] [ENDIF] [store <3> in IOCK8(R_P)] [goto IOCK9] $end ----------------------------------------------------------------------------- $>IO2NMP< [store < > in temptext] [store < > in temp2] [store < > in yourhshr] [NIF R_P eq RESPLI then] [store in temptext] [store in yourhshr] [store in temp2] [If curralt eq <1> then store in temptext] [ELSEIF sex(R_P) is <2> then] [store name(R_P) in temptext] [store in yourhshr] [store in temp2] [ELSE] [store name(R_P) in temptext] [store in yourhshr] [store in temp2] [ENDIF] [store in temp3] [if curralt eq <1> then store in temp3] [NIF IO2INT(R_P) is <3> AND curralt nq <1> then] [If onpath IO2INT:R_P then store in temp3] [ELSEIF IO2INT(R_P) is <3> then] [If onpath IO2INT:R_P then store in temp3] [ENDIF] $d >IO2NMP< What is the name of the [fill temp3] for which [fill temptext] [fill temp2] at [fill yourhshr] SECOND job? DO NOT READ TO RESPONDENT: (name of company, business, organization or other employer) [blind] Don't know Refused ===>__________________________________________________________________ [goto IO2IND] $d [alt 1] >IO2NMP< ¨C¢mo se llama [fill temp3] para la cual trabaja [fill temptext] en su SEGUNDO empleo? DO NOT READ TO RESPONDENT: (nombre de la compa¤¡a, negocio u organizaci¢n donde est /estaba empleado) [blind] Don't know Refused ===>__________________________________________________________________ [goto IO2IND] $edit [anychar] $end ------------------------------------------------------------------------------- $>IO2NMG< [store < > in temptext] [store < > in temp2] [store < > in yourhshr] [NIF R_P eq RESPLI then] [store in temptext] [store in yourhshr] [store in temp2] [If curralt eq <1> then store in temptext] [ELSEIF sex(R_P) is <2> then] [store name(R_P) in temptext] [store in yourhshr] [store in temp2] [ELSE] [store name(R_P) in temptext] [store in yourhshr] [store in temp2] [ENDIF] $display >IO2NMG< What is the name of the government agency for which [fill temptext] [fill temp2] at [fill yourhshr] SECOND job? [blind] Don't know Refused ===>__________________________________________________________________ [goto IO2IND] $d [alt 1] >IO2NMG< ¨C¢mo se llama la agencia de gobierno para la cual trabaja [fill temptext] en su SEGUNDO empleo? [blind] Don't know Refused ===>__________________________________________________________________ [goto IO2IND] $edit [anychar] $end ------------------------------------------------------------------------------- $>IO2NMB< [store < > in temptext] [store < > in temp2] [store < > in temp3] [NIF R_P eq RESPLI then] [store in temptext] [store in temp3] [store in temp2] [If curralt eq <1> then store in temptext] [If curralt eq <1> then store in temp3] [ELSEIF sex(R_P) is <2> then] [store name(R_P) in temptext] [combine name(R_P) <'s> into temp3 ] [store in temp2] [If curralt eq <1> then store name(R_P) in temp3] [ELSE] [store name(R_P) in temptext] [store in temp2] [combine name(R_P) <'s> into temp3] [If curralt eq <1> then store name(R_P) in temp3] [ENDIF] [store <0> in index4] [store <0> in index] [convert BUSOT character to index integer] [IF R_P eq index then store <1> in index4] THIS CHECKS FOR ANY OTHER MEMBERS WHO OWN/OPERATE A BUSINDESS & SKIPS ACCORDINGLY [store <0> in index] [store <0> in index2] [store <0> in index3] [store <0> in index5] [NIF BUSL1 isnt AND BUSL1 isnt then] [if onpath BUSL1 then convert BUSL1 character to index integer] [ENDIF] [NIF BUSL2 isnt AND BUSL2 isnt then] [If onpath BUSL2 then convert BUSL2 character to index2 integer] [ENDIF] [NIF BUSL3 isnt AND BUSL3 isnt then] [If onpath BUSL3 then convert BUSL3 character to index3 integer] [ENDIF] [NIF BUSL4 isnt AND BUSL4 isnt then] [If onpath BUSL4 then convert BUSL4 character to index5 integer] [ENDIF] [NIF index eq R_P OR index2 eq R_P then] [store <1> in index4] [ELSEIF index3 eq R_P OR index5 eq R_P then] [store <1> in index4] [ENDIF] [store < > in temp4] [store < > in temp5] [NIF curralt nq <1> then] [combine into temp4] [combine temptext < > temp2 into temp5] [ELSE] [store <¨C¢mo se llama el negocio para el que> in temp4] [combine < > temptext into temp5] [ENDIF] [NIF index4 eq <1> AND curralt nq <1> then] [combine < > temp3 < business?> into temp4] [store < > in temp5] [ELSEIF index4 eq <1> then] [combine <¨C¢mo se llama el negocio> < > temp3 into temp4] [store < > in temp5] [ENDIF] $display >IO2NMB< [fill temp4] [fill temp5] [blind] Don't know Refused ===>__________________________________________________________________ $d [alt 1] >IO2NMB< [fill temp4] [fill temp5] [blind] Don't know Refused ===>__________________________________________________________________ $edit [anychar] $end ------------------------------------------------------------------------------- $>IO2IND< [indirect] [store < > in temptext] [store < > in temp2] [NIF R_P eq RESPLI then] [store in temptext] [store in temp2] [If curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [store in temp2] [ENDIF] $d >IO2IND< What kind of business or industry is this? READ IF NECESSARY: What do they make or do where [fill temptext] [fill temp2]? [blind] Don't know [goto IO2OCC] Refused [goto IO2OCC] ===>__________________________________________________________________ $d [alt 1] >IO2IND< ¨Qu‚ tipo de negocio o industria es? READ IF NECESSARY: ¨Qu‚ fabrican o hacen donde [fill temptext] trabaja? [blind] Don't know [goto IO2OCC] Refused [goto IO2OCC] ===>__________________________________________________________________ $edit [anychar] $end ------------------------------------------------------------------------------- $>IO2MFG< [indirect] $d >IO2MFG< ASK IF NECESSARY: Is this business or organization mainly manufacturing, retail trade, wholesale trade, or something else? <1> Manufacturing <2> Retail trade <3> Wholesale trade <4> Something else [blind] Don't know Refused ===>_ $d [alt 1] >IO2MFG< ASK IF NECESSARY: ¨Es este negocio u organizaci¢n principalmente de fabricaci¢n, comercio al menudeo/al detal, comercio al por mayor/al mayoreo, o de otro tipo? <1> Fabricaci¢n <2> Comercio al menudeo/al detal <3> Comercio al por mayor/al mayoreo <4> De otro tipo [blind] Don't know Refused ===>_ $end ------------------------------------------------------------------------------- $>IO2OCC< [indirect] [store < > in dodoes] [store < > in youheshe] [store < > in yourhshr] [NIF R_P eq RESPLI then] [store in yourhshr] [store in youheshe] [store in dodoes] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in yourhshr] [store in youheshe] [store in dodoes] [If curralt eq <1> then store in youheshe] [ELSE] [store in yourhshr] [store in youheshe] [store in dodoes] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] $d >IO2OCC< What kind of work [fill dodoes] [fill youheshe] do at [fill yourhshr] SECOND job, that is, what is [fill yourhshr] occupation? (For example: plumber, typist, farmer.) [blind] Don't know Refused ===>_________________________________________________________________ $d [alt 1] >IO2OCC< ¨Qu‚ tipo de trabajo hace [fill youheshe] en su SEGUNDO empleo, o sea, cu l es su oficio u ocupaci¢n? (Por ejemplo: plomero, electricista, agricultor) [blind] Don't know Refused ===>_________________________________________________________________ $edit [anychar] $end ------------------------------------------------------------------------------- $>IO2DT< [multiple IO2DT1 IO2DT2] [indirect] [store < > in yourhshr] [NIF R_P eq RESPLI then] [store in yourhshr] [ELSEIF sex(R_P) is <2> then] [store in yourhshr] [ELSE] [store in yourhshr] [ENDIF] $itemtable >IO2DT< What are [fill yourhshr] usual activities or duties at this job? DO NOT READ TO RESPONDENT: (For example: typing, keeping account books, filing, selling cars, operating printing press, laying brick.) ===>__________________________________________________ ===>__________________________________________________ $d [alt 1] >IO2DT< ¨Cu les son sus actividades o responsabilidades regulares en ese empleo? DO NOT READ TO RESPONDENT: (Por ejemplo: escribir a maquinilla, llevar libros de contabilidad, archivar documentos, vender autos, manejar m quina impresora.) ===>__________________________________________________ ===>__________________________________________________ $end ------------------------------------------------------------------------------- $>IO2DT1< [within IO2DT] $d [none] Don't know [goto IOCK9] Refused [goto IOCK9] $edit [anychar] $end $>IO2DT2< [within IO2DT] $d [none] Don't know Refused $edit [anything] $end ------------------------------------------------------------------------------ COMMENT: 1) IF LINE NUM OF CURRENT PERSON EQ LINE NUM OF RESPONDENT GOTO ERNCK-C 2) ALL OTHERS GOTO IOCK11 $>IOCK9< THE FOLLOWING IS USED TO SKIP THE 'WHO ANSERED FOR' QUESTIONS IF THE PERSON DID NOT GO THROUGH THE I&O SERIES. [store <0> in index] [If onpath IODP1:R_P then store <1> in index] [If onpath IO1INT:R_P then store <1> in index] [If index eq <0> then goto IOCK9a] SETS ENDTIME FOR THE I&O SERIES [store <0> in sectim-i] [store <0> in index] [setsec sectim-i] [NIF lkIOetim(R_P) eq <0> AND IOstm(R_P) nq <0> then] [If IOetm(R_P) eq <0> then store sectim-i in IOetm(R_P)] [ELSEIF lkIOetim(R_P) eq <0> AND rsmtime nq <0> then] [If IOetm(R_P) eq <0> then store sectim-i in IOetm(R_P)] [ENDIF] [store IOetm(R_P) in index] [NIF IOstm(R_P) nq <0> then] [subtract IOstm(R_P) from index] [ELSE] [subtract rsmtime from index] [ENDIF] [If lkIOetim(R_P) eq <0> then add index to IOsec(R_P)] [store <1> in lkIOetim(R_P)] [store <1> in lkIOstim(R_P)] THE FOLLOWING CODE SETS UP IO1NAM AND IO2NAM [If onpath IO1NMP:R_P then store IO1NMP(R_P) in IO1NAM(R_P)] [If onpath IO1NMG:R_P then store IO1NMG(R_P) in IO1NAM(R_P)] [If onpath IO1NMB:R_P then store IO1NMB(R_P) in IO1NAM(R_P)] [If onpath IO2NMP:R_P then store IO2NMP(R_P) in IO2NAM(R_P)] [If onpath IO2NMG:R_P then store IO2NMG(R_P) in IO2NAM(R_P)] [If onpath IO2NMB:R_P then store IO2NMB(R_P) in IO2NAM(R_P)] [NIF R_P eq RESPLI then] [convert RESPLI integer to IOLNO(R_P) character] [goto IOCK9A] [ENDIF] [goto IOCK10] $end ------------------------------------------------------------------------------- COMMENT: IF MJOT IS 1 AND IO1INC IS 2 THEN GOTO ERNCK-C IF (IODP1 IS 1 OR I-IO1NAM IS D, R OR BLANK) AND I-IO1COW IS 8 OR 11 AND MJOT IS 1 THEN GOTO ERNCK-C IF MJOT ISNT BLANK THEN GOTO ERNCK-C IF BUS1 IS 1 THEN GOTO ERNCK-C IF JHRSN IS 4 THEN GOTO LBFR-END IF JHRSN ISNT 4 THEN GOTO NLFCK1-C IF AN ENTRY IN NLFJH THEN GOTO SCHCK-C (CHANGED IN AUGUST) IF LAYAVR ISNT 1 THEN GOTO NLFACT ALL OTHERS GOTO SCHCK-C $>IOCK9A< [store <0> in index] [If MJOT(R_P) is <1> then store <1> in index] [NIF IO1INC(R_P) is <2> then] [If onpath IO1INC:R_P then add <10> to index] [ENDIF] [IF index eq <11> then goto ERNCK-C] [store <0> in index] [NIF IODP1(R_P) is <1> then] [if onpath IODP1:R_P then store <1> in index] [ENDIF] [NIF I-IO1NAM(R_P) is < > OR I-IO1NAM(R_P) is then] [store <1> in index] [ELSEIF I-IO1NAM(R_P) is then] [store <1> in index] [ENDIF] [NIF I-IO1COW(R_P) is <8> OR I-IO1COW(R_P) is <11> then] [add <10> to index] [ENDIF] [If MJOT(R_P) is <1> then add <100> to index] [IF index eq <111> then goto ERNCK-C] [IF MJOT(R_P) isnt < > then goto ERNCK-C] [NIF BUS1(R_P) is <1> then] [If onpath BUS1:R_P then goto ERNCK-C] [ENDIF] [NIF JHRSN(R_P) is <4> then] [If onpath JHRSN:R_P then goto LBFR-END] [ENDIF] [NIF JHRSN(R_P) isnt <4> then] [If onpath JHRSN:R_P then goto NLFCK1-C] [ENDIF] [If onpath NLFJH:R_P then goto SCHCK-C] [NIF LAYAVR(R_P) isnt <1> then] [If onpath LAYAVR:R_P then goto NLFACT] [ENDIF] [goto SCHCK-C] $end ---------------------------------------------------------------------------- $>IOCK10< $display >IOCK10< ***** DO NOT ASK THE RESPONDENT ***** Did [fill name(R_P)] provide any of the I/O information you just collected? <1> Yes [convert R_P integer to IOLNO(R_P) character] [goto IOCKA] <2> No [IF NUMHOU eq <2> then convert RESPLI integer to IOLNO(R_P) character] [If NUMHOU eq <2> then goto IOCKA] ===>_ $end ------------------------------------------------------------------------------- $>IOCK11< $display >IOCK11< ***** DO NOT ASK THE RESPONDENT ***** Did anyone other than [fill name(RESPLI)] provide any of the I/O information you just collected? <1> Yes <2> No [goto IOCKA] ===>_ $end ------------------------------------------------------------------------------- $>IOCK12-C< [multiple IOCK12] [do index <1> <16>] [store < > in table(index)] [store < > in xbad(index)] [store < > in relation(index)] [IF pelig(index) ge <12> then convert index integer to xbad(index) character] [end do] [store NROSIZ in index2] [add <1> to index2] [if index2 gt <16> then store <16> in index2] [do index <1> index2] [store name(index) in table(index)(9:36)] [store hhmem(index) in table(index)(40:40)] [store age(index) in table(index)(60:61)] [if LINENO(index) isnt < > then store LINENO(index) in table(index)(2:4)] [store <0> in index3] [convert RRP(index) character to index3 integer] [NIF index3 nq <0> AND NEWRRP eq <0> then] ** RRP [store reltab(index3) in relation(index)] [ELSEIF index3 nq <0> AND NEWRRP eq <1> then] [store n-reltab(index3) in relation(index)] [ENDIF] [store relation(index) in table(index)(45:56)] [NIF hhmem(index) is <2> OR hhmem(index) is <3> then] [convert index integer to xbad(index) character] [store < > in table(index)] [ELSEIF AGERNG(index) lt <2> then] [convert index integer to xbad(index) character] [store < > in table(index)] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <3> then] [convert index integer to xbad(index) character] [store < > in table(index)] [ELSEIF DELDEC(index) is <2> then] [convert index integer to xbad(index) character] [store < > in table(index)] [ELSEIF DELDEC(index) is <9> then] [convert index integer to xbad(index) character] [store < > in table(index)] [ENDIF] [end do] [convert R_P integer to xbad(R_P) character] [convert RESPLI integer to xbad(RESPLI) character] $itemtable >IOCK12< ***** DO NOT ASK THE RESPONDENT ***** LINE NAME MEM REL AGE [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] Who Was that? ENTER LINE NUMBER ===>__ $end -------------------------------------------------------------------------------- $>IOCK12< [within IOCK12-C] $d [none] <1-16> ===>__ [store IOCK12(R_P) in IOLNO(R_P)] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end --------------------------------------------------------------------------- COMMENT: IF MJOT IS 1 AND IO1INC IS 2 THEN GOTO ERNCK-C IF (IODP1 IS 1 OR I-IO1NAM IS D, R OR BLANK) AND I-IO1COW IS 8 OR 11 AND MJOT IS 1 THEN GOTO ERNCK-C IF MJOT ISNT BLANK THEN GOTO ERNCK-C IF BUS1 IS 1 THEN GOTO ERNCK-C IF JHRSN IS 4 THEN GOTO LBFR-END IF JHRSN ISNT 4 THEN GOTO NLFCK1-C IF AN ENTRY IN NLFJH THEN GOTO SCHCK-C (CHANGED IN AUGUST) IF LAYAVR ISNT 1 THEN GOTO NLFACT ALL OTHERS GOTO SCHCK-C $>IOCKA< [store <0> in index] [If MJOT(R_P) is <1> then store <1> in index] [NIF IO1INC(R_P) is <2> then] [If onpath IO1INC:R_P then add <10> to index] [ENDIF] [IF index eq <11> then goto ERNCK-C] [store <0> in index] [NIF IODP1(R_P) is <1> then] [if onpath IODP1:R_P then store <1> in index] [ENDIF] [NIF I-IO1NAM(R_P) is < > OR I-IO1NAM(R_P) is then] [store <1> in index] [ELSEIF I-IO1NAM(R_P) is then] [store <1> in index] [ENDIF] [NIF I-IO1COW(R_P) is <8> OR I-IO1COW(R_P) is <11> then] [add <10> to index] [ENDIF] [If MJOT(R_P) is <1> then add <100> to index] [IF index eq <111> then goto ERNCK-C] [IF MJOT(R_P) isnt < > then goto ERNCK-C] [NIF BUS1(R_P) is <1> then] [If onpath BUS1:R_P then goto ERNCK-C] [ENDIF] [NIF JHRSN(R_P) is <4> then] [If onpath JHRSN:R_P then goto LBFR-END] [ENDIF] [NIF JHRSN(R_P) isnt <4> then] [If onpath JHRSN:R_P then goto NLFCK1-C] [ENDIF] [If onpath NLFJH:R_P then goto SCHCK-C] [NIF LAYAVR(R_P) isnt <1> then] [If onpath LAYAVR:R_P then goto NLFACT] [ENDIF] [goto SCHCK-C] $end ------------------------------------------------------------------------------- COMMENT: 1) IF MISCK IS 4 OR 8 AND IF ONPATH ENTRY OF 1 IN BUS1 THEN GOTO SCHCK-C 2) IF MISCK IS 4 OR 8 AND ONPATH ENTRY IN MJOT AND {(ONPATH ENTRY OF 2 IN IO1INC) OR (ONPATH ENTRY OF 1 IN IODP1 AND I-IO1COW EQ 7, 8 OR 11)} THEN GOTO SCHCK-C 3) IF MISCK IS 4 OR 8 THEN GOTO ERNP 4) ALL OTHERS GOTO SCHCK-C $>ERNCK-C< [store <0> in index] [store < > in ERNCK(R_P)] [NIF MISCK is <4> AND BUS1(R_P) is <1> then] [If onpath BUS1:R_P then store <1> in ERNCK(R_P)] [If onpath BUS1:R_P then goto SCHCK-C] [ENDIF] [NIF MISCK is <8> AND BUS1(R_P) is <1> then] [If onpath BUS1:R_P then store <1> in ERNCK(R_P)] [If onpath BUS1:R_P then goto SCHCK-C] [ENDIF] [NIF MISCK is <4> OR MISCK is <8> then] [store <1> in index] [ENDIF] [NIF IO1INC(R_P) is <2> then] [If onpath IO1INC:R_P then add <10> to index] [ENDIF] [If onpath MJ:R_P then add <100> to index] [NIF index eq <111> then] [store <2> in ERNCK(R_P)] [goto SCHCK-C] [ENDIF] [store <0> in index] [NIF MISCK is <4> OR MISCK is <8> then] [store <1> in index] [ENDIF] [store <0> in index2] [NIF index eq <1> AND IODP1(R_P) is <1> then] [If onpath IODP1:R_P then store <1> in index2] [ENDIF] [NIF I-IO1COW(R_P) is <8> OR I-IO1COW(R_P) is <11> then] [if index2 eq <1> then store <2> in ERNCK(R_P)] [if index2 eq <1> then goto SCHCK-C] [ELSEIF I-IO1COW(R_P) is <7> then] ADDED FEB 95 [if index2 eq <1> then store <2> in ERNCK(R_P)] [if index2 eq <1> then goto SCHCK-C] [ENDIF] [NIF MISCK is <4> OR MISCK is <8> then] [store <3> in ERNCK(R_P)] [goto ERNP] [ELSE] [store <4> in ERNCK(R_P)] [goto SCHCK-C] [ENDIF] $end -------------------------------------------------------------------------------- $>ERNP< [store <0> in HWKRN-r] [store <0> in HWKR2-r] [store <0> in ERNX1-r] [store <0> in ERNX2-r] [store <0> in ERN-r] [store <0> in ERN2-r] [store < > in HWKRN(R_P)] [store < > in HWKRN2(R_P)] [store < > in ERNX1(R_P)] [store < > in ERNX2(R_P)] [store < > in ERN(R_P)] [store < > in ERN2(R_P)] SETS START TIME FOR THE EARNINGS SERIES ERNCK-C - ERNCKV [store <0> in sectim-i] [setsec sectim-i] [NIF WEstm(R_P) eq <0> AND lkWEstim(R_P) eq <0> then] [store sectim-i in WEstm(R_P)] [ENDIF] [store <1> in lkWEstim(R_P)] $display >ERNP< This month I have a few questions about earnings. ENTER

TO PROCEED ===>_ $d [alt 1] >ERNP< Este mes tengo algunas preguntas sobre los ingresos de su hogar. ENTER

TO PROCEED ===>_ $end ------------------------------------------------------------------------------- $>ERNPR< [store < > in yourhshr] [store < > in temptext] [store < > in temp2] [NIF R_P eq RESPLI then] [store in yourhshr] [If curralt eq <1> then store in temp2] [If curralt eq <1> then store in temp3] [ELSEIF sex(R_P) is <2> then] [store in yourhshr] [If curralt eq <1> then combine < > name(R_P) into temp2] [If curralt eq <1> then combine < > name(R_P) into temp3] [ELSE] [store in yourhshr] [If curralt eq <1> then combine < > name(R_P) into temp2] [If curralt eq <1> then combine < > name(R_P) into temp3] [ENDIF] [store yourhshr in temptext] [If curralt eq <1> then combine < > temp3 into temptext] [NIF MJ(R_P) is <1> AND curralt nq <1> then] [if onpath MJ:R_P then combine yourhshr < >

into temptext] [ELSEIF MJ(R_P) is <1> then] [If onpath MJ:R_P then combine < PRINCIPAL> < > temp2 into temptext] [ENDIF] $display >ERNPR< For [fill temptext] job, what is the easiest way for you to report [fill yourhshr] total earnings BEFORE taxes or other deductions: hourly, weekly, annually, or on some other basis? READ IF NECESSARY: We use this information to compare the amount that people earn in different types of jobs. <1> Hourly <2> Weekly <3> Bi-weekly [store <3> in ERNPER(R_P)] [goto ERNUOT] <4> Twice monthly <5> Monthly <6> Annually <7> Other (specify) [store <7> in ERNPER(R_P)] [goto ERNPRS] [blind] Don't know [store in ERNPER(R_P)] Refused [store in ERNPER(R_P)] [goto ERNLAB] ===>_ [store ERNPR(R_P) in ERNPER(R_P)] [goto ERNUOT] $d [alt 1] >ERNPR< Con respecto al empleo[fill temptext], c¢mo le resulta m s f cil decir el total de los ingresos [fill temp2] SIN descontar impuestos y otras deducciones: por hora, a la semana, al a¤o, o de qu‚ otra manera? READ IF NECESSARY: Usamos esta informaci¢n para comparar lo que ganan las personas que trabajan en diferentes tipos de empleos. <1> Por hora <2> A la semana <3> Cada dos semanas [store <3> in ERNPER(R_P)] [goto ERNUOT] <4> Dos veces al mes <5> Cada mes <6> Al a¤o <7> Otra manera (especifique) [store <7> in ERNPER(R_P)] [goto ERNPRS] [blind] Don't know [store in ERNPER(R_P)] Refused [store in ERNPER(R_P)] [goto ERNLAB] ===>_ [store ERNPR(R_P) in ERNPER(R_P)] [goto ERNUOT] $end ------------------------------------------------------------------------------- $>ERNPRS< $display >ERNPRS< ENTER VERBATIM RESPONSE ===>____________________________________________________________ $edit [anychar] $end -------------------------------------------------------------------------------- $>ERNUOT< [store < > in temptext] [store < > in dodoes] [store < > in yourhshr] [store < > in temp2] [NIF R_P eq RESPLI then] [store in yourhshr] [store in dodoes] [store in temptext] [If curralt eq <1> then store in temptext] [ELSEIF sex(R_P) is <2> then] [store in yourhshr] [store in dodoes] [store name(R_P) in temptext] [ELSE] [store in yourhshr] [store in dodoes] [store name(R_P) in temptext] [ENDIF] [store in temp2] [NIF MJ(R_P) is <1> AND curralt nq <1> then] [if onpath MJ:R_P then combine < at> < > yourhshr < >
into temp2] [ELSEIF MJ(R_P) is <1> then] [If onpath MJ:R_P then store < en su empleo PRINCIPAL?> in temp2] [ENDIF] $display >ERNUOT< [fill dodoes] [fill temptext] usually receive overtime pay, tips, or commissions[fill temp2] <1> Yes <2> No [blind] Don't kow Refused ===>_ $d [alt 1] >ERNUOT< Por lo regular, ¨gana [fill temptext] algo por horas extras, propinas, o comisi¢n[fill temp2] <1> S¡ <2> No [blind] Don't kow Refused ===>_ $end -------------------------------------------------------------------------------- COMMENT: IF ERNPER EQ 1 THEN GOTO ERNHRT IF ERNPER EQ 2, 7 OR D THEN GOTO ERNWK IF ERNPER EQ 3 THEN GOTO ERNBWK IF ERNPER EQ 4 OR 5 THEN GOTO ERNMON IF ERNPER EQ 6 THEN GOTO ERNANN $>ERNCK2-C< [NIF ERNPER(R_P) is <1> then] [goto ERNHRT] [ELSEIF ERNPER(R_P) is <2> OR ERNPER(R_P) is <7> then] [goto ERNWK] [ELSEIF ERNPER(R_P) is then] [goto ERNWK] [ELSEIF ERNPER(R_P) is <3> then] [goto ERNBWK] [ELSEIF ERNPER(R_P) is <4> OR ERNPER(R_P) is <5> then] [goto ERNMON] [ELSEIF ERNPER(R_P) is <6> then] [goto ERNANN] [ENDIF] $end ------------------------------------------------------------------------------- $>ERNHRT< [store < > in temptext] [store < > in temp2] [store < > in yourhshr] [store < > in temptext] [store in temp3] [NIF ERNUOT(R_P) is <1> AND curralt nq <1> then] [If onpath ERNUOT:R_P then store in temptext] [If onpath ERNUOT:R_P then store in temp3] [ELSEIF ERNUOT(R_P) is <1> then] [If onpath ERNUOT:R_P then store in temptext] [ENDIF] [NIF R_P eq RESPLI then] [store in yourhshr] [If curralt eq <1> then store in yourhshr] [ELSEIF sex(R_P) is <2> then] [store in yourhshr] [If curralt eq <1> then store name(R_P) in yourhshr] [ELSE] [store in yourhshr] [If curralt eq <1> then store name(R_P) in yourhshr] [ENDIF] [store in temp2] [If curralt eq <1> then store in temp2] [NIF MJ(R_P) is <1> AND curralt nq <1> then] [if onpath MJ:R_P then combine yourhshr < >
into temp2] [ELSEIF MJ(R_P) is <1> then] [If onpath MJ:R_P then store < PRINCIPAL?> in temp2] [ENDIF] [store <0> in xbad(1)] $display >ERNHRT< [fill temptext] [fill temp3] is [fill yourhshr] hourly rate of pay on [fill temp2] job? ENTER DOLLAR AMOUNT [blind] Don't know [store in ERNH1O(R_P)] [goto ERNHRE] Refused [store in ERNH1O(R_P)] [store in ERNX1(R_P)] [goto ERNLAB] ===>[N]$__.__ [store ERNHRT(R_P) in ERNH1O(R_P)] $d [alt 1] >ERNHRT< [fill temptext] ¨Cu nto le pagan a [fill yourhshr] por hora en su empleo[fill temp2] ENTER DOLLAR AMOUNT [blind] Don't know [store in ERNH1O(R_P)] [goto ERNHRE] Refused [store in ERNH1O(R_P)] [store in ERNX1(R_P)] [goto ERNLAB] ===>[N]$__.__ [store ERNHRT(R_P) in ERNH1O(R_P)] $edit [notless xbad(1)] [numeric] $end ------------------------------------------------------------------------------- COMMENT: IF ONPATH ENTRY IN ERNHRT IS BETWEEN 1 AND 30 THEN GOTO ERNHR ALL OTHERS ERNRG1 $>ERNCK3-C< [store <0> in rindex] [NIF ERNHRT(R_P) isnt AND ERNHRT(R_P) isnt then] [If onpath ERNHRT:R_P then convert ERNHRT(R_P) character to rindex real] [ENDIF] [NIF rindex ge <1.0> AND rindex le <30.0> then] [goto ERNHR] [ENDIF] [goto ERNRG1] $end ------------------------------------------------------------------------------ $>ERNHRE< [store < > in yourhshr] [NIF R_P eq RESPLI then] [store in yourhshr] [If curralt eq <1> then store in yourhshr] [ELSEIF sex(R_P) is <2> then] [store in yourhshr] [If curralt eq <1> then store in yourhshr] [ELSE] [store in yourhshr] [If curralt eq <1> then store <‚l> in yourhshr] [ENDIF] [store <0> in xbad(1)] $display >ERNHRE< What is your best estimate of [fill yourhshr] hourly rate of pay? ENTER DOLLAR AMOUNT [blind] Don't know [store in ERNH1O(R_P)] [store in ERNX1(R_P)] [goto ERNLAB] Refused [store in ERNH1O(R_P)] [store in ERNX1(R_P)] [goto ERNLAB] ===>[N]$__.__ [store ERNHRE(R_P) in ERNH1O(R_P)] $d [alt 1] >ERNHRE< ¨Cu nto calcula usted que [fill yourhshr] gana por hora, aproximadamente? ENTER DOLLAR AMOUNT [blind] Don't know [store in ERNH1O(R_P)] [store in ERNX1(R_P)] [goto ERNLAB] Refused [store in ERNH1O(R_P)] [store in ERNX1(R_P)] [goto ERNLAB] ===>[N]$__.__ [store ERNHRE(R_P) in ERNH1O(R_P)] $edit [notless xbad(1)] [numeric] $end ------------------------------------------------------------------------------- COMMENT: IF ONPATH ENTRY IN ERNHRE IS BETWEEN 1 AND 30 THEN GOTO ERNHR ALL OTHERS GOTO ERNRG1 $>ERNCK6-C< [store <0> in rindex] [NIF ERNHRE(R_P) isnt AND ERNHRE(R_P) isnt then] [If onpath ERNHRE:R_P then convert ERNHRE(R_P) character to rindex real] [ENDIF] [NIF rindex ge <1.0> AND rindex le <30.0> then] [goto ERNHR] [ENDIF] [goto ERNRG1] $end ------------------------------------------------------------------------------- $>ERNRG1< $display >ERNRG1< ****** DO NOT ASK THE RESPONDENT ****** HOURLY EARNINGS RECORDED AS: [FILL ERNH1O(R_P)] HOURLY IS THIS ENTRY CORRECT? <1> Yes [goto ERNHR] <2> No ===>_ $end --------------------------------------------------------------------------- $>ERNHCO< [store <0> in xbad(1)] $display >ERNHCO< ****** DO NOT ASK THE RESPONDENT ****** INCORRECT ENTRY WAS RECORDED AS: [FILL ERNH1O(R_P)] HOURLY CORRECT ENTRY IS: ===>[N]$__.__ [store ERNHCO(R_P) in ERNH1O(R_P)] $edit [notless xbad(1)] [numeric] $end ------------------------------------------------------------------------------- $>ERNHR< [store < > in dodoes] [store < > in temptext] [NIF R_P eq RESPLI then] [store in dodoes] [store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [store in dodoes] [store name(R_P) in temptext] [ENDIF] $display >ERNHR< How many hours [fill dodoes] [fill temptext] usually work per week at this rate? ENTER NUMBER OF HOURS [blind] <01-99> Don't know [goto ERNCK7-C] Refused [goto ERNCK7-C] ===>__ [store ERNHR(R_P) in ERNHRO(R_P)] [goto ERNCK8-C] $d [alt 1] >ERNHR< Por lo regular, ¨cu ntas horas a la semana trabaja [fill temptext] a ese sueldo? ENTER NUMBER OF HOURS [blind] <01-99> Don't know [goto ERNCK7-C] Refused [goto ERNCK7-C] ===>__ [store ERNHR(R_P) in ERNHRO(R_P)] [goto ERNCK8-C] $end ----------------------------------------------------------------------------- COMMENT: IF ONPATH ENTRY OF V OR D IN HRUSL1 THEN STORE D IN ERNHRO AND GOTO ERNWK IF ONPATH ENTRY OF R IN HRUSL1 THEN STORE R IN ERNHRO AND GOTO ERNWK $>ERNCK7-C< [store HRUSL1(R_P) in ERNHRO(R_P)] [NIF HRUSL1(R_P) is OR HRUSL1(R_P) is then] [If onpath HRUSL1:R_P then store in ERNHRO(R_P)] [If onpath HRUSL1:R_P then goto ERNWK] [ENDIF] [NIF HRUSL1(R_P) is then] [If onpath HRUSL1:R_P then store in ERNHRO(R_P)] [If onpath HRUSL1:R_P then goto ERNWK] [ENDIF] $end ----------------------------------------------------------------------------- COMMENT: IF ONPATH ENTRY OF 1 IN ERNUOT THEN GOTO ERNOTP ALL OTHERS GOTO ERNVR1 $>ERNCK8-C< [NIF ERNUOT(R_P) is <1> then] [If onpath ERNUOT:R_P then goto ERNOTP] [ENDIF] [goto ERNVR1] $end ---------------------------------------------------------------------------- $>ERNOTP< [store < > in dodoes] [store < > in youheshe] [store < > in yourhshr] [store < > in temptext] [NIF R_P eq RESPLI then] [store in yourhshr] [store in youheshe] [store in dodoes] [if curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in yourhshr] [store in youheshe] [store in dodoes] [If curralt eq <1> then store in youheshe] [ELSE] [store in yourhshr] [store in youheshe] [store in dodoes] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] [store in temptext] [If curralt eq <1> then store <¨Cu nto> in temptext] [NIF MJ(R_P) is <1> AND curralt nq <1> then] [if onpath MJ:R_P then combine < > yourhshr < >
into temptext] [ELSEIF MJ(R_P) is <1> then] [If onpath MJ:R_P then store in temptext] [ENDIF] $display >ERNOTP< [fill temptext] much [fill dodoes] [fill youheshe] usually receive JUST in overtime pay, tips or commissions, before taxes or other deductions? <1> Per hour [goto ERNOTH] <2> Per day <3> Per week <4> Per month <5> Per year <6> Other [goto ERNOTE] [blind] Don't know [store in ERNOTO(R_P)] [goto ERNOTE] Refused [store in ERNOTO(R_P)] [goto ERNLAB] ===>_ $d [alt 1] >ERNOTP< [fill temptext] gana [fill youheshe] regularmente SOLO por horas extras, propinas o comisi¢n, sin descontar los impuestos u otras deducciones? <1> Per hour [goto ERNOTH] <2> Per day <3> Per week <4> Per month <5> Per year <6> Other [goto ERNOTE] [blind] Don't know [store in ERNOTO(R_P)] [goto ERNOTE] Refused [store in ERNOTO(R_P)] [goto ERNLAB] ===>_ $end ---------------------------------------------------------------------- $>ERNOTA< [store <0> in xbad(1)] $display [no erase] >ERNOTA< ***** DO NOT READ TO RESPONDENT ***** ENTER DOLLAR AMOUNT ===>[N]$_____.__ [store ERNOTA(R_P) in ERNOTO(R_P)] [goto ERNCK9-C] $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------- $>ERNOTH< [store <0> in xbad(1)] $display [no erase] >ERNOTH< ***** DO NOT READ TO RESPONDENT ***** ENTER DOLLAR AMOUNT ===>[N]$__.__ [store ERNOTH(R_P) in ERNOTO(R_P)] [goto ERNCK9-C] $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------- COMMENT: IF ONPATH ENTRY OF 1 IN ERNOTP AND ENTRY IN ERNOTH IS BETWEEEN 1 AND 30 THEN GOTO ERNOH ELSE GOTO ERNRG2 IF ONPATH ENTRY OF 1 IN ERNOTP AND THE ENTRY IN ERNOTA IS BETWEEN 1 AND 30 THEN GOTO ERNOH ELSE GOTO ERNRG2 IF ONPATH ENTRY OF 2 IN ERNOTP AND THE ENTRY IN ERNOTA IS BETWEEN 1 AND 240 THEN GOTO ERNOTE ELSE GOTO ERNRG2 IF ONPATH ENTRY OF 3 IN ERNOTP AND THE ENTRY IN ERNOTA IS BETWEEN 1 AND 1500 THEN GOTO ERNVR1 ELSE GOTO ERNRG2 IF ONPATH ENTRY OF 4 IN ERNOTP AND THE ENTRY IN ERNOTA IS BETWEEN 1 AND 6000 THEN GOTO ERNVR1 ELSE GOTO ERNRG2 IF ONPATH ENTRY OF 5 IN ERNOTP AND THE ENTRY IN ERNOTA IS BETWEEN 1 AND 72000 THEN GOTO ERNVR1 ELSE GOTO ERNRG2 $>ERNCK9-C< [store <0> in rindex] [store <0> in index2] [NIF ERNOTP(R_P) is <1> then] [if onpath ERNOTP:R_P then store <1> in index2] [ENDIF] [NIF ERNOTH(R_P) isnt AND ERNOTH(R_P) isnt then] [If onpath ERNOTH:R_P then convert ERNOTH(R_P) character to rindex real] [ENDIF] [NIF rindex ge <1.0> AND rindex le <30.0> then] [If index2 eq <1> then goto ERNOH] [ENDIF] [If index2 eq <1> then goto ERNRG2] [store <0> in rindex] [store <0> in index2] [store <0> in index3] [If onpath ERNOTP:R_P then store <1> in index3] [NIF ERNOTP(R_P) is <1> AND index3 eq <1> then] [store <1> in index2] [ELSEIF ERNOTP(R_P) is <2> AND index3 eq <1> then] [store <2> in index2] [ELSEIF ERNOTP(R_P) is <3> AND index3 eq <1> then] [store <3> in index2] [ELSEIF ERNOTP(R_P) is <4> AND index3 eq <1> then] [store <4> in index2] [ELSEIF ERNOTP(R_P) is <5> AND index3 eq <1> then] [store <5> in index2] [ENDIF] [NIF ERNOTA(R_P) isnt AND ERNOTA(R_P) isnt then] [If onpath ERNOTA:R_P then convert ERNOTA(R_P) character to rindex real] [ENDIF] 1. If onpath entry of 1 in ERNOTP and the entry in ERNOTA is between 1.00 and 30.00 skip to ERNOH else goto ERNRG2 [NIF rindex ge <1.0> AND rindex le <30.0> then] [If index2 eq <1> then goto ERNOH] [ENDIF] [If index2 eq <1> then goto ERNRG2] 2. If onpath entry of 2 in ERNOTP and the entry in ERNOTA is between 1.00 and 240.00 skip to ERNOTE else goto ERNRG2 [NIF rindex ge <1.0> AND rindex le <240.0> then] [If index2 eq <2> then goto ERNOTE] [ENDIF] [If index2 eq <2> then goto ERNRG2] 3. If onpath entry of 3 in ERNOTP and the entry in ERNOTA is between 1.00 and 1500.00 skip to ERNVR1 else goto ERNRG2 [NIF rindex ge <1.0> AND rindex le <1500.0> then] [If index2 eq <3> then goto ERNVR1] [ENDIF] [If index2 eq <3> then goto ERNRG2] 4. If onpath entry of 4 in ERNOTP and the entry in ERNOTA is between 1.00 and 6000.000 skip to ERNVR1 else goto ERNRG2 [NIF rindex ge <1.0> AND rindex le <6000.0> then] [If index2 eq <4> then goto ERNVR1] [ENDIF] [If index2 eq <4> then goto ERNRG2] 5. If onpath entry of 5 in ERNOTP and the entry in ERNOTA is between 1.00 and 72000.000 skip to ERNVR1 else goto ERNRG2. [NIF rindex ge <1.0> AND rindex le <72000.0> then] [If index2 eq <5> then goto ERNVR1] [ENDIF] [goto ERNRG2] $end ----------------------------------------------------------------------------- $>ERNOTE< [store < > in youheshe] [NIF R_P eq RESPLI then] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [if curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] [store <0> in xbad(1)] $display >ERNOTE< What is your best estimate of how much [fill youheshe] usually earns WEEKLY, JUST in overtime pay, tips, or commissions, before taxes or other deductions? ENTER DOLLAR AMOUNT [Blind] Don't know [store in ERNOTO(R_P)] [goto ERNLAB] Refused [store in ERNOTO(R_P)] [goto ERNLAB] ===>[N]$____ [store ERNOTE(R_P) in ERNOTO(R_P)] $d [alt 1] >ERNOTE< ¨Cu nto calcula usted que [fill yourhshr] gana POR SEMANA, S¢lo por horas extras, propinas, o comisi¢n, sin descontar impuestos u otras deducciones? ENTER DOLLAR AMOUNT [Blind] Don't know [store in ERNOTO(R_P)] [goto ERNLAB] Refused [store in ERNOTO(R_P)] [goto ERNLAB] ===>[N]$____ [store ERNOTE(R_P) in ERNOTO(R_P)] $edit [notless xbad(1)] [numeric] $end ----------------------------------------------------------------------------- COMMENT: IF ONPATH ENTRY IN ERNOTE IS BETWEEN 1 AND 1500 GOTO ERNVR1 ELSE GOTO ERNRG2. $>ERNCKC-C< [store <0> in rindex] [NIF ERNOTE(R_P) isnt AND ERNOTE(R_P) isnt then] [If onpath ERNOTE:R_P then convert ERNOTE(R_P) character to rindex real] [ENDIF] [NIF rindex ge <1.0> AND rindex le <1500.0> then] [goto ERNVR1] [ENDIF] $end ----------------------------------------------------------------------------- $>ERNRG2< [store < > in temptext] IF ONPATH ENTRY IN ERNOTE FILL WITH "WEEKLY" [If onpath ERNOTE:R_P then store in temptext] [NIF ERNOTP(R_P) is <1> then] [If onpath ERNOTP:R_P then store in temptext] [ELSEIF ERNOTP(R_P) is <3> then] [If onpath ERNOTP:R_P then store in temptext] [ELSEIF ERNOTP(R_P) is <4> then] [If onpath ERNOTP:R_P then store in temptext] [ELSEIF ERNOTP(R_P) is <5> then] [If onpath ERNOTP:R_P then store in temptext] [ENDIF] $display >ERNRG2< ****** DO NOT ASK****** Usual [fill temptext] earnings in overtime pay, tips or commissions recorded as: [fill ERNOTO(R_P)] IS THIS ENTRY CORRECT? <1> Yes [goto ERNCKD-C] <2> No [If onpath ERNOTA:R_P then goto ERNOCO] [goto ERNOCH] ===>_ $end ----------------------------------------------------------------------------- $>ERNOCO< [store <0> in xbad(1)] $display >ERNOCO< ******** DO NOT READ TO RESPONDENT ******** INCORRECT ENTRY WAS RECORDED AS: [fill ERNOTO(R_P)] CORRECT ENTRY IS: ===>[N]$_____.__ [Store ERNOCO(R_P) in ERNOTO(R_P)] [goto ERNCKD-C] $edit [notless xbad(1)] [numeric] $end ----------------------------------------------------------------------------- $>ERNOCH< [store <0> in xbad(1)] $display >ERNOCH< ******** DO NOT READ TO RESPONDENT ******** INCORRECT ENTRY WAS RECORDED AS: [fill ERNOTO(R_P)] CORRECT ENTRY IS: ===>[N]$__.__ [Store ERNOCH(R_P) in ERNOTO(R_P)] $edit [notless xbad(1)] [numeric] $end ----------------------------------------------------------------------------- COMMENT: IF ONPATH ENTRY OF 1 IN ERNOTP ASK ERNOH ELSE GOTO ERNVR1. $>ERNCKD-C< [NIF ERNOTP(R_P) is <1> then] [If onpath ERNOTP:R_P then goto ERNOH] [ENDIF] [goto ERNVR1] $end ----------------------------------------------------------------------------- $>ERNOH< [store < > in dodoes] [store < > in temptext] [NIF R_P eq RESPLI then] [store in temptext] [store in dodoes] [If curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [store in dodoes] [ENDIF] $display >ERNOH< How many hours [fill dodoes] [fill temptext] usually work per week at this rate? ENTER NUMBER OF HOURS [Blind] don't know [goto ERNOHE] Refused [goto ERNLAB] <00-99> ===>__ [goto ERNVR1] $d [alt 1] >ERNOH< Por lo regular, ¨cu ntas horas trabaja [fill temptext] por semana a ese sueldo? ENTER NUMBER OF HOURS [Blind] don't know [goto ERNOHE] Refused [goto ERNLAB] <00-99> ===>__ [goto ERNVR1] $end ----------------------------------------------------------------------------- $>ERNOHE< [store < > in youheshe] [store < > in temp2] [NIF R_P eq RESPLI then] [store in youheshe] [If curralt eq <1> then store in youheshe] [store in temp2] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [store in temp2] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [store in temp2] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] $display >ERNOHE< What is your best estimate of the number of hours per week [fill youheshe] usually [fill temp2] at this rate? ENTER NUMBER OF HOURS [Blind] Don't know [goto ERNLAB] Refused [goto ERNLAB] <00-99> ===>__ [goto ERNVR1] $d [alt 1] >ERNOHE< ¨Cu ntas horas a la semana calcula usted que [fill youheshe] trabaja regularmente a ese sueldo? ENTER NUMBER OF HOURS [Blind] Don't know [goto ERNLAB] Refused [goto ERNLAB] <00-99> ===>__ [goto ERNVR1] $end ----------------------------------------------------------------------------- $>ERNVR1< [store <0> in rindex2] [store <0> in rindex] [store < > in HWKRN(R_P)] [store < > in ERN(R_P)] [store < > in ERNX1(R_P)] [store <0> in HWKRN-r] [store <0> in ERN-r] [store <0> in ERNX1-r] [store <0> in index] [If onpath ERNHR:R_P then store <1> in index] [If onpath HRUSL1:R_P then store <1> in index] [NIF ERNHRO(R_P) isnt AND ERNHRO(R_P) isnt then] [If index eq <1> then convert ERNHRO(R_P) character to rindex2 real] [ENDIF] [store <0> in index] [If onpath ERNHRT:R_P then store <1> in index] [If onpath ERNHRE:R_P then store <1> in index] [If onpath ERNHCO:R_P then store <1> in index] [NIF ERNH1O(R_P) isnt AND ERNH1O(R_P) isnt then] [If index eq <1> then convert ERNH1O(R_P) character to rindex real] [ENDIF] [NIF rindex2 nq <0.0> AND rindex nq <0.0> then] [multiply rindex by rindex2] [ENDIF] [If rindex nq <0.0> then store rindex in HWKRN-r] [If HWKRN-r nq <0.0> then convert HWKRN-r real to HWKRN(R_P) character 10 3] [store <0> in index7] [If onpath ERNOTA:R_P then store <1> in index7] [If onpath ERNOTH:R_P then store <1> in index7] [If onpath ERNOTE:R_P then store <1> in index7] [If onpath ERNOCO:R_P then store <1> in index7] [If onpath ERNOCH:R_P then store <1> in index7] [store <0> in index] [NIF ERNOTO(R_P) isnt AND ERNOTO(R_P) isnt then] [If index7 eq <1> then store <1> in index] [ENDIF] [store <0> in index2] [NIF ERNOTE(R_P) isnt AND ERNOTE(R_P) isnt then] [If onpath ERNOTE:R_P then store <1> in index2] [ENDIF] USE HWKRN-R BECAUSE WE DO NOT WANT TO ADD ERN TO HWKRN HWKRN SHOULD ONLY COME FROM ABOVE [NIF index eq <1> AND index2 eq <1> then] [store ERNOTO(R_P) in ERN(R_P)] [If ERN(R_P) isnt < > then convert ERN(R_P) character to ERN-r real] [add ERN-r to HWKRN-r] [store HWKRN-r in ERNX1-r] [ENDIF] [store <0> in index2] [NIF ERNOTP(R_P) is <1> AND index eq <1> then] [if onpath ERNOTP:R_P then store <1> in index2] [ENDIF] [store <0> in rindex2] [NIF ERNOH(R_P) isnt AND ERNOH(R_P) isnt then] [If onpath ERNOH:R_P then convert ERNOH(R_P) character to rindex2 real] [ENDIF] [NIF ERNOHE(R_P) isnt AND ERNOHE(R_P) isnt then] [If onpath ERNOHE:R_P then convert ERNOHE(R_P) character to rindex2 real] [ENDIF] [store <0> in rindex] [NIF ERNOTO(R_P) isnt AND ERNOTO(R_P) isnt then] [IF index7 eq <1> then convert ERNOTO(R_P) character to rindex real] [ENDIF] [NIF index2 eq <1> then] CHANGED MAR 95 [multiply rindex by rindex2] [store rindex in ERN-r] [add ERN-r to HWKRN-r] [store HWKRN-r in ERNX1-r] [ENDIF] [if onpath ERNOTP:R_P then add <10> to index] [NIF ERNOTP(R_P) is <3> AND index eq <11> then] [store rindex in ERN-r] [add ERN-r to HWKRN-r] [store HWKRN-r in ERNX1-r] [ELSEIF ERNOTP(R_P) is <4> AND index eq <11> then] [divide rindex by <4.0>] [store rindex in ERN-r] [add ERN-r to HWKRN-r] [store HWKRN-r in ERNX1-r] [ELSEIF ERNOTP(R_P) is <5> AND index eq <11> then] [divide rindex by <52.0>] [store rindex in ERN-r] [add ERN-r to HWKRN-r] [store HWKRN-r in ERNX1-r] [ENDIF] [If ERN-r nq <0.0> then convert ERN-r real to ERN(R_P) character 10 2] [If ERNX1-r nq <0.0> then convert ERNX1-r real to ERNX1(R_P) character 10 2] [IF index7 nq <1> then store HWKRN(R_P) in ERNX1(R_P)] [store < > in yourhshr] [store < > in youheshe] [store < > in temp2] [store < > in temp4] [NIF R_P eq RESPLI then] [store in youheshe] [store in yourhshr] [If curralt eq <1> then store in youheshe] [If curralt eq <1> then combine < el> into temp4] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [store in yourhshr] [If curralt eq <1> then store in youheshe] [If curralt eq <1> then combine < > name(R_P) < el> into temp4] [ELSE] [store in youheshe] [store in yourhshr] [If curralt eq <1> then store <‚l> in youheshe] [If curralt eq <1> then combine < > name(R_P) < el> into temp4] [ENDIF] [store in temp2] [If curralt eq <1> then store in temp2] [NIF MJ(R_P) is <1> AND curralt nq <1> then] [If onpath MJ:R_P then combine < > yourhshr < main job as> into temp2] [ELSEIF MJ(R_P) is <1> then] [if onpath MJ:R_P then combine < > youheshe < empleo principal> < > temp4 into temp2] [ENDIF] [store ERNX1(R_P) in temp3] [If ERNX1(R_P) is < > then store ERNAMT(R_P) in temp3] $display >ERNVR1< I have estimated [fill yourhshr] usual WEEKLY earnings [fill temp2] $[fill temp3] before taxes or other deductions. Does that sound correct? <1> Yes [goto ERNLAB] <2> No [Blind] Don't know Refused [goto ERNLAB] ===>_ $d [alt 1] >ERNVR1< Al calcular sus ingresos por una semana de trabajo REGULAR [fill temp2] resultado que obtengo es de $[fill temp3], sin descontar impuestos u otras deducciones. ¨Le parece correcta esa cantidad? <1> S¡ [goto ERNLAB] <2> No [Blind] Don't know Refused [goto ERNLAB] ===>_ $end ----------------------------------------------------------------------------- $>ERNVR2< [multiple ERNVRa ERNVRb ERNVRc ERNVRd] [store < > in youheshe] [store < > in temptext] [store < > in temp2] [NIF R_P eq RESPLI then] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] [store <4> in xbad(1)] [store < > in temp3] [store < > in temp8] [store <0> in index] [NIF ERNOH(R_P) isnt AND ERNOH(R_P) isnt then] [if onpath ERNOH:R_P then store <1> in index] [ENDIF] [NIF ERNOHE(R_P) isnt AND ERNOHE(R_P) isnt then] [if onpath ERNOHE:R_P then store <2> in index] [ENDIF] [NIF index eq <1> AND curralt nq <1> then] [combine <4.> < > ERNOH(R_P) < as the number of hours per week> into temp3] [combine youheshe < usually work at this rate.> into temp8] [store < > in xbad(1)] [ELSEIF index eq <2> AND curralt nq <1> then] [combine <4.> < > ERNOHE(R_P) < as the number of hours per week> into temp3] [combine youheshe < usually work at this rate.> into temp8] [store < > in xbad(1)] [ELSEIF index eq <1> then] [combine <4.> < > ERNOH(R_P) < las horas que> < > youheshe into temp3] [store in temp8] [store < > in xbad(1)] [ENDIF] [store in temp2] [NIF ERNOTP(R_P) is <1> then] [If onpath ERNOTP:R_P then store in temp2] [ELSEIF ERNOTP(R_P) is <4> then] [If onpath ERNOTP:R_P then store in temp2] [ELSEIF ERNOTP(R_P) is <5> then] [If onpath ERNOTP:R_P then store in temp2] [ENDIF] [store < > in xbad(2)] [NIF curralt nq <1> then] [combine <3.> < > ERNOTO(R_P) < as the amount> < > youheshe into temp4] [combine temp4 < usually> into temp5] [combine < > temp2 < in overtime pay, tips and> into temp6] [store in temp7] [ELSE] [combine <3.> < > youheshe < regularmente ganaba> < > ERNOTO(R_P) into temp4] [combine temp2 < por horas extras, propinas comisi¢n.> into temp6] [store < > in temp7] [ENDIF] [store <0> in index7] [If onpath ERNOTA:R_P then store <1> in index7] [If onpath ERNOTH:R_P then store <1> in index7] [If onpath ERNOTE:R_P then store <1> in index7] [If onpath ERNOCO:R_P then store <1> in index7] [If onpath ERNOCH:R_P then store <1> in index7] [NIF index7 nq <1> then] [store < > in temp5] [store <3> in xbad(2)] [store < > in temp6] [store < > in temp7] [ENDIF] $itemtable >ERNVR2< I have recorded: 1. [fill ERNH1O(R_P)] as [fill yourhshr] hourly rate of pay. 2. [fill ERNHRO(R_P)] as the number of hours [fill youheshe] usually worked at this rate. [fill temp5] [fill temp6] [fill temp7] [fill temp3] [fill temp8] Which piece or pieces of information do not seem to be correct? DO NOT READ TO RESPONDENT: Enter number(s) corresponding to line(s) requiring correction. All information is correct. ENTER

TO PROCEED ENTER FOR NO MORE ===>_ ===>_ ===>_ ===>_ $d [alt 1] >ERNVR2< La informaci¢n del mes pasado indica que: 1. A usted le pagan [fill ERNH1O(R_P)] por hora. 2. Eran [fill ERNHRO(R_P)] las horas que [fill youheshe] regularmente trabajaba a ese sueldo. [fill temp5] [fill temp6] [fill temp7] [fill temp3] [fill temp8] ¨Hay alg£n dato que no le parezca correcto? DO NOT READ TO RESPONDENT: Enter number(s) corresponding to line(s) requiring correction. All information is correct. ENTER

TO PROCEED ENTER FOR NO MORE ===>_ ===>_ ===>_ ===>_ $end ----------------------------------------------------------------------------- $>ERNVRa< [within ERNVR2] $display [none] <1-4>

[goto ERNWK1] Don't know [goto ERNWK1] Refused [goto ERNLAB] $edit [notequal xbad(1)] [notequal xbad(2)] $end $>ERNVRb< [within ERNVR2] $display [none] <1-4> No more [goto ERNCKE-C] $edit [notequal xbad(1)] [notequal xbad(2)] $end $>ERNVRc< [within ERNVR2] $display [none] <1-4> [goto ERNCKE-C] $edit [notequal xbad(1)] [notequal xbad(2)] $end $>ERNVRd< [within ERNVR2] $display [none] <1-4> $edit [notequal xbad(1)] [notequal xbad(2)] $end ------------------------------------------------------------------------------- COMMENT: IF ONPATH ENTRY OF 1 IN ERNVR2 GOTO ERNH1C ELSE GOTO ERNCKF-C $>ERNCKE-C< [NIF ERNVRa(R_P) is <1> then] [If onpath ERNVRa:R_P then goto ERNH1C] [ENDIF] [NIF ERNVRb(R_P) is <1> then] [If onpath ERNVRb:R_P then goto ERNH1C] [ENDIF] [NIF ERNVRc(R_P) is <1> then] [If onpath ERNVRc:R_P then goto ERNH1C] [ENDIF] [NIF ERNVRd(R_P) is <1> then] [If onpath ERNVRd:R_P then goto ERNH1C] [ENDIF] [goto ERNCKF-C] $end ----------------------------------------------------------------------------- $>ERNH1C< [store < > in temptext] [NIF R_P eq RESPLI then] [store in temptext] [if curralt eq <1> then store in temptext] [ELSE] [combine name(R_P) <'s> into temptext] [ENDIF] [store <0> in xbad(1)] $display >ERNH1C< What is [fill temptext] hourly rate of pay on this job, excluding overtime pay, tips or commissions? ENTER DOLLAR AMOUNT [Blind] Don't know [goto ERNLAB] Refused [goto ERNLAB] ===>[N]$__.__ $d [alt 1] >ERNH1C< ¨Cu nto le pagan a [fill temptext] por hora en este empleo, sin contar horas extras, propinas o comisi¢n? ENTER DOLLAR AMOUNT [Blind] Don't know [goto ERNLAB] Refused [goto ERNLAB] ===>[N]$__.__ $edit [notless xbad(1)] [numeric] $end ----------------------------------------------------------------------------- COMMENT: IF ONPATH ENTRY OF 2 IN ERNVR2 GOTO ERNHC ELSE GOTO ERNCKG-C $>ERNCKF-C< [NIF ERNVRa(R_P) is <2> then] [If onpath ERNVRa:R_P then goto ERNHC] [ENDIF] [NIF ERNVRb(R_P) is <2> then] [If onpath ERNVRb:R_P then goto ERNHC] [ENDIF] [NIF ERNVRc(R_P) is <2> then] [If onpath ERNVRc:R_P then goto ERNHC] [ENDIF] [NIF ERNVRd(R_P) is <2> then] [If onpath ERNVRd:R_P then goto ERNHC] [ENDIF] [goto ERNCKG-C] $end ----------------------------------------------------------------------------- $>ERNHC< [store < > in dodoes] [store < > in temptext] [store < > in temp2] [NIF R_P eq RESPLI then] [store in dodoes] [store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [store in dodoes] [store name(R_P) in temptext] [ENDIF] [store ERNH1O(R_P) in temp2] [NIF ERNH1C(R_P) isnt AND ERNH1C(R_P) isnt then] [if onpath ERNH1C:R_P then store ERNH1C(R_P) in temp2] [ENDIF] $display >ERNHC< How many hours [fill dodoes] [fill temptext] usually work per week at the rate of [fill temp2]? ENTER HOURS <01-99> [Blind] Don't know [goto ERNLAB] Refused [goto ERNLAB] ===>__ $d [alt 1] >ERNHC< Por lo regular, ¨cu ntas horas trabaja [fill temptext] por semana, por [fill temp2]? ENTER HOURS <01-99> [Blind] Don't know [goto ERNLAB] Refused [goto ERNLAB] ===>__ $end ----------------------------------------------------------------------------- COMMENT: IF ONPATH ENTRY OF 3 IN ERNVR2 GOTO ERNOTC ELSE GOTO ERNCKH-C $>ERNCKG-C< [store <0> in index] [NIF ERNVRa(R_P) is <3> then] [if onpath ERNVRa:R_P then store <1> in index] [ENDIF] [NIF ERNVRb(R_P) is <3> then] [if onpath ERNVRb:R_P then store <1> in index] [ENDIF] [NIF ERNVRc(R_P) is <3> then] [if onpath ERNVRc:R_P then store <1> in index] [ENDIF] [NIF ERNVRd(R_P) is <3> then] [if onpath ERNVRd:R_P then store <1> in index] [ENDIF] [NIF index eq <1> AND ERNOTP(R_P) is <1> then] [If onpath ERNOTP:R_P then goto ERNOHC] [ENDIF] [If index eq <1> then goto ERNOTC] [goto ERNCKH-C] $end ----------------------------------------------------------------------------- $>ERNOTC< [store < > in dodoes] [store < > in temptext] [store < > in temp2] [NIF R_P eq RESPLI then] [store in dodoes] [store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [store in dodoes] [store name(R_P) in temptext] [ENDIF] [store in temp2] [NIF ERNOTP(R_P) is <4> then] [If onpath ERNOTP:R_P then store in temp2] [ELSEIF ERNOTP(R_P) is <5> then] [If onpath ERNOTP:R_P then store in temp2] [ENDIF] [store <0> in xbad(1)] $display >ERNOTC< How much [fill dodoes] [fill temptext] usually earn [fill temp2] just in overtime pay, tips or commissions? ENTER DOLLAR AMOUNT [Blind] Don't know [goto ERNLAB] Refused [goto ERNLAB] ===>[N]$_____.__ [goto ERNCKH-C] $d [alt 1] >ERNOTC< Por lo regular, ¨cu nto gana [fill temptext] POR SEMANA s¢lo en horas extras, propinas o comisi¢n? ENTER DOLLAR AMOUNT [Blind] Don't know [goto ERNLAB] Refused [goto ERNLAB] ===>[N]$_____.__ [goto ERNCKH-C] $edit [notless xbad(1)] [numeric] $end ----------------------------------------------------------------------------- $>ERNOHC< [store < > in dodoes] [store < > in temptext] [store < > in temp2] [NIF R_P eq RESPLI then] [store in dodoes] [store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [store in dodoes] [store name(R_P) in temptext] [ENDIF] [store <0> in xbad(1)] $display >ERNOHC< How much [fill dodoes] [fill temptext] usually earn hourly just in overtime pay, tips or commissions? ENTER DOLLAR AMOUNT [Blind] Don't know [goto ERNLAB] Refused [goto ERNLAB] ===>[N]$__.__ $d [alt 1] >ERNOHC< Por lo regular, ¨cu nto gana [fill temptext] POR SEMANA s¢lo en horas extras, propinas o comisi¢n? ENTER DOLLAR AMOUNT [Blind] Don't know [goto ERNLAB] Refused [goto ERNLAB] ===>[N]$__.__ $edit [notless xbad(1)] [numeric] $end ----------------------------------------------------------------------------- COMMENT: IF ONPATH ENTRY OF 4 IN ERNVR2 GOTO ERNH2C ELSE GOTO ERNCKI-C $>ERNCKH-C< [NIF ERNVRa(R_P) is <4> then] [If onpath ERNVRa:R_P then goto ERNH2C] [ENDIF] [NIF ERNVRb(R_P) is <4> then] [If onpath ERNVRb:R_P then goto ERNH2C] [ENDIF] [NIF ERNVRc(R_P) is <4> then] [If onpath ERNVRc:R_P then goto ERNH2C] [ENDIF] [NIF ERNVRd(R_P) is <4> then] [If onpath ERNVRd:R_P then goto ERNH2C] [ENDIF] [goto ERNCKI-C] $end ----------------------------------------------------------------------------- $>ERNH2C< [store < > in dodoes] [store < > in temptext] [store < > in temp2] [NIF R_P eq RESPLI then] [store in dodoes] [store in temptext] [if curralt eq <1> then store in temptext] [ELSE] [store in dodoes] [store name(R_P) in temptext] [ENDIF] [store ERNOTO(R_P) in temp2] [NIF ERNOHC(R_P) isnt AND ERNOHC(R_P) isnt then] [if onpath ERNOHC:R_P then store ERNOHC(R_P) in temp2] [ENDIF] $display >ERNH2C< How many hours [fill dodoes] [fill temptext] usually work per week at the rate of [fill temp2]? ENTER HOURS <00-99> [Blind] Don't know [goto ERNLAB] Refused [goto ERNLAB] ===>__ $d [alt 1] >ERNH2C< Por lo regular, ¨cu ntas horas trabaja [fill temptext] por semana, por [fill temp2]? ENTER HOURS <00-99> [Blind] Don't know [goto ERNLAB] Refused [goto ERNLAB] ===>__ $end ----------------------------------------------------------------------------- COMMENT: THIS CHECK ITEM DOES NOT MATCH THE SPECS BECAUSE THE SKIPS FOR P OR D IN ERNVR2 ARE DONE IN ERNVR2 $>ERNCKI-C< [goto ERNX2-C] $end ----------------------------------------------------------------------------- $>ERNWK1< [store < > in temptext] [store < > in yourhshr] [store < > in temp2] [NIF R_P eq RESPLI then] [store in temptext] [store in yourhshr] [if curralt eq <1> then store in temptext] [ELSEIF sex(R_P) is <2> then] [store in yourhshr] [combine name(R_P) <'s> into temptext] [ELSE] [store in yourhshr] [combine name(R_P) <'s> into temptext] [ENDIF] [store in temp2] [If curralt eq <1> then store <,> in temp2] [NIF MJ(R_P) is <1> AND curralt nq <1> then] [If onpath MJ:R_P then combine yourhshr

into temp2] [ELSEIF MJ(R_P) is <1> then] [if onpath MJ:R_P then store < principal> in temp2] [ENDIF] [store <0> in xbad(1)] $display >ERNWK1< Then, including overtime pay, tips and commissions, what are [fill temptext] usual WEEKLY earnings on [fill temp2] job, before taxes or other deductions? CORRECT ENTRY IS: [Blind] Don't know [goto ERNLAB] Refused [goto ERNLAB] ===>[N]$____ $d [alt 1] >ERNWK1< Entonces, incluyendo horas extras, propinas y comisi¢n, ¨cu nto acostumbra ganar [fill temptext] por semana en (este) empleo[fill temp2] sin descontar impuestos u otras deducciones? CORRECT ENTRY IS: [Blind] Don't know [goto ERNLAB] Refused [goto ERNLAB] ===>[N]$____ $edit [notless xbad(1)] [numeric] $end ----------------------------------------------------------------------------- COMMENT: IF ONPATH ENTRY OTHER THAN D OR R IN ERNH1C AND ONPATH ENTRY OTHER THAN D OR R IN ERNHC MULTIPLY ERNH1C BY ERNHC AND STORE IN HWKRN2 IF NO ONPATH ENTRY IN ERNH1C AND NO ONPATH ENTRY IN ERNHC THEN PLACE HWKRN IN HWKRN2 IF ONPATH ENTRY OTHER THAN D OR R IN ERNH1C AND NO ONPATH ENTRY IN ERNHC MULTIPLY ERNH1C BY ERNHRO AND STORE IN HWKRN2 IF NO ONPATH ENTRY IN ERNH1C AND ONPATH ENTRY OTHER THAN D OR R IN ERNHC THEN MULTIPLY ERNH1O BY ERNHC AND STORE IN HWKRN2 IF ONPATH ENTRY OTHER THAN D OR R IN ERNOTC OR ERNOHC THEN - IF ONPATH ENTRY OF 1 IN ERNOTP AND IF ONPATH ENTRY OTHER THAN D OR R IN ERNH2C MULTIPLY ERNOHC BY ERNH2C AND STORE IN ERN2. ADD ERN2 AND HWKRN2 AND STORE IN ERNX2 ELSE - IF ONPATH ENTRY OF 1 IN ERNOTP AND NO ONPATH ENTRY IN ERNH2C THEN MULTIPLY ERNOHC ENTRY BY ERNOH OR ERNOHE ENTRY AND STORE IN ERN2. ADD ERN2 AND HWKRN2 AND STORE IN ERNX2 ELSE - IF ONPATH ENTRY OF 2 OR 3 IN ERNOTP OR STORE ERNOTC IN ERN2. ADD ERN2 AND HWKRN2 AND STORE IN ERNX2 ELSE - IF ONPATH ENTRY OF 4 IN ERNOTP DIVIDE ERNOTC BY 4 AND STORE IN ERN2. ADD ERN2 AND HWKRN2 AND STORE IN ERNX2 ELSE - IF ONPATH ENTRY OF 5 IN ERNOTP DIVIDE ERNOTC BY 52 AND STORE IN ERN2. ADD ERN2 AND HWKRN2 AND STORE IN ERNX2 ELSE ADDED FOR JANUARY - IF ONPATH ENTRY OTHER THAN D OR R IN ERNOTC AND NO ONPATH ENTRY IN ERNOTP THEN STORE ERNOTC IN ERN2. ADD ERN2 AND HWKRN2 AND STORE IN ERNX2 IF NO ONPATH ENTRY IN ERNOHC AND ONPATH ENTRY OF 1 IN ERNOTP AND ONPATH ENTRY OTHER THAN D OR R IN ERNH2C THEN MULTIPLY ERNOTO BY ERNH2C AND STORE IN ERN2. ADD ERN2 AND HWKRN2 AND STORE IN ERNX2 IF NO ONPATH ENTRY OF 3 OR 4 IN ERNVR2 THEN STORE ERN IN ERN2. ADD ERN2 AND HWKRN2 AND STORE IN ERNX2 IF ONPATH ENTRY OTHER THAN D OR R IN ERNWK1 STORE ERNWK1 IN ERNX2 $>ERNX2-C< [store <0> in index] [store <0> in index2] [store <0> in index3] [store <0> in index4] [store < > in HWKRN2(R_P)] [store < > in ERNX2(R_P)] [store < > in ERN2(R_P)] [store <0> in HWKR2-r] [store <0> in ERNX2-r] [store <0> in ERN2-r] [If onpath ERNH1C:R_P then store <1> in index] [If onpath ERNHC:R_P then store <1> in index2] [NIF ERNH1C(R_P) isnt AND ERNH1C(R_P) isnt then] [If index eq <1> then store <1> in index3] [ENDIF] [NIF ERNHC(R_P) isnt AND ERNHC(R_P) isnt then] [If index2 eq <1> then store <1> in index4] [ENDIF] [store <0> in index5] [store <0> in index6] [store <0> in rindex] [store <0> in rindex2] [store <0> in index6] [store <0> in index7] [NIF ERNH1C(R_P) isnt AND ERNH1C(R_P) isnt then] [If ERNH1C(R_P) isnt < > then store <1> in index6] [ENDIF] [NIF ERNH1O(R_P) isnt AND ERNH1O(R_P) isnt then] [If ERNH1O(R_P) isnt < > then store <1> in index7] [ENDIF] [NIF index3 eq <1> AND index4 eq <1> then] [If index6 eq <1> then convert ERNH1C(R_P) character to rindex2 real] [convert ERNHC(R_P) character to index6 integer] [multiply rindex2 by index6] [store rindex2 in HWKR2-r] [ELSEIF index eq <0> AND index2 eq <0> then] [store HWKRN(R_P) in HWKRN2(R_P)] [ELSEIF index3 eq <1> AND index2 eq <0> then] [If index6 eq <1> then convert ERNH1C(R_P) character to rindex2 real] [convert ERNHRO(R_P) character to index6 integer] [multiply rindex2 by index6] [store rindex2 in HWKR2-r] [ELSEIF index eq <0> AND index4 eq <1> then] [convert ERNHC(R_P) character to index5 integer] [If index7 eq <1> then convert ERNH1O(R_P) character to rindex real] [multiply rindex by index5] [store rindex in HWKR2-r] [ENDIF] [If HWKR2-r nq <0.0> then convert HWKR2-r real to HWKRN2(R_P) character 10 3] [store <0> in index] [store <0> in index2] [store <0> in index3] [store <0> in index4] [store <0> in index7] [NIF ERNOTC(R_P) isnt AND ERNOTC(R_P) isnt then] [If onpath ERNOTC:R_P then store <1> in index] [ENDIF] [NIF ERNOHC(R_P) isnt AND ERNOHC(R_P) isnt then] [If onpath ERNOHC:R_P then store <1> in index] [ENDIF] [If onpath ERNH2C:R_P then store <1> in index2] [NIF ERNH2C(R_P) isnt AND ERNH2C(R_P) isnt then] [If index2 eq <1> then store <1> in index3] [ENDIF] [NIF ERNOTP(R_P) is <1> AND index eq <1> then] [If onpath ERNOTP:R_P then store <1> in index4] [ENDIF] [store <0> in index7] [NIF ERNOH(R_P) isnt AND ERNOH(R_P) isnt then] [If onpath ERNOH:R_P then convert ERNOH(R_P) character to index7 integer] [ENDIF] [NIF ERNOHE(R_P) isnt AND ERNOHE(R_P) isnt then] [If onpath ERNOHE:R_P then convert ERNOHE(R_P) character to index7 integer] [ENDIF] [If HWKRN2(R_P) isnt < > then convert HWKRN2(R_P) character to HWKR2-r real] [store <0> in rindex] [store <0> in index6] [NIF index4 eq <1> AND index3 eq <1> then] [convert ERNOHC(R_P) character to rindex real] [convert ERNH2C(R_P) character to index6 integer] [multiply rindex by index6] [store rindex in ERN2-r] [add ERN2-r to HWKR2-r] [store HWKR2-r in ERNX2-r] [ELSEIF index4 eq <1> AND index2 eq <0> then] [convert ERNOHC(R_P) character to rindex real] [multiply rindex by index7] [store rindex in ERN2-r] [add ERN2-r to HWKR2-r] [store HWKR2-r in ERNx2-r] [ENDIF] [store <0> in index2] [store <0> in index3] [store <0> in index4] [If onpath ERNOTP:R_P then store <1> in index2] [NIF ERNOTP(R_P) is <2> OR ERNOTP(R_P) is <3> then] [If index2 eq <1> then store <1> in index4] [ENDIF] [NIF index4 eq <1> AND index eq <1> then] [If ERNOTC(R_P) isnt < > then convert ERNOTC(R_P) character to ERN2-r real] [add ERN2-r to HWKR2-r] [store HWKR2-r in ERNX2-r] [ENDIF] [store <0> in rindex] [store <0> in index7] [NIF ERNOTC(R_P) isnt AND ERNOTC(R_P) isnt then] [If ERNOTC(R_P) isnt < > then store <1> in index7] [ENDIF] [NIF ERNOTP(R_P) is <4> AND index eq <1> then] [If index7 eq <1> then convert ERNOTC(R_P) character to rindex real] [divide rindex by <4.0>] [store rindex in ERN2-r] [add ERN2-r to HWKR2-r] [store HWKR2-r in ERNX2-r] [ELSEIF ERNOTP(R_P) is <5> AND index eq <1> then] [If index7 eq <1> then convert ERNOTC(R_P) character to rindex real] [divide rindex by <52.0>] [store rindex in ERN2-r] [add ERN2-r to HWKR2-r] [store HWKR2-r in ERNX2-r] [ENDIF] NEW CONDITION ADDED IN JANUARY [store <0> in index] [If onpath ERNOHC:R_P then store <1> in index] [If onpath ERNOTC:R_P then store <1> in index] [If onpath ERNOTP:R_P then add <10> to index] [NIF index eq <1> then] [If onpath ERNOHC:R_P then convert ERNOHC(R_P) character to ERN2-r real] [If onpath ERNOTC:R_P then convert ERNOTC(R_P) character to ERN2-r real] [store ERN2-r in ERNX2-r] [add HWKR2-r to ERNX2-r] [ENDIF] [store <0> in index] [store <0> in index2] [store <0> in index3] [store <0> in index4] [store <0> in index5] [If onpath ERNOTC:R_P then store <1> in index] [If onpath ERNOHC:R_P then store <1> in index5] [If onpath ERNH2C:R_P then store <1> in index2] [NIF ERNH2C(R_P) isnt AND ERNH2C(R_P) isnt then] [If index2 eq <1> then store <1> in index3] [ENDIF] [NIF ERNOTP(R_P) is <1> AND index5 eq <0> then] [If onpath ERNOTP:R_P then store <1> in index4] [ENDIF] [store <0> in index6] [store <0> in rindex] [store <0> in index7] [NIF ERNOTO(R_P) isnt AND ERNOTO(R_P) isnt then] [If ERNOTO(R_P) isnt < > then store <1> in index7] [ENDIF] [NIF index3 eq <1> AND index4 eq <1> then] [if index7 eq <1> then convert ERNOTO(R_P) character to rindex real] [If ERNH2C(R_P) isnt < > then convert ERNH2C(R_P) character to index6 integer] [multiply rindex by index6] [store rindex in ERN2-r] [add ERN2-r to HWKR2-r] [store HWKR2-r in ERNX2-r] [ENDIF] [store <0> in index] COMMENT: OR 4 ADDED OCT 94 [NIF ERNVRa(R_P) is <3> OR ERNVRa(R_P) is <4> then] [if onpath ERNVRa:R_P then store <1> in index] [ENDIF] [NIF ERNVRb(R_P) is <3> OR ERNVRb(R_P) is <4> then] [if onpath ERNVRb:R_P then store <1> in index] [ENDIF] [NIF ERNVRc(R_P) is <3> OR ERNVRc(R_P) is <4> then] [if onpath ERNVRc:R_P then store <1> in index] [ENDIF] [NIF ERNVRd(R_P) is <3> OR ERNVRd(R_P) is <4> then] [if onpath ERNVRd:R_P then store <1> in index] [ENDIF] [store <0> in ERN-r] [store <0> in rindex] [NIF index eq <0> then] [convert ERN(R_P) character to ERN-r real] [store ERN-r in ERN2-r] [store ERN2-r in rindex] [add HWKR2-r to rindex] [store rindex in ERNX2-r] [ENDIF] [NIF ERNUOT(R_P) is <2> then] [If onpath ERNUOT:R_P then store HWKRN2(R_P) in ERNX2(R_P)] [ENDIF] [NIF ERNWK1(R_P) isnt AND ERNWK1(R_P) isnt then] [If onpath ERNWK1:R_P then convert ERNWK1(R_P) character to ERNX2-r real] [ENDIF] [If ERN2-r nq <0.0> then convert ERN2-r real to ERN2(R_P) character 10 3] [If ERNX2-r nq <0.0> then convert ERNX2-r real to ERNX2(R_P) character 10 3] $end ----------------------------------------------------------------------------- $>ERNVR3< [store < > in yourhshr] [store < > in temp2] [NIF R_P eq RESPLI then] [store in yourhshr] [ELSEIF sex(R_P) is <2> then] [store in yourhshr] [ELSE] [store in yourhshr] [ENDIF] [store in temp2] [If curralt eq <1> then store <‚l> in temp2] [NIF MJ(R_P) is <1> AND curralt nq <1> then] [If onpath MJ:R_P then combine <, for> < > yourhshr < main job, as> into temp2] [ELSEIF MJ(R_P) is <1> then] [If onpath MJ:R_P then store in temp2] [ENDIF] $display >ERNVR3< I have estimated [fill yourhshr] total WEEKLY earnings [fill temp2] as $[fill ERNX2(R_P)] WEEKLY before taxes or other deductions. Does that sound correct? <1> Yes [goto ERNLAB] <2> No (Irreconcilable difference) [goto ERNLAB] ===>_ $d [alt 1] >ERNVR3< Al calcular el total de sus ingresos SEMANALES [fill temp2] resultado que obtengo es de $[fill ERNX2(R_P)] A LA SEMANA sin descontar impuestos y otras deducciones. ¨Le parece correcta esa cantidad? <1> S¡ [goto ERNLAB] <2> No (Irreconcilable difference) [goto ERNLAB] ===>_ $end ----------------------------------------------------------------------------- $>ERNWK< [store < > in youheshe] [store < > in temp2] [store < > in temptext] [NIF R_P eq RESPLI then] [store in yourhshr] [store in temptext] [if curralt eq <1> then store in temptext] [ELSEIF sex(R_P) is <2> then] [store in yourhshr] [combine name(R_P) <'s> into temptext] [If curralt eq <1> then store name(R_P) in temptext] [ELSE] [store in yourhshr] [combine name(R_P) <'s> into temptext] [If curralt eq <1> then store name(R_P) in temptext] [ENDIF] [store in temp2] [If curralt eq <1> then store <,> in temp2] [NIF MJ(R_P) is <1> AND curralt nq <1> then] [If onpath MJ:R_P then combine yourhshr < MAIN job,> into temp2] [ELSEIF MJ(R_P) is <1> then] [If onpath MJ:R_P then store < PRINCIPAL,> in temp2] [ENDIF] [store < > in temp3] [NIF ERNUOT(R_P) is <1> AND curralt nq <1> then] [if onpath ERNUOT:R_P then store in temp3] [ELSEIF ERNUOT(R_P) is <1> then] [if onpath ERNUOT:R_P then store in temp3] [ENDIF] [store <0> in xbad(1)] $display >ERNWK< [fill temp3] What are [fill temptext] usual weekly earnings on [fill temp2] before taxes or other deductions? ENTER DOLLAR AMOUNT [Blind] Don't know [store in ERNAMT(R_P)] [goto ERNDKP] Refused [store in ERNAMT(R_P)] [goto PRE-ERNRT] ===>[N]$____ [store ERNWK(R_P) in ERNAMT(R_P)] [goto ERNCKJ-C] $d [alt 1] >ERNWK< [fill temp3] ¨Cu nto gana [fill temptext] por semana en su empleo[fill temp2] sin descontar impuestos u otras deducciones? ENTER DOLLAR AMOUNT [Blind] Don't know [store in ERNAMT(R_P)] [goto ERNDKP] Refused [store in ERNAMT(R_P)] [goto PRE-ERNRT] ===>[N]$____ [store ERNWK(R_P) in ERNAMT(R_P)] [goto ERNCKJ-C] $edit [notless xbad(1)] [numeric] $end ----------------------------------------------------------------------------- $>ERNMON< [store < > in youheshe] [store < > in temp2] [store < > in temptext] [NIF R_P eq RESPLI then] [store in yourhshr] [store in temptext] [If curralt eq <1> then store in temptext] [ELSEIF sex(R_P) is <2> then] [store in yourhshr] [combine name(R_P) <'s> into temptext] [If curralt eq <1> then store name(R_P) in temptext] [ELSE] [store in yourhshr] [combine name(R_P) <'s> into temptext] [If curralt eq <1> then store name(R_P) in temptext] [ENDIF] [store in temp2] [If curralt eq <1> then store <,> in temp2] [NIF MJ(R_P) is <1> AND curralt nq <1> then] [If onpath MJ:R_P then combine yourhshr < MAIN job,> into temp2] [ELSEIF MJ(R_P) is <1> then] [If onpath MJ:R_P then store < PRINCIPAL,> in temp2] [ENDIF] [store < > in temp3] [NIF ERNUOT(R_P) is <1> AND curralt nq <1> then] [if onpath ERNUOT:R_P then store in temp3] [ELSEIF ERNUOT(R_P) is <1> then] [if onpath ERNUOT:R_P then store in temp3] [ENDIF] [store <0> in xbad(1)] $display >ERNMON< [fill temp3] what are [fill temptext] usual monthly earnings on [fill temp2], before taxes or other deductions? ENTER DOLLAR AMOUNT [Blind] Don't know [store in ERNAMT(R_P)] [goto ERNDKP] Refused [store in ERNAMT(R_P)] [goto PRE-ERNRT] ===>[N]$____ [store ERNMON(R_P) in ERNAMT(R_P)] [goto ERNCKJ-C] $d [alt 1] >ERNMON< [fill temp3] ¨Cu nto acostumbra [fill temptext] ganar por mes en su empleo[fill temp2] antes de descontar impuestos u otras deducciones? ENTER DOLLAR AMOUNT [Blind] Don't know [store in ERNAMT(R_P)] [goto ERNDKP] Refused [store in ERNAMT(R_P)] [goto PRE-ERNRT] ===>[N]$____ [store ERNMON(R_P) in ERNAMT(R_P)] [goto ERNCKJ-C] $edit [notless xbad(1)] [numeric] $end ----------------------------------------------------------------------------- $>ERNANN< [store < > in youheshe] [store < > in temp2] [store < > in temptext] [NIF R_P eq RESPLI then] [store in yourhshr] [store in temptext] [If curralt eq <1> then store in temptext] [ELSEIF sex(R_P) is <2> then] [store in yourhshr] [combine name(R_P) <'s> into temptext] [If curralt eq <1> then store name(R_P) in temptext] [ELSE] [store in yourhshr] [combine name(R_P) <'s> into temptext] [If curralt eq <1> then store name(R_P) in temptext] [ENDIF] [store in temp2] [If curralt eq <1> then store <,> in temp2] [NIF MJ(R_P) is <1> AND curralt nq <1> then] [If onpath MJ:R_P then combine yourhshr < MAIN job,> into temp2] [ELSEIF MJ(R_P) is <1> then] [If onpath MJ:R_P then store < PRINCIPAL,> in temp2] [ENDIF] [store < > in temp3] [NIF ERNUOT(R_P) is <1> AND curralt nq <1> then] [if onpath ERNUOT:R_P then store in temp3] [ELSEIF ERNUOT(R_P) is <1> then] [if onpath ERNUOT:R_P then store in temp3] [ENDIF] [store <0> in xbad(1)] $display >ERNANN< [fill temp3] What are [fill temptext] usual annual earnings on [fill temp2] before taxes or other deductions? ENTER DOLLAR AMOUNT [Blind] Don't know [store in ERNAMT(R_P)] [goto ERNDKP] Refused [store in ERNAMT(R_P)] [goto PRE-ERNRT] ===>[N]$______ [store ERNANN(R_P) in ERNAMT(R_P)] [goto ERNCKJ-C] $d [alt 1] >ERNANN< [fill temp3] ¨Cu nto acostumbra [fill temptext] ganar al a¤o en su empleo[fill temp2] sin descontar impuestos u otras deducciones? ENTER DOLLAR AMOUNT [Blind] Don't know [store in ERNAMT(R_P)] [goto ERNDKP] Refused [store in ERNAMT(R_P)] [goto PRE-ERNRT] ===>[N]$______ [store ERNANN(R_P) in ERNAMT(R_P)] [goto ERNCKJ-C] $edit [notless xbad(1)] [numeric] $end ----------------------------------------------------------------------------- $>ERNBWK< [store < > in youheshe] [store < > in temp2] [store < > in temptext] [NIF R_P eq RESPLI then] [store in yourhshr] [store in temptext] [If curralt eq <1> then store in temptext] [ELSEIF sex(R_P) is <2> then] [store in yourhshr] [combine name(R_P) <'s> into temptext] [If curralt eq <1> then store name(R_P) in temptext] [ELSE] [store in yourhshr] [combine name(R_P) <'s> into temptext] [If curralt eq <1> then store name(R_P) in temptext] [ENDIF] [store in temp2] [If curralt eq <1> then store <,> in temp2] [NIF MJ(R_P) is <1> AND curralt nq <1> then] [If onpath MJ:R_P then combine yourhshr < MAIN job,> into temp2] [ELSEIF MJ(R_P) is <1> then] [If onpath MJ:R_P then store in temp2] [ENDIF] [store < > in temp3] [NIF ERNUOT(R_P) is <1> AND curralt nq <1> then] [if onpath ERNUOT:R_P then store in temp3] [ELSEIF ERNUOT(R_P) is <1> then] [if onpath ERNUOT:R_P then store in temp3] [ENDIF] [store <0> in xbad(1)] $display >ERNBWK< [fill temp3] what are [fill temptext] usual bi-weekly earnings on [fill temp2] before taxes or other deductions? ENTER DOLLAR AMOUNT [Blind] Don't know [store in ERNAMT(R_P)] [goto ERNDKP] Refused [store in ERNAMT(R_P)] [goto PRE-ERNRT] ===>[N]$____ [store ERNBWK(R_P) in ERNAMT(R_P)] [goto ERNCKJ-C] $d [alt 1] >ERNBWK< [fill temp3] ¨Cu nto acostumbra [fill temptext] ganar cada dos semanas en su empleo[fill temp2] sin descontar impuestos u otras deducciones? ENTER DOLLAR AMOUNT [Blind] Don't know [store in ERNAMT(R_P)] [goto ERNDKP] Refused [store in ERNAMT(R_P)] [goto PRE-ERNRT] ===>[N]$____ [store ERNBWK(R_P) in ERNAMT(R_P)] [goto ERNCKJ-C] $edit [notless xbad(1)] [numeric] $end ----------------------------------------------------------------------------- COMMENT: IF ONPATH ENTRY OF 2, 7 OR D IN ERNPER AND ENTRY IN ERNAMT IS BETWEEN 1 AND 1500 THEN GOTO ERNVR4 ELSE GOTO ERNRG3 IF ONPATH ENTRY OF 3 IN ERNPER AND ENTRY IN ERNAMT IS BETWEEN 1 AND 3000 THEN GOTO ERNVR4 ELSE GOTO ERNRG3 IF ONPATH ENTRY OF 4 OR 5 IN ERNPER AND ENTRY IN ERNAMT IS BETWEEN 1 AND 6000 THEN GOTO ERNVR4 ELSE GOTO ERNRG3 IF ONPATH ENTRY OF 6 IN ERNPER AND ENTRY IN ERNAMT IS BETWEEN 1 AND 72000 THEN GOTO ERNVR4 ELSE GOTO ERNRG3 $>ERNCKJ-C< [store <0> in rindex] [store <0> in index] SINCE ERNAMT IS AN OUT VARIABLE WE CHECK ONPATH OF ITEMS WHERE ERNAMT IS STORED. [If onpath ERNWK:R_P then store <1> in index] [If onpath ERNMON:R_P then store <1> in index] [If onpath ERNANN:R_P then store <1> in index] [If onpath ERNBWK:R_P then store <1> in index] [If onpath ERNDKP:R_P then store <1> in index] [If onpath ERNRGP:R_P then store <1> in index] [If onpath ERNCOR:R_P then store <1> in index] [If onpath ERNRP2:R_P then store <1> in index] [NIF ERNAMT(R_P) isnt AND ERNAMT(R_P) isnt then] [If index eq <1> then convert ERNAMT(R_P) character to rindex real] [ENDIF] [store <0> in index] [NIF ERNPER(R_P) is OR ERNPER(R_P) is <2> then] [store <1> in index] [ELSEIF ERNPER(R_P) is <7> then] [store <1> in index] [ELSEIF ERNPER(R_P) is <3> then] [store <2> in index] [ELSEIF ERNPER(R_P) is <4> OR ERNPER(R_P) is <5> then] [store <3> in index] [ELSEIF ERNPER(R_P) is <6> then] [store <4> in index] [ENDIF] 1. IF ONPATH ENTRY OF 2, 7 OR d IN ERNPER AND ONPATH ENTRY IN ERNAMT IS BETWEEN 1.00 AND 1500.00 GOTO ERNVR4 ELSE GOTO ERNRG3 [NIF rindex ge <1.0> AND rindex le <1500.0> then] [If index eq <1> then goto ERNVR4] [ENDIF] [If index eq <1> then goto ERNRG3] 2 IF ONPATH ENTRY OF 3 IN ERNPER AND ONPATH ENTRY IN ERNAMT IS BETWEEN 1.00 AND 3000.00 GOTO ERNVR4 ELSE GOTO ERNRG3 [NIF rindex ge <1.0> AND rindex le <3000.0> then] [If index eq <2> then goto ERNVR4] [ENDIF] [If index eq <2> then goto ERNRG3] 3 IF ONPATH ENTRY OF 4 OR 5 IN ERNPER AND ONPATH ENTRY IN ERNAMT IS BETWEEN 1.00 AND 6000.00 GOTO ERNVR4 ELSE GOTO ERNRG3 [NIF rindex ge <1.0> AND rindex le <6000.0> then] [If index eq <3> then goto ERNVR4] [ENDIF] [If index eq <3> then goto ERNRG3] 4 IF ONPATH ENTRY OF 6 IN ERNPER AND ONPATH ENTRY IN ERNAMT IS BETWEEN 1.00 AND 72000.00 GOTO ERNVR4 ELSE GOTO ERNRG3. [NIF rindex ge <1.0> AND rindex le <72000.0> then] [If index eq <4> then goto ERNVR4] [ENDIF] [goto ERNRG3] $end ----------------------------------------------------------------------------- $>ERNDKP< [store in temp2] [If curralt eq <1> then store in temp2] [NIF ERNPER(R_P) is <3> then] [store in temp2] [If curralt eq <1> then store in temp2] [ELSEIF ERNPER(R_P) is <4> OR ERNPER(R_P) is <5> then] [store in temp2] [If curralt eq <1> then store in temp2] [ELSEIF ERNPER(R_P) is <6> then] [store in temp2] [If curralt eq <1> then store in temp2] [ENDIF] [NIF R_P eq RESPLI then] [store in yourhshr] [ELSEIF sex(R_P) is <2> then] [store in yourhshr] [ELSE] [store in yourhshr] [ENDIF] [store <0> in xbad(1)] $display >ERNDKP< What is your best estimate of [fill yourhshr] usual [fill temp2] earnings before taxes or other deductions? ENTER DOLLAR AMOUNT [Blind] Don't know [goto PRE-ERNRT] Refused [goto PRE-ERNRT] ===>[N]$_____ [store ERNDKP(R_P) in ERNAMT(R_P)] [goto ERNCKM-C] $d [alt 1] >ERNDKP< ¨Cu nto calcula usted que gana [fill temp2] sin descontar impuestos u otras deducciones? ENTER DOLLAR AMOUNT [Blind] Don't know [goto PRE-ERNRT] Refused [goto PRE-ERNRT] ===>[N]$_____ [store ERNDKP(R_P) in ERNAMT(R_P)] [goto ERNCKM-C] $edit [notless xbad(1)] [numeric] $end ----------------------------------------------------------------------------- COMMENT: IF ONPATH ENTRY OF 2, 7 OR D IN ERNPER AND ENTRY IN ERNAMT IS BETWEEN 1 AND 1500 THEN GOTO ERNVR4 ELSE GOTO ERNRG3 IF ONPATH ENTRY OF 3 IN ERNPER AND ENTRY IN ERNAMT IS BETWEEN 1 AND 3000 THEN GOTO ERNVR4 ELSE GOTO ERNRG3 IF ONPATH ENTRY OF 4 OR 5 IN ERNPER AND ENTRY IN ERNAMT IS BETWEEN 1 AND 6000 THEN GOTO ERNVR4 ELSE GOTO ERNRG3 IF ONPATH ENTRY OF 6 IN ERNPER AND ENTRY IN ERNAMT IS BETWEEN 1 AND 72000 THEN GOTO ERNVR4 ELSE GOTO ERNRG3 $>ERNCKM-C< [store <0> in rindex2] [store <0> in index] SINCE ERNAMT IS AN OUT VARIABLE WE CHECK ONPATH OF ITEMS WHERE ERNAMT IS STORED. [If onpath ERNWK:R_P then store <1> in index] [If onpath ERNMON:R_P then store <1> in index] [If onpath ERNANN:R_P then store <1> in index] [If onpath ERNBWK:R_P then store <1> in index] [If onpath ERNDKP:R_P then store <1> in index] [If onpath ERNRGP:R_P then store <1> in index] [If onpath ERNCOR:R_P then store <1> in index] [If onpath ERNRP2:R_P then store <1> in index] [NIF ERNAMT(R_P) isnt AND ERNAMT(R_P) isnt then] [If index eq <1> then convert ERNAMT(R_P) character to rindex2 real] [ENDIF] [store <0> in index] [NIF ERNPER(R_P) is OR ERNPER(R_P) is <2> then] [store <1> in index] [ELSEIF ERNPER(R_P) is <7> then] [store <1> in index] [ELSEIF ERNPER(R_P) is <3> then] [store <2> in index] [ELSEIF ERNPER(R_P) is <4> OR ERNPER(R_P) is <5> then] [store <3> in index] [ELSEIF ERNPER(R_P) is <6> then] [store <4> in index] [ENDIF] 1. IF ONPATH ENTRY OF 2, 7 OR d IN ERNPER AND ONPATH ENTRY IN ERNAMT IS BETWEEN 1.00 AND 1500.00 GOTO ERNVR4 ELSE GOTO ERNRG3 [NIF rindex2 ge <1.0> AND rindex2 le <1500.0> then] [If index eq <1> then goto ERNVR4] [ENDIF] [If index eq <1> then goto ERNRG3] 2 IF ONPATH ENTRY OF 3 IN ERNPER AND ONPATH ENTRY IN ERNAMT IS BETWEEN 1.00 AND 3000.00 GOTO ERNVR4 ELSE GOTO ERNRG3 [NIF rindex2 ge <1.0> AND rindex2 le <3000.0> then] [If index eq <2> then goto ERNVR4] [ENDIF] [If index eq <2> then goto ERNRG3] 3 IF ONPATH ENTRY OF 4 OR 5 IN ERNPER AND ONPATH ENTRY IN ERNAMT IS BETWEEN 1.00 AND 6000.00 GOTO ERNVR4 ELSE GOTO ERNRG3 [NIF rindex2 ge <1.0> AND rindex2 le <6000.0> then] [If index eq <3> then goto ERNVR4] [ENDIF] [If index eq <3> then goto ERNRG3] 4 IF ONPATH ENTRY OF 6 IN ERNPER AND ONPATH ENTRY IN ERNAMT IS BETWEEN 1.00 AND 72000.00 GOTO ERNVR4 ELSE GOTO ERNVRG. [NIF rindex2 ge <1.0> AND rindex2 le <72000.0> then] [If index eq <4> then goto ERNVR4] [ENDIF] $end ----------------------------------------------------------------------------- $>ERNRG3< [store in temp2] [NIF ERNPER(R_P) is <3> then] [store in temp2] [ELSEIF ERNPER(R_P) is <4> OR ERNPER(R_P) is <5> then] [store in temp2] [ELSEIF ERNPER(R_P) is <6> then] [store in temp2] [ENDIF] [store < > in temp3] [IF ERNPER(R_P) is <6> then store <****** REPORTED EARNINGS ARE GREATER THAN $72,000 ******> in temp3] $display >ERNRG3< ****** DO NOT READ TO RESPONDENT ****** [fill temp3] [fill temp2] earnings recorded as: [fill ERNAMT(R_P)] [fill temp2] IS THIS ENTRY CORRECT? <1> Yes [goto ERNVR4] <2> No [goto ERNRGP] ===>_ $end ----------------------------------------------------------------------------- $>ERNRGP< [store in temp2] [NIF ERNPER(R_P) is <3> then] [store in temp2] [ELSEIF ERNPER(R_P) is <4> OR ERNPER(R_P) is <5> then] [store in temp2] [ELSEIF ERNPER(R_P) is <6> then] [store in temp2] [ENDIF] [store <0> in xbad(1)] $display >ERNRGP< ****** DO NOT READ TO RESPONDENT ****** INCORRECT ENTRY WAS RECORDED AS: [fill ERNAMT(R_P)] [fill temp2] CORRECT ENTRY IS: ===>[N]$_____ [store ERNRGP(R_P) in ERNAMT(R_P)] $edit [notless xbad(1)] [numeric] $end ----------------------------------------------------------------------------- $>ERNVR4< [store in temp2] [If curralt eq <1> then store in temp2] [NIF ERNPER(R_P) is <3> then] [store in temp2] [If curralt eq <1> then store in temp2] [ELSEIF ERNPER(R_P) is <4> OR ERNPER(R_P) is <5> then] [store in temp2] [If curralt eq <1> then store in temp2] [ELSEIF ERNPER(R_P) is <6> then] [store in temp2] [If curralt eq <1> then store in temp2] [ENDIF] [NIF R_P eq RESPLI then] [store in yourhshr] [ELSEIF sex(R_P) is <2> then] [store in yourhshr] [ELSE] [store in yourhshr] [ENDIF] [store in temp3] [store < > in temp4] [NIF MJ(R_P) is <1> AND curralt nq <1> then] [If onpath MJ:R_P then combine < > yourhshr into temp4] [If onpath MJ:R_P then store
in temp3] [ELSEIF MJ(R_P) is <1> then] [If onpath MJ:R_P then store in temp4] [ENDIF] [NIF curralt eq <1> AND R_P eq RESPLI then] [store in temp3] [ELSEIF curralt eq <1> then] [store name(R_P) in temp3] [ENDIF] $display >ERNVR4< I have recorded [fill yourhshr] total earnings [fill temp4] [fill temp3] $[fill ERNAMT(R_P)] [fill temp2] before taxes or other deductions. Is that correct? <1> Yes <2> No [Blind] Don't know Refused ===>_ $d [alt 1] >ERNVR4< La informaci¢n que tengo indica que [fill temp4] [fill temp3] gana un total de $ [fill ERNAMT(R_P)] [fill temp2] sin descontar impuestos u otras deducciones. ¨Le parece correcta esa cantidad? <1> S¡ <2> No [Blind] Don't know Refused ===>_ $end ----------------------------------------------------------------------------- COMMENT: IF ONPATH ENTRY OF 2, 7 OR D IN ERNPER AND ONPATH ENTRY OF 1 IN ERNVR4 GOTO ERNCKO-C IF ONPATH ENTRY OF 6 IN ERNPER AND ONPATH ENTRY OF 1, D OR R IN ERNVR4 GOTO ERNCKT-C IF ONPATH ENTRY OF 1 IN ERNPER AND ONPATH ENTRY OF 1, D OR R IN ERNVR4 GOTO ERNLAB IF ONPATH ENTRY OF 2 IN ERNVR4 GOTO ERNCOR ELSE GOTO PRE-ERNRT $>ERNCKN-C< IF ONPATH ENTRY OF 2, 7 OR D IN ERNPER AND ONPATH ENTRY OF 1 IN ERNVR4 GOTO ERNCKO-C [store <0> in index] [NIF ERNPER(R_P) is <2> OR ERNPER(R_P) is <7> then] [store <1> in index] [ELSEIF ERNPER(R_P) is then] [store <1> in index] [ENDIF] [NIF index eq <1> AND ERNVR4(R_P) is <1> then] [If onpath ERNVR4:R_P then goto ERNCKO-C] [ENDIF] IF ONPATH ENTRY OF 6 IN ERNPER AND ONPATH ENTRY OF 1, D OR R IN ERNVR4 GOTO ERNCKT [store <0> in index] [NIF ERNVR4(R_P) is <1> OR ERNVR4(R_P) is then] [If onpath ERNVR4:R_P then store <1> in index] [ENDIF] [NIF ERNVR4(R_P) is then] [If onpath ERNVR4:R_P then store <1> in index] [ENDIF] [NIF index eq <1> AND ERNPER(R_P) is <6> then] [goto ERNCKT-C] [ENDIF] IF ONPATH ENTRY OF 1 IN ERNPER AND ONPATH ENTRY OF 1, D OR R IN ERNVR4 GOTO ERNLAB [store <0> in index] [NIF ERNVR4(R_P) is OR ERNVR4(R_P) is then] [If onpath ERNVR4:R_P then store <1> in index] [ELSEIF ERNVR4(R_P) is <1> then] [If onpath ERNVR4:R_P then store <1> in index] [ENDIF] [NIF index eq <1> AND ERNPER(R_P) is <1> then] [goto ERNLAB] [ENDIF] IF ONPATH ENTRY OF 2 IN ERNVR4 GOTO ERNCOR ELSE GOTO PRE-ERNRT [NIF ERNVR4(R_P) is <2> then] [If onpath ERNVR4:R_P then goto ERNCOR] [ENDIF] [goto PRE-ERNRT] $end ----------------------------------------------------------------------------- COMMENT: IF ENTRY OF 1 IN ERNPER GOTO ERNLAB ELSE GOTO ERNRT. $>ERNCKO-C< [IF ERNPER(R_P) is <1> then goto ERNLAB] [goto ERNRT] $end ----------------------------------------------------------------------------- $>ERNCOR< [store in temp2] [If curralt eq <1> then store in temp2] [NIF ERNPER(R_P) is <3> then] [store in temp2] [If curralt eq <1> then store in temp2] [ELSEIF ERNPER(R_P) is <4> OR ERNPER(R_P) is <5> then] [store in temp2] [If curralt eq <1> then store in temp2] [ELSEIF ERNPER(R_P) is <6> then] [store in temp2] [If curralt eq <1> then store in temp2] [ENDIF] [store < > in temp3] [store < > in temp4] [store < > in yourhshr] [NIF R_P eq RESPLI then] [store in yourhshr] [ELSEIF sex(R_P) is <2> then] [store in yourhshr] [ELSE] [store in yourhshr] [ENDIF] [store in temptext] [If R_P nq RESPLI then store name(R_P) in temptext] [store < > in temp3] [store in temp5] [NIF ERNUOT(R_P) is <1> AND curralt nq <1> then] [if onpath ERNUOT:R_P then store in temp3] [If onpath ERNUOT:R_P then store in temp5] [ELSEIF ERNUOT(R_P) is <1> then] [if onpath ERNUOT:R_P then store in temp3] [ENDIF] [store in temp4] [If curralt eq <1> then store <,> in temp4] [NIF MJ(R_P) is <1> AND curralt nq <1> then] [If onpath MJ:R_P then combine yourhshr < main> into temp4] [ELSEIF MJ(R_P) is <1> then] [If onpath MJ:R_P then store < PRINCIPAL,> in temp4] [ENDIF] [store <0> in xbad(1)] $display >ERNCOR< [fill temp3] [fill temp5] are [fill yourhshr] usual [fill temp2] earnings on [fill temp4] job, before taxes or other deductions? ENTER DOLLAR AMOUNT [Blind] Don't know [goto PRE-ERNRT] Refused [goto PRE-ERNRT] ===>[N]$_____ [Store ERNCOR(R_P) in ERNAMT(R_P)] $d [alt 1] >ERNCOR< [fill temp3] cu nto acostumbra [fill temptext] ganar [fill temp2] en su empleo[fill temp4] sin descontar impuestos u otras deducciones? ENTER DOLLAR AMOUNT [Blind] Don't know [goto PRE-ERNRT] Refused [goto PRE-ERNRT] ===>[N]$_____ [Store ERNCOR(R_P) in ERNAMT(R_P)] $edit [notless xbad(1)] [numeric] $end ----------------------------------------------------------------------------- COMMENT: IF ONPATH ENTRY OF 2, 7 OR D IN ERNPER AND ENTRY IN ERNAMT IS BETWEEN 1 AND 1500 THEN GOTO ERNCKQ-C ELSE GOTO ERNRG4 IF ONPATH ENTRY OF 3 IN ERNPER AND ENTRY IN ERNAMT IS BETWEEN 1 AND 3000 THEN GOTO ERNCKQ-C ELSE GOTO ERNRG4 IF ONPATH ENTRY OF 4 OR 5 IN ERNPER AND ENTRY IN ERNAMT IS BETWEEN 1 AND 6000 THEN GOTO ERNCKQ-C ELSE GOTO ERNRG4 IF ONPATH ENTRY OF 6 IN ERNPER AND ENTRY IN ERNAMT IS BETWEEN 1 AND 72000 THEN GOTO ERNCKQ-C ELSE GOTO ERNRG4 $>ERNCKP-C< [store <0> in rindex2] [store <0> in index] [If onpath ERNWK:R_P then store <1> in index] [If onpath ERNMON:R_P then store <1> in index] [If onpath ERNANN:R_P then store <1> in index] [If onpath ERNBWK:R_P then store <1> in index] [If onpath ERNDKP:R_P then store <1> in index] [If onpath ERNRGP:R_P then store <1> in index] [If onpath ERNCOR:R_P then store <1> in index] [If onpath ERNRP2:R_P then store <1> in index] [NIF ERNAMT(R_P) isnt AND ERNAMT(R_P) isnt then] [If index eq <1> then convert ERNAMT(R_P) character to rindex2 real] [ENDIF] [store <0> in index] [NIF ERNPER(R_P) is OR ERNPER(R_P) is <2> then] [store <1> in index] [ELSEIF ERNPER(R_P) is <7> then] [store <1> in index] [ELSEIF ERNPER(R_P) is <3> then] [store <2> in index] [ELSEIF ERNPER(R_P) is <4> OR ERNPER(R_P) is <5> then] [store <3> in index] [ELSEIF ERNPER(R_P) is <6> then] [store <4> in index] [ENDIF] 1. IF ONPATH ENTRY OF 2, 7 OR d IN ERNPER AND ONPATH ENTRY IN ERNAMT IS BETWEEN 1.00 AND 1500.00 GOTO ERNCKQ ELSE GOTO ERNRG4 [NIF rindex2 ge <1.0> AND rindex2 le <1500.0> then] [If index eq <1> then goto ERNCKQ-C] [ENDIF] [If index eq <1> then goto ERNRG4] 2 IF ONPATH ENTRY OF 3 IN ERNPER AND ONPATH ENTRY IN ERNAMT IS BETWEEN 1.00 AND 3000.00 GOTO ERNCKQ-C ELSE GOTO ERNRG4 [NIF rindex2 ge <1.0> AND rindex2 le <3000.0> then] [If index eq <2> then goto ERNCKQ-C] [ENDIF] [If index eq <2> then goto ERNRG4] 3 IF ONPATH ENTRY OF 4 OR 5 IN ERNPER AND ONPATH ENTRY IN ERNAMT IS BETWEEN 1.00 AND 6000.00 GOTO ERNCKQ-C ELSE GOTO ERNRG4 [NIF rindex2 ge <1.0> AND rindex2 le <6000.0> then] [If index eq <3> then goto ERNCKQ-C] [ENDIF] [If index eq <3> then goto ERNRG4] 4 IF ONPATH ENTRY OF 6 IN ERNPER AND ONPATH ENTRY IN ERNAMT IS BETWEEN 1.00 AND 72000.00 GOTO ERNCKQ-C ELSE GOTO ERNRG4 [NIF rindex2 ge <1.0> AND rindex2 le <72000.0> then] [If index eq <4> then goto ERNCKQ-C] [ENDIF] [goto ERNRG4] $end ----------------------------------------------------------------------------- COMMENT: IF ONPATH ENTRY OF 2, 7 OR D IN ERNPER AND ONPATH ENTRY OTHER THAN D OR R IN ERNCOR THEN GOTO ERNCKS-C IF ONPATH ENTRY OF 6 IN ERNPER AND ONPATH ENTRY OTHER THAN D OR R IN ERNCOR THEN GOTO ERNCKT-C ALL OTHERS GOTO ERNRT $>ERNCKQ-C< [store <0> in index] [NIF ERNCOR(R_P) isnt AND ERNCOR(R_P) isnt then] [If onpath ERNCOR:R_P then store <1> in index] [ENDIF] [NIF index eq <1> AND ERNPER(R_P) is <2> then] [goto ERNCKS-C] [ELSEIF index eq <1> AND ERNPER(R_P) is <7> then] [goto ERNCKS-C] [ELSEIF index eq <1> AND ERNPER(R_P) is then] [goto ERNCKS-C] [ELSEIF index eq <1> AND ERNPER(R_P) is <6> then] [goto ERNCKT-C] [ENDIF] [goto ERNRT] $end ----------------------------------------------------------------------------- $>ERNRG4< [store in temp2] [NIF ERNPER(R_P) is <3> then] [store in temp2] [ELSEIF ERNPER(R_P) is <4> OR ERNPER(R_P) is <5> then] [store in temp2] [ELSEIF ERNPER(R_P) is <6> then] [store in temp2] [ENDIF] $display >ERNRG4< ****** DO NOT READ TO RESPONDENT ****** [fill temp2] earnings recorded as: [fill ERNAMT(R_P)] [fill temp2] IS THIS ENTRY CORRECT? <1> Yes [goto ERNCKR-C] <2> No [goto ERNRP2] ===>_ $end ----------------------------------------------------------------------------- $>ERNRP2< [store in temp2] [NIF ERNPER(R_P) is <3> then] [store in temp2] [ELSEIF ERNPER(R_P) is <4> OR ERNPER(R_P) is <5> then] [store in temp2] [ELSEIF ERNPER(R_P) is <6> then] [store in temp2] [ENDIF] [store <0> in xbad(1)] $display >ERNRP2< ****** DO NOT READ TO RESPONDENT ****** INCORRECT ENTRY WAS RECORDED AS: [fill ERNAMT(R_P)] [fill temp2] CORRECT ENTRY IS: ===>[N]$_____ [store ERNRP2(R_P) in ERNAMT(R_P)] $edit [notless xbad(1)] [numeric] $end ----------------------------------------------------------------------------- COMMENT: IF ONPATH ENTRY OF 2, 7 OR D IN ERNPER AND ONPATH ENTRY IN ERNRP2 THEN GOTO ERNCKS-C IF ONPATH ENTRY OF 6 IN ERNPER AND ONPATH ENTRY IN ERNRP2 GOTO ERNCKT-C ALL OTHERS GOTO PRE-ERNRT $>ERNCKR-C< [store <0> in index] [If onpath ERNRP2:R_P then store <1> in index] [NIF index eq <1> AND ERNPER(R_P) is <2> then] [goto ERNCKS-C] [ELSEIF index eq <1> AND ERNPER(R_P) is <7> then] [goto ERNCKS-C] [ELSEIF index eq <1> AND ERNPER(R_P) is then] [goto ERNCKS-C] [ELSEIF index eq <1> AND ERNPER(R_P) is <6> then] [goto ERNCKT-C] [ENDIF] [goto PRE-ERNRT] $end ----------------------------------------------------------------------------- COMMENT: IF ONPATH ENTRY OF 1 IN ERNPER GOTO ERNLAB ELSE GOTO ERNRT. $>ERNCKS-C< [NIF ERNPER(R_P) is <1> then] [goto ERNLAB] [ENDIF] [goto ERNRT] $end ----------------------------------------------------------------------------- COMMENT: IF ONPATH ENTRY IN ERNANN GOTO ERNWKP ELSE GOTO PRE-ERNRT $>ERNCKT-C< [If onpath ERNANN:R_P then goto ERNWKP] [goto PRE-ERNRT] $end ----------------------------------------------------------------------------- $>ERNWKP< [store < > in dodoes] [store < > in temptext] [NIF R_P eq RESPLI then] [store in temptext] [store in dodoes] [If curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [store in dodoes] [ENDIF] $display >ERNWKP< How many weeks a year [fill dodoes] [fill temptext] get paid for? NUMBER OF WEEKS [Blind] Don't know Refused <01-52> ===>__ $d [alt 1] >ERNWKP< ¨Por cu ntas semanas al a¤o le pagan a [fill temptext]? NUMBER OF WEEKS [Blind] Don't know Refused <01-52> ===>__ $end ----------------------------------------------------------------------------- COMMENT: THIS CHECK ITEM WAS ADDED IN OCTOBER $>PRE-ERNRT< [If ERNPER(R_P) is <1> then goto ERNLAB] $end ---------------------------------------------------------------------- $>ERNRT< [NIF R_P eq RESPLI then] [store in yourhshr] [store in youheshe] [store in temp6] [store in temp7] [If curralt eq <1> then store in temp6] [ELSEIF sex(R_P) is <2> then] [store in yourhshr] [store in youheshe] [store in temp6] [store in temp7] [if curralt eq <1> then combine < > name(R_P) into temp6] [ELSE] [store in yourhshr] [store in temp6] [store in temp7] [store in youheshe] [if curralt eq <1> then combine < > name(R_P) into temp6] [ENDIF] [store in temp3] [If curralt eq <1> then store in temp7] [NIF ERNPER(R_P) is <3> then] [store in temp3] [If curralt eq <1> then store in temp7] [ELSEIF ERNPER(R_P) is <4> OR ERNPER(R_P) is <5> then] [store in temp3] [If curralt eq <1> then store in temp7] [ELSEIF ERNPER(R_P) is <6> then] [store in temp3] [If curralt eq <1> then store in temp7] [ENDIF] [store in temp4] [combine yourhshr < earnings> < > temp3 <,> into temp5] [store temp7 in areis] [NIF curralt eq <1> then] [store in temp4] [combine < > temp6 into temp5] [ENDIF] [NIF ERNPER(R_P) is OR ERNPER(R_P) is then] [store < > in temp4] [store < > in temp5] [if curralt nq <1> then store temp6 in temp7] [if curralt eq <1> then store < > in temp7] [ELSEIF ERNPER(R_P) is <7> then] [store < > in temp4] [store < > in temp5] [If curralt nq <1> then store temp6 in temp7] [if curralt eq <1> then store < > in temp7] [ENDIF] [store in temp2] [If curralt eq <1> then store in temp2] [NIF MJ(R_P) is <1> AND curralt nq <1> then] [If onpath MJ:R_P then combine yourhshr < MAIN> into temp2] [ELSEIF MJ(R_P) is <1> then] [if onpath MJ:R_P then store < PRINCIPAL?> in temp2] [ENDIF] $display >ERNRT< [fill temp4] [fill temp5] [fill areis] [fill youheshe] PAID AT AN HOURLY RATE on [fill temp2] job? <1> Yes <2> No [goto ERNLAB] [Blind] Don't know [goto ERNLAB] Refused [goto ERNLAB] ===>_ $d [alt 1] >ERNRT< [fill temp4] [fill temp5] [fill temp7] le PAGAN POR HORA en su empleo[fill temp2] <1> S¡ <2> No [goto ERNLAB] [Blind] Don't know [goto ERNLAB] Refused [goto ERNLAB] ===>_ $end ----------------------------------------------------------------------------- $>ERNRTK< [NIF ERNWK(R_P) is then] [if onpath ERNWK:R_P then goto ERNLAB] [ENDIF] [NIF ERNDKP(R_P) is OR ERNDKP(R_P) is then] [if onpath ERNDKP:R_P then goto ERNLAB] [ENDIF] [NIF ERNMON(R_P) is then] [if onpath ERNMON:R_P then goto ERNLAB] [ENDIF] [NIF ERNANN(R_P) is then] [if onpath ERNANN:R_P then goto ERNLAB] [ENDIF] [NIF ERNBWK(R_P) is then] [if onpath ERNBWK:R_P then goto ERNLAB] [ENDIF] $end ---------------------------------------------------------------------- $>ERNH2< [store < > in yourhshr] [NIF R_P eq RESPLI then] [store in yourhshr] [ELSEIF sex(R_P) is <2> then] [store in yourhshr] [ELSE] [store in yourhshr] [ENDIF] [store in temp2] [If curralt eq <1> then store in temp2] [NIF MJ(R_P) is <1> AND curralt nq <1> then] [If onpath MJ:R_P then combine yourhshr < MAIN> into temp2] [ELSEIF MJ(R_P) is <1> then] [If onpath MJ:R_P then store < PRINCIPAL?> in temp2] [ENDIF] [store < > in temp4] [store in temp3] [NIF ERNUOT(R_P) is <1> AND curralt nq <1> then] [If onpath ERNUOT:R_P then store in temp4] [If onpath ERNUOT:R_P then store in temp3] [ELSEIF ERNUOT(R_P) is <1> then] [If onpath ERNUOT:R_P then store in temp4] [ENDIF] [NIF curralt eq <1> AND R_P eq respli then] [store in temptext] [ELSEIF curralt eq <1> then] [store name(R_P) in temptext] [ENDIF] [store <0> in xbad(1)] $display >ERNH2< [fill temp4] [fill temp3] is [fill yourhshr] hourly rate of pay on [fill temp2] job? ENTER DOLLAR AMOUNT [Blind] Don't know Refused ===>[N]$__.__ $d [alt 1] >ERNH2< [fill temp4] ¨Cu nto le pagan a [fill temptext] por hora en su empleo[fill temp2] ENTER DOLLAR AMOUNT [Blind] Don't know Refused ===>[N]$__.__ $edit [notless xbad(1)] [numeric] $end ----------------------------------------------------------------------------- COMMENT: IF ONPATH ENTRY IN ERNH2 IS BETWEEN 1.00 AND 30.00 OR D OR R GOTO ERNLAB ALL OTHER GOTO ERNRG5 $>ERNCKU-C< [NIF ERNH2(R_P) is OR ERNH2(R_P) is then] [If onpath ERNH2:R_P then goto ERNLAB] [ENDIF] [store <0> in rindex] [If onpath ERNH2:R_P then convert ERNH2(R_P) character to rindex real] [NIF rindex ge <1.00> AND rindex le <30.00> then] [goto ERNLAB] [ENDIF] $end ----------------------------------------------------------------------------- $>ERNRG5< $display >ERNRG5< ****** DO NOT READ TO RESPONDENT ****** Hourly earnings recorded as: [fill ERNH2(R_P)] hourly IS THIS ENTRY CORRECT? <1> Yes [goto ERNLAB] <2> No [goto ERNRP3] ===>_ $end ----------------------------------------------------------------------------- $>ERNRP3< [store <0> in xbad(1)] $display >ERNRP3< ****** DO NOT READ TO RESPONDENT ****** INCORRECT ENTRY WAS RECORDED AS: [fill ERNH2(R_P)] hourly CORRECT ENTRY IS: ===>[N]$__.__ $edit [notless xbad(1)] [numeric] $end ----------------------------------------------------------------------------- $>ERNLAB< [store < > in areis] [store < > in temptext] [NIF R_P eq RESPLI then] [store in temptext] [store in areis] [If curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [store in areis] [ENDIF] $display >ERNLAB< On this job, [fill areis] [fill temptext] a member of a labor union or of an employee association similar to a union? <1> Yes [goto ERNCKV] <2> No [Blind] Don't know Refused ===>_ $d [alt 1] >ERNLAB< En este empleo, ¨es [fill temptext] miembro de alguna uni¢n/sindicato de trabajadores o de alguna asociaci¢n de empleados semejante a una uni¢n/sindicato? <1> S¡ [goto ERNCKV] <2> No [Blind] Don't know Refused ===>_ $end ----------------------------------------------------------------------------- $>ERNCOV< [store < > in areis] [store < > in youheshe] [NIF R_P eq RESPLI then] [store in temptext] [store in areis] [if curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [store in areis] [ENDIF] $display >ERNCOV< On this job, [fill areis] [fill temptext] covered by a union or employee association contract? <1> Yes <2> No [Blind] Don't know Refused ===>_ [goto ERNCKV] $d [alt 1] >ERNCOV< En este empleo, ¨est  [fill temptext] protegido(a) por un contrato de la uni¢n/sindicato o asociaci¢n de empleados? <1> S¡ <2> No [Blind] Don't know Refused ===>_ [goto ERNCKV] $end ----------------------------------------------------------------------------- COMMENT: IF (NO ENTRY IN ERNPER) OR (entry of R in ERNPER) OR (NO ONPATH ENTRY IN ERNRT) OR (ENTRY OF D IN ERNPER AND ONPATH ENTRY OF D OR R IN ERNRT) THEN STORE D IN ERNHRY IF ONPATH ENTRY OF 2 - 7 IN ERNPER AND ONPATH ENTRY OF D IN ERNHRT THEN STORE D IN ERNHRY (ADDED JUN 95) IF ENTRY OF 1 IN ERNPER OR IF ONPATH ENTRY OF 1 IN ERNRT SET ERNHRY EQUAL TO 1 ALL OTHER SET ERNHRY EQUAL TO 2 IF LINE NUM OF CURRENT PERSON EQ LINE NUM OF RESPONDENT GOTO SCHCK-C ALL OTHERS GOTO ERNCKW $>ERNCKV< SETS ENDTIME FOR THE I&O SERIES [store <0> in sectim-i] [store <0> in index] [setsec sectim-i] [NIF lkWEetim(R_P) eq <0> AND WEstm(R_P) nq <0> then] [If WEetm(R_P) eq <0> then store sectim-i in WEetm(R_P)] [ELSEIF lkWEetim(R_P) eq <0> AND rsmtime nq <0> then] [If WEetm(R_P) eq <0> then store sectim-i in WEetm(R_P)] [ENDIF] [store WEetm(R_P) in index] [NIF WEstm(R_P) nq <0> then] [subtract WEstm(R_P) from index] [ELSE] [subtract rsmtime from index] [ENDIF] [If lkWEetim(R_P) eq <0> then add index to WEsec(R_P)] [store <1> in lkWEetim(R_P)] [store <1> in lkWEstim(R_P)] [store < > in ERNHRY(R_P)] [store <0> in index] [store <0> in index2] [If ERNPER(R_P) isnt < > then store <1> in index] [If onpath ERNRT:R_P then store <1> in index2] [store <0> in index3] [store <0> in index4] [If ERNPER(R_P) is then store <1> in index3] [IF ERNPER(R_P) is then store <1> in index4] [NIF ERNRT(R_P) is OR ERNRT(R_P) is then] [If onpath ERNRT:R_P then add <10> to index4] [ENDIF] [NIF index eq <0> then] [store in ERNHRY(R_P)] [ELSEIF index2 eq <0> AND ERNPER(R_P) isnt <1> then] ADDED 1/5/94 [store in ERNHRY(R_P)] [ELSEIF index3 eq <1> OR index4 eq <11> then] [store in ERNHRY(R_P)] [ENDIF] ADDED JUN 95 [store <0> in index5] [NIF ERNRT(R_P) is then] [if onpath ERNRT:R_P then store <1> in index5] [ENDIF] [NIF ERNPER(R_P) is <2> OR ERNPER(R_P) is <3> then] [if index5 eq <1> then store in ERNHRY(R_P)] [ELSEIF ERNPER(R_P) is <4> OR ERNPER(R_P) is <5> then] [if index5 eq <1> then store in ERNHRY(R_P)] [ELSEIF ERNPER(R_P) is <6> OR ERNPER(R_P) is <7> then] [if index5 eq <1> then store in ERNHRY(R_P)] [ENDIF] [NIF ERNHRY(R_P) is then] ADDED 1/5/94 [ELSEIF ERNPER(R_P) is <1> then] [store <1> in ERNHRY(R_P)] [ELSEIF ERNRT(R_P) is <1> AND index2 eq <1> then] [store <1> in ERNHRY(R_P)] [ELSEIF index eq <1> OR index2 eq <1> then] [store <2> in ERNHRY(R_P)] [ENDIF] [NIF R_P eq RESPLI then] [convert RESPLI integer to ERNLNO(R_P) character] [goto SCHCK-C] [ENDIF] $end ------------------------------------------------------------------------------- $>ERNCKW< $display >ERNCKW< ***** DO NOT ASK THE RESPONDENT ***** Did [fill name(R_P)] provide any of the earnings information you just collected? <1> Yes [convert R_P integer to ERNLNO(R_P) character] [goto SCHCK-C] <2> No [IF NUMHOU eq <2> then convert RESPLI integer to ERNLNO(R_P) character] [If NUMHOU eq <2> then goto SCHCK-C] ===>_ $end ------------------------------------------------------------------------------- $>ERNCKX< $display >ERNCKX< ***** DO NOT ASK THE RESPONDENT ***** Did anyone other than [fill name(RESPLI)] provide any of the earnings information you just collected? <1> Yes <2> No [goto SCHCK-C] ===>_ $end ------------------------------------------------------------------------------- $>ERNCKY< [multiple ERNCKY1] [do index <1> <16>] [store < > in table(index)] [store < > in xbad(index)] [store < > in relation(index)] [IF pelig(index) ge <12> then convert index integer to xbad(index) character] [end do] [store NROSIZ in index2] [add <1> to index2] [if index2 gt <16> then store <16> in index2] [do index <1> index2] [store name(index) in table(index)(9:36)] [store hhmem(index) in table(index)(40:40)] [store age(index) in table(index)(60:61)] [if LINENO(index) isnt < > then store LINENO(index) in table(index)(2:4)] [store <0> in index3] [convert RRP(index) character to index3 integer] [NIF index3 nq <0> AND NEWRRP eq <0> then] ** RRP [store reltab(index3) in relation(index)] [ELSEIF index3 nq <0> AND NEWRRP eq <1> then] [store n-reltab(index3) in relation(index)] [ENDIF] [store relation(index) in table(index)(45:56)] [NIF hhmem(index) is <2> OR hhmem(index) is <3> then] [convert index integer to xbad(index) character] [store < > in table(index)] [ELSEIF AGERNG(index) lt <2> then] [convert index integer to xbad(index) character] [store < > in table(index)] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <3> then] [convert index integer to xbad(index) character] [store < > in table(index)] [ELSEIF DELDEC(index) is <2> then] [convert index integer to xbad(index) character] [store < > in table(index)] [ELSEIF DELDEC(index) is <9> then] [convert index integer to xbad(index) character] [store < > in table(index)] [ENDIF] [end do] [convert R_P integer to xbad(R_P) character] [convert RESPLI integer to xbad(RESPLI) character] $itemtable >ERNCKY1< ***** DO NOT ASK THE RESPONDENT ***** LINE NAME MEM REL AGE [fill table(1)] [fill table(2)] [fill table(3)] [fill table(4)] [fill table(5)] [fill table(6)] [fill table(7)] [fill table(8)] [fill table(9)] [fill table(10)] [fill table(11)] [fill table(12)] [fill table(13)] [fill table(14)] [fill table(15)] [fill table(16)] Who Was that? ENTER LINE NUMBER ===>__ $end -------------------------------------------------------------------------------- $>ERNCKY1< [within ERNCKY] $d [none] <1-16> ===>__ [store ERNCKY1(R_P) in ERNLNO(R_P)] [goto SCHCK-C] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end --------------------------------------------------------------------------- COMMENT: 1) IF AGERNG EQ 1-4 OR 9 THEN GOTO NLFACT 2) ALL OTHERS GOTO NLFRET $>NLFCK1-C< [store < > in NLFCK1(R_P)] [NIF AGERNG(R_P) ge <1> AND AGERNG(R_P) le <4> then] [store <1> in NLFCK1(R_P)] [goto NLFACT] [ELSEIF AGERNG(R_P) eq <9> then] [store <1> in NLFCK1(R_P)] [goto NLFACT] [ELSE] [store <2> in NLFCK1(R_P)] [goto NLFRET] [ENDIF] $end ------------------------------------------------------------------------------- COMMENT: 1) IF MISCK EQ 4 OR 8 THEN GOTO NLFJH 2) ALL OTHERS GOTO SCHCK-C $>NLFCK2-C< [store < > in NLFCK2(R_P)] [NIF MISCK is <4> OR MISCK is <8> then] [store <1> in NLFCK2(R_P)] [goto NLFJH] [ELSE] [store <2> in NLFCK2(R_P)] [goto SCHCK-C] [ENDIF] $end ----------------------------------------------------------------------------- $>NLFJH< [store < > in temptext] [NIF R_P eq RESPLI then] [store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [ENDIF] $d >NLFJH< When did [fill temptext] last work at a job or business? <1> Within last 12 months [goto IO1INT] <2> More than 12 months ago <3> Never worked [blind] Don't know Refused ===>_ [goto SCHCK-C] $d [alt 1] >NLFJH< ¨Cu ndo fue la £ltima vez que [fill temptext] trabaj¢ en un empleo o negocio? <1> Dentro de los £ltimos 12 meses [goto IO1INT] <2> Hace m s de 12 meses <3> Nunca ha trabajado [blind] Don't know Refused ===>_ [goto SCHCK-C] $end ------------------------------------------------------------------------------- $>NLFRET< [store < > in areis] [store < > in temptext] [NIF R_P eq RESPLI then] [store in AreIs] [store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [store in AreIs] [ENDIF] $d >NLFRET< [fill AreIs] [fill temptext] retired FROM A JOB OR BUSINESS? <1> Yes [goto LBFR-END] <2> No [blind] Don't know Refused ===>_ $d [alt 1] >NLFRET< ¨Est  [fill temptext] retirado(a)/jubilado(a) DE ALGUN EMPLEO O NEGOCIO? <1> S¡ [goto LBFR-END] <2> No [blind] Don't know Refused ===>_ $end ------------------------------------------------------------------------------- $>NLFACT< [store < > in temptext] [store < > in areis] [store < > in youheshe] [NIF R_P eq RESPLI then] [store in temptext] [store in areis] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [combine name(R_P) <'s> into temptext] [store in areis] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSE] [combine name(R_P) <'s> into temptext] [store in areis] [store in youheshe] [if curralt eq <1> then store <‚l> in youheshe] [ENDIF] $d >NLFACT< What best describes [fill temptext] situation at this time? For example, [fill areis] [fill youheshe] disabled, ill, in school, taking care of house or family, or something else? <1> Disabled <2> Ill <3> In school <4> Taking care of house or family <5> In retirement <6> Something else/other [goto NLFSPC] [blind] Don't know Refused ===>_ [goto SCHCK-C] $d [alt 1] >NLFACT< ¨Cu l de las siguientes respuestas refleja mejor su situaci¢n actual? Por ejemplo, ¨est  [fill youheshe] incapacitado(a), enfermo(a), asistiendo a la escuela/universidad, cuidando de su hogar o familia, o haciendo alguna otra cosa? <1> Incapacitado(a) <2> Enfermo(a) <3> En la escuela/universidad <4> Cuidando de su hogar o familia <5> Retirado(a)/jubilado <6> Haciendo otra cosa (especifique) [goto NLFSPC] [blind] Don't know Refused ===>_ [goto SCHCK-C] $end ------------------------------------------------------------------------------- $>NLFSPC< $display >NLFSPC< ENTER VERBATIM RESPONSE ===>_________________________________________________________________ $edit [anychar] $end ----------------------------------------------------------------------------- COMMENT: 1) IF AGERNG EQ 3 THEN GOTO SCHENR 2) ALL OTHERS GOTO LBFR-END $>SCHCK-C< [store < > in SCHCK(R_P)] [NIF AGERNG(R_P) eq <3> then] [store <1> in SCHCK(R_P)] [goto SCHENR] [ELSE] [store <2> in SCHCK(R_P)] [goto LBFR-END] [ENDIF] $end ------------------------------------------------------------------------------- $>SCHENR< [store < > in werewas] [store < > in youheshe] [NIF R_P eq RESPLI then] [store in werewas] [store in youheshe] [If curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [store in werewas] [If curralt eq <1> then store in youheshe] [ELSE] [store in youheshe] [store in werewas] [If curralt eq <1> then store <‚l> in youheshe] [ENDIF] THIS CODE SETS-UP THE REFERENCE WEEK FILL IN THE VARIABLE "WHATWEEK". [store <0> in index] [store day-i in index] [CASE wkday1-c] [OF then] [subtract <1> from index] [OF then] [subtract <2> from index] [OF then] [subtract <3> from index] [OF then] [subtract <4> from index] [OF then] [subtract <5> from index] [OF then] [subtract <6> from index] [ENDCASE] [store in WHATWEEK] [store in swhatwk] ** SPD ** default last week $d >SCHENR< [fill whatweek], [fill werewas] [fill youheshe] enrolled in a high school, college, or university? (ENTER 1 IF CURRENTLY ON HOLIDAY OR SEASONAL VACATION. ENTER 2 FOR SUMMER VACATION.) <1> Yes [goto SCHLVL] <2> No [blind] Don't know Refused ===>_ [goto LBFR-END] $d [alt 1] >SCHENR< [fill swhatwk], ¨estaba [fill youheshe] matriculado(a) en una escuela secundaria o universidad? (ENTER 1 IF CURRENTLY ON HOLIDAY OR SEASONAL VACATION. ENTER 2 FOR SUMMER VACATION.) <1> S¡ [goto SCHLVL] <2> No [blind] Don't know Refused ===>_ [goto LBFR-END] $end ------------------------------------------------------------------------------- $>SCHLVL< [indirect] $d >SCHLVL< ASK ONLY IF NECESSARY Would that be high school, college or university? <1> High school <2> College or university [blind] Don't know Refused ===>_ $d [alt 1] >SCHLVL< ASK ONLY IF NECESSARY ¨En cu l de las dos, en una escuela secundaria o en una universidad? <1> Escuela secundaria <2> Universidad [blind] Don't know Refused ===>_ $end ------------------------------------------------------------------------------- $>SCHFT< [indirect] [store < > in youheshe] [store < > in areis] [NIF R_P eq RESPLI then] [store in youheshe] [store in AreIs] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [store in AreIs] [ELSE] [store in youheshe] [store in AreIs] [ENDIF] $d >SCHFT< [fill AreIs] [fill youheshe] enrolled in school as a full-time or part-time student? <1> Full-time <2> Part-time [blind] Don't know Refused ===>_ $d [alt 1] >SCHFT< ¨Est  matriculado como estudiante de horario parcial o de horario completo? <1> De horario completo <2> De horario parcial [blind] Don't know Refused ===>_ $end ------------------------------------------------------------------------------- $>lbfr-end< [store <1> in Donper(R_P)] [store <2> in pelig(R_P)] [STORE < > IN misper(R_P)] [store <6> in LFDEX(R_P)] [store <0> in index] [NIF SLFPRX(R_P) is <1> AND R_P nq RESPLI then] [store <10> in index] [ELSEIF SLFPRX(R_P) is <2> AND R_P eq RESPLI then] [store <20> in index] [ENDIF] [NIF index eq <10> AND lockprox(R_P) nq <1> then] [store <3> in SLFPRX(R_P)] Both self and proxy [ELSEIF index eq <20> AND lockprox(R_P) nq <1> then] [store <3> in SLFPRX(R_P)] Both self and proxy [ENDIF] [store <1> in lockprox(R_P)] COMMENT: SET END TIME FOR THE LABOR FORCE QUESTIONS. [store <0> in index] [setsec sectim-i] [NIF LBFSTM(R_P) nq <0> AND lkLBetim(R_P) eq <0> then] [If LBFETM(R_P) eq <0> then store sectim-i in LBFETM(R_P)] [ELSEIF rsmtime nq <0> AND lkLBetim(R_P) eq <0> then] [If LBFETM(R_P) eq <0> then store sectim-i in LBFETM(R_P)] [ENDIF] [store LBFETM(R_P) in index] [NIF LBFSTM(R_P) nq <0> then] [subtract LBFSTM(R_P) from index] [ELSE] [subtract rsmtime from index] [ENDIF] [If lkLBetim(R_P) eq <0> then add index to LBFsec(R_P)] [store <1> in LkLBstim(R_P)] [store <1> in lkLBetim(R_P)] [goto LBFR-D] $end ------------------------------------------------------------------------------ COMMENT: This item allows respondents to skip the labor force items for persons for whom respondents don't know about. $>MISSINGPER< [store <1> in misper(R_P)] [store <3> in pelig(R_P)] [store <0> in index] [if SLFPRX(R_P) is <1> then store <10> in index] [if SLFPRX(R_P) is <2> then store <20> in index] [if R_P eq RESPLI then add <1> to index] [if index eq <10> then store <3> in SLFPRX(R_P)] [if index eq <21> then store <3> in SLFPRX(R_P)] COMMENT: SETS THE FIN TIME IF A PERSON WAS SKIPPED USING THE F9 KEY [setsec sectim-i] [NIF LBFSTM(R_P) nq <0> AND LBFETM(R_P) eq <0> then] [store sectim-i in LBFftim(R_P)] [subtract LBFSTM(R_P) from LBFftim(R_P)] [add LBFftim(R_P) to LBFsec(R_P)] [store <0> in LBFSTM(R_P)] [store <0> in lkLBstim(R_P)] [ENDIF] [store <5> in LFDEX(R_P)] [If onpath WK:R_P then store <2> in LFDEX(R_P)] [NIF HRCK3(R_P) is <1> OR HRCK3(R_P) is <2> then] [If IOCK1(R_P) is < > then store <3> in LFDEX(R_P)] [ENDIF] [store <0> in index] [if HRCK6(R_P) isnt < > then convert HRCK6(R_P) character to index integer] [NIF index ge <1> AND index le <3> then] [If IOCK1(R_P) is < > then store <3> in LFDEX(R_P)] [ENDIF] [If onpath LAYDT:R_P then store <4> in LFDEX(R_P)] [If onpath LK:R_P then store <4> in LFDEX(R_P)] $end -------------------------------------------------------------------------------- COMMENT: THE NEXT 3 ITEMS SET UP THE I&O FLAGS NEEDED IN PROCESSING (IO1ELO, IO1ELI, IODELO, IODELI, IO1COW, IO1NAM, IO1MFG, IO1IND, IO1OCC, IO1DT1, IO1DT2, IO1ICD, IO1OCD, IO2ELI, IO2ELO, IO2COW) $>LBFR-D< [store <0> in IO1ELO(R_P)] [store <0> in IO1ELI(R_P)] [store <0> in IODELO(R_P)] [store <0> in IODELI(R_P)] [store <0> in IO1COW(R_P)] [store <0> in IO2ELO(R_P)] [store <0> in IO2ELI(R_P)] [store <0> in IO2COW(R_P)] [store <0> in index] [store <0> in index2] [NIF IOCK1(R_P) is <1> OR IOCK1(R_P) is <2> then] [store <1> in index] [store <1> in index2] [ELSEIF IOCK1(R_P) is <3> OR IOCK2(R_P) is <1> then] [store <1> in index] [store <1> in index2] [ELSEIF LAYCK3(R_P) is <1> OR LKCK5(R_P) is <5> then] [store <1> in index] [store <1> in index2] [ELSEIF LKCK6(R_P) is <1> OR JHCK4(R_P) is <2> then] [store <1> in index] [store <1> in index2] [ELSEIF JHCK4(R_P) is <4> OR JHCK5(R_P) is <1> then] [store <1> in index] [store <1> in index2] [ELSEIF LAYCK3(R_P) is <2> then] [store <1> in index] [store <1> in index2] [ENDIF] [NIF NLFJH(R_P) is <1> then] [If onpath NLFJH:R_P then store <1> in index] [If onpath NLFJH:R_P then store <1> in index2] [ENDIF] [If onpath LAYFT:R_P then store <1> in index] [If onpath LAYFT:R_P then store <1> in index2] [NIF IODP1(R_P) is <2> OR IODP1(R_P) is then] [If onpath IODP1:R_P then store <1> in index] [store <1> in index2] [ELSEIF IODP1(R_P) is then] [If onpath IODP1:R_P then store <1> in index] [store <1> in index2] [ENDIF] [NIF IO1IND(R_P) isnt AND IO1IND(R_P) isnt then] [If onpath IO1IND:R_P then add <10> to index] [ENDIF] [NIF index eq <11> then] [store <1> in IO1ELI(R_P)] [ELSEIF index eq <1> then] [store <2> in IO1ELI(R_P)] [ENDIF] [NIF IOCK2(R_P) is <2> OR IOCK3(R_P) is <1> then] [store <1> in index2] [ELSEIF IOCK3(R_P) is <2> then] [store <1> in index2] [ENDIF] [NIF IODP2(R_P) is <1> then] [If onpath IODP2:R_P then store <1> in index2] [ENDIF] [NIF IODP3(R_P) is <2> then] [If onpath IODP3:R_P then store <1> in index2] [ENDIF] [NIF IO1OCC(R_P) isnt AND IO1OCC(R_P) isnt then] [If onpath IO1OCC:R_P then add <10> to index2] [ENDIF] [NIF index2 eq <11> then] [store <1> in IO1ELO(R_P)] [ELSEIF index2 eq <1> then] [store <2> in IO1ELO(R_P)] [ENDIF] [IF IOCK2(R_P) is <2> then store <1> in IODELI(R_P)] [IF IOCK2(R_P) is <3> then store <1> in IODELI(R_P)] [NIF LAYCK3(R_P) is <3> OR LKCK6(R_P) is <2> then] [store <1> in IODELI(R_P)] [store <1> in IODELO(R_P)] [ELSEIF JHCK5(R_P) is <2> then] [store <1> in IODELI(R_P)] [store <1> in IODELO(R_P)] [ENDIF] [NIF IODP3(R_P) is <1> OR IODP3(R_P) is then] [If onpath IODP3:R_P then store <1> in IODELO(R_P)] [ELSEIF IODP3(R_P) is then] [If onpath IODP3:R_P then store <1> in IODELO(R_P)] [ENDIF] [store <0> in index] [NIF MISCK is <4> OR MISCK is <8> then] [store <1> in index] [ENDIF] [NIF MJ(R_P) is <1> then] [If onpath MJ:R_P then add <10> to index] [ENDIF] [store <0> in index2] [store <0> in index3] [NIF IO2IND(R_P) isnt AND IO2IND(R_P) isnt then] [If onpath IO2IND:R_P then store <1> in index2] [ENDIF] [NIF IO2OCC(R_P) isnt AND IO2OCC(R_P) isnt then] [If onpath IO2OCC:R_P then store <1> in index3] [ENDIF] [NIF index eq <11> AND index2 eq <1> then] [store <1> in IO2ELI(R_P)] [ELSEIF index eq <11> then] [store <2> in IO2ELI(R_P)] [ENDIF] [NIF index eq <11> AND index3 eq <1> then] [store <1> in IO2ELO(R_P)] [ELSEIF index eq <11> then] [store <2> in IO2ELO(R_P)] [ENDIF] [NIF IODELI(R_P) eq <1> AND IODELO(R_P) eq <1> then] [store I-IO1COW(R_P) in IO1COW(R_P)] [store I-IO1NAM(R_P) in IO1NAM(R_P)] [store I-IO1MFG(R_P) IN IO1MFG(R_P)] [store I-IO1IND(R_P) in IO1IND(R_P)] [store I-IO1OCC(R_P) in IO1OCC(R_P)] [store I-IO1DT1(R_P) in IO1DT1(R_P)] [store I-IO1DT2(R_P) in IO1DT2(R_P)] [store I-IO1ICD(R_P) in IO1ICD(R_P)] [store I-IO1OCD(R_P) in IO1OCD(R_P)] [ELSEIF IODELI(R_P) eq <1> then] [store I-IO1COW(R_P) in IO1COW(R_P)] [store I-IO1NAM(R_P) in IO1NAM(R_P)] [store I-IO1MFG(R_P) IN IO1MFG(R_P)] [store I-IO1IND(R_P) in IO1IND(R_P)] [store I-IO1ICD(R_P) in IO1ICD(R_P)] [ELSEIF IODELO(R_P) eq <1> then] [store I-IO1COW(R_P) in IO1COW(R_P)] [store I-IO1NAM(R_P) in IO1NAM(R_P)] [store I-IO1OCC(R_P) in IO1OCC(R_P)] [store I-IO1DT1(R_P) in IO1DT1(R_P)] [store I-IO1DT2(R_P) in IO1DT2(R_P)] [store I-IO1OCD(R_P) in IO1OCD(R_P)] [ENDIF] ADDED FOR JANUARY BY HUGH [NIF I-IO1ICR(R_P) is <1> AND IODP1(R_P) is <1> then] [If onpath IODP1:R_P then store I-IO1COW(R_P) in IO1COW(R_P)] [If onpath IODP1:R_P then store I-IO1NAM(R_P) in IO1NAM(R_P)] [ENDIF] $end ---------------------------------------------------------------------------- $>LBFR-D2< [store <0> in index] [store <0> in index2] [If onpath IO1INT:R_P then store <1> in index2] [NIF IO1INT(R_P) is <1> AND index2 eq <1> then] [store <1> in index] [ELSEIF IO1INT(R_P) is <2> AND index2 eq <1> then] [store <04> in IO1COW(R_P)] [goto LBFR-D3] [ELSEIF IO1INT(R_P) is <3> AND index2 eq <1> then] [store <05> in IO1COW(R_P)] [goto LBFR-D3] [ELSEIF IO1INT(R_P) is <4> AND index2 eq <1> then] [store <4> in index] [ELSEIF IO1INT(R_P) is <5> AND index2 eq <1> then] [store <5> in index] [ELSEIF IO1INT(R_P) is OR IO1INT(R_P) is then] [If index2 eq <1> then store <09> in IO1COW(R_P)] [If index2 eq <1> then goto LBFR-D3] [ENDIF] [NIF index nq <1> then] [ELSEIF IO1GVT(R_P) is <1> AND index eq <1> then] [If onpath IO1GVT:R_P then store <01> in IO1COW(R_P)] [If onpath IO1GVT:R_P then goto LBFR-D3] [ELSEIF IO1GVT(R_P) is <2> AND index eq <1> then] [If onpath IO1GVT:R_P then store <02> in IO1COW(R_P)] [If onpath IO1GVT:R_P then goto LBFR-D3] [ELSEIF IO1GVT(R_P) is <3> AND index eq <1> then] [If onpath IO1GVT:R_P then store <03> in IO1COW(R_P)] [If onpath IO1GVT:R_P then goto LBFR-D3] [ELSEIF IO1GVT(R_P) is AND index eq <1> then] [If onpath IO1GVT:R_P then store <10> in IO1COW(R_P)] [If onpath IO1GVT:R_P then goto LBFR-D3] [ELSEIF IO1GVT(R_P) is AND index eq <1> then] [If onpath IO1GVT:R_P then store <10> in IO1COW(R_P)] [If onpath IO1GVT:R_P then goto LBFR-D3] [ENDIF] [store <0> in index2] [NIF IO1INC(R_P) is <1> then] [If onpath IO1INC:R_P then store <1> in index2] [ELSEIF IO1INC(R_P) is <2> then] [If onpath IO1INC:R_P then store <2> in index2] [ELSEIF IO1INC(R_P) is OR IO1INC(R_P) is then] [If onpath IO1INC:R_P then store <3> in index2] [ENDIF] [NIF index nq <4> then] [ELSEIF index2 eq <1> AND index eq <4> then] [store <06> in IO1COW(R_P)] [goto LBFR-D3] [ELSEIF index2 eq <2> AND index eq <4> then] [store <07> in IO1COW(R_P)] [goto LBFR-D3] [ELSEIF index2 eq <3> AND index eq <4> then] [store <11> in IO1COW(R_P)] [goto LBFR-D3] [ENDIF] THE FOLLOWING CONDITION WAS ADDED IN JULY 1993 IF 5 IN IO1INT AND 2 IN IO1INC AND LN EQ LINE NUMBER OF BUSINESS OWNER THEN SET IO1COW EQ 7 [store <0> in index4] [store <0> in index6] [convert BUSOT character to index6 integer] [IF R_P eq index6 then store <1> in index4] THIS CHECKS FOR ANY OTHER MEMBERS WHO OWN/OPERATE A BUSINDESS & SKIPS ACCORDINGLY [store <0> in index6] [store <0> in index7] [store <0> in index3] [store <0> in index5] [NIF BUSL1 isnt AND BUSL1 isnt then] [if onpath BUSL1 then convert BUSL1 character to index6 integer] [ENDIF] [NIF BUSL2 isnt AND BUSL2 isnt then] [If onpath BUSL2 then convert BUSL2 character to index7 integer] [ENDIF] [NIF BUSL3 isnt AND BUSL3 isnt then] [If onpath BUSL3 then convert BUSL3 character to index3 integer] [ENDIF] [NIF BUSL4 isnt AND BUSL4 isnt then] [If onpath BUSL4 then convert BUSL4 character to index5 integer] [ENDIF] [NIF index6 eq R_P OR index7 eq R_P then] [store <1> in index4] [ELSEIF index3 eq R_P OR index5 eq R_P then] [store <1> in index4] [ENDIF] [NIF index eq <5> AND index2 eq <1> then] ADDED JUN 96 [if index4 eq <1> then store <06> in IO1COW(R_P)] [if index4 eq <1> then goto LBFR-D3] [ENDIF] [NIF index eq <5> AND index2 eq <2> then] [if index4 eq <1> then store <07> in IO1COW(R_P)] [if index4 eq <1> then goto LBFR-D3] [ENDIF] [NIF index eq <5> AND index2 eq <3> then] ADDED JUN 96 [if index4 eq <1> then store <11> in IO1COW(R_P)] [if index4 eq <1> then goto LBFR-D3] [ENDIF] [NIF index nq <5> then] [ELSEIF index2 eq <1> then] [store <04> in IO1COW(R_P)] (CHANGED SEP 95) [ELSEIF IO1WPO(R_P) is <1> AND index2 eq <2> then] [store <04> in IO1COW(R_P)] [goto LBFR-D3] (CHANGED SEP 95) [ELSEIF IO1WPO(R_P) is <1> AND index2 eq <3> then] [store <04> in IO1COW(R_P)] [goto LBFR-D3] [ELSEIF IO1WPO(R_P) is <2> AND index2 eq <2> then] [store <08> in IO1COW(R_P)] [goto LBFR-D3] [ELSEIF IO1WPO(R_P) is AND index2 eq <2> then] [store <08> in IO1COW(R_P)] [goto LBFR-D3] [ELSEIF IO1WPO(R_P) is AND index2 eq <2> then] [store <08> in IO1COW(R_P)] [goto LBFR-D3] [ELSEIF IO1WPO(R_P) is <2> AND index2 eq <3> then] [store <08> in IO1COW(R_P)] [goto LBFR-D3] [ELSEIF IO1WPO(R_P) is AND index2 eq <3> then] [store <08> in IO1COW(R_P)] [goto LBFR-D3] [ELSEIF IO1WPO(R_P) is AND index2 eq <3> then] [store <08> in IO1COW(R_P)] [goto LBFR-D3] [ENDIF] $end ------------------------------------------------------------------------------ $>LBFR-D3< [store <0> in index] [store <0> in index2] [If onpath IO2INT:R_P then store <1> in index2] [NIF IO2INT(R_P) is <1> AND index2 eq <1> then] [store <1> in index] [ELSEIF IO2INT(R_P) is <2> AND index2 eq <1> then] [store <04> in IO2COW(R_P)] [goto LBFR-D4] [ELSEIF IO2INT(R_P) is <3> AND index2 eq <1> then] [store <05> in IO2COW(R_P)] [goto LBFR-D4] [ELSEIF IO2INT(R_P) is <4> AND index2 eq <1> then] [store <4> in index] [ELSEIF IO2INT(R_P) is <5> AND index2 eq <1> then] [store <5> in index] [ELSEIF IO2INT(R_P) is OR IO2INT(R_P) is then] [If index2 eq <1> then store <09> in IO2COW(R_P)] [If index2 eq <1> then goto LBFR-D4] [ENDIF] [NIF index nq <1> then] [ELSEIF IO2GVT(R_P) is <1> AND index eq <1> then] [If onpath IO2GVT:R_P then store <01> in IO2COW(R_P)] [If onpath IO2GVT:R_P then goto LBFR-D4] [ELSEIF IO2GVT(R_P) is <2> AND index eq <1> then] [If onpath IO2GVT:R_P then store <02> in IO2COW(R_P)] [If onpath IO2GVT:R_P then goto LBFR-D4] [ELSEIF IO2GVT(R_P) is <3> AND index eq <1> then] [If onpath IO2GVT:R_P then store <03> in IO2COW(R_P)] [If onpath IO2GVT:R_P then goto LBFR-D4] [ELSEIF IO2GVT(R_P) is AND index eq <1> then] [If onpath IO2GVT:R_P then store <10> in IO2COW(R_P)] [If onpath IO2GVT:R_P then goto LBFR-D4] [ELSEIF IO2GVT(R_P) is AND index eq <1> then] [If onpath IO2GVT:R_P then store <10> in IO2COW(R_P)] [If onpath IO2GVT:R_P then goto LBFR-D4] [ENDIF] [store <0> in index2] [NIF IO2INC(R_P) is <1> then] [If onpath IO2INC:R_P then store <1> in index2] [ELSEIF IO2INC(R_P) is <2> then] [If onpath IO2INC:R_P then store <2> in index2] [ELSEIF IO2INC(R_P) is OR IO2INC(R_P) is then] [If onpath IO2INC:R_P then store <3> in index2] [ENDIF] [NIF index nq <4> then] [ELSEIF index2 eq <1> AND index eq <4> then] [store <06> in IO2COW(R_P)] [goto LBFR-D4] [ELSEIF index2 eq <2> AND index eq <4> then] [store <07> in IO2COW(R_P)] [goto LBFR-D4] [ELSEIF index2 eq <3> AND index eq <4> then] [store <11> in IO2COW(R_P)] [goto LBFR-D4] [ENDIF] THE FOLLOWING CONDITION WAS ADDED IN JULY 1993 IF 5 IN IO2INT AND 2 IN IO2INC AND LN EQ LINE NUMBER OF BUSINESS OWNER THEN SET IO2COW EQ 7 [store <0> in index4] [store <0> in index6] [convert BUSOT character to index6 integer] [IF R_P eq index6 then store <1> in index4] THIS CHECKS FOR ANY OTHER MEMBERS WHO OWN/OPERATE A BUSINDESS & SKIPS ACCORDINGLY [store <0> in index6] [store <0> in index7] [store <0> in index3] [store <0> in index5] [NIF BUSL1 isnt AND BUSL1 isnt then] [if onpath BUSL1 then convert BUSL1 character to index6 integer] [ENDIF] [NIF BUSL2 isnt AND BUSL2 isnt then] [If onpath BUSL2 then convert BUSL2 character to index7 integer] [ENDIF] [NIF BUSL3 isnt AND BUSL3 isnt then] [If onpath BUSL3 then convert BUSL3 character to index3 integer] [ENDIF] [NIF BUSL4 isnt AND BUSL4 isnt then] [If onpath BUSL4 then convert BUSL4 character to index5 integer] [ENDIF] [NIF index6 eq R_P OR index7 eq R_P then] [store <1> in index4] [ELSEIF index3 eq R_P OR index5 eq R_P then] [store <1> in index4] [ENDIF] [NIF index eq <5> AND index2 eq <1> then] ADDED JUN 96 [if index4 eq <1> then store <06> in IO2COW(R_P)] [if index4 eq <1> then goto LBFR-D4] [ENDIF] [NIF index eq <5> AND index2 eq <2> then] [if index4 eq <1> then store <07> in IO2COW(R_P)] [if index4 eq <1> then goto LBFR-D4] [ENDIF] [NIF index eq <5> AND index2 eq <3> then] ADDED JUN 96 [if index4 eq <1> then store <11> in IO2COW(R_P)] [if index4 eq <1> then goto LBFR-D4] [ENDIF] [NIF index nq <5> then] [ELSEIF index2 eq <1> then] [store <04> in IO2COW(R_P)] (CHANGED SEP 95) [ELSEIF IO2WP(R_P) is <1> AND index2 eq <2> then] [IF onpath IO2WP:R_P then store <04> in IO2COW(R_P)] (CHANGED SEP 95) [If onpath IO2WP:R_P then goto LBFR-D4] [ELSEIF IO2WP(R_P) is <1> AND index2 eq <3> then] [IF onpath IO2WP:R_P then store <04> in IO2COW(R_P)] [If onpath IO2WP:R_P then goto LBFR-D4] [ELSEIF IO2WP(R_P) is <2> AND index2 eq <2> then] [IF onpath IO2WP:R_P then store <08> in IO2COW(R_P)] [If onpath IO2WP:R_P then goto LBFR-D4] [ELSEIF IO2WP(R_P) is AND index2 eq <2> then] [IF onpath IO2WP:R_P then store <08> in IO2COW(R_P)] [If onpath IO2WP:R_P then goto LBFR-D4] [ELSEIF IO2WP(R_P) is AND index2 eq <2> then] [IF onpath IO2WP:R_P then store <08> in IO2COW(R_P)] [If onpath IO2WP:R_P then goto LBFR-D4] [ELSEIF IO2WP(R_P) is <2> AND index2 eq <3> then] [IF onpath IO2WP:R_P then store <08> in IO2COW(R_P)] [If onpath IO2WP:R_P then goto LBFR-D4] [ELSEIF IO2WP(R_P) is AND index2 eq <3> then] [IF onpath IO2WP:R_P then store <08> in IO2COW(R_P)] [If onpath IO2WP:R_P then goto LBFR-D4] [ELSEIF IO2WP(R_P) is AND index2 eq <3> then] [IF onpath IO2WP:R_P then store <08> in IO2COW(R_P)] [If onpath IO2WP:R_P then goto LBFR-D4] [ENDIF] $end ------------------------------------------------------------------------------ $>LBFR-D4< [NIF LFDEX(R_P) is <4> OR LFDEX(R_P) is <5> then] [roster loop] [ENDIF] [NIF WK(R_P) isnt <1> AND LFDEX(R_P) is <2> then] [If onpath WK:R_P then roster loop] [ENDIF] $END ----------------------------------------------------------------------------- COMMENT: THE NEXT 2 ITEMS SET UP MLR $>LBFR-D5< [store < > in MLR(R_P)] 1. MLR EQUALS 1 - EMPLOYED AT WORK IF ENTRY OF 1 IN WK AND HRCK6 IS 3 OR BLANK OR (ENTRY OF 1 IN BUS1 AND CONDITION 2-5 OR BLANK IS MET IN HRCK7) [NIF WK(R_P) is <1> AND HRCK6(R_P) is <3> then] [If onpath WK:R_P then store <1> in MLR(R_P)] [If onpath WK:R_P then roster loop] [ENDIF] [NIF WK(R_P) is <1> AND HRCK6(R_P) is < > then] [If onpath WK:R_P then store <1> in MLR(R_P)] [If onpath WK:R_P then roster loop] [ENDIF] [store <0> in index] [NIF BUS1(R_P) is <1> then] [If onpath BUS1:R_P then store <1> in index] [ENDIF] [store <0> in index4] [If HRCK7(R_P) isnt < > then convert HRCK7(R_P) character to index4 integer] [NIF index4 ge <2> AND index4 le <5> then] [if index eq <1> then store <1> in MLR(R_P)] [if index eq <1> then roster loop] [ELSEIF HRCK7(R_P) is < > then] [if index eq <1> then store <1> in MLR(R_P)] [if index eq <1> then roster loop] [ENDIF] 2. MLR EQUALS 2 - EMPLOYED -ABSENT IF ENTRY OF 1,2,D OR R IN ABSPD GOTO LBFR-D5B TO CHECK NEW CONDITION ADDED IN APRIL 93 [If onpath ABSPD:R_P then store <2> in MLR(R_P)] [If onpath ABSPD:R_P then goto LBFR-D5b] THE FOLLOWING IS TO CHECK CONDITIONS OF ABSPDO (the following is the same as a 2 in ABSPD) [store <0> in index4] [NIF ABS(R_P) is <2> then] [If onpath ABS:R_P then store <1> in index4] [ENDIF] [store <0> in index6] [NIF ABSRSN(R_P) is <13> then] [if onpath ABSRSN:R_P then store <1> in index6] [ENDIF] [store <0> in index] [convert BUSOT character to index integer] [NIF R_P eq index AND index6 nq <1> then] [If index4 eq <1> then store <2> in MLR(R_P)] [If index4 eq <1> then goto LBFR-D5b] [ENDIF] THIS CHECKS FOR ANY OTHER MEMBERS WHO OWN/OPERATE A BUSINDESS & SKIPS ACCORDINGLY [store <0> in index] [store <0> in index2] [store <0> in index3] [store <0> in index5] [NIF BUSL1 isnt AND BUSL1 isnt then] [if onpath BUSL1 then convert BUSL1 character to index integer] [ENDIF] [NIF BUSL2 isnt AND BUSL2 isnt then] [If onpath BUSL2 then convert BUSL2 character to index2 integer] [ENDIF] [NIF BUSL3 isnt AND BUSL3 isnt then] [If onpath BUSL3 then convert BUSL3 character to index3 integer] [ENDIF] [NIF BUSL4 isnt AND BUSL4 isnt then] [If onpath BUSL4 then convert BUSL4 character to index5 integer] [ENDIF] [store < > in temp2] [NIF index eq R_P AND index4 eq <1> then] [if index6 nq <1> then store <2> in MLR(R_P)] [if index6 nq <1> then goto LBFR-D5b] [ELSEIF index2 eq R_P AND index4 eq <1> then] [if index6 nq <1> then store <2> in MLR(R_P)] [if index6 nq <1> then goto LBFR-D5b] [ELSEIF index3 eq R_P AND index4 eq <1> then] [if index6 nq <1> then store <2> in MLR(R_P)] [if index6 nq <1> then goto LBFR-D5b] [ELSEIF index5 eq R_P AND index4 eq <1> then] [if index6 nq <1> then store <2> in MLR(R_P)] [if index6 nq <1> then goto LBFR-D5b] [ENDIF] 3. MLR EQUALS 3 - UNEMPLOYED-ON LAYOFF IF ENTRY OF 1,D OR R IN LAYAVL OR ENTRY OF 1 IN LAYAVR [NIF LAYAVL(R_P) isnt <2> then] [If onpath LAYAVL:R_P then store <3> in MLR(R_P)] [If onpath LAYAVL:R_P then goto LBFR-D7] [ENDIF] [NIF LAYAVR(R_P) is <1> then] [If onpath LAYAVR:R_P then store <3> in MLR(R_P)] [If onpath LAYAVR:R_P then goto LBFR-D7] [ENDIF] 4. MLR EQUALS 4 - UNEMPLOYED-LOOKING IF ENTRY OF 1,D OR R IN LKAVL OR ENTRY OF 1 OR 2 IN LKAVR [NIF LKAVL(R_P) isnt <2> then] [If onpath LKAVL:R_P then store <4> in MLR(R_P)] [If onpath LKAVL:R_P then goto LBFR-D8] [ENDIF] [NIF LKAVR(R_P) is <1> OR LKAVR(R_P) is <2> then] [If onpath LKAVR:R_P then store <4> in MLR(R_P)] [If onpath LKAVR:R_P then goto LBFR-D8] [ENDIF] [goto LBFR-D6] $end ------------------------------------------------------------------------------- COMMENT: THIS WAS ADDED IN APRIL 93 IF MLR = 2 AND COW IS 8 THEN STORE 7 IN MLR $>LBFR-D5b< [NIF MLR(R_P) is <2> AND IO1COW(R_P) is <8> then] [store <7> in MLR(R_P)] [ENDIF] [roster loop] $end ---------------------------------------------------------------------- $>LBFR-D6< 5. MLR EQUALS 5 - NOT IN LABOR FORCE - RETIRED CHANGED JAN 95 ENTRY OF 2 IN RET1 OR ENTRY OF 1 IN NLFRET OR (ENTRY OF 3 IN LK AND AGERNG NQ 1-4 OR 9) OR (ENTRY OF 3 IN DWWNTO AND AGERNG NQ 1-4 OR 9) OR ONPATH ENTRY OF 5 IN NLFACT OR ONPATH ENTRY OF 1 IN RETOT OR ONPATH ENTRY OF 4 IN JHRSN AND AGERNG NQ 1-4 OR 9. [NIF RET1(R_P) is <2> then] [If onpath RET1:R_P then store <5> in MLR(R_P)] [If onpath RET1:R_P then roster loop] [ENDIF] [NIF NLFRET(R_P) is <1> then] [if onpath NLFRET:R_P then store <5> in MLR(R_P)] [if onpath NLFRET:R_P then roster loop] [ENDIF] [store <0> in index] [NIF AGERNG(R_P) eq <5> OR AGERNG(R_P) eq <6> then] [store <1> in index] [ELSEIF AGERNG(R_P) eq <8> then] [store <1> in index] [ENDIF] [NIF LK(R_P) is <3> AND index eq <1> then] [if onpath LK:R_P then store <5> in MLR(R_P)] [if onpath LK:R_P then roster loop] [ENDIF] DON'T NEED TO CHECK OTHER POSSIBILITIES FOR OUT VARIABLE BECAUSE ONLY A 1 IS STORED AND SKIPPED [NIF DWWNT(R_P) is <3> AND index eq <1> then] [if onpath DWWNT:R_P then store <5> in MLR(R_P)] [If onpath DWWNT:R_P then roster loop] [ENDIF] [NIF NLFACT(R_P) is <5> then] [If onpath NLFACT:R_P then store <5> in MLR(R_P)] [If onpath NLFACT:R_P then roster loop] [ENDIF] [NIF RETOT(R_P) is <1> then] [store <5> in MLR(R_P)] [roster loop] [ENDIF] [store <0> in index] [NIF JHRSN(R_P) is <4> then] [if onpath JHRSN:R_P then store <1> in index] [ENDIF] [NIF AGERNG(R_P) ge <1> AND AGERNG(R_P) le <4> then] [add <10> to index] [ELSEIF AGERNG(R_P) eq <9> then] [add <10> to index] [ENDIF] [NIF index eq <1> then] [store <5> in MLR(R_P)] [roster loop] [ENDIF] ADDED JAN 95 FOR MLR 5 ** ENTER OF 3 IN WK AND AGE 50+ AND RET1 IS 1 AND LK IS 1 AND LKAVL IS 2 AND LKAVR IS 3,4 D OR R [store <0> in index] [NIF WK(R_P) is <3> then] [if onpath WK:R_P then store <1> in index] [ENDIF] [convert age(R_P) character to age-i(R_P) integer] [if age-i(R_P) ge <50> then add <1> to index] [NIF RET1(R_P) is <1> OR RET1(R_P) is then] [if onpath RET1:R_P then add <1> to index] [ELSEIF RET1(R_P) IS then] [if onpath RET1:R_P then add <1> to index] [ENDIF] [NIF LK(R_P) is <1> then] [if onpath LK:R_P then add <1> to index] [ENDIF] [NIF LKAVL(R_P) is <2> then] [if onpath LKAVL:R_P then add <1> to index] [ENDIF] [NIF LKAVR(R_P) is <3> OR LKAVR(R_P) is <4> then] [if onpath LKAVR:R_P then add <1> to index] [ELSEIF LKAVR(R_P) is OR LKAVR(R_P) is then] [if onpath LKAVR:R_P then add <1> to index] [ENDIF] [if index eq <6> then store <5> in MLR(R_P)] [if index eq <6> then roster loop] ADDED JUN 96 [IF JHCK1(R_P) is <1> then store <5> in MLR(R_P)] [IF JHCK1(R_P) is <1> then roster loop] 6. MLR EQUALS 6 - NOT IN LABOR FORCE - DISABLED IF ENTRY OF 1 IN DIS1 OR ENTRY OF 1 IN DIS2 OR ENTRY OF 1 IN DIS [NIF DIS1(R_P) is <1> then] [if onpath DIS1:R_P then store <6> in MLR(R_P)] [If onpath DIS1:R_P then roster loop] [ENDIF] [NIF DIS2(R_P) is <1> then] [if onpath DIS2:R_P then store <6> in MLR(R_P)] [If onpath DIS2:R_P then roster loop] [ENDIF] [NIF DIS(R_P) is <1> then] [if onpath DIS:R_P then store <6> in MLR(R_P)] [If onpath DIS:R_P then roster loop] [ENDIF] 7. MLR EQUALS 7 - NOT IN LABOR FORCE - OTHER ALL OTHERS [store <7> in MLR(R_P)] [roster loop] $end ---------------------------------------------------------------------------- COMMENT: THIS ITEM SETS UP LAYDUR $>LBFR-D7< [store <0> in index] [store <0> in index3] [NIF LAYDR3(R_P) isnt AND LAYDR3(R_P) isnt then] [If onpath LAYDR3:R_P then convert LAYDR3(R_P) character to index3 integer] [ELSE] [If onpath LAYDR3:R_P then store <1> in index] [ENDIF] [NIF LAYCK2(R_P) is <1> AND index eq <1> then] [store LAYDR3(R_P) in LAYDUR(R_P)] [roster loop] [ENDIF] [NIF index3 ge <1> AND index3 le <20> then] [store LAYDR3(R_P) in LAYDUR(R_P)] [roster loop] [ENDIF] [store <0> in index] [store <0> in index2] [IF LAYCK2(R_P) is <2> then store <1> in index] [If onpath LAYDR1:R_P then store <1> in index2] [NIF LAYDR1(R_P) is OR LAYDR1(R_P) is then] [If index2 eq <1> then add <10> to index] [ELSEIF LAYDR1(R_P) is <1> AND index2 eq <1> then] [add <20> to index] [ELSEIF LAYDR1(R_P) is <2> AND index2 eq <1> then] [add <30> to index] [ELSEIF LAYDR1(R_P) is <3> AND index2 eq <1> then] [add <40> to index] [ENDIF] [If index2 eq <0> then add <50> to index] [store <0> in index3] [store <0> in rindex] [NIF index eq <51> then] [store in LAYDUR(R_P)] [roster loop] [ELSEIF index eq <11> then] [store LAYDR1(R_P) in LAYDUR(R_P)] [roster loop] [ELSEIF index eq <21> then] [store LAYDR2(R_P) in LAYDUR(R_P)] [roster loop] [ELSEIF index eq <31> then] [If LAYDR2(R_P) isnt < > then convert LAYDR2(R_P) character to rindex real] [multiply rindex by <4.33>] [convert rindex real to LAYDUR(R_P) character 6 3] [roster loop] [ELSEIF index eq <41> then] [convert LAYDR2(R_P) character to index3 integer] [multiply index3 by <52>] [convert index3 integer to LAYDUR(R_P) character] [roster loop] [ENDIF] $end ----------------------------------------------------------------------------- COMMENT: THIS ITEM SETS UP LKDUR $>LBFR-D8< [store <0> in index] [store <0> in index3] [NIF LKDUR3(R_P) isnt AND LKDUR3(R_P) isnt then] [If onpath LKDUR3:R_P then convert LKDUR3(R_P) character to index3 integer] [ELSE] [If onpath LKDUR3:R_P then store <1> in index] [ENDIF] [NIF LKCK4(R_P) is <1> AND index eq <1> then] [store LKDUR3(R_P) in LKDUR(R_P)] [goto LBFR-D9] [ENDIF] [NIF index3 ge <1> AND index3 le <20> then] [store LKDUR3(R_P) in LKDUR(R_P)] [goto LBFR-D9] [ENDIF] [store <0> in index] [store <0> in index2] [IF LKCK4(R_P) is <2> then store <1> in index] [If onpath LKDUR1:R_P then store <1> in index2] [NIF LKDUR1(R_P) is OR LKDUR1(R_P) is then] [If index2 eq <1> then add <10> to index] [ELSEIF LKDUR1(R_P) is <1> AND index2 eq <1> then] [add <20> to index] [ELSEIF LKDUR1(R_P) is <2> AND index2 eq <1> then] [add <30> to index] [ELSEIF LKDUR1(R_P) is <3> AND index2 eq <1> then] [add <40> to index] [ENDIF] [If index2 eq <0> then add <5> to index] [store <0> in rindex] [store <0> in index3] [NIF index eq <51> then] [store in LKDUR(R_P)] [goto LBFR-D9] [ELSEIF index eq <11> then] [store LKDUR1(R_P) in LKDUR(R_P)] [goto LBFR-D9] [ELSEIF index eq <21> then] [store LKDUR2(R_P) in LKDUR(R_P)] [goto LBFR-D9] [ELSEIF index eq <31> then] [IF LKDUR2(R_P) isnt < > then convert LKDUR2(R_P) character to rindex REAL] [multiply rindex by <4.33>] [convert rindex real to LKDUR(R_P) character 6 3] [goto LBFR-D9] [ELSEIF index eq <41> then] [If LKDUR2(R_P) isnt < > then convert LKDUR2(R_P) character to index3 integer] [multiply index3 by <52>] [convert index3 integer to LKDUR(R_P) character] [goto LBFR-D9] [ENDIF] $end ----------------------------------------------------------------------------- COMMENT: THIS ITEM SETS UP LKDURX $>LBFR-D9< [store <0> in rindex] [store <0> in index] [NIf LKDUR(R_P) isnt < > AND LKDUR(R_P) isnt then] [if LKDUR(R_P) isnt then convert LKDUR(R_P) character to rindex real] [ENDIF] [NIF LKDATM(R_P) is OR LKDATM(R_P) is then] [If onpath LKDATM:R_P then roster loop] [ENDIF] [NIF LKLW(R_P) isnt <1> then] [If onpath LKLW:R_P then roster loop] [ENDIF] [If I-MLR(R_P) is <4> then roster loop] [store <0> in jdate-i] [store <0> in mon-i] [setdate jdate-i mon-i day-i year-i date-c wkday1-c wkday2-c] [subtract <1900> from year-i] [store <0> in index] [store <0> in index2] [store <0> in index3] [convert lkdtmo(R_P) character to index2 integer] [convert lkdtyo(R_P) character to index3 integer] [NIF index2 eq mon-i AND index3 eq year-i then] [store <03> in LKDURX(R_P)] [ENDIF] [store <0> in rindex] [store <0> in index4] [NIF index3 eq year-i AND index2 nq mon-i then] [store mon-i in rindex] [subtract index2 from rindex] [multiply rindex by <4.33>] [convert rindex real to LKDURX(R_P) character 6 3] [ELSEIF index3 nq year-i AND index2 eq mon-i then] [store <12.0> in rindex] [multiply rindex by <4.33>] [convert rindex real to LKDURX(R_P) character 6 3] [ELSEIF index3 nq year-i then] [store <12> in index] [convert lkdtmo(R_P) character to index4 integer] [subtract index4 from index] [add mon-i to index] [store index in rindex] [multiply rindex by <4.33>] [convert rindex real to LKDURX(R_P) character 6 3] [ENDIF] [store <0> in rindex] [store <0> in rindex2] [NIf LKDUR(R_P) isnt < > AND LKDUR(R_P) isnt then] [if LKDUR(R_P) isnt then convert LKDUR(R_P) character to rindex real] [ENDIF] [NIf LKDURX(R_P) isnt AND LKDURX(R_P) isnt then] [If LKDURX(R_P) isnt < > then convert LKDURX(R_P) character to rindex2 real] [ENDIF] [If rindex gt rindex2 then store LKDURX(R_P) in LKDUR(R_P)] $end ------------------------------------------------------------------------------ $REND>LBFR< ------------------------------------------------------------------------------ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ **9** NATIVITY QUESTIONS THIS IS THE BEGINNING OF THE NATIVITY QUESTIONS ******************************************************************************** $>PRE-NAT< [NIF MISFLG is <1> OR REPLCE eq <1> then] DELETED MISFLG is 5 DEC 94 [goto PRENAT] [ENDIF] [goto PRE-NAT2] $end ---------------------------------------------------------------------- $>PRENAT< $display >PRENAT< The next few questions ask about each household member's country of birth ENTER

TO PROCEED ===>_ $end ---------------------------------------------------------------------- $>PRE-NAT2< [store <0> in NAT_R_P] $end ---------------------------------------------------------------------- $ROPEN>NAT< $>aft-nat< [goto FAMIN-ck] $end ---------------------------------------------------------------------- $RBEGIN>NAT< [maxelt 16] $>pre-NATVTY< [If R_P gt NROSIZ then roster exit] [NIF DELDEC(R_P) is <3> OR DELDEC(R_P) is <1> then] [roster loop] [ELSEIF DELDEC(R_P) is <2> then] [roster loop] [ELSEIF hhmem(R_P) is <2> OR hhmem(R_P) is <3> then] [roster loop] [ENDIF] [NIF MISFLG is <1> OR REPLCE eq <1> then] DELETED MISFLG is 5 DEC 94 [goto NAT1] [ELSEIF NATVTY(R_P) is < > OR NATVTY(R_P) is then] [goto NAT1] [ELSEIF NATVTY(R_P) is then] [goto NAT1] [ENDIF] [goto pre-MNTVTY] $end ---------------------------------------------------------------------- $>NAT1< [NIF R_P eq RESPLI then] [store in werewas] [store in temptext] [if curralt eq <1> then store in temptext] [ELSE] [store in werewas] [store name(R_P) in temptext] [ENDIF] $display >NAT1< In what country [fill werewas] [fill temptext] born? <1> United States <2> Puerto Rico <3> Outlying Area of the U.S. (American Samoa, Guam, U.S. Virgin Islands, Northern Marianas, Other U.S. Territory.) <4> Canada <17> Guyana <30> Nicaragua <5> Cambodia <18> Haiti <31> Peru <6> China <19> Honduras <32> Philippines <7> Colombia <20> Hong Kong <33> Poland <8> Cuba <21> Hungary <34> Portugal <9> Dominican Republic <22> India <35> Russia <10> Ecuador <23> Iran <36> Scotland <11> El Salvador <24> Ireland/Eire <37> Korea/South Korea <12> England <25> Italy <38> Taiwan <13> France <26> Jamaica <39> Thailand <14> Germany <27> Japan <40> Trinidad & Tobago <15> Greece <28> Laos <41> Vietnam <16> Guatemala <29> Mexico <42> Yugoslavia ENTER FOR MORE COUNTRIES [goto NAT2] [blind] Don't know Refused ===>__ [goto NAT1-ST] $d [alt 1] >NAT1< ¨En qu‚ pa¡s naci¢ [fill temptext]? <1> Estados Unidos <2> Puerto Rico <3> Territorio Americano (Samoa Americana, Guam, Islas V¡rgenes Americanas, Islas Marianas del Norte, Otro Territorio Americano.) <4> Canad  <17> Guyana <30> Nicaragua <5> Camboya <18> Hait¡ <31> Per£ <6> China <19> Honduras <32> Filipinas <7> Colombia <20> Hong Kong <33> Polonia <8> Cuba <21> Hungr¡a <34> Portugal <9> Rup£blica Dominicana <22> India <35> Rusia <10> Ecuador <23> Ir n <36> Escocia <11> El Salvador <24> Irlanda <37> Korea/Korea del Sur <12> Inglaterra <25> Italia <38> Taiwan <13> Francia <26> Jamaica <39> Tailandia <14> Alemania <27> Jap¢n <40> Trinidad y Tobago <15> Grecia <28> Laos <41> Vietnam <16> Guatemala <29> M‚xico <42> Yugoslavia ENTER FOR MORE COUNTRIES [goto NAT2] [blind] Don't know Refused ===>__ [goto NAT1-ST] $end ---------------------------------------------------------------------- $>NAT2< $display >NAT2< OTHER COUNTRIES FOR NATIVITY <200> Afghanistan <103> Belgium <338> Dominica <375> Argentina <300> Bermuda <415> Egypt <185> Armenia <376> Bolivia <417> Ethiopia <102> Austria <377> Brazil <507> Figi <501> Australia <205> Burma <108> Finland <130> Azores <378> Chile <421> Ghana <333> Bahamas <311> Costa Rica <138> Great Britain <202> Bangladesh <155> Czech Republic <340> Grenada <334> Barbados <105> Czechoslovakia <126> Holland <310> Belize <106> Denmark <211> Indonesia ENTER FOR MORE COUNTRIES [goto NAT3] ===>___ [goto NAT1-st] $end ---------------------------------------------------------------------- $>NAT3< $display >NAT3< OTHER COUNTRIES FOR NATIVITY <213> Iraq <440> Nigeria <449> South Africa <214> Israel <142> Northern Ireland <134> Spain <216> Jordan <127> Norway <136> Sweden <427> Kenya <229> Pakistan <137> Switzerland <183> Latvia <253> Palestine <237> Syria <222> Lebanon <317> Panama <240> Turkey <184> Lithuania <132> Romania <195> Ukraine <224> Malaysia <233> Saudi Arabia <387> Uruguay <436> Morocco <234> Singapore <180> USSR <126> Netherlands <156> Slovakia/Slovak Rep. <388> Venezuela <514> New Zealand ENTER FOR MORE COUNTRIES [goto NAT4] ===>___ [goto NAT1-st] $end ---------------------------------------------------------------------- $>NAT4< $display >NAT4< OTHER COUNTRIES FOR NATIVITY <353> Caribbean <148> Europe <245> Asia <318> Central America <252> Middle East <527> Pacific Islands <389> South America <468> North Africa <304> North America <462> Other Africa <555> Elsewhere ===>___ $end ---------------------------------------------------------------------- $>NAT1-st< [NIF NAT1(R_P) is <1> then] [store <57> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <2> then] [store <72> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <3> then] [store <96> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <4> then] [store <301> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <5> then] [store <206> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <6> then] [store <207> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <7> then] [store <379> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <8> then] [store <337> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <9> then] [store <339> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <10> then] [store <380> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <11> then] [store <312> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <12> then] [store <139> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <13> then] [store <109> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <14> then] [store <110> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <15> then] [store <116> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <16> then] [store <313> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <17> then] [store <383> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <18> then] [store <342> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <19> then] [store <314> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <20> then] [store <209> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <21> then] [store <117> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <22> then] [store <210> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <23> then] [store <212> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <24> then] [store <119> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <25> then] [store <120> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <26> then] [store <343> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <27> then] [store <215> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <28> then] [store <221> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <29> then] [store <315> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <30> then] [store <316> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <31> then] [store <385> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <32> then] [store <231> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <33> then] [store <128> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <34> then] [store <129> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <35> then] [store <192> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <36> then] [store <140> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <37> then] [store <218> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <38> then] [store <238> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <39> then] [store <239> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <40> then] [store <351> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <41> then] [store <242> in NATVTY(R_P)] [ELSEIF NAT1(R_P) is <42> then] [store <147> in NATVTY(R_P)] [ENDIF] [NIF NAT2(R_P) isnt then] [if onpath NAT2:R_P then store NAT2(R_P) in NATVTY(R_P)] [ENDIF] [NIF NAT3(R_P) isnt then] [if onpath NAT3:R_P then store NAT3(R_P) in NATVTY(R_P)] [ENDIF] [NIF NAT4(R_P) isnt then] [if onpath NAT4:R_P then store NAT4(R_P) in NATVTY(R_P)] [ENDIF] $end ---------------------------------------------------------------------- $>Pre-MNTVTY< [NIF MISFLG is <1> OR REPLCE eq <1> then] DELETED MISFLG is 5 DEC 94 [goto MNAT1] [ELSEIF MNTVTY(R_P) is < > OR MNTVTY(R_P) is then] [goto MNAT1] [ELSEIF MNTVTY(R_P) is then] [goto MNAT1] [ENDIF] [goto pre-FNTVTY] $end ---------------------------------------------------------------------- $>MNAT1< [NIF R_P eq RESPLI then] [store in temptext] [if curralt eq <1> then store in temptext] [ELSE] [combine name(R_P) <'s> into temptext] [if curralt eq <1> then combine < > name(R_P) into temptext] [ENDIF] $display >MNAT1< In what country was [fill temptext] mother born? <1> United States <2> Puerto Rico <3> Outlying Area of the U.S. (American Samoa, Guam, U.S. Virgin Islands, Northern Marianas, Other U.S. Territory.) <4> Canada <17> Guyana <30> Nicaragua <5> Cambodia <18> Haiti <31> Peru <6> China <19> Honduras <32> Philippines <7> Colombia <20> Hong Kong <33> Poland <8> Cuba <21> Hungary <34> Portugal <9> Dominican Republic <22> India <35> Russia <10> Ecuador <23> Iran <36> Scotland <11> El Salvador <24> Ireland/Eire <37> Korea/South Korea <12> England <25> Italy <38> Taiwan <13> France <26> Jamaica <39> Thailand <14> Germany <27> Japan <40> Trinidad & Tobago <15> Greece <28> Laos <41> Vietnam <16> Guatemala <29> Mexico <42> Yugoslavia ENTER FOR MORE COUNTRIES [goto MNAT2] [blind] Don't know Refused ===>__ [goto MNAT1-ST] $d [alt 1] >MNAT1< ¨En qu‚ pa¡s naci¢ [fill temptext]? <1> Estados Unidos <2> Puerto Rico <3> Territorio Americano (Samoa Americana, Guam, Islas V¡rgenes Americanas, Islas Marianas del Norte, Otro Territorio Americano.) <4> Canad  <17> Guyana <30> Nicaragua <5> Camboya <18> Hait¡ <31> Per£ <6> China <19> Honduras <32> Filipinas <7> Colombia <20> Hong Kong <33> Polonia <8> Cuba <21> Hungr¡a <34> Portugal <9> Rup£blica Dominicana <22> India <35> Rusia <10> Ecuador <23> Ir n <36> Escocia <11> El Salvador <24> Irlanda <37> Korea/Korea del Sur <12> Inglaterra <25> Italia <38> Taiwan <13> Francia <26> Jamaica <39> Tailandia <14> Alemania <27> Jap¢n <40> Trinidad y Tobago <15> Grecia <28> Laos <41> Vietnam <16> Guatemala <29> M‚xico <42> Yugoslavia ENTER FOR MORE COUNTRIES [goto MNAT2] [blind] Don't know Refused ===>__ [goto MNAT1-ST] $end ---------------------------------------------------------------------- $>MNAT2< $display >MNAT2< OTHER COUNTRIES FOR NATIVITY <200> Afghanistan <103> Belgium <338> Dominica <375> Argentina <300> Bermuda <415> Egypt <185> Armenia <376> Bolivia <417> Ethiopia <102> Austria <377> Brazil <507> Figi <501> Australia <205> Burma <108> Finland <130> Azores <378> Chile <421> Ghana <333> Bahamas <311> Costa Rica <138> Great Britain <202> Bangladesh <155> Czech Republic <340> Grenada <334> Barbados <105> Czechoslovakia <126> Holland <310> Belize <106> Denmark <211> Indonesia ENTER FOR MORE COUNTRIES [goto MNAT3] ===>___ [goto MNAT1-st] $end ---------------------------------------------------------------------- $>MNAT3< $display >MNAT3< OTHER COUNTRIES FOR NATIVITY <213> Iraq <440> Nigeria <449> South Africa <214> Israel <142> Northern Ireland <134> Spain <216> Jordan <127> Norway <136> Sweden <427> Kenya <229> Pakistan <137> Switzerland <183> Latvia <253> Palestine <237> Syria <222> Lebanon <317> Panama <240> Turkey <184> Lithuania <132> Romania <195> Ukraine <224> Malaysia <233> Saudi Arabia <387> Uruguay <436> Morocco <234> Singapore <180> USSR <126> Netherlands <156> Slovakia/Slovak Rep. <388> Venezuela <514> New Zealand ENTER FOR MORE COUNTRIES [goto MNAT4] ===>___ [goto MNAT1-st] $end ---------------------------------------------------------------------- $>MNAT4< $display >MNAT4< OTHER COUNTRIES FOR NATIVITY <353> Caribbean <148> Europe <245> Asia <318> Central America <252> Middle East <527> Pacific Islands <389> South America <468> North Africa <304> North America <462> Other Africa <555> Elsewhere ===>___ $end ---------------------------------------------------------------------- $>MNAT1-st< [NIF MNAT1(R_P) is <1> then] [store <57> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <2> then] [store <72> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <3> then] [store <96> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <4> then] [store <301> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <5> then] [store <206> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <6> then] [store <207> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <7> then] [store <379> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <8> then] [store <337> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <9> then] [store <339> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <10> then] [store <380> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <11> then] [store <312> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <12> then] [store <139> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <13> then] [store <109> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <14> then] [store <110> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <15> then] [store <116> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <16> then] [store <313> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <17> then] [store <383> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <18> then] [store <342> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <19> then] [store <314> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <20> then] [store <209> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <21> then] [store <117> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <22> then] [store <210> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <23> then] [store <212> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <24> then] [store <119> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <25> then] [store <120> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <26> then] [store <343> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <27> then] [store <215> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <28> then] [store <221> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <29> then] [store <315> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <30> then] [store <316> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <31> then] [store <385> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <32> then] [store <231> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <33> then] [store <128> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <34> then] [store <129> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <35> then] [store <192> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <36> then] [store <140> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <37> then] [store <218> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <38> then] [store <238> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <39> then] [store <239> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <40> then] [store <351> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <41> then] [store <242> in MNTVTY(R_P)] [ELSEIF MNAT1(R_P) is <42> then] [store <147> in MNTVTY(R_P)] [ENDIF] [NIF MNAT2(R_P) isnt then] [if onpath MNAT2:R_P then store MNAT2(R_P) in MNTVTY(R_P)] [ENDIF] [NIF MNAT3(R_P) isnt then] [if onpath MNAT3:R_P then store MNAT3(R_P) in MNTVTY(R_P)] [ENDIF] [NIF MNAT4(R_P) isnt then] [if onpath MNAT4:R_P then store MNAT4(R_P) in MNTVTY(R_P)] [ENDIF] $end ---------------------------------------------------------------------- $>Pre-FNTVTY< [NIF MISFLG is <1> OR REPLCE eq <1> then] DELETED MISFLG is 5 DEC 94 [goto FNAT1] [ELSEIF FNTVTY(R_P) is < > OR FNTVTY(R_P) is then] [goto FNAT1] [ELSEIF FNTVTY(R_P) is then] [goto FNAT1] [ENDIF] [goto NAT-Check] $end ---------------------------------------------------------------------- $>FNAT1< [NIF R_P eq RESPLI then] [store in temptext] [if curralt eq <1> then store in temptext] [ELSE] [combine name(R_P) <'s> into temptext] [if curralt eq <1> then combine < > name(R_P) into temptext] [ENDIF] $display >FNAT1< In what country was [fill temptext] father born? <1> United States <2> Puerto Rico <3> Outlying Area of the U.S. (American Samoa, Guam, U.S. Virgin Islands, Northern Marianas, Other U.S. Territory.) <4> Canada <17> Guyana <30> Nicaragua <5> Cambodia <18> Haiti <31> Peru <6> China <19> Honduras <32> Philippines <7> Colombia <20> Hong Kong <33> Poland <8> Cuba <21> Hungary <34> Portugal <9> Dominican Republic <22> India <35> Russia <10> Ecuador <23> Iran <36> Scotland <11> El Salvador <24> Ireland/Eire <37> Korea/South Korea <12> England <25> Italy <38> Taiwan <13> France <26> Jamaica <39> Thailand <14> Germany <27> Japan <40> Trinidad & Tobago <15> Greece <28> Laos <41> Vietnam <16> Guatemala <29> Mexico <42> Yugoslavia ENTER FOR MORE COUNTRIES [goto FNAT2] [blind] Don't know Refused ===>__ [goto FNAT1-ST] $d [alt 1] >FNAT1< ¨En qu‚ pa¡s naci¢ [fill temptext]? <1> Estados Unidos <2> Puerto Rico <3> Territorio Americano (Samoa Americana, Guam, Islas V¡rgenes Americanas, Islas Marianas del Norte, Otro Territorio Americano.) <4> Canad  <17> Guyana <30> Nicaragua <5> Camboya <18> Hait¡ <31> Per£ <6> China <19> Honduras <32> Filipinas <7> Colombia <20> Hong Kong <33> Polonia <8> Cuba <21> Hungr¡a <34> Portugal <9> Rup£blica Dominicana <22> India <35> Rusia <10> Ecuador <23> Ir n <36> Escocia <11> El Salvador <24> Irlanda <37> Korea/Korea del Sur <12> Inglaterra <25> Italia <38> Taiwan <13> Francia <26> Jamaica <39> Tailandia <14> Alemania <27> Jap¢n <40> Trinidad y Tobago <15> Grecia <28> Laos <41> Vietnam <16> Guatemala <29> M‚xico <42> Yugoslavia ENTER FOR MORE COUNTRIES [goto FNAT2] [blind] Don't know Refused ===>__ [goto FNAT1-ST] $end ---------------------------------------------------------------------- $>FNAT2< $display >FNAT2< OTHER COUNTRIES FOR NATIVITY <200> Afghanistan <103> Belgium <338> Dominica <375> Argentina <300> Bermuda <415> Egypt <185> Armenia <376> Bolivia <417> Ethiopia <102> Austria <377> Brazil <507> Figi <501> Australia <205> Burma <108> Finland <130> Azores <378> Chile <421> Ghana <333> Bahamas <311> Costa Rica <138> Great Britain <202> Bangladesh <155> Czech Republic <340> Grenada <334> Barbados <105> Czechoslovakia <126> Holland <310> Belize <106> Denmark <211> Indonesia ENTER FOR MORE COUNTRIES [goto FNAT3] ===>___ [goto FNAT1-st] $end ---------------------------------------------------------------------- $>FNAT3< $display >FNAT3< OTHER COUNTRIES FOR NATIVITY <213> Iraq <440> Nigeria <449> South Africa <214> Israel <142> Northern Ireland <134> Spain <216> Jordan <127> Norway <136> Sweden <427> Kenya <229> Pakistan <137> Switzerland <183> Latvia <253> Palestine <237> Syria <222> Lebanon <317> Panama <240> Turkey <184> Lithuania <132> Romania <195> Ukraine <224> Malaysia <233> Saudi Arabia <387> Uruguay <436> Morocco <234> Singapore <180> USSR <126> Netherlands <156> Slovakia/Slovak Rep. <388> Venezuela <514> New Zealand ENTER FOR MORE COUNTRIES [goto FNAT4] ===>___ [goto FNAT1-st] $end ---------------------------------------------------------------------- $>FNAT4< $display >FNAT4< OTHER COUNTRIES FOR NATIVITY <353> Caribbean <148> Europe <245> Asia <318> Central America <252> Middle East <527> Pacific Islands <389> South America <468> North Africa <304> North America <462> Other Africa <555> Elsewhere ===>___ $end ---------------------------------------------------------------------- $>FNAT1-st< [NIF FNAT1(R_P) is <1> then] [store <57> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <2> then] [store <72> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <3> then] [store <96> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <4> then] [store <301> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <5> then] [store <206> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <6> then] [store <207> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <7> then] [store <379> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <8> then] [store <337> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <9> then] [store <339> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <10> then] [store <380> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <11> then] [store <312> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <12> then] [store <139> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <13> then] [store <109> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <14> then] [store <110> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <15> then] [store <116> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <16> then] [store <313> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <17> then] [store <383> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <18> then] [store <342> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <19> then] [store <314> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <20> then] [store <209> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <21> then] [store <117> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <22> then] [store <210> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <23> then] [store <212> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <24> then] [store <119> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <25> then] [store <120> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <26> then] [store <343> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <27> then] [store <215> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <28> then] [store <221> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <29> then] [store <315> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <30> then] [store <316> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <31> then] [store <385> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <32> then] [store <231> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <33> then] [store <128> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <34> then] [store <129> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <35> then] [store <192> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <36> then] [store <140> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <37> then] [store <218> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <38> then] [store <238> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <39> then] [store <239> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <40> then] [store <351> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <41> then] [store <242> in FNTVTY(R_P)] [ELSEIF FNAT1(R_P) is <42> then] [store <147> in FNTVTY(R_P)] [ENDIF] [NIF FNAT2(R_P) isnt then] [if onpath FNAT2:R_P then store FNAT2(R_P) in FNTVTY(R_P)] [ENDIF] [NIF FNAT3(R_P) isnt then] [if onpath FNAT3:R_P then store FNAT3(R_P) in FNTVTY(R_P)] [ENDIF] [NIF FNAT4(R_P) isnt then] [if onpath FNAT4:R_P then store FNAT4(R_P) in FNTVTY(R_P)] [ENDIF] $end ---------------------------------------------------------------------- $>NAT-check< [If NATVTY(R_P) is <57> then roster loop] [NIf NATVTY(R_P) is <72> OR NATVTY(R_P) is <96> then] [If onpath NAT1:R_P then goto INUSY-scr] [ENDIF] THE FOLLOWING CONDITION WAS ADDED IN JULY [store <0> in index] [NIF MNTVTY(R_P) is <57> OR MNTVTY(R_P) is <72> then] [if onpath MNAT1:R_P then store <1> in index] [ELSEIF MNTVTY(R_P) is <96> then] [if onpath MNAT1:R_P then store <1> in index] [ENDIF] [NIF FNTVTY(R_P) is <57> OR FNTVTY(R_P) is <72> then] [if onpath FNAT1:R_P then add <10> to index] [ELSEIF FNTVTY(R_P) is <96> then] [if onpath FNAT1:R_P then add <10> to index] [ENDIF] [If index eq <11> then goto INUSY-scr] [NIf NATVTY(R_P) is <72> OR NATVTY(R_P) is <96> then] [If INUSYR(R_P) is < > then goto INUSY-scr] [If INUSYR(R_P) is then goto INUSY-scr] [If INUSYR(R_P) is then goto INUSY-scr] [ENDIF] [If onpath NAT1:R_P then goto CITZN-scr] [NIF CITIZN(R_P) is < > OR CITIZN(R_P) is then] [goto CITZN-scr] [ELSEIF CITIZN(R_P) is then] [goto CITZN-scr] [ENDIF] [IF CITIZN(R_P) is <1> then goto pre-CITYA] CHANGED OCT 94 [NIF I-CITYA(R_P) is <2> or I-CITYA(R_P) is then] CHANGED APR 96 [if I-CITYB(R_P) is < > then goto CITYB-scr] [ENDIF] [NIF I-CITYA(R_P) is <2> or I-CITYA(R_P) is then] CHANGED APR 96 [if I-CITYB(R_P) is then goto CITYB-scr] [ENDIF] [NIF I-CITYA(R_P) is <2> or I-CITYA(R_P) is then] CHANGED APR 96 [if I-CITYB(R_P) is then goto CITYB-scr] [ENDIF] [NIf CITIZN(R_P) isnt < > AND INUSYR(R_P) is < > then] [goto INUSY-scr] [ELSEIF CITIZN(R_P) isnt < > AND INUSYR(R_P) is then] [goto INUSY-scr] [ELSEIF CITIZN(R_P) isnt < > AND INUSYR(R_P) is then] [goto INUSY-scr] [ENDIF] [roster loop] $end ---------------------------------------------------------------------- $>CITZN-scr< [NIF R_P eq RESPLI then] [store in areis] [store in temptext] [store in youheshe] [store in havehas] [store in temp2] [if curralt eq <1> then store in temptext] [if curralt eq <1> then store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in areis] [store name(R_P) in temptext] [store in youheshe] [store in havehas] [store in temp2] [if curralt eq <1> then store in youheshe] [ELSE] [store in areis] [store name(R_P) in temptext] [store in youheshe] [store in havehas] [store in temp2] [if curralt eq <1> then store <‚l> in youheshe] [ENDIF] $display >CITZN-scr< [fill areis] [fill temptext] a CITIZEN of the United States? <1> Yes [store <1> in CITIZN(R_P)] [goto pre-CITYA] <2> No, not a citizen [store <2> in CITIZN(R_P)] [blind] Don't know [store in CITIZN(R_P)] Refused [store in CITIZN(R_P)] ===>_ [goto CKINUSEL] $d [alt 1] >CITZN-scr< ¨Es [fill temptext] CIUDADANO(A) de los Estados Unidos? <1> S¡ [store <1> in CITIZN(R_P)] [goto pre-CITYA] <2> No, no es ciudadano(a) [store <2> in CITIZN(R_P)] [blind] Don't know [store in CITIZN(R_P)] Refused [store in CITIZN(R_P)] ===>_ [goto CKINUSEL] $end ---------------------------------------------------------------------- $>pre-CITYA< [If I-CITYA(R_P) is < > then goto CITYA-scr] CHANGED APR 96 [If I-CITYA(R_P) is then goto CITYA-scr] CHANGED APR 96 [If I-CITYA(R_P) is then goto CITYA-scr] CHANGED APR 96 [goto pre-INUSYR] $end ---------------------------------------------------------------------- $>CITYA-scr< [NIF R_P eq RESPLI then] [store in Werewas] [store in temptext] [if curralt eq <1> then store in temptext] [ELSE] [store in werewas] [store name(R_P) in temptext] [ENDIF] $display >CITYA-scr< [fill werewas] [fill temptext] born a citizen of the United States? <1> Yes <2> No [store <2> in CITYPA(R_P)] [goto pre-CITYPB] [blind] Don't know [store in CITYPA(R_P)] [goto pre-CITYPB] Refused ===>_ [store CITYA-scr(R_P) in CITYPA(R_P)] [goto pre-INUSYR] $d [alt 1] >CITYA-scr< ¨Naci¢ [fill temptext] ciudadano(a) de los Estados Unidos? <1> S¡ <2> No [store <2> in CITYPA(R_P)] [goto pre-CITYPB] [blind] Don't know [store in CITYPA(R_P)] [goto pre-CITYPB] Refused ===>_ [store CITYA-scr(R_P) in CITYPA(R_P)] [goto pre-INUSYR] $end ---------------------------------------------------------------------- $>pre-CITYPB< [If I-CITYB(R_P) is < > then goto CITYB-scr] CHANGED APR 96 [If I-CITYB(R_P) is then goto CITYB-scr] CHANGED APR 96 [If I-CITYB(R_P) is then goto CITYB-scr] CHANGED APR 96 [goto pre-INUSYR] $end ---------------------------------------------------------------------- $>CITYB-scr< [NIF R_P eq RESPLI then] [store in temptext] [if curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [ENDIF] $display >CITYB-scr< Did [fill temptext] become a citizen of the United States through naturalization? <1> Yes <2> No [blind] Don't know Refused ===>_ [store CITYB-scr(R_P) in CITYPB(R_P)] [goto pre-INUSYR] $d [alt 1] >CITYB-scr< ¨Se hizo [fill temptext] ciudadano(a) de los Estados Unidos por naturalizaci¢n? <1> S¡ <2> No [blind] Don't know Refused ===>_ [store CITYB-scr(R_P) in CITYPB(R_P)] [goto pre-INUSYR] $end ---------------------------------------------------------------------- $>CKINUSEL< [IF CITIZN(R_P) is <2> then goto pre-INUSYR] [roster loop] $end ---------------------------------------------------------------------- $>pre-INUSYR< [IF INUSYR(R_P) is < > then goto INUSY-scr] [IF INUSYR(R_P) is then goto INUSY-scr] [IF INUSYR(R_P) is then goto INUSY-scr] [roster loop] $end ---------------------------------------------------------------------- $>INUSY-scr< [NIF R_P eq RESPLI then] [store in temptext] [If curralt eq <1> then store in temptext] [ELSE] [store name(R_P) in temptext] [ENDIF] [store < > in temp3] [store BIRTHY(R_P) in xbad(1)] [combine BIRTHY(R_P) <-97> into temp2] [NIF BIRTHY(R_P) is OR BIRTHY(R_P) is then] [store <0> in xbad(1)] [store <00-97> in temp2] [ELSEIF BIRTHY(R_P) is < > then] [store <0> in xbad(1)] [store <00-97> in temp2] [ENDIF] [store <0> in index] [convert BIRTHY(R_P) character to index integer] [store <0> in jdate-i] [store <0> in mon-i] [setdate jdate-i mon-i day-i year-i date-c wkday1-c wkday2-c] [subtract <1900> from year-i] [NIF index gt year-i then] [store in temp3] [combine <18> BIRTHY(R_P) <-96> into temp2] [store <0> in xbad(1)] [ENDIF] $display >INUSY-scr< When did [fill temptext] come to live in the United States? [fill temp3] ENTER IF RESPONDENT REPORTS THE NUMBER OF [goto INUSN] YEARS AGO INSTEAD OF THE ACTUAL YEAR ENTER YEAR ([fill temp2]) [blind] <00-97> Don't know Refused Before 1900 ===>19__ [store INUSY-scr(R_P) in INUSYR(R_P)] [roster loop] $d [alt 1] >INUSY-scr< ¨Cu ndo vino [fill temptext] a vivir en los Estados Unidos? [fill temp3] ENTER IF RESPONDENT REPORTS THE NUMBER OF [goto INUSN] YEARS AGO INSTEAD OF THE ACTUAL YEAR ENTER YEAR ([fill temp2]) [blind] <00-97> Don't know Refused Before 1900 ===>19__ [store INUSY-scr(R_P) in INUSYR(R_P)] [roster loop] $edit [notless xbad(1)] $end ---------------------------------------------------------------------- $>INUSN< $display >INUSN< ** DO NOT READ TO RESPONDENT ** ENTER THE NUMBER OF YEARS REPORTED ENTER FOR MISTAKE IF NO NUMBER REPORTED [backto INUSY-scr:R_P] [blind] <01-99> ===>__ $end ---------------------------------------------------------------------- $>CKINUS< [store <0> in jdate-i] [store <0> in mon-i] [setdate jdate-i mon-i day-i year-i date-c wkday1-c wkday2-c] [subtract <1900> from year-i] [store <0> in index] [store <0> in index2] [store <0> in index3] [store year-i in index] [convert INUSN(R_P) character to index2 integer] [subtract index2 from index] CURRENT YEAR - INUSN [convert BIRTHY(R_P) character to index3 integer] [If index lt index3 then goto ERINUS] [goto INUSPR] $end ---------------------------------------------------------------------- $>ERINUS< [If ERINUS is then reset ERINUS] [store <0> in index] [convert INUSN(R_P) character to index integer] [store <0> in jdate-i] [store <0> in mon-i] [setdate jdate-i mon-i day-i year-i date-c wkday1-c wkday2-c] [subtract <1900> from year-i] [subtract index from year-i] [convert year-i integer to temp2 character] $display >ERINUS< THAT WOULD BE 19[fill temp2] AND THAT IS BEFORE [fill name(R_P)] WAS BORN. BACK TO INUSN [backto INUSN:R_P] ===>_ $end ---------------------------------------------------------------------- $>INUSPR< [store <0> in index8] [If INUSPR(R_P) is <2> then store <1> in index8] [If INUSPR(R_P) is <2> then reset INUSPR] [store <0> in index] [convert INUSN(R_P) character to index integer] [store <0> in jdate-i] [store <0> in mon-i] [setdate jdate-i mon-i day-i year-i date-c wkday1-c wkday2-c] [subtract <1900> from year-i] [subtract index from year-i] [convert year-i integer to temp2 character] $display >INUSPR< That would be 19[fill temp2]. Is that correct? <1> Yes [store temp2 in INUSYR(R_P)] [roster loop] <2> No [If index8 eq <1> then goto INUSCK] [backto INUSY-scr:R_P] [blind] Don't know [If index8 eq <1> then goto INUSCK] [backto INUSY-scr:R_P] Refused [If index8 eq <1> then goto INUSCK] [backto INUSY-scr:R_P] ===>_ $d [alt 1] >INUSPR< Eso quiere decir que vino 19[fill temp2]. ¨Correcto? <1> S¡ [store temp2 in INUSYR(R_P)] [roster loop] <2> No [If index8 eq <1> then goto INUSCK] [backto INUSY-scr:R_P] [blind] Don't know [If index8 eq <1> then goto INUSCK] [backto INUSY-scr:R_P] Refused [If index8 eq <1> then goto INUSCK] [backto INUSY-scr:R_P] ===>_ $end ---------------------------------------------------------------------- $>INUSCK< [store temp2 in INUSYR(R_P)] $end ---------------------------------------------------------------------- $REND>NAT< ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ $>FAMIN-ck< ** MOVERS ** [if I-BLANK3 is <1> then goto ENDMID] [NIF outcome eq <224> OR outcome eq <225> then] [goto now-suppl] [ENDIF] [NIF MISFLG is <1> OR REPLCE eq <1> then] [goto FAMIN-scrn] [ELSEIF MISFLG is <5> then] [goto FAMIN-scrn] [ELSEIF I-FAMINC is < > OR I-FAMINC is then] [goto FAMIN-scrn] [ELSEIF I-FAMINC is then] [goto FAMIN-scrn] [ENDIF] [goto now-suppl] $end ------------------------------------------------------------------------------- $>FAMIN-scrn< [NIF INTTYP eq <1> then] [store <** Show Respondent the Flash Card **> in temp2] [store < > in temp3] [ELSEIF INTTYP eq <2> then] [store <** Read Respondent the Categories **> in temp2] [store in temp3] [If curralt eq <1> then store in temp3] [ELSE] [store < > in temp2] [store < > in temp3] CATI interview [ENDIF] [store < > in temp4] [store < > in temp5] [store < > in temp6] [store < > in temp7] [store < > in temp8] [store < > in temp9] ADDED JUN 95 ** RRP ALSO CHANGED DEC 94 [NIF NUMHOU eq <1> OR RRP(respli) is <19> then] [store in temp4] [store in temp5] [store <.> in temp6] [store < > in temp7] [ENDIF] [NIF RefPer eq respli AND RRP(Refper) is <18> then] [store in temp4] [store in temp5] [store < > in temp6] [store in temp7] [ENDIF] [NIF RefPer nq respli AND RRP(RefPer) is <18> then] [store in temp4] [combine < > name(RefPer) <'s> < FAMILY> into temp5] [store in temp8] [store < > in temp6] [combine < > name(RefPer) <'s> < FAMILY> into temp7] [store in temp9] [ENDIF] [NIF RefPer nq respli AND RRP(Refper) is <19> then] [combine name(RefPer) <'s> into temp4] [store in temp5] [store <.> in temp6] [store < > in temp7] [store < > in temp8] [store < > in temp9] [ENDIF] [NIF NUMHOU eq <1> OR RRP(respli) is <02> then] [store in temp4] [store in temp5] [store <.> in temp6] [store < > in temp7] [ENDIF] [NIF RefPer eq respli AND RRP(Refper) is <01> then] [store in temp4] [store in temp5] [store < > in temp6] [store in temp7] [ENDIF] [NIF RefPer nq respli AND RRP(RefPer) is <01> then] [store in temp4] [combine < > name(RefPer) <'s> < FAMILY> into temp5] [store in temp8] [store < > in temp6] [combine < > name(RefPer) <'s> < FAMILY> into temp7] [store in temp9] [ENDIF] [NIF RefPer nq respli AND RRP(Refper) is <02> then] [combine name(RefPer) <'s> into temp4] [store in temp5] [store <.> in temp6] [store < > in temp7] [store < > in temp8] [store < > in temp9] [ENDIF] $display [fill temp2] >FAMIN-scrn< [fill temp3] Which category represents [fill temp4] [fill temp5] [fill temp8] This includes money from jobs, net income from business, farm or rent, pensions, dividends, interest, social security payments and any other money income received[fill temp6] [fill temp7] [fill temp9] <1> Less than $5,000 <8> 25,000 to 29,999 <2> 5,000 to 7,499 <9> 30,000 to 34,999 <3> 7,500 to 9,999 <10> 35,000 to 39,999 <4> 10,000 to 12,499 <11> 40,000 to 49,999 <5> 12,500 to 14,999 <12> 50,000 to 59,999 <6> 15,000 to 19,999 <13> 60,000 to 74,999 <7> 20,000 to 24,999 <14> $75,000 or more [blind] Don't know Refused ===>__ [store FAMIN-scrn in FAMINC] $d [alt 1] [fill temp2] >FAMIN-scrn< [fill temp3] ¨Cu l de estas categor¡as representa la suma total de los ingresos de todos los miembros de esta FAMILIA durante los £ltimos 12 meses? Ese total debe incluir el dinero recibido de empleos; el ingreso neto recibido de negocios, granjas/ fincas/ranchos o alquiler; pensiones; dividendos; inter‚s; pagos de seguro social y cualquier otro tipo de ingreso mone- tario recibido por miembros de esta FAMILIA mayores de 14 a¤os. <1> Menos de $5,000 <8> 25,000 a 29,999 <2> 5,000 a 7,499 <9> 30,000 a 34,999 <3> 7,500 a 9,999 <10> 35,000 a 39,999 <4> 10,000 a 12,499 <11> 40,000 a 49,999 <5> 12,500 a 14,999 <12> 50,000 a 59,999 <6> 15,000 a 19,999 <13> 60,000 a 74,999 <7> 20,000 a 24,999 <14> $75,000 o m s [blind] Don't know Refused ===>__ [store FAMIN-scrn in FAMINC] $end ------------------------------------------------------------------------------- $>NOW-SUPPL< [store NROSIZ in index2] [add <1> to index2] [if index2 gt <16> then store <16> in index2] [do index <1> index2] [store <1> in pelig(index)] [NIF DELDEC(index) is <9> then] [store <11> in pelig(index)] [ELSEIF DONPER(index) is <1> then] [store <2> in pelig(index)] [ELSEIF MISPER(index) is <1> then] [store <3> in pelig(index)] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <1> then] [store <9> in pelig(index)] [ELSEIF DELDEC(index) is <2> then] [store <10> in pelig(index)] [ELSEIF hhmem(index) is <2> OR hhmem(index) is <3> then] [store <8> in pelig(index)] [ELSEIF AGERNG(index) lt <2> then] [store <7> in pelig(index)] [ELSEIF AFNOW(index) is <1> then] [store <6> in pelig(index)] [ELSEIF AGERNG(index) eq <9> then] [store <5> in pelig(index)] [ENDIF] [end do] [store <0> in index] [tablook pelig <11> index] [if index eq <0> then store <16> in index] checks for 12 person hh [add <1> to index] First position after EOL [do index2 index <16>] [store <12> in pelig(index2)] [end do] $end ======================================================================== $>PRE-API< **S [store <0> in index2] [do index <1> nrosiz] [NIf Race(index) is <4> AND hhmem(index) is <1> then] [store <1> in index2] [ENDIF] [end do] [if index2 eq <0> then goto HH32A] $end ---------------------------------------------------------------------- $>API-INTRO< $display >API-INTRO< This month, we are asking Asian and Pacific Islanders to indicate the specific Asian or Pacific Islander group from which they originate. ENTER

TO PROCEED ===>_ $end ---------------------------------------------------------------------- $>NOW-API< [store <0> in API_R_P] $end $ROPEN>API< $>aft-API< [goto HH32a] $end ------------------------------------------------------------------------------ $RBEGIN>API< [maxelt 16] $>API33< [NIf Race(R_P) is <4> AND hhmem(R_P) is <1> then] [goto API34] [ENDIF] [If R_P eq NROSIZ then roster exit] [roster loop] $end ---------------------------------------------------------------------------- $>API34< [store < > in temptext] [NIF R_P eq RESPLI then] [store in temptext] [ELSE] [combine name(R_P) <'s> into temptext] [ENDIF] [If API34 is then reset API34] $display >API34< What is [fill temptext] specific Asian or Pacific Islander group? API help [referto API-help] <1> Chinese <2> Filipino <3> Japanese <4> Asian Indian <5> Korean <6> Vietnamese <7> Laotian. Cambodian, Hmong <8> Other Asian (For example, Thai, Pakistani, Sri Lankan, Burmese) <9> Hawaiian <10> Other Pacific Islander (For example, Samoan, Guamanian, Tongan) [blind] Don't Know Refused ===>__ $end ------------------------------------------------------------------------------ $REND>API< ------------------------------------------------------------------------------ $>HH32a< [If MARHIS is <1> then goto S-set-pel] [store <0> in index3] [do index <1> NROSIZ] [store <0> in index2] [convert ORIGIN(index) character to index2 integer] [convert age(index) character to age-i(index) integer] [NIF index2 ge <10> AND index2 le <17> then] [if age-i(index) ge <15> then store <1> in index3] [ENDIF] [if index3 eq <1> then goto HH32b] [end do] [goto S-set-pel] $end ---------------------------------------------------------------------------- $>HH32b< $display >HH32b< Did [fill name(refper)] live at this address during the week of November 19, 1996? <1> Yes [goto HH32c] <2> No [blind] Don't know Refused ===>_ [goto s-set-pel] $end ----------------------------------------------------------------------------- $>HH32c< [store <0> in index] [convert ORIGIN(refper) character to index integer] [NIF index ge <10> AND index le <17> then] [goto s-set-pel] [ENDIF] $end ---------------------------------------------------------------------------- $>HH32d< [do index <1> <16>] [store < > in tempname(index)] [end do] [store <1> in index3] [do index <1> NROSIZ] [store <0> in index2] [convert ORIGIN(index) character to index2 integer] [convert age(index) character to age-i(index) integer] [store <0> in index4] [NIF index2 ge <10> AND index2 le <17> then] [If hhmem(index) is <1> then store <1> in index4] [ENDIF] [NIF index4 eq <1> AND age-i(index) ge <15> then] [store name(index) in tempname(index3)(5:37)] [add <1> to index3] [ENDIF] [end do] $display >HH32d< Did any of the following household members live here during the week of November 19, 1996? NAME NAME [fill tempname(1)] [fill tempname(9)] [fill tempname(2)] [fill tempname(10)] [fill tempname(3)] [fill tempname(11)] [fill tempname(4)] [fill tempname(12)] [fill tempname(5)] [fill tempname(13)] [fill tempname(6)] [fill tempname(14)] [fill tempname(7)] [fill tempname(15)] [fill tempname(8)] [fill tempname(16)] <1> Yes <2> No [blind] Don't know Refused ===>_ $end ------------------------------------------------------------------------------ ======================================================================== **10** INCOME SUPPLEMENT CPS-665 (REVISED MARCH 1996) ============================================================================= COMMENT: The following cps1 items are used to help weight the added March sampling of Spanish households in the basic CPS (Tri-Cities). They are not used for Phase II. If the Tri-Cities hhld has any Spanish origin (origin between 10 and 17) for any person 14+ , these questions are asked of the reference person. COMMENT: Removed because there were too many items. ----------------------------------------------------------------------------- Comment: Item numbers from the 1987 document have been retained to ease processing. Differences between 1987, 1988, 1989 and 1990 are noted at the individual item. Comment: The following do loop sets Spelig for the INCOME supplement. Spelig measures completeness of the person portion of the supplement. (Items 29a through 54a). Values are as follow: 1 - Eligible for INCOME supplement 2 - Ineligible for INCOME supplement (Not a member or under 15) 3 - Completed INCOME supplement 4 - Refused INCOME supplement 5 - Person skipped (the F9 key was used) (Basic and Supplement) 6 - END OF LIST or after Comment: hhs-pel measures completeness of the household portion of the supplement. (Items 56 through 94). Values are as follow: 1 - Eligible for HH supplement 2 - Ineligible for HH supplement 3 - Completed HH supplement 4 - Refused HH supplement $>S-set-pel< SETS UP PELIG VALUES [store NROSIZ in index2] [add <1> to index2] [if index2 gt <16> then store <16> in index2] [do index <1> index2] [store <1> in pelig(index)] [NIF DELDEC(index) is <9> then] [store <11> in pelig(index)] [ELSEIF Donper(index) is <1> then] [store <2> in pelig(index)] [ELSEIF misper(index) is <1> then] [store <3> in pelig(index)] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <1> then] [store <9> in pelig(index)] [ELSEIF DELDEC(index) is <2> then] [store <10> in pelig(index)] [ELSEIF hhmem(index) is <2> OR hhmem(index) is <3> then] [store <8> in pelig(index)] [ELSEIF AGERNG(index) eq <1> then] [store <7> in pelig(index)] [ELSEIF AFNOW(index) is <1> then] [store <6> in pelig(index)] [ELSEIF AGERNG(index) eq <9> then] [store <5> in pelig(index)] [ENDIF] [end do] THIS SETS ALL POSITIONS AFTER THE 'END OF LIST' TO A PELIG OF 12 [store <0> in index] [tablook PELIG <11> index] [if index eq <0> then store <16> in index] Checks for 12 person household [add <1> to index] First position after EOL [do index2 index <16>] [store <12> in PELIG(index2)] [end do] [do index <1> <16>] [store <1> in Spelig(index)] [NIF mssper-s(index) eq <1> then] [store <5> in Spelig(index)] sup skipped [ELSEIF dnper-s(index) eq <2> then] [store <4> in Spelig(index)] sup refused [ELSEIF dnper-s(index) eq <1> then] [store <3> in Spelig(index)] sup comp [ELSEIF PELIG(index) eq <11> OR PELIG(index) eq <12> then] [store <6> in Spelig(index)] EOL [ELSEIF outcome eq <24> OR outcome eq <25> then] entire hhld AF or URE [store <2> in Spelig(index)] [ELSEIF PELIG(index) eq <5> OR PELIG(index) eq <7> then] [store <2> in Spelig(index)] [ELSEIF PELIG(index) eq <8> OR PELIG(index) eq <9> then] [store <2> in Spelig(index)] [ELSEIF PELIG(index) eq <10> then] [store <2> in Spelig(index)] deceased [ENDIF] [end do] [if hhs-pel eq <0> then store <1> in hhs-pel] HH ELIGIBLE [NIF outcome eq <24> OR outcome eq <25> then] HH INELIGIBLE [store <2> in hhs-pel] [ENDIF] [If dnper-s2 eq <3> then store <3> in hhs-pel] HH PART OF SUP COMPLETE [if dnper-s2 eq <2> then store <4> in hhs-pel] SUP REFUSED [NIF outcome eq <24> OR outcome eq <25> then] [goto endmid] [ENDIF] [store <0> in index] [tablook Spelig <1> index] [if index eq <0> then tablook Spelig <5> index] [if index nq <0> then store <2> in SUPFLG] [if index nq <0> then goto Pr-incom] [if hhs-pel eq <1> then store <2> in SUPFLG] [if hhs-pel eq <1> then goto q56a] [store <3> in SUPFLG] NO ONE ELIGIBLE FOR SUPPLEMENT [goto CK-SAMPL] ** SPD ** $end -------------------------------------------------------------------------------- $>Pr-incom< [if PR-incom is then reset PR-INCOM] COMMENT: SETS START TIME FOR SUPPLEMENT [setsec sectim-i] [NIF MARSTM eq <0> AND lkMARSTM eq <0> then] [store sectim-i in MARSTM] [ENDIF] [store <1> in lkMARSTM] $d **WORDING OF INTRODUCTION IS OPTIONAL** >Pr-incom< We have just completed the questions about employment and unemployment. Each year, the Census Bureau also collects information about the economic situation of Americans and their families for the previous year. I am going to ask these questions now. We don't expect all answers to be perfect, but please think about each question and answer it the best you can. ENTER

TO PROCEED [goto now-WKYEAR] ENTER FOR IMPORTANCE OF RESPONDING [referto Ref-March] [blind] Refused ===>_ $end -------------------------------------------------------------------------------- $>SUPP-REF< [do index <1> <16>] [store <2> in dnper-s(index)] [end do] [store <2> in dnper-s2] [goto CK-SAMPL] ** SPD ** $end ---------------------------------------------------------------------- $>NOW-WKYEAR< [do index <1> <16>] [store <0> in dnper-s(index)] [end do] [store <0> in dnper-s2] [store <0> in WKYEAR_R_P] $end $ROPEN>WKYEAR< $>AFT-WKYEAR< [goto q56a] $end =============================================================================== $RBEGIN>WKYEAR< [maxelt 16] ============================================================================== COMMENT: The instructional item chk-S1-pel loops over persons ineligible for the work experience questions and roster exits when the household is completed. OPEN STATEMENT ALLOWS INTERVIEWER TO SKIP TO QUESTIONS FOR NEXT ELIGIBLE HH MEMBER. Comment: In 1988, supplement interview for current AF members begins with q47A. In 1990, supplement interview for current AF members begins with Q29A. $>chk-S-pel< [Open S-miss] [if R_P gt NROSIZ then roster exit] SETS UP PELIG VALUES [store NROSIZ in index2] [add <1> to index2] [if index2 gt <16> then store <16> in index2] [do index <1> index2] [store <1> in pelig(index)] [NIF DELDEC(index) is <9> then] [store <11> in pelig(index)] [ELSEIF Donper(index) is <1> then] [store <2> in pelig(index)] [ELSEIF misper(index) is <1> then] [store <3> in pelig(index)] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <1> then] [store <9> in pelig(index)] [ELSEIF DELDEC(index) is <2> then] [store <10> in pelig(index)] [ELSEIF hhmem(index) is <2> OR hhmem(index) is <3> then] [store <8> in pelig(index)] [ELSEIF AGERNG(index) eq <1> then] [store <7> in pelig(index)] [ELSEIF AFNOW(index) is <1> then] [store <6> in pelig(index)] [ELSEIF AGERNG(index) eq <9> then] [store <5> in pelig(index)] [ENDIF] [end do] THIS SETS ALL POSITIONS AFTER THE 'END OF LIST' TO A PELIG OF 12 [store <0> in index] [tablook PELIG <11> index] [if index eq <0> then store <16> in index] Checks for 12 person household [add <1> to index] First position after EOL [do index2 index <16>] [store <12> in PELIG(index2)] [end do] [do index <1> <16>] [store <1> in Spelig(index)] [NIF mssper-s(index) eq <1> then] [store <5> in Spelig(index)] sup skipped [ELSEIF dnper-s(index) eq <2> then] [store <4> in Spelig(index)] sup refused [ELSEIF dnper-s(index) eq <1> then] [store <3> in Spelig(index)] sup comp [ELSEIF PELIG(index) eq <11> OR PELIG(index) eq <12> then] [store <6> in Spelig(index)] EOL [ELSEIF outcome eq <24> OR outcome eq <25> then] entire hhld AF or URE [store <2> in Spelig(index)] [ELSEIF PELIG(index) eq <5> OR PELIG(index) eq <7> then] [store <2> in Spelig(index)] [ELSEIF PELIG(index) eq <8> OR PELIG(index) eq <9> then] [store <2> in Spelig(index)] [ELSEIF PELIG(index) eq <10> then] [store <2> in Spelig(index)] deceased [ENDIF] [end do] USE PELIG INSTEAD OF S-PELIG SO YOU CAN'T GET SUPPLEMENT FOR PERSON IF LABOR FORCE SKIPPED BUT YOU CAN COME BACK IF SKIPPED FROM SUPPLEMENT. [if PELIG(R_P) eq <3> then goto S-miss] [if Spelig(R_P) eq <2> then roster loop] [if Spelig(R_P) eq <6> then roster exit] $end ----------------------------------------------------------------------------- $>Q29a< [NIF RESPLI eq R_P then] [store in temptext] [ELSE] [store name(R_P) in temptext] [ENDIF] $d >Q29a< Did [fill temptext] work at a job or business at any time during 1996? <1> Yes [goto q33] <2> No [blind] Refused Don't Know ===>_ $end ----------------------------------------------------------------------------- COMMENT: D and R skip changed from goto pre-q48a for '90 12/18/89 CMC $>Q29b< [store <1> in SUPFLG] ADDED 1997 CW **S [NIF R_P eq RESPLI then] [store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [ELSE] [store in youheshe] [ENDIF] $d >Q29b< Did [fill youheshe] do any temporary, part-time, or seasonal work even for a few days during 1996? <1> Yes [goto q33] <2> No [blind] Refused [goto Q51A] Don't Know [goto Q51A] ===>_ $end ----------------------------------------------------------------------------- $>Q30< [NIF RESPLI eq R_P then] [store in temptext] [store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [store name(R_P) in temptext] [ELSE] [store in youheshe] [store name(R_P) in temptext] [ENDIF] $d >Q30< Even though [fill temptext] did not work in 1996, did [fill youheshe] spend any time trying to find a job or on layoff? <1> Yes [goto q31] <2> No [blind] Refused Don't Know ===>_ [goto q32] $end ----------------------------------------------------------------------------- $>Q31< [indirect] [NIF RESPLI eq R_P then] [store in werewas] [store in temptext] [ELSE] [store name(R_P) in temptext] [store in werewas] [ENDIF] $d >Q31< How many different weeks [fill werewas] [fill temptext] looking for work or on layoff from a job? <1-52> [blind] Refused Don't Know ===>__ $end ----------------------------------------------------------------------------- $>Q32< [NIF RESPLI eq R_P then] [store in youheshe] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [ELSE] [store in youheshe] [ENDIF] $d >Q32< What was the main reason [fill youheshe] did not work in 1996? READ CATEGORIES IF NECESSARY. <1> Ill, or disabled and unable to work <2> Retired <3> Taking care of home or family <4> Going to school <5> Could not find work <6> Doing something else [blind] Refused Don't Know ===>_ [goto q51a] $end ------------------------------------------------------------------------------ $>Q33< [store name(R_P) in temptext] [if RESPLI eq R_P then store in temptext] [if q35(R_P) isnt < > then lockanswer] [store <1> in SUPFLG] ADDED 1997 CW **S $d >Q33< During 1996 in how many weeks did [fill temptext] work even for a few hours? Include paid vacation and sick leave as work. ENTER NUMBER OF WEEKS <1-52> OR [store q33(R_P) in Q33OUT(R_P)] [goto check-34] IF RESPONDENT CAN ONLY ANSWER IN MONTHS [goto Q33MON] [blind] Refused [store in Q33OUT(R_P)] [goto q39] Don't Know [store in Q33OUT(R_P)] [goto q39] ===>__ $end ----------------------------------------------------------------------------- $>Q33MON< [indirect] $d [no erase] >Q33MON< ENTER NUMBER OF MONTHS WORKED <1-12> ===>__ $end ------------------------------------------------------------------------------ $>Q33-store< [CASE Q33MON(R_P)] [OF <1> then] [store <4> in Q33OUT(R_P)] [OF <2> then] [store <9> in Q33OUT(R_P)] [OF <3> then] [store <13> in Q33OUT(R_P)] [OF <4> then] [store <17> in Q33OUT(R_P)] [OF <5> then] [store <22> in Q33OUT(R_P)] [OF <6> then] [store <26> in Q33OUT(R_P)] [OF <7> then] [store <30> in Q33OUT(R_P)] [OF <8> then] [store <35> in Q33OUT(R_P)] [OF <9> then] [store <39> in Q33OUT(R_P)] [OF <10> then] [store <43> in Q33OUT(R_P)] [OF <11> then] [store <48> in Q33OUT(R_P)] [OF <12> then] [store <52> in Q33OUT(R_P)] [ENDCASE] $end ----------------------------------------------------------------------------- Comment: Removed lockanswer command 3/88 Comment: Changed the goto for precode "D" to Check-34 from q39. 3/88 $>Q33VER< [indirect] [store name(R_P) in temptext] [if RESPLI eq R_P then store in temptext] $d >Q33VER< Then [fill temptext] worked about [fill Q33OUT(R_P)] weeks. Is that correct? <1> Yes [goto check-34] <2> No -- back to q33 and obtain estimate [backto q33:R_P] [blind] refused [goto q39] don't know [goto check-34] ===>_ $end ----------------------------------------------------------------------------- $>check-34< [store <0> in index] [convert Q33OUT(R_P) character to index integer] [if index le <49> then goto q36] [if index eq <52> then goto q39] [goto q35] $end ----------------------------------------------------------------------------- $>Q35< [NIF RESPLI eq R_P then] [store in temptext] [store in youheshe] [store in werewas] [ELSEIF sex(R_P) is <2> then] [store in youheshe] [store in werewas] [store name(R_P) in temptext] [ELSE] [store in youheshe] [store in werewas] [store name(R_P) in temptext] [ENDIF] $d >Q35< Did [fill temptext] lose any full weeks of work in 1996 because [fill youheshe] [fill werewas] on layoff from a job or lost a job? NUMBER OF WEEKS WORKED IN 1996: [fill Q33OUT(R_P)] <1> Yes <2> No Mistake made in number of weeks worked in 1996--Specify [specify] [blind] Refused Don't Know ===>_ [goto q39] $end ----------------------------------------------------------------------------- COMMENT: ADDED BLIND 0 00 01 AND 1 PRECODES FOR '90 SO THEY WILL SKIP TO Q38 AS OPPOSED TO Q37 CMC $>Q36< [store <0> in index] [store < > in xbad(1)] [store <52> in index2] [convert Q33OUT(R_P) character to index integer] [subtract index from index2] [convert index2 integer to xbad(1) character] [NIF RESPLI eq R_P then] [store in werewas] [store in youheshe] [store in temptext] [ELSE] [store in werewas] [store name(R_P) in temptext] [store in youheshe] [if sex(R_P) is <2> then store in youheshe] [ENDIF] [NIF Q33OUT(R_P) is <1> then] [store in temp2] [ELSE] [store in temp2] [ENDIF] $d >Q36< You said [fill temptext] worked about [fill Q33OUT(R_P)] [fill temp2] How many OF THE REMAINING [fill xbad(1)] WEEKS [fill werewas] [fill youheshe] looking for work or on layoff from a job? None [goto q38] [blind] Refused Don't Know <0> [goto Q38] <00> [goto Q38] <1> [goto Q38] <01> [goto Q38] ===>__ [goto q37] $edit [notgreater xbad(1)] [numeric] $end ----------------------------------------------------------------------------- $>Q37< [indirect] [NIF RESPLI eq R_P then] [store in temptext] [store in werewas] [ELSE] [store in werewas] [store name(R_P) in temptext] [ENDIF] [store < > in temp2] [NIF Q36(R_P) isnt AND Q36(R_P) isnt then] [store q36(R_P) in temp2] [ENDIF] $d >Q37< Were the [fill temp2] weeks [fill temptext] [fill werewas] looking for work or on layoff all in one stretch? <1> Yes -- one stretch <2> No -- two stretches <3> No -- 3 or more stretches [blind] Refused Don't Know ===>_ $end ----------------------------------------------------------------------------- $>pre-q38< [store <0> in index] [store <0> in index2] [convert Q33OUT(R_P) character to index integer] [convert q36(R_P) character to index2 integer] [add index to index2] [if index2 eq <52> then goto q39] $end ----------------------------------------------------------------------------- $>Q38< [indirect] [NIF RESPLI eq R_P then] [store in temptext] [store in werewas] [ELSE] [store in werewas] [store name(R_P) in temptext] [ENDIF] $d >Q38< What was the main reason [fill temptext] [fill werewas] not working or looking for work in the remaining weeks of 1996? READ LIST ONLY IF RESPONDENT IS HAVING DIFFICULTY ANSWERING THE QUESTION. <1> Ill, or disabled and unable to work <2> Taking care of home or family <3> Going to school <4> Retired <5> No work available <6> Other (SPECIFY) [specify] [blind] Refused Don't Know ===>_ [goto q39] $end ----------------------------------------------------------------------------- $>Q39< [store name(R_P) in temptext] [if RESPLI eq R_P then store in temptext] $d >Q39< For how many employers did [fill temptext] work in 1996? If more than one at the same time, only count it as one employer. <1> One <2> Two <3> Three or more [blind] Refused Don't Know ===>_ [goto q41] $end ----------------------------------------------------------------------------- Comment: Item q40 was deleted in 1988. This is item 40 in the 1989 CPS-665. $>Q41< [NIF RESPLI eq R_P then] [store in youheshe] [store in temptext] [ELSE] [store in youheshe] [store name(R_P) in temptext] [if sex(R_P) is <2> then store in youheshe] [ENDIF] [NIF Q33OUT(R_P) is <1> then] [store in temp4] [store in temp3] [ELSE] [store in temp3] [store in temp4] [ENDIF] [store <1> in xbad(1)] $d >Q41< In the [fill temp3] that [fill temptext] worked, how many hours did [fill youheshe] [fill temp4] ENTER NUMBER OF HOURS [blind] Refused Don't know ===>__ $edit [notless xbad(1)] [numeric] $end ----------------------------------------------------------------------------- COMMENT: This is item 41 in the 1989 CPS-665. $>check-42< [store <0> in index] [convert q41(R_P) character to index integer] [if index le <34> then goto q44] [goto q43] $end ----------------------------------------------------------------------------- Comment: This is item 42 in the 1989 CPS-665. $>Q43< [store name(R_P) in temptext] [if RESPLI eq R_P then store in temptext] $d >Q43< During 1996, were there one or more weeks in which [fill temptext] worked less than 35 hours? Exclude time off with pay because of holidays, vacation, days off, or sickness. <1> Yes [goto q44] <2> No [blind] Refused Don't Know ===>_ [goto pre-q46] $end ----------------------------------------------------------------------------- Comment: This is item 43 in the 1989 CPS-665. $>Q44< [indirect] [store name(R_P) in temptext] [if RESPLI eq R_P then store in temptext] [NIF Q33OUT(R_P) is OR Q33OUT(R_P) is then] [store <99> in xbad(1)] [ELSE] [store Q33OUT(R_P) in xbad(1)] [ENDIF] $d >Q44< In the weeks that [fill temptext] worked, how many weeks did [fill temptext] work less than 35 hours in 1996? NUMBER OF WEEKS WORKED IN 1996: [fill Q33OUT(R_P)] (NUMBER OF WEEKS WAS REPORTED IN ITEM Q33) <1-52> [blind] Refused Don't Know ===>__ $edit [notgreater xbad(1)] $end ----------------------------------------------------------------------------- Comment: This is item 44 in the 1989 CPS-665. $>Q45< [indirect] [store name(R_P) in temptext] [if RESPLI eq R_P then store in temptext] $d >Q45< What was the main reason [fill temptext] worked less than 35 hours per week? READ LIST ONLY IF RESPONDENT IS HAVING DIFFICULTY ANSWERING THE QUESTION. <1> Could not find a full time job <2> Wanted to work part time or only able to work part time <3> Slack work or material shortage <4> Other reason [blind] Refused Don't Know ===>_ $end ----------------------------------------------------------------------------- $>pre-q46< [If IO1NAM(R_P) isnt < > then goto Q46] [goto Q47a] $end ----------------------------------------------------------------------------- Comment: This is item 45 in the 1989 CPS-665. Changed goto for "S" precode to q46-store from q48a. 3/88 $>Q46< [combine name(R_P) <'s> into temptext] [if RESPLI eq R_P then store in temptext] [store < > in temp2] [NIF IO1COW(R_P) is <6> then] [store in temp2] [ELSEIF IO1COW(R_P) is <7> OR IO1COW(R_P) is <11> then] [store in temp2] [ENDIF] [store <0> in index] [convert IO1COW(R_P) character to index integer] [CASE index] [OF <4> then] [store in temp2] [OF <5> then] [store in temp2] [OF <1> then] [store in temp2] [OF <2> then] [store in temp2] [OF <3> then] [store in temp2] [OF <10> then] [store in temp2] [OF <8> then] [store in temp2] [ENDCASE] $d >Q46< What was [fill temptext] longest job during 1996? Was it: (IO1NAM:) [fill IO1NAM(R_P)] (IO1IND:) [fill IO1IND(R_P)] (IO1OCC:) [fill IO1OCC(R_P)] (IO1DT:) [fill IO1DT1(R_P)] [fill IO1DT2(R_P)] CLASS OF WORKER: [fill temp2] Same as listed [goto q46-store] Different job [goto q47a] [blind] Refused Don't Know ===>_ [goto pre-q48a] $end ----------------------------------------------------------------------------- Comment: This is item 46A in the 1989 CPS-665. $>Q47a< [store name(R_P) in temptext] [if RESPLI eq R_P then store in temptext] [store in yourhshr] [if sex(R_P) is <2> then store in yourhshr] [if RESPLI eq R_P then store in yourhshr] [store < > in table(1)] [store < > in table(2)] [store < > in table(3)] [NIF IO1NAM(R_P) isnt < > then] [combine <(IO1NAM:)> < > IO1NAM(R_P) into table(1)] [combine <{S}> < > into table(2)] [store <{J} REFER TO CURRENT AND LONGEST JOBS> in table(3)] of K. Bogen 2/89 PLH [ENDIF] [NIF AFNOW(R_P) is <1> OR AFEVER(R_P) is <1> then] [store in table(1)] [ENDIF] [store < > in xbad(1)] [store in temp2] [store < > in temp3] [NIF AFNOW(R_P) is <1> then] [store < at> in temp2] [store in temp3] [store in xbad(1)] [store <{N} No work done at all during 1996> in table(2)] Changed "blank" to fill per request [ENDIF] [store <0> in index] [if IO1NAM(R_P) isnt < > then store <1> in index] [if index eq <1> then store < > in yourhshr] ADDED TO BLANK OUT yourhshr ONLY IF IO1NAM WAS ANSWERED. CMC 2/7/90 [NIF index eq <0> then] [store < at> in temp2] [store in temp3] [ENDIF] $d >Q47a< For whom did [fill temptext] work[fill temp2] [fill yourhshr] [fill temp3] NAME OF COMPANY, BUSINESS, ORGANIZATION OR OTHER EMPLOYER [fill table(3)] [fill table(1)] [fill table(2)] [blind] Same as IO1NAM [store IO1NAM(R_P) in q47a(R_P)] REFER TO CURRENT AND LONGEST JOBS [referto what-job] Refused [goto pre-q48a] Don't know No work done at all during 1996 [goto q51a] ===>___________________________________________________________ $edit [notequal xbad(1)] [anychar] $end -------------------------------------------------------------------------- Comment: This is item 46b in the 1989 CPS-665. Changed the goto for precode "R" from q48a to Q4788. 3/88 $>Q47b< [indirect] [store < > in table(1)] [store < > in table(2)] [store < > in table(3)] [NIF IO1IND(R_P) isnt < > then] [combine <(IO1IND:)> < > IO1IND(R_P) into table(1)] [combine <{S}> < > into table(2)] [ENDIF] [NIF AFNOW(R_P) is <1> OR AFEVER(R_P) is <1> then] [store in table(1)] [ENDIF] [if AFNOW(R_P) is <1> then store < > in table(2)] [if IO1NAM(R_P) isnt < > then store <{J} REFER TO CURRENT AND LONGEST JOBS> in table(3)] [store < > in xbad(1)] [if AFNOW(R_P) is <1> then store in xbad(1)] $d [no erase] >Q47b< What kind of business or industry is this? FOR EXAMPLE: TV AND RADIO MFG., RETAIL SHOE STORE, FARM [fill table(3)] [fill table(1)] [fill table(2)] [blind] Same as IO1IND [store IO1IND(R_P) in q47b(R_P)] REFER TO CURRENT AND LONGEST JOBS [referto what-job] Refused [goto Q4788] Don't know ===>___________________________________________________________ $edit [notequal xbad(1)] [anychar] $end -------------------------------------------------------------------------- Comment: This is item 46c in the 1989 CPS-665. Changed the goto for precode "R" from q48a to Q4788. 3/88 $>Q47c< [indirect] [store in youheshe] [if sex(R_P) is <2> then store in youheshe] [if R_P eq RESPLI then store in youheshe] [if RESPLI eq R_P then store in werewas] [if RESPLI nq R_P then store in werewas] [store < > in table(1)] [store < > in table(2)] [store < > in table(3)] [NIF IO1OCC(R_P) isnt < > then] [combine <(IO1OCC:)> < > IO1OCC(R_P) into table(1)] [combine <{S}> < > into table(2)] [ENDIF] [NIF AFNOW(R_P) is <1> OR AFEVER(R_P) is <1> then] [store in table(1)] [ENDIF] [if AFNOW(R_P) is <1> then store < > in table(2)] [if IO1NAM(R_P) isnt < > then store <{J} REFER TO CURRENT AND LONGEST JOBS> in table(3)] [store < > in xbad(1)] [if AFNOW(R_P) is <1> then store in xbad(1)] $d >Q47c< What kind of work [fill werewas] [fill youheshe] doing? FOR EXAMPLE: ELECTRICAL ENGINEER, STOCK CLERK, TYPIST [fill table(3)] [fill table(1)] [fill table(2)] [blind] Same as IO1OCC [store IO1OCC(R_P) in q47c(R_P)] REFER TO CURRENT AND LONGEST JOBS [referto what-job] Refused [goto Q4788] Don't know ===>___________________________________________________________ $edit [notequal xbad(1)] [anychar] $end -------------------------------------------------------------------------- Comment: This is item 46d in the 1989 CPS-665. $>Q47d< [multiple Q47D1 Q47D2] [indirect] [store in yourhshr] [if sex(R_P) is <2> then store in yourhshr] [if R_P eq RESPLI then store in yourhshr] [store < > in table(1)] [store < > in table(2)] [store < > in table(3)] [store < > in table(4)] [NIF IO1DT1(R_P) isnt < > then] [combine <(IO1DT:)> < > IO1DT1(R_P) into table(1)] [store IO1DT2(R_P) in table(2)] [combine <{S}> < > into table(3)] [ENDIF] [store < > in xbad(1)] [if AFEVER(R_P) is <1> then store in table(1)] Added/K.Bogen PLH [NIF AFNOW(R_P) is <1> then] [store in table(1)] [store < > in table(2)] [store < > in table(3)] [store in xbad(1)] [ENDIF] [if IO1NAM(R_P) isnt < > then store <{J} REFER TO CURRENT AND LONGEST JOBS> in table(4)] $itemtable >Q47d< What were [fill yourhshr] most important activities or duties? FOR EXAMPLE: TYPES, KEEPS ACCOUNT BOOKS, FILES, SELLS CARS, OPERATES PRINTING PRESS, FINISHES CONCRETE. [fill table(4)] [fill table(1)] [fill table(2)] [fill table(3)] ===>__________________________________________________________ ===>__________________________________________________________ $end ------------------------------------------------------------------------- Comment: Added the goto for precode "S" 3/88 Changed the goto for "R" precode from q48a to Q4788. 3/88 $>Q47D1< [within q47d] $d [none] Same as IO1DT [goto Q47D3] REFER TO CURRENT AND LONGEST JOBS [referto what-job] Refused [goto Q4788] Don't Know [goto Q47E1] $edit [notequal xbad(1)] [anychar] $end $>Q47D2< [within q47d] $d [none] REFER TO CURRENT AND LONGEST JOBS [referto what-job] $edit [anything] $end -------------------------------------------------------------------------------- $>q47d3< [NIF Q47D1 is then] [store IO1DT1(R_P) in Q47D1(R_P)] [store IO1DT2(R_P) in Q47D2(R_P)] [goto Q47E1] [ENDIF] $end ---------------------------------------------------------------------- Comment: This is item 46e in the 1989 CPS-665. Changed goto after answer space from q48a and after precode "6" from q49a to pre-Q4788. This is because question Q4788 was added. 3/88 $>Q47E1< [indirect] [store in WereWas] [if R_P eq RESPLI then store in WereWas] [store in temp2] [if R_P eq RESPLI then store in temp2] [store in youheshe] [if sex(R_P) is <2> then store in youheshe] [if R_P eq RESPLI then store in youheshe] [store < > in table(3)] [if IO1NAM(R_P) isnt < > then store <{J} REFER TO CURRENT AND LONGEST JOBS> in table(3)] $d >Q47E1< (ASK ONLY IF NECESSARY) [fill WereWas] [fill youheshe] employed by government, by a PRIVATE company, a non-profit organization, or [fill temp2] [fill youheshe] self employed or working in a family business? <1> Government [goto Q47E1a] <2> Private for profit company <3> Non-profit organization including tax exempt and charitable organizations <4> Self employed [goto Q47E1b] <5> Working in family business [goto Q47E1c] [fill table(3)] [Blind] REFER TO CURRENT AND LONGEST JOBS [referto what-job] Refused Don't know ===>_ [goto pre-Q4788] $end -------------------------------------------------------------------------- $>Q47E1a< $display >Q47E1a< Would that be the federal, state, or local government? <1> Federal <2> State <3> Local (county, city, township) [Blind] Refused Don't know ===>_ [goto pre-Q4788] $end -------------------------------------------------------------------------- $>Q47E1c< $display >Q47E1c< Were you the owner of the business? <1> Yes [goto Q47E1b] <2> No [Blind] Refused Don't know ===>_ [goto pre-Q4788] $end -------------------------------------------------------------------------- $>Q47E1b< $display >Q47E1b< Was this business incorporated? <1> Yes <2> No [Blind] Refused Don't know ===>_ [goto pre-Q4788] $end -------------------------------------------------------------------------- Comment: New item added 3/88 to store answer when same job. $>Q46-store< [store IO1NAM(R_P) in q47a(R_P)] [store IO1IND(R_P) in q47b(R_P)] [store IO1OCC(R_P) in q47c(R_P)] [store IO1DT1(R_P) in Q47D1(R_P)] [store IO1DT2(R_P) in Q47D2(R_P)] [NIF IO1COW(R_P) is <1> then] [store <1> in Q47E1(R_P)] [store <1> in Q47e1a(R_P)] [ELSEIF IO1COW(R_P) is <2> then] [store <1> in Q47E1(R_P)] [store <2> in Q47E1a(R_P)] [ELSEIF IO1COW(R_P) is <3> OR IO1COW is <10> then] [store <1> in Q47E1(R_P)] [store <3> in Q47E1a(R_P)] [ELSEIF IO1COW(R_P) is <4> then] [store <2> in Q47E1(R_P)] [ELSEIF IO1COW(R_P) is <5> then] [store <3> in Q47E1(R_P)] [ELSEIF IO1COW(R_P) is <6> OR IO1COW(R_P) is <7> then] [store <4> in Q47E1(R_P)] [store <1> in Q47E1b(R_P)] [ELSEIF IO1COW(R_P) is <11> then] [store <4> in Q47E1(R_P)] [ELSEIF IO1COW(R_P) is <8> then] [store <5> in Q47E1(R_P)] [ENDIF] $end ----------------------------------------------------------------------------- $>pre-Q4788< FEDERAL OR STATE [NIF Q47E1A(R_P) is <1> OR Q47E1A(R_P) is <2> then] [if onpath Q47E1a:R_P then store <6> in Q4788(R_P)] [If onpath Q47E1A:R_P then goto pre-q48a] [ENDIF] [NIF IO1COW(R_P) is <1> OR IO1COW(R_P) is <2> then] [if Q46(R_P) is then store <6> in Q4788(R_P)] [If Q46(R_P) is then goto PRE-Q48A] [ENDIF] $end ------------------------------------------------------------------------- Comment: New item for 1988. $>Q4788< [indirect] [store <0> in index] [NIF Q47E1(R_P) is <4> OR Q47E1(R_P) is <5> then] [store <1> in index] [ENDIF] [If IO1COW(R_P) is <8> then store <0> in index] [NIF Q47E1c(R_P) is <2> then] [If onpath Q47E1c:R_P then store <0> in index] [ENDIF] [NIF index eq <1> AND R_P eq respli then] [store in temptext] [store in temp2] [store in temp3] [ELSEIF index eq <1> then] [store name(R_P) in temptext] [store in temp2] [store name(R_P) in temp3] [ELSE] [store in temptext] [store in temp2] [combine name(R_P) <'s> < employer> into temp3] [if R_P eq respli then store in temp3] [ENDIF] $d >Q4788< Counting all locations where [fill temptext] [fill temp2], what is the total number of persons who work for [fill temp3]? READ CATEGORIES IF NECESSARY. <1> under 10 <2> 10-24 <3> 25-99 <4> 100-499 <5> 500-999 <6> 1,000+ [blind] Refused Don't Know ===>_ [goto pre-q48a] $end ------------------------------------------------------------------------- Comment: All paths now come thru this item since Q4788 added. Previously, only precode "S" in q46 came here. Coding changed to reflect this. 3/88 DELETED BRACKETS AROUND CODING THAT CHECKED Q23E-2 BECAUSE WE ARE ONLY INTERESTED IN THEIR LONGEST JOB IN 1990 NOT THEIR CURRENT JOB. CMC 2/7/90 $>pre-q48a< [NIF Q47E1b(R_P) is <2> then] [If onpath Q47E1b:R_P then goto Q48b] [ENDIF] [NIF Q46(R_P) is AND IO1COW(R_P) is <7> then] [goto Q48b] [ELSEIF Q46(R_P) is AND IO1COW(R_P) is <11> then] [goto Q48b] [ENDIF] [NIF Q47E1c(R_P) is <2> OR Q47E1c(R_P) is then] [If onpath Q47E1c:R_P then goto S-Q48a] [ELSEIF Q47E1c(R_P) is then] [If onpath Q47E1c:R_P then goto S-Q48a] [ENDIF] [if Q47E1b(R_P) is <1> then goto S-Q48a] [if Q47E1(R_P) is <5> then goto q49a] $end ------------------------------------------------------------------------- $>S-Q48a< [multiple Q48a Q48ap] [store < > in TQ48AV(R_P)] [store name(R_P) in temptext] [store <1> in xbad(1)] [if R_P eq respli then store in temptext] THE FOLLOWING CODE IS USED TO RESET DK SCREENS [NIF Q48a(R_P) is AND DKFLAG eq <1> then] [reset Q48a] [ENDIF] [NIF Q48ap(R_P) is AND DKFLAG eq <1> then] [reset Q48ap] [ENDIF] $itemtable Q48a How much did [fill temptext] earn from this employer before taxes and other deductions during 1996? ENTER DOLLAR AMOUNT ENTER FOR NONE ===>[N]$_,___,___ .00 Q48ap READ IF NECESSARY: Is this a weekly, every other week, twice a month, monthly or yearly amount? <1> Weekly <2> Every other week (bi-weekly) <3> Twice a month <4> Monthly <5> Yearly ===>_ $end --------------------------------------------------------------------------- $>Q48a< [within S-Q48a] $d [none] Don't know [goto C-Q48aT] Refused [goto C-Q48aT] Refused [goto C-Q48aT] ===>[N]$_,___,___ $edit [notless xbad(1)] [numeric] $end $>Q48ap< [within S-Q48a] $d [none] <1> <2> <3> <4> <5> [goto Q48aC1] [goto C-Q48aT] [goto C-Q48aT] $edit [precodes] $end --------------------------------------------------------------------------- $>Q48a1< [store <0> in xbad(1)] [store name(R_P) in temptext] [store < > in TQ48AV(R_P)] [store < > in temp2] [store < > in temp3] [store < > in temp4] [if R_P eq respli then store in temptext] [if onpath Q48a:R_P then store Q48a(R_P) in temp3] [NIF Q48ap(R_P) is <1> then] [if onpath Q48ap:R_P then store <52> in xbad(1)] [if onpath Q48ap:R_P then store in temp2] [if onpath Q48ap:R_P then store <{1-52}> in temp4] [ELSEIF Q48ap(R_P) is <2> then] [if onpath Q48ap:R_P then store <26> in xbad(1)] [if onpath Q48ap:R_P then store in temp2] [if onpath Q48ap:R_P then store <{1-26}> in temp4] [ELSEIF Q48ap(R_P) is <3> then] [if onpath Q48ap:R_P then store <24> in xbad(1)] [if onpath Q48ap:R_P then store in temp2] [if onpath Q48ap:R_P then store <{1-24}> in temp4] [ELSEIF Q48ap(R_P) is <4> then] [if onpath Q48ap:R_P then store <12> in xbad(1)] [if onpath Q48ap:R_P then store in temp2] [if onpath Q48ap:R_P then store <{1-12}> in temp4] [ENDIF] [store <1> in xbad(2)] THE FOLLOWING CODE IS USED TO RESET DK SCREENS [NIF Q48a1(R_P) is AND DKFLAG eq <1> then] [reset Q48a1] [ENDIF] $d >Q48a1< For how many [fill temp2] pay periods did [fill temptext] earn $[fill temp3] from this employer in 1996? [fill temp4] [blind] Don't know [goto C-Q48aT] Refused [goto C-Q48aT] ===>__ [goto Q48aV] $edit [notgreater xbad(1)] [notless xbad(2)] [numeric] $end ---------------------------------------------------------------------------- $>Q48aC1< [store <0> in index] [store <0> in index2] [store <0> in index3] [NIF Q33(R_P) is OR Q33(R_P) is then] [if onpath Q33:R_P then goto Q48ac1a] [ELSEIF Q33(R_P) is then] [if onpath Q33:R_P then goto Q48ac1a] [ENDIF] [NIF Q41(R_P) is OR Q41(R_P) is then] [if onpath Q41:R_P then goto Q48ac1a] [ENDIF] [if onpath Q48a:R_P then convert Q48a(R_P) character to index integer] [if onpath Q33:R_P then convert Q33(R_P) character to index2 integer] [if onpath Q41:R_P then convert Q41(R_P) character to index3 integer] [if index2 nq <0> then divide index by index2] [if index3 nq <0> then divide index by index3] [if index lt <4> then goto Q48aC2] [if index gt <50> then goto Q48aC2] [goto Q48a3] $end ---------------------------------------------------------------------------- $>Q48aC1a< [store <0> in index] [if onpath Q48a:R_P then convert Q48a(R_P) character to index integer] [if index lt <10000> then goto Q48aC2] [if index gt <100000> then goto Q48aC2] [goto Q48a3] $end ---------------------------------------------------------------------------- $>Q48aC2< [if Q48aC2(R_P) is <2> then reset Q48aC2] $d >Q48aC2< **** DO NOT READ TO THE RESPONDENT ***** THE ANNUAL RATE APPEARS OUT OF RANGE. THE TOTAL ANNUAL EARNINGS ENTERED IS $[fill Q48a(R_P)]. IS THIS A CORRECT ENTRY? <1> Yes [goto Q48a3] <2> No [backto S-Q48a:R_P] ===>_ $end ---------------------------------------------------------------------------- $>Q48aV< [store <0> in index] [store <0> in index2] [store name(R_P) in temptext] [store < > in TQ48AV(R_P)] [if R_P eq respli then store in temptext] [if onpath Q48a:R_P then convert Q48a(R_P) character to index integer] [if onpath Q48a1:R_P then convert Q48a1(R_P) character to index2 integer] [multiply index by index2] [convert index integer to TQ48AV(R_P) character] $d >Q48aV< According to my calculations [fill temptext] earned [fill TQ48AV(R_P)] dollars altogether from this employer in 1996 before deductions. Does that sound about right? <1> Yes [goto Q48a3] <2> No [goto Q48a2] [blind] Don't know Refused ===>_ [goto C-Q48aT] $end ---------------------------------------------------------------------------- $>Q48a2< [store < > in temptext] [store < > in temp2] [store < > in temp3] [store < > in temp4] [store <0> in index] [store <0> in index2] [store <1> in xbad(1)] [combine name(R_P) <'s> into temptext] [if R_P eq respli then store in temptext] [NIF Q48ap(R_P) is <1> then] [if onpath Q48ap:R_P then store in temp3] [ELSEIF Q48ap(R_P) is <2> then] [if onpath Q48ap:R_P then store in temp3] [ELSEIF Q48ap(R_P) is <3> then] [if onpath Q48ap:R_P then store in temp3] [ELSEIF Q48ap(R_P) is <4> then] [if onpath Q48ap:R_P then store in temp3] [ELSEIF Q48ap(R_P) is <5> then] [if onpath Q48ap:R_P then store in temp3] [ENDIF] [if onpath Q48a1:R_P then store Q48a1(R_P) in temp4] $d >Q48a2< What is your best estimate of [fill temptext] correct total amount of earnings from this employer during 1996 before deductions? PREVIOUS ENTRIES: Q48a: $[fill Q48a(R_P)] Q48ap: [fill temp3] Q48a1: [fill temp4] ENTER DOLLAR AMOUNT [blind] Don't know Refused ===>[N]$_,___,___ .00 $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>Q48a3< [store name(R_P) in temptext] [if R_P eq respli then store in temptext] $d >Q48a3< Does this amount include all tips, bonuses, overtime pay or commissions [fill temptext] may have received from this employer in 1996? <1> Yes <2> No [goto Q48aad] [blind] Don't know Refused ===>_ [goto C-Q48aT] $end ---------------------------------------------------------------------------- $>Q48aad< [store name(R_P) in temptext] [if R_P eq respli then store in temptext] $d >Q48aad< How much did [fill temptext] earn in tips, bonuses, overtime pay or commissions from this employer in 1996? ENTER DOLLAR AMOUNT [blind] Don't know Refused ===>[N]$_,___,___ .00 $edit [numeric] $end ---------------------------------------------------------------------------- $>C-Q48aT< [store < > in Q48aT(R_P)] [NIF Q48aV(R_P) is <1> OR Q48aV(R_P) is then] [if onpath Q48aV:R_P then store TQ48AV(R_P) in Q48aT(R_P)] [ELSEIF Q48aV(R_P) is then] [if onpath Q48aV:R_P then store TQ48AV(R_P) in Q48aT(R_P)] [ENDIF] [store <0> in index] [NIF Q48a2(R_P) is OR Q48a2(R_P) is then] [If onpath Q48a2:R_P then store <1> in index] [ELSE] [If onpath Q48a2:R_P then store <2> in index] [ENDIF] [NIF Q48aV(R_P) is <2> AND index eq <2> then] [if onpath Q48aV:R_P then store Q48a2(R_P) in Q48aT(R_P)] [ELSEIF Q48aV(R_P) is <2> AND index eq <1> then] [if onpath Q48aV:R_P then store TQ48AV(R_P) in Q48aT(R_P)] [ENDIF] [NIF Q48ap(R_P) is <5> then] [If onpath Q48ap:R_P then store Q48a(R_P) in Q48aT(R_P)] [ENDIF] [NIF Q48a(R_P) is then] [if onpath Q48a:R_P then store in Q48aT(R_P)] [if onpath Q48a:R_P then goto Q49a] [ENDIF] [NIF Q48ap(R_P) is then] [if onpath Q48ap:R_P then store in Q48aT(R_P)] [if onpath Q48ap:R_P then goto Q48b] [ENDIF] [NIF Q48a1(R_P) is then] [if onpath Q48a1:R_P then store in Q48aT(R_P)] [if onpath Q48a1:R_P then goto Q48b] [ENDIF] [store <0> in index] [store <0> in index2] [convert Q48aT(R_P) character to index integer] [if onpath Q48aad:R_P then convert Q48aad(R_P) character to index2 integer] [add index2 to index] [convert index integer to Q48aT(R_P) character] [goto Q49a] $end ---------------------------------------------------------------------- $>Q48b< [store < > in Q48BT(R_P)] [store <1> in xbad(1)] THE FOLLOWING CODE IS USED TO RESET DK SCREENS [NIF Q48b(R_P) is AND DKFLAG eq <1> then] [reset Q48b] [ENDIF] [NIF Q48bp(R_P) is AND DKFLAG eq <1> then] [reset Q48bp] [ENDIF] [NIF Q48bL(R_P) is AND DKFLAG eq <1> then] [reset Q48bL] [ENDIF] [combine name(r_p) <'s> into temptext] [if R_P eq respli then store in temptext] $d >Q48b< What were [fill temptext] net earnings from this business/farm after expenses during 1996? IF RESPONSE IS "BROKE EVEN" THEN ENTER 1 None Lost Money [goto Q48BL] Enter dollar amount: [blind] Don't know [goto C-Q48bt] Refused [goto C-Q48bt] ===>[N]$_,___,___ .00 [goto Q48bp] $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>Q48BL< [store <1> in xbad(1)] $d >Q48BL< ENTER AMOUNT OF MONEY LOST IN 1996. ENTER ANNUAL AMOUNT ONLY: [blind] Don't know [goto C-Q48bt] Refused [goto C-Q48bt] ===>[N]$_,___,___ [goto Q48bp] $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>Q48bp< $d >Q48bp< Is this an annual, quarterly, monthly, weekly, or other amount? <1> Annual [goto Q48b1C] <2> Quarterly [goto Q48b3] <3> Monthly <4> Weekly <5> Other [blind] Don't know [goto C-Q48BT] Refused [goto C-Q48BT] ===>_ $end --------------------------------------------------------------------- $>Q48ba< [NIF Q48b(R_P) isnt then] [if onpath Q48b:R_P then goto Q48b2] [ENDIF] [goto Q48b2L] $end --------------------------------------------------------------------- $>Q48B1C< [store <0> in index] [NIF Q48B(R_P) isnt then] [if onpath Q48b:R_P then convert Q48b(R_P) character to index integer] [ENDIF] [if onpath Q48BL:R_P then convert Q48bL(R_P) character to index integer] [if index lt <10> then goto Q48b1] [if index gt <10000> then goto Q48b1] [goto Q48b7] $end ---------------------------------------------------------------------------- $>Q48b1< [if Q48b1(R_P) is <2> then reset Q48b1] [NIF Q48B(R_P) isnt then] [if onpath Q48b:R_P then store Q48b(R_P) in temp2] [ENDIF] [if onpath Q48BL:R_P then store Q48bL(R_P) in temp2] $d >Q48b1< **** DO NOT READ TO THE RESPONDENT ***** THE ANNUAL RATE APPEARS OUT OF RANGE. THE TOTAL ANNUAL BUSINESS INCOME ENTERED IS [fill temp2]. IS THIS A CORRECT ENTRY? <1> Yes [goto Q48b7] <2> No [if onpath Q48BL:R_P then backto Q48BL:R_P] [backto Q48B:R_P] ===>_ $end ---------------------------------------------------------------------------- $>Q48b2< [combine name(r_p) <'s> into temptext] [if r_p eq respli then store in temptext] [store in temp2] [if Q48bp(r_p) is <3> then store in temp2] [if Q48bp(r_p) is <4> then store in temp2] [if Q48bp(r_p) is <5> then store in temp2] [store <1> in xbad(1)] $d >Q48b2< What is your best estimate of [fill temptext] ANNUAL net earnings from this business/farm after expenses in 1996? PREVIOUS ENTRIES: Q48b: $[fill Q48b(r_p)] Q48bp: [fill temp2] Enter dollar amount: [blind] Don't know [goto C-Q48BT] Refused [goto C-Q48BT] ===>[N]$_,___,___ [goto Q48b7] $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>Q48b2L< [combine name(r_p) <'s> into temptext] [if r_p eq respli then store in temptext] [store in temp2] [if Q48bp(r_p) is <3> then store in temp2] [if Q48bp(r_p) is <4> then store in temp2] [if Q48bp(r_p) is <5> then store in temp2] [store <1> in xbad(1)] $d >Q48b2L< What is your best estimate of [fill temptext] ANNUAL net LOSS from this business/farm after expenses in 1996? PREVIOUS ENTRIES: Q48b: $[fill Q48bl(r_p)] Q48bp: [fill temp2] Enter dollar amount: [blind] Don't know [goto C-Q48bt] Refused [goto C-Q48bt] ===>[N]$_,___,___ [goto C-Q48bt] $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>Q48b3< [combine name(r_p) <'s> into temptext] [if r_p eq respli then store in temptext] [store <1> in xbad(1)] $d >Q48b3< What were [fill temptext] net earnings from this business/farm during the FIRST quarter of 1996? IF RESPONSE IS "BROKE EVEN", ENTER 1 None [goto Q48b4] Lost Money [goto Q48b3L] Enter dollar amount: [blind] Don't know [goto C-Q48bt] Refused [goto C-Q48bt] ===>[N]$_,___,___ [goto Q48b4] $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>Q48b3L< [store <1> in xbad(1)] $d >Q48b3L< ENTER AMOUNT OF MONEY LOST IN THE FIRST QUARTER OF 1996. [blind] Don't know [goto C-Q48bt] Refused [goto C-Q48bt] ===>[N]$_,___,___ .00 [goto Q48b4] $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>Q48b4< [combine name(r_p) <'s> into temptext] [if r_p eq respli then store in temptext] [store <1> in xbad(1)] $d >Q48b4< What were [fill temptext] net earnings from this business/farm during the SECOND quarter of 1996? IF RESPONSE IS "BROKE EVEN", ENTER 1 None [goto Q48b5] Lost Money [goto Q48b4L] Enter dollar amount: [blind] Don't know [goto C-Q48bt] Refused [goto C-Q48bt] ===>[N]$_,___,___ [goto Q48b5] $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>Q48b4L< [store <1> in xbad(1)] $d >Q48b4L< ENTER AMOUNT OF MONEY LOST IN THE SECOND QUARTER OF 1996. [blind] Don't know [goto C-Q48bt] Refused [goto C-Q48bt] ===>[N]$_,___,___ .00 [goto Q48b5] $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>Q48b5< [combine name(r_p) <'s> into temptext] [if r_p eq respli then store in temptext] [store <1> in xbad(1)] $d >Q48b5< What were [fill temptext] net earnings from this business/farm during the THIRD quarter of 1996? IF RESPONSE IS "BROKE EVEN",ENTER 1 None [goto Q48b6] Lost Money [goto Q48b5L] Enter dollar amount: [blind] Don't know [goto C-Q48bt] Refused [goto C-Q48bt] ===>[N]$_,___,___ [goto Q48b6] $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>Q48b5L< [store <1> in xbad(1)] $d >Q48b5L< ENTER AMOUNT OF MONEY LOST IN THE THIRD QUARTER OF 1996. [blind] Don't know [goto C-Q48bt] Refused [goto C-Q48bt] ===>[N]$_,___,___ .00 [goto Q48b6] $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>Q48b6< [combine name(r_p) <'s> into temptext] [if r_p eq respli then store in temptext] [store <1> in xbad(1)] $d >Q48b6< What were [fill temptext] net earnings from this business/farm during the FOURTH quarter of 1996? IF RESPONSE IS "BROKE EVEN",ENTER 1 None [goto Q48b7] Lost Money [goto Q48b6L] Enter dollar amount: [blind] Don't know [goto C-Q48bt] Refused [goto C-Q48bt] ===>[N]$_,___,___ [goto Q48b7] $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>Q48b6L< [store <1> in xbad(1)] $d >Q48b6L< ENTER AMOUNT OF MONEY LOST IN THE FOURTH QUARTER OF 1996. [blind] Don't know [goto Q48b7] Refused [goto Q48b7] ===>[N]$_,___,___ .00 [goto C-Q48bt] $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>Q48b7< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] $d >Q48b7< Does this amount include all tips, bonuses, overtime pay or commissions [fill temptext] may have received from this business in 1996? <1> Yes <2> No [goto Q48bad] [blind] Don't know Refused ===>_ [goto C-Q48bt] $end --------------------------------------------------------------------- $>Q48bad< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store <1> in xbad(1)] $d >Q48bad< How much did [fill temptext] earn in tips, bonuses, overtime pay or commissions in 1996? Enter dollar amount: [blind] Don't know Refused ===>[N]$_,___,___ $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>C-Q48bT< [store < > in Q48bT(R_P)] [store < > in Q48BLO(R_P)] [IF Q48b(R_P) is then goto Q49a] [IF Q48b(R_P) is then goto Q49a] [IF Q48b2(R_P) is then goto Q49a] [NIF Q48b(R_P) is then] [if onpath Q48b:R_P then store in Q48bT(R_P)] [if onpath Q48b:R_P then goto Q49a] [ENDIF] [NIF Q48bp(R_P) is OR Q48bp(R_P) is then] [if onpath Q48bp:R_P then goto Q49a] [ENDIF] [NIF Q48b2(R_P) is then] [if onpath Q48b2:R_P then store in Q48bT(R_P)] [if onpath Q48b2:R_P then goto Q49a] [ENDIF] [store <0> in index] [NIF Q48bp(R_P) is <1> then] [if onpath Q48bp:R_P then store <1> in index] [ELSEIF Q48bp(R_P) isnt <1> then] [if onpath Q48bp:R_P then store <2> in index] [ENDIF] [NIF index eq <1> AND Q48b(R_P) isnt then] [If onpath Q48b:R_P then store Q48b(R_P) in Q48bT(R_P)] [ENDIF] [IF index eq <2> then store Q48b2(R_P) in Q48bt(R_P)] [store <0> in index] [store <0> in index2] [convert Q48bT(R_P) character to index integer] [if onpath Q48bad:R_P then convert Q48bad(R_P) character to index2 integer] [add index2 to index] [convert index integer to Q48bT(R_P) character] [store <0> in index] [NIF Q48bp(R_P) is <1> then] [if onpath Q48bp:R_P then store <1> in index] [ELSEIF Q48bp(R_P) isnt <1> then] [if onpath Q48bp:R_P then store <2> in index] [ENDIF] [NIF index eq <1> AND Q48b(R_P) is then] [If onpath Q48b:R_P then store Q48bl(R_P) in Q48bLO(R_P)] [ENDIF] [IF index eq <2> then store Q48b2L(R_P) in Q48BLO(R_P)] [goto Q49a] $end ---------------------------------------------------------------------- $>Q49a< [indirect] [store name(R_P) in temptext] [if RESPLI eq R_P then store in temptext] [store in youheshe] [if sex(R_P) is <2> then store in youheshe] [if RESPLI eq R_P then store in youheshe] $d >Q49a< Did [fill temptext] earn money from any other work [fill youheshe] did during 1996? <1> Yes [goto Q49a1] <2> No [goto C-Q49B1T] [blind] Refused [goto C-Q49B1T] Don't Know [goto C-Q49B1T] ===>_ $end ----------------------------------------------------------------------------- $>Q49a1< [multiple Q49a11 Q49a12 Q49a13] [store < > in temp2] [store name(R_P) in temptext] [if RESPLI eq R_P then store in temptext] [store in yourhshr] [if sex(R_P) is <2> then store in yourhshr] [if RESPLI eq R_P then store in yourhshr] [if onpath Q48b:R_P then store in temp2] $itemtable >Q49a1< Did [fill temptext] earn this money from other employers, [fill yourhshr] own [fill temp2] business, or from [fill yourhshr] own farm? PROBE: Any other source? (N) no more <1> Other employers <2> Own business <3> Own farm ===>__ ===>__ ===>__ $end ---------------------------------------------------------------------- $>Q49a11< [within Q49a1] $d [none] <1-3> [goto C-Q49B1T] [goto Q51a1] $end $>Q49a12< [within Q49a1] $d [none] <1-3> [goto Q49B1ck] $edit [notequal Q49a11(R_P)] $end $>Q49a13< [within Q49a1] $d [none] <1-3> [goto Q49B1ck] $edit [notequal Q49a11(R_P)] [notequal Q49a12(R_P)] $end ---------------------------------------------------------------------- $>Q49B1ck< [NIF Q49a11(R_P) is <1> then] [IF onpath Q49a11:R_P then goto S-Q49b1] [ENDIF] [NIF Q49a12(R_P) is <1> then] [IF onpath Q49a12:R_P then goto S-Q49b1] [ENDIF] [NIF Q49a13(R_P) is <1> then] [IF onpath Q49a13:R_P then goto S-Q49b1] [ENDIF] [goto Q49B2ck] $end ---------------------------------------------------------------------- $>S-Q49b1< [multiple Q49B1 Q49B1p] [store name(R_P) in temptext] [store <1> in xbad(1)] [if R_P eq respli then store in temptext] [store < > in T49B1V(R_P)] $itemtable >Q49b1< How much did [fill temptext] earn from all other employers before taxes and other deductions during 1996? ENTER DOLLAR AMOUNT None ===>[N]$_,___,___ .00 >Q49b1p< READ IF NECESSARY: Is this a weekly, every other week, twice a month, monthly or yearly amount? <1> Weekly <2> Every other week (bi-weekly) <3> Twice a month <4> Monthly <5> Yearly ===>_ $end --------------------------------------------------------------------------- $>Q49B1< [within S-Q49b1] $d [none] None [goto Q49B2ck] Don't know [goto Q49B2ck] Refused [goto Q49B2ck]] ===>[N]$_,___,___ $edit [notless xbad(1)] [numeric] $end $>Q49B1p< [within S-Q49b1] $d [none] <1> <2> <3> <4> <5> [goto Q49B1C] [goto Q49B2ck] [goto Q49B2ck] $edit [precodes] $end --------------------------------------------------------------------------- $>Q49B11< [store <0> in xbad(1)] [store name(R_P) in temptext] [store < > in temp2] [store < > in temp3] [store < > in temp4] [store <1> in xbad(2)] [store < > in T49B1V(R_P)] [if R_P eq respli then store in temptext] [if onpath Q49B1:R_P then store Q49B1(R_P) in temp3] [NIF Q49B1p(R_P) is <1> then] [if onpath Q49B1p:R_P then store <52> in xbad(1)] [if onpath Q49B1p:R_P then store in temp2] [if onpath Q49B1p:R_P then store <{1-52}> in temp4] [ELSEIF Q49B1p(R_P) is <2> then] [if onpath Q49B1p:R_P then store <26> in xbad(1)] [if onpath Q49B1p:R_P then store in temp2] [if onpath Q49B1p:R_P then store <{1-26}> in temp4] [ELSEIF Q49B1p(R_P) is <3> then] [if onpath Q49B1p:R_P then store <24> in xbad(1)] [if onpath Q49B1p:R_P then store in temp2] [if onpath Q49B1p:R_P then store <{1-24}> in temp4] [ELSEIF Q49B1p(R_P) is <4> then] [if onpath Q49B1p:R_P then store <12> in xbad(1)] [if onpath Q49B1p:R_P then store in temp2] [if onpath Q49B1p:R_P then store <{1-12}> in temp4] [ENDIF] $d >Q49B11< For how many [fill temp2] pay periods did [fill temptext] earn $[fill temp3] from all other employers in 1996? [fill temp4] [blind] Don't know [goto Q49B2ck] Refused [goto Q49B2ck] ===>__ [goto Q49B1V] $edit [notgreater xbad(1)] [notless xbad(2)] [numeric] $end ---------------------------------------------------------------------------- $>Q49B1C< [if Q49B1C(R_P) is <2> then reset Q49B1C] $d >Q49B1C< **** DO NOT READ TO THE RESPONDENT ***** THE TOTAL ANNUAL EARNINGS ENTERED FROM ALL OTHER EMPLOYERS IS $[fill Q49B1(R_P)]. IS THIS A CORRECT ENTRY? <1> Yes [goto Q49B13] <2> No [backto Q49b1:R_P] [blind] Don't know [goto Q49B2ck] Refused [goto Q49B2ck] ===>_ $end ---------------------------------------------------------------------------- $>Q49B1V< [store <0> in index] [store <0> in index2] [store name(R_P) in temptext] [store < > in T49B1V(R_P)] [if R_P eq respli then store in temptext] [if onpath Q49B1:R_P then convert Q49B1(R_P) character to index integer] [if onpath Q49B11:R_P then convert Q49B11(R_P) character to index2 integer] [multiply index by index2] [convert index integer to T49B1V(R_P) character] $d >Q49B1V< According to my calculations [fill temptext] earned [fill T49B1V(R_P)] dollars altogether from all other employers in 1996. Does that sound about right? <1> Yes [goto Q49B13] <2> No [blind] Don't know [goto Q49B2ck] Refused [goto Q49B2ck] ===>_ $end ---------------------------------------------------------------------------- $>Q49B12< [store < > in temptext] [store < > in temp2] [store < > in temp3] [store < > in temp4] [store <0> in index] [store <0> in index2] [store <1> in xbad(1)] [combine name(R_P) <'s> into temptext] [if R_P eq respli then store in temptext] [NIF Q49b1p(R_P) is <1> then] [if onpath Q49b1p:R_P then store in temp3] [ELSEIF Q49b1p(R_P) is <2> then] [if onpath Q49b1p:R_P then store in temp3] [ELSEIF Q49b1p(R_P) is <3> then] [if onpath Q49b1p:R_P then store in temp3] [ELSEIF Q49b1p(R_P) is <4> then] [if onpath Q49b1p:R_P then store in temp3] [ELSEIF Q49b1p(R_P) is <5> then] [if onpath Q49b1p:R_P then store in temp3] [ENDIF] [if onpath Q49B11:R_P then store Q49B11(R_P) in temp4] $d >Q49B12< What is your best estimate of [fill temptext] correct total amount of earnings from all other employers during 1996? PREVIOUS ENTRIES: Q49b1: $[fill Q49b1(R_P)] Q49b1p: [fill temp3] Q4b11: [fill temp4] ENTER DOLLAR AMOUNT [blind] Don't know [goto Q49B2ck] Refused [goto Q49B2ck] ===>[N]$_,___,___ .00 $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>Q49B13< [store name(R_P) in temptext] [if R_P eq respli then store in temptext] $d >Q49B13< Does this amount include all tips, bonuses, overtime pay or commissions [fill temptext] may have received from all other employers in 1996? <1> Yes [goto Q49B2ck] <2> No [blind] Don't know [goto Q49B2ck] Refused ===>_ $end ---------------------------------------------------------------------------- $>Q49B1A< [store name(R_P) in temptext] [if R_P eq respli then store in temptext] [store <1> in xbad(1)] $d >Q49B1A< How much did [fill temptext] earn in tips, bonuses, overtime pay or commissions from all other employers in 1996? ENTER DOLLAR AMOUNT [blind] Don't know [goto Q49B2ck] Refused [goto Q49B2ck] ===>[N]$_,___,___ .00 [goto Q49B2ck] $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>Q49B2ck< [NIF Q49a11(R_P) is <2> then] [IF onpath Q49a11:R_P then goto S-Q49b2] [ENDIF] [NIF Q49a12(R_P) is <2> then] [IF onpath Q49a12:R_P then goto S-Q49b2] [ENDIF] [NIF Q49a13(R_P) is <2> then] [IF onpath Q49a13:R_P then goto S-Q49b2] [ENDIF] [goto Q49B3c] $end ---------------------------------------------------------------------- $>S-Q49b2< [multiple Q49B2 Q49B3] [store name(R_P) in temptext] [if RESPLI eq R_P then store in temptext] [store in yourhshr] [if sex(R_P) is <2> then store in yourhshr] [if RESPLI eq R_P then store in yourhshr] [combine yourhshr < own business> into temp2] [if onpath Q48b:R_P then combine < > yourhshr < own> into temp2] $itemtable Q49B2 How much did [fill temptext] earn from [fill temp2] after expenses? (IF RESPONSE IS "BROKE EVEN" THEN ENTER 1.) FOR AMOUNTS $1,000,000 AND OVER, ENTER $999,999. None Lost money ===>$[N]___,___ .00 ENTER ANNUAL AMOUNT ONLY FOR AMOUNTS $10,000 AND OVER, ENTER $9,999. ===>$[N]_,___ .00 ENTER ANNUAL AMOUNT LOST ONLY $end ----------------------------------------------------------------------------- $>Q49B2< [within S-Q49b2] [store <0> in xbad(1)] $d [none] None Lost money [goto Q49B3] Refused [goto Q49B3C] Dont Know [goto Q49B3C] ===>$[N]___,___ [goto Q49B3C] $edit [notless xbad(1)] [notequal xbad(1)] [numeric] $end $>Q49B3< [within S-Q49b2] [store <0> in xbad(1)] $d [none] Refused [goto Q49B3C] Dont Know [goto Q49B3C] ===>$[N]_,___ $edit [notless xbad(1)] [notequal xbad(1)] [numeric] $end ----------------------------------------------------------------------------- $>Q49B3C< [NIF Q49a11(R_P) is <3> then] [IF onpath Q49a11:R_P then goto S-Q49b3] [ENDIF] [NIF Q49a12(R_P) is <3> then] [IF onpath Q49a12:R_P then goto S-Q49b3] [ENDIF] [NIF Q49a13(R_P) is <3> then] [IF onpath Q49a13:R_P then goto S-Q49b3] [ENDIF] [goto C-Q49B1T] $end ---------------------------------------------------------------------- $>S-Q49b3< [multiple Q49B4 Q49B5] [store name(R_P) in temptext] [if RESPLI eq R_P then store in temptext] [store in yourhshr] [if sex(R_P) is <2> then store in yourhshr] [if RESPLI eq R_P then store in yourhshr] [combine yourhshr < own business> into temp2] [if onpath Q48b:R_P then combine < > yourhshr < own> into temp2] $itemtable >Q49B3< How much did [fill temptext] earn from [fill yourhshr] farm after expenses? (IF RESPONSE IS "BROKE EVEN" THEN ENTER 1.) FOR AMOUNTS 1,000,000 AND OVER, ENTER 999,999. None Lost money ===>[N]$___,___ .00 ENTER ANNUAL AMOUNT ONLY FOR AMOUNTS 10,000 AND OVER, ENTER 9,999. ===>[N]$_,___ .00 ENTER ANNUAL AMOUNT LOST ONLY $end ----------------------------------------------------------------------------- $>Q49B4< [within S-Q49b3] [store <0> in xbad(1)] $d [none] None Lost money [goto Q49B5] Refused [goto C-Q49B1T] Dont Know [goto C-Q49B1T] ===>$[N]___,___ [goto C-Q49B1T] $edit [notless xbad(1)] [notequal xbad(1)] [numeric] $end $>Q49B5< [within S-Q49b3] [store <0> in xbad(1)] $d [none] Refused [goto C-Q49B1T] Dont Know [goto C-Q49B1T] ===>$[N]_,___ $edit [notless xbad(1)] [notequal xbad(1)] [numeric] $end ----------------------------------------------------------------------------- $>C-Q49B1T< [store < > in Q49B1T(R_P)] [NIF Q49B1V(R_P) is <1> OR Q49B1V(R_P) is then] [if onpath Q49B1V:R_P then store T49B1V(R_P) in Q49B1T(R_P)] [ELSEIF Q49B1V(R_P) is then] [if onpath Q49B1V:R_P then store T49B1V(R_P) in Q49B1T(R_P)] [ENDIF] [store <0> in index] [NIF Q49B1V(R_P) is <2> then] [if onpath Q49B1V:R_P then store <1> in index] [ENDIF] [NIF Q49B12(R_P) is and index eq <1> then] [if onpath Q49B12:R_P then store T49B1V(R_P) in Q49B1T(R_P)] [ELSEIF Q49B12(R_P) is and index eq <1> then] [if onpath Q49B12:R_P then store T49B1V(R_P) in Q49B1T(R_P)] [ELSEIF index eq <1> then] [if onpath Q49B12:R_P then store Q49B12(R_P) in Q49B1T(R_P)] [ENDIF] [NIF Q49B1p(R_P) is <5> then] [if onpath Q49B1p:R_P then store Q49B1(R_P) in Q49B1T(R_P)] [ENDIF] [NIF Q49B1(R_P) is then] [if onpath Q49B1:R_P then store in Q49B1T(R_P)] [if onpath Q49B1:R_P then goto Q51a] [ENDIF] [NIF Q49B1p(R_P) is then] [if onpath Q49B1p:R_P then store in Q49B1T(R_P)] [if onpath Q49B1p:R_P then goto Q51a] [ENDIF] [NIF Q49B11(R_P) is then] [if onpath Q49B11:R_P then store in Q49B1T(R_P)] [if onpath Q49B11:R_P then goto Q51a] [ENDIF] [store <0> in index] [store <0> in index2] [NIF Q49B1a(R_P) isnt AND Q49B1a(R_P) isnt then] [if onpath Q49B1a:R_P then convert Q49B1a(R_P) character to index integer] [ENDIF] [convert Q49B1t(R_P) character to index2 integer] [add index to index2] [convert index2 integer to Q49B1T(R_P) character] $end ----------------------------------------------------------------------------- Comment: This is item 52a in the 1989 CPS-665. $>Q51a< [multiple Q51A1 Q51A2 Q51A3] [store name(R_P) in temptext] [if RESPLI eq R_P then store in temptext] $itemtable Q51A1 At any time during 1996 did [fill temptext] receive ... any State or Federal unemployment compensation? <1> Yes <2> No ===>_ Q51A2 ... any Supplemental Unemployment Benefits (SUB)? <1> Yes <2> No ===>_ Q51A3 ... any Union unemployment or strike benefits? <1> Yes <2> No ===>_ $end ----------------------------------------------------------------------------- $>Q51A1< [within q51a] $d [none] <1> Yes <2> No [goto q51a2] Refused [goto q52a] Don't Know $end $>Q51A2< [within q51a] $d [none] <1> Yes <2> No Refused [goto Ck-q51A1] Don't Know $end $>Q51A3< [within q51a] $d [none] <1> Yes <2> No Refused Don't Know $end ----------------------------------------------------------------------------- $>ck-Q51a1< [if Q51a1(R_P) is <1> then goto Q51A1p] [store < > in Q51A1T(R_P)] [goto ck-Q51a2] $end ---------------------------------------------------------------------- $>Q51A1p< [combine name(R_P) <'s> into temptext] [store < > in T51A13(R_P)] [NIF R_P eq respli then] [store in temptext] [ENDIF] THE FOLLOWING CODE IS USED TO RESET DK SCREENS [NIF Q51A1p(R_P) is AND DKFLAG eq <1> then] [reset Q51A1p] [ENDIF] $d >Q51A1p< What is the easiest way for you to tell us [fill temptext] State or Federal unemployment compensation; weekly, every other week, twice a month, monthly, or yearly? <1> Weekly <2> Every other week (bi-weekly) <3> Twice a month <4> Monthly <5> Yearly [blind] Don't know [goto C-Q51A1T] Refused [goto C-Q51A1T] ===>_ $end --------------------------------------------------------------------------- $>Q51A11< [store name(R_P) in temptext] [if R_P eq respli then store in temptext] [store in temp2] [store <1> in xbad(1)] [store < > in T51A13(R_P)] [NIF Q51A1p(R_P) is <1> then] [if onpath Q51A1p:R_P then store in temp2] [ELSEIF Q51A1p(R_P) is <2> then] [if onpath Q51A1p:R_P then store in temp2] [ELSEIF Q51A1p(R_P) is <3> then] [if onpath Q51A1p:R_P then store in temp2] [ELSEIF Q51A1p(R_P) is <4> then] [if onpath Q51A1p:R_P then store in temp2] [ENDIF] THE FOLLOWING CODE IS USED TO RESET DK SCREENS [NIF Q51A11(R_P) is AND DKFLAG eq <1> then] [reset Q51A11] [ENDIF] $d >Q51A11< How much did [fill temptext] receive [fill temp2] State or Federal unemployment compensation during 1996? ENTER DOLLAR AMOUNT [blind] Don't know [goto C-Q51A1T] Refused [goto C-Q51A1T] ===>[N]$_,___,___ .00 $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>Q51A11-CK< [store < > in T51A13(R_P)] [NIF Q51A1p(R_P) is <5> then] [if onpath Q51A1p:R_P then goto Q51A1C1] [ENDIF] [goto Q51A12] $end ---------------------------------------------------------------------------- $>Q51A1C1< [store <0> in index] [if onpath Q51A11:R_P then convert Q51A11(R_P) character to index integer] [if index gt <20000> then goto Q51A1C] [goto C-Q51A1T] $end --------------------------------------------------------------------------- $>Q51A1C< [if Q51A1C(R_P) is <2> then reset Q51A1C] $d >Q51A1C< **** DO NOT READ TO THE RESPONDENT ***** THE ANNUAL RATE APPEARS OUT OF RANGE. THE TOTAL STATE OR FEDERAL EMPLOYMENT COMPENSATION RECEIVED IN 1996 WAS $[fill Q51A11(R_P)]. IS THIS A CORRECT ENTRY? <1> Yes [goto C-Q51A1T] <2> No [backto Q51A11:R_P] ===>_ $end ---------------------------------------------------------------------------- $>Q51A12< [store <0> in xbad(1)] [store <1> in xbad(2)] [store < > in temp2] [store < > in temp4] [store name(R_P) in temptext] [store < > in T51A13(R_P)] [if R_P eq respli then store in temptext] [NIF Q51A1p(R_P) is <1> then] [if onpath Q51A1p:R_P then store <52> in xbad(1)] [if onpath Q51A1p:R_P then store in temp2] [if onpath Q51A1p:R_P then store <{1-52}> in temp4] [ELSEIF Q51A1p(R_P) is <2> then] [if onpath Q51A1p:R_P then store <26> in xbad(1)] [if onpath Q51A1p:R_P then store in temp2] [if onpath Q51A1p:R_P then store <{1-26}> in temp4] [ELSEIF Q51A1p(R_P) is <3> then] [if onpath Q51A1p:R_P then store <24> in xbad(1)] [if onpath Q51A1p:R_P then store in temp2] [if onpath Q51A1p:R_P then store <{1-24}> in temp4] [ELSEIF Q51A1p(R_P) is <4> then] [if onpath Q51A1p:R_P then store <12> in xbad(1)] [if onpath Q51A1p:R_P then store in temp2] [if onpath Q51A1p:R_P then store <{1-12}> in temp4] [ENDIF] THE FOLLOWING CODE IS USED TO RESET DK SCREENS [NIF Q51A12(R_P) is AND DKFLAG eq <1> then] [reset Q51A12] [ENDIF] $d >Q51A12< How many [fill temp2] payments did [fill temptext] receive from State or Federal unemployment compensation during 1996? [fill temp4] [blind] Don't know [goto C-Q51A1T] Refused [goto C-Q51A1T] ===>__ $edit [notless xbad(2)] [notgreater xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>Q51A13< [store <0> in index] [store <0> in index2] [store name(R_P) in temptext] [store < > in T51A13(R_P)] [if R_P eq respli then store in temptext] [if onpath Q51A11:R_P then convert Q51A11(R_P) character to index integer] [if onpath Q51A12:R_P then convert Q51A12(R_P) character to index2 integer] [multiply index by index2] [convert index integer to T51A13(R_P) character] $d >Q51A13< According to my calculations [fill temptext] received $[fill T51A13(R_P)] dollars altogether from State or Federal unemployment compensation during 1996. Does that sound about right? <1> Yes <2> No [goto Q51A14] [blind] Don't know Refused ===>_ [goto C-Q51A1T] $end ---------------------------------------------------------------------------- $>Q51A14< [store name(R_P) in temptext] [store < > in temp2] [store < > in temp3] [store < > in temp4] [store <0> in index] [store <0> in index2] [store <1> in xbad(1)] [if R_P eq respli then store in temptext] [NIF Q51a1p(R_P) is <1> then] [if onpath Q51a1p:R_P then store in temp3] [ELSEIF Q51a1p(R_P) is <2> then] [if onpath Q51a1p:R_P then store in temp3] [ELSEIF Q51a1p(R_P) is <3> then] [if onpath Q51a1p:R_P then store in temp3] [ELSEIF Q51a1p(R_P) is <4> then] [if onpath Q51a1p:R_P then store in temp3] [ELSEIF Q51a1p(R_P) is <5> then] [if onpath Q51a1p:R_P then store in temp3] [ENDIF] [if onpath Q51A12:R_P then store Q51A12(R_P) in temp4] $d >Q51A14< What is your best estimate of the correct total amount [fill temptext] received from State or Federal unemployment compensation during 1996? PREVIOUS ENTRIES: Q51A11: $[fill Q51A11(R_P)] Q51A1p: [fill temp3] Q51A12: [fill temp4] ENTER DOLLAR AMOUNT [blind] Don't know Refused ===>[N]$_,___,___ .00 $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>C-Q51A1T< [store < > in Q51A1T(R_P)] [NIF Q51A13(R_P) is <1> OR Q51A13(R_P) is then] [if onpath Q51A13:R_P then store T51A13(R_P) in Q51A1T(R_P)] [ELSEIF Q51A13(R_P) is then] [if onpath Q51A13:R_P then store T51A13(R_P) in Q51A1T(R_P)] [ENDIF] [store <0> in index] [NIF Q51A13(R_P) is <2> then] [if onpath Q51A13:R_P then store <1> in index] [ENDIF] [NIF Q51A14(R_P) is and index eq <1> then] [if onpath Q51A14:R_P then store T51A13(R_P) in Q51A1T(R_P)] [ELSEIF Q51A14(R_P) is and index eq <1> then] [if onpath Q51A14:R_P then store T51A13(R_P) in Q51A1T(R_P)] [ELSEIF index eq <1> then] [if onpath Q51A14:R_P then store Q51A14(R_P) in Q51A1T(R_P)] [ENDIF] [NIF Q51A1p(R_P) is <5> then] [if onpath Q51A1p:R_P then store Q51A11(R_P) in Q51A1T(R_P)] [ENDIF] [NIF Q51A11(R_P) is then] [if onpath Q51A11:R_P then store in Q51A1T(R_P)] [if onpath Q51A11:R_P then goto CK-Q51A2] [ENDIF] [NIF Q51A1p(R_P) is then] [if onpath Q51A1p:R_P then store in Q51A1T(R_P)] [if onpath Q51A1p:R_P then goto ck-Q51A2] [ENDIF] [NIF Q51A12(R_P) is then] [if onpath Q51A12:R_P then store in Q51A1T(R_P)] [if onpath Q51A12:R_P then goto ck-Q51A2] [ENDIF] $end ---------------------------------------------------------------------- $>ck-Q51A2< [if Q51a2(R_P) is <1> then goto Q51A2p] [goto ck-Q51A3] $end ---------------------------------------------------------------------- $>Q51A2p< [store < > in T51A23(R_P)] [combine name(R_P) <'s> into temptext] [If R_P eq respli then store in temptext] $d >Q51A2p< What is the easiest way for you to tell us [fill temptext] Supplemental Unemployment Benefits; weekly, every other week, twice a month, monthly, or yearly? <1> Weekly <2> Every other week (bi-weekly) <3> Twice a month <4> Monthly <5> Yearly [blind] Don't know [goto C-Q51A2T] Refused [goto C-Q51A2T] ===>_ $end --------------------------------------------------------------------------- $>Q51A21< [store < > in T51A23(R_P)] [store name(R_P) in temptext] [if R_P eq respli then store in temptext] [store in temp2] [store <1> in xbad(1)] [NIF Q51A2p(R_P) is <1> then] [if onpath Q51A2p:R_P then store in temp2] [ELSEIF Q51A2p(R_P) is <2> then] [if onpath Q51A2p:R_P then store in temp2] [ELSEIF Q51A2p(R_P) is <3> then] [if onpath Q51A2p:R_P then store in temp2] [ELSEIF Q51A2p(R_P) is <4> then] [if onpath Q51A2p:R_P then store in temp2] [ENDIF] $d >Q51A21< How much did [fill temptext] receive [fill temp2] Supplemental Unemployment Benefits during 1996? ENTER DOLLAR AMOUNT [blind] Don't know [goto C-Q51A2T] Refused [goto C-Q51A2T] ===>[N]$_,___,___ .00 $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>Q51A21-CK< [store < > in T51A23(R_P)] [NIF Q51A2p(R_P) is <5> then] [if onpath Q51A2p:R_P then goto Q51A2C1] [ENDIF] [goto Q51A22] $end ---------------------------------------------------------------------------- $>Q51A2C1< [store <0> in index] [if onpath Q51A21:R_P then convert Q51A21(R_P) character to index integer] [if index gt <20000> then goto Q51A2C2] [goto c-Q51A2T] $end ---------------------------------------------------------------------------- $>Q51A2C2< [if Q51A2C2(R_P) is <2> then reset Q51A2C2] $d >Q51A2C2< **** DO NOT READ TO THE RESPONDENT ***** THE ANNUAL RATE APPEARS OUT OF RANGE. THE TOTAL SUPPLEMENTAL UNEMPLOYMENT BENEFITS RECEIVED IN 1996 WAS $[fill Q51A21(R_P)]. IS THIS A CORRECT ENTRY? <1> Yes [goto C-Q51A2T] <2> No [backto Q51A21:R_P] ===>_ $end ---------------------------------------------------------------------------- $>Q51A22< [store <0> in xbad(1)] [store <1> in xbad(2)] [store name(R_P) in temptext] [store < > in temp2] [store < > in temp3] [store < > in T51A23(R_P)] [if R_P eq respli then store in temptext] [NIF Q51A2p(R_P) is <1> then] [if onpath Q51A2p:R_P then store <52> in xbad(1)] [if onpath Q51A2p:R_P then store in temp2] [if onpath Q51A2p:R_P then store <{1-52}> in temp3] [ELSEIF Q51A2p(R_P) is <2> then] [if onpath Q51A2p:R_P then store <26> in xbad(1)] [if onpath Q51A2p:R_P then store in temp2] [if onpath Q51A2p:R_P then store <{1-26}> in temp3] [ELSEIF Q51A2p(R_P) is <3> then] [if onpath Q51A2p:R_P then store <24> in xbad(1)] [if onpath Q51A2p:R_P then store in temp2] [if onpath Q51A2p:R_P then store <{1-24}> in temp3] [ELSEIF Q51A2p(R_P) is <4> then] [if onpath Q51A2p:R_P then store <12> in xbad(1)] [if onpath Q51A2p:R_P then store in temp2] [if onpath Q51A2p:R_P then store <{1-12}> in temp3] [ENDIF] $d >Q51A22< How many [fill temp2] payments did [fill temptext] receive from Supplemental Unemployment Benefits during 1996? [fill temp3] [blind] Don't know [goto c-Q51A2T] Refused [goto c-Q51A2T] ===>__ $edit [notless xbad(2)] [notgreater xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>Q51A23< [store <0> in index] [store <0> in index2] [store name(R_P) in temptext] [store < > in T51A23(R_P)] [if R_P eq respli then store in temptext] [if onpath Q51A21:R_P then convert Q51A21(R_P) character to index integer] [if onpath Q51A22:R_P then convert Q51A22(R_P) character to index2 integer] [multiply index by index2] [convert index integer to T51A23(R_P) character] $d >Q51A23< According to my calculations [fill temptext] received [fill T51A23(R_P)] dollars altogether from Supplemental Unemployment Benefits during 1996. Does that sound about right? <1> Yes <2> No [goto Q51A24] [blind] Don't know Refused ===>_ [goto c-Q51A2T] $end ---------------------------------------------------------------------------- $>Q51A24< [store name(R_P) in temptext] [store < > in temp2] [store < > in temp3] [store < > in temp4] [store <0> in index] [store <0> in index2] [store <1> in xbad(1)] [if R_P eq respli then store in temptext] [NIF Q51a2p(R_P) is <1> then] [if onpath Q51a2p:R_P then store in temp3] [ELSEIF Q51a2p(R_P) is <2> then] [if onpath Q51a2p:R_P then store in temp3] [ELSEIF Q51a2p(R_P) is <3> then] [if onpath Q51a2p:R_P then store in temp3] [ELSEIF Q51a2p(R_P) is <4> then] [if onpath Q51a2p:R_P then store in temp3] [ELSEIF Q51a2p(R_P) is <5> then] [if onpath Q51a2p:R_P then store in temp3] [ENDIF] [if onpath Q51A22:R_P then store Q51A22(R_P) in temp4] $d >Q51A24< What is your best estimate of the correct total amount [fill temptext] received from Supplemental Unemployment Benefits during 1996? PREVIOUS ENTRIES: Q51A21: $[fill Q51A21(R_P)] Q51A2p: [fill temp3] Q51A22: [fill temp4] ENTER DOLLAR AMOUNT [blind] Don't know Refused ===>[N]$_,___,___ .00 $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>C-Q51A2T< [store < > in Q51A2T(R_P)] [NIF Q51A23(R_P) is <1> OR Q51A23(R_P) is then] [if onpath Q51A23:R_P then store T51A23(R_P) in Q51A2T(R_P)] [ELSEIF Q51A23(R_P) is then] [if onpath Q51A23:R_P then store T51A23(R_P) in Q51A2T(R_P)] [ENDIF] [store <0> in index] [NIF Q51A23(R_P) is <2> then] [if onpath Q51A23:R_P then store <1> in index] [ENDIF] [NIF Q51A24(R_P) is and index eq <1> then] [if onpath Q51A24:R_P then store T51A23(R_P) in Q51A2T(R_P)] [ELSEIF Q51A24(R_P) is and index eq <1> then] [if onpath Q51A24:R_P then store T51A23(R_P) in Q51A2T(R_P)] [ELSEIF index eq <1> then] [if onpath Q51A24:R_P then store Q51A24(R_P) in Q51A2T(R_P)] [ENDIF] [NIF Q51A2p(R_P) is <5> then] [if onpath Q51A2p:R_P then store Q51A21(R_P) in Q51A2T(R_P)] [ENDIF] [NIF Q51A21(R_P) is then] [if onpath Q51A21:R_P then store in Q51A2T(R_P)] [if onpath Q51A21:R_P then goto CK-Q51A3] [ENDIF] [NIF Q51A2p(R_P) is then] [if onpath Q51A2p:R_P then store in Q51A2T(R_P)] [if onpath Q51A2p:R_P then goto ck-Q51A3] [ENDIF] [NIF Q51A22(R_P) is then] [if onpath Q51A22:R_P then store in Q51A2T(R_P)] [if onpath Q51A22:R_P then goto ck-Q51A3] [ENDIF] $end ---------------------------------------------------------------------- $>ck-Q51A3< [if Q51A3(R_P) is <1> then goto Q51A3p] [goto Q52a] $end ---------------------------------------------------------------------- $>Q51A3p< [combine name(R_P) <'s> into temptext] [If R_P eq respli then store in temptext] $d >Q51A3p< What is the easiest way for you to tell us [fill temptext] Union Unemployment or Strike Benefits; weekly, every other week, twice a month, monthly, or yearly? <1> Weekly <2> Every other week (bi-weekly) <3> Twice a month <4> Monthly <5> Yearly [blind] Don't know [goto C-Q51A3T] Refused [goto C-Q51A3T] ===>_ $end --------------------------------------------------------------------------- $>Q51A31< [store name(R_P) in temptext] [if R_P eq respli then store in temptext] [store in temp2] [store <1> in xbad(1)] [NIF Q51A3p(R_P) is <1> then] [if onpath Q51A3p:R_P then store in temp2] [ELSEIF Q51A3p(R_P) is <2> then] [if onpath Q51A3p:R_P then store in temp2] [ELSEIF Q51A3p(R_P) is <3> then] [if onpath Q51A3p:R_P then store in temp2] [ELSEIF Q51A3p(R_P) is <4> then] [if onpath Q51A3p:R_P then store in temp2] [ENDIF] $d >Q51A31< How much did [fill temptext] receive [fill temp2] Union Unemployment or Strike Benefits during 1996? ENTER DOLLAR AMOUNT [blind] Don't know [goto C-Q51A3T] Refused [goto C-Q51A3T] ===>[N]$_,___,___ .00 $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>CK-Q51A3C1< [NIF Q51A3p(R_P) is <5> then] [if onpath Q51A3p:R_P then goto Q51A3c1] [ENDIF] [goto Q51A32] $end ---------------------------------------------------------------------------- $>Q51A3C1< [store <0> in index] [if onpath Q51A31:R_P then convert Q51A31(R_P) character to index integer] [if index gt <20000> then goto C251A3] [goto C-Q51A3T] $end ---------------------------------------------------------------------- $>C251A3< [if C251A3(R_P) is <2> then reset C251A3] $d >C251A3< **** DO NOT READ TO THE RESPONDENT ***** THE ANNUAL RATE APPEARS OUT OF RANGE. THE TOTAL UNION UNEMPLOYMENT OR STRIKE BENEFITS RECEIVED IN 1996 WAS $[fill Q51A31(R_P)]. IS THIS A CORRECT ENTRY? <1> Yes [goto C-Q51a3T] <2> No [backto Q51A31:R_P] ===>_ $end ---------------------------------------------------------------------------- $>Q51A32< [store <0> in xbad(1)] [store <1> in xbad(2)] [store name(R_P) in temptext] [store < > in temp2] [store < > in temp3] [if R_P eq respli then store in temptext] [NIF Q51A3p(R_P) is <1> then] [if onpath Q51A3p:R_P then store <52> in xbad(1)] [if onpath Q51A3p:R_P then store in temp2] [if onpath Q51A3p:R_P then store <{1-52}> in temp3] [ELSEIF Q51A3p(R_P) is <2> then] [if onpath Q51A3p:R_P then store <26> in xbad(1)] [if onpath Q51A3p:R_P then store in temp2] [if onpath Q51A3p:R_P then store <{1-26}> in temp3] [ELSEIF Q51A3p(R_P) is <3> then] [if onpath Q51A3p:R_P then store <24> in xbad(1)] [if onpath Q51A3p:R_P then store in temp2] [if onpath Q51A3p:R_P then store <{1-24}> in temp3] [ELSEIF Q51A3p(R_P) is <4> then] [if onpath Q51A3p:R_P then store <12> in xbad(1)] [if onpath Q51A3p:R_P then store in temp2] [if onpath Q51A3p:R_P then store <{1-12}> in temp3] [ENDIF] $d >Q51A32< How many [fill temp2] payments did [fill temptext] receive from Union Unemployment or Strike Benefits during 1996? [fill temp3] [blind] Don't know [goto C-Q51A3T] Refused [goto C-Q51A3T] ===>__ $edit [notless xbad(2)] [notgreater xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>Q51A33< [store <0> in index] [store <0> in index2] [store name(R_P) in temptext] [store < > in T51A33(R_P)] [store <0> in index] [store <0> in index2] [if R_P eq respli then store in temptext] [if onpath Q51A31:R_P then convert Q51A31(R_P) character to index integer] [if onpath Q51A32:R_P then convert Q51A32(R_P) character to index2 integer] [multiply index by index2] [convert index integer to T51A33(R_P) character] $d >Q51A33< According to my calculations [fill temptext] received [fill T51A33(R_P)] dollars altogether from Union Unemployment or Strike Benefits during 1996. Does that sound about right? <1> Yes <2> No [goto Q51A34] [blind] Don't know Refused ===>_ [goto C-Q51A3T] $end ---------------------------------------------------------------------------- $>Q51A34< [store name(R_P) in temptext] [store < > in temp2] [store < > in temp3] [store < > in temp4] [store <0> in index] [store <0> in index2] [store <1> in xbad(1)] [if R_P eq respli then store in temptext] [NIF Q51a3p(R_P) is <1> then] [if onpath Q51a3p:R_P then store in temp3] [ELSEIF Q51a3p(R_P) is <2> then] [if onpath Q51a3p:R_P then store in temp3] [ELSEIF Q51a3p(R_P) is <3> then] [if onpath Q51a3p:R_P then store in temp3] [ELSEIF Q51a3p(R_P) is <4> then] [if onpath Q51a3p:R_P then store in temp3] [ELSEIF Q51a3p(R_P) is <5> then] [if onpath Q51a3p:R_P then store in temp3] [ENDIF] [if onpath Q51A32:R_P then store Q51A32(R_P) in temp4] $d >Q51A34< What is your best estimate of the correct total amount [fill temptext] received from Union Unemployment or Strike Benefits during 1996? PREVIOUS ENTRIES: Q51A31: $[fill Q51A31(R_P)] Q51A3p: [fill temp3] Q51A32: [fill temp4] ENTER DOLLAR AMOUNT [blind] Don't know Refused ===>[N]$_,___,___ .00 $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>C-Q51A3T< [store < > in Q51A3T(R_P)] [NIF Q51A33(R_P) is <1> OR Q51A33(R_P) is then] [if onpath Q51A33:R_P then store T51A33(R_P) in Q51A3T(R_P)] [ELSEIF Q51A33(R_P) is then] [if onpath Q51A33:R_P then store T51A33(R_P) in Q51A3T(R_P)] [ENDIF] [store <0> in index] [NIF Q51A33(R_P) is <2> then] [if onpath Q51A33:R_P then store <1> in index] [ENDIF] [NIF Q51A34(R_P) is and index eq <1> then] [if onpath Q51A34:R_P then store T51A33(R_P) in Q51A3T(R_P)] [ELSEIF Q51A34(R_P) is and index eq <1> then] [if onpath Q51A34:R_P then store T51A33(R_P) in Q51A3T(R_P)] [ELSEIF index eq <1> then] [if onpath Q51A34:R_P then store Q51A34(R_P) in Q51A3T(R_P)] [ENDIF] [NIF Q51A3p(R_P) is <5> then] [if onpath Q51A3p:R_P then store Q51A31(R_P) in Q51A3T(R_P)] [ENDIF] [NIF Q51A31(R_P) is then] [if onpath Q51A31:R_P then store in Q51A3T(R_P)] [ENDIF] [NIF Q51A3p(R_P) is then] [if onpath Q51A3p:R_P then store in Q51A3T(R_P)] [ENDIF] [NIF Q51A32(R_P) is then] [if onpath Q51A32:R_P then store in Q51A3T(R_P)] [ENDIF] $end ---------------------------------------------------------------------- Comment: This is item 53a in the 1989 CPS-665. $>Q52a< [store name(R_P) in temptext] [if RESPLI eq R_P then store in temptext] $d >Q52a< During 1996 did [fill temptext] receive any Worker's Compensation payments or other payments as a result of a job related injury or illness? EXCLUDE SICK PAY AND DISABILITY RETIREMENT. <1> Yes [goto q52b] <2> No [blind] Refused Don't Know ===>_ [goto sup-comp] $end ----------------------------------------------------------------------------- Comment: This is item 53b in the 1989 CPS-665. $>Q52b< [indirect] $d >Q52b< What was the source of these payments? <1> State Worker's Compensation <2> Employer or employer's insurance <3> Own insurance <4> Other [blind] Refused [goto sup-comp] Don't Know ===>_ $end ----------------------------------------------------------------------------- $>S52cp-ck< [NIF Q52a(R_P) is <1> then] [if onpath Q52a:R_P then goto Q52cp] [ENDIF] [goto sup-comp] $end ---------------------------------------------------------------------- $>Q52cp< [NIF R_P eq respli then] [store in temp2] [ELSE] [combine name(R_P) <'s> into temp2] [ENDIF] [store < > in TQ52C3(R_P)] THE FOLLOWING CODE IS USED TO RESET DK SCREENS [NIF Q52cp(R_P) is AND DKFLAG eq <1> then] [reset Q52cp] [ENDIF] $d >Q52cp< What is the easiest way for you to tell us [fill temp2] Worker's Compensation; weekly, every other week, twice a month, monthly, or yearly? <1> Weekly <2> Every other week (bi-weekly) <3> Twice a month <4> Monthly <5> Yearly [blind] Don't know [goto C-Q52CT] Refused [goto C-Q52CT] ===>_ $end --------------------------------------------------------------------------- $>Q52c1< [store name(R_P) in temptext] [if R_P eq respli then store in temptext] [store in temp2] [store <1> in xbad(1)] [NIF Q52cp(R_P) is <1> then] [if onpath Q52cp:R_P then store in temp2] [ELSEIF Q52cp(R_P) is <2> then] [if onpath Q52cp:R_P then store in temp2] [ELSEIF Q52cp(R_P) is <3> then] [if onpath Q52cp:R_P then store in temp2] [ELSEIF Q52cp(R_P) is <4> then] [if onpath Q52cp:R_P then store in temp2] [ENDIF] [store < > in TQ52C3(R_P)] THE FOLLOWING CODE IS USED TO RESET DK SCREENS [NIF Q52c1(R_P) is AND DKFLAG eq <1> then] [reset Q52c1] [ENDIF] $d >Q52c1< How much did [fill temptext] receive [fill temp2] Worker's Compensation during 1996? ENTER DOLLAR AMOUNT [blind] Don't know [goto C-Q52Ct] Refused [goto C-Q52CT] ===>[N]$_,___,___ .00 $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>Q52c1-CK< [store < > in TQ52C3(R_P)] [NIF Q52cp(R_P) is <5> then] [if onpath Q52cp:R_P then goto Q52cC1] [ENDIF] [goto Q52c2] $end ---------------------------------------------------------------------------- $>Q52cC1< [store <0> in index] [if onpath Q52c1:R_P then convert Q52c1(R_P) character to index integer] [NIF index lt <1000> then] [goto Q52cC2] [ELSEIF index gt <20000> then] [goto Q52cC2] [ENDIF] [goto C-Q52Ct] $end --------------------------------------------------------------------------- $>Q52cC2< [if Q52cC2(R_P) is <2> then reset Q52cC2] $d >Q52cC2< **** DO NOT READ TO THE RESPONDENT ***** THE ANNUAL RATE APPEARS OUT OF RANGE. THE TOTAL WORKER'S COMPENSATION RECEIVED IN 1996 WAS $[fill Q52C1(R_P)]. IS THIS A CORRECT ENTRY? <1> Yes [goto C-Q52Ct] <2> No [backto Q52c1:R_P] ===>_ $end ---------------------------------------------------------------------------- $>Q52c2< [store <0> in xbad(1)] [store <1> in xbad(2)] [store name(R_P) in temptext] [store < > in temp2] [store < > in temp4] [if R_P eq respli then store in temptext] [NIF Q52cp(R_P) is <1> then] [if onpath Q52cp:R_P then store <52> in xbad(1)] [if onpath Q52cp:R_P then store in temp2] [if onpath Q52cp:R_P then store <{1-52}> in temp4] [ELSEIF Q52cp(R_P) is <2> then] [if onpath Q52cp:R_P then store <26> in xbad(1)] [if onpath Q52cp:R_P then store in temp2] [if onpath Q52cp:R_P then store <{1-26}> in temp4] [ELSEIF Q52cp(R_P) is <3> then] [if onpath Q52cp:R_P then store <24> in xbad(1)] [if onpath Q52cp:R_P then store in temp2] [if onpath Q52cp:R_P then store <{1-24}> in temp4] [ELSEIF Q52cp(R_P) is <4> then] [if onpath Q52cp:R_P then store <12> in xbad(1)] [if onpath Q52cp:R_P then store in temp2] [if onpath Q52cp:R_P then store <{1-12}> in temp4] [ENDIF] [store < > in TQ52C3(R_P)] THE FOLLOWING CODE IS USED TO RESET DK SCREENS [NIF Q52c2(R_P) is AND DKFLAG eq <1> then] [reset Q52c2] [ENDIF] $d >Q52c2< How many [fill temp2] payments did [fill temptext] receive from Worker's Compensation during 1996? [fill temp4] [blind] Don't know [goto C-Q52CT] Refused [goto C-Q52CT] ===>__ $edit [notless xbad(2)] [notgreater xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>Q52c3< [store <0> in index] [store <0> in index2] [store name(R_P) in temptext] [store < > in TQ52C3(R_P)] [if R_P eq respli then store in temptext] [if onpath Q52c1:R_P then convert Q52c1(R_P) character to index integer] [if onpath Q52c2:R_P then convert Q52c2(R_P) character to index2 integer] [multiply index by index2] [convert index integer to TQ52C3(R_P) character] $d >Q52c3< Then [fill temptext] received $[fill TQ52C3(R_P)] dollars altogether from Worker's Compensation during 1996. Does that sound about right? <1> Yes <2> No [goto Q52c4] [blind] Don't know Refused ===>_ [goto C-Q52Ct] $end ---------------------------------------------------------------------------- $>Q52c4< [store name(R_P) in temptext] [store < > in temp2] [store < > in temp3] [store < > in temp4] [store <1> in xbad(1)] [store <0> in index] [store <0> in index2] [if R_P eq respli then store in temptext] [NIF Q52cp(R_P) is <1> then] [if onpath Q52cp:R_P then store in temp3] [ELSEIF Q52cp(R_P) is <2> then] [if onpath Q52cp:R_P then store in temp3] [ELSEIF Q52cp(R_P) is <3> then] [if onpath Q52cp:R_P then store in temp3] [ELSEIF Q52cp(R_P) is <4> then] [if onpath Q52cp:R_P then store in temp3] [ELSEIF Q52cp(R_P) is <5> then] [if onpath Q52cp:R_P then store in temp3] [ENDIF] [if onpath Q52c2:R_P then store Q52c2(R_P) in temp4] $d >Q52c4< What is your best estimate of the correct total amount [fill temptext] received from Worker's Compensation during 1996? PREVIOUS ENTRIES: Q52c1: $[fill Q52c1(R_P)] Q52cp: [fill temp3] Q52c2: [fill temp4] ENTER DOLLAR AMOUNT [blind] Don't know Refused ===>[N]$_,___,___ .00 [goto C-Q52CT] $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>C-Q52CT< [store < > in Q52CT(R_P)] [NIF Q52C3(R_P) is <1> OR Q52C3(R_P) is then] [if onpath Q52C3:R_P then store TQ52C3(R_P) in Q52CT(R_P)] [ELSEIF Q52C3(R_P) is then] [if onpath Q52C3:R_P then store TQ52C3(R_P) in Q52CT(R_P)] [ENDIF] [store <0> in index] [NIF Q52C3(R_P) is <2> then] [if onpath Q52C3:R_P then store <1> in index] [ENDIF] [NIF Q52C4(R_P) is and index eq <1> then] [if onpath Q52C4:R_P then store TQ52C3(R_P) in Q52CT(R_P)] [ELSEIF Q52C4(R_P) is and index eq <1> then] [if onpath Q52C4:R_P then store TQ52C3(R_P) in Q52CT(R_P)] [ELSEIF index eq <1> then] [if onpath Q52C4:R_P then store Q52C4(R_P) in Q52CT(R_P)] [ENDIF] [NIF Q52Cp(R_P) is <5> then] [if onpath Q52Cp:R_P then store Q52C1(R_P) in Q52CT(R_P)] [ENDIF] [NIF Q52C1(R_P) is then] [if onpath Q52C1:R_P then store in Q52CT(R_P)] [ENDIF] [NIF Q52Cp(R_P) is then] [if onpath Q52Cp:R_P then store in Q52CT(R_P)] [ENDIF] [NIF Q52C2(R_P) is then] [if onpath Q52C2:R_P then store in Q52CT(R_P)] [ENDIF] [goto sup-comp] $end ---------------------------------------------------------------------- Comment: This item allows interviewers to skip over migration and work experience items for persons whom respondents don't know about. $>Sup-comp< [store <1> in dnper-s(R_P)] [roster loop] $end $>S-miss< [store <1> in mssper-s(R_P)] $end ============================================================================== $REND>WKYEAR< ============================================================================== Comment: For the next series of questions, the you/anyone in the household fill was added. Changed goto instruction for precodes 2 and R from now-q56ros to q57a. 3/88 DELETED CODING FOR ONE PERSON HOUSSEHOLDS BECAUSE IT MESSES UP ONPATH TESTS THAT OCCUR LATER IN THE INSTRUMENT 2/90 CMC (if NUMHOU eq 1 then goto now-q56-ros $>Q56a< [store in temptext] [if NUMHOU eq <1> then store in temptext] $d >Q56a< During 1996 did [fill temptext] receive any Social Security payments from the U.S. Government? <1> Yes [if NUMHOU eq <1> then goto NOW-Q56ROS] [goto q56b] <2> No [goto CHECK-56e] [blind] Refused Don't Know ===>_ [goto q57a] $end ------------------------------------------------------------------------------ $>Q56b< [multiple q56b-1 q56b-2 q56b-3 q56b-4 q56b-5 q56b-6 q56b-7 q56b-8] [multiple q56b-9 q56b-10 q56b-11 q56b-12 q56b-13 q56b-14 q56b-15 q56b-16] [store <1> in SUPFLG] ADDED 1997 CW **S [do index <1> <16>] [store < > in tempname(index)] [store < > in xbad(index)] [NIF AGERNG(index) lt <2> then] [convert index integer to xbad(index) character] [ELSEIF hhmem(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <9> then] [convert index integer to xbad(index) character] [ELSEIF PELIG(index) eq <12> OR hhmem(index) is <3> then] [convert index integer to xbad(index) character] [ENDIF] [end do] [do index <1> NROSIZ] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to tempname(index)(2:2) character] [ELSEIF index2 ge <10> then] [convert index2 integer to tempname(index)(1:2) character] [ENDIF] [store name(index) in tempname(index)(4:27)] [store relation(index) in tempname(index)(29:37)] [store <0> in index4] [convert xbad(index) character to index4 integer] [if index4 gt <0> then store < > in tempname(index)] [end do] $itemtable >Q56b< **READ ONLY IF NECESSARY** Who received Social Security payments either for themselves or as combined payments with other family members? ENTER LINE NUMBER OF GUARDIAN FOR PAYMENTS MADE TO CHILDREN UNDER 15. LN NAME RELATION LN NAME RELATION [fill/l tempname(1)] [fill tempname(9)] [fill/l tempname(2)] [fill tempname(10)] [fill/l tempname(3)] [fill tempname(11)] [fill/l tempname(4)] [fill tempname(12)] [fill/l tempname(5)] [fill tempname(13)] [fill/l tempname(6)] [fill tempname(14)] [fill/l tempname(7)] [fill tempname(15)] [fill/l tempname(8)] [fill tempname(16)] ENTER LINE NUMBER No more PROBE: Anyone else? ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ $end ----------------------------------------------------------------------------- $>Q56b-1< [within q56b] $d [none] <1-16> Refused [goto q57a] Don't Know [goto q57a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end $>Q56b-2< [within q56b] $d [none] <1-16> Refused [goto now-q56ros] Don't Know [goto now-q56ros] No more [goto now-q56ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q56b-1] $end $>Q56b-3< [within q56b] $d [none] <1-16> Refused [goto now-q56ros] Don't Know [goto now-q56ros] No more [goto now-q56ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q56b-1] [notequal q56b-2] $end $>Q56b-4< [within q56b] $d [none] <1-16> Refused [goto now-q56ros] Don't Know [goto now-q56ros] No more [goto now-q56ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q56b-1] [notequal q56b-2] [notequal q56b-3] $end $>Q56b-5< [within q56b] $d [none] <1-16> Refused [goto now-q56ros] Don't Know [goto now-q56ros] No more [goto now-q56ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q56b-1] [notequal q56b-2] [notequal q56b-3] [notequal q56b-4] $end $>Q56b-6< [within q56b] $d [none] <1-16> Refused [goto now-q56ros] Don't Know [goto now-q56ros] No more [goto now-q56ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q56b-1] [notequal q56b-2] [notequal q56b-3] [notequal q56b-4] [notequal q56b-5] $end $>Q56b-7< [within q56b] $d [none] <1-16> Refused [goto now-q56ros] Don't Know [goto now-q56ros] No more [goto now-q56ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q56b-1] [notequal q56b-2] [notequal q56b-3] [notequal q56b-4] [notequal q56b-5] [notequal q56b-6] $end $>Q56b-8< [within q56b] $d [none] <1-16> Refused [goto now-q56ros] Don't Know [goto now-q56ros] No more [goto now-q56ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q56b-1] [notequal q56b-2] [notequal q56b-3] [notequal q56b-4] [notequal q56b-5] [notequal q56b-6] [notequal q56b-7] $end $>Q56b-9< [within q56b] $d [none] <1-16> Refused [goto now-q56ros] Don't Know [goto now-q56ros] No more [goto now-q56ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q56b-1] [notequal q56b-2] [notequal q56b-3] [notequal q56b-4] [notequal q56b-5] [notequal q56b-6] [notequal q56b-7] [notequal Q56b-8] $end $>Q56b-10< [within q56b] $d [none] <1-16> Refused [goto now-q56ros] Don't Know [goto now-q56ros] No more [goto now-q56ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q56b-1] [notequal q56b-2] [notequal q56b-3] [notequal q56b-4] [notequal q56b-5] [notequal q56b-6] [notequal q56b-7] [notequal Q56b-8] [notequal Q56b-9] $end $>Q56b-11< [within q56b] $d [none] <1-16> Refused [goto now-q56ros] Don't Know [goto now-q56ros] No more [goto now-q56ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q56b-1] [notequal q56b-2] [notequal q56b-3] [notequal q56b-4] [notequal q56b-5] [notequal q56b-6] [notequal q56b-7] [notequal Q56b-8] [notequal Q56b-9] [notequal Q56b-10] $end $>Q56b-12< [within q56b] $d [none] <1-16> Refused [goto now-q56ros] Don't Know [goto now-q56ros] No more [goto now-q56ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q56b-1] [notequal q56b-2] [notequal q56b-3] [notequal q56b-4] [notequal q56b-5] [notequal q56b-6] [notequal q56b-7] [notequal Q56b-8] [notequal Q56b-9] [notequal Q56b-10] [notequal Q56b-11] $end $>Q56b-13< [within q56b] $d [none] <1-16> Refused [goto now-q56ros] Don't Know [goto now-q56ros] No more [goto now-q56ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q56b-1] [notequal q56b-2] [notequal q56b-3] [notequal q56b-4] [notequal q56b-5] [notequal q56b-6] [notequal q56b-7] [notequal Q56b-8] [notequal Q56b-9] [notequal Q56b-10] [notequal Q56b-11] [notequal Q56b-12] $end $>Q56b-14< [within q56b] $d [none] <1-16> Refused [goto now-q56ros] Don't Know [goto now-q56ros] No more [goto now-q56ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q56b-1] [notequal q56b-2] [notequal q56b-3] [notequal q56b-4] [notequal q56b-5] [notequal q56b-6] [notequal q56b-7] [notequal Q56b-8] [notequal Q56b-9] [notequal Q56b-10] [notequal Q56b-11] [notequal Q56b-12] [notequal Q56b-13] $end $>Q56b-15< [within q56b] $d [none] <1-16> Refused [goto now-q56ros] Don't Know [goto now-q56ros] No more [goto now-q56ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q56b-1] [notequal q56b-2] [notequal q56b-3] [notequal q56b-4] [notequal q56b-5] [notequal q56b-6] [notequal q56b-7] [notequal Q56b-8] [notequal Q56b-9] [notequal Q56b-10] [notequal Q56b-11] [notequal Q56b-12] [notequal Q56b-13] [notequal Q56b-14] $end $>Q56b-16< [within q56b] $d [none] <1-16> Refused Don't Know No more ===>__ [goto now-q56ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q56b-1] [notequal q56b-2] [notequal q56b-3] [notequal q56b-4] [notequal q56b-5] [notequal q56b-6] [notequal q56b-7] [notequal Q56b-8] [notequal Q56b-9] [notequal Q56b-10] [notequal Q56b-11] [notequal Q56b-12] [notequal Q56b-13] [notequal Q56b-14] [notequal Q56b-15] $end ------------------------------------------------------------------------------ $>NOW-Q56ROS< [store <1> in SUPFLG] ADDED 1997 CW **S [do index <1> <16>] [store <0> in Q56BLN(index)] [end do] [if onpath q56b-1 then convert q56b-1 character to Q56BLN(1) integer] [if onpath q56b-2 then convert q56b-2 character to Q56BLN(2) integer] [if onpath q56b-3 then convert q56b-3 character to Q56BLN(3) integer] [if onpath q56b-4 then convert q56b-4 character to Q56BLN(4) integer] [if onpath q56b-5 then convert q56b-5 character to Q56BLN(5) integer] [if onpath q56b-6 then convert q56b-6 character to Q56BLN(6) integer] [if onpath q56b-7 then convert q56b-7 character to Q56BLN(7) integer] [if onpath q56b-8 then convert q56b-8 character to Q56BLN(8) integer] [if onpath q56b-9 then convert q56b-9 character to Q56BLN(9) integer] [if onpath q56b-10 then convert q56b-10 character to Q56BLN(10) integer] [if onpath q56b-11 then convert q56b-11 character to Q56BLN(11) integer] [if onpath q56b-12 then convert q56b-12 character to Q56BLN(12) integer] [if onpath q56b-13 then convert q56b-13 character to Q56BLN(13) integer] [if onpath q56b-14 then convert q56b-14 character to Q56BLN(14) integer] [if onpath q56b-15 then convert q56b-15 character to Q56BLN(15) integer] [if onpath q56b-16 then convert q56b-16 character to Q56BLN(16) integer] [do index <1> <16>] [store <0> in tabindex(index)] [convert hhmem(index) character to tabindex(index) integer] [end do] [if NUMHOU eq <1> then tablook tabindex <1> Q56BLN(1)] [store <0> in Q56ROS_R_P] $end -------------------------------------------------------------------------------- $ROPEN>Q56ROS< $>AFT-Q56ROS< [goto check-56e] $end ============================================================================== $RBEGIN>Q56ROS< [maxelt 16] ============================================================================== $>pre-q56c< [if R_P gt NROSIZ then roster exit] [store <0> in index] [tablook Q56BLN q56ros_R_P index] [if index eq <0> then roster loop] [if Q56BLN(index) nq R_P then roster loop] $end ----------------------------------------------------------------------------- Comment: q56c (how many months) deleted. 3/88 ----------------------------------------------------------------------------- Comment: This is item 56c in the 1989 CPS-665. $>Q56dp< [combine name(R_P) <'s> into temptext] [If R_P eq respli then store in temptext] THE FOLLOWING CODE IS USED TO RESET DK SCREENS [NIF Q56dp(R_P) is AND DKFLAG eq <1> then] [reset Q56dp] [ENDIF] $d >Q56dp< What is the easiest way for you to tell us [fill temptext] Social Security payment; monthly, quarterly, or yearly? <1> monthly <2> quarterly <3> yearly [blind] Don't know [goto Q56d1] Refused [goto SSR] ===>_ $end --------------------------------------------------------------------------- $>Q56d< [store name(R_P) in temptext] [if R_P eq respli then store in temptext] [store in temp] [store <1> in xbad(1)] [NIF Q56dp(R_P) is <1> then] [if onpath Q56dp:R_P then store in temp] [ELSEIF Q56dp(R_P) is <2> then] [if onpath Q56dp:R_P then store in temp] [ENDIF] [store < > in temp3] [do index <1> <16>] [if onpath Q56d:index then store <{A} Already included> in temp3] [end do] $d >Q56d< How much did [fill temptext] receive [fill temp] Social Security payments in 1996? ENTER DOLLAR AMOUNT [fill temp3] [blind] Don't know [goto Q56d1] Refused [goto SSR] Already included [goto SSR] ===>[N]$_,___,___ .00 [goto Q56d2] $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>Q56d1< [store name(R_P) in temptext] [if R_P eq respli then store in temptext] [store <1> in xbad(1)] THE FOLLOWING CODE IS USED TO RESET DK SCREENS [NIF Q56d1(R_P) is AND DKFLAG eq <1> then] [reset Q56d1] [ENDIF] $d >Q56d1< What is the amount of the Social Security payment [fill temptext] received last month? ENTER DOLLAR AMOUNT [blind] Don't know [goto SSR] Refused [goto SSR] ===>[N]$_,___,___ .00 $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>Q56d2< [store <0> in xbad(1)] [store <0> in index] [store name(R_P) in temptext] [store < > in temp2] [store < > in temp3] [if R_P eq respli then store in temptext] [NIF Q56dp(R_P) is <1> then] [if onpath Q56dp:R_P then store <12> in xbad(1)] [if onpath Q56dp:R_P then store in temp2] [if onpath Q56dp:R_P then store <{1-12}> in temp3] [ELSEIF Q56dp(R_P) is <3> then] [if onpath Q56dp:R_P then store <12> in xbad(1)] [if onpath Q56dp:R_P then store in temp2] [if onpath Q56dp:R_P then store <{1-12}> in temp3] [ELSEIF Q56dp(R_P) is <2> then] [if onpath Q56dp:R_P then store <4> in xbad(1)] [if onpath Q56dp:R_P then store in temp2] [if onpath Q56dp:R_P then store <{1-4}> in temp3] [ENDIF] [if onpath Q56d1:R_P then convert Q56d1(R_P) character to index integer] [NIF index ge <1> then] [store <12> in xbad(1)] [store in temp2] [store <{1-12}> in temp3] [ENDIF] THE FOLLOWING CODE IS USED TO RESET DK SCREENS [NIF Q56d2(R_P) is AND DKFLAG eq <1> then] [reset Q56d2] [ENDIF] [store <0> in xbad(2)] $d >Q56d2< For how many [fill temp2] did [fill temptext] receive Social Security in 1996? [fill temp3] [blind] Don't know [goto SSR] Refused [goto SSR] ===>__ $edit [notequal xbad(2)] [notless xbad(2)] [notgreater xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>Q56d3< [store < > in temp2] [store < > in temp3] [store <0> in rindex] [NIF Q56d(R_P) isnt or Q56d(R_P) isnt then] [if onpath Q56d:R_P then store Q56d(R_P) in temp2] [if onpath Q56d:R_P then store <42.50> in rindex] ** changed by Thuan-was 46.10 ** [if onpath Q56d:R_P then convert rindex real to temp3 character 5 2] [ENDIF] [NIF Q56d1(R_P) isnt or Q56d1(R_P) isnt then] [if onpath Q56d1:R_P then store Q56d1(R_P) in temp2] [if onpath Q56d1:R_P then store <43.80> in rindex] ** changed by Thuan 11/20/96 ** [if onpath Q56d1:R_P then convert rindex real to temp3 character 5 2] [ENDIF] $d >Q56d3< Is this $[fill temp2] before or after the $[fill temp3] per month medicare deduction? <1> After <2> Before (or no medicare deduction) [blind] Don't know Refused ===>_ $end ---------------------------------------------------------------------------- $>Q56d3-CK< [NIF Q56d1(R_P) isnt AND Q56d1(R_P) isnt then] [if onpath Q56d1:R_P then goto Q56d4] [ENDIF] [store <0> in index] [NIF Q56d(R_P) isnt and Q56d(R_P) isnt then] [if onpath Q56d:R_P then store <1> in index] [ENDIF] [NIF Q56d2(R_P) isnt and Q56d2(R_P) isnt then] [if onpath Q56d2:R_P then add <10> to index] [ENDIF] [NIF Q56dp(R_P) is <1> or Q56dp(R_P) is <2> then] [if onpath Q56dp:R_P then add <100> to index] [ENDIF] [if index eq <111> then goto Q56d5] [NIF Q56dp(R_P) is <3> then] [if onpath Q56dp:R_P then goto Q56dC1] [ENDIF] $end ---------------------------------------------------------------------------- $>Q56d4< $d >Q56d4< Was the cost of living increase the only change which occurred in monthly payments? <1> Yes <2> No [goto Q56d6] [blind] Don't know Refused ===>__ [goto Q56d5] $end ---------------------------------------------------------------------------- $>Q56dC1< [store <0> in index] [if onpath Q56d:R_P then convert Q56d(R_P) character to index integer] [NIF index lt <1000> then] [goto Q56dC2] [ELSEIF index gt <20000> then] [goto Q56dC2] [ENDIF] [goto SSR] $end --------------------------------------------------------------------------- $>Q56dC2< [if Q56dC2(R_P) is <2> then reset Q56dC2] [store <0> in rindex] [store <0> in rindex2] [NIF Q56d(R_P) isnt AND Q56d(R_P) isnt then] [if onpath Q56d:R_P then convert Q56d(R_P) character to rindex real] [ENDIF] [NIF Q56d2(R_P) isnt AND Q56d2(R_P) isnt then] [if onpath Q56d2:R_P then convert Q56d2(R_P) character to rindex2 real] [ENDIF] [store Q56d(R_P) in temptext] [NIF Q56d3(R_P) is <1> then] [if onpath Q56d3:R_P then multiply rindex2 by <42.50>] [if onpath Q56d3:R_P then add rindex2 to rindex] [if onpath Q56d3:R_P then convert rindex real to temptext character 10 0] [ENDIF] $d >Q56dC2< **** DO NOT READ TO THE RESPONDENT ***** THE ANNUAL RATE APPEARS OUT OF RANGE. THE TOTAL SOCIAL SECURITY RECEIVED IN 1996 WAS $[fill temptext]. IS THIS A CORRECT ENTRY? <1> Yes [goto SSR] <2> No [backto Q56d:R_P] ===>_ $end ---------------------------------------------------------------------------- $>Q56d5< [store <0> in r-Q56do] [store < > in Q56dO(R_P)] [store <0> in rindex] [store <0> in rindex2] [store <0> in rindex3] [NIF Q56d(R_P) isnt AND Q56d(R_P) isnt then] [if onpath Q56d:R_P then convert Q56d(R_P) character to r-Q56do real] [ENDIF] [store <0> in index] [store <0> in index2] [NIF Q56d3(R_P) isnt <2> then] [if onpath Q56d3:R_P then store <1> in index] [ENDIF] [NIF Q56dp(R_P) is <1> AND index eq <1> then] [if onpath Q56dp:R_P then add <42.50> to r-Q56do] [ELSEIF Q56dp(R_P) is <2> AND index eq <1> then] [if onpath Q56dp:R_P then add <127.50> to r-Q56do] (3 times 42.50) [ELSEIF Q56dp(R_P) is <3> AND index eq <1> then] [if onpath Q56dp:R_P then convert Q56d2(R_P) character to rindex real] [if onpath Q56dp:R_P then multiply rindex by <42.50>] [if onpath Q56dp:R_P then add rindex to r-Q56do] [ENDIF] [store R-q56do in rindex] [if rindex nq <0.0> then convert rindex real to Q56dO(R_P) character 10 0] [store <0> in r-Q56d1o] [store < > in Q56d1O(R_P)] [store <0> in rindex] [NIF Q56d1(R_P) isnt AND Q56d1(R_P) isnt then] [if onpath Q56d1:R_P then convert Q56d1(R_P) character to r-Q56d1o real] [ENDIF] [store <0> in index] [store <0> in index2] [NIF Q56d3(R_P) isnt <2> then] [if onpath Q56d3:R_P then add <43.80> to r-q56d1o] ** changed by Thuan-was 42.50 ** [ENDIF] [store r-q56d1o in rindex] [if rindex nq <0.0> then convert rindex real to Q56d1O(R_P) character 10 0] [store <0> in index] [NIF Q56d(R_P) isnt AND Q56d(R_P) isnt then] [if onpath Q56d:R_P then store <1> in index] [ENDIF] [store <0> in rindex] [store <0> in rindex2] [store <0> in rindex3] [NIF Q56d2(R_P) isnt AND Q56d2(R_P) isnt then] [if onpath Q56d2:R_P then convert Q56d2(R_P) character to rindex real] [ENDIF] [NIf Q56dp(R_P) is <1> OR Q56dp(R_P) is <2> then] [if onpath Q56dp:R_P then store r-Q56do in rindex3] [if onpath Q56dp:R_P then multiply rindex3 by rindex] [if onpath Q56dp:R_P then convert rindex3 real to TQ56D5(R_P) character 10 0] [ENDIF] [store <0> in index] [NIF Q56d1(R_P) isnt AND Q56d1(R_P) isnt then] [if onpath Q56d1:R_P then store <1> in index] [ENDIF] [store <0> in rindex] [store <0> in rindex2] [store <0> in rindex3] [store <0> in rindex4] [NIF Q56d2(R_P) isnt AND Q56d2(R_P) isnt then] [if onpath Q56d2:R_P then convert Q56d2(R_P) character to rindex real] [ENDIF] [NIf Q56d4(R_P) is <1> OR Q56d4(R_P) is then] [if onpath Q56d4:R_P then store r-Q56d1o in rindex2] [if onpath Q56d4:R_P then multiply rindex2 by rindex] [if onpath Q56d4:R_P then multiply rindex2 by <0.9718>] ** changed by Thuan-was 0.9747 ** [if onpath Q56d4:R_P then convert rindex2 real to TQ56D5(R_P) character 10 0] [ENDIF] [store <0> in index3] [store <0> in index4] [store <0> in index5] [store name(R_P) in temptext] [if R_P eq respli then store in temptext] $d >Q56d5< According to my calculations [fill temptext] received $[fill TQ56D5(R_P)] dollars altogether from Social Security in 1996. Does that sound about right? <1> Yes <2> No [goto Q56d6] [blind] Don't know Refused ===>_ [goto SSR] $end ---------------------------------------------------------------------------- $>Q56d6< [store name(R_P) in temptext] [store < > in temp2] [store < > in temp3] [store in temp4] [store < > in temp5] [store < > in temp6] [store <1> in xbad(1)] [store <0> in index] [if R_P eq respli then store in temptext] [if onpath Q56d:R_P then convert Q56d(R_P) character to index integer] [if onpath Q56d1:R_P then convert Q56d1(R_P) character to index2 integer] [NIF Q56d3(R_P) is <1> then] [if onpath Q56d3:R_P then store <1> in index3] [ENDIF] [NIF index ge <1> then] [store Q56d(R_P) in temp3] [store in temp2] [if index3 eq <1> then store <42.50> in rindex] ** changed by Thuan-was 46.10 ** [if index3 eq <1> then convert rindex real to temp4 character 5 2] [if index3 eq <1> then combine temp4 < per month> into temp4] [store < > in temp5] [store < > in temp6] [ENDIF] [store <0> in rindex] [store <0> in rindex2] [NIF index2 ge <1> then] [store Q56d1(R_P) in temp3] [store in temp2] [if index3 eq <1> then store <43.80> in rindex] ** changed by Thuan-was 42.50 ** [if index3 eq <1> then convert rindex real to temp4 character 5 2] [if index3 eq <1> then combine temp4 < per month> into temp4] [if onpath Q56d4:R_P then store in temp5] [if onpath Q56d4:R_P then convert Q56d1(R_P) character to rindex2 real] [if onpath Q56d4:R_P then store <0.9718> in rindex] ** changed by Thuan 11/20/96 ** [if onpath Q56d4:R_P then multiply rindex by rindex2] [if onpath Q56d4:R_P then subtract rindex from rindex2] [if onpath Q56d4:R_P then convert rindex2 real to temp8 character 6 2] [if onpath Q56d4:R_P then combine <$> temp8 < subtracted per month> into temp6] [ENDIF] [store < > in temp7] [NIF Q56dp(R_P) is <1> then] [if onpath Q56dp:R_P then store in temp7] [ELSEIF Q56dp(R_P) is <2> then] [if onpath Q56dp:R_P then store in temp7] [ELSEIF Q56dp(R_P) is <3> then] [if onpath Q56dp:R_P then store in temp7] [ENDIF] $d >Q56d6< What is your best estimate of the correct amount [fill temptext] received in Social Security during 1996? PREVIOUS ENTRIES: [fill temp2] $[fill temp3] Q56dp: [fill temp7] Q56d2: [fill Q56d2(R_P)] Q56d3: [fill temp4] [fill temp5] [fill temp6] ENTER DOLLAR AMOUNT [blind] Don't know Refused ===>[N]$_,___,___ .00 $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>SSR< [multiple SSR1 SSR2 SSR3 SSR4 SSR5 SSR6 SSR7 SSR8] [store name(R_P) in temptext] [store in temp2] [if R_P eq respli then store in temptext] [if R_P eq respli then store in temp2] [store <0> in index2] [do index <1> <16>] [convert age(index) character to age-i(index) integer] [NIF AGERNG(index) gt <2> AND AGE(index) is then] [ELSEIF AGERNG(index) gt <2> AND AGE(index) is then] [ELSEIF hhmem(index) is <2> then] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <2> then] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <9> then] [ELSEIF PELIG(index) eq <12> OR hhmem(index) is <3> then] [ELSEIF age-i(index) gt <23> then] [ELSE] [add <1> to index2] [ENDIF] [end do] $itemtable >SSR< What were the reasons [fill temptext] [fill temp2] getting Social Security in 1996? PROBE: Any other reason? No more <1> Retired <2> Disabled <3> Widowed <4> Spouse <5> Surviving child <6> Dependent child <7> On behalf of surviving, dependent or disabled children <8> Other ===>_ ===>_ ===>_ ===>_ ===>_ ===>_ ===>_ ===>_ $end ---------------------------------------------------------------------- $>SSR1< [within SSR] $d [none] <1-8> [goto C-Q56DT] [goto C-Q56DT] $end $>SSR2< [within SSR] $d [none] <1-8> [goto PRE-SSC] $edit [notequal SSR1(R_P)] $end $>SSR3< [within SSR] $d [none] <1-8> [goto PRE-SSC] $edit [notequal SSR1(R_P)] [notequal SSR2(R_P)] $end $>SSR4< [within SSR] $d [none] <1-8> [goto PRE-SSC] $edit [notequal SSR1(R_P)] [notequal SSR2(R_P)] [notequal SSR3(R_P)] $end $>SSR5< [within SSR] $d [none] <1-8> [goto PRE-SSC] $edit [notequal SSR1(R_P)] [notequal SSR2(R_P)] [notequal SSR3(R_P)] [notequal SSR4(R_P)] $end $>SSR6< [within SSR] $d [none] <1-8> [goto PRE-SSC] $edit [notequal SSR1(R_P)] [notequal SSR2(R_P)] [notequal SSR3(R_P)] [notequal SSR4(R_P)] [notequal SSR5(R_P)] $end $>SSR7< [within SSR] $d [none] <1-8> [goto PRE-SSC] $edit [notequal SSR1(R_P)] [notequal SSR2(R_P)] [notequal SSR3(R_P)] [notequal SSR4(R_P)] [notequal SSR5(R_P)] [notequal SSR6(R_P)] $end $>SSR8< [within SSR] $d [none] <1-8> [goto PRE-SSC] $edit [notequal SSR1(R_P)] [notequal SSR2(R_P)] [notequal SSR3(R_P)] [notequal SSR4(R_P)] [notequal SSR5(R_P)] [notequal SSR6(R_P)] [notequal SSR7(R_P)] $end ---------------------------------------------------------------------- $>PRE-SSC< [store <0> in index] [NIF SSR1(R_P) is <7> then] [if onpath SSR1:R_P then add <1> to index] [ENDIF] [NIF SSR2(R_P) is <7> then] [if onpath SSR2:R_P then add <1> to index] [ENDIF] [NIF SSR3(R_P) is <7> then] [if onpath SSR3:R_P then add <1> to index] [ENDIF] [NIF SSR4(R_P) is <7> then] [if onpath SSR4:R_P then add <1> to index] [ENDIF] [NIF SSR5(R_P) is <7> then] [if onpath SSR5:R_P then add <1> to index] [ENDIF] [NIF SSR6(R_P) is <7> then] [if onpath SSR6:R_P then add <1> to index] [ENDIF] [NIF SSR7(R_P) is <7> then] [if onpath SSR7:R_P then add <1> to index] [ENDIF] [NIF SSR8(R_P) is <7> then] [if onpath SSR8:R_P then add <1> to index] [ENDIF] [if index eq <0> then goto C-Q56DT] [store <0> in index2] [do index <1> <16>] [convert age(index) character to age-i(index) integer] [NIF AGERNG(index) ge <2> AND age(index) is then] [ELSEIF AGERNG(index) ge <2> AND age(index) is then] [ELSEIF hhmem(index) is <2> then] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <2> then] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <9> then] [ELSEIF PELIG(index) eq <12> OR hhmem(index) is <3> then] [ELSEIF age-i(index) gt <14> then] [ELSE] [add <1> to index2] [ENDIF] [end do] [if index2 eq <0> then goto C-Q56DT] [if index2 eq <1> then goto SSCR] $end ---------------------------------------------------------------------- $>SSC< [multiple SSC1 SSC2 SSC3 SSC4 SSC5 SSC6 SSC7 SSC8] [multiple SSC9 SSC10 SSC11 SSC12 SSC13 SSC14 SSC15 SSC16] [do index <1> <16>] [store < > in tempname(index)] [store < > in xbad(index)] [convert age(index) character to age-i(index) integer] [NIF hhmem(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF AGE(index) is AND AGERNG(index) ge <2> then] [convert index integer to xbad(index) character] [ELSEIF AGE(index) is AND AGERNG(index) ge <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <9> then] [convert index integer to xbad(index) character] [ELSEIF PELIG(index) eq <12> OR hhmem(index) is <3> then] [convert index integer to xbad(index) character] [ELSEIF age-i(index) gt <14> then] [convert index integer to xbad(index) character] [ENDIF] [end do] [do index <1> NROSIZ] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to tempname(index)(2:2) character] [ELSEIF index2 ge <10> then] [convert index2 integer to tempname(index)(1:2) character] [ENDIF] [store name(index) in tempname(index)(4:27)] [store relation(index) in tempname(index)(29:37)] [store <0> in index4] [convert xbad(index) character to index4 integer] [if index4 gt <0> then store < > in tempname(index)] [end do] $itemtable >SSC< Which children under age 15 were receiving Social Security in 1996? LN NAME RELATION LN NAME RELATION [fill/l tempname(1)] [fill tempname(9)] [fill/l tempname(2)] [fill tempname(10)] [fill/l tempname(3)] [fill tempname(11)] [fill/l tempname(4)] [fill tempname(12)] [fill/l tempname(5)] [fill tempname(13)] [fill/l tempname(6)] [fill tempname(14)] [fill/l tempname(7)] [fill tempname(15)] [fill/l tempname(8)] [fill tempname(16)] ENTER LINE NUMBER No more None of the above PROBE: Anyone else? ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ $end ----------------------------------------------------------------------------- $>SSC1< [within SSC] $d [none] <1-16> Refused [goto C-q56dt] Don't Know [goto C-Q56dt] None of the above [goto C-Q56dt] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end $>SSC2< [within SSC] $d [none] <1-16> No more [goto SSCR] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal SSC1(R_P)] $end $>SSC3< [within SSC] $d [none] <1-16> No more [goto SSCR] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal SSC1(R_P)] [notequal SSC2(R_P)] $end $>SSC4< [within SSC] $d [none] <1-16> No more [goto SSCR] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal SSC1(R_P)] [notequal SSC2(R_P)] [notequal SSC3(R_P)] $end $>SSC5< [within SSC] $d [none] <1-16> No more [goto SSCR] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal SSC1(R_P)] [notequal SSC2(R_P)] [notequal SSC3(R_P)] [notequal SSC4(R_P)] $end $>SSC6< [within SSC] $d [none] <1-16> No more [goto SSCR] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal SSC1(R_P)] [notequal SSC2(R_P)] [notequal SSC3(R_P)] [notequal SSC4(R_P)] [notequal SSC5(R_P)] $end $>SSC7< [within SSC] $d [none] <1-16> No more [goto SSCR] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal SSC1(R_P)] [notequal SSC2(R_P)] [notequal SSC3(R_P)] [notequal SSC4(R_P)] [notequal SSC5(R_P)] [notequal SSC6(R_P)] $end $>SSC8< [within SSC] $d [none] <1-16> No more [goto SSCR] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal SSC1(R_P)] [notequal SSC2(R_P)] [notequal SSC3(R_P)] [notequal SSC4(R_P)] [notequal SSC5(R_P)] [notequal SSC6(R_P)] [notequal SSC7(R_P)] $end $>SSC9< [within SSC] $d [none] <1-16> No more [goto SSCR] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal SSC1(R_P)] [notequal SSC2(R_P)] [notequal SSC3(R_P)] [notequal SSC4(R_P)] [notequal SSC5(R_P)] [notequal SSC6(R_P)] [notequal SSC7(R_P)] [notequal SSC8(R_P)] $end $>SSC10< [within SSC] $d [none] <1-16> No more [goto SSCR] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal SSC1(R_P)] [notequal SSC2(R_P)] [notequal SSC3(R_P)] [notequal SSC4(R_P)] [notequal SSC5(R_P)] [notequal SSC6(R_P)] [notequal SSC7(R_P)] [notequal SSC8(R_P)] [notequal SSC9(R_P)] $end $>SSC11< [within SSC] $d [none] <1-16> No more [goto SSCR] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal SSC1(R_P)] [notequal SSC2(R_P)] [notequal SSC3(R_P)] [notequal SSC4(R_P)] [notequal SSC5(R_P)] [notequal SSC6(R_P)] [notequal SSC7(R_P)] [notequal SSC8(R_P)] [notequal SSC9(R_P)] [notequal SSC10(R_P)] $end $>SSC12< [within SSC] $d [none] <1-16> No more [goto SSCR] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal SSC1(R_P)] [notequal SSC2(R_P)] [notequal SSC3(R_P)] [notequal SSC4(R_P)] [notequal SSC5(R_P)] [notequal SSC6(R_P)] [notequal SSC7(R_P)] [notequal SSC8(R_P)] [notequal SSC9(R_P)] [notequal SSC10(R_P)] [notequal SSC11(R_P)] $end $>SSC13< [within SSC] $d [none] <1-16> No more [goto SSCR] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal SSC1(R_P)] [notequal SSC2(R_P)] [notequal SSC3(R_P)] [notequal SSC4(R_P)] [notequal SSC5(R_P)] [notequal SSC6(R_P)] [notequal SSC7(R_P)] [notequal SSC8(R_P)] [notequal SSC9(R_P)] [notequal SSC10(R_P)] [notequal SSC11(R_P)] [notequal SSC12(R_P)] $end $>SSC14< [within SSC] $d [none] <1-16> No more [goto SSCR] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal SSC1(R_P)] [notequal SSC2(R_P)] [notequal SSC3(R_P)] [notequal SSC4(R_P)] [notequal SSC5(R_P)] [notequal SSC6(R_P)] [notequal SSC7(R_P)] [notequal SSC8(R_P)] [notequal SSC9(R_P)] [notequal SSC10(R_P)] [notequal SSC11(R_P)] [notequal SSC12(R_P)] [notequal SSC13(R_P)] $end $>SSC15< [within SSC] $d [none] <1-16> No more [goto SSCR] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal SSC1(R_P)] [notequal SSC2(R_P)] [notequal SSC3(R_P)] [notequal SSC4(R_P)] [notequal SSC5(R_P)] [notequal SSC6(R_P)] [notequal SSC7(R_P)] [notequal SSC8(R_P)] [notequal SSC9(R_P)] [notequal SSC10(R_P)] [notequal SSC11(R_P)] [notequal SSC12(R_P)] [notequal SSC13(R_P)] [notequal SSC14(R_P)] $end $>SSC16< [within SSC] $d [none] <1-16> No more $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal SSC1(R_P)] [notequal SSC2(R_P)] [notequal SSC3(R_P)] [notequal SSC4(R_P)] [notequal SSC5(R_P)] [notequal SSC6(R_P)] [notequal SSC7(R_P)] [notequal SSC8(R_P)] [notequal SSC9(R_P)] [notequal SSC10(R_P)] [notequal SSC11(R_P)] [notequal SSC12(R_P)] [notequal SSC13(R_P)] [notequal SSC14(R_P)] [notequal SSC15(R_P)] $end ------------------------------------------------------------------------------ $>SSCR< [multiple SSCR1 SSCR2 SSCR3 SSCR4] [store <0> in index2] [store <0> in index3] [do index <1> <16>] [convert age(index) character to age-i(index) integer] [NIF AGERNG(index) ge <2> AND age(index) is then] [ELSEIF AGERNG(index) ge <2> AND age(index) is then] [ELSEIF hhmem(index) is <2> then] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <2> then] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <9> then] [ELSEIF PELIG(index) eq <12> OR hhmem(index) is <3> then] [ELSEIF age-i(index) gt <14> then] [ELSE] [add <1> to index2] [store index in index3] [ENDIF] [end do] [store in temp2] [store in temp3] [NIF index2 eq <1> then] [combine name(index3) < > into temp2] [store in temp3] [ENDIF] [store <0> in index4] [NIF SSC2(R_P) is then] [convert SSC1(R_P) character to index4 integer] [combine name(index4) < > into temp2] [store in temp3] [ENDIF] $itemtable >SSCR< What were the reasons [fill temp2] getting Social Security for 1996? PROBE: Any other reason No more <1> Disabled [fill temp3] <2> Surviving [fill temp3] <3> Dependent [fill temp3] <4> Other ===>_ ===>_ ===>_ ===>_ $end ---------------------------------------------------------------------- $>SSCR1< [within SSCR] $d [none] <1-8> [goto C-Q56DT] [goto C-Q56DT] $end $>SSCR2< [within SSCR] $d [none] <1-8> [goto C-Q56DT] $edit [notequal SSCR1(R_P)] $end $>SSCR3< [within SSCR] $d [none] <1-8> [goto C-Q56DT] $edit [notequal SSCR1(R_P)] [notequal SSCR2(R_P)] $end $>SSCR4< [within SSCR] $d [none] <1-8> $edit [notequal SSCR1(R_P)] [notequal SSCR2(R_P)] [notequal SSCR3(R_P)] $end ---------------------------------------------------------------------- $>C-Q56dt< RESET UP Q56do, Q56d1o and TQ56D5 [store <0> in r-Q56do] [store < > in Q56dO(R_P)] [store <0> in index] [NIF Q56d(R_P) is OR Q56d(R_P) is then] [if onpath Q56d:R_P then store <1> in index] [ELSEIF Q56d(R_P) is then] [if onpath Q56d:R_P then store <1> in index] [ENDIF] [NIF index eq <0> then] [if onpath Q56d:R_P then convert Q56d(R_P) character to r-Q56do real] [ENDIF] [store <0> in index] [store <0> in index2] [NIF Q56d3(R_P) isnt <2> then] [if onpath Q56d3:R_P then store <1> in index] [ENDIF] [NIF Q56dp(R_P) is <1> AND index eq <1> then] [if onpath Q56dp:R_P then add <42.50> to r-Q56do] [ELSEIF Q56dp(R_P) is <2> AND index eq <1> then] [if onpath Q56dp:R_P then add <138.30> to r-Q56do] [ELSEIF Q56dp(R_P) is <3> AND index eq <1> then] [if onpath Q56dp:R_P then convert Q56d2(R_P) character to rindex real] [if onpath Q56dp:R_P then multiply rindex by <42.50>] [if onpath Q56dp:R_P then add rindex to r-Q56do] [ENDIF] [store r-Q56do in rindex] [if rindex nq <0.0> then convert rindex real to Q56dO(R_P) character 10 0] [store <0> in r-Q56d1o] [store < > in Q56d1O(R_P)] [NIF Q56d1(R_P) isnt AND Q56d1(R_P) isnt then] [if onpath Q56d1:R_P then convert Q56d1(R_P) character to r-Q56d1o real] [ENDIF] [store <0> in index] [store <0> in index2] [NIF Q56d3(R_P) isnt <2> then] [if onpath Q56d3:R_P then add <43.80> to r-q56d1o] ** changed by Thuan-was 42.50 ** [ENDIF] [store r-q56d1o in rindex] [if rindex nq <0.0> then convert rindex real to Q56d1O(R_P) character 10 0] [store <0> in index] [NIF Q56d(R_P) isnt AND Q56d(R_P) isnt then] [if onpath Q56d:R_P then store <1> in index] [ENDIF] [store <0> in rindex] [store <0> in rindex2] [NIF Q56d2(R_P) isnt AND Q56d2(R_P) isnt then] [if onpath Q56d2:R_P then convert Q56d2(R_P) character to rindex real] [ENDIF] [NIf Q56dp(R_P) is <1> OR Q56dp(R_P) is <2> then] [if onpath Q56dp:R_P then store r-Q56do in rindex2] [if onpath Q56dp:R_P then multiply rindex2 by rindex] [if onpath Q56dp:R_P then convert rindex2 real to TQ56D5(R_P) character 10 0] [ENDIF] [store <0> in index] [NIF Q56d1(R_P) isnt AND Q56d1(R_P) isnt then] [if onpath Q56d1:R_P then store <1> in index] [ENDIF] [store <0> in rindex] [store <0> in rindex2] [NIF Q56d2(R_P) isnt AND Q56d2(R_P) isnt then] [if onpath Q56d2:R_P then convert Q56d2(R_P) character to rindex real] [ENDIF] [store <0> in rindex3] [store <0> in rindex4] [NIF Q56d4(R_P) is <1> OR Q56d4(R_P) is then] [if onpath Q56d4:R_P then store r-Q56d1o in rindex2] [if onpath Q56d4:R_P then multiply rindex2 by rindex] [if onpath Q56d4:R_P then multiply rindex2 by <0.9718>] ** changed by Thuan-was 0.9747 ** [if onpath Q56d4:R_P then convert rindex2 real to TQ56D5(R_P) character 10 0] [ENDIF] CODE FOR Q56DT [store <0> in index] [store < > in Q56dt(R_P)] [if Q56do(R_P) isnt < > then store <1> in index] [NIF Q56d5(R_P) isnt <2> AND index eq <1> then] [if onpath Q56d5:R_P then store TQ56D5(R_P) in Q56dt(R_P)] [if onpath Q56d5:R_P then roster loop] [ENDIF] [NIF Q56d6(R_P) isnt AND Q56d6(R_P) isnt then] [if onpath Q56d6:R_P then add <10> to index] [ELSE] [if onpath Q56d6:R_P then add <20> to index] [ENDIF] [NIF Q56d5(R_P) is <2> AND index eq <11> then] [if onpath Q56d5:R_P then store Q56d6(R_P) in Q56dT(R_P)] [if onpath Q56d5:R_P then roster loop] [ELSEIF Q56d5(R_P) is <2> AND index eq <21> then] [if onpath Q56d5:R_P then store TQ56D5(R_P) in Q56dT(R_P)] [if onpath Q56d5:R_P then roster loop] [ENDIF] [NIF Q56dp(R_P) is <3> AND index eq <1> then] [if onpath Q56dp:R_P then store Q56do(R_P) in Q56dt(R_P)] [if onpath Q56dp:R_P then roster loop] [ENDIF] [store <0> in index] [if Q56d1o(R_P) isnt < > then store <1> in index] [store <0> in index2] [NIF Q56d4(R_P) isnt <2> then] [if onpath Q56d4:R_P then store <1> in index2] [ENDIF] [NIF Q56d5(R_P) isnt <2> then] [if onpath Q56d5:R_P then add <10> to index2] [ENDIF] [NIF index eq <1> AND index2 eq <11> then] [store TQ56D5(R_P) in Q56dt(R_P)] [roster loop] [ENDIF] [store <0> in index2] [NIF Q56d4(R_P) isnt <2> then] [if onpath Q56d4:R_P then store <1> in index2] [ENDIF] [NIF Q56d5(R_P) is <2> then] [if onpath Q56d5:R_P then add <10> to index2] [ENDIF] [store <0> in index3] [NIF index eq <1> AND index2 eq <11> then] [store <1> in index3] [ENDIF] [NIF Q56d6(R_P) is and index3 eq <1> then] [if onpath Q56d6:R_P then store TQ56D5(R_P) in Q56dt(R_P)] [if onpath Q56d6:R_P then roster loop] [ELSEIF Q56d6(R_P) is and index3 eq <1> then] [if onpath Q56d6:R_P then store TQ56D5(R_P) in Q56dt(R_P)] [if onpath Q56d6:R_P then roster loop] [ELSEIF index3 eq <1> then] [if onpath Q56d6:R_P then store Q56d6(R_P) in Q56dt(R_P)] [if onpath Q56d6:R_P then roster loop] [ENDIF] [NIF Q56d4(R_P) is <2> then] [if onpath Q56d4:R_P then store <1> in index2] [ENDIF] [store <0> in index3] [NIF index eq <1> AND index2 eq <1> then] [store <1> in index3] [ENDIF] [NIF Q56d6(R_P) is and index3 eq <1> then] [if onpath Q56d6:R_P then store in Q56dt(R_P)] [if onpath Q56d6:R_P then roster loop] [ELSEIF Q56d6(R_P) is and index3 eq <1> then] [if onpath Q56d6:R_P then store in Q56dt(R_P)] [if onpath Q56d6:R_P then roster loop] [ELSEIF index3 eq <1> then] [if onpath Q56d6:R_P then store Q56d6(R_P) in Q56dt(R_P)] [if onpath Q56d6:R_P then roster loop] [ENDIF] [NIF Q56d1(R_P) is then] [if onpath Q56d1:R_P then store in Q56dt(R_P)] [ENDIF] [NIF Q56d2(R_P) is then] [if onpath Q56d2:R_P then store in Q56dt(R_P)] [ENDIF] [NIF Q56d(R_P) is then] [if onpath Q56d:R_P then store in Q56dt(R_P)] [ENDIF] [roster loop] $end ============================================================================== $REND>Q56ROS< ============================================================================== Comment: This is item 56d in the 1989 CPS-665. Added relationship check. 3/88 $>check-56e< [store <1> in SUPFLG] ADDED 1997 CW **S [store <0> in index3] [do index <1> NROSIZ] [convert age(index) character to age-i(index) integer] [NIF age-i(index) lt <23> AND hhmem(index) is <1> then] [add <1> to index3] [ENDIF] [end do] [if index3 ge <1> then goto q56f] [goto q57a] $end ----------------------------------------------------------------------------- Comment: This is item 56e in the 1988 CPS-665. $>Q56f< [indirect] $d >Q56f< Did anyone in this household receive any Social Security income in 1996 that we have not already counted on behalf of children in this household? INCLUDES ALL CHILDREN UNDER 23 YEARS OF AGE <1> Yes [goto q56g] <2> No (Help) Social Security income previously reported [referto SS-Inc] [blind] Refused Don't Know ===>_ [goto q57a] $end ----------------------------------------------------------------------------- $>Q56g< [multiple q56g-1 q56g-2 q56g-3 q56g-4 q56g-5 q56g-6 q56g-7 q56g-8] [multiple q56g-9 q56g-10 q56g-11 q56g-12 q56g-13 q56g-14 q56g-15 q56g-16] [indirect] [do index <1> <16>] [store < > in tempname(index)] [store < > in xbad(index)] [NIF AGERNG(index) lt <2> then] [convert index integer to xbad(index) character] [ELSEIF hhmem(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <9> then] [convert index integer to xbad(index) character] [ELSEIF PELIG(index) eq <12> OR hhmem(index) is <3> then] [convert index integer to xbad(index) character] [ENDIF] [end do] [do index <1> NROSIZ] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to tempname(index)(2:2) character] [ELSEIF index2 ge <10> then] [convert index2 integer to tempname(index)(1:2) character] [ENDIF] [store name(index) in tempname(index)(4:27)] [store relation(index) in tempname(index)(29:37)] [store <0> in index4] [convert xbad(index) character to index4 integer] [if index4 gt <0> then store < > in tempname(index)] [end do] $itemtable >Q56g< **READ ONLY IF NECESSARY** Who received these Social Security payments? ENTER LINE NUMBER OF PARENT OR GUARDIAN LN NAME RELATION LN NAME RELATION [fill/l tempname(1)] [fill tempname(9)] [fill/l tempname(2)] [fill tempname(10)] [fill/l tempname(3)] [fill tempname(11)] [fill/l tempname(4)] [fill tempname(12)] [fill/l tempname(5)] [fill tempname(13)] [fill/l tempname(6)] [fill tempname(14)] [fill/l tempname(7)] [fill tempname(15)] [fill/l tempname(8)] [fill tempname(16)] (Help) Social Security income previously reported [referto SS-Inc] ENTER LINE NUMBER No more PROBE: Anyone else? ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ $end ----------------------------------------------------------------------------- $>Q56g-1< [within q56g] $d [none] <1-16> Refused [goto CHECK58-88] Don't Know [goto CHECK58-88] Help [referto SS-Inc] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end $>Q56g-2< [within q56g] $d [none] <1-16> Refused [goto now-q56add] Don't Know [goto now-q56add] No more [goto now-q56add] Help [referto SS-Inc] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q56g-1] $end $>Q56g-3< [within q56g] $d [none] <1-16> Refused [goto now-q56add] Don't Know [goto now-q56add] No more [goto now-q56add] Help [referto SS-Inc] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q56g-1] [notequal q56g-2] $end $>Q56g-4< [within q56g] $d [none] <1-16> Refused [goto now-q56add] Don't Know [goto now-q56add] No more [goto now-q56add] Help [referto SS-Inc] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q56g-1] [notequal q56g-2] [notequal q56g-3] $end $>Q56g-5< [within q56g] $d [none] <1-16> Refused [goto now-q56add] Don't Know [goto now-q56add] No more [goto now-q56add] Help [referto SS-Inc] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q56g-1] [notequal q56g-2] [notequal q56g-3] [notequal q56g-4] $end $>Q56g-6< [within q56g] $d [none] <1-16> Refused [goto now-q56add] Don't Know [goto now-q56add] No more [goto now-q56add] Help [referto SS-Inc] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q56g-1] [notequal q56g-2] [notequal q56g-3] [notequal q56g-4] [notequal q56g-5] $end $>Q56g-7< [within q56g] $d [none] <1-16> Refused [goto now-q56add] Don't Know [goto now-q56add] No more [goto now-q56add] Help [referto SS-Inc] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q56g-1] [notequal q56g-2] [notequal q56g-3] [notequal q56g-4] [notequal q56g-5] [notequal q56g-6] $end $>Q56g-8< [within q56g] $d [none] <1-16> Refused [goto now-q56add] Don't Know [goto now-q56add] No more [goto now-q56add] Help [referto SS-Inc] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q56g-1] [notequal q56g-2] [notequal q56g-3] [notequal q56g-4] [notequal q56g-5] [notequal q56g-6] [notequal q56g-7] $end $>Q56g-9< [within q56g] $d [none] <1-16> Refused [goto now-q56add] Don't Know [goto now-q56add] No more [goto now-q56add] Help [referto SS-Inc] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q56g-1] [notequal q56g-2] [notequal q56g-3] [notequal q56g-4] [notequal q56g-5] [notequal q56g-6] [notequal q56g-7] [notequal Q56g-8] $end $>Q56g-10< [within q56g] $d [none] <1-16> Refused [goto now-q56add] Don't Know [goto now-q56add] No more [goto now-q56add] Help [referto SS-Inc] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q56g-1] [notequal q56g-2] [notequal q56g-3] [notequal q56g-4] [notequal q56g-5] [notequal q56g-6] [notequal q56g-7] [notequal Q56g-8] [notequal Q56g-9] $end $>Q56g-11< [within q56g] $d [none] <1-16> Refused [goto now-q56add] Don't Know [goto now-q56add] No more [goto now-q56add] Help [referto SS-Inc] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q56g-1] [notequal q56g-2] [notequal q56g-3] [notequal q56g-4] [notequal q56g-5] [notequal q56g-6] [notequal q56g-7] [notequal Q56g-8] [notequal Q56g-9] [notequal Q56g-10] $end $>Q56g-12< [within q56g] $d [none] <1-16> Refused [goto now-q56add] Don't Know [goto now-q56add] No more [goto now-q56add] Help [referto SS-Inc] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q56g-1] [notequal q56g-2] [notequal q56g-3] [notequal q56g-4] [notequal q56g-5] [notequal q56g-6] [notequal q56g-7] [notequal Q56g-8] [notequal Q56g-9] [notequal Q56g-10] [notequal Q56g-11] $end $>Q56g-13< [within q56g] $d [none] <1-16> Refused [goto now-q56add] Don't Know [goto now-q56add] No more [goto now-q56add] Help [referto SS-Inc] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q56g-1] [notequal q56g-2] [notequal q56g-3] [notequal q56g-4] [notequal q56g-5] [notequal q56g-6] [notequal q56g-7] [notequal Q56g-8] [notequal Q56g-9] [notequal Q56g-10] [notequal Q56g-11] [notequal Q56g-12] $end $>Q56g-14< [within q56g] $d [none] <1-16> Refused [goto now-q56add] Don't Know [goto now-q56add] No more [goto now-q56add] Help [referto SS-Inc] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q56g-1] [notequal q56g-2] [notequal q56g-3] [notequal q56g-4] [notequal q56g-5] [notequal q56g-6] [notequal q56g-7] [notequal Q56g-8] [notequal Q56g-9] [notequal Q56g-10] [notequal Q56g-11] [notequal Q56g-12] [notequal Q56g-13] $end $>Q56g-15< [within q56g] $d [none] <1-16> Refused [goto now-q56add] Don't Know [goto now-q56add] No more [goto now-q56add] Help [referto SS-Inc] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q56g-1] [notequal q56g-2] [notequal q56g-3] [notequal q56g-4] [notequal q56g-5] [notequal q56g-6] [notequal q56g-7] [notequal Q56g-8] [notequal Q56g-9] [notequal Q56g-10] [notequal Q56g-11] [notequal Q56g-12] [notequal Q56g-13] [notequal Q56g-14] $end $>Q56g-16< [within q56g] $d [none] <1-16> Refused [goto now-q56add] Don't Know [goto now-q56add] No more [goto now-q56add] Help [referto SS-Inc] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q56g-1] [notequal q56g-2] [notequal q56g-3] [notequal q56g-4] [notequal q56g-5] [notequal q56g-6] [notequal q56g-7] [notequal Q56g-8] [notequal Q56g-9] [notequal Q56g-10] [notequal Q56g-11] [notequal Q56g-12] [notequal Q56g-13] [notequal Q56g-14] [notequal Q56g-15] $end ------------------------------------------------------------------------------ $>NOW-Q56ADD< [do index <1> <16>] [store <0> in Q56GLN(index)] [end do] [if onpath q56g-1 then convert q56g-1 character to Q56GLN(1) integer] [if onpath q56g-2 then convert q56g-2 character to Q56GLN(2) integer] [if onpath q56g-3 then convert q56g-3 character to Q56GLN(3) integer] [if onpath q56g-4 then convert q56g-4 character to Q56GLN(4) integer] [if onpath q56g-5 then convert q56g-5 character to Q56GLN(5) integer] [if onpath q56g-6 then convert q56g-6 character to Q56GLN(6) integer] [if onpath q56g-7 then convert q56g-7 character to Q56GLN(7) integer] [if onpath q56g-8 then convert q56g-8 character to Q56GLN(8) integer] [if onpath q56g-9 then convert q56g-9 character to Q56GLN(9) integer] [if onpath q56g-10 then convert q56g-10 character to Q56GLN(10) integer] [if onpath q56g-11 then convert q56g-11 character to Q56GLN(11) integer] [if onpath q56g-12 then convert q56g-12 character to Q56GLN(12) integer] [if onpath q56g-13 then convert q56g-13 character to Q56GLN(13) integer] [if onpath q56g-14 then convert q56g-14 character to Q56GLN(14) integer] [if onpath q56g-15 then convert q56g-15 character to Q56GLN(15) integer] [if onpath q56g-16 then convert q56g-16 character to Q56GLN(16) integer] [store <0> in Q56add_R_P] $end ------------------------------------------------------------------------------ $ROPEN>Q56ADD< $>AFT-Q56ADD< [goto q57a] $end ============================================================================== $RBEGIN>Q56ADD< [maxelt 16] ============================================================================== Comment: The items in this roster revised the same as those in the 56DROS. 3/88 $>pre-q56h< [if R_P gt NROSIZ then roster exit] [store <0> in index] [tablook Q56GLN q56add_R_P index] [if index eq <0> then roster loop] [if Q56GLN(index) nq R_P then roster loop] $end -------------------------------------------------------------------------------- Comment: q56h (parallel to q56c) deleted. 3/88 -------------------------------------------------------------------------------- $>Q56ip< [combine name(R_P) <'s> into temptext] [NIF R_P eq respli then] [store in temptext] [ENDIF] $d >Q56ip< What is the easiest way for you to tell us [fill temptext] Social Security payment for children in this household; monthly, quarterly, or yearly? <1> monthly <2> quarterly <3> yearly [blind] Don't know [goto Q56i1] Refused [goto PRE-CSS] ===>_ $end --------------------------------------------------------------------------- $>Q56i< [store name(R_P) in temptext] [if R_P eq respli then store in temptext] [store in temp2] [store <1> in xbad(1)] [NIF Q56ip(R_P) is <1> then] [if onpath Q56ip:R_P then store in temp2] [ELSEIF Q56ip(R_P) is <2> then] [if onpath Q56ip:R_P then store in temp2] [ENDIF] [store < > in temp3] [do index <1> <16>] [if onpath Q56i:index then store <{A} Already included> in temp3] [end do] $d >Q56i< How much did [fill temptext] receive [fill temp2] Social Security payments for children in this household in 1996? [fill temp3] ENTER DOLLAR AMOUNT [blind] Don't know [goto Q56i1] Refused [goto PRE-CSS] Already included [goto PRE-CSS] ===>[N]$_,___,___ .00 [goto Q56i2] $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>Q56i1< [store name(R_P) in temptext] [if R_P eq respli then store in temptext] [store <1> in xbad(1)] $d >Q56i1< What is the amount of the Social Security payment [fill temptext] received for children in this household last month? ENTER DOLLAR AMOUNT [blind] Don't know [goto PRE-CSS] Refused [goto PRE-CSS] ===>[N]$_,___,___ .00 $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>Q56i2< [store <0> in xbad(1)] [store <0> in index] [store name(R_P) in temptext] [store < > in temp2] [store < > in temp3] [if R_P eq respli then store in temptext] [NIF Q56ip(R_P) is <1> then] [if onpath Q56ip:R_P then store <12> in xbad(1)] [if onpath Q56ip:R_P then store in temp2] [if onpath Q56ip:R_P then store <{1-12}> in temp3] [ELSEIF Q56ip(R_P) is <3> then] [if onpath Q56ip:R_P then store <12> in xbad(1)] [if onpath Q56ip:R_P then store in temp2] [if onpath Q56ip:R_P then store <{1-12}> in temp3] [ELSEIF Q56ip(R_P) is <2> then] [if onpath Q56ip:R_P then store <4> in xbad(1)] [if onpath Q56ip:R_P then store in temp2] [if onpath Q56ip:R_P then store <{1-4}> in temp3] [ENDIF] [if onpath Q56i1:R_P then convert Q56i1(R_P) character to index integer] [NIF index ge <1> then] [store <12> in xbad(1)] [store in temp2] [store <{1-12}> in temp3] [ENDIF] [store <0> in xbad(2)] $d >Q56i2< For how many [fill temp2] did [fill temptext] receive Social Security for children in 1996? [fill temp3] [blind] Don't know [goto PRE-CSS] Refused [goto PRE-CSS] ===>__ $edit [notequal xbad(2)] [notless xbad(2)] [notgreater xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>Q56i2-CK< [NIF Q56i1(R_P) isnt AND Q56i1(R_P) isnt then] [if onpath Q56i1:R_P then goto Q56i3] [ENDIF] [store <0> in index] [NIF Q56ip(R_P) is <1> OR Q56ip(R_P) is <2> then] [if onpath Q56ip:R_P then store <1> in index] [ENDIF] [NIF Q56i(R_P) isnt AND Q56i(R_P) isnt then] [if onpath Q56i:R_P then add <10> to index] [ENDIF] [NIF Q56i2(R_P) isnt AND Q56i2(R_P) isnt then] [if onpath Q56i2:R_P then add <100> to index] [ENDIF] [if index eq <111> then goto Q56i4] [NIF Q56ip(R_P) is <3> then] [if onpath Q56ip:R_P then goto Q56iC1] [ENDIF] $end ---------------------------------------------------------------------- $>Q56i3< $d >Q56i3< Was the cost of living increase the only change which occurred in monthly Social Security payments for children in this household? <1> Yes <2> No [goto Q56i5] [blind] Don't know Refused ===>_ [goto Q56i4] $end ---------------------------------------------------------------------------- $>Q56iC1< [store <0> in index] [if onpath Q56i:R_P then convert Q56i(R_P) character to index integer] [NIF index lt <1000> then] [goto Q56iC2] [ELSEIF index gt <20000> then] [goto Q56iC2] [ENDIF] [goto PRE-CSS] $end --------------------------------------------------------------------------- $>Q56iC2< [if Q56iC2(R_P) is <2> then reset Q56iC2] $d >Q56iC2< **** DO NOT READ TO THE RESPONDENT **** THE ANNUAL RATE APPEARS OUT OF RANGE. THE TOTAL SOCIAL SECURITY RECEIVED FOR CHILDREN IN THIS HOUSEHOLD IN 1996 WAS $[fill Q56i(R_P)]. IS THIS A CORRECT ENTRY? <1> Yes [goto PRE-CSS] <2> No [backto Q56i:R_P] ===>_ $end ---------------------------------------------------------------------------- $>Q56i4< [store name(R_P) in temptext] [if R_P eq respli then store in temptext] [store <0> in index] [store <0> in index2] [store <0> in index3] [store <0> in index4] [store <0> in rindex] [store <0> in rindex2] [if onpath Q56i2:R_P then convert Q56i2(R_P) character to index integer] [NIF Q56i(R_P) isnt AND Q56i(R_P) isnt then] [if onpath Q56i:R_P then convert Q56i(R_P) character to index2 integer] [ENDIF] [NIF Q56ip(R_P) is <1> OR Q56ip(R_P) is <2> then] [if onpath Q56ip:R_P then multiply index by index2] [if onpath Q56ip:R_P then convert index integer to TQ56I4(R_P) character] [ENDIF] [store <0> in index] [NIF Q56i2(R_P) isnt AND Q56i2(R_P) isnt then] [if onpath Q56i2:R_P then convert Q56i2(R_P) character to rindex real] [ENDIF] [NIF Q56i1(R_P) isnt AND Q56i1(R_P) isnt then] [if onpath Q56i1:R_P then store <1> in index] [if onpath Q56i1:R_P then convert Q56i1(R_P) character to rindex2 real] [ENDIF] [store <0> in rindex3] [store <0> in rindex4] [NIf Q56i3(R_P) is <1> and index eq <1> then] [if onpath Q56i3:R_P then convert Q56i1(R_P) character to rindex4 real] [if onpath Q56i3:R_P then multiply rindex4 by rindex] [if onpath Q56i3:R_P then store <0.9718> in rindex3] ** 11/20/96 changed by Thuan ** [if onpath Q56i3:R_P then multiply rindex3 by rindex4] [if onpath Q56i3:R_P then convert rindex3 real to TQ56I4(R_P) character 10 0] [ENDIF] $d >Q56i4< According to my calculations [fill temptext] received $[fill TQ56I4(R_P)] dollars altogether for children in this household from Social Security in 1996. Does that sound about right? <1> Yes <2> No [goto Q56i5] [blind] Don't know Refused ===>_ [goto PRE-CSS] $end ---------------------------------------------------------------------------- $>Q56i5< [store name(R_P) in temptext] [store < > in temp2] [store < > in temp3] [store < > in temp4] [store < > in temp5] [store <1> in xbad(1)] [store <0> in index] [if R_P eq respli then store in temptext] [if onpath Q56i:R_P then convert Q56i(R_P) character to index integer] [if onpath Q56i1:R_P then convert Q56i1(R_P) character to index2 integer] [NIF index ge <1> then] [store Q56i(R_P) in temp3] [store in temp2] [store < > in temp4] [store < > in temp5] [ENDIF] [store <0> in rindex] [store <0> in rindex2] [NIF index2 ge <1> then] [if onpath Q56i3:R_P then store Q56i1(R_P) in temp3] [if onpath Q56i3:R_P then store in temp2] [if onpath Q56i3:R_P then store in temp4] [if onpath Q56i3:R_P then convert Q56i1(R_P) character to rindex2 real] [if onpath Q56i3:R_P then store <0.9718> in rindex] ** changed by Thuan-was 0.9747 ** [if onpath Q56i3:R_P then multiply rindex by rindex2] [if onpath Q56i3:R_P then subtract rindex from rindex2] [if onpath Q56i3:R_P then convert rindex2 real to temp8 character 6 2] [if onpath Q56i3:R_P then combine <$> temp8 < subtracted per month> into temp5] [ENDIF] [NIF Q56ip(R_P) is <1> then] [if onpath Q56ip:R_P then store in temp7] [ELSEIF Q56ip(R_P) is <2> then] [if onpath Q56ip:R_P then store in temp7] [ELSEIF Q56ip(R_P) is <3> then] [if onpath Q56ip:R_P then store in temp7] [ENDIF] $d >Q56i5< What is your best estimate of the correct amount [fill temptext] received in Social Security for children in this household during 1996? PREVIOUS ENTRIES: [fill temp2] $[fill temp3] Q56ip: [fill temp7] Q56i2: [fill Q56i2(R_P)] [fill temp4] [fill temp5] ENTER DOLLAR AMOUNT [blind] Don't know Refused ===>[N]$_,___,___ .00 $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>PRE-CSS< [store <0> in index2] [do index <1> <16>] [convert age(index) character to age-i(index) integer] [NIF AGERNG(index) gt <2> AND AGE(index) is then] [ELSEIF AGERNG(index) gt <2> AND AGE(index) is then] [ELSEIF hhmem(index) is <2> then] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <2> then] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <9> then] [ELSEIF PELIG(index) eq <12> OR hhmem(index) is <3> then] [ELSEIF age-i(index) gt <22> then] [ELSE] [add <1> to index2] [ENDIF] [end do] [if index2 le <1> then goto CRSS] $end ---------------------------------------------------------------------- $>CSS< [multiple CSS1 CSS2 CSS3 CSS4 CSS5 CSS6 CSS7 CSS8] [multiple CSS9 CSS10 CSS11 CSS12 CSS13 CSS14 CSS15 CSS16] [do index <1> <16>] [store < > in tempname(index)] [store < > in xbad(index)] [convert age(index) character to age-i(index) integer] [NIF hhmem(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF AGE(index) is AND AGERNG(index) gt <2> then] [convert index integer to xbad(index) character] [ELSEIF AGE(index) is AND AGERNG(index) gt <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <9> then] [convert index integer to xbad(index) character] [ELSEIF PELIG(index) eq <12> OR hhmem(index) is <3> then] [convert index integer to xbad(index) character] [ELSEIF age-i(index) gt <22> then] [convert index integer to xbad(index) character] [ENDIF] [end do] [do index <1> NROSIZ] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to tempname(index)(2:2) character] [ELSEIF index2 ge <10> then] [convert index2 integer to tempname(index)(1:2) character] [ENDIF] [store name(index) in tempname(index)(4:27)] [store relation(index) in tempname(index)(29:37)] [store <0> in index4] [convert xbad(index) character to index4 integer] [if index4 gt <0> then store < > in tempname(index)] [end do] $itemtable >CSS< Which children under age 23 were receiving Social Security in 1996? LN NAME RELATION LN NAME RELATION [fill/l tempname(1)] [fill tempname(9)] [fill/l tempname(2)] [fill tempname(10)] [fill/l tempname(3)] [fill tempname(11)] [fill/l tempname(4)] [fill tempname(12)] [fill/l tempname(5)] [fill tempname(13)] [fill/l tempname(6)] [fill tempname(14)] [fill/l tempname(7)] [fill tempname(15)] [fill/l tempname(8)] [fill tempname(16)] ENTER LINE NUMBER No more None of the above PROBE: Anyone else? ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ $end ----------------------------------------------------------------------------- $>CSS1< [within CSS] $d [none] <1-16> Refused [goto C-q56It] Don't Know [goto C-Q56It] None of the above [goto C-Q56It] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end $>CSS2< [within CSS] $d [none] <1-16> No more [goto CRSS] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal CSS1(R_P)] $end $>CSS3< [within CSS] $d [none] <1-16> No more [goto CRSS] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal CSS1(R_P)] [notequal CSS2(R_P)] $end $>CSS4< [within CSS] $d [none] <1-16> No more [goto CRSS] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal CSS1(R_P)] [notequal CSS2(R_P)] [notequal CSS3(R_P)] $end $>CSS5< [within CSS] $d [none] <1-16> No more [goto CRSS] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal CSS1(R_P)] [notequal CSS2(R_P)] [notequal CSS3(R_P)] [notequal CSS4(R_P)] $end $>CSS6< [within CSS] $d [none] <1-16> No more [goto CRSS] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal CSS1(R_P)] [notequal CSS2(R_P)] [notequal CSS3(R_P)] [notequal CSS4(R_P)] [notequal CSS5(R_P)] $end $>CSS7< [within CSS] $d [none] <1-16> No more [goto CRSS] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal CSS1(R_P)] [notequal CSS2(R_P)] [notequal CSS3(R_P)] [notequal CSS4(R_P)] [notequal CSS5(R_P)] [notequal CSS6(R_P)] $end $>CSS8< [within CSS] $d [none] <1-16> No more [goto CRSS] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal CSS1(R_P)] [notequal CSS2(R_P)] [notequal CSS3(R_P)] [notequal CSS4(R_P)] [notequal CSS5(R_P)] [notequal CSS6(R_P)] [notequal CSS7(R_P)] $end $>CSS9< [within CSS] $d [none] <1-16> No more [goto CRSS] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal CSS1(R_P)] [notequal CSS2(R_P)] [notequal CSS3(R_P)] [notequal CSS4(R_P)] [notequal CSS5(R_P)] [notequal CSS6(R_P)] [notequal CSS7(R_P)] [notequal CSS8(R_P)] $end $>CSS10< [within CSS] $d [none] <1-16> No more [goto CRSS] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal CSS1(R_P)] [notequal CSS2(R_P)] [notequal CSS3(R_P)] [notequal CSS4(R_P)] [notequal CSS5(R_P)] [notequal CSS6(R_P)] [notequal CSS7(R_P)] [notequal CSS8(R_P)] [notequal CSS9(R_P)] $end $>CSS11< [within CSS] $d [none] <1-16> No more [goto CRSS] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal CSS1(R_P)] [notequal CSS2(R_P)] [notequal CSS3(R_P)] [notequal CSS4(R_P)] [notequal CSS5(R_P)] [notequal CSS6(R_P)] [notequal CSS7(R_P)] [notequal CSS8(R_P)] [notequal CSS9(R_P)] [notequal CSS10(R_P)] $end $>CSS12< [within CSS] $d [none] <1-16> No more [goto CRSS] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal CSS1(R_P)] [notequal CSS2(R_P)] [notequal CSS3(R_P)] [notequal CSS4(R_P)] [notequal CSS5(R_P)] [notequal CSS6(R_P)] [notequal CSS7(R_P)] [notequal CSS8(R_P)] [notequal CSS9(R_P)] [notequal CSS10(R_P)] [notequal CSS11(R_P)] $end $>CSS13< [within CSS] $d [none] <1-16> No more [goto CRSS] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal CSS1(R_P)] [notequal CSS2(R_P)] [notequal CSS3(R_P)] [notequal CSS4(R_P)] [notequal CSS5(R_P)] [notequal CSS6(R_P)] [notequal CSS7(R_P)] [notequal CSS8(R_P)] [notequal CSS9(R_P)] [notequal CSS10(R_P)] [notequal CSS11(R_P)] [notequal CSS12(R_P)] $end $>CSS14< [within CSS] $d [none] <1-16> No more [goto CRSS] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal CSS1(R_P)] [notequal CSS2(R_P)] [notequal CSS3(R_P)] [notequal CSS4(R_P)] [notequal CSS5(R_P)] [notequal CSS6(R_P)] [notequal CSS7(R_P)] [notequal CSS8(R_P)] [notequal CSS9(R_P)] [notequal CSS10(R_P)] [notequal CSS11(R_P)] [notequal CSS12(R_P)] [notequal CSS13(R_P)] $end $>CSS15< [within CSS] $d [none] <1-16> No more [goto CRSS] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal CSS1(R_P)] [notequal CSS2(R_P)] [notequal CSS3(R_P)] [notequal CSS4(R_P)] [notequal CSS5(R_P)] [notequal CSS6(R_P)] [notequal CSS7(R_P)] [notequal CSS8(R_P)] [notequal CSS9(R_P)] [notequal CSS10(R_P)] [notequal CSS11(R_P)] [notequal CSS12(R_P)] [notequal CSS13(R_P)] [notequal CSS14(R_P)] $end $>CSS16< [within CSS] $d [none] <1-16> No more $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal CSS1(R_P)] [notequal CSS2(R_P)] [notequal CSS3(R_P)] [notequal CSS4(R_P)] [notequal CSS5(R_P)] [notequal CSS6(R_P)] [notequal CSS7(R_P)] [notequal CSS8(R_P)] [notequal CSS9(R_P)] [notequal CSS10(R_P)] [notequal CSS11(R_P)] [notequal CSS12(R_P)] [notequal CSS13(R_P)] [notequal CSS14(R_P)] [notequal CSS15(R_P)] $end ------------------------------------------------------------------------------ $>CRSS< [multiple CRSS1 CRSS2 CRSS3 CRSS4] [store <0> in index2] [store <0> in index3] [do index <1> <16>] [convert age(index) character to age-i(index) integer] [NIF AGERNG(index) gt <2> AND age(index) is then] [ELSEIF AGERNG(index) gt <2> AND age(index) is then] [ELSEIF hhmem(index) is <2> then] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <2> then] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <9> then] [ELSEIF PELIG(index) eq <12> OR hhmem(index) is <3> then] [ELSEIF age-i(index) gt <23> then] [ELSE] [add <1> to index2] [store index in index3] [ENDIF] [end do] [store in temp2] [store in temp3] [NIF index2 eq <1> then] [combine name(index3) < > into temp2] [store in temp3] [ENDIF] [store <0> in index4] [NIF CSS2(R_P) is then] [convert CSS1(R_P) character to index4 integer] [combine name(index4) < > into temp2] [store in temp3] [ENDIF] $itemtable >CRSS< What were the reasons [fill temp2] getting Social Security for 1996? PROBE: Any other reason No more <1> Disabled [fill temp3] <2> Surviving [fill temp3] <3> Dependent [fill temp3] <4> Other ===>_ ===>_ ===>_ ===>_ $end ---------------------------------------------------------------------- $>CRSS1< [within CRSS] $d [none] <1-8> [goto C-Q56IT] [goto C-Q56IT] $end $>CRSS2< [within CRSS] $d [none] <1-8> [goto C-Q56IT] $edit [notequal CRSS1(R_P)] $end $>CRSS3< [within CRSS] $d [none] <1-8> [goto C-Q56IT] $edit [notequal CRSS1(R_P)] [notequal CRSS2(R_P)] $end $>CRSS4< [within CRSS] $d [none] <1-8> $edit [notequal CRSS1(R_P)] [notequal CRSS2(R_P)] [notequal CRSS3(R_P)] $end ---------------------------------------------------------------------- $>C-Q56it< CODE FOR Q56IT [store <0> in index] [store < > in Q56it(R_P)] [NIF Q56i(R_P) isnt AND Q56i(R_P) isnt then] [if onpath Q56i:R_P then store <1> in index] [ENDIF] [NIF Q56i4(R_P) is <1> AND index eq <1> then] [if onpath Q56i4:R_P then store TQ56I4(R_P) in Q56it(R_P)] [if onpath Q56i4:R_P then roster loop] [ELSEIF Q56i4(R_P) is AND index eq <1> then] [if onpath Q56i4:R_P then store TQ56I4(R_P) in Q56it(R_P)] [if onpath Q56i4:R_P then roster loop] [ELSEIF Q56i4(R_P) is AND index eq <1> then] [if onpath Q56i4:R_P then store TQ56I4(R_P) in Q56it(R_P)] [if onpath Q56i4:R_P then roster loop] [ENDIF] [NIF Q56i5(R_P) isnt AND Q56i5(R_P) isnt then] [if onpath Q56i5:R_P then add <10> to index] [ELSE] [if onpath Q56i5:R_P then add <20> to index] [ENDIF] [NIF Q56i4(R_P) is <2> AND index eq <11> then] [if onpath Q56i4:R_P then store Q56i5(R_P) in Q56it(R_P)] [if onpath Q56i4:R_P then roster loop] [ELSEIF Q56i4(R_P) is <2> AND index eq <21> then] [if onpath Q56i4:R_P then store TQ56I4(R_P) in Q56it(R_P)] [if onpath Q56i4:R_P then roster loop] [ENDIF] [NIF Q56ip(R_P) is <3> then] [if onpath Q56ip:R_P then store Q56i(R_P) in Q56it(R_P)] [if onpath Q56ip:R_P then roster loop] [ENDIF] [store <0> in index] [store <0> in index2] [NIF Q56i1(R_P) isnt AND Q56i1(R_P) isnt then] [if onpath Q56i1:R_P then store <1> in index] [ENDIF] [NIF Q56i3(R_P) isnt <2> then] [if onpath Q56i3:R_P then store <1> in index2] [ENDIF] [NIF Q56i4(R_P) isnt <2> then] [if onpath Q56i4:R_P then add <10> to index2] [ENDIF] [NIF index eq <1> AND index2 eq <11> then] [store TQ56I4(R_P) in Q56it(R_P)] [roster loop] [ENDIF] [store <0> in index2] [store <0> in index3] [NIF Q56i3(R_P) isnt <2> then] [if onpath Q56i3:R_P then store <1> in index2] [ENDIF] [NIF Q56i4(R_P) is <2> then] [if onpath Q56i4:R_P then add <10> to index2] [ENDIF] [NIF index eq <1> AND index2 eq <11> then] [store <1> in index3] [ENDIF] [NIF Q56i5(R_P) is and index3 eq <1> then] [if onpath Q56i5:R_P then store TQ56I4(R_P) in Q56it(R_P)] [if onpath Q56i5:R_P then roster loop] [ELSEIF Q56i5(R_P) is and index3 eq <1> then] [if onpath Q56i5:R_P then store TQ56I4(R_P) in Q56it(R_P)] [if onpath Q56i5:R_P then roster loop] [ELSEIF index3 eq <1> then] [if onpath Q56i5:R_P then store Q56i5(R_P) in Q56it(R_P)] [if onpath Q56i5:R_P then roster loop] [ENDIF] [store <0> in index2] [store <0> in index3] [store <0> in rindex] [store <0> in rindex2] [NIF Q56i3(R_P) is <2> then] [if onpath Q56i3:R_P then store <1> in index2] [ENDIF] [NIF index eq <1> AND index2 eq <1> then] [store <1> in index3] [ENDIF] [NIF Q56i2(R_P) isnt AND Q56i2(R_P) isnt then] [if onpath Q56i2:R_P then convert Q56i2(R_P) character to rindex real] [ENDIF] [NIF Q56i1(R_P) isnt AND Q56i1(R_P) isnt then] [if onpath Q56i1:R_P then convert Q56i1(R_P) character to rindex2 real] [ENDIF] [store <0> in rindex3] [store <0> in rindex4] [NIF Q56i5(R_P) is and index3 eq <1> then] [if onpath Q56i5:R_P then convert Q56i1(R_P) character to rindex4 real] [if onpath Q56i5:R_P then multiply rindex4 by rindex] [if onpath Q56i5:R_P then store <0.9718> in rindex3] ** changed by Thuan-was 0.9747 ** [if onpath Q56i5:R_P then multiply rindex3 by rindex4] [if onpath Q56i5:R_P then convert rindex4 real to Q56it(R_P) character 10 0] [if onpath Q56i5:R_P then roster loop] [ELSEIF Q56i5(R_P) is and index3 eq <1> then] [if onpath Q56i5:R_P then convert Q56i1(R_P) character to rindex4 real] [if onpath Q56i5:R_P then multiply rindex4 by rindex] [if onpath Q56i5:R_P then store <0.9718> in rindex3] ** changed by Thuan-was 0.9747 ** [if onpath Q56i5:R_P then multiply rindex3 by rindex4] [if onpath Q56i5:R_P then convert rindex4 real to Q56it(R_P) character 10 0] [if onpath Q56i5:R_P then roster loop] [ELSEIF index3 eq <1> then] [if onpath Q56i5:R_P then store Q56i5(R_P) in Q56it(R_P)] [if onpath Q56i5:R_P then roster loop] [ENDIF] [NIF Q56i1(R_P) is then] [if onpath Q56i1:R_P then store in Q56it(R_P)] [ENDIF] [NIF Q56i2(R_P) is then] [if onpath Q56i2:R_P then store in Q56it(R_P)] [ENDIF] [NIF Q56i(R_P) is then] [if onpath Q56i:R_P then store in Q56it(R_P)] [ENDIF] [roster loop] $end ============================================================================== $REND>Q56ADD< ============================================================================== Comment: Changed goto instruction for precodes 2 and R from now-q57ros to check58-88. 3/88 DELETED CODING FOR ONE PERSON HOUSEHOLD TO SKIP TO NOW-Q57ROS BECAUSE IT MESSES UP ONE PATH TESTS LATER ON. 2/90 CMC $>Q57a< [store in temptext] [if NUMHOU eq <1> then store in temptext] [NIF q56a is <2> OR q56a is then] [store < > in temptext] [ELSEIF q56a is then] [store < > in temptext] [ENDIF] [store <1> in SUPFLG] ADDED 1997 CW **S $d >Q57a< [fill temptext] Any SSI payments, that is, Supplemental Security Income? NOTE: SSI ARE ASSISTANCE PAYMENTS TO LOW-INCOME AGED, BLIND AND DISABLED PERSONS AND COME FROM STATE OR LOCAL WELFARE OFFICES, THE FEDERAL GOVERNMENT, OR BOTH. <1> Yes [if NUMHOU eq <1> then goto NOW-Q57ros] [goto q57b] <2> No [blind] Refused Don't Know ===>_ [goto check-57d] $end ------------------------------------------------------------------------------ $>Q57b< [multiple q57b-1 q57b-2 q57b-3 q57b-4 q57b-5 q57b-6 q57b-7 q57b-8] [multiple q57b-9 q57b-10 q57b-11 q57b-12 q57b-13 q57b-14 q57b-15 q57b-16] [do index <1> <16>] [store < > in tempname(index)] [store < > in xbad(index)] [NIF AGERNG(index) lt <2> then] [convert index integer to xbad(index) character] [ELSEIF hhmem(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <9> then] [convert index integer to xbad(index) character] [ELSEIF PELIG(index) eq <12> OR hhmem(index) is <3> then] [convert index integer to xbad(index) character] [ENDIF] [end do] [do index <1> NROSIZ] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to tempname(index)(2:2) character] [ELSEIF index2 ge <10> then] [convert index2 integer to tempname(index)(1:2) character] [ENDIF] [store name(index) in tempname(index)(4:27)] [store relation(index) in tempname(index)(29:37)] [store <0> in index4] [convert xbad(index) character to index4 integer] [if index4 gt <0> then store < > in tempname(index)] [end do] $itemtable >Q57b< **READ ONLY IF NECESSARY** Who received SSI? SUPPLEMENTAL SECURITY INCOME LN NAME RELATION LN NAME RELATION [fill/l tempname(1)] [fill tempname(9)] [fill/l tempname(2)] [fill tempname(10)] [fill/l tempname(3)] [fill tempname(11)] [fill/l tempname(4)] [fill tempname(12)] [fill/l tempname(5)] [fill tempname(13)] [fill/l tempname(6)] [fill tempname(14)] [fill/l tempname(7)] [fill tempname(15)] [fill/l tempname(8)] [fill tempname(16)] ENTER LINE NUMBER No more PROBE: Anyone else? ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ $end ----------------------------------------------------------------------------- $>Q57b-1< [within q57b] $d [none] <1-16> Refused [goto check-57d] Don't Know [goto check-57d] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end $>Q57b-2< [within q57b] $d [none] <1-16> Refused [goto now-q57ros] Don't Know [goto now-q57ros] No more [goto now-q57ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q57b-1] $end $>Q57b-3< [within q57b] $d [none] <1-16> Refused [goto now-q57ros] Don't Know [goto now-q57ros] No more [goto now-q57ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q57b-1] [notequal q57b-2] $end $>Q57b-4< [within q57b] $d [none] <1-16> Refused [goto now-q57ros] Don't Know [goto now-q57ros] No more [goto now-q57ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q57b-1] [notequal q57b-2] [notequal q57b-3] $end $>Q57b-5< [within q57b] $d [none] <1-16> Refused [goto now-q57ros] Don't Know [goto now-q57ros] No more [goto now-q57ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q57b-1] [notequal q57b-2] [notequal q57b-3] [notequal q57b-4] $end $>Q57b-6< [within q57b] $d [none] <1-16> Refused [goto now-q57ros] Don't Know [goto now-q57ros] No more [goto now-q57ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q57b-1] [notequal q57b-2] [notequal q57b-3] [notequal q57b-4] [notequal q57b-5] $end $>Q57b-7< [within q57b] $d [none] <1-16> Refused [goto now-q57ros] Don't Know [goto now-q57ros] No more [goto now-q57ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q57b-1] [notequal q57b-2] [notequal q57b-3] [notequal q57b-4] [notequal q57b-5] [notequal q57b-6] $end $>Q57b-8< [within q57b] $d [none] <1-16> Refused [goto now-q57ros] Don't Know [goto now-q57ros] No more [goto now-q57ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q57b-1] [notequal q57b-2] [notequal q57b-3] [notequal q57b-4] [notequal q57b-5] [notequal q57b-6] [notequal q57b-7] $end $>Q57b-9< [within q57b] $d [none] <1-16> Refused [goto now-q57ros] Don't Know [goto now-q57ros] No more [goto now-q57ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q57b-1] [notequal q57b-2] [notequal q57b-3] [notequal q57b-4] [notequal q57b-5] [notequal q57b-6] [notequal q57b-7] [notequal Q57b-8] $end $>Q57b-10< [within q57b] $d [none] <1-16> Refused [goto now-q57ros] Don't Know [goto now-q57ros] No more [goto now-q57ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q57b-1] [notequal q57b-2] [notequal q57b-3] [notequal q57b-4] [notequal q57b-5] [notequal q57b-6] [notequal q57b-7] [notequal Q57b-8] [notequal Q57b-9] $end $>Q57b-11< [within q57b] $d [none] <1-16> Refused [goto now-q57ros] Don't Know [goto now-q57ros] No more [goto now-q57ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q57b-1] [notequal q57b-2] [notequal q57b-3] [notequal q57b-4] [notequal q57b-5] [notequal q57b-6] [notequal q57b-7] [notequal Q57b-8] [notequal Q57b-9] [notequal Q57b-10] $end $>Q57b-12< [within q57b] $d [none] <1-16> Refused [goto now-q57ros] Don't Know [goto now-q57ros] No more [goto now-q57ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q57b-1] [notequal q57b-2] [notequal q57b-3] [notequal q57b-4] [notequal q57b-5] [notequal q57b-6] [notequal q57b-7] [notequal Q57b-8] [notequal Q57b-9] [notequal Q57b-10] [notequal Q57b-11] $end $>Q57b-13< [within q57b] $d [none] <1-16> Refused [goto now-q57ros] Don't Know [goto now-q57ros] No more [goto now-q57ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q57b-1] [notequal q57b-2] [notequal q57b-3] [notequal q57b-4] [notequal q57b-5] [notequal q57b-6] [notequal q57b-7] [notequal Q57b-8] [notequal Q57b-9] [notequal Q57b-10] [notequal Q57b-11] [notequal Q57b-12] $end $>Q57b-14< [within q57b] $d [none] <1-16> Refused [goto now-q57ros] Don't Know [goto now-q57ros] No more [goto now-q57ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q57b-1] [notequal q57b-2] [notequal q57b-3] [notequal q57b-4] [notequal q57b-5] [notequal q57b-6] [notequal q57b-7] [notequal Q57b-8] [notequal Q57b-9] [notequal Q57b-10] [notequal Q57b-11] [notequal Q57b-12] [notequal Q57b-13] $end $>Q57b-15< [within q57b] $d [none] <1-16> Refused [goto now-q57ros] Don't Know [goto now-q57ros] No more [goto now-q57ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q57b-1] [notequal q57b-2] [notequal q57b-3] [notequal q57b-4] [notequal q57b-5] [notequal q57b-6] [notequal q57b-7] [notequal Q57b-8] [notequal Q57b-9] [notequal Q57b-10] [notequal Q57b-11] [notequal Q57b-12] [notequal Q57b-13] [notequal Q57b-14] $end $>Q57b-16< [within q57b] $d [none] <1-16> Refused Don't Know No more ===>__ [goto now-q57ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q57b-1] [notequal q57b-2] [notequal q57b-3] [notequal q57b-4] [notequal q57b-5] [notequal q57b-6] [notequal q57b-7] [notequal Q57b-8] [notequal Q57b-9] [notequal Q57b-10] [notequal Q57b-11] [notequal Q57b-12] [notequal Q57b-13] [notequal Q57b-14] [notequal Q57b-15] $end ------------------------------------------------------------------------------ $>NOW-Q57ROS< [do index <1> <16>] [store <0> in Q57BLN(index)] [end do] [if onpath q57b-1 then convert q57b-1 character to Q57BLN(1) integer] [if onpath q57b-2 then convert q57b-2 character to Q57BLN(2) integer] [if onpath q57b-3 then convert q57b-3 character to Q57BLN(3) integer] [if onpath q57b-4 then convert q57b-4 character to Q57BLN(4) integer] [if onpath q57b-5 then convert q57b-5 character to Q57BLN(5) integer] [if onpath q57b-6 then convert q57b-6 character to Q57BLN(6) integer] [if onpath q57b-7 then convert q57b-7 character to Q57BLN(7) integer] [if onpath q57b-8 then convert q57b-8 character to Q57BLN(8) integer] [if onpath q57b-9 then convert q57b-9 character to Q57BLN(9) integer] [if onpath q57b-10 then convert q57b-10 character to Q57BLN(10) integer] [if onpath q57b-11 then convert q57b-11 character to Q57BLN(11) integer] [if onpath q57b-12 then convert q57b-12 character to Q57BLN(12) integer] [if onpath q57b-13 then convert q57b-13 character to Q57BLN(13) integer] [if onpath q57b-14 then convert q57b-14 character to Q57BLN(14) integer] [if onpath q57b-15 then convert q57b-15 character to Q57BLN(15) integer] [if onpath q57b-16 then convert q57b-16 character to Q57BLN(16) integer] [do index <1> <16>] [store <0> in tabindex(index)] [convert hhmem(index) character to tabindex(index) integer] [end do] [if NUMHOU eq <1> then tablook tabindex <1> Q57BLN(1)] [store <0> in Q57ROS_R_P] $end -------------------------------------------------------------------------------- $ROPEN>Q57ROS< $>AFT-Q57ROS< [goto check-57d] $end ============================================================================== $RBEGIN>Q57ROS< [maxelt 16] ============================================================================== $>pre-q57c< [if R_P gt NROSIZ then roster exit] [store <0> in index] [tablook Q57BLN q57ros_R_P index] [if index eq <0> then roster loop] [if Q57BLN(index) nq R_P then roster loop] $end ----------------------------------------------------------------------------- $>Q57cp< [NIF R_P eq respli then] [store in temp2] [ELSE] [combine name(R_P) <'s> into temp2] [ENDIF] $d >Q57cp< What is the easiest way for you to tell us [fill temp2] Supplemental Security Income payment; monthly, quarterly, or yearly? <1> monthly <2> quarterly <3> yearly [blind] Don't know [goto Q57c1] Refused [goto SSIR] ===>_ $end --------------------------------------------------------------------------- $>Q57c< [store name(R_P) in temptext] [if R_P eq respli then store in temptext] [store in temp2] [store <1> in xbad(1)] [NIF Q57cp(R_P) is <1> then] [if onpath Q57cp:R_P then store in temp2] [ELSEIF Q57cp(R_P) is <2> then] [if onpath Q57cp:R_P then store in temp2] [ENDIF] $d >Q57c< How much did [fill temptext] receive [fill temp2] Supplemental Security Income payments in 1996? ENTER DOLLAR AMOUNT [blind] Don't know [goto Q57c1] Refused [goto SSIR] ===>[N]$_,___,___ .00 [if Q57cp(R_P) is <3> then goto Q57cC1] [goto Q57c2] $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>Q57c1< [store name(R_P) in temptext] [if R_P eq respli then store in temptext] [store <1> in xbad(1)] $d >Q57c1< What is the amount of the Supplemental Security Income payment [fill temptext] received last month? ENTER DOLLAR AMOUNT [blind] Don't know [goto SSIR] Refused [goto SSIR] ===>[N]$_,___,___ .00 $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>Q57c2< [store <0> in xbad(1)] [store <0> in index] [store name(R_P) in temptext] [store < > in temp2] [store < > in temp3] [if R_P eq respli then store in temptext] [NIF Q57cp(R_P) is <1> then] [if onpath Q57cp:R_P then store <12> in xbad(1)] [if onpath Q57cp:R_P then store in temp2] [if onpath Q57cp:R_P then store <{1-12}> in temp3] [ELSEIF Q57cp(R_P) is <3> then] [if onpath Q57cp:R_P then store <12> in xbad(1)] [if onpath Q57cp:R_P then store in temp2] [if onpath Q57cp:R_P then store <{1-12}> in temp3] [ELSEIF Q57cp(R_P) is <2> then] [if onpath Q57cp:R_P then store <4> in xbad(1)] [if onpath Q57cp:R_P then store in temp2] [if onpath Q57cp:R_P then store <{1-4}> in temp3] [ENDIF] [if onpath Q57c1:R_P then convert Q57c1(R_P) character to index integer] [NIF index ge <1> then] [store <12> in xbad(1)] [store in temp2] [store <{1-12}> in temp3] [ENDIF] $d >Q57c2< For how many [fill temp2] did [fill temptext] receive Supplemental Security Income in 1996? [fill temp3] [blind] Don't know [goto SSIR] Refused [goto SSIR] ===>__ $edit [notgreater xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>Q57c2-CK< [store <0> in index] [NIF Q57cp(R_P) is <1> OR Q57cp(R_P) is <2> then] [if onpath Q57cp:R_P then store <1> in index] [ENDIF] [NIF Q57c(R_P) isnt AND Q57c(R_P) isnt then] [if onpath Q57c:R_P then add <10> to index] [ENDIF] [if index eq <11> then goto Q57c4] $end ---------------------------------------------------------------------- $>Q57c3< $d >Q57c3< Was the cost of living increase the only change which occurred in monthly payments? <1> Yes <2> No [goto Q57c5] [blind] Don't know Refused ===>_ [goto Q57c4] $end ---------------------------------------------------------------------------- $>Q57cC1< [store <0> in index] [if onpath Q57c:R_P then convert Q57c(R_P) character to index integer] [if index lt <10> then goto Q57cC2] [if index gt <10000> then goto Q57cC2] [goto SSIR] $end --------------------------------------------------------------------------- $>Q57cC2< [if Q57cC2(R_P) is <2> then reset Q57cC2] $d >Q57cC2< **** DO NOT READ TO THE RESPONDENT ***** THE ANNUAL RATE APPEARS OUT OF RANGE. THE TOTAL SUPPLEMENTAL SECURITY INCOME RECEIVED IN 1996 WAS $[fill Q57c(R_P)]. IS THIS A CORRECT ENTRY? <1> Yes [goto SSIR] <2> No [backto Q57c:R_P] ===>_ $end ---------------------------------------------------------------------------- $>Q57c4< [store name(R_P) in temptext] [if R_P eq respli then store in temptext] [store <0> in index] [store <0> in index2] [store <0> in index3] [store <0> in index4] [store <0> in rindex] [store <0> in rindex2] [if onpath Q57c2:R_P then convert Q57c2(R_P) character to index integer] [NIF Q57c(R_P) isnt AND Q57c(R_P) isnt then] [if onpath Q57c:R_P then convert Q57c(R_P) character to index2 integer] [ENDIF] [NIF Q57cp(R_P) is <1> OR Q57cp(R_P) is <2> then] [if onpath Q57cp:R_P then multiply index by index2] [if onpath Q57cp:R_P then convert index integer to TQ57C4(R_P) character 10 0] [ENDIF] [store <0> in index] [NIF Q57c2(R_P) isnt AND Q57c2(R_P) isnt then] [if onpath Q57c2:R_P then convert Q57c2(R_P) character to rindex real] [ENDIF] [NIF Q57c1(R_P) isnt AND Q57c1(R_P) isnt then] [if onpath Q57c1:R_P then store <1> in index] [if onpath Q57c1:R_P then convert Q57c1(R_P) character to rindex2 real] [ENDIF] [store <0> in rindex3] [store <0> in rindex4] [NIf Q57c3(R_P) isnt <2> and index eq <1> then] [if onpath Q57c3:R_P then convert Q57c1(R_P) character to rindex4 real] [if onpath Q57c3:R_P then store <0.9718> in rindex3] ** changed by Thuan-was 0.9747 ** [if onpath Q57c3:R_P then multiply rindex3 by rindex4] [if onpath Q57c3:R_P then subtract rindex3 from rindex4] [if onpath Q57c3:R_P then multiply rindex4 by rindex] [if onpath Q57c3:R_P then multiply rindex2 by rindex] [if onpath Q57c3:R_P then subtract rindex4 from rindex2] [if onpath Q57c3:R_P then convert rindex2 real to TQ57C4(R_P) character 10 0] [ENDIF] $d >Q57c4< According to my calculations [fill temptext] received $[fill TQ57C4(R_P)] dollars altogether from Supplemental Security Income in 1996. Does that sound about right? <1> Yes <2> No [goto Q57c5] [blind] Don't know Refused ===>_ [goto SSIR] $end ---------------------------------------------------------------------------- $>Q57c5< [store name(R_P) in temptext] [store < > in temp2] [store < > in temp3] [store < > in temp4] [store < > in temp5] [store <1> in xbad(1)] [store <0> in index] [store <0> in index2] [if R_P eq respli then store in temptext] [if onpath Q57c:R_P then convert Q57c(R_P) character to index integer] [if onpath Q57c1:R_P then convert Q57c1(R_P) character to index2 integer] [NIF index ge <1> then] [store Q57c(R_P) in temp3] [store in temp2] [store < > in temp4] [store < > in temp5] [ENDIF] [store <0> in rindex] [store <0> in rindex2] [NIF index2 ge <1> then] [if onpath Q57c3:R_P then store Q57c1(R_P) in temp3] [if onpath Q57c3:R_P then store in temp2] [if onpath Q57c3:R_P then store in temp4] [if onpath Q57c3:R_P then convert Q57c1(R_P) character to rindex2 real] [if onpath Q57c3:R_P then store <0.9718> in rindex] ** changed by Thuan-was 0.9747 ** [if onpath Q57c3:R_P then multiply rindex by rindex2] [if onpath Q57c3:R_P then subtract rindex from rindex2] [if onpath Q57c3:R_P then convert rindex2 real to temp8 character 6 2] [if onpath Q57c3:R_P then combine <$> temp8 < subtracted per month> into temp5] [ENDIF] [NIF Q57cp(R_P) is <1> then] [if onpath Q57cp:R_P then store in temp7] [ELSEIF Q57cp(R_P) is <2> then] [if onpath Q57cp:R_P then store in temp7] [ELSEIF Q57cp(R_P) is <3> then] [if onpath Q57cp:R_P then store in temp7] [ENDIF] $d >Q57c5< What is your best estimate of the correct amount [fill temptext] received in Supplemental Security Income during 1996? PREVIOUS ENTRIES: [fill temp2] $[fill temp3] Q57cp: [fill temp7] Q57c2: [fill Q57c2(R_P)] [fill temp4] [fill temp5] ENTER DOLLAR AMOUNT [blind] Don't know Refused ===>[N]$_,___,___ .00 $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>SSIR< [multiple SSIR1 SSIR2 SSIR3 SSIR4 SSIR5] [store name(R_P) in temptext] [store in temp2] [if R_P eq respli then store in temptext] [if R_P eq respli then store in temp2] [store <0> in index2] [do index <1> <16>] [convert age(index) character to age-i(index) integer] [NIF AGERNG(index) gt <2> AND AGE(index) is then] [ELSEIF AGERNG(index) gt <2> AND AGE(index) is then] [ELSEIF hhmem(index) is <2> then] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <2> then] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <9> then] [ELSEIF PELIG(index) eq <12> OR hhmem(index) is <3> then] [ELSEIF age-i(index) gt <17> then] [ELSE] [add <1> to index2] [ENDIF] [end do] $itemtable >SSIR< What were the reasons [fill temptext] [fill temp2] getting Supplemental Security in 1996? PROBE: Any other reason? No more <1> Disabled <2> Blind <3> On behalf of a disabled child <4> On behalf of a blind child <5> Other ===>_ ===>_ ===>_ ===>_ ===>_ $end ---------------------------------------------------------------------- $>SSIR1< [within SSIR] $d [none] <1-5> [goto C-Q57CT] [goto C-Q57CT] $end $>SSIR2< [within SSIR] $d [none] <1-8> [goto PRE-SSIC] $edit [notequal SSIR1(R_P)] $end $>SSIR3< [within SSIR] $d [none] <1-8> [goto PRE-SSIC] $edit [notequal SSIR1(R_P)] [notequal SSIR2(R_P)] $end $>SSIR4< [within SSIR] $d [none] <1-8> [goto PRE-SSIC] $edit [notequal SSIR1(R_P)] [notequal SSIR2(R_P)] [notequal SSIR3(R_P)] $end $>SSIR5< [within SSIR] $d [none] <1-8> $edit [notequal SSIR1(R_P)] [notequal SSIR2(R_P)] [notequal SSIR3(R_P)] [notequal SSIR4(R_P)] $end ---------------------------------------------------------------------- $>PRE-SSIC< [store <0> in index] [NIF SSIR1(R_P) is <3> OR SSIR1(R_P) is <4> then] [if onpath SSIR1:R_P then store <1> in index] [ENDIF] [NIF SSIR2(R_P) is <3> OR SSIR2(R_P) is <4> then] [if onpath SSIR2:R_P then add <1> to index] [ENDIF] [NIF SSIR3(R_P) is <3> OR SSIR3(R_P) is <4> then] [if onpath SSIR3:R_P then add <1> to index] [ENDIF] [NIF SSIR4(R_P) is <3> OR SSIR4(R_P) is <4> then] [if onpath SSIR4:R_P then add <1> to index] [ENDIF] [NIF SSIR5(R_P) is <3> OR SSIR5(R_P) is <4> then] [if onpath SSIR5:R_P then add <1> to index] [ENDIF] [if index eq <0> then goto C-Q57CT] [store <0> in index2] [do index <1> <16>] [convert age(index) character to age-i(index) integer] [NIF AGERNG(index) ge <2> AND age(index) is then] [ELSEIF AGERNG(index) ge <2> AND age(index) is then] [ELSEIF hhmem(index) is <2> then] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <2> then] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <9> then] [ELSEIF PELIG(index) eq <12> OR hhmem(index) is <3> then] [ELSEIF age-i(index) gt <14> then] [ELSE] [add <1> to index2] [ENDIF] [end do] [if index2 le <1> then goto C-Q57CT] $end ---------------------------------------------------------------------- $>SSIC< [multiple SSIC1 SSIC2 SSIC3 SSIC4 SSIC5 SSIC6 SSIC7 SSIC8] [multiple SSIC9 SSIC10 SSIC11 SSIC12 SSIC13 SSIC14 SSIC15 SSIC16] [do index <1> <16>] [store < > in tempname(index)] [store < > in xbad(index)] [convert age(index) character to age-i(index) integer] [NIF hhmem(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF AGE(index) is AND AGERNG(index) ge <2> then] [convert index integer to xbad(index) character] [ELSEIF AGE(index) is AND AGERNG(index) ge <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <9> then] [convert index integer to xbad(index) character] [ELSEIF PELIG(index) eq <12> OR hhmem(index) is <3> then] [convert index integer to xbad(index) character] [ELSEIF age-i(index) gt <14> then] [convert index integer to xbad(index) character] [ENDIF] [end do] [do index <1> NROSIZ] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to tempname(index)(2:2) character] [ELSEIF index2 ge <10> then] [convert index2 integer to tempname(index)(1:2) character] [ENDIF] [store name(index) in tempname(index)(4:27)] [store relation(index) in tempname(index)(29:37)] [store <0> in index4] [convert xbad(index) character to index4 integer] [if index4 gt <0> then store < > in tempname(index)] [end do] $itemtable >SSIC< Which children under age 15 were receiving Supplemental Security Income in 1996? LN NAME RELATION LN NAME RELATION [fill/l tempname(1)] [fill tempname(9)] [fill/l tempname(2)] [fill tempname(10)] [fill/l tempname(3)] [fill tempname(11)] [fill/l tempname(4)] [fill tempname(12)] [fill/l tempname(5)] [fill tempname(13)] [fill/l tempname(6)] [fill tempname(14)] [fill/l tempname(7)] [fill tempname(15)] [fill/l tempname(8)] [fill tempname(16)] ENTER LINE NUMBER No more None of the above PROBE: Anyone else? ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ $end ----------------------------------------------------------------------------- $>SSIC1< [within SSIC] $d [none] <1-16> Refused [goto C-q57Ct] Don't Know [goto C-Q57Ct] None of the above [goto C-Q57Ct] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end $>SSIC2< [within SSIC] $d [none] <1-16> No more [goto C-Q57CT] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal SSIC1(R_P)] $end $>SSIC3< [within SSIC] $d [none] <1-16> No more [goto C-Q57CT] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal SSIC1(R_P)] [notequal SSIC2(R_P)] $end $>SSIC4< [within SSIC] $d [none] <1-16> No more [goto C-Q57CT] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal SSIC1(R_P)] [notequal SSIC2(R_P)] [notequal SSIC3(R_P)] $end $>SSIC5< [within SSIC] $d [none] <1-16> No more [goto C-Q57CT] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal SSIC1(R_P)] [notequal SSIC2(R_P)] [notequal SSIC3(R_P)] [notequal SSIC4(R_P)] $end $>SSIC6< [within SSIC] $d [none] <1-16> No more [goto C-Q57CT] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal SSIC1(R_P)] [notequal SSIC2(R_P)] [notequal SSIC3(R_P)] [notequal SSIC4(R_P)] [notequal SSIC5(R_P)] $end $>SSIC7< [within SSIC] $d [none] <1-16> No more [goto C-Q57CT] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal SSIC1(R_P)] [notequal SSIC2(R_P)] [notequal SSIC3(R_P)] [notequal SSIC4(R_P)] [notequal SSIC5(R_P)] [notequal SSIC6(R_P)] $end $>SSIC8< [within SSIC] $d [none] <1-16> No more [goto C-Q57CT] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal SSIC1(R_P)] [notequal SSIC2(R_P)] [notequal SSIC3(R_P)] [notequal SSIC4(R_P)] [notequal SSIC5(R_P)] [notequal SSIC6(R_P)] [notequal SSIC7(R_P)] $end $>SSIC9< [within SSIC] $d [none] <1-16> No more [goto C-Q57CT] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal SSIC1(R_P)] [notequal SSIC2(R_P)] [notequal SSIC3(R_P)] [notequal SSIC4(R_P)] [notequal SSIC5(R_P)] [notequal SSIC6(R_P)] [notequal SSIC7(R_P)] [notequal SSIC8(R_P)] $end $>SSIC10< [within SSIC] $d [none] <1-16> No more [goto C-Q57CT] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal SSIC1(R_P)] [notequal SSIC2(R_P)] [notequal SSIC3(R_P)] [notequal SSIC4(R_P)] [notequal SSIC5(R_P)] [notequal SSIC6(R_P)] [notequal SSIC7(R_P)] [notequal SSIC8(R_P)] [notequal SSIC9(R_P)] $end $>SSIC11< [within SSIC] $d [none] <1-16> No more [goto C-Q57CT] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal SSIC1(R_P)] [notequal SSIC2(R_P)] [notequal SSIC3(R_P)] [notequal SSIC4(R_P)] [notequal SSIC5(R_P)] [notequal SSIC6(R_P)] [notequal SSIC7(R_P)] [notequal SSIC8(R_P)] [notequal SSIC9(R_P)] [notequal SSIC10(R_P)] $end $>SSIC12< [within SSIC] $d [none] <1-16> No more [goto C-Q57CT] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal SSIC1(R_P)] [notequal SSIC2(R_P)] [notequal SSIC3(R_P)] [notequal SSIC4(R_P)] [notequal SSIC5(R_P)] [notequal SSIC6(R_P)] [notequal SSIC7(R_P)] [notequal SSIC8(R_P)] [notequal SSIC9(R_P)] [notequal SSIC10(R_P)] [notequal SSIC11(R_P)] $end $>SSIC13< [within SSIC] $d [none] <1-16> No more [goto C-Q57CT] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal SSIC1(R_P)] [notequal SSIC2(R_P)] [notequal SSIC3(R_P)] [notequal SSIC4(R_P)] [notequal SSIC5(R_P)] [notequal SSIC6(R_P)] [notequal SSIC7(R_P)] [notequal SSIC8(R_P)] [notequal SSIC9(R_P)] [notequal SSIC10(R_P)] [notequal SSIC11(R_P)] [notequal SSIC12(R_P)] $end $>SSIC14< [within SSIC] $d [none] <1-16> No more [goto C-Q57CT] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal SSIC1(R_P)] [notequal SSIC2(R_P)] [notequal SSIC3(R_P)] [notequal SSIC4(R_P)] [notequal SSIC5(R_P)] [notequal SSIC6(R_P)] [notequal SSIC7(R_P)] [notequal SSIC8(R_P)] [notequal SSIC9(R_P)] [notequal SSIC10(R_P)] [notequal SSIC11(R_P)] [notequal SSIC12(R_P)] [notequal SSIC13(R_P)] $end $>SSIC15< [within SSIC] $d [none] <1-16> No more [goto C-Q57CT] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal SSIC1(R_P)] [notequal SSIC2(R_P)] [notequal SSIC3(R_P)] [notequal SSIC4(R_P)] [notequal SSIC5(R_P)] [notequal SSIC6(R_P)] [notequal SSIC7(R_P)] [notequal SSIC8(R_P)] [notequal SSIC9(R_P)] [notequal SSIC10(R_P)] [notequal SSIC11(R_P)] [notequal SSIC12(R_P)] [notequal SSIC13(R_P)] [notequal SSIC14(R_P)] $end $>SSIC16< [within SSIC] $d [none] <1-16> No more $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal SSIC1(R_P)] [notequal SSIC2(R_P)] [notequal SSIC3(R_P)] [notequal SSIC4(R_P)] [notequal SSIC5(R_P)] [notequal SSIC6(R_P)] [notequal SSIC7(R_P)] [notequal SSIC8(R_P)] [notequal SSIC9(R_P)] [notequal SSIC10(R_P)] [notequal SSIC11(R_P)] [notequal SSIC12(R_P)] [notequal SSIC13(R_P)] [notequal SSIC14(R_P)] [notequal SSIC15(R_P)] $end ------------------------------------------------------------------------------ $>C-Q57ct< CODE FOR Q57CT [store <0> in index] [store < > in Q57ct(R_P)] [NIF Q57c(R_P) isnt AND Q57c(R_P) isnt then] [if onpath Q57c:R_P then store <1> in index] [ENDIF] [NIF Q57c4(R_P) is <1> AND index eq <1> then] [if onpath Q57c4:R_P then store TQ57C4(R_P) in Q57ct(R_P)] [if onpath Q57c4:R_P then roster loop] [ELSEIF Q57c4(R_P) is AND index eq <1> then] [if onpath Q57c4:R_P then store TQ57C4(R_P) in Q57ct(R_P)] [if onpath Q57c4:R_P then roster loop] [ELSEIF Q57c4(R_P) is AND index eq <1> then] [if onpath Q57c4:R_P then store TQ57C4(R_P) in Q57ct(R_P)] [if onpath Q57c4:R_P then roster loop] [ENDIF] [NIF Q57c5(R_P) isnt AND Q57c5(R_P) isnt then] [if onpath Q57c5:R_P then add <10> to index] [ELSE] [if onpath Q57c5:R_P then add <20> to index] [ENDIF] [NIF Q57c4(R_P) is <2> AND index eq <11> then] [if onpath Q57c4:R_P then store Q57c5(R_P) in Q57ct(R_P)] [if onpath Q57c4:R_P then roster loop] [ELSEIF Q57c4(R_P) is <2> AND index eq <21> then] [if onpath Q57c4:R_P then store TQ57C4(R_P) in Q57ct(R_P)] [if onpath Q57c4:R_P then roster loop] [ENDIF] [NIF Q57cp(R_P) is <3> then] [if onpath Q57cp:R_P then store Q57c(R_P) in Q57ct(R_P)] [if onpath Q57cp:R_P then roster loop] [ENDIF] [store <0> in index] [store <0> in index2] [NIF Q57c1(R_P) isnt AND Q57c1(R_P) isnt then] [if onpath Q57c1:R_P then store <1> in index] [ENDIF] [NIF Q57c3(R_P) isnt <2> then] [if onpath Q57c3:R_P then store <1> in index2] [ENDIF] [NIF Q57c4(R_P) isnt <2> then] [if onpath Q57c4:R_P then add <10> to index2] [ENDIF] [NIF index eq <1> AND index2 eq <11> then] [store TQ57C4(R_P) in Q57ct(R_P)] [roster loop] [ENDIF] [store <0> in index2] [store <0> in index3] [NIF Q57c3(R_P) isnt <2> then] [if onpath Q57c3:R_P then store <1> in index2] [ENDIF] [NIF Q57c4(R_P) is <2> then] [if onpath Q57c4:R_P then add <10> to index2] [ENDIF] [NIF index eq <1> AND index2 eq <11> then] [store <1> in index3] [ENDIF] [NIF Q57c5(R_P) is and index3 eq <1> then] [if onpath Q57c5:R_P then store TQ57C4(R_P) in Q57ct(R_P)] [if onpath Q57c5:R_P then roster loop] [ELSEIF Q57c5(R_P) is and index3 eq <1> then] [if onpath Q57c5:R_P then store TQ57C4(R_P) in Q57ct(R_P)] [if onpath Q57c5:R_P then roster loop] [ELSEIF index3 eq <1> then] [if onpath Q57c5:R_P then store Q57c5(R_P) in Q57ct(R_P)] [if onpath Q57c5:R_P then roster loop] [ENDIF] [store <0> in index2] [store <0> in index3] [store <0> in rindex] [store <0> in rindex2] [NIF Q57c3(R_P) is <2> then] [if onpath Q57c3:R_P then store <1> in index2] [ENDIF] [NIF index eq <1> AND index2 eq <1> then] [store <1> in index3] [ENDIF] [NIF Q57c2(R_P) isnt AND Q57c2(R_P) isnt then] [if onpath Q57c2:R_P then convert Q57c2(R_P) character to rindex real] [ENDIF] [NIF Q57c1(R_P) isnt AND Q57C1(R_P) isnt then] [if onpath Q57c1:R_P then convert Q57c1(R_P) character to rindex2 real] [ENDIF] [store <0> in rindex3] [store <0> in rindex4] [NIF Q57c5(R_P) is and index3 eq <1> then] [if onpath Q57c5:R_P then convert Q57c1(R_P) character to rindex4 real] [if onpath Q57c5:R_P then store <0.9718> in rindex3] ** changed by Thuan-was 0.9747 ** [if onpath Q57c5:R_P then multiply rindex3 by rindex4] [if onpath Q57c5:R_P then subtract rindex3 from rindex4] [if onpath Q57c5:R_P then multiply rindex4 by rindex] [if onpath Q57c5:R_P then multiply rindex2 by rindex] [if onpath Q57c5:R_P then subtract rindex4 from rindex2] [if onpath Q57c5:R_P then convert rindex2 real to Q57ct(R_P) character 10 0] [if onpath Q57c5:R_P then roster loop] [ELSEIF Q57c5(R_P) is and index3 eq <1> then] [if onpath Q57c5:R_P then convert Q57c1(R_P) character to rindex4 real] [if onpath Q57c5:R_P then store <0.9718> in rindex3] ** changed by Thuan-was 0.9747 ** [if onpath Q57c5:R_P then multiply rindex3 by rindex4] [if onpath Q57c5:R_P then subtract rindex3 from rindex4] [if onpath Q57c5:R_P then multiply rindex4 by rindex] [if onpath Q57c5:R_P then multiply rindex2 by rindex] [if onpath Q57c5:R_P then subtract rindex4 from rindex2] [if onpath Q57c5:R_P then convert rindex2 real to Q57ct(R_P) character 10 0] [if onpath Q57c5:R_P then roster loop] [ELSEIF index3 eq <1> then] [if onpath Q57c5:R_P then store Q57c5(R_P) in Q57ct(R_P)] [if onpath Q57c5:R_P then roster loop] [ENDIF] [NIF Q57c1(R_P) is then] [if onpath Q57c1:R_P then store in Q57ct(R_P)] [ENDIF] [NIF Q57c2(R_P) is then] [if onpath Q57c2:R_P then store in Q57ct(R_P)] [ENDIF] [roster loop] $end ---------------------------------------------------------------------------- ============================================================================== $REND>Q57ROS< ============================================================================== $>check-57d< [store <0> in index3] [do index <1> NROSIZ] [convert age(index) character to age-i(index) integer] [NIF age-i(index) lt <18> AND hhmem(index) is <1> then] [add <1> to index3] [ENDIF] [end do] [if index3 ge <1> then goto q57d] [goto CHECK58-88] $end ----------------------------------------------------------------------------- $>Q57d< [indirect] $d >Q57d< Did anyone in this household receive any Supplemental Security Income in 1996 that we have not already counted on behalf of children in this household? INCLUDES ALL CHILDREN UNDER 18 YEARS OF AGE <1> Yes [goto q57e] <2> No (Help) Supplemental Security income previously reported [referto SSI-Ic] [blind] Refused Don't Know ===>_ [goto CHECK58-88] $end ----------------------------------------------------------------------------- $>Q57e< [multiple q57e1 q57e2 q57e3 q57e4 q57e5 q57e6 q57e7 q57e8] [multiple q57e9 q57e10 q57e11 q57e12 q57e13 q57e14 q57e15 q57e16] [indirect] [do index <1> <16>] [store < > in tempname(index)] [store < > in xbad(index)] [NIF AGERNG(index) lt <2> then] [convert index integer to xbad(index) character] [ELSEIF hhmem(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <9> then] [convert index integer to xbad(index) character] [ELSEIF PELIG(index) eq <12> OR hhmem(index) is <3> then] [convert index integer to xbad(index) character] [ENDIF] [end do] [do index <1> NROSIZ] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to tempname(index)(2:2) character] [ELSEIF index2 ge <10> then] [convert index2 integer to tempname(index)(1:2) character] [ENDIF] [store name(index) in tempname(index)(4:27)] [store relation(index) in tempname(index)(29:37)] [store <0> in index4] [convert xbad(index) character to index4 integer] [if index4 gt <0> then store < > in tempname(index)] [end do] $itemtable >Q57e< **READ ONLY IF NECESSARY** Who received these Supplemental Security Income payments? ENTER LINE NUMBER OF PARENT OR GUARDIAN LN NAME RELATION LN NAME RELATION [fill/l tempname(1)] [fill tempname(9)] [fill/l tempname(2)] [fill tempname(10)] [fill/l tempname(3)] [fill tempname(11)] [fill/l tempname(4)] [fill tempname(12)] [fill/l tempname(5)] [fill tempname(13)] [fill/l tempname(6)] [fill tempname(14)] [fill/l tempname(7)] [fill tempname(15)] [fill/l tempname(8)] [fill tempname(16)] ENTER LINE NUMBER No more PROBE: Anyone else? ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ $end ----------------------------------------------------------------------------- $>Q57e1< [within q57e] $d [none] <1-16> Refused [goto CHECK58-88] Don't Know [goto CHECK58-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end $>Q57e2< [within q57e] $d [none] <1-16> Refused [goto now-q57add] Don't Know [goto now-q57add] No more [goto now-q57add] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q57e1] $end $>Q57e3< [within q57e] $d [none] <1-16> Refused [goto now-q57add] Don't Know [goto now-q57add] No more [goto now-q57add] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q57e1] [notequal q57e2] $end $>Q57e4< [within q57e] $d [none] <1-16> Refused [goto now-q57add] Don't Know [goto now-q57add] No more [goto now-q57add] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q57e1] [notequal q57e2] [notequal q57e3] $end $>Q57e5< [within q57e] $d [none] <1-16> Refused [goto now-q57add] Don't Know [goto now-q57add] No more [goto now-q57add] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q57e1] [notequal q57e2] [notequal q57e3] [notequal q57e4] $end $>Q57e6< [within q57e] $d [none] <1-16> Refused [goto now-q57add] Don't Know [goto now-q57add] No more [goto now-q57add] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q57e1] [notequal q57e2] [notequal q57e3] [notequal q57e4] [notequal q57e5] $end $>Q57e7< [within q57e] $d [none] <1-16> Refused [goto now-q57add] Don't Know [goto now-q57add] No more [goto now-q57add] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q57e1] [notequal q57e2] [notequal q57e3] [notequal q57e4] [notequal q57e5] [notequal q57e6] $end $>Q57e8< [within q57e] $d [none] <1-16> Refused [goto now-q57add] Don't Know [goto now-q57add] No more [goto now-q57add] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q57e1] [notequal q57e2] [notequal q57e3] [notequal q57e4] [notequal q57e5] [notequal q57e6] [notequal q57e7] $end $>Q57e9< [within q57e] $d [none] <1-16> Refused [goto now-q57add] Don't Know [goto now-q57add] No more [goto now-q57add] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q57e1] [notequal q57e2] [notequal q57e3] [notequal q57e4] [notequal q57e5] [notequal q57e6] [notequal q57e7] [notequal Q57e8] $end $>Q57e10< [within q57e] $d [none] <1-16> Refused [goto now-q57add] Don't Know [goto now-q57add] No more [goto now-q57add] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q57e1] [notequal q57e2] [notequal q57e3] [notequal q57e4] [notequal q57e5] [notequal q57e6] [notequal q57e7] [notequal Q57e8] [notequal Q57e9] $end $>Q57e11< [within q57e] $d [none] <1-16> Refused [goto now-q57add] Don't Know [goto now-q57add] No more [goto now-q57add] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q57e1] [notequal q57e2] [notequal q57e3] [notequal q57e4] [notequal q57e5] [notequal q57e6] [notequal q57e7] [notequal Q57e8] [notequal Q57e9] [notequal Q57e10] $end $>Q57e12< [within q57e] $d [none] <1-16> Refused [goto now-q57add] Don't Know [goto now-q57add] No more [goto now-q57add] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q57e1] [notequal q57e2] [notequal q57e3] [notequal q57e4] [notequal q57e5] [notequal q57e6] [notequal q57e7] [notequal Q57e8] [notequal Q57e9] [notequal Q57e10] [notequal Q57e11] $end $>Q57e13< [within q57e] $d [none] <1-16> Refused [goto now-q57add] Don't Know [goto now-q57add] No more [goto now-q57add] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q57e1] [notequal q57e2] [notequal q57e3] [notequal q57e4] [notequal q57e5] [notequal q57e6] [notequal q57e7] [notequal Q57e8] [notequal Q57e9] [notequal Q57e10] [notequal Q57e11] [notequal Q57e12] $end $>Q57e14< [within q57e] $d [none] <1-16> Refused [goto now-q57add] Don't Know [goto now-q57add] No more [goto now-q57add] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q57e1] [notequal q57e2] [notequal q57e3] [notequal q57e4] [notequal q57e5] [notequal q57e6] [notequal q57e7] [notequal Q57e8] [notequal Q57e9] [notequal Q57e10] [notequal Q57e11] [notequal Q57e12] [notequal Q57e13] $end $>Q57e15< [within q57e] $d [none] <1-16> Refused [goto now-q57add] Don't Know [goto now-q57add] No more [goto now-q57add] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q57e1] [notequal q57e2] [notequal q57e3] [notequal q57e4] [notequal q57e5] [notequal q57e6] [notequal q57e7] [notequal Q57e8] [notequal Q57e9] [notequal Q57e10] [notequal Q57e11] [notequal Q57e12] [notequal Q57e13] [notequal Q57e14] $end $>Q57e16< [within q57e] $d [none] <1-16> Refused [goto now-q57add] Don't Know [goto now-q57add] No more [goto now-q57add] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q57e1] [notequal q57e2] [notequal q57e3] [notequal q57e4] [notequal q57e5] [notequal q57e6] [notequal q57e7] [notequal Q57e8] [notequal Q57e9] [notequal Q57e10] [notequal Q57e11] [notequal Q57e12] [notequal Q57e13] [notequal Q57e14] [notequal Q57e15] $end ------------------------------------------------------------------------------ $>NOW-Q57ADD< [do index <1> <16>] [store <0> in Q57DLN(index)] [end do] [if onpath q57e1 then convert q57e1 character to Q57DLN(1) integer] [if onpath q57e2 then convert q57e2 character to Q57DLN(2) integer] [if onpath q57e3 then convert q57e3 character to Q57DLN(3) integer] [if onpath q57e4 then convert q57e4 character to Q57DLN(4) integer] [if onpath q57e5 then convert q57e5 character to Q57DLN(5) integer] [if onpath q57e6 then convert q57e6 character to Q57DLN(6) integer] [if onpath q57e7 then convert q57e7 character to Q57DLN(7) integer] [if onpath q57e8 then convert q57e8 character to Q57DLN(8) integer] [if onpath q57e9 then convert q57e9 character to Q57DLN(9) integer] [if onpath q57e10 then convert q57e10 character to Q57DLN(10) integer] [if onpath q57e11 then convert q57e11 character to Q57DLN(11) integer] [if onpath q57e12 then convert q57e12 character to Q57DLN(12) integer] [if onpath q57e13 then convert q57e13 character to Q57DLN(13) integer] [if onpath q57e14 then convert q57e14 character to Q57DLN(14) integer] [if onpath q57e15 then convert q57e15 character to Q57DLN(15) integer] [if onpath q57e16 then convert q57e16 character to Q57DLN(16) integer] [store <0> in Q57add_R_P] $end ------------------------------------------------------------------------------ $ROPEN>Q57ADD< $>AFT-Q57ADD< [goto check58-88] $end ============================================================================== $RBEGIN>Q57ADD< [maxelt 16] ============================================================================== Comment: The items in this roster revised the same as those in the 56DROS. 3/88 $>pre-q57i< [if R_P gt NROSIZ then roster exit] [store <0> in index] [tablook Q57DLN q57add_R_P index] [if index eq <0> then roster loop] [if Q57DLN(index) nq R_P then roster loop] $end -------------------------------------------------------------------------------- $>Q57ip< [store name(R_P) in temptext] [NIF R_P eq respli then] [store in temptext] [ENDIF] $d >Q57ip< What is the easiest way for you to tell us the Supplemental Security Income [fill temptext] received on behalf of children? <1> monthly <2> quarterly <3> yearly [blind] Don't know [goto Q57i1] Refused [goto RSSI] ===>_ $end --------------------------------------------------------------------------- $>Q57i< [store name(R_P) in temptext] [if R_P eq respli then store in temptext] [store in temp2] [store <1> in xbad(1)] [NIF Q57ip(R_P) is <1> then] [if onpath Q57ip:R_P then store in temp2] [ELSEIF Q57ip(R_P) is <2> then] [if onpath Q57ip:R_P then store in temp2] [ENDIF] $d >Q57i< How much did [fill temptext] receive [fill temp2] Supplemental Security Income on behalf of children in 1996? ENTER DOLLAR AMOUNT [blind] Don't know [goto Q57i1] Refused [goto RSSI] ===>[N]$_,___,___ .00 [if Q57ip(R_P) is <3> then goto Q57iC1] [goto Q57i2] $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>Q57i1< [store name(R_P) in temptext] [if R_P eq respli then store in temptext] [store <1> in xbad(1)] $d >Q57i1< What is the amount of Supplemental Security Income payment [fill temptext] received on behalf of children last month? ENTER DOLLAR AMOUNT [blind] Don't know [goto RSSI] Refused [goto RSSI] ===>[N]$_,___,___ .00 $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>Q57i2< [store <0> in xbad(1)] [store <0> in index] [store name(R_P) in temptext] [store < > in temp2] [store < > in temp3] [if R_P eq respli then store in temptext] [NIF Q57ip(R_P) is <1> then] [if onpath Q57ip:R_P then store <12> in xbad(1)] [if onpath Q57ip:R_P then store in temp2] [if onpath Q57ip:R_P then store <{1-12}> in temp3] [ELSEIF Q57ip(R_P) is <3> then] [if onpath Q57ip:R_P then store <12> in xbad(1)] [if onpath Q57ip:R_P then store in temp2] [if onpath Q57ip:R_P then store <{1-12}> in temp3] [ELSEIF Q57ip(R_P) is <2> then] [if onpath Q57ip:R_P then store <4> in xbad(1)] [if onpath Q57ip:R_P then store in temp2] [if onpath Q57ip:R_P then store <{1-4}> in temp3] [ENDIF] [if onpath Q57i1:R_P then convert Q57i1(R_P) character to index integer] [NIF index ge <1> then] [store <12> in xbad(1)] [store in temp2] [store <{1-12}> in temp3] [ENDIF] [store <0> in xbad(2)] $d >Q57i2< For how many [fill temp2] did [fill temptext] receive Supplemental Security Income on behalf of children in 1996? [fill temp3] [blind] Don't know [goto RSSI] Refused [goto RSSI] ===>__ $edit [notequal xbad(2)] [notless xbad(2)] [notgreater xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>Q57i2-CK< [NIF Q57i1(R_P) isnt AND Q57i1(R_P) isnt then] [if onpath Q57i1:R_P then goto Q57i3] [ENDIF] [store <0> in index] [NIF Q57ip(R_P) is <1> OR Q57ip(R_P) is <2> then] [if onpath Q57ip:R_P then store <1> in index] [ENDIF] [NIF Q57i(R_P) isnt AND Q57i(R_P) isnt then] [if onpath Q57i:R_P then add <10> to index] [ENDIF] [if index eq <11> then goto Q57i4] $end ---------------------------------------------------------------------- $>Q57i3< $d >Q57i3< Was the cost of living increase the only change which occurred in monthly payments? <1> Yes <2> No [goto Q57i5] [blind] Don't know Refused ===>_ [goto Q57i4] $end ---------------------------------------------------------------------------- $>Q57iC1< [store <0> in index] [if onpath Q57i:R_P then convert Q57i(R_P) character to index integer] [NIF index lt <1000> then] [goto Q57iC2] [ELSEIF index gt <10000> then] [goto Q57iC2] [ENDIF] [goto RSSI] $end --------------------------------------------------------------------------- $>Q57iC2< [if Q57iC2(R_P) is <2> then reset Q57iC2] $d >Q57iC2< **** DO NOT READ TO THE RESPONDENT **** THE ANNUAL RATE APPEARS OUT OF RANGE. THE TOTAL SUPPLEMENTAL SECURITY INCOME RECEIVED IN 1996 ON BEHALF OF CHILDREN WAS $[fill Q57i(R_P)]. IS THIS A CORRECT ENTRY? <1> Yes [goto RSSI] <2> No [backto Q57i:R_P] ===>_ $end ---------------------------------------------------------------------------- $>Q57i4< [store name(R_P) in temptext] [if R_P eq respli then store in temptext] [store <0> in index] [store <0> in index2] [store <0> in index3] [store <0> in index4] [store <0> in rindex] [store <0> in rindex2] [if onpath Q57i2:R_P then convert Q57i2(R_P) character to index integer] [NIF Q57i(R_P) isnt AND Q57i(R_P) isnt then] [if onpath Q57i:R_P then convert Q57i(R_P) character to index2 integer] [ENDIF] [NIF Q57ip(R_P) is <1> OR Q57ip(R_P) is <2> then] [if onpath Q57ip:R_P then multiply index by index2] [if onpath Q57ip:R_P then convert index integer to Q57I4T(R_P) character] [ENDIF] [store <0> in index] [NIF Q57i2(R_P) isnt AND Q57i2(R_P) isnt then] [if onpath Q57i2:R_P then convert Q57i2(R_P) character to rindex real] [ENDIF] [NIF Q57i1(R_P) isnt AND Q57i1(R_P) isnt then] [if onpath Q57i1:R_P then store <1> in index] [if onpath Q57i1:R_P then convert Q57i1(R_P) character to rindex2 real] [ENDIF] [store <0> in rindex3] [store <0> in rindex4] [NIf Q57i3(R_P) is <1> and index eq <1> then] [if onpath Q57i3:R_P then convert Q57i1(R_P) character to rindex4 real] [if onpath Q57i3:R_P then store <0.9718> in rindex3] ** changed by Thuan-was 0.9747 ** [if onpath Q57i3:R_P then multiply rindex3 by rindex4] [if onpath Q57i3:R_P then subtract rindex3 from rindex4] [if onpath Q57i3:R_P then multiply rindex4 by rindex] [if onpath Q57i3:R_P then multiply rindex2 by rindex] [if onpath Q57i3:R_P then subtract rindex4 from rindex2] [if onpath Q57i3:R_P then convert rindex2 real to Q57I4T(R_P) character 10 0] [ENDIF] $d >Q57i4< According to my calculations [fill temptext] received $[fill Q57I4T(R_P)] dollars altogether from Supplemental Security Income on behalf of children in 1996. Does that sound about right? <1> Yes <2> No [goto Q57i5] [blind] Don't know Refused ===>_ [goto RSSI] $end ---------------------------------------------------------------------------- $>Q57i5< [store name(R_P) in temptext] [store < > in temp2] [store < > in temp3] [store < > in temp4] [store < > in temp5] [store <1> in xbad(1)] [store <0> in index] [if R_P eq respli then store in temptext] [if onpath Q57i:R_P then convert Q57i(R_P) character to index integer] [if onpath Q57i1:R_P then convert Q57i1(R_P) character to index2 integer] [NIF index ge <1> then] [store Q57i(R_P) in temp3] [store in temp2] [store < > in temp4] [store < > in temp5] [ENDIF] [store <0> in rindex] [store <0> in rindex2] [NIF index2 ge <1> then] [if onpath Q57i3:R_P then store Q57i1(R_P) in temp3] [if onpath Q57i3:R_P then store in temp2] [if onpath Q57i3:R_P then store in temp4] [if onpath Q57i3:R_P then convert Q57i1(R_P) character to rindex2 real] [if onpath Q57i3:R_P then store <0.9718> in rindex] ** changed by Thuan-was 0.9747 ** [if onpath Q57i3:R_P then multiply rindex by rindex2] [if onpath Q57i3:R_P then subtract rindex from rindex2] [if onpath Q57i3:R_P then convert rindex2 real to temp8 character 6 2] [if onpath Q57i3:R_P then combine <$> temp8 < subtracted per month> into temp5] [ENDIF] [NIF Q57ip(R_P) is <1> then] [if onpath Q57ip:R_P then store in temp7] [ELSEIF Q57ip(R_P) is <2> then] [if onpath Q57ip:R_P then store in temp7] [ELSEIF Q57ip(R_P) is <3> then] [if onpath Q57ip:R_P then store in temp7] [ENDIF] $d >Q57i5< What is your best estimate of the correct amount [fill temptext] received in Supplemental Security Income on behalf of children during 1996? PREVIOUS ENTRIES: [fill temp2] $[fill temp3] Q57ip: [fill temp7] Q57i2: [fill Q57i2(R_P)] [fill temp4] [fill temp5] ENTER DOLLAR AMOUNT [blind] Don't know Refused ===>[N]$_,___,___ .00 $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>RSSI< [multiple RSSI1 RSSI2 RSSI3] [store name(R_P) in temptext] [store in temp2] [if R_P eq respli then store in temptext] [if R_P eq respli then store in temp2] $itemtable >RSSI< What were the reasons [fill temptext] [fill temp2] getting Supplemental Security Income on behalf of children in 1996? PROBE: Any other reason? No more <1> On behalf of disabled child/children <2> On behalf of blind child/children <3> Other ===>_ ===>_ ===>_ $end ---------------------------------------------------------------------- $>RSSI1< [within RSSI] $d [none] <1> <2> <3> [goto C-Q57IT] [goto C-Q57IT] $end $>RSSI2< [within RSSI] $d [none] <1> <2> <3> [goto PRE-CSSI] $edit [notequal RSSI1(R_P)] $end $>RSSI3< [within RSSI] $d [none] <1> <2> <3> [goto PRE-CSSI] $edit [notequal RSSI1(R_P)] [notequal RSSI2(R_P)] $end ---------------------------------------------------------------------- $>PRE-CSSI< [store <0> in index2] [do index <1> <16>] [convert age(index) character to age-i(index) integer] [NIF AGERNG(index) gt <2> AND age(index) is then] [ELSEIF AGERNG(index) gt <2> AND age(index) is then] [ELSEIF hhmem(index) is <2> then] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <2> then] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <9> then] [ELSEIF PELIG(index) eq <12> OR hhmem(index) is <3> then] [ELSEIF age-i(index) gt <17> then] [ELSE] [add <1> to index2] [ENDIF] [end do] [if index2 le <1> then goto C-Q57IT] $end ---------------------------------------------------------------------- $>CSSI< [multiple CSSI1 CSSI2 CSSI3 CSSI4 CSSI5 CSSI6 CSSI7 CSSI8] [multiple CSSI9 CSSI10 CSSI11 CSSI12 CSSI13 CSSI14 CSSI15 CSSI16] [do index <1> <16>] [store < > in tempname(index)] [store < > in xbad(index)] [convert age(index) character to age-i(index) integer] [NIF hhmem(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF AGE(index) is AND AGERNG(index) gt <2> then] [convert index integer to xbad(index) character] [ELSEIF AGE(index) is AND AGERNG(index) gt <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <9> then] [convert index integer to xbad(index) character] [ELSEIF PELIG(index) eq <12> OR hhmem(index) is <3> then] [convert index integer to xbad(index) character] [ELSEIF age-i(index) gt <17> then] [convert index integer to xbad(index) character] [ENDIF] [end do] [do index <1> NROSIZ] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to tempname(index)(2:2) character] [ELSEIF index2 ge <10> then] [convert index2 integer to tempname(index)(1:2) character] [ENDIF] [store name(index) in tempname(index)(4:27)] [store relation(index) in tempname(index)(29:37)] [store <0> in index4] [convert xbad(index) character to index4 integer] [if index4 gt <0> then store < > in tempname(index)] [end do] $itemtable >CSSI< Which children under age 18 were receiving Supplemental Security Income in 1996? LN NAME RELATION LN NAME RELATION [fill/l tempname(1)] [fill tempname(9)] [fill/l tempname(2)] [fill tempname(10)] [fill/l tempname(3)] [fill tempname(11)] [fill/l tempname(4)] [fill tempname(12)] [fill/l tempname(5)] [fill tempname(13)] [fill/l tempname(6)] [fill tempname(14)] [fill/l tempname(7)] [fill tempname(15)] [fill/l tempname(8)] [fill tempname(16)] ENTER LINE NUMBER No more None of the above PROBE: Anyone else? ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ $end ----------------------------------------------------------------------------- $>CSSI1< [within CSSI] $d [none] <1-16> Refused [goto C-q57It] Don't Know [goto C-Q57It] None of the above [goto C-Q57It] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end $>CSSI2< [within CSSI] $d [none] <1-16> No more [goto C-Q57IT] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal CSSI1(R_P)] $end $>CSSI3< [within CSSI] $d [none] <1-16> No more [goto C-Q57IT] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal CSSI1(R_P)] [notequal CSSI2(R_P)] $end $>CSSI4< [within CSSI] $d [none] <1-16> No more [goto C-Q57IT] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal CSSI1(R_P)] [notequal CSSI2(R_P)] [notequal CSSI3(R_P)] $end $>CSSI5< [within CSSI] $d [none] <1-16> No more [goto C-Q57IT] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal CSSI1(R_P)] [notequal CSSI2(R_P)] [notequal CSSI3(R_P)] [notequal CSSI4(R_P)] $end $>CSSI6< [within CSSI] $d [none] <1-16> No more [goto C-Q57IT] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal CSSI1(R_P)] [notequal CSSI2(R_P)] [notequal CSSI3(R_P)] [notequal CSSI4(R_P)] [notequal CSSI5(R_P)] $end $>CSSI7< [within CSSI] $d [none] <1-16> No more [goto C-Q57IT] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal CSSI1(R_P)] [notequal CSSI2(R_P)] [notequal CSSI3(R_P)] [notequal CSSI4(R_P)] [notequal CSSI5(R_P)] [notequal CSSI6(R_P)] $end $>CSSI8< [within CSSI] $d [none] <1-16> No more [goto C-Q57IT] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal CSSI1(R_P)] [notequal CSSI2(R_P)] [notequal CSSI3(R_P)] [notequal CSSI4(R_P)] [notequal CSSI5(R_P)] [notequal CSSI6(R_P)] [notequal CSSI7(R_P)] $end $>CSSI9< [within CSSI] $d [none] <1-16> No more [goto C-Q57IT] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal CSSI1(R_P)] [notequal CSSI2(R_P)] [notequal CSSI3(R_P)] [notequal CSSI4(R_P)] [notequal CSSI5(R_P)] [notequal CSSI6(R_P)] [notequal CSSI7(R_P)] [notequal CSSI8(R_P)] $end $>CSSI10< [within CSSI] $d [none] <1-16> No more [goto C-Q57IT] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal CSSI1(R_P)] [notequal CSSI2(R_P)] [notequal CSSI3(R_P)] [notequal CSSI4(R_P)] [notequal CSSI5(R_P)] [notequal CSSI6(R_P)] [notequal CSSI7(R_P)] [notequal CSSI8(R_P)] [notequal CSSI9(R_P)] $end $>CSSI11< [within CSSI] $d [none] <1-16> No more [goto C-Q57IT] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal CSSI1(R_P)] [notequal CSSI2(R_P)] [notequal CSSI3(R_P)] [notequal CSSI4(R_P)] [notequal CSSI5(R_P)] [notequal CSSI6(R_P)] [notequal CSSI7(R_P)] [notequal CSSI8(R_P)] [notequal CSSI9(R_P)] [notequal CSSI10(R_P)] $end $>CSSI12< [within CSSI] $d [none] <1-16> No more [goto C-Q57IT] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal CSSI1(R_P)] [notequal CSSI2(R_P)] [notequal CSSI3(R_P)] [notequal CSSI4(R_P)] [notequal CSSI5(R_P)] [notequal CSSI6(R_P)] [notequal CSSI7(R_P)] [notequal CSSI8(R_P)] [notequal CSSI9(R_P)] [notequal CSSI10(R_P)] [notequal CSSI11(R_P)] $end $>CSSI13< [within CSSI] $d [none] <1-16> No more [goto C-Q57IT] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal CSSI1(R_P)] [notequal CSSI2(R_P)] [notequal CSSI3(R_P)] [notequal CSSI4(R_P)] [notequal CSSI5(R_P)] [notequal CSSI6(R_P)] [notequal CSSI7(R_P)] [notequal CSSI8(R_P)] [notequal CSSI9(R_P)] [notequal CSSI10(R_P)] [notequal CSSI11(R_P)] [notequal CSSI12(R_P)] $end $>CSSI14< [within CSSI] $d [none] <1-16> No more [goto C-Q57IT] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal CSSI1(R_P)] [notequal CSSI2(R_P)] [notequal CSSI3(R_P)] [notequal CSSI4(R_P)] [notequal CSSI5(R_P)] [notequal CSSI6(R_P)] [notequal CSSI7(R_P)] [notequal CSSI8(R_P)] [notequal CSSI9(R_P)] [notequal CSSI10(R_P)] [notequal CSSI11(R_P)] [notequal CSSI12(R_P)] [notequal CSSI13(R_P)] $end $>CSSI15< [within CSSI] $d [none] <1-16> No more [goto C-Q57IT] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal CSSI1(R_P)] [notequal CSSI2(R_P)] [notequal CSSI3(R_P)] [notequal CSSI4(R_P)] [notequal CSSI5(R_P)] [notequal CSSI6(R_P)] [notequal CSSI7(R_P)] [notequal CSSI8(R_P)] [notequal CSSI9(R_P)] [notequal CSSI10(R_P)] [notequal CSSI11(R_P)] [notequal CSSI12(R_P)] [notequal CSSI13(R_P)] [notequal CSSI14(R_P)] $end $>CSSI16< [within CSSI] $d [none] <1-16> No more $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal CSSI1(R_P)] [notequal CSSI2(R_P)] [notequal CSSI3(R_P)] [notequal CSSI4(R_P)] [notequal CSSI5(R_P)] [notequal CSSI6(R_P)] [notequal CSSI7(R_P)] [notequal CSSI8(R_P)] [notequal CSSI9(R_P)] [notequal CSSI10(R_P)] [notequal CSSI11(R_P)] [notequal CSSI12(R_P)] [notequal CSSI13(R_P)] [notequal CSSI14(R_P)] [notequal CSSI15(R_P)] $end ------------------------------------------------------------------------------ $>C-Q57It< CODE FOR Q57IT [store <0> in index] [store < > in Q57It(R_P)] [NIF Q57I(R_P) isnt AND Q57I(R_P) isnt then] [if onpath Q57I:R_P then store <1> in index] [ENDIF] [NIF Q57I4(R_P) is <1> AND index eq <1> then] [if onpath Q57I4:R_P then store Q57I4T(R_P) in Q57It(R_P)] [if onpath Q57I4:R_P then roster loop] [ELSEIF Q57I4(R_P) is AND index eq <1> then] [if onpath Q57I4:R_P then store Q57I4T(R_P) in Q57It(R_P)] [if onpath Q57I4:R_P then roster loop] [ELSEIF Q57I4(R_P) is AND index eq <1> then] [if onpath Q57I4:R_P then store Q57I4T(R_P) in Q57It(R_P)] [if onpath Q57I4:R_P then roster loop] [ENDIF] [NIF Q57I5(R_P) isnt AND Q57I5(R_P) isnt then] [if onpath Q57I5:R_P then add <10> to index] [ELSE] [if onpath Q57I5:R_P then add <20> to index] [ENDIF] [NIF Q57I4(R_P) is <2> AND index eq <11> then] [if onpath Q57I4:R_P then store Q57I5(R_P) in Q57It(R_P)] [if onpath Q57I4:R_P then roster loop] [ELSEIF Q57I4(R_P) is <2> AND index eq <21> then] [if onpath Q57I4:R_P then store Q57I4T(R_P) in Q57It(R_P)] [if onpath Q57I4:R_P then roster loop] [ENDIF] [NIF Q57Ip(R_P) is <3> then] [if onpath Q57Ip:R_P then store Q57I(R_P) in Q57It(R_P)] [if onpath Q57Ip:R_P then roster loop] [ENDIF] [store <0> in index] [store <0> in index2] [NIF Q57I1(R_P) isnt AND Q57I1(R_P) isnt then] [if onpath Q57I1:R_P then store <1> in index] [ENDIF] [NIF Q57I3(R_P) isnt <2> then] [if onpath Q57I3:R_P then store <1> in index2] [ENDIF] [NIF Q57I4(R_P) isnt <2> then] [if onpath Q57I4:R_P then add <10> to index2] [ENDIF] [NIF index eq <1> AND index2 eq <11> then] [store Q57I4T(R_P) in Q57It(R_P)] [roster loop] [ENDIF] [store <0> in index2] [store <0> in index3] [NIF Q57I3(R_P) isnt <2> then] [if onpath Q57I3:R_P then store <1> in index2] [ENDIF] [NIF Q57I4(R_P) is <2> then] [if onpath Q57I4:R_P then add <10> to index2] [ENDIF] [NIF index eq <1> AND index2 eq <11> then] [store <1> in index3] [ENDIF] [NIF Q57I5(R_P) is and index3 eq <1> then] [if onpath Q57I5:R_P then store Q57I4T(R_P) in Q57It(R_P)] [if onpath Q57I5:R_P then roster loop] [ELSEIF Q57I5(R_P) is and index3 eq <1> then] [if onpath Q57I5:R_P then store Q57I4T(R_P) in Q57It(R_P)] [if onpath Q57I5:R_P then roster loop] [ELSEIF index3 eq <1> then] [if onpath Q57I5:R_P then store Q57I5(R_P) in Q57It(R_P)] [if onpath Q57I5:R_P then roster loop] [ENDIF] [store <0> in index2] [store <0> in index3] [store <0> in rindex] [store <0> in rindex2] [NIF Q57I3(R_P) is <2> then] [if onpath Q57I3:R_P then store <1> in index2] [ENDIF] [NIF index eq <1> AND index2 eq <1> then] [store <1> in index3] [ENDIF] [NIF Q57I2(R_P) isnt AND Q57I2(R_P) isnt then] [if onpath Q57I2:R_P then convert Q57I2(R_P) character to rindex real] [ENDIF] [NIF Q57I1(R_P) isnt AND Q57I1(R_P) isnt then] [if onpath Q57I1:R_P then convert Q57I1(R_P) character to rindex2 real] [ENDIF] [store <0> in rindex3] [store <0> in rindex4] [NIF Q57I5(R_P) is and index3 eq <1> then] [if onpath Q57I5:R_P then convert Q57I1(R_P) character to rindex4 real] [if onpath Q57I5:R_P then store <0.9718> in rindex3] ** changed by Thuan-was 0.9747 ** [if onpath Q57I5:R_P then multiply rindex3 by rindex4] [if onpath Q57I5:R_P then subtract rindex3 from rindex4] [if onpath Q57I5:R_P then multiply rindex4 by rindex] [if onpath Q57I5:R_P then multiply rindex2 by rindex] [if onpath Q57I5:R_P then subtract rindex4 from rindex2] [if onpath Q57I5:R_P then convert rindex2 real to Q57It(R_P) character 10 0] [if onpath Q57I5:R_P then roster loop] [ELSEIF Q57I5(R_P) is and index3 eq <1> then] [if onpath Q57I5:R_P then convert Q57I1(R_P) character to rindex4 real] [if onpath Q57I5:R_P then store <0.9718> in rindex3] ** changed by Thuan-was 0.9747 ** [if onpath Q57I5:R_P then multiply rindex3 by rindex4] [if onpath Q57I5:R_P then subtract rindex3 from rindex4] [if onpath Q57I5:R_P then multiply rindex4 by rindex] [if onpath Q57I5:R_P then multiply rindex2 by rindex] [if onpath Q57I5:R_P then subtract rindex4 from rindex2] [if onpath Q57I5:R_P then convert rindex2 real to Q57It(R_P) character 10 0] [if onpath Q57I5:R_P then roster loop] [ELSEIF index3 eq <1> then] [if onpath Q57I5:R_P then store Q57I5(R_P) in Q57It(R_P)] [if onpath Q57I5:R_P then roster loop] [ENDIF] [NIF Q57I1(R_P) is then] [if onpath Q57I1:R_P then store in Q57It(R_P)] [ENDIF] [NIF Q57I2(R_P) is then] [if onpath Q57I2:R_P then store in Q57It(R_P)] [ENDIF] [NIF Q57I(R_P) is then] [if onpath Q57I:R_P then store in Q57It(R_P)] [ENDIF] [roster loop] $end ============================================================================== $REND>Q57ADD< Comment: Question check58-88 through REND q60-88 are new for 1988. $>check58-88< [NIF FAMINC is OR FAMINC is < > then] refused, blank or Don't know income [goto Q59A88] [ELSEIF FAMINC is then] [goto Q59A88] [ENDIF] [store <0> in index] [convert FAMINC character to index integer] [if index ge <12> then goto Q60A88] ge 50,000 [goto Q59A88] $end ---------------------------------------------------------------------------- $>Q59A88< [NIF NUMHOU eq <1> then] [store in temptext] [ELSE] [store in temptext] [ENDIF] $d >Q59A88< At any time during 1996, even for one month, did [fill temptext] receive any public assistance or welfare payments from the state or local welfare office? INCLUDE SUCH PAYMENTS AS AID TO FAMILIES WITH DEPENDENT CHILDREN, AID TO DEPENDENT CHILDREN,TEMPORARY ASSISTANCE FOR NEEDY FAMILIES, GENERAL ASSISTANCE PROGRAM, EMERGENCY ASSISTANCE, CUBAN/HAITIAN REFUGEE, OR INDIAN ASSISTANCE. DO NOT INCLUDE FOOD STAMPS OR SSI PAYMENTS. <1> Yes [if NUMHOU eq <1> then goto now-q59-88] [goto q59b-88] <2> No [blind] Refused Don't Know ===>_ [goto Q60A88] $end ------------------------------------------------------------------------------ $>Q59b-88< [multiple Q59b-881 Q59b-882 Q59b-883 Q59b-884 Q59b-885] [multiple Q59b-886 Q59b-887 Q59b-888 Q59b-889 Q59b-8810] [multiple Q59b-8811 Q59b-8812 Q59b-8813 Q59b-8814 Q59b-8815 Q59b-8816] [indirect] [do index <1> <16>] [store < > in tempname(index)] [store < > in xbad(index)] [NIF AGERNG(index) lt <2> then] [convert index integer to xbad(index) character] [ELSEIF hhmem(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <9> then] [convert index integer to xbad(index) character] [ELSEIF PELIG(index) eq <12> OR hhmem(index) is <3> then] [convert index integer to xbad(index) character] [ENDIF] [end do] [do index <1> NROSIZ] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to tempname(index)(2:2) character] [ELSEIF index2 ge <10> then] [convert index2 integer to tempname(index)(1:2) character] [ENDIF] [store name(index) in tempname(index)(4:27)] [store relation(index) in tempname(index)(29:37)] [store <0> in index4] [convert xbad(index) character to index4 integer] [if index4 gt <0> then store < > in tempname(index)] [end do] $itemtable >Q59b-88< Who received these payments? LN NAME RELATION LN NAME RELATION [fill/l tempname(1)] [fill tempname(9)] [fill/l tempname(2)] [fill tempname(10)] [fill/l tempname(3)] [fill tempname(11)] [fill/l tempname(4)] [fill tempname(12)] [fill/l tempname(5)] [fill tempname(13)] [fill/l tempname(6)] [fill tempname(14)] [fill/l tempname(7)] [fill tempname(15)] [fill/l tempname(8)] [fill tempname(16)] ENTER LINE NUMBER No more PROBE: Anyone else? ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ $end ----------------------------------------------------------------------------- $>Q59b-881< [within q59b-88] $d [none] <1-16> Refused [goto now-q59-88] Don't Know [goto now-q59-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end $>Q59b-882< [within q59b-88] $d [none] <1-16> Refused [goto now-q59-88] Don't Know [goto now-q59-88] No more [goto now-q59-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q59b-881] $end $>Q59b-883< [within q59b-88] $d [none] <1-16> Refused [goto now-q59-88] Don't Know [goto now-q59-88] No more [goto now-q59-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q59b-881] [notequal Q59b-882] $end $>Q59b-884< [within q59b-88] $d [none] <1-16> Refused [goto now-q59-88] Don't Know [goto now-q59-88] No more [goto now-q59-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q59b-881] [notequal Q59b-882] [notequal Q59b-883] $end $>Q59b-885< [within q59b-88] $d [none] <1-16> Refused [goto now-q59-88] Don't Know [goto now-q59-88] No more [goto now-q59-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q59b-881] [notequal Q59b-882] [notequal Q59b-883] [notequal Q59b-884] $end $>Q59b-886< [within q59b-88] $d [none] <1-16> Refused [goto now-q59-88] Don't Know [goto now-q59-88] No more [goto now-q59-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q59b-881] [notequal Q59b-882] [notequal Q59b-883] [notequal Q59b-884] [notequal Q59b-885] $end $>Q59b-887< [within q59b-88] $d [none] <1-16> Refused [goto now-q59-88] Don't Know [goto now-q59-88] No more [goto now-q59-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q59b-881] [notequal Q59b-882] [notequal Q59b-883] [notequal Q59b-884] [notequal Q59b-885] [notequal Q59b-886] $end $>Q59b-888< [within q59b-88] $d [none] <1-16> Refused [goto now-q59-88] Don't Know [goto now-q59-88] No more [goto now-q59-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q59b-881] [notequal Q59b-882] [notequal Q59b-883] [notequal Q59b-884] [notequal Q59b-885] [notequal Q59b-886] [notequal Q59b-887] $end $>Q59b-889< [within q59b-88] $d [none] <1-16> Refused [goto now-q59-88] Don't Know [goto now-q59-88] No more [goto now-q59-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q59b-881] [notequal Q59b-882] [notequal Q59b-883] [notequal Q59b-884] [notequal Q59b-885] [notequal Q59b-886] [notequal Q59b-887] [notequal Q59b-888] $end $>Q59b-8810< [within q59b-88] $d [none] <1-16> Refused [goto now-q59-88] Don't Know [goto now-q59-88] No more [goto now-q59-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q59b-881] [notequal Q59b-882] [notequal Q59b-883] [notequal Q59b-884] [notequal Q59b-885] [notequal Q59b-886] [notequal Q59b-887] [notequal Q59b-888] [notequal Q59b-889] $end $>Q59b-8811< [within q59b-88] $d [none] <1-16> Refused [goto now-q59-88] Don't Know [goto now-q59-88] No more [goto now-q59-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q59b-881] [notequal Q59b-882] [notequal Q59b-883] [notequal Q59b-884] [notequal Q59b-885] [notequal Q59b-886] [notequal Q59b-887] [notequal Q59b-888] [notequal Q59b-889] [notequal Q59b-8810] $end $>Q59b-8812< [within q59b-88] $d [none] <1-16> Refused [goto now-q59-88] Don't Know [goto now-q59-88] No more [goto now-q59-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q59b-881] [notequal Q59b-882] [notequal Q59b-883] [notequal Q59b-884] [notequal Q59b-885] [notequal Q59b-886] [notequal Q59b-887] [notequal Q59b-888] [notequal Q59b-889] [notequal Q59b-8810] [notequal Q59b-8811] $end $>Q59b-8813< [within q59b-88] $d [none] <1-16> Refused [goto now-q59-88] Don't Know [goto now-q59-88] No more [goto now-q59-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q59b-881] [notequal Q59b-882] [notequal Q59b-883] [notequal Q59b-884] [notequal Q59b-885] [notequal Q59b-886] [notequal Q59b-887] [notequal Q59b-888] [notequal Q59b-889] [notequal Q59b-8810] [notequal Q59b-8811] [notequal Q59b-8812] $end $>Q59b-8814< [within q59b-88] $d [none] <1-16> Refused [goto now-q59-88] Don't Know [goto now-q59-88] No more [goto now-q59-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q59b-881] [notequal Q59b-882] [notequal Q59b-883] [notequal Q59b-884] [notequal Q59b-885] [notequal Q59b-886] [notequal Q59b-887] [notequal Q59b-888] [notequal Q59b-889] [notequal Q59b-8810] [notequal Q59b-8811] [notequal Q59b-8812] [notequal Q59b-8813] $end $>Q59b-8815< [within q59b-88] $d [none] <1-16> Refused [goto now-q59-88] Don't Know [goto now-q59-88] No more [goto now-q59-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q59b-881] [notequal Q59b-882] [notequal Q59b-883] [notequal Q59b-884] [notequal Q59b-885] [notequal Q59b-886] [notequal Q59b-887] [notequal Q59b-888] [notequal Q59b-889] [notequal Q59b-8810] [notequal Q59b-8811] [notequal Q59b-8812] [notequal Q59b-8813] [notequal Q59b-8814] $end $>Q59b-8816< [within q59b-88] $d [none] <1-16> Refused [goto now-q59-88] Don't Know [goto now-q59-88] No more [goto now-q59-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q59b-881] [notequal Q59b-882] [notequal Q59b-883] [notequal Q59b-884] [notequal Q59b-885] [notequal Q59b-886] [notequal Q59b-887] [notequal Q59b-888] [notequal Q59b-889] [notequal Q59b-8810] [notequal Q59b-8811] [notequal Q59b-8812] [notequal Q59b-8813] [notequal Q59b-8814] [notequal Q59b-8815] $end ------------------------------------------------------------------------------ $>NOW-Q59-88< [do index <1> <16>] [store <0> in Q5988L(index)] [end do] [if onpath Q59b-881 then convert Q59b-881 character to Q5988L(1) integer] [if onpath Q59b-882 then convert Q59b-882 character to Q5988L(2) integer] [if onpath Q59b-883 then convert Q59b-883 character to Q5988L(3) integer] [if onpath Q59b-884 then convert Q59b-884 character to Q5988L(4) integer] [if onpath Q59b-885 then convert Q59b-885 character to Q5988L(5) integer] [if onpath Q59b-886 then convert Q59b-886 character to Q5988L(6) integer] [if onpath Q59b-887 then convert Q59b-887 character to Q5988L(7) integer] [if onpath Q59b-888 then convert Q59b-888 character to Q5988L(8) integer] [if onpath Q59b-889 then convert Q59b-889 character to Q5988L(9) integer] [if onpath Q59b-8810 then convert Q59b-8810 character to Q5988L(10) integer] [if onpath Q59b-8811 then convert Q59b-8811 character to Q5988L(11) integer] [if onpath Q59b-8812 then convert Q59b-8812 character to Q5988L(12) integer] [if onpath Q59b-8813 then convert Q59b-8813 character to Q5988L(13) integer] [if onpath Q59b-8814 then convert Q59b-8814 character to Q5988L(14) integer] [if onpath Q59b-8815 then convert Q59b-8815 character to Q5988L(15) integer] [if onpath Q59b-8816 then convert Q59b-8816 character to Q5988L(16) integer] [do index <1> <16>] [store <0> in tabindex(index)] [convert hhmem(index) character to tabindex(index) integer] [end do] [if NUMHOU eq <1> then tablook tabindex <1> Q5988L(1)] [store <0> in Q59-88_R_P] $end -------------------------------------------------------------------------------- $ROPEN>Q59-88< $>AFT-Q59-88< [goto Q60A88] $end ============================================================================== $RBEGIN>Q59-88< [maxelt 16] ============================================================================== $>pre-q59c88< [if R_P gt NROSIZ then roster exit] [store <0> in index] [tablook Q5988L q59-88_R_P index] [if index eq <0> then roster loop] [if Q5988L(index) nq R_P then roster loop] $end ----------------------------------------------------------------------------- $>Q59C88< [NIF R_P eq RESPLI then] [store in temptext] [ELSE] [store name(R_P) in temptext] [ENDIF] $d >Q59C88< Did [fill temptext] receive Aid to Families with Dependent Children (AFDC)/Aid to Dependent Children (ADC), or some other type of assistance payments? <1> Aid to Families with Dependent Children (AFDC)/ [goto PRE-Q59C] Aid to Dependent Children (ADC) <2> Other Assistance <3> Both [goto PRE-Q59C] [blind] Refused Don't Know ===>_ [goto Q59EP] $end ----------------------------------------------------------------------------- $>PRE-Q59C< [store <0> in index2] [store <0> in index3] [do index <1> <16>] [convert age(index) character to age-i(index) integer] [NIF AGERNG(index) gt <2> AND age(index) is then] [ELSEIF AGERNG(index) gt <2> AND age(index) is then] [ELSEIF hhmem(index) is <2> then] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <2> then] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <9> then] [ELSEIF PELIG(index) eq <12> OR hhmem(index) is <3> then] [ELSEIF age-i(index) gt <19> then] [ELSE] [add <1> to index2] [convert LINENO character to index3 integer] [ENDIF] [end do] [If index2 le <1> then convert index3 integer to Q59COT character] [if index2 le <1> then goto Q59ep] $end ---------------------------------------------------------------------- $>Q59C< [multiple Q59C1 Q59C2 Q59C3 Q59C4 Q59C5 Q59C6 Q59C7 Q59C8] [multiple Q59C9 Q59C10 Q59C11 Q59C12 Q59C13 Q59C14 Q59C15 Q59C16] [do index <1> <16>] [store < > in tempname(index)] [store < > in xbad(index)] [convert age(index) character to age-i(index) integer] [store <0> in index2] [NIF AGE(index) is OR AGE(index) is then] [if AGERNG(index) gt <2> then store <1> in index2] [ENDIF] [NIF index2 eq <1> OR hhmem(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <9> then] [convert index integer to xbad(index) character] [ELSEIF PELIG(index) eq <12> OR hhmem(index) is <3> then] [convert index integer to xbad(index) character] [ELSEIF age-i(index) gt <19> then] [convert index integer to xbad(index) character] [ENDIF] [end do] [do index <1> NROSIZ] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to tempname(index)(2:2) character] [ELSEIF index2 ge <10> then] [convert index2 integer to tempname(index)(1:2) character] [ENDIF] [store name(index) in tempname(index)(4:27)] [store relation(index) in tempname(index)(29:37)] [store <0> in index4] [convert xbad(index) character to index4 integer] [if index4 gt <0> then store < > in tempname(index)] [end do] [NIF R_P eq RESPLI then] [store in temptext] [ELSE] [combine name(R_P) <'s> into temptext] [ENDIF] $itemtable >Q59C< Which children in the household under age 19 were covered by [fill temptext] Aid to Families With Dependent Children (AFDC) or Aid to Dependent Children (ADC) in 1996? LN NAME RELATION LN NAME RELATION [fill/l tempname(1)] [fill tempname(9)] [fill/l tempname(2)] [fill tempname(10)] [fill/l tempname(3)] [fill tempname(11)] [fill/l tempname(4)] [fill tempname(12)] [fill/l tempname(5)] [fill tempname(13)] [fill/l tempname(6)] [fill tempname(14)] [fill/l tempname(7)] [fill tempname(15)] [fill/l tempname(8)] [fill tempname(16)] ENTER LINE NUMBER No more PROBE: Anyone else? ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ $end ----------------------------------------------------------------------------- $>Q59C1< [within Q59C] $d [none] <1-16> Refused [goto Q59ep] Don't Know [goto Q59ep] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end $>Q59C2< [within Q59C] $d [none] <1-16> No more [goto Q59ep] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q59C1(R_P)] $end $>Q59C3< [within Q59C] $d [none] <1-16> No more [goto Q59ep] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q59C1] [notequal Q59C2] $end $>Q59C4< [within Q59C] $d [none] <1-16> No more [goto Q59ep] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q59C1(R_P)] [notequal Q59C2(R_P)] [notequal Q59C3(R_P)] $end $>Q59C5< [within Q59C] $d [none] <1-16> No more [goto Q59ep] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q59C1(R_P)] [notequal Q59C2(R_P)] [notequal Q59C3(R_P)] [notequal Q59C4(R_P)] $end $>Q59C6< [within Q59C] $d [none] <1-16> No more [goto Q59ep] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q59C1(R_P)] [notequal Q59C2(R_P)] [notequal Q59C3(R_P)] [notequal Q59C4(R_P)] [notequal Q59C5(R_P)] $end $>Q59C7< [within Q59C] $d [none] <1-16> No more [goto Q59ep] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q59C1(R_P)] [notequal Q59C2(R_P)] [notequal Q59C3(R_P)] [notequal Q59C4(R_P)] [notequal Q59C5(R_P)] [notequal Q59C6(R_P)] $end $>Q59C8< [within Q59C] $d [none] <1-16> No more [goto Q59ep] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q59C1(R_P)] [notequal Q59C2(R_P)] [notequal Q59C3(R_P)] [notequal Q59C4(R_P)] [notequal Q59C5(R_P)] [notequal Q59C6(R_P)] [notequal Q59C7(R_P)] $end $>Q59C9< [within Q59C] $d [none] <1-16> No more [goto Q59ep] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q59C1(R_P)] [notequal Q59C2(R_P)] [notequal Q59C3(R_P)] [notequal Q59C4(R_P)] [notequal Q59C5(R_P)] [notequal Q59C6(R_P)] [notequal Q59C7(R_P)] [notequal Q59C8(R_P)] $end $>Q59C10< [within Q59C] $d [none] <1-16> No more [goto Q59ep] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q59C1(R_P)] [notequal Q59C2(R_P)] [notequal Q59C3(R_P)] [notequal Q59C4(R_P)] [notequal Q59C5(R_P)] [notequal Q59C6(R_P)] [notequal Q59C7(R_P)] [notequal Q59C8(R_P)] [notequal Q59C9(R_P)] $end $>Q59C11< [within Q59C] $d [none] <1-16> No more [goto Q59ep] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q59C1(R_P)] [notequal Q59C2(R_P)] [notequal Q59C3(R_P)] [notequal Q59C4(R_P)] [notequal Q59C5(R_P)] [notequal Q59C6(R_P)] [notequal Q59C7(R_P)] [notequal Q59C8(R_P)] [notequal Q59C9(R_P)] [notequal Q59C10(R_P)] $end $>Q59C12< [within Q59C] $d [none] <1-16> No more [goto Q59ep] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q59C1(R_P)] [notequal Q59C2(R_P)] [notequal Q59C3(R_P)] [notequal Q59C4(R_P)] [notequal Q59C5(R_P)] [notequal Q59C6(R_P)] [notequal Q59C7(R_P)] [notequal Q59C8(R_P)] [notequal Q59C9(R_P)] [notequal Q59C10(R_P)] [notequal Q59C11(R_P)] $end $>Q59C13< [within Q59C] $d [none] <1-16> No more [goto Q59ep] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q59C1(R_P)] [notequal Q59C2(R_P)] [notequal Q59C3(R_P)] [notequal Q59C4(R_P)] [notequal Q59C5(R_P)] [notequal Q59C6(R_P)] [notequal Q59C7(R_P)] [notequal Q59C8(R_P)] [notequal Q59C9(R_P)] [notequal Q59C10(R_P)] [notequal Q59C11(R_P)] [notequal Q59C12(R_P)] $end $>Q59C14< [within Q59C] $d [none] <1-16> No more [goto Q59ep] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q59C1(R_P)] [notequal Q59C2(R_P)] [notequal Q59C3(R_P)] [notequal Q59C4(R_P)] [notequal Q59C5(R_P)] [notequal Q59C6(R_P)] [notequal Q59C7(R_P)] [notequal Q59C8(R_P)] [notequal Q59C9(R_P)] [notequal Q59C10(R_P)] [notequal Q59C11(R_P)] [notequal Q59C12(R_P)] [notequal Q59C13(R_P)] $end $>Q59C15< [within Q59C] $d [none] <1-16> No more [goto Q59ep] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q59C1(R_P)] [notequal Q59C2(R_P)] [notequal Q59C3(R_P)] [notequal Q59C4(R_P)] [notequal Q59C5(R_P)] [notequal Q59C6(R_P)] [notequal Q59C7(R_P)] [notequal Q59C8(R_P)] [notequal Q59C9(R_P)] [notequal Q59C10(R_P)] [notequal Q59C11(R_P)] [notequal Q59C12(R_P)] [notequal Q59C13(R_P)] [notequal Q59C14(R_P)] $end $>Q59C16< [within Q59C] $d [none] <1-16> No more $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q59C1(R_P)] [notequal Q59C2(R_P)] [notequal Q59C3(R_P)] [notequal Q59C4(R_P)] [notequal Q59C5(R_P)] [notequal Q59C6(R_P)] [notequal Q59C7(R_P)] [notequal Q59C8(R_P)] [notequal Q59C9(R_P)] [notequal Q59C10(R_P)] [notequal Q59C11(R_P)] [notequal Q59C12(R_P)] [notequal Q59C13(R_P)] [notequal Q59C14(R_P)] [notequal Q59C15(R_P)] $end ------------------------------------------------------------------------------ $>Q59ep< [combine name(R_P) <'s> into temptext] [If R_P eq respli then store in temptext] THE FOLLOWING CODE IS USED TO RESET DK SCREENS [NIF Q59ep(R_P) is AND DKFLAG eq <1> then] [reset Q59ep] [ENDIF] $d >Q59ep< What is the easiest way for you to tell us [fill temptext] Public Assistance or Welfare Payments; weekly, every other week, twice a month, monthly, or yearly? <1> Weekly <2> Every other week (bi-weekly) <3> Twice a month <4> Monthly <5> Yearly [blind] Don't know [goto C-Q59ET] Refused [goto C-Q59ET] ===>_ $end --------------------------------------------------------------------------- $>Q59e< [store name(R_P) in temptext] [if R_P eq respli then store in temptext] [store in temp2] [store <1> in xbad(1)] [NIF Q59ep(R_P) is <1> then] [if onpath Q59ep:R_P then store in temp2] [ELSEIF Q59ep(R_P) is <2> then] [if onpath Q59ep:R_P then store in temp2] [ELSEIF Q59ep(R_P) is <3> then] [if onpath Q59ep:R_P then store in temp2] [ELSEIF Q59ep(R_P) is <4> then] [if onpath Q59ep:R_P then store in temp2] [ENDIF] THE FOLLOWING CODE IS USED TO RESET DK SCREENS [NIF Q59e(R_P) is AND DKFLAG eq <1> then] [reset Q59e] [ENDIF] $d >Q59e< How much did [fill temptext] receive [fill temp2] Public Assistance or Welfare Payments during 1996? ENTER DOLLAR AMOUNT [blind] Don't know [goto C-Q59ET] Refused [goto C-Q59ET] ===>$[N]_,___,___ .00 $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>Q59e-CK< [NIF Q59ep(R_P) is <5> then] [if onpath Q59ep:R_P then goto Q59eC1] [ENDIF] [goto Q59e2] $end ---------------------------------------------------------------------------- $>Q59e2< [store <0> in xbad(1)] [store <1> in xbad(2)] [store name(R_P) in temptext] [store < > in temp2] [store < > in temp4] [if R_P eq respli then store in temptext] [NIF Q59ep(R_P) is <1> then] [if onpath Q59ep:R_P then store <52> in xbad(1)] [if onpath Q59ep:R_P then store in temp2] [if onpath Q59ep:R_P then store <{1-52}> in temp4] [ELSEIF Q59ep(R_P) is <2> then] [if onpath Q59ep:R_P then store <26> in xbad(1)] [if onpath Q59ep:R_P then store in temp2] [if onpath Q59ep:R_P then store <{1-26}> in temp4] [ELSEIF Q59ep(R_P) is <3> then] [if onpath Q59ep:R_P then store <24> in xbad(1)] [if onpath Q59ep:R_P then store in temp2] [if onpath Q59ep:R_P then store <{1-24}> in temp4] [ELSEIF Q59ep(R_P) is <4> then] [if onpath Q59ep:R_P then store <12> in xbad(1)] [if onpath Q59ep:R_P then store in temp2] [if onpath Q59ep:R_P then store <{1-12}> in temp4] [ENDIF] THE FOLLOWING CODE IS USED TO RESET DK SCREENS [NIF Q59e2(R_P) is AND DKFLAG eq <1> then] [reset Q59e2] [ENDIF] $d >Q59e2< How many [fill temp2] payments did [fill temptext] receive from Public Assistance or Welfare Payments during 1996? [fill temp4] [blind] Don't know [goto C-Q59ET] Refused [goto C-Q59ET] ===>__ [goto Q59e3] $edit [notless xbad(2)] [notgreater xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>Q59eC1< [store <0> in index] [store <0> in index2] [NIF Q59ep(R_P) is <5> then] [if onpath Q59ep:R_P then store <1> in index] [ENDIF] [NIF index eq <1> then] [if onpath Q59e:R_P then convert Q59e(R_P) character to index2 integer] [ENDIF] [if index2 lt <10> then goto Q59eC2] [if index2 gt <10000> then goto Q59eC2] [goto C-Q59ET] $end --------------------------------------------------------------------------- $>Q59eC2< [if Q59eC2(R_P) is <2> then reset Q59eC2] $d >Q59eC2< **** DO NOT READ TO THE RESPONDENT ***** THE ANNUAL RATE APPEARS OUT OF RANGE. THE TOTAL PUBLIC ASSISTANCE OR WELFARE RECEIVED PAYMENTS IN 1996 WAS $[fill Q59E(R_P)]. IS THIS A CORRECT ENTRY? <1> Yes [goto C-Q59ET] <2> No [backto Q59e:R_P] ===>_ $end ---------------------------------------------------------------------------- $>Q59e3< [store <0> in index] [store <0> in index2] [store name(R_P) in temptext] [store < > in TQ59E3] [if R_P eq respli then store in temptext] [if onpath Q59e:R_P then convert Q59e(R_P) character to index integer] [if onpath Q59e2:R_P then convert Q59e2(R_P) character to index2 integer] [multiply index by index2] [convert index integer to TQ59E3(R_P) character] $d >Q59e3< According to my calculations [fill temptext] received $[fill TQ59E3(R_P)] dollars altogether from Public Assistance or Welfare Payments in 1996. Does that sound about right? <1> Yes <2> No [goto Q59e4] [blind] Don't know Refused ===>_ [goto C-Q59ET] $end ---------------------------------------------------------------------------- $>Q59e4< [store name(R_P) in temptext] [store < > in temp2] [store < > in temp3] [store < > in temp4] [store <1> in xbad(1)] [store <0> in index] [store <0> in index2] [if R_P eq respli then store in temptext] [NIF Q59ep(R_P) is <1> then] [if onpath Q59ep:R_P then store in temp3] [ELSEIF Q59ep(R_P) is <2> then] [if onpath Q59ep:R_P then store in temp3] [ELSEIF Q59ep(R_P) is <3> then] [if onpath Q59ep:R_P then store in temp3] [ELSEIF Q59ep(R_P) is <4> then] [if onpath Q59ep:R_P then store in temp3] [ELSEIF Q59ep(R_P) is <5> then] [if onpath Q59ep:R_P then store in temp3] [ENDIF] [if onpath Q59e2:R_P then store Q59e2(R_P) in temp4] $d >Q59e4< What is your best estimate of the correct total amount [fill temptext] received from Public Assistance or Welfare Payments during 1996? PREVIOUS ENTRIES: Q59e: $[fill Q59e(R_P)] Q59ep: [fill temp3] Q59e2: [fill temp4] ENTER DOLLAR AMOUNT [blind] Don't know Refused ===>[N]$_,___,___ .00 $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>C-Q59ET< CODE FOR SETTING UP Q59ET [store < > IN Q59ET(R_P)] [NIF Q59ep(R_P) is <5> then] [if onpath Q59ep:R_P then store Q59e(R_P) in Q59ET(R_P)] [if onpath Q59ep:R_P then roster loop] [ENDIF] [store <0> in index] [store <0> in index2] [if onpath Q59ep:R_P then convert Q59ep(R_P) character to index integer] [NIF index ge <1> AND index le <4> then] [store <1> in index2] [ENDIF] [NIF Q59e3(R_P) is <1> AND index2 eq <1> then] [if onpath Q59e3:R_P then store TQ59E3(R_P) in Q59ET(R_P)] [if onpath Q59e3:R_P then roster loop] [ELSEIF Q59e3(R_P) is AND index2 eq <1> then] [if onpath Q59e3:R_P then store TQ59E3(R_P) in Q59ET(R_P)] [if onpath Q59e3:R_P then roster loop] [ELSEIF Q59e3(R_P) is AND index2 eq <1> then] [if onpath Q59e3:R_P then store TQ59E3(R_P) in Q59ET(R_P)] [if onpath Q59e3:R_P then roster loop] [ENDIF] [NIF Q59e4(R_P) isnt AND Q59e4(R_P) isnt then] [if onpath Q59e4:R_P then add <10> to index2] [ENDIF] [NIF Q59e3(R_P) is <2> AND index2 eq <11> then] [if onpath Q59e3:R_P then store Q59e4(R_P) in Q59ET(R_P)] [if onpath Q59e3:R_P then roster loop] [ELSEIF Q59e3(R_P) is <2> AND index2 eq <1> then] [if onpath Q59e3:R_P then store TQ59E3(R_P) in Q59ET(R_P)] [if onpath Q59e3:R_P then roster loop] [ENDIF] [NIF Q59ep(R_P) is then] [if onpath Q59ep:R_P then store in Q59ET(R_P)] [ENDIF] [NIF Q59e(R_P) is then] [if onpath Q59e:R_P then store in Q59ET(R_P)] [ENDIF] [NIF Q59e2(R_P) is then] [if onpath Q59e2:R_P then store in Q59ET(R_P)] [ENDIF] $end ---------------------------------------------------------------------- $REND>Q59-88< ============================================================================== COMMENT: DELETED CODING FOR NUMHOU EQ 1 BECAUSE IT MESSES UP ONPATH TESTS CMC 2/90 $>Q60A88< [store in temptext] [if NUMHOU eq <1> then store in temptext] [NIF Q59A88 is <2> then] [If onpath Q59A88 then store < > in temptext] [ENDIF] [store <0> in index] [NIF Q59A88 is < > then] [If onpath Q59A88 then store <1> in index] [ENDIF] [NIF Q57a is <2> then] [if onpath Q57a then add <10> to index] [ENDIF] [If index eq <11> then store < > in temptext] $d >Q60A88< [fill temptext] Any Veterans' (VA) payments? INCLUDE ASSISTANCE RECEIVED BY CHILDREN OF VETERANS <1> Yes [if NUMHOU eq <1> then goto now-q60-88] [goto q60b-88] <2> No [blind] Refused Don't Know ===>_ [goto q58a] $end ------------------------------------------------------------------------------ $>Q60b-88< [multiple Q60b-881 Q60b-882 Q60b-883 Q60b-884 Q60b-885] [multiple Q60b-886 Q60b-887 Q60b-888 Q60b-889 Q60b-8810] [multiple Q60b-8811 Q60b-8812 Q60b-8813 Q60b-8814 Q60b-8815 Q60b-8816] [do index <1> <16>] [store < > in tempname(index)] [store < > in xbad(index)] [NIF AGERNG(index) lt <2> then] [convert index integer to xbad(index) character] [ELSEIF hhmem(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <9> then] [convert index integer to xbad(index) character] [ELSEIF PELIG(index) eq <12> OR hhmem(index) is <3> then] [convert index integer to xbad(index) character] [ENDIF] [end do] [do index <1> NROSIZ] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to tempname(index)(2:2) character] [ELSEIF index2 ge <10> then] [convert index2 integer to tempname(index)(1:2) character] [ENDIF] [store name(index) in tempname(index)(4:27)] [store relation(index) in tempname(index)(29:37)] [store <0> in index4] [convert xbad(index) character to index4 integer] [if index4 gt <0> then store < > in tempname(index)] [end do] $itemtable >Q60b-88< **READ ONLY IF NECESSARY** Who received Veterans' (VA) payments? LN NAME RELATION LN NAME RELATION [fill/l tempname(1)] [fill tempname(9)] [fill/l tempname(2)] [fill tempname(10)] [fill/l tempname(3)] [fill tempname(11)] [fill/l tempname(4)] [fill tempname(12)] [fill/l tempname(5)] [fill tempname(13)] [fill/l tempname(6)] [fill tempname(14)] [fill/l tempname(7)] [fill tempname(15)] [fill/l tempname(8)] [fill tempname(16)] ENTER LINE NUMBER No more PROBE: Anyone else? ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ $end ----------------------------------------------------------------------------- $>Q60b-881< [within q60b-88] $d [none] <1-16> Refused [goto q58a] Don't Know [goto q58a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end $>Q60b-882< [within q60b-88] $d [none] <1-16> Refused [goto now-q60-88] Don't Know [goto now-q60-88] No more [goto now-q60-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q60b-881] $end $>Q60b-883< [within q60b-88] $d [none] <1-16> Refused [goto now-q60-88] Don't Know [goto now-q60-88] No more [goto now-q60-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q60b-881] [notequal Q60b-882] $end $>Q60b-884< [within q60b-88] $d [none] <1-16> Refused [goto now-q60-88] Don't Know [goto now-q60-88] No more [goto now-q60-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q60b-881] [notequal Q60b-882] [notequal Q60b-883] $end $>Q60b-885< [within q60b-88] $d [none] <1-16> Refused [goto now-q60-88] Don't Know [goto now-q60-88] No more [goto now-q60-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q60b-881] [notequal Q60b-882] [notequal Q60b-883] [notequal Q60b-884] $end $>Q60b-886< [within q60b-88] $d [none] <1-16> Refused [goto now-q60-88] Don't Know [goto now-q60-88] No more [goto now-q60-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q60b-881] [notequal Q60b-882] [notequal Q60b-883] [notequal Q60b-884] [notequal Q60b-885] $end $>Q60b-887< [within q60b-88] $d [none] <1-16> Refused [goto now-q60-88] Don't Know [goto now-q60-88] No more [goto now-q60-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q60b-881] [notequal Q60b-882] [notequal Q60b-883] [notequal Q60b-884] [notequal Q60b-885] [notequal Q60b-886] $end $>Q60b-888< [within q60b-88] $d [none] <1-16> Refused [goto now-q60-88] Don't Know [goto now-q60-88] No more [goto now-q60-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q60b-881] [notequal Q60b-882] [notequal Q60b-883] [notequal Q60b-884] [notequal Q60b-885] [notequal Q60b-886] [notequal Q60b-887] $end $>Q60b-889< [within q60b-88] $d [none] <1-16> Refused [goto now-q60-88] Don't Know [goto now-q60-88] No more [goto now-q60-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q60b-881] [notequal Q60b-882] [notequal Q60b-883] [notequal Q60b-884] [notequal Q60b-885] [notequal Q60b-886] [notequal Q60b-887] [notequal Q60b-888] $end $>Q60b-8810< [within q60b-88] $d [none] <1-16> Refused [goto now-q60-88] Don't Know [goto now-q60-88] No more [goto now-q60-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q60b-881] [notequal Q60b-882] [notequal Q60b-883] [notequal Q60b-884] [notequal Q60b-885] [notequal Q60b-886] [notequal Q60b-887] [notequal Q60b-888] [notequal Q60b-889] $end $>Q60b-8811< [within q60b-88] $d [none] <1-16> Refused [goto now-q60-88] Don't Know [goto now-q60-88] No more [goto now-q60-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q60b-881] [notequal Q60b-882] [notequal Q60b-883] [notequal Q60b-884] [notequal Q60b-885] [notequal Q60b-886] [notequal Q60b-887] [notequal Q60b-888] [notequal Q60b-889] [notequal Q60b-8810] $end $>Q60b-8812< [within q60b-88] $d [none] <1-16> Refused [goto now-q60-88] Don't Know [goto now-q60-88] No more [goto now-q60-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q60b-881] [notequal Q60b-882] [notequal Q60b-883] [notequal Q60b-884] [notequal Q60b-885] [notequal Q60b-886] [notequal Q60b-887] [notequal Q60b-888] [notequal Q60b-889] [notequal Q60b-8810] [notequal Q60b-8811] $end $>Q60b-8813< [within q60b-88] $d [none] <1-16> Refused [goto now-q60-88] Don't Know [goto now-q60-88] No more [goto now-q60-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q60b-881] [notequal Q60b-882] [notequal Q60b-883] [notequal Q60b-884] [notequal Q60b-885] [notequal Q60b-886] [notequal Q60b-887] [notequal Q60b-888] [notequal Q60b-889] [notequal Q60b-8810] [notequal Q60b-8811] [notequal Q60b-8812] $end $>Q60b-8814< [within q60b-88] $d [none] <1-16> Refused [goto now-q60-88] Don't Know [goto now-q60-88] No more [goto now-q60-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q60b-881] [notequal Q60b-882] [notequal Q60b-883] [notequal Q60b-884] [notequal Q60b-885] [notequal Q60b-886] [notequal Q60b-887] [notequal Q60b-888] [notequal Q60b-889] [notequal Q60b-8810] [notequal Q60b-8811] [notequal Q60b-8812] [notequal Q60b-8813] $end $>Q60b-8815< [within q60b-88] $d [none] <1-16> Refused [goto now-q60-88] Don't Know [goto now-q60-88] No more [goto now-q60-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q60b-881] [notequal Q60b-882] [notequal Q60b-883] [notequal Q60b-884] [notequal Q60b-885] [notequal Q60b-886] [notequal Q60b-887] [notequal Q60b-888] [notequal Q60b-889] [notequal Q60b-8810] [notequal Q60b-8811] [notequal Q60b-8812] [notequal Q60b-8813] [notequal Q60b-8814] $end $>Q60b-8816< [within q60b-88] $d [none] <1-16> Refused [goto now-q60-88] Don't Know [goto now-q60-88] No more [goto now-q60-88] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal Q60b-881] [notequal Q60b-882] [notequal Q60b-883] [notequal Q60b-884] [notequal Q60b-885] [notequal Q60b-886] [notequal Q60b-887] [notequal Q60b-888] [notequal Q60b-889] [notequal Q60b-8810] [notequal Q60b-8811] [notequal Q60b-8812] [notequal Q60b-8813] [notequal Q60b-8814] [notequal Q60b-8815] $end ------------------------------------------------------------------------------ $>NOW-Q60-88< [do index <1> <16>] [store <0> in Q6088L(index)] [end do] [if onpath Q60b-881 then convert Q60b-881 character to Q6088L(1) integer] [if onpath Q60b-882 then convert Q60b-882 character to Q6088L(2) integer] [if onpath Q60b-883 then convert Q60b-883 character to Q6088L(3) integer] [if onpath Q60b-884 then convert Q60b-884 character to Q6088L(4) integer] [if onpath Q60b-885 then convert Q60b-885 character to Q6088L(5) integer] [if onpath Q60b-886 then convert Q60b-886 character to Q6088L(6) integer] [if onpath Q60b-887 then convert Q60b-887 character to Q6088L(7) integer] [if onpath Q60b-888 then convert Q60b-888 character to Q6088L(8) integer] [if onpath Q60b-889 then convert Q60b-889 character to Q6088L(9) integer] [if onpath Q60b-8810 then convert Q60b-8810 character to Q6088L(10) integer] [if onpath Q60b-8811 then convert Q60b-8811 character to Q6088L(11) integer] [if onpath Q60b-8812 then convert Q60b-8812 character to Q6088L(12) integer] [if onpath Q60b-8813 then convert Q60b-8813 character to Q6088L(13) integer] [if onpath Q60b-8814 then convert Q60b-8814 character to Q6088L(14) integer] [if onpath Q60b-8815 then convert Q60b-8815 character to Q6088L(15) integer] [if onpath Q60b-8816 then convert Q60b-8816 character to Q6088L(16) integer] [do index <1> <16>] [store <0> in tabindex(index)] [convert hhmem(index) character to tabindex(index) integer] [end do] [if NUMHOU eq <1> then tablook tabindex <1> Q6088L(1)] [store <0> in Q60-88_R_P] $end ------------------------------------------------------------------------------ $ROPEN>Q60-88< $>AFT-Q60-88< [goto q58a] $end ============================================================================== $RBEGIN>Q60-88< [maxelt 16] ============================================================================== $>pre-q60c88< [if R_P gt NROSIZ then roster exit] [store <0> in index] [tablook Q6088L q60-88_R_P index] [if index eq <0> then roster loop] [if Q6088L(index) nq R_P then roster loop] $end ----------------------------------------------------------------------------- $>Q60c-88< [multiple Q60C81 Q60C82 Q60C83 Q60C84 Q60C85] [NIF R_P eq RESPLI then] [store in temptext] [ELSE] [store name(R_P) in temptext] [ENDIF] $itemtable >Q60c-88< What type of Veterans' payments did [fill temptext] receive? READ LIST ONLY IF RESPONDENT IS HAVING DIFFICULTY ANSWERING THE QUESTION. <1> Service-connected disability compensation <2> Survivor Benefits <3> Veterans' pension <4> Educational assistance (including assistance received by children of veterans) <5> Other Veterans' payments No more PROBE: Anything else? ===>__ ===>__ ===>__ ===>__ ===>__ $end ----------------------------------------------------------------------------- $>Q60C81< [within q60c-88] $d [none] <1> <2> <3> <4> <5> Refused [goto Q60D88] Don't Know [goto Q60D88] $end $>Q60C82< [within q60c-88] $d [none] <1> <2> <3> <4> <5> No more [goto Q60D88] Refused [goto Q60D88] Don't Know [goto Q60D88] $edit [notequal Q60C81(R_P)] $end $>Q60C83< [within q60c-88] $d [none] <1> <2> <3> <4> <5> No more [goto Q60D88] Refused [goto Q60D88] Don't Know [goto Q60D88] $edit [notequal Q60C81(R_P)] [notequal Q60C82(R_P)] $end $>Q60C84< [within q60c-88] $d [none] <1> <2> <3> <4> <5> No more [goto Q60D88] Refused [goto Q60D88] Don't Know [goto Q60D88] $edit [notequal Q60C81(R_P)] [notequal Q60C82(R_P)] [notequal Q60C83(R_P)] $end $>Q60C85< [within q60c-88] $d [none] <1> <2> <3> <4> <5> No more Refused Don't Know $edit [notequal Q60C81(R_P)] [notequal Q60C82(R_P)] [notequal Q60C83(R_P)] [notequal Q60C84(R_P)] $end ----------------------------------------------------------------------------- $>Q60D88< [NIF RESPLI eq R_P then] [store in temptext] [store in areis] [ELSE] [store name(R_P) in temptext] [store in areis] [ENDIF] $d >Q60D88< [fill areis] [fill temptext] required to fill out an annual income questionnaire for the Department of Veterans' Affairs? <1> Yes <2> No [blind] Refused Don't Know ===>_ $end ----------------------------------------------------------------------------- $>Q60V1p< [combine name(r_p) <'s> into temptext] [if R_P eq respli then store in temptext] [IF Q60C81(R_P) is <1> then store in temp2] [IF Q60C81(R_P) is <2> then store in temp2] [IF Q60C81(R_P) is <3> then store in temp2] [IF Q60C81(R_P) is <4> then store in temp2] [IF Q60C81(R_P) is <5> then store in temp2] $d >Q60V1p< What is the easiest way for you to tell us [fill temptext] [fill temp2]; weekly, every other week, twice a month, monthly or yearly? <1> Weekly <2> Every other week <3> Twice a month <4> Monthly <5> Yearly [blind] Don't know [goto C-Q60V1T] Refused [goto C-Q60V1T] ===>_ [goto Q60V1] $end --------------------------------------------------------------------- $>Q60V1< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store < > in temp2] [if Q60V1p(r_p) is <1> then store in temp2] [if Q60V1p(r_p) is <2> then store in temp2] [if Q60V1p(r_p) is <3> then store in temp2] [if Q60V1p(r_p) is <4> then store in temp2] [IF Q60C81(R_P) is <1> then store in temp3] [IF Q60C81(R_P) is <2> then store in temp3] [IF Q60C81(R_P) is <3> then store in temp3] [IF Q60C81(R_P) is <4> then store in temp3] [IF Q60C81(R_P) is <5> then store in temp3] [store <1> in xbad(1)] $d >Q60V1< How much did [fill temptext] receive [fill temp2] before deductions in [fill temp3] in 1996? Enter dollar amount: [blind] Don't Know [goto C-Q60V1T] Refused [goto C-Q60V1T] ===>$[N]_,___,___ $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>CK-Q60V1< [NIF Q60V1p(r_p) is <5> then] [if onpath Q60V1p:r_p then goto QC60V1] [ENDIF] [goto Q60V12] $end --------------------------------------------------------------------- $>Q60V12< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store in temp2] [store <52> in xbad(1)] [store <{1-52}> in temp4] [NIF Q60V1p(r_p) is <2> then] [store in temp2] [store <26> in xbad(1)] [store <{1-26}> in temp4] [ELSEIF Q60V1p(r_p) is <3> then] [store in temp2] [store <24> in xbad(1)] [store <{1-24}> in temp4] [ELSEIF Q60V1p(r_p) is <4> then] [store in temp2] [store <12> in xbad(1)] [store <{1-12}> in temp4] [ENDIF] [IF Q60C81(R_P) is <1> then store in temp5] [IF Q60C81(R_P) is <2> then store in temp5] [IF Q60C81(R_P) is <3> then store in temp5] [IF Q60C81(R_P) is <4> then store in temp5] [IF Q60C81(R_P) is <5> then store in temp5] $d >Q60V12< How many [fill temp2] payments did [fill temptext] receive in [fill temp5] in 1996? [fill temp4] [blind] Don't Know [goto C-Q60V1T] Refused [goto C-Q60V1T] <1-52> ===>__ [goto Q60V13] $edit [notgreater xbad(1)] $end --------------------------------------------------------------------- $>QC60V1< [store <0> in index] [NIF Q60V1(R_P) isnt AND Q60V1(R_P) isnt then] [if onpath Q60V1:R_P then convert Q60V1(R_P) character to index integer] [ENDIF] [IF index lt <10> then goto Q60V1C] [IF index gt <10000> then goto Q60V1C] [goto C-Q60V1T] $end --------------------------------------------------------------------- $>Q60V1C< [IF Q60C81(R_P) is <1> then store in temp3] [IF Q60C81(R_P) is <2> then store in temp3] [IF Q60C81(R_P) is <3> then store in temp3] [IF Q60C81(R_P) is <4> then store in temp3] [IF Q60C81(R_P) is <5> then store in temp3] $d >Q60V1C< ***DO NOT READ TO THE RESPONDENT*** THE ANNUAL RATE APPEARS OUT OF RANGE. THE TOTAL [fill temp3] RECEIVED IN 1996 WAS [fill Q60V1(R_P)]. IS THIS A CORRECT ENTRY? <1> Yes <2> No [backto Q60V1:R_P] ===>_ [goto C-Q60V1t] $end --------------------------------------------------------------------- $>Q60V13< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [IF Q60C81(R_P) is <1> then store in temp3] [IF Q60C81(R_P) is <2> then store in temp3] [IF Q60C81(R_P) is <3> then store in temp3] [IF Q60C81(R_P) is <4> then store in temp3] [IF Q60C81(R_P) is <5> then store in temp3] [store < > in T60V13(R_P)] [if onpath Q60V1:R_P then convert Q60V1(R_P) character to index integer] [if onpath Q60V12:R_P then convert Q60V12(R_P) character to index2 integer] [multiply index by index2] [convert index integer to T60V13(R_P) character] $d >Q60V13< According to my calculations [fill temptext] received $[fill T60V13(R_P)] dollars altogether from [fill temp3] in 1996. Does that sound about right? <1> Yes <2> No [goto Q60V14] [blind] Don't know Refused ===>_ [goto C-Q60V1T] $end --------------------------------------------------------------------- $>Q60V14< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store in temp2] [if Q60V1p(r_p) is <1> then store in temp2] [if Q60V1p(r_p) is <2> then store in temp2] [if Q60V1p(r_p) is <3> then store in temp2] [if Q60V1p(r_p) is <4> then store in temp2] [IF Q60C81(R_P) is <1> then store in temp3] [IF Q60C81(R_P) is <2> then store in temp3] [IF Q60C81(R_P) is <3> then store in temp3] [IF Q60C81(R_P) is <4> then store in temp3] [IF Q60C81(R_P) is <5> then store in temp3] [store <1> in xbad(1)] $d >Q60V14< What is your best estimate of the correct amount [fill temptext] received from [fill temp3] during 1996? PREVIOUS ENTRIES: Q60V1: $[fill Q60V1(R_P)] Q60V1P: [fill temp2] Q60V12: [fill Q60V12(R_P)] Enter dollar amount: [blind] Don't know Refused ===>$[N]_,___,___ $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>C-Q60V1T< CALCULATES Q601T [store < > IN Q60V1T(R_P)] [NIF Q60V1p(R_P) is <5> then] [if onpath Q60V1p:R_P then store Q60V1(R_P) in Q60V1T(R_P)] [ENDIF] [store <0> in index] [store <0> in index2] [if onpath Q60V1p:R_P then convert Q60V1p(R_P) character to index integer] [NIF index ge <1> AND index le <4> then] [store <1> in index2] [ENDIF] [NIF Q60V13(R_P) is <1> AND index2 eq <1> then] [if onpath Q60V13:R_P then store T60V13(R_P) in Q60V1T(R_P)] [ELSEIF Q60V13(R_P) is AND index2 eq <1> then] [if onpath Q60V13:R_P then store T60V13(R_P) in Q60V1T(R_P)] [ELSEIF Q60V13(R_P) is AND index2 eq <1> then] [if onpath Q60V13:R_P then store T60V13(R_P) in Q60V1T(R_P)] [ENDIF] [NIF Q60V14(R_P) isnt AND Q60V14(R_P) isnt then] [if onpath Q60V14:R_P then add <10> to index2] [ENDIF] [NIF Q60V13(R_P) is <2> AND index2 eq <11> then] [if onpath Q60V13:R_P then store Q60V14(R_P) in Q60V1T(R_P)] [ELSEIF Q60V13(R_P) is <2> AND index2 eq <1> then] [if onpath Q60V13:R_P then store T60V13(R_P) in Q60V1T(R_P)] [ENDIF] [NIF Q60V1p(R_P) is then] [if onpath Q60V1p:R_P then store in Q60V1T(R_P)] [ENDIF] [NIF Q60V1(R_P) is then] [if onpath Q60V1:R_P then store in Q60V1T(R_P)] [ENDIF] [NIF Q60V12(R_P) is then] [if onpath Q60V12:R_P then store in Q60V1T(R_P)] [ENDIF] [NIF Q60C82(R_P) isnt AND Q60C82(R_P) isnt then] [if onpath Q60C82:R_P then goto Q60v2p] [ENDIF] [store Q60V1T(R_P) in Q60E8O(R_P)] [roster loop] $end ---------------------------------------------------------------------- $>Q60V2p< [combine name(r_p) <'s> into temptext] [if R_P eq respli then store in temptext] [IF Q60C82(R_P) is <1> then store in temp2] [IF Q60C82(R_P) is <2> then store in temp2] [IF Q60C82(R_P) is <3> then store in temp2] [IF Q60C82(R_P) is <4> then store in temp2] [IF Q60C82(R_P) is <5> then store in temp2] $d >Q60V2p< What is the easiest way for you to tell us [fill temptext] [fill temp2]; weekly, every other week, twice a month, monthly or yearly? <1> Weekly <2> Every other week <3> Twice a month <4> Monthly <5> Yearly [blind] Don't know [goto C-Q60V2T] Refused [goto C-Q60V2T] ===>_ [goto Q60V2] $end --------------------------------------------------------------------- $>Q60V2< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store < > in temp2] [if Q60V2p(r_p) is <1> then store in temp2] [if Q60V2p(r_p) is <2> then store in temp2] [if Q60V2p(r_p) is <3> then store in temp2] [if Q60V2p(r_p) is <4> then store in temp2] [IF Q60C82(R_P) is <1> then store in temp3] [IF Q60C82(R_P) is <2> then store in temp3] [IF Q60C82(R_P) is <3> then store in temp3] [IF Q60C82(R_P) is <4> then store in temp3] [IF Q60C82(R_P) is <5> then store in temp3] [store <1> in xbad(1)] $d >Q60V2< How much did [fill temptext] receive [fill temp2] before deductions in [fill temp3] in 1996? Enter dollar amount: [blind] Don't Know [goto C-Q60V2T] Refused [goto C-Q60V2T] ===>$[N]_,___,___ $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>CK-Q60V2< [NIF Q60V2p(r_p) is <5> then] [if onpath Q60V2p:r_p then goto QC60V2] [ENDIF] [goto Q60V22] $end --------------------------------------------------------------------- $>Q60V22< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store in temp2] [store <52> in xbad(1)] [store <{1-52}> in temp4] [NIF Q60V2p(r_p) is <2> then] [store in temp2] [store <26> in xbad(1)] [store <{1-26}> in temp4] [ELSEIF Q60V2p(r_p) is <3> then] [store in temp2] [store <24> in xbad(1)] [store <{1-24}> in temp4] [ELSEIF Q60V2p(r_p) is <4> then] [store in temp2] [store <12> in xbad(1)] [store <{1-12}> in temp4] [ENDIF] [IF Q60C82(R_P) is <1> then store in temp5] [IF Q60C82(R_P) is <2> then store in temp5] [IF Q60C82(R_P) is <3> then store in temp5] [IF Q60C82(R_P) is <4> then store in temp5] [IF Q60C82(R_P) is <5> then store in temp5] $d >Q60V22< How many [fill temp2] payments did [fill temptext] receive in [fill temp5] in 1996? [fill temp4] [blind] Don't Know [goto C-Q60V2T] Refused [goto C-Q60V2T] <1-52> ===>__ [goto Q60V23] $edit [notgreater xbad(1)] $end --------------------------------------------------------------------- $>QC60V2< [store <0> in index] [NIF Q60V2(R_P) isnt AND Q60V2(R_P) isnt then] [if onpath Q60V2:R_P then convert Q60V2(R_P) character to index integer] [ENDIF] [IF index lt <10> then goto Q60V2C] [IF index gt <10000> then goto Q60V2C] [goto C-Q60V2T] $end --------------------------------------------------------------------- $>Q60V2C< [IF Q60C82(R_P) is <1> then store in temp3] [IF Q60C82(R_P) is <2> then store in temp3] [IF Q60C82(R_P) is <3> then store in temp3] [IF Q60C82(R_P) is <4> then store in temp3] [IF Q60C82(R_P) is <5> then store in temp3] $d >Q60V2C< ***DO NOT READ TO THE RESPONDENT*** THE ANNUAL RATE APPEARS OUT OF RANGE. THE TOTAL [fill temp3] RECEIVED IN 1996 WAS [fill Q60V2(R_P)]. IS THIS A CORRECT ENTRY? <1> Yes <2> No [backto Q60V2:R_P] ===>_ [goto C-Q60V2t] $end --------------------------------------------------------------------- $>Q60V23< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [IF Q60C82(R_P) is <1> then store in temp3] [IF Q60C82(R_P) is <2> then store in temp3] [IF Q60C82(R_P) is <3> then store in temp3] [IF Q60C82(R_P) is <4> then store in temp3] [IF Q60C82(R_P) is <5> then store in temp3] [store < > in T60V23(R_P)] [if onpath Q60V2:R_P then convert Q60V2(R_P) character to index integer] [if onpath Q60V22:R_P then convert Q60V22(R_P) character to index2 integer] [multiply index by index2] [convert index integer to T60V23(R_P) character] $d >Q60V23< According to my calculations [fill temptext] received $[fill T60V23(R_P)] dollars altogether from [fill temp3] in 1996. Does that sound about right? <1> Yes <2> No [goto Q60V24] [blind] Don't know Refused ===>_ [goto C-Q60V2T] $end --------------------------------------------------------------------- $>Q60V24< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store in temp2] [if Q60V2p(r_p) is <1> then store in temp2] [if Q60V2p(r_p) is <2> then store in temp2] [if Q60V2p(r_p) is <3> then store in temp2] [if Q60V2p(r_p) is <4> then store in temp2] [IF Q60C82(R_P) is <1> then store in temp3] [IF Q60C82(R_P) is <2> then store in temp3] [IF Q60C82(R_P) is <3> then store in temp3] [IF Q60C82(R_P) is <4> then store in temp3] [IF Q60C82(R_P) is <5> then store in temp3] [store <1> in xbad(1)] $d >Q60V24< What is your best estimate of the correct amount [fill temptext] received from [fill temp3] during 1996? PREVIOUS ENTRIES: Q60V2: $[fill Q60V2(R_P)] Q60V2P: [fill temp2] Q60V22: [fill Q60V22(R_P)] Enter dollar amount: [blind] Don't know Refused ===>$[N]_,___,___ $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>C-Q60V2T< CALCULATES Q60V2T [store < > IN Q60V2T(R_P)] [NIF Q60V2p(R_P) is <5> then] [if onpath Q60V2p:R_P then store Q60V2(R_P) in Q60V2T(R_P)] [ENDIF] [store <0> in index] [store <0> in index2] [if onpath Q60V2p:R_P then convert Q60V2p(R_P) character to index integer] [NIF index ge <1> AND index le <4> then] [store <1> in index2] [ENDIF] [NIF Q60V23(R_P) is <1> AND index2 eq <1> then] [if onpath Q60V23:R_P then store T60V23(R_P) in Q60V2T(R_P)] [ELSEIF Q60V23(R_P) is AND index2 eq <1> then] [if onpath Q60V23:R_P then store T60V23(R_P) in Q60V2T(R_P)] [ELSEIF Q60V23(R_P) is AND index2 eq <1> then] [if onpath Q60V23:R_P then store T60V23(R_P) in Q60V2T(R_P)] [ENDIF] [NIF Q60V24(R_P) isnt AND Q60V24(R_P) isnt then] [if onpath Q60V24:R_P then add <10> to index2] [ENDIF] [NIF Q60V23(R_P) is <2> AND index2 eq <11> then] [if onpath Q60V23:R_P then store Q60V24(R_P) in Q60V2T(R_P)] [ELSEIF Q60V23(R_P) is <2> AND index2 eq <1> then] [if onpath Q60V23:R_P then store T60V23(R_P) in Q60V2T(R_P)] [ENDIF] [NIF Q60V2p(R_P) is then] [if onpath Q60V2p:R_P then store in Q60V2T(R_P)] [ENDIF] [NIF Q60V2(R_P) is then] [if onpath Q60V2:R_P then store in Q60V2T(R_P)] [ENDIF] [NIF Q60V22(R_P) is then] [if onpath Q60V22:R_P then store in Q60V2T(R_P)] [ENDIF] [store <0> in index] [NIF Q60V2T(R_P) isnt AND Q60V2T(R_P) isnt then] [store <1> in index] [ENDIF] [NIF Q60V1T(R_P) isnt AND Q60V1T(R_P) isnt then] [add <1> to index] [ENDIF] [store <0> in index2] [store <0> in index3] [store < > in Q60E8O(R_P)] [NIF index eq <2> then] [convert Q60V1T(R_P) character to index2 integer] [convert Q60V2T(R_P) character to index3 integer] [add index2 to index3] [convert index3 integer to Q60E8O(R_P) character] [ENDIF] [roster loop] $end ---------------------------------------------------------------------- $REND>Q60-88< ============================================================================== Comment: This is item 61a in the 1989 CPS-665. Changed the goto instruction for precodes 2, D, and R from now-58ros to q59a COMMENT: DELETED CODING FOR NUMHOU EQ 1 BECAUSE IT MESSES UP ONPATH TESTS CMC 2/90 $>Q58a< [store < > in temp3] [NIF Q56a is <1> AND Q60A88 isnt <1> then] [store <,> in temptext] [store in temp3] [ELSEIF Q56a isnt <1> AND Q60A88 is <1> then] [store <,> in temptext] [store in temp3] [ELSEIF Q56a is <1> AND Q60A88 is <1> then] [store <,> in temptext] [store in temp3] [ELSE] [store in temptext] [store < > in temp3] [ENDIF] [NIF NUMHOU eq <1> then] [store in temp2] [ELSE] [store in temp2] [ENDIF] $d >Q58a< Did [fill temp2] receive any survivor benefits in 1996 such as widow's pensions, estates, trusts, insurance annuities, or any other survivor benefits[fill temptext] [fill temp3] <1> Yes [if NUMHOU eq <1> then goto now-q58ros] [goto q58b] <2> No [blind] Refused Don't Know ===>_ [goto q59a] $end ------------------------------------------------------------------------------ $>Q58b< [multiple q58b-1 q58b-2 q58b-3 q58b-4 q58b-5 q58b-6 q58b-7 q58b-8] [multiple q58b-9 q58b-10 q58b-11 q58b-12 q58b-13 q58b-14 q58b-15 q58b-16] [indirect] [do index <1> <16>] [store < > in tempname(index)] [store < > in xbad(index)] [NIF AGERNG(index) lt <2> then] [convert index integer to xbad(index) character] [ELSEIF hhmem(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <9> then] [convert index integer to xbad(index) character] [ELSEIF PELIG(index) eq <12> OR hhmem(index) is <3> then] [convert index integer to xbad(index) character] [ENDIF] [end do] [do index <1> NROSIZ] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to tempname(index)(2:2) character] [ELSEIF index2 ge <10> then] [convert index2 integer to tempname(index)(1:2) character] [ENDIF] [store name(index) in tempname(index)(4:27)] [store relation(index) in tempname(index)(29:37)] [store <0> in index4] [convert xbad(index) character to index4 integer] [if index4 gt <0> then store < > in tempname(index)] [end do] $itemtable >Q58b< **ASK ONLY IF NECESSARY** Who received this income? LN NAME RELATION LN NAME RELATION [fill/l tempname(1)] [fill tempname(9)] [fill/l tempname(2)] [fill tempname(10)] [fill/l tempname(3)] [fill tempname(11)] [fill/l tempname(4)] [fill tempname(12)] [fill/l tempname(5)] [fill tempname(13)] [fill/l tempname(6)] [fill tempname(14)] [fill/l tempname(7)] [fill tempname(15)] [fill/l tempname(8)] [fill tempname(16)] ENTER LINE NUMBER No more PROBE: Anyone else? ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ $end ----------------------------------------------------------------------------- $>Q58b-1< [within q58b] $d [none] <1-16> Refused [goto q59a] Don't Know [goto q59a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end $>Q58b-2< [within q58b] $d [none] <1-16> Refused [goto now-q58ros] Don't Know [goto now-q58ros] No more [goto now-q58ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q58b-1] $end $>Q58b-3< [within q58b] $d [none] <1-16> Refused [goto now-q58ros] Don't Know [goto now-q58ros] No more [goto now-q58ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q58b-1] [notequal q58b-2] $end $>Q58b-4< [within q58b] $d [none] <1-16> Refused [goto now-q58ros] Don't Know [goto now-q58ros] No more [goto now-q58ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q58b-1] [notequal q58b-2] [notequal q58b-3] $end $>Q58b-5< [within q58b] $d [none] <1-16> Refused [goto now-q58ros] Don't Know [goto now-q58ros] No more [goto now-q58ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q58b-1] [notequal q58b-2] [notequal q58b-3] [notequal q58b-4] $end $>Q58b-6< [within q58b] $d [none] <1-16> Refused [goto now-q58ros] Don't Know [goto now-q58ros] No more [goto now-q58ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q58b-1] [notequal q58b-2] [notequal q58b-3] [notequal q58b-4] [notequal q58b-5] $end $>Q58b-7< [within q58b] $d [none] <1-16> Refused [goto now-q58ros] Don't Know [goto now-q58ros] No more [goto now-q58ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q58b-1] [notequal q58b-2] [notequal q58b-3] [notequal q58b-4] [notequal q58b-5] [notequal q58b-6] $end $>Q58b-8< [within q58b] $d [none] <1-16> Refused [goto now-q58ros] Don't Know [goto now-q58ros] No more [goto now-q58ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q58b-1] [notequal q58b-2] [notequal q58b-3] [notequal q58b-4] [notequal q58b-5] [notequal q58b-6] [notequal q58b-7] $end $>Q58b-9< [within q58b] $d [none] <1-16> Refused [goto now-q58ros] Don't Know [goto now-q58ros] No more [goto now-q58ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q58b-1] [notequal q58b-2] [notequal q58b-3] [notequal q58b-4] [notequal q58b-5] [notequal q58b-6] [notequal q58b-7] [notequal Q58b-8] $end $>Q58b-10< [within q58b] $d [none] <1-16> Refused [goto now-q58ros] Don't Know [goto now-q58ros] No more [goto now-q58ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q58b-1] [notequal q58b-2] [notequal q58b-3] [notequal q58b-4] [notequal q58b-5] [notequal q58b-6] [notequal q58b-7] [notequal Q58b-8] [notequal Q58b-9] $end $>Q58b-11< [within q58b] $d [none] <1-16> Refused [goto now-q58ros] Don't Know [goto now-q58ros] No more [goto now-q58ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q58b-1] [notequal q58b-2] [notequal q58b-3] [notequal q58b-4] [notequal q58b-5] [notequal q58b-6] [notequal q58b-7] [notequal Q58b-8] [notequal Q58b-9] [notequal Q58b-10] $end $>Q58b-12< [within q58b] $d [none] <1-16> Refused [goto now-q58ros] Don't Know [goto now-q58ros] No more [goto now-q58ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q58b-1] [notequal q58b-2] [notequal q58b-3] [notequal q58b-4] [notequal q58b-5] [notequal q58b-6] [notequal q58b-7] [notequal Q58b-8] [notequal Q58b-9] [notequal Q58b-10] [notequal Q58b-11] $end $>Q58b-13< [within q58b] $d [none] <1-16> Refused [goto now-q58ros] Don't Know [goto now-q58ros] No more [goto now-q58ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q58b-1] [notequal q58b-2] [notequal q58b-3] [notequal q58b-4] [notequal q58b-5] [notequal q58b-6] [notequal q58b-7] [notequal Q58b-8] [notequal Q58b-9] [notequal Q58b-10] [notequal Q58b-11] [notequal Q58b-12] $end $>Q58b-14< [within q58b] $d [none] <1-16> Refused [goto now-q58ros] Don't Know [goto now-q58ros] No more [goto now-q58ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q58b-1] [notequal q58b-2] [notequal q58b-3] [notequal q58b-4] [notequal q58b-5] [notequal q58b-6] [notequal q58b-7] [notequal Q58b-8] [notequal Q58b-9] [notequal Q58b-10] [notequal Q58b-11] [notequal Q58b-12] [notequal Q58b-13] $end $>Q58b-15< [within q58b] $d [none] <1-16> Refused [goto now-q58ros] Don't Know [goto now-q58ros] No more [goto now-q58ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q58b-1] [notequal q58b-2] [notequal q58b-3] [notequal q58b-4] [notequal q58b-5] [notequal q58b-6] [notequal q58b-7] [notequal Q58b-8] [notequal Q58b-9] [notequal Q58b-10] [notequal Q58b-11] [notequal Q58b-12] [notequal Q58b-13] [notequal Q58b-14] $end $>Q58b-16< [within q58b] $d [none] <1-16> Refused [goto now-q58ros] Don't Know [goto now-q58ros] No more [goto now-q58ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q58b-1] [notequal q58b-2] [notequal q58b-3] [notequal q58b-4] [notequal q58b-5] [notequal q58b-6] [notequal q58b-7] [notequal Q58b-8] [notequal Q58b-9] [notequal Q58b-10] [notequal Q58b-11] [notequal Q58b-12] [notequal Q58b-13] [notequal Q58b-14] [notequal Q58b-15] $end ------------------------------------------------------------------------------ $>NOW-Q58ROS< [do index <1> <16>] [store <0> in Q58BLN(index)] [end do] [if onpath q58b-1 then convert q58b-1 character to Q58BLN(1) integer] [if onpath q58b-2 then convert q58b-2 character to Q58BLN(2) integer] [if onpath q58b-3 then convert q58b-3 character to Q58BLN(3) integer] [if onpath q58b-4 then convert q58b-4 character to Q58BLN(4) integer] [if onpath q58b-5 then convert q58b-5 character to Q58BLN(5) integer] [if onpath q58b-6 then convert q58b-6 character to Q58BLN(6) integer] [if onpath q58b-7 then convert q58b-7 character to Q58BLN(7) integer] [if onpath q58b-8 then convert q58b-8 character to Q58BLN(8) integer] [if onpath q58b-9 then convert q58b-9 character to Q58BLN(9) integer] [if onpath q58b-10 then convert q58b-10 character to Q58BLN(10) integer] [if onpath q58b-11 then convert q58b-11 character to Q58BLN(11) integer] [if onpath q58b-12 then convert q58b-12 character to Q58BLN(12) integer] [if onpath q58b-13 then convert q58b-13 character to Q58BLN(13) integer] [if onpath q58b-14 then convert q58b-14 character to Q58BLN(14) integer] [if onpath q58b-15 then convert q58b-15 character to Q58BLN(15) integer] [if onpath q58b-16 then convert q58b-16 character to Q58BLN(16) integer] [do index <1> <16>] [store <0> in tabindex(index)] [convert hhmem(index) character to tabindex(index) integer] [end do] [if NUMHOU eq <1> then tablook tabindex <1> Q58BLN(1)] [store <0> in Q58ROS_R_P] $end ---------------------------------------------------------------------------- $ROPEN>Q58ROS< $>AFT-Q58ROS< [goto q59a] $end ============================================================================== $RBEGIN>Q58ROS< [maxelt 16] ============================================================================== $>pre-q58c< [if R_P gt NROSIZ then roster exit] [store <0> in index] [tablook Q58BLN q58ros_R_P index] [if index eq <0> then roster loop] [if Q58BLN(index) nq R_P then roster loop] $end ----------------------------------------------------------------------------- Comment: This is item 61c in the 1989 CPS-665. Deleted precode "1" - Veteran survivor pension 3/88 $>Q58c< [multiple Q58C1 Q58C2 Q58C3 Q58C4 Q58C5 Q58C6 Q58C7 Q58C8] [multiple Q58C9 Q58C10] [indirect] [store < > in temp2] [if R_P eq RESPLI then store <--CURRENT RESPONDENT> in temp2] $itemtable >Q58c< What was the source of this income? ASKING ABOUT: [fill name(R_P)] [fill temp2] READ LIST IF RESPONDENT IS HAVING DIFFICULTY ANSWERING THE QUESTION <2> Company or union survivor pension (INCLUDE PROFIT SHARING) <3> Federal Government (CIVIL SERVICE) pension <4> U.S. Military retirement survivor pension <5> State or Local government survivor pension <6> U.S. Railroad retirement survivor pension <7> Worker's compensation survivor pension <8> Black Lung survivor pension <9> Regular payments from estates or trusts <10> Regular payments from annuities or paid-up insurance policies <11> Other or don't know (SPECIFY) --ENTER LAST PROBE: Any other source? No more ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ $end ----------------------------------------------------------------------------- $>Q58C1< [within q58c] $d [none] <2> <3> <4> <5> <6> <7> <8> <9> <10> <11> Other source [goto OTH58C] Refused [roster loop] $end $>Q58C2< [within q58c] $d [none] <2> <3> <4> <5> <6> <7> <8> <9> <10> <11> Other source [goto OTH58C] Refused [goto q58e1p] No more [goto q58e1p] $edit [notequal Q58C1(R_P)] $end $>Q58C3< [within q58c] $d [none] <2> <3> <4> <5> <6> <7> <8> <9> <10> <11> Other source [goto OTH58C] Refused [goto q58e1p] No more [goto q58e1p] $edit [notequal Q58C1(R_P)] [notequal Q58C2(R_P)] $end $>Q58C4< [within q58c] $d [none] <2> <3> <4> <5> <6> <7> <8> <9> <10> <11> Other source [goto OTH58C] Refused [goto q58e1p] No more [goto q58e1p] $edit [notequal Q58C1(R_P)] [notequal Q58C2(R_P)] [notequal Q58C3(R_P)] $end $>Q58C5< [within q58c] $d [none] <2> <3> <4> <5> <6> <7> <8> <9> <10> <11> Other source [goto OTH58C] Refused [goto q58e1p] No more [goto q58e1p] $edit [notequal Q58C1(R_P)] [notequal Q58C2(R_P)] [notequal Q58C3(R_P)] [notequal Q58C4(R_P)] $end $>Q58C6< [within q58c] $d [none] <2> <3> <4> <5> <6> <7> <8> <9> <10> <11> Other source [goto OTH58C] Refused [goto q58e1p] No more [goto q58e1p] $edit [notequal Q58C1(R_P)] [notequal Q58C2(R_P)] [notequal Q58C3(R_P)] [notequal Q58C4(R_P)] [notequal Q58C5(R_P)] $end $>Q58C7< [within q58c] $d [none] <2> <3> <4> <5> <6> <7> <8> <9> <10> <11> Other source [goto OTH58C] Refused [goto q58e1p] No more [goto q58e1p] $edit [notequal Q58C1(R_P)] [notequal Q58C2(R_P)] [notequal Q58C3(R_P)] [notequal Q58C4(R_P)] [notequal Q58C5(R_P)] [notequal Q58C6(R_P)] $end $>Q58C8< [within q58c] $d [none] <2> <3> <4> <5> <6> <7> <8> <9> <10> <11> Other source [goto OTH58C] Refused [goto q58e1p] No more [goto q58e1p] $edit [notequal Q58C1(R_P)] [notequal Q58C2(R_P)] [notequal Q58C3(R_P)] [notequal Q58C4(R_P)] [notequal Q58C5(R_P)] [notequal Q58C6(R_P)] [notequal Q58C7(R_P)] $end $>Q58C9< [within q58c] $d [none] <2> <3> <4> <5> <6> <7> <8> <9> <10> <11> Other source [goto OTH58C] Refused [goto q58e1p] No more [goto q58e1p] $edit [notequal Q58C1(R_P)] [notequal Q58C2(R_P)] [notequal Q58C3(R_P)] [notequal Q58C4(R_P)] [notequal Q58C5(R_P)] [notequal Q58C6(R_P)] [notequal Q58C7(R_P)] [notequal Q58C8(R_P)] $end $>Q58C10< [within q58c] $d [none] <2> <3> <4> <5> <6> <7> <8> <9> <10> <11> Other source [goto OTH58C] Refused No more ==>__ [goto q58e1p] $edit [notequal Q58C1(R_P)] [notequal Q58C2(R_P)] [notequal Q58C3(R_P)] [notequal Q58C4(R_P)] [notequal Q58C5(R_P)] [notequal Q58C6(R_P)] [notequal Q58C7(R_P)] [notequal Q58C8(R_P)] [notequal Q58C9(R_P)] $end ------------------------------------------------------------------------------ $>OTH58C< [indirect] $d >OTH58C< SPECIFY OTHER SOURCE OF INCOME AS SURVIVOR OR WIDOW ENTER "SURVIVOR BENEFITS" IF THE ANSWER IS "DON'T KNOW" [blind] Refused Don't Know ===>_____________________________________________________________ $edit [anychar] $end ------------------------------------------------------------------------------ $>Q58E1p< [combine name(r_p) <'s> into temptext] [if R_P eq respli then store in temptext] [store <0> in index] [convert Q58c1(R_P) character to index integer] [NIF index nq <11> then] [store Q58e-fil(index) in temp2] [ELSE] [store OTH58C(R_P) in temp2] [ENDIF] THE FOLLOWING CODE IS USED TO RESET DK SCREENS [NIF Q58e1p(R_P) is AND DKFLAG eq <1> then] [reset Q58e1p] [ENDIF] $d >Q58E1p< What is the easiest way for you to tell us [fill temptext] [fill temp2]; weekly, every other week, twice a month, monthly or yearly? <1> Weekly <2> Every other week <3> Twice a month <4> Monthly <5> Yearly [blind] Don't know [goto C-Q58E1T] Refused [goto C-Q58E1T] ===>_ [goto Q58E1] $end --------------------------------------------------------------------- $>Q58E1< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store < > in temp2] [if Q58E1p(r_p) is <1> then store in temp2] [if Q58E1p(r_p) is <2> then store in temp2] [if Q58E1p(r_p) is <3> then store in temp2] [if Q58E1p(r_p) is <4> then store in temp2] [store <0> in index] [convert Q58c1(R_P) character to index integer] [NIF index nq <11> then] [store Q58e-fil(index) in temp3] [ELSE] [store OTH58C(R_P) in temp3] [ENDIF] THE FOLLOWING CODE IS USED TO RESET DK SCREENS [NIF Q58e1(R_P) is AND DKFLAG eq <1> then] [reset Q58e1] [ENDIF] [store <1> in xbad(1)] $d >Q58E1< How much did [fill temptext] receive [fill temp2] before deductions in [fill temp3] in 1996? Enter dollar amount: [blind] Don't Know [goto C-Q58E1T] Refused [goto C-Q58E1T] ===>$[N]_,___,___ $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>CK-Q58E1< [NIF Q58E1p(r_p) is <5> then] [if onpath Q58E1p:r_p then goto C58E1] [ENDIF] [goto Q58E12] $end --------------------------------------------------------------------- $>Q58E12< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store in temp2] [store <52> in xbad(1)] [store <{1-52}> in temp4] [NIF Q58E1p(r_p) is <2> then] [store in temp2] [store <26> in xbad(1)] [store <{1-26}> in temp4] [ELSEIF Q58E1p(r_p) is <3> then] [store in temp2] [store <24> in xbad(1)] [store <{1-24}> in temp4] [ELSEIF Q58E1p(r_p) is <4> then] [store in temp2] [store <12> in xbad(1)] [store <{1-12}> in temp4] [ENDIF] [store <0> in index] [convert Q58c1(R_P) character to index integer] [NIF index nq <11> then] [store Q58e-fil(index) in temp5] [ELSE] [store OTH58C(R_P) in temp5] [ENDIF] THE FOLLOWING CODE IS USED TO RESET DK SCREENS [NIF Q58e12(R_P) is AND DKFLAG eq <1> then] [reset Q58e12] [ENDIF] $d >Q58E12< How many [fill temp2] payments did [fill temptext] receive in [fill temp5] in 1996? [fill temp4] [blind] Don't Know [goto C-Q58E1T] Refused [goto C-Q58E1T] <1-52> ===>__ [goto Q58E13] $edit [notgreater xbad(1)] $end --------------------------------------------------------------------- $>C58E1< [store <0> in index] [NIF Q58E1(R_P) isnt AND Q58E1(R_P) isnt then] [if onpath Q58E1:R_P then convert Q58E1(R_P) character to index integer] [ENDIF] [IF index lt <10> then goto Q58E1C] [IF index gt <10000> then goto Q58E1C] [goto C-Q58E1T] $end --------------------------------------------------------------------- $>Q58E1C< [store <0> in index] [convert Q58c1(R_P) character to index integer] [NIF index nq <11> then] [store Q58e-fil(index) in temp2] [ELSE] [store OTH58C(R_P) in temp2] [ENDIF] $d >Q58E1C< ***DO NOT READ TO THE RESPONDENT*** THE ANNUAL RATE APPEARS OUT OF RANGE. THE TOTAL [fill temp2] RECEIVED IN 1996 WAS [fill Q58E1(R_P)]. IS THIS A CORRECT ENTRY? <1> Yes <2> No [backto Q58E1:R_P] ===>_ [goto C-Q58E1t] $end --------------------------------------------------------------------- $>Q58E13< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store <0> in index] [convert Q58c1(R_P) character to index integer] [NIF index nq <11> then] [store Q58e-fil(index) in temp2] [ELSE] [store OTH58C(R_P) in temp2] [ENDIF] [store < > in T58E13(R_P)] [if onpath Q58E1:R_P then convert Q58E1(R_P) character to index integer] [if onpath Q58E12:R_P then convert Q58E12(R_P) character to index2 integer] [multiply index by index2] [convert index integer to T58E13(R_P) character] $d >Q58E13< According to my calculations [fill temptext] received $[fill T58E13(R_P)] dollars altogether from [fill temp2] in 1996. Does that sound about right? <1> Yes <2> No [goto Q58E14] [blind] Don't know Refused ===>_ [goto C-Q58E1T] $end --------------------------------------------------------------------- $>Q58E14< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store in temp2] [if Q58E1p(r_p) is <1> then store in temp2] [if Q58E1p(r_p) is <2> then store in temp2] [if Q58E1p(r_p) is <3> then store in temp2] [if Q58E1p(r_p) is <4> then store in temp2] [store <0> in index] [convert Q58c1(R_P) character to index integer] [NIF index nq <11> then] [store Q58e-fil(index) in temp3] [ELSE] [store OTH58C(R_P) in temp3] [ENDIF] [store <1> in xbad(1)] $d >Q58E14< What is your best estimate of the correct amount [fill temptext] received from [fill temp3] during 1996? PREVIOUS ENTRIES: Q58E1: $[fill Q58E1(R_P)] Q58E1P: [fill temp2] Q58E12: [fill Q58E12(R_P)] Enter dollar amount: [blind] Don't know Refused ===>$[N]_,___,___ $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>C-Q58E1T< CALCULATES Q58E1T [store < > IN Q58E1T(R_P)] [NIF Q58E1p(R_P) is <5> then] [if onpath Q58E1p:R_P then store Q58E1(R_P) in Q58E1T(R_P)] [ENDIF] [store <0> in index] [store <0> in index2] [if onpath Q58E1p:R_P then convert Q58E1p(R_P) character to index integer] [NIF index ge <1> AND index le <4> then] [store <1> in index2] [ENDIF] [NIF Q58E13(R_P) is <1> AND index2 eq <1> then] [if onpath Q58E13:R_P then store T58E13(R_P) in Q58E1T(R_P)] [ELSEIF Q58E13(R_P) is AND index2 eq <1> then] [if onpath Q58E13:R_P then store T58E13(R_P) in Q58E1T(R_P)] [ELSEIF Q58E13(R_P) is AND index2 eq <1> then] [if onpath Q58E13:R_P then store T58E13(R_P) in Q58E1T(R_P)] [ENDIF] [NIF Q58E14(R_P) isnt AND Q58E14(R_P) isnt then] [if onpath Q58E14:R_P then add <10> to index2] [ENDIF] [NIF Q58E13(R_P) is <2> AND index2 eq <11> then] [if onpath Q58E13:R_P then store Q58E14(R_P) in Q58E1T(R_P)] [ELSEIF Q58E13(R_P) is <2> AND index2 eq <1> then] [if onpath Q58E13:R_P then store T58E13(R_P) in Q58E1T(R_P)] [ENDIF] [NIF Q58E1p(R_P) is then] [if onpath Q58E1p:R_P then store in Q58E1T(R_P)] [ENDIF] [NIF Q58E1(R_P) is then] [if onpath Q58E1:R_P then store in Q58E1T(R_P)] [ENDIF] [NIF Q58E12(R_P) is then] [if onpath Q58E12:R_P then store in Q58E1T(R_P)] [ENDIF] [NIF Q58C2(R_P) isnt AND Q58C2(R_P) isnt then] [if onpath Q58C2:R_P then goto Q58E2p] [ENDIF] [roster loop] $end ---------------------------------------------------------------------- $>Q58E2p< [combine name(r_p) <'s> into temptext] [if R_P eq respli then store in temptext] [store <0> in index] [convert Q58c2(R_P) character to index integer] [NIF index nq <11> then] [store Q58e-fil(index) in temp2] [ELSE] [store OTH58C(R_P) in temp2] [ENDIF] THE FOLLOWING CODE IS USED TO RESET DK SCREENS [NIF Q58e2p(R_P) is AND DKFLAG eq <1> then] [reset Q58e2p] [ENDIF] $d >Q58E2p< What is the easiest way for you to tell us [fill temptext] [fill temp2]; weekly, every other week, twice a month, monthly or yearly? <1> Weekly <2> Every other week <3> Twice a month <4> Monthly <5> Yearly [blind] Don't know [goto C-Q58E2T] Refused [goto C-Q58E2T] ===>_ [goto Q58E2] $end --------------------------------------------------------------------- $>Q58E2< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store < > in temp2] [if Q58E2p(r_p) is <1> then store in temp2] [if Q58E2p(r_p) is <2> then store in temp2] [if Q58E2p(r_p) is <3> then store in temp2] [if Q58E2p(r_p) is <4> then store in temp2] [store <0> in index] [convert Q58c2(R_P) character to index integer] [NIF index nq <11> then] [store Q58e-fil(index) in temp3] [ELSE] [store OTH58C(R_P) in temp3] [ENDIF] THE FOLLOWING CODE IS USED TO RESET DK SCREENS [NIF Q58e2(R_P) is AND DKFLAG eq <1> then] [reset Q58e2] [ENDIF] [store <1> in xbad(1)] $d >Q58E2< How much did [fill temptext] receive [fill temp2] before deductions in [fill temp3] in 1996? Enter dollar amount: [blind] Don't Know [goto C-Q58E2T] Refused [goto C-Q58E2T] ===>$[N]_,___,___ $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>CK-Q58E2< [NIF Q58E2p(r_p) is <5> then] [if onpath Q58E2p:r_p then goto C58E2] [ENDIF] [goto Q58E22] $end --------------------------------------------------------------------- $>Q58E22< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store in temp2] [store <52> in xbad(1)] [store <{1-52}> in temp4] [NIF Q58E2p(r_p) is <2> then] [store in temp2] [store <26> in xbad(1)] [store <{1-26}> in temp4] [ELSEIF Q58E2p(r_p) is <3> then] [store in temp2] [store <24> in xbad(1)] [store <{1-24}> in temp4] [ELSEIF Q58E2p(r_p) is <4> then] [store in temp2] [store <12> in xbad(1)] [store <{1-12}> in temp4] [ENDIF] [store <0> in index] [convert Q58c2(R_P) character to index integer] [NIF index nq <11> then] [store Q58e-fil(index) in temp5] [ELSE] [store OTH58C(R_P) in temp5] [ENDIF] THE FOLLOWING CODE IS USED TO RESET DK SCREENS [NIF Q58e22(R_P) is AND DKFLAG eq <1> then] [reset Q58e22] [ENDIF] $d >Q58E22< How many [fill temp2] payments did [fill temptext] receive in [fill temp5] in 1996? [fill temp4] [blind] Don't Know [goto C-Q58E2T] Refused [goto C-Q58E2T] <1-52> ===>__ [goto Q58E23] $edit [notgreater xbad(1)] $end --------------------------------------------------------------------- $>C58E2< [store <0> in index] [NIF Q58E2(R_P) isnt AND Q58E2(R_P) isnt then] [if onpath Q58E2:R_P then convert Q58E2(R_P) character to index integer] [ENDIF] [IF index lt <10> then goto Q58E2C] [IF index gt <10000> then goto Q58E2C] [goto C-Q58E2T] $end --------------------------------------------------------------------- $>Q58E2C< [store <0> in index] [convert Q58c2(R_P) character to index integer] [NIF index nq <11> then] [store Q58e-fil(index) in temp2] [ELSE] [store OTH58C(R_P) in temp2] [ENDIF] $d >Q58E2C< ***DO NOT READ TO THE RESPONDENT*** THE ANNUAL RATE APPEARS OUT OF RANGE. THE TOTAL [fill temp2] RECEIVED IN 1996 WAS [fill Q58E2(R_P)]. IS THIS A CORRECT ENTRY? <1> Yes <2> No [backto Q58E2:R_P] ===>_ [goto C-Q58E2t] $end --------------------------------------------------------------------- $>Q58E23< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store <0> in index] [convert Q58c2(R_P) character to index integer] [NIF index nq <11> then] [store Q58e-fil(index) in temp2] [ELSE] [store OTH58C(R_P) in temp2] [ENDIF] [store < > in T58E23(R_P)] [if onpath Q58E2:R_P then convert Q58E2(R_P) character to index integer] [if onpath Q58E22:R_P then convert Q58E22(R_P) character to index2 integer] [multiply index by index2] [convert index integer to T58E23(R_P) character] $d >Q58E23< According to my calculations [fill temptext] received $[fill T58E23(R_P)] dollars altogether from [fill temp2] in 1996. Does that sound about right? <1> Yes <2> No [goto Q58E24] [blind] Don't know Refused ===>_ [goto C-Q58E2T] $end --------------------------------------------------------------------- $>Q58E24< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store in temp2] [if Q58E2p(r_p) is <1> then store in temp2] [if Q58E2p(r_p) is <2> then store in temp2] [if Q58E2p(r_p) is <3> then store in temp2] [if Q58E2p(r_p) is <4> then store in temp2] [store <0> in index] [convert Q58c2(R_P) character to index integer] [NIF index nq <11> then] [store Q58e-fil(index) in temp3] [ELSE] [store OTH58C(R_P) in temp3] [ENDIF] [store <1> in xbad(1)] $d >Q58E24< What is your best estimate of the correct amount [fill temptext] received from [fill temp3] during 1996? PREVIOUS ENTRIES: Q58E2: $[fill Q58E2(R_P)] Q58E2P: [fill temp2] Q58E22: [fill Q58E22(R_P)] Enter dollar amount: [blind] Don't know Refused ===>$[N]_,___,___ $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>C-Q58E2T< CALCULATES Q58E2T [store < > IN Q58E2T(R_P)] [NIF Q58E2p(R_P) is <5> then] [if onpath Q58E2p:R_P then store Q58E2(R_P) in Q58E2T(R_P)] [ENDIF] [store <0> in index] [store <0> in index2] [if onpath Q58E2p:R_P then convert Q58E2p(R_P) character to index integer] [NIF index ge <1> AND index le <4> then] [store <1> in index2] [ENDIF] [NIF Q58E23(R_P) is <1> AND index2 eq <1> then] [if onpath Q58E23:R_P then store T58E23(R_P) in Q58E2T(R_P)] [ELSEIF Q58E23(R_P) is AND index2 eq <1> then] [if onpath Q58E23:R_P then store T58E23(R_P) in Q58E2T(R_P)] [ELSEIF Q58E23(R_P) is AND index2 eq <1> then] [if onpath Q58E23:R_P then store T58E23(R_P) in Q58E2T(R_P)] [ENDIF] [NIF Q58E24(R_P) isnt AND Q58E24(R_P) isnt then] [if onpath Q58E24:R_P then add <10> to index2] [ENDIF] [NIF Q58E23(R_P) is <2> AND index2 eq <11> then] [if onpath Q58E23:R_P then store Q58E24(R_P) in Q58E2T(R_P)] [ELSEIF Q58E23(R_P) is <2> AND index2 eq <1> then] [if onpath Q58E23:R_P then store T58E23(R_P) in Q58E2T(R_P)] [ENDIF] [NIF Q58E2p(R_P) is then] [if onpath Q58E2p:R_P then store in Q58E2T(R_P)] [ENDIF] [NIF Q58E2(R_P) is then] [if onpath Q58E2:R_P then store in Q58E2T(R_P)] [ENDIF] [NIF Q58E22(R_P) is then] [if onpath Q58E22:R_P then store in Q58E2T(R_P)] [ENDIF] [NIF Q58C3(R_P) isnt AND Q58C3(R_P) isnt then] [if onpath Q58C3:R_P then goto Q58E3p] [ENDIF] [roster loop] $end ---------------------------------------------------------------------- $>Q58E3p< [combine name(r_p) <'s> into temptext] [if R_P eq respli then store in temptext] [store <0> in index] [convert Q58c3(R_P) character to index integer] [NIF index nq <11> then] [store Q58e-fil(index) in temp2] [ELSE] [store OTH58C(R_P) in temp2] [ENDIF] THE FOLLOWING CODE IS USED TO RESET DK SCREENS [NIF Q58e3p(R_P) is AND DKFLAG eq <1> then] [reset Q58e3p] [ENDIF] $d >Q58E3p< What is the easiest way for you to tell us [fill temptext] [fill temp2]; weekly, every other week, twice a month, monthly or yearly? <1> Weekly <2> Every other week <3> Twice a month <4> Monthly <5> Yearly [blind] Don't know [goto C-Q58E3T] Refused [goto C-Q58E3T] ===>_ [goto Q58E3] $end --------------------------------------------------------------------- $>Q58E3< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store < > in temp2] [if Q58E3p(r_p) is <1> then store in temp2] [if Q58E3p(r_p) is <2> then store in temp2] [if Q58E3p(r_p) is <3> then store in temp2] [if Q58E3p(r_p) is <4> then store in temp2] [store <0> in index] [convert Q58c3(R_P) character to index integer] [NIF index nq <11> then] [store Q58e-fil(index) in temp3] [ELSE] [store OTH58C(R_P) in temp3] [ENDIF] THE FOLLOWING CODE IS USED TO RESET DK SCREENS [NIF Q58e3(R_P) is AND DKFLAG eq <1> then] [reset Q58e3] [ENDIF] [store <1> in xbad(1)] $d >Q58E3< How much did [fill temptext] receive [fill temp2] before deductions in [fill temp3] in 1996? Enter dollar amount: [blind] Don't Know [goto C-Q58E3T] Refused [goto C-Q58E3T] ===>$[N]_,___,___ $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>CK-Q58E3< [NIF Q58E3p(r_p) is <5> then] [if onpath Q58E3p:r_p then goto C58E3] [ENDIF] [goto Q58E32] $end --------------------------------------------------------------------- $>Q58E32< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store in temp2] [store <52> in xbad(1)] [store <{1-52}> in temp4] [NIF Q58E3p(r_p) is <2> then] [store in temp2] [store <26> in xbad(1)] [store <{1-26}> in temp4] [ELSEIF Q58E3p(r_p) is <3> then] [store in temp2] [store <24> in xbad(1)] [store <{1-24}> in temp4] [ELSEIF Q58E3p(r_p) is <4> then] [store in temp2] [store <12> in xbad(1)] [store <{1-12}> in temp4] [ENDIF] [store <0> in index] [convert Q58c3(R_P) character to index integer] [NIF index nq <11> then] [store Q58e-fil(index) in temp5] [ELSE] [store OTH58C(R_P) in temp5] [ENDIF] THE FOLLOWING CODE IS USED TO RESET DK SCREENS [NIF Q58e32(R_P) is AND DKFLAG eq <1> then] [reset Q58e32] [ENDIF] $d >Q58E32< How many [fill temp2] payments did [fill temptext] receive in [fill temp5] in 1996? [fill temp4] [blind] Don't Know [goto C-Q58E3T] Refused [goto C-Q58E3T] <1-52> ===>__ [goto Q58E33] $edit [notgreater xbad(1)] $end --------------------------------------------------------------------- $>C58E3< [store <0> in index] [NIF Q58E3(R_P) isnt AND Q58E3(R_P) isnt then] [if onpath Q58E3:R_P then convert Q58E3(R_P) character to index integer] [ENDIF] [IF index lt <10> then goto Q58E3C] [IF index gt <10000> then goto Q58E3C] [goto C-Q58E3T] $end --------------------------------------------------------------------- $>Q58E3C< [store <0> in index] [convert Q58c3(R_P) character to index integer] [NIF index nq <11> then] [store Q58e-fil(index) in temp2] [ELSE] [store OTH58C(R_P) in temp2] [ENDIF] $d >Q58E3C< ***DO NOT READ TO THE RESPONDENT*** THE ANNUAL RATE APPEARS OUT OF RANGE. THE TOTAL [fill temp2] RECEIVED IN 1996 WAS [fill Q58E3(R_P)]. IS THIS A CORRECT ENTRY? <1> Yes <2> No [backto Q58E3:R_P] ===>_ [goto C-Q58E3t] $end --------------------------------------------------------------------- $>Q58E33< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store <0> in index] [convert Q58c3(R_P) character to index integer] [NIF index nq <11> then] [store Q58e-fil(index) in temp2] [ELSE] [store OTH58C(R_P) in temp2] [ENDIF] [store < > in T58E33(R_P)] [if onpath Q58E3:R_P then convert Q58E3(R_P) character to index integer] [if onpath Q58E32:R_P then convert Q58E32(R_P) character to index2 integer] [multiply index by index2] [convert index integer to T58E33(R_P) character] $d >Q58E33< According to my calculations [fill temptext] received $[fill T58E33(R_P)] dollars altogether from [fill temp2] in 1996. Does that sound about right? <1> Yes <2> No [goto Q58E34] [blind] Don't know Refused ===>_ [goto C-Q58E3T] $end --------------------------------------------------------------------- $>Q58E34< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store in temp2] [if Q58E3p(r_p) is <1> then store in temp2] [if Q58E3p(r_p) is <2> then store in temp2] [if Q58E3p(r_p) is <3> then store in temp2] [if Q58E3p(r_p) is <4> then store in temp2] [store <0> in index] [convert Q58c3(R_P) character to index integer] [NIF index nq <11> then] [store Q58e-fil(index) in temp3] [ELSE] [store OTH58C(R_P) in temp3] [ENDIF] [store <1> in xbad(1)] $d >Q58E34< What is your best estimate of the correct amount [fill temptext] received from [fill temp3] during 1996? PREVIOUS ENTRIES: Q58E3: $[fill Q58E3(R_P)] Q58E3P: [fill temp2] Q58E32: [fill Q58E32(R_P)] Enter dollar amount: [blind] Don't know Refused ===>$[N]_,___,___ $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>C-Q58E3T< CALCULATES Q58E3T [store < > IN Q58E3T(R_P)] [NIF Q58E3p(R_P) is <5> then] [if onpath Q58E3p:R_P then store Q58E3(R_P) in Q58E3T(R_P)] [ENDIF] [store <0> in index] [store <0> in index2] [if onpath Q58E3p:R_P then convert Q58E3p(R_P) character to index integer] [NIF index ge <1> AND index le <4> then] [store <1> in index2] [ENDIF] [NIF Q58E33(R_P) is <1> AND index2 eq <1> then] [if onpath Q58E33:R_P then store T58E33(R_P) in Q58E3T(R_P)] [ELSEIF Q58E33(R_P) is AND index2 eq <1> then] [if onpath Q58E33:R_P then store T58E33(R_P) in Q58E3T(R_P)] [ELSEIF Q58E33(R_P) is AND index2 eq <1> then] [if onpath Q58E33:R_P then store T58E33(R_P) in Q58E3T(R_P)] [ENDIF] [NIF Q58E34(R_P) isnt AND Q58E34(R_P) isnt then] [if onpath Q58E34:R_P then add <10> to index2] [ENDIF] [NIF Q58E33(R_P) is <2> AND index2 eq <11> then] [if onpath Q58E33:R_P then store Q58E34(R_P) in Q58E3T(R_P)] [ELSEIF Q58E33(R_P) is <2> AND index2 eq <1> then] [if onpath Q58E33:R_P then store T58E33(R_P) in Q58E3T(R_P)] [ENDIF] [NIF Q58E3p(R_P) is then] [if onpath Q58E3p:R_P then store in Q58E3T(R_P)] [ENDIF] [NIF Q58E3(R_P) is then] [if onpath Q58E3:R_P then store in Q58E3T(R_P)] [ENDIF] [NIF Q58E32(R_P) is then] [if onpath Q58E32:R_P then store in Q58E3T(R_P)] [ENDIF] [roster loop] $end ---------------------------------------------------------------------- $REND>Q58ROS< ============================================================================== Comment: This is item 62a in the 1989 CPS-665. COMMENT: DELETED CODING FOR NUMHOU EQ 1 BECAUSE IT MESSES UP ONPATH TESTS CMC 2/90 $>Q59a< [NIF NUMHOU eq <1> then] [store in temptext] [store in temp2] [store in temp3] [ELSE] [store in temp2] [store in temp3] [store in temptext] [ENDIF] $d >Q59a< [fill temptext] have a health problem or disability which prevents [fill temp2] from working or which limits the kind or amount of work [fill temp3] can do? <1> Yes [if NUMHOU eq <1> then goto Q60a] [goto q59b] <2> No [blind] Refused Don't Know ===>_ [goto q60a] $end ------------------------------------------------------------------------------ Comment: This is item 62b in the 1989 CPS-665. $>Q59b< [multiple q59b-1 q59b-2 q59b-3 q59b-4 q59b-5 q59b-6 q59b-7 q59b-8] [multiple q59b-9 q59b-10 q59b-11 q59b-12 q59b-13 q59b-14 q59b-15 q59b-16] [indirect] [do index <1> <16>] [store < > in tempname(index)] [store < > in xbad(index)] [NIF AGERNG(index) lt <2> then] [convert index integer to xbad(index) character] [ELSEIF hhmem(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <9> then] [convert index integer to xbad(index) character] [ELSEIF PELIG(index) eq <12> OR hhmem(index) is <3> then] [convert index integer to xbad(index) character] [ENDIF] [end do] [do index <1> NROSIZ] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to tempname(index)(2:2) character] [ELSEIF index2 ge <10> then] [convert index2 integer to tempname(index)(1:2) character] [ENDIF] [store name(index) in tempname(index)(4:27)] [store relation(index) in tempname(index)(29:37)] [store <0> in index4] [convert xbad(index) character to index4 integer] [if index4 gt <0> then store < > in tempname(index)] [end do] $itemtable >Q59b< **ASK ONLY IF NECESSARY** Who is that? LN NAME RELATION LN NAME RELATION [fill/l tempname(1)] [fill tempname(9)] [fill/l tempname(2)] [fill tempname(10)] [fill/l tempname(3)] [fill tempname(11)] [fill/l tempname(4)] [fill tempname(12)] [fill/l tempname(5)] [fill tempname(13)] [fill/l tempname(6)] [fill tempname(14)] [fill/l tempname(7)] [fill tempname(15)] [fill/l tempname(8)] [fill tempname(16)] ENTER LINE NUMBER No more PROBE: Anyone else? ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ $end ----------------------------------------------------------------------------- $>Q59b-1< [within q59b] $d [none] <1-16> Refused [goto q60a] Don't Know [goto q60a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end $>Q59b-2< [within q59b] $d [none] <1-16> Refused [goto q60a] Don't Know [goto q60a] No more [goto q60a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q59b-1] $end $>Q59b-3< [within q59b] $d [none] <1-16> Refused [goto q60a] Don't Know [goto q60a] No more [goto q60a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q59b-1] [notequal q59b-2] $end $>Q59b-4< [within q59b] $d [none] <1-16> Refused [goto q60a] Don't Know [goto q60a] No more [goto q60a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q59b-1] [notequal q59b-2] [notequal q59b-3] $end $>Q59b-5< [within q59b] $d [none] <1-16> Refused [goto q60a] Don't Know [goto q60a] No more [goto q60a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q59b-1] [notequal q59b-2] [notequal q59b-3] [notequal q59b-4] $end $>Q59b-6< [within q59b] $d [none] <1-16> Refused [goto q60a] Don't Know [goto q60a] No more [goto q60a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q59b-1] [notequal q59b-2] [notequal q59b-3] [notequal q59b-4] [notequal q59b-5] $end $>Q59b-7< [within q59b] $d [none] <1-16> Refused [goto q60a] Don't Know [goto q60a] No more [goto q60a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q59b-1] [notequal q59b-2] [notequal q59b-3] [notequal q59b-4] [notequal q59b-5] [notequal q59b-6] $end $>Q59b-8< [within q59b] $d [none] <1-16> Refused [goto q60a] Don't Know [goto q60a] No more [goto q60a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q59b-1] [notequal q59b-2] [notequal q59b-3] [notequal q59b-4] [notequal q59b-5] [notequal q59b-6] [notequal q59b-7] $end $>Q59b-9< [within q59b] $d [none] <1-16> Refused [goto q60a] Don't Know [goto q60a] No more [goto q60a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q59b-1] [notequal q59b-2] [notequal q59b-3] [notequal q59b-4] [notequal q59b-5] [notequal q59b-6] [notequal q59b-7] [notequal Q59b-8] $end $>Q59b-10< [within q59b] $d [none] <1-16> Refused [goto q60a] Don't Know [goto q60a] No more [goto q60a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q59b-1] [notequal q59b-2] [notequal q59b-3] [notequal q59b-4] [notequal q59b-5] [notequal q59b-6] [notequal q59b-7] [notequal Q59b-8] [notequal Q59b-9] $end $>Q59b-11< [within q59b] $d [none] <1-16> Refused [goto q60a] Don't Know [goto q60a] No more [goto q60a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q59b-1] [notequal q59b-2] [notequal q59b-3] [notequal q59b-4] [notequal q59b-5] [notequal q59b-6] [notequal q59b-7] [notequal Q59b-8] [notequal Q59b-9] [notequal Q59b-10] $end $>Q59b-12< [within q59b] $d [none] <1-16> Refused [goto q60a] Don't Know [goto q60a] No more [goto q60a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q59b-1] [notequal q59b-2] [notequal q59b-3] [notequal q59b-4] [notequal q59b-5] [notequal q59b-6] [notequal q59b-7] [notequal Q59b-8] [notequal Q59b-9] [notequal Q59b-10] [notequal Q59b-11] $end $>Q59b-13< [within q59b] $d [none] <1-16> Refused [goto q60a] Don't Know [goto q60a] No more [goto q60a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q59b-1] [notequal q59b-2] [notequal q59b-3] [notequal q59b-4] [notequal q59b-5] [notequal q59b-6] [notequal q59b-7] [notequal Q59b-8] [notequal Q59b-9] [notequal Q59b-10] [notequal Q59b-11] [notequal Q59b-12] $end $>Q59b-14< [within q59b] $d [none] <1-16> Refused [goto q60a] Don't Know [goto q60a] No more [goto q60a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q59b-1] [notequal q59b-2] [notequal q59b-3] [notequal q59b-4] [notequal q59b-5] [notequal q59b-6] [notequal q59b-7] [notequal Q59b-8] [notequal Q59b-9] [notequal Q59b-10] [notequal Q59b-11] [notequal Q59b-12] [notequal Q59b-13] $end $>Q59b-15< [within q59b] $d [none] <1-16> Refused [goto q60a] Don't Know [goto q60a] No more [goto q60a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q59b-1] [notequal q59b-2] [notequal q59b-3] [notequal q59b-4] [notequal q59b-5] [notequal q59b-6] [notequal q59b-7] [notequal Q59b-8] [notequal Q59b-9] [notequal Q59b-10] [notequal Q59b-11] [notequal Q59b-12] [notequal Q59b-13] [notequal Q59b-14] $end $>Q59b-16< [within q59b] $d [none] <1-16> Refused [goto q60a] Don't Know [goto q60a] No more [goto q60a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q59b-1] [notequal q59b-2] [notequal q59b-3] [notequal q59b-4] [notequal q59b-5] [notequal q59b-6] [notequal q59b-7] [notequal Q59b-8] [notequal Q59b-9] [notequal Q59b-10] [notequal Q59b-11] [notequal Q59b-12] [notequal Q59b-13] [notequal Q59b-14] [notequal Q59b-15] $end -------------------------------------------------------------------------------- Comment: This is item 63a in the 1989 CPS-665. COMMENT: DELETED CODING FOR NUMHOU EQ 1 BECAUSE IT MESSES UP ONPATH TESTS CMC 2/90 $>Q60a< [NIF NUMHOU eq <1> then] [store in temptext] [store in temp2] [ELSE] [store in temp2] [store in temptext] [ENDIF] $d >Q60a< [fill temptext] ever [fill temp2] a job for health reasons? <1> Yes [if NUMHOU eq <1> then goto check-61a] [goto q60b] <2> No [blind] Refused Don't Know ===>_ [goto check-61a] $end ------------------------------------------------------------------------------ Comment: This is item 63b in the 1989 CPS-665. $>Q60b< [multiple q60b-1 q60b-2 q60b-3 q60b-4 q60b-5 q60b-6 q60b-7 q60b-8] [multiple q60b-9 q60b-10 q60b-11 q60b-12 q60b-13 q60b-14 q60b-15 q60b-16] [indirect] [do index <1> <16>] [store < > in tempname(index)] [store < > in xbad(index)] [NIF AGERNG(index) lt <2> then] [convert index integer to xbad(index) character] [ELSEIF hhmem(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <9> then] [convert index integer to xbad(index) character] [ELSEIF PELIG(index) eq <12> OR hhmem(index) is <3> then] [convert index integer to xbad(index) character] [ENDIF] [end do] [do index <1> NROSIZ] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to tempname(index)(2:2) character] [ELSEIF index2 ge <10> then] [convert index2 integer to tempname(index)(1:2) character] [ENDIF] [store name(index) in tempname(index)(4:27)] [store relation(index) in tempname(index)(29:37)] [store <0> in index4] [convert xbad(index) character to index4 integer] [if index4 gt <0> then store < > in tempname(index)] [end do] $itemtable >Q60b< **ASK ONLY IF NECESSARY** Who is that? LN NAME RELATION LN NAME RELATION [fill/l tempname(1)] [fill tempname(9)] [fill/l tempname(2)] [fill tempname(10)] [fill/l tempname(3)] [fill tempname(11)] [fill/l tempname(4)] [fill tempname(12)] [fill/l tempname(5)] [fill tempname(13)] [fill/l tempname(6)] [fill tempname(14)] [fill/l tempname(7)] [fill tempname(15)] [fill/l tempname(8)] [fill tempname(16)] ENTER LINE NUMBER No more PROBE: Anyone else? ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ $end ----------------------------------------------------------------------------- $>Q60b-1< [within q60b] $d [none] <1-16> Refused [goto check-61a] Don't Know [goto check-61a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end $>Q60b-2< [within q60b] $d [none] <1-16> Refused [goto check-61a] Don't Know [goto check-61a] No more [goto check-61a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q60b-1] $end $>Q60b-3< [within q60b] $d [none] <1-16> Refused [goto check-61a] Don't Know [goto check-61a] No more [goto check-61a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q60b-1] [notequal q60b-2] $end $>Q60b-4< [within q60b] $d [none] <1-16> Refused [goto check-61a] Don't Know [goto check-61a] No more [goto check-61a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q60b-1] [notequal q60b-2] [notequal q60b-3] $end $>Q60b-5< [within q60b] $d [none] <1-16> Refused [goto check-61a] Don't Know [goto check-61a] No more [goto check-61a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q60b-1] [notequal q60b-2] [notequal q60b-3] [notequal q60b-4] $end $>Q60b-6< [within q60b] $d [none] <1-16> Refused [goto check-61a] Don't Know [goto check-61a] No more [goto check-61a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q60b-1] [notequal q60b-2] [notequal q60b-3] [notequal q60b-4] [notequal q60b-5] $end $>Q60b-7< [within q60b] $d [none] <1-16> Refused [goto check-61a] Don't Know [goto check-61a] No more [goto check-61a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q60b-1] [notequal q60b-2] [notequal q60b-3] [notequal q60b-4] [notequal q60b-5] [notequal q60b-6] $end $>Q60b-8< [within q60b] $d [none] <1-16> Refused [goto check-61a] Don't Know [goto check-61a] No more [goto check-61a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q60b-1] [notequal q60b-2] [notequal q60b-3] [notequal q60b-4] [notequal q60b-5] [notequal q60b-6] [notequal q60b-7] $end $>Q60b-9< [within q60b] $d [none] <1-16> Refused [goto check-61a] Don't Know [goto check-61a] No more [goto check-61a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q60b-1] [notequal q60b-2] [notequal q60b-3] [notequal q60b-4] [notequal q60b-5] [notequal q60b-6] [notequal q60b-7] [notequal Q60b-8] $end $>Q60b-10< [within q60b] $d [none] <1-16> Refused [goto check-61a] Don't Know [goto check-61a] No more [goto check-61a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q60b-1] [notequal q60b-2] [notequal q60b-3] [notequal q60b-4] [notequal q60b-5] [notequal q60b-6] [notequal q60b-7] [notequal Q60b-8] [notequal Q60b-9] $end $>Q60b-11< [within q60b] $d [none] <1-16> Refused [goto check-61a] Don't Know [goto check-61a] No more [goto check-61a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q60b-1] [notequal q60b-2] [notequal q60b-3] [notequal q60b-4] [notequal q60b-5] [notequal q60b-6] [notequal q60b-7] [notequal Q60b-8] [notequal Q60b-9] [notequal Q60b-10] $end $>Q60b-12< [within q60b] $d [none] <1-16> Refused [goto check-61a] Don't Know [goto check-61a] No more [goto check-61a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q60b-1] [notequal q60b-2] [notequal q60b-3] [notequal q60b-4] [notequal q60b-5] [notequal q60b-6] [notequal q60b-7] [notequal Q60b-8] [notequal Q60b-9] [notequal Q60b-10] [notequal Q60b-11] $end $>Q60b-13< [within q60b] $d [none] <1-16> Refused [goto check-61a] Don't Know [goto check-61a] No more [goto check-61a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q60b-1] [notequal q60b-2] [notequal q60b-3] [notequal q60b-4] [notequal q60b-5] [notequal q60b-6] [notequal q60b-7] [notequal Q60b-8] [notequal Q60b-9] [notequal Q60b-10] [notequal Q60b-11] [notequal Q60b-12] $end $>Q60b-14< [within q60b] $d [none] <1-16> Refused [goto check-61a] Don't Know [goto check-61a] No more [goto check-61a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q60b-1] [notequal q60b-2] [notequal q60b-3] [notequal q60b-4] [notequal q60b-5] [notequal q60b-6] [notequal q60b-7] [notequal Q60b-8] [notequal Q60b-9] [notequal Q60b-10] [notequal Q60b-11] [notequal Q60b-12] [notequal Q60b-13] $end $>Q60b-15< [within q60b] $d [none] <1-16> Refused [goto check-61a] Don't Know [goto check-61a] No more [goto check-61a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q60b-1] [notequal q60b-2] [notequal q60b-3] [notequal q60b-4] [notequal q60b-5] [notequal q60b-6] [notequal q60b-7] [notequal Q60b-8] [notequal Q60b-9] [notequal Q60b-10] [notequal Q60b-11] [notequal Q60b-12] [notequal Q60b-13] [notequal Q60b-14] $end $>Q60b-16< [within q60b] $d [none] <1-16> Refused [goto check-61a] Don't Know [goto check-61a] No more [goto check-61a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q60b-1] [notequal q60b-2] [notequal q60b-3] [notequal q60b-4] [notequal q60b-5] [notequal q60b-6] [notequal q60b-7] [notequal Q60b-8] [notequal Q60b-9] [notequal Q60b-10] [notequal Q60b-11] [notequal Q60b-12] [notequal Q60b-13] [notequal Q60b-14] [notequal Q60b-15] $end ------------------------------------------------------------------------------ Comment: This is item 64a in the 1989 CPS-665. $>check-61a< [NIF q59a is <1> OR q60a is <1> then] [goto now-q61ros] [ENDIF] [goto q62a] $end ------------------------------------------------------------------------------ $>NOW-Q61ROS< [do index <1> <16>] [store <0> in Q59BLN(index)] [store <0> in Q60BLN(index)] [end do] [if onpath q59b-1 then convert q59b-1 character to Q59BLN(1) integer] [if onpath q59b-2 then convert q59b-2 character to Q59BLN(2) integer] [if onpath q59b-3 then convert q59b-3 character to Q59BLN(3) integer] [if onpath q59b-4 then convert q59b-4 character to Q59BLN(4) integer] [if onpath q59b-5 then convert q59b-5 character to Q59BLN(5) integer] [if onpath q59b-6 then convert q59b-6 character to Q59BLN(6) integer] [if onpath q59b-7 then convert q59b-7 character to Q59BLN(7) integer] [if onpath q59b-8 then convert q59b-8 character to Q59BLN(8) integer] [if onpath q59b-9 then convert q59b-9 character to Q59BLN(9) integer] [if onpath q59b-10 then convert q59b-10 character to Q59BLN(10) integer] [if onpath q59b-11 then convert q59b-11 character to Q59BLN(11) integer] [if onpath q59b-12 then convert q59b-12 character to Q59BLN(12) integer] [if onpath q59b-13 then convert q59b-13 character to Q59BLN(13) integer] [if onpath q59b-14 then convert q59b-14 character to Q59BLN(14) integer] [if onpath q59b-15 then convert q59b-15 character to Q59BLN(15) integer] [if onpath q59b-16 then convert q59b-16 character to Q59BLN(16) integer] [if onpath q60b-1 then convert q60b-1 character to Q60BLN(1) integer] [if onpath q60b-2 then convert q60b-2 character to Q60BLN(2) integer] [if onpath q60b-3 then convert q60b-3 character to Q60BLN(3) integer] [if onpath q60b-4 then convert q60b-4 character to Q60BLN(4) integer] [if onpath q60b-5 then convert q60b-5 character to Q60BLN(5) integer] [if onpath q60b-6 then convert q60b-6 character to Q60BLN(6) integer] [if onpath q60b-7 then convert q60b-7 character to Q60BLN(7) integer] [if onpath q60b-8 then convert q60b-8 character to Q60BLN(8) integer] [if onpath q60b-9 then convert q60b-9 character to Q60BLN(9) integer] [if onpath q60b-10 then convert q60b-10 character to Q60BLN(10) integer] [if onpath q60b-11 then convert q60b-11 character to Q60BLN(11) integer] [if onpath q60b-12 then convert q60b-12 character to Q60BLN(12) integer] [if onpath q60b-13 then convert q60b-13 character to Q60BLN(13) integer] [if onpath q60b-14 then convert q60b-14 character to Q60BLN(14) integer] [if onpath q60b-15 then convert q60b-15 character to Q60BLN(15) integer] [if onpath q60b-16 then convert q60b-16 character to Q60BLN(16) integer] [store <0> in index] [store <0> in index2] [if NUMHOU eq <1> then store <10> in index] [if q59a is <1> then add <1> to index] [if q60a is <1> then add <5> to index] [do index3 <1> <16>] [store <0> in tabindex(index3)] [convert hhmem(index3) character to tabindex(index3) integer] [end do] [if NUMHOU eq <1> then tablook tabindex <1> index2] [if index eq <11> then store index2 in Q59BLN(1)] [if index eq <16> then store index2 in Q59BLN(1)] [if index eq <15> then store index2 in Q60BLN(1)] [if index eq <16> then store index2 in Q60BLN(1)] [store <0> in Q61ROS_R_P] $end ----------------------------------------------------------------------------- $ROPEN>Q61ROS< $>AFT-Q61ROS< [goto q62a] $end ============================================================================== $RBEGIN>Q61ROS< [maxelt 16] ============================================================================== $>pre-q61c< [if R_P gt NROSIZ then roster exit] [store <0> in index] [tablook Q59BLN q61ros_R_P index] [if index nq <0> then goto q61b] [tablook Q60BLN q61ros_R_P index] [if index nq <0> then goto q61b] [if index eq <0> then roster loop] $end ----------------------------------------------------------------------------- Comment: This is item 64b in the 1989 CPS-665. $>Q61b< [indirect] [store <0> in index3] [store <0> in index2] [NIF Q56a is <1> then] [If onpath Q56a then tablook Q56BLN Q61ROS_R_P index2] [ENDIF] [NIF index2 nq <0> AND Q56BLN(INDEX2) eq R_P then] [store <1> in index3] [ENDIF] [store <0> in index2] [NIF Q60A88 is <1> then] [If onpath Q60A88 then tablook Q6088L Q61ROS_R_P index2] [ENDIF] [NIF index2 nq <0> AND Q6088L(INDEX2) eq R_P then] [add <10> to index3] [ENDIF] [store < > in temptext] [NIF index3 eq <1> then] [store <,> in temp3] [store in temptext] [ELSEIF index3 eq <10> then] [store <,> in temp3] [store in temptext] [ELSEIF index3 eq <11> then] [store <,> in temp3] [store in temptext] [ELSE] [store < > in temptext] [store in temp3] [ENDIF] [NIF R_P eq RESPLI then] [store in temp2] [store in yourhshr] [ELSEIF sex(R_P) is <2> then] [store name(R_P) in temp2] [store in yourhshr] [ELSE] [store name(R_P) in temp2] [store in yourhshr] [ENDIF] [store < > in table(1)] [store < > in table(2)] [store < > in table(3)] [NIF q52ct(R_P) isnt < > then] [store in table(1)] [store in table(2)] [combine < > <$> q52ct(R_P) into table(3)] [ENDIF] [NIF q52ct(R_P) is OR Q52CT(R_P) is then] [store < > in table(1)] [store < > in table(2)] [store < > in table(3)] [ENDIF] $d >Q61b< Did [fill temp2] receive any income in 1996 as a result of [fill yourhshr] health problem[fill temp3] [fill temptext] [fill table(1)] [fill table(2)] [fill table(3)] <1> Yes [goto q61c] <2> No [blind] Refused Don't Know ===>_ [roster loop] $end ------------------------------------------------------------------------------ Comment: This is item 64c in the 1989 CPS-665. Deleted precode "1" (Veteran's disability). 3/88 $>Q61c< [multiple Q61C1 Q61C2 Q61C3 Q61C4 Q61C5 Q61C6 Q61C7 Q61C8] [multiple Q61C9 Q61C10] [indirect] [store name(R_P) in temptext] [store < > in temp2] [store < > in temp3] [if R_P eq RESPLI then store <--CURRENT RESPONDENT> in temp2] [NIF q52cp(R_P) is < > OR q52cp(R_P) is then] [store <{2} Worker's compensation> in temp3] [ENDIF] $itemtable >Q61c< What was the source of this income? ASKING ABOUT: [fill temptext] [fill temp2] READ LIST ONLY IF RESPONDENT IS HAVING DIFFICULTY ANSWERING THE QUESTION PROBE: Any other income related to this health condition or disability? [fill temp3] <3> Company or union disability <4> Federal Government (CIVIL SERVICE) disability <5> U.S. Military retirement disability <6> State or Local government employee disability <7> U.S. Railroad retirement disability <8> Accident or disability insurance <9> Black Lung miner's disability <10> State temporary sickness <11> Other or don't know - SPECIFY - ENTER LAST NO OTHER SOURCES OF INCOME ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ $end ----------------------------------------------------------------------------- $>Q61C1< [within q61c] $d [none] <2> <3> <4> <5> <6> <7> <8> <9> <10> <11> Other source [goto oth61c] Refused [roster loop] $end $>Q61C2< [within q61c] $d [none] <2> <3> <4> <5> <6> <7> <8> <9> <10> <11> Other source [goto oth61c] Refused [goto q61e1p] No more [goto q61e1p] $edit [notequal Q61C1(R_P)] $end $>Q61C3< [within q61c] $d [none] <2> <3> <4> <5> <6> <7> <8> <9> <10> <11> Other source [goto oth61c] Refused [goto q61e1p] No more [goto q61e1p] $edit [notequal Q61C1(R_P)] [notequal Q61C2(R_P)] $end $>Q61C4< [within q61c] $d [none] <2> <3> <4> <5> <6> <7> <8> <9> <10> <11> Other source [goto oth61c] Refused [goto q61e1p] No more [goto q61e1p] $edit [notequal Q61C1(R_P)] [notequal Q61C2(R_P)] [notequal Q61C3(R_P)] $end $>Q61C5< [within q61c] $d [none] <2> <3> <4> <5> <6> <7> <8> <9> <10> <11> Other source [goto oth61c] Refused [goto q61e1p] No more [goto q61e1p] $edit [notequal Q61C1(R_P)] [notequal Q61C2(R_P)] [notequal Q61C3(R_P)] [notequal Q61C4(R_P)] $end $>Q61C6< [within q61c] $d [none] <2> <3> <4> <5> <6> <7> <8> <9> <10> <11> Other source [goto oth61c] Refused [goto q61e1p] No more [goto q61e1p] $edit [notequal Q61C1(R_P)] [notequal Q61C2(R_P)] [notequal Q61C3(R_P)] [notequal Q61C4(R_P)] [notequal Q61C5(R_P)] $end $>Q61C7< [within q61c] $d [none] <2> <3> <4> <5> <6> <7> <8> <9> <10> <11> Other source [goto oth61c] Refused [goto q61e1p] No more [goto q61e1p] $edit [notequal Q61C1(R_P)] [notequal Q61C2(R_P)] [notequal Q61C3(R_P)] [notequal Q61C4(R_P)] [notequal Q61C5(R_P)] [notequal Q61C6(R_P)] $end $>Q61C8< [within q61c] $d [none] <2> <3> <4> <5> <6> <7> <8> <9> <10> <11> Other source [goto oth61c] Refused [goto q61e1p] No more [goto q61e1p] $edit [notequal Q61C1(R_P)] [notequal Q61C2(R_P)] [notequal Q61C3(R_P)] [notequal Q61C4(R_P)] [notequal Q61C5(R_P)] [notequal Q61C6(R_P)] [notequal Q61C7(R_P)] $end $>Q61C9< [within q61c] $d [none] <2> <3> <4> <5> <6> <7> <8> <9> <10> <11> Other source [goto oth61c] Refused [goto q61e1p] No more [goto q61e1p] $edit [notequal Q61C1(R_P)] [notequal Q61C2(R_P)] [notequal Q61C3(R_P)] [notequal Q61C4(R_P)] [notequal Q61C5(R_P)] [notequal Q61C6(R_P)] [notequal Q61C7(R_P)] [notequal Q61C8(R_P)] $end $>Q61C10< [within q61c] $d [none] <2> <3> <4> <5> <6> <7> <8> <9> <10> <11> Other source [goto oth61c] Refused No more ==>__ [goto q61e1p] $edit [notequal Q61C1(R_P)] [notequal Q61C2(R_P)] [notequal Q61C3(R_P)] [notequal Q61C4(R_P)] [notequal Q61C5(R_P)] [notequal Q61C6(R_P)] [notequal Q61C7(R_P)] [notequal Q61C8(R_P)] [notequal Q61C9(R_P)] $end ------------------------------------------------------------------------------ $>oth61c< [indirect] $d >oth61c< SPECIFY OTHER SOURCE OF INCOME FROM HEALTH PROBLEM OR DISABILITY ENTER "OTHER HEALTH PROBLEM/DISABILITY" IF THE ANSWER IS "DON'T KNOW" [blind] Refused Don't Know ===>_____________________________________________________________ $edit [anychar] $end ------------------------------------------------------------------------------ $>Q61E1p< [combine name(r_p) <'s> into temptext] [if R_P eq respli then store in temptext] [store <0> in index] [convert Q61c1(R_P) character to index integer] [NIF index nq <11> then] [store Q61e-fil(index) in temp2] [ELSE] [store OTH61C(R_P) in temp2] [ENDIF] $d >Q61E1p< What is the easiest way for you to tell us [fill temptext] [fill temp2] payments; weekly, every other week, twice a month, monthly or yearly? <1> Weekly <2> Every other week <3> Twice a month <4> Monthly <5> Yearly [blind] Don't know [goto C-Q61E1T] Refused [goto C-Q61E1T] ===>_ [goto Q61E1] $end --------------------------------------------------------------------- $>Q61E1< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store < > in temp2] [if Q61E1p(r_p) is <1> then store in temp2] [if Q61E1p(r_p) is <2> then store in temp2] [if Q61E1p(r_p) is <3> then store in temp2] [if Q61E1p(r_p) is <4> then store in temp2] [store <0> in index] [convert Q61c1(R_P) character to index integer] [NIF index nq <11> then] [store Q61e-fil(index) in temp3] [ELSE] [store OTH61C(R_P) in temp3] [ENDIF] [store <1> in xbad(1)] $d >Q61E1< How much did [fill temptext] receive [fill temp2] before deductions in [fill temp3] payments in 1996? Enter dollar amount: [blind] Don't Know [goto C-Q61E1T] Refused [goto C-Q61E1T] ===>$[N]_,___,___ $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>CK-Q61E1< [NIF Q61E1p(r_p) is <5> then] [if onpath Q61E1p:r_p then goto QC61E1] [ENDIF] [goto Q61E12] $end --------------------------------------------------------------------- $>Q61E12< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store in temp2] [store <52> in xbad(1)] [store <{1-52}> in temp4] [NIF Q61E1p(r_p) is <2> then] [store in temp2] [store <26> in xbad(1)] [store <{1-26}> in temp4] [ELSEIF Q61E1p(r_p) is <3> then] [store in temp2] [store <24> in xbad(1)] [store <{1-24}> in temp4] [ELSEIF Q61E1p(r_p) is <4> then] [store in temp2] [store <12> in xbad(1)] [store <{1-12}> in temp4] [ENDIF] [store <0> in index] [convert Q61c1(R_P) character to index integer] [NIF index nq <11> then] [store Q61e-fil(index) in temp3] [ELSE] [store OTH61C(R_P) in temp3] [ENDIF] $d >Q61E12< How many [fill temp2] payments did [fill temptext] receive in [fill temp3] payments in 1996? [fill temp4] [blind] Don't Know [goto C-Q61E1T] Refused [goto C-Q61E1T] <1-52> ===>__ [goto Q61E13] $edit [notgreater xbad(1)] $end --------------------------------------------------------------------- $>QC61E1< [store <0> in index] [NIF Q61E1(R_P) isnt AND Q61E1(R_P) isnt then] [if onpath Q61E1:R_P then convert Q61E1(R_P) character to index integer] [ENDIF] [IF index lt <10> then goto Q61E1C] [IF index gt <10000> then goto Q61E1C] [goto C-Q61E1T] $end --------------------------------------------------------------------- $>Q61E1C< [store <0> in index] [convert Q61c1(R_P) character to index integer] [NIF index nq <11> then] [store Q61e-fil(index) in temp2] [ELSE] [store OTH61C(R_P) in temp2] [ENDIF] $d >Q61E1C< ***DO NOT READ TO THE RESPONDENT*** THE ANNUAL RATE APPEARS OUT OF RANGE. THE TOTAL [fill temp2] PAYMENTS RECEIVED IN 1996 WAS [fill Q61E1(R_P)]. IS THIS A CORRECT ENTRY? <1> Yes <2> No [backto Q61E1:R_P] ===>_ [goto C-Q61E1t] $end --------------------------------------------------------------------- $>Q61E13< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store <0> in index] [convert Q61c1(R_P) character to index integer] [NIF index nq <11> then] [store Q61e-fil(index) in temp2] [ELSE] [store OTH61C(R_P) in temp2] [ENDIF] [store < > in T61E13(R_P)] [if onpath Q61E1:R_P then convert Q61E1(R_P) character to index integer] [if onpath Q61E12:R_P then convert Q61E12(R_P) character to index2 integer] [multiply index by index2] [convert index integer to T61E13(R_P) character] $d >Q61E13< According to my calculations [fill temptext] received $[fill T61E13(R_P)] dollars altogether from [fill temp2] payments in 1996. Does that sound about right? <1> Yes <2> No [goto Q61E14] [blind] Don't know Refused ===>_ [goto C-Q61E1T] $end --------------------------------------------------------------------- $>Q61E14< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store in temp2] [if Q61E1p(r_p) is <1> then store in temp2] [if Q61E1p(r_p) is <2> then store in temp2] [if Q61E1p(r_p) is <3> then store in temp2] [if Q61E1p(r_p) is <4> then store in temp2] [store <0> in index] [convert Q61c1(R_P) character to index integer] [NIF index nq <11> then] [store Q61e-fil(index) in temp3] [ELSE] [store OTH61C(R_P) in temp3] [ENDIF] [store <1> in xbad(1)] $d >Q61E14< What is your best estimate of the correct amount [fill temptext] received from [fill temp3] payments during 1996? PREVIOUS ENTRIES: Q61E1: $[fill Q61E1(R_P)] Q61E1P: [fill temp2] Q61E12: [fill Q61E12(R_P)] Enter dollar amount: [blind] Don't know Refused ===>$[N]_,___,___ $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>C-Q61E1T< CALCULATES Q61ET [store < > IN Q61E1T(R_P)] [NIF Q61E1p(R_P) is <5> then] [if onpath Q61E1p:R_P then store Q61E1(R_P) in Q61E1T(R_P)] [ENDIF] [store <0> in index] [store <0> in index2] [if onpath Q61E1p:R_P then convert Q61E1p(R_P) character to index integer] [NIF index ge <1> AND index le <4> then] [store <1> in index2] [ENDIF] [NIF Q61E13(R_P) is <1> AND index2 eq <1> then] [if onpath Q61E13:R_P then store T61E13(R_P) in Q61E1T(R_P)] [ELSEIF Q61E13(R_P) is AND index2 eq <1> then] [if onpath Q61E13:R_P then store T61E13(R_P) in Q61E1T(R_P)] [ELSEIF Q61E13(R_P) is AND index2 eq <1> then] [if onpath Q61E13:R_P then store T61E13(R_P) in Q61E1T(R_P)] [ENDIF] [NIF Q61E14(R_P) isnt AND Q61E14(R_P) isnt then] [if onpath Q61E14:R_P then add <10> to index2] [ENDIF] [NIF Q61E13(R_P) is <2> AND index2 eq <11> then] [if onpath Q61E13:R_P then store Q61E14(R_P) in Q61E1T(R_P)] [ELSEIF Q61E13(R_P) is <2> AND index2 eq <1> then] [if onpath Q61E13:R_P then store T61E13(R_P) in Q61E1T(R_P)] [ENDIF] [NIF Q61E1p(R_P) is then] [if onpath Q61E1p:R_P then store in Q61E1T(R_P)] [ENDIF] [NIF Q61E1(R_P) is then] [if onpath Q61E1:R_P then store in Q61E1T(R_P)] [ENDIF] [NIF Q61E12(R_P) is then] [if onpath Q61E12:R_P then store in Q61E1T(R_P)] [ENDIF] [NIF Q61C2(R_P) isnt AND Q61C2(R_P) isnt then] [if onpath Q61C2:R_P then goto Q61E2p] [ENDIF] [roster loop] $end ---------------------------------------------------------------------- $>Q61E2p< [combine name(r_p) <'s> into temptext] [if R_P eq respli then store in temptext] [store <0> in index] [convert Q61c2(R_P) character to index integer] [NIF index nq <11> then] [store Q61e-fil(index) in temp2] [ELSE] [store OTH61C(R_P) in temp2] [ENDIF] $d >Q61E2p< What is the easiest way for you to tell us [fill temptext] [fill temp2] payments; weekly, every other week, twice a month, monthly or yearly? <1> Weekly <2> Every other week <3> Twice a month <4> Monthly <5> Yearly [blind] Don't know [goto C-Q61E2T] Refused [goto C-Q61E2T] ===>_ [goto Q61E2] $end --------------------------------------------------------------------- $>Q61E2< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store < > in temp2] [if Q61E2p(r_p) is <1> then store in temp2] [if Q61E2p(r_p) is <2> then store in temp2] [if Q61E2p(r_p) is <3> then store in temp2] [if Q61E2p(r_p) is <4> then store in temp2] [store <0> in index] [convert Q61c2(R_P) character to index integer] [NIF index nq <11> then] [store Q61e-fil(index) in temp3] [ELSE] [store OTH61C(R_P) in temp3] [ENDIF] [store <1> in xbad(1)] $d >Q61E2< How much did [fill temptext] receive [fill temp2] before deductions in [fill temp3] payments in 1996? Enter dollar amount: [blind] Don't Know [goto C-Q61E2T] Refused [goto C-Q61E2T] ===>$[N]_,___,___ $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>CK-Q61E2< [NIF Q61E2p(r_p) is <5> then] [if onpath Q61E2p:r_p then goto QC61E2] [ENDIF] [goto Q61E22] $end --------------------------------------------------------------------- $>Q61E22< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store in temp2] [store <52> in xbad(1)] [store <{1-52}> in temp4] [NIF Q61E2p(r_p) is <2> then] [store in temp2] [store <26> in xbad(1)] [store <{1-26}> in temp4] [ELSEIF Q61E2p(r_p) is <3> then] [store in temp2] [store <24> in xbad(1)] [store <{1-24}> in temp4] [ELSEIF Q61E2p(r_p) is <4> then] [store in temp2] [store <12> in xbad(1)] [store <{1-12}> in temp4] [ENDIF] [store <0> in index] [convert Q61c2(R_P) character to index integer] [NIF index nq <11> then] [store Q61e-fil(index) in temp3] [ELSE] [store OTH61C(R_P) in temp3] [ENDIF] $d >Q61E22< How many [fill temp2] payments did [fill temptext] receive in [fill temp3] payments in 1996? [fill temp4] [blind] Don't Know [goto C-Q61E2T] Refused [goto C-Q61E2T] <1-52> ===>__ [goto Q61E23] $edit [notgreater xbad(1)] $end --------------------------------------------------------------------- $>QC61E2< [store <0> in index] [NIF Q61E2(R_P) isnt AND Q61E2(R_P) isnt then] [if onpath Q61E2:R_P then convert Q61E2(R_P) character to index integer] [ENDIF] [IF index lt <10> then goto Q61E2C] [IF index gt <10000> then goto Q61E2C] [goto C-Q61E2T] $end --------------------------------------------------------------------- $>Q61E2C< [store <0> in index] [convert Q61c2(R_P) character to index integer] [NIF index nq <11> then] [store Q61e-fil(index) in temp2] [ELSE] [store OTH61C(R_P) in temp2] [ENDIF] $d >Q61E2C< ***DO NOT READ TO THE RESPONDENT*** THE ANNUAL RATE APPEARS OUT OF RANGE. THE TOTAL [fill temp2] PAYMENTS RECEIVED IN 1996 WAS [fill Q61E2(R_P)]. IS THIS A CORRECT ENTRY? <1> Yes <2> No [backto Q61E2:R_P] ===>_ [goto C-Q61E2t] $end --------------------------------------------------------------------- $>Q61E23< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store <0> in index] [convert Q61c2(R_P) character to index integer] [NIF index nq <11> then] [store Q61e-fil(index) in temp2] [ELSE] [store OTH61C(R_P) in temp2] [ENDIF] [store < > in T61E23(R_P)] [if onpath Q61E2:R_P then convert Q61E2(R_P) character to index integer] [if onpath Q61E22:R_P then convert Q61E22(R_P) character to index2 integer] [multiply index by index2] [convert index integer to T61E23(R_P) character] $d >Q61E23< According to my calculations [fill temptext] received $[fill T61E23(R_P)] dollars altogether from [fill temp2] payments in 1996. Does that sound about right? <1> Yes <2> No [goto Q61E24] [blind] Don't know Refused ===>_ [goto C-Q61E2T] $end --------------------------------------------------------------------- $>Q61E24< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store in temp2] [if Q61E2p(r_p) is <1> then store in temp2] [if Q61E2p(r_p) is <2> then store in temp2] [if Q61E2p(r_p) is <3> then store in temp2] [if Q61E2p(r_p) is <4> then store in temp2] [store <0> in index] [convert Q61c2(R_P) character to index integer] [NIF index nq <11> then] [store Q61e-fil(index) in temp3] [ELSE] [store OTH61C(R_P) in temp3] [ENDIF] [store <1> in xbad(1)] $d >Q61E24< What is your best estimate of the correct amount [fill temptext] received from [fill temp3] payments during 1996? PREVIOUS ENTRIES: Q61E2: $[fill Q61E2(R_P)] Q61E21: [fill temp2] Q61E22: [fill Q61E22(R_P)] Enter dollar amount: [blind] Don't know Refused ===>$[N]_,___,___ $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>C-Q61E2T< CALCULATES Q62ET [store < > IN Q61E2T(R_P)] [NIF Q61E2p(R_P) is <5> then] [if onpath Q61E2p:R_P then store Q61E2(R_P) in Q61E2T(R_P)] [ENDIF] [store <0> in index] [store <0> in index2] [if onpath Q61E2p:R_P then convert Q61E2p(R_P) character to index integer] [NIF index ge <1> AND index le <4> then] [store <1> in index2] [ENDIF] [NIF Q61E23(R_P) is <1> AND index2 eq <1> then] [if onpath Q61E23:R_P then store T61E23(R_P) in Q61E2T(R_P)] [ELSEIF Q61E23(R_P) is AND index2 eq <1> then] [if onpath Q61E23:R_P then store T61E23(R_P) in Q61E2T(R_P)] [ELSEIF Q61E23(R_P) is AND index2 eq <1> then] [if onpath Q61E23:R_P then store T61E23(R_P) in Q61E2T(R_P)] [ENDIF] [NIF Q61E24(R_P) isnt AND Q61E24(R_P) isnt then] [if onpath Q61E24:R_P then add <10> to index2] [ENDIF] [NIF Q61E23(R_P) is <2> AND index2 eq <11> then] [if onpath Q61E23:R_P then store Q61E24(R_P) in Q61E2T(R_P)] [ELSEIF Q61E23(R_P) is <2> AND index2 eq <1> then] [if onpath Q61E23:R_P then store T61E23(R_P) in Q61E2T(R_P)] [ENDIF] [NIF Q61E2p(R_P) is then] [if onpath Q61E2p:R_P then store in Q61E2T(R_P)] [ENDIF] [NIF Q61E2(R_P) is then] [if onpath Q61E2:R_P then store in Q61E2T(R_P)] [ENDIF] [NIF Q61E22(R_P) is then] [if onpath Q61E22:R_P then store in Q61E2T(R_P)] [ENDIF] [roster loop] $end ---------------------------------------------------------------------- $REND>Q61ROS< ============================================================================== Comment: This is item 65a in the 1989 CPS-665. COMMENT: DELETED CODING FOR NUMHOU EQ 1 BECAUSE IT MESSES UP ONPATH TESTS CMC 2/90 $>Q62a< [NIF Q56a is <1> AND Q60A88 isnt <1> then] [store <,> in temp3] [store in temptext] [ELSEIF Q56a isnt <1> AND Q60A88 is <1> then] [store <,> in temp3] [store in temptext] [ELSEIF Q56a is <1> AND Q60A88 is <1> then] [store <,> in temp3] [store in temptext] [ELSE] [store < > in temptext] [store in temp3] [ENDIF] [NIF NUMHOU eq <1> then] [store in temp2] [ELSE] [store in temp2] [ENDIF] $d >Q62a< During 1996 did [fill temp2] receive any pension or retirement income from a previous employer or union, or any other type of retirement income[fill temp3] [fill temptext] <1> Yes [if NUMHOU eq <1> then goto now-q62ros] [goto q62b] <2> No [blind] Refused Don't Know ===>_ [goto q63a] $end ------------------------------------------------------------------------------ Comment: This is item 65b in the 1989 CPS-665. $>Q62b< [multiple q62b-1 q62b-2 q62b-3 q62b-4 q62b-5 q62b-6 q62b-7 q62b-8] [multiple q62b-9 q62b-10 q62b-11 q62b-12 q62b-13 q62b-14 q62b-15 q62b-16] [do index <1> <16>] [store < > in tempname(index)] [store < > in xbad(index)] [NIF AGERNG(index) lt <2> then] [convert index integer to xbad(index) character] [ELSEIF hhmem(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <9> then] [convert index integer to xbad(index) character] [ELSEIF PELIG(index) eq <12> OR hhmem(index) is <3> then] [convert index integer to xbad(index) character] [ENDIF] [end do] [do index <1> NROSIZ] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to tempname(index)(2:2) character] [ELSEIF index2 ge <10> then] [convert index2 integer to tempname(index)(1:2) character] [ENDIF] [store name(index) in tempname(index)(4:27)] [store relation(index) in tempname(index)(29:37)] [store <0> in index4] [convert xbad(index) character to index4 integer] [if index4 gt <0> then store < > in tempname(index)] [end do] $itemtable >Q62b< **ASK ONLY IF NECESSARY** Who received pension or retirement income? LN NAME RELATION LN NAME RELATION [fill/l tempname(1)] [fill tempname(9)] [fill/l tempname(2)] [fill tempname(10)] [fill/l tempname(3)] [fill tempname(11)] [fill/l tempname(4)] [fill tempname(12)] [fill/l tempname(5)] [fill tempname(13)] [fill/l tempname(6)] [fill tempname(14)] [fill/l tempname(7)] [fill tempname(15)] [fill/l tempname(8)] [fill tempname(16)] ENTER LINE NUMBER No more PROBE: Anyone else? ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ $end ----------------------------------------------------------------------------- $>Q62b-1< [within q62b] $d [none] <1-16> Refused [goto q63a] Don't Know [goto q63a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end $>Q62b-2< [within q62b] $d [none] <1-16> Refused [goto now-q62ros] Don't Know [goto now-q62ros] No more [goto now-q62ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q62b-1] $end $>Q62b-3< [within q62b] $d [none] <1-16> Refused [goto now-q62ros] Don't Know [goto now-q62ros] No more [goto now-q62ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q62b-1] [notequal q62b-2] $end $>Q62b-4< [within q62b] $d [none] <1-16> Refused [goto now-q62ros] Don't Know [goto now-q62ros] No more [goto now-q62ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q62b-1] [notequal q62b-2] [notequal q62b-3] $end $>Q62b-5< [within q62b] $d [none] <1-16> Refused [goto now-q62ros] Don't Know [goto now-q62ros] No more [goto now-q62ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q62b-1] [notequal q62b-2] [notequal q62b-3] [notequal q62b-4] $end $>Q62b-6< [within q62b] $d [none] <1-16> Refused [goto now-q62ros] Don't Know [goto now-q62ros] No more [goto now-q62ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q62b-1] [notequal q62b-2] [notequal q62b-3] [notequal q62b-4] [notequal q62b-5] $end $>Q62b-7< [within q62b] $d [none] <1-16> Refused [goto now-q62ros] Don't Know [goto now-q62ros] No more [goto now-q62ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q62b-1] [notequal q62b-2] [notequal q62b-3] [notequal q62b-4] [notequal q62b-5] [notequal q62b-6] $end $>Q62b-8< [within q62b] $d [none] <1-16> Refused [goto now-q62ros] Don't Know [goto now-q62ros] No more [goto now-q62ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q62b-1] [notequal q62b-2] [notequal q62b-3] [notequal q62b-4] [notequal q62b-5] [notequal q62b-6] [notequal q62b-7] $end $>Q62b-9< [within q62b] $d [none] <1-16> Refused [goto now-q62ros] Don't Know [goto now-q62ros] No more [goto now-q62ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q62b-1] [notequal q62b-2] [notequal q62b-3] [notequal q62b-4] [notequal q62b-5] [notequal q62b-6] [notequal q62b-7] [notequal Q62b-8] $end $>Q62b-10< [within q62b] $d [none] <1-16> Refused [goto now-q62ros] Don't Know [goto now-q62ros] No more [goto now-q62ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q62b-1] [notequal q62b-2] [notequal q62b-3] [notequal q62b-4] [notequal q62b-5] [notequal q62b-6] [notequal q62b-7] [notequal Q62b-8] [notequal Q62b-9] $end $>Q62b-11< [within q62b] $d [none] <1-16> Refused [goto now-q62ros] Don't Know [goto now-q62ros] No more [goto now-q62ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q62b-1] [notequal q62b-2] [notequal q62b-3] [notequal q62b-4] [notequal q62b-5] [notequal q62b-6] [notequal q62b-7] [notequal Q62b-8] [notequal Q62b-9] [notequal Q62b-10] $end $>Q62b-12< [within q62b] $d [none] <1-16> Refused [goto now-q62ros] Don't Know [goto now-q62ros] No more [goto now-q62ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q62b-1] [notequal q62b-2] [notequal q62b-3] [notequal q62b-4] [notequal q62b-5] [notequal q62b-6] [notequal q62b-7] [notequal Q62b-8] [notequal Q62b-9] [notequal Q62b-10] [notequal Q62b-11] $end $>Q62b-13< [within q62b] $d [none] <1-16> Refused [goto now-q62ros] Don't Know [goto now-q62ros] No more [goto now-q62ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q62b-1] [notequal q62b-2] [notequal q62b-3] [notequal q62b-4] [notequal q62b-5] [notequal q62b-6] [notequal q62b-7] [notequal Q62b-8] [notequal Q62b-9] [notequal Q62b-10] [notequal Q62b-11] [notequal Q62b-12] $end $>Q62b-14< [within q62b] $d [none] <1-16> Refused [goto now-q62ros] Don't Know [goto now-q62ros] No more [goto now-q62ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q62b-1] [notequal q62b-2] [notequal q62b-3] [notequal q62b-4] [notequal q62b-5] [notequal q62b-6] [notequal q62b-7] [notequal Q62b-8] [notequal Q62b-9] [notequal Q62b-10] [notequal Q62b-11] [notequal Q62b-12] [notequal Q62b-13] $end $>Q62b-15< [within q62b] $d [none] <1-16> Refused [goto now-q62ros] Don't Know [goto now-q62ros] No more [goto now-q62ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q62b-1] [notequal q62b-2] [notequal q62b-3] [notequal q62b-4] [notequal q62b-5] [notequal q62b-6] [notequal q62b-7] [notequal Q62b-8] [notequal Q62b-9] [notequal Q62b-10] [notequal Q62b-11] [notequal Q62b-12] [notequal Q62b-13] [notequal Q62b-14] $end $>Q62b-16< [within q62b] $d [none] <1-16> Refused Don't Know No more $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q62b-1] [notequal q62b-2] [notequal q62b-3] [notequal q62b-4] [notequal q62b-5] [notequal q62b-6] [notequal q62b-7] [notequal Q62b-8] [notequal Q62b-9] [notequal Q62b-10] [notequal Q62b-11] [notequal Q62b-12] [notequal Q62b-13] [notequal Q62b-14] [notequal Q62b-15] $end ------------------------------------------------------------------------------ $>NOW-Q62ROS< [do index <1> <16>] [store <0> in Q62BLN(index)] [end do] [if onpath q62b-1 then convert q62b-1 character to Q62BLN(1) integer] [if onpath q62b-2 then convert q62b-2 character to Q62BLN(2) integer] [if onpath q62b-3 then convert q62b-3 character to Q62BLN(3) integer] [if onpath q62b-4 then convert q62b-4 character to Q62BLN(4) integer] [if onpath q62b-5 then convert q62b-5 character to Q62BLN(5) integer] [if onpath q62b-6 then convert q62b-6 character to Q62BLN(6) integer] [if onpath q62b-7 then convert q62b-7 character to Q62BLN(7) integer] [if onpath q62b-8 then convert q62b-8 character to Q62BLN(8) integer] [if onpath q62b-9 then convert q62b-9 character to Q62BLN(9) integer] [if onpath q62b-10 then convert q62b-10 character to Q62BLN(10) integer] [if onpath q62b-11 then convert q62b-11 character to Q62BLN(11) integer] [if onpath q62b-12 then convert q62b-12 character to Q62BLN(12) integer] [if onpath q62b-13 then convert q62b-13 character to Q62BLN(13) integer] [if onpath q62b-14 then convert q62b-14 character to Q62BLN(14) integer] [if onpath q62b-15 then convert q62b-15 character to Q62BLN(15) integer] [if onpath q62b-16 then convert q62b-16 character to Q62BLN(16) integer] [do index <1> <16>] [store <0> in tabindex(index)] [convert hhmem(index) character to tabindex(index) integer] [end do] [if NUMHOU eq <1> then tablook tabindex <1> Q62BLN(1)] [store <0> in Q62ROS_R_P] $end ------------------------------------------------------------------------------ $ROPEN>Q62ROS< $>AFT-Q62ROS< [goto q63a] $end ============================================================================== $RBEGIN>Q62ROS< [maxelt 16] ============================================================================== $>pre-q62c< [if R_P gt NROSIZ then roster exit] [store <0> in index] [tablook Q62BLN q62ros_R_P index] [if index eq <0> then roster loop] [if Q62BLN(index) nq R_P then roster loop] $end ----------------------------------------------------------------------------- Comment: This is item 65c in the 1989 CPS-665. Precode "7" added; previous "7" made "8"; answer space added. 3/88 $>Q62c< [multiple Q62C1 Q62C2 Q62C3 Q62C4 Q62C5 Q62C6 Q62C7 Q62C8] [indirect] [combine name(R_P) <'s> into temptext] [if R_P eq RESPLI then store in temptext] $itemtable >Q62c< What was the source of [fill temptext] income? READ LIST ONLY IF RESPONDENT IS HAVING DIFFICULTY ANSWERING THE QUESTION. <1> Company or union pension (INCLUDE PROFIT SHARING) <2> Federal Government (CIVIL SERVICE) retirement <3> U.S. Military retirement <4> State or Local government pension <5> U.S. Railroad Retirement <6> Regular payments from annuities or paid up insurance policies <7> Regular payments from IRA, KEOGH or 401(k) accounts <8> Other sources or don't know -- SPECIFY -- ENTER LAST PROBE: Any other pension or retirement income? NO OTHER SOURCES OF INCOME ===>_ ===>_ ===>_ ===>_ ===>_ ===>_ ===>_ ===>_ $end ----------------------------------------------------------------------------- $>Q62C1< [within q62c] $d [none] <1-7> <8> Other source [goto oth62c] Refused [roster loop] $end $>Q62C2< [within q62c] $d [none] <1-7> <8> Other source [goto oth62c] Refused [goto q62e1p] No more [goto q62e1p] $edit [notequal Q62C1(R_P)] $end $>Q62C3< [within q62c] $d [none] <1-7> <8> Other source [goto oth62c] Refused [goto q62e1p] No more [goto q62e1p] $edit [notequal Q62C1(R_P)] [notequal Q62C2(R_P)] $end $>Q62C4< [within q62c] $d [none] <1-7> <8> Other source [goto oth62c] Refused [goto q62e1p] No more [goto q62e1p] $edit [notequal Q62C1(R_P)] [notequal Q62C2(R_P)] [notequal Q62C3(R_P)] $end $>Q62C5< [within q62c] $d [none] <1-7> <8> Other source [goto oth62c] Refused [goto q62e1p] No more [goto q62e1p] $edit [notequal Q62C1(R_P)] [notequal Q62C2(R_P)] [notequal Q62C3(R_P)] [notequal Q62C4(R_P)] $end $>Q62C6< [within q62c] $d [none] <1-7> <8> Other source [goto oth62c] Refused [goto q62e1p] No more [goto q62e1p] $edit [notequal Q62C1(R_P)] [notequal Q62C2(R_P)] [notequal Q62C3(R_P)] [notequal Q62C4(R_P)] [notequal Q62C5(R_P)] $end $>Q62C7< [within q62c] $d [none] <1-7> <8> Other source [goto oth62c] Refused [goto q62e1p] No more [goto q62e1p] $edit [notequal Q62C1(R_P)] [notequal Q62C2(R_P)] [notequal Q62C3(R_P)] [notequal Q62C4(R_P)] [notequal Q62C5(R_P)] [notequal Q62C6(R_P)] $end $>Q62C8< [within q62c] $d [none] <1-7> <8> Other source [goto oth62c] Refused No more ==>_ [goto q62e1p] $edit [notequal Q62C1(R_P)] [notequal Q62C2(R_P)] [notequal Q62C3(R_P)] [notequal Q62C4(R_P)] [notequal Q62C5(R_P)] [notequal Q62C6(R_P)] [notequal Q62C7(R_P)] $end ------------------------------------------------------------------------------ $>oth62c< [indirect] $d >oth62c< ENTER OTHER SOURCE OF PENSION OR RETIREMENT INCOME ENTER "OTHER PENSION OR RETIREMENT" IF THE ANSWER IS "DON'T KNOW" [blind] Refused Don't Know ===>__________________________________________________________ $edit [anychar] $end ----------------------------------------------------------------------------- Comment: Deleted q62d. 3/88 ----------------------------------------------------------------------------- $>Q62E1p< [combine name(R_P) <'s> into temptext] [store < > in temp3] [store <0> in index] [store <0> in index2] [convert Q62C1(R_P) character to index integer] [NIF Q62C1(R_P) is <8> then] [store oth62c(R_P) in temp3] [ELSE] [store Q62e-fil(index) in temp3] [ENDIF] [If R_P eq respli then store in temptext] THE FOLLOWING CODE IS USED TO RESET DK SCREENS [NIF Q62e1p(R_P) is AND DKFLAG eq <1> then] [reset Q62e1p] [ENDIF] $d >Q62E1p< What is the easiest way for you to tell us [fill temptext] [fill temp3]; weekly, every other week, twice a month, monthly, or yearly? <1> Weekly <2> Every other week (bi-weekly) <3> Twice a month <4> Monthly <5> Yearly [blind] Don't know [goto C-Q62E1t] Refused [goto C-Q62E1t] ===>_ $end --------------------------------------------------------------------------- $>Q62E1< [store name(R_P) in temptext] [if R_P eq respli then store in temptext] [store in temp2] [store <1> in xbad(1)] [store < > in temp3] [store <0> in index] [store <0> in index2] [convert Q62C1(R_P) character to index integer] [NIF Q62C1(R_P) is <8> then] [store oth62c(R_P) in temp3] [ELSE] [store Q62e-fil(index) in temp3] [ENDIF] [NIF Q62E1p(R_P) is <1> then] [if onpath Q62E1p:R_P then store in temp2] [ELSEIF Q62E1p(R_P) is <2> then] [if onpath Q62E1p:R_P then store in temp2] [ELSEIF Q62E1p(R_P) is <3> then] [if onpath Q62E1p:R_P then store in temp2] [ELSEIF Q62E1p(R_P) is <4> then] [if onpath Q62E1p:R_P then store in temp2] [ENDIF] THE FOLLOWING CODE IS USED TO RESET DK SCREENS [NIF Q62e1(R_P) is AND DKFLAG eq <1> then] [reset Q62e1] [ENDIF] $d >Q62E1< How much did [fill temptext] receive [fill temp2] [fill temp3] in 1996? ENTER DOLLAR AMOUNT [blind] Don't know [goto C-Q62E1T] Refused [goto C-Q62E1T] ===>[N]$_,___,___ .00 $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>Q62E1-CK< [NIF Q62E1p(R_P) is <5> then] [if onpath Q62E1p:R_P then goto Q62E1C1] [ENDIF] [goto Q62E12] $end ---------------------------------------------------------------------------- $>Q62E12< [store <0> in xbad(1)] [store <1> in xbad(2)] [store name(R_P) in temptext] [store < > in temp2] [store < > in temp4] [store < > in temp3] [store <0> in index] [store <0> in index2] [convert Q62C1(R_P) character to index integer] [NIF Q62C1(R_P) is <8> then] [store oth62c(R_P) in temp3] [ELSE] [store Q62e-fil(index) in temp3] [ENDIF] [if R_P eq respli then store in temptext] [NIF Q62E1p(R_P) is <1> then] [if onpath Q62E1p:R_P then store <52> in xbad(1)] [if onpath Q62E1p:R_P then store in temp2] [if onpath Q62E1p:R_P then store <{1-52}> in temp4] [ELSEIF Q62E1p(R_P) is <2> then] [if onpath Q62E1p:R_P then store <26> in xbad(1)] [if onpath Q62E1p:R_P then store in temp2] [if onpath Q62E1p:R_P then store <{1-26}> in temp4] [ELSEIF Q62E1p(R_P) is <3> then] [if onpath Q62E1p:R_P then store <24> in xbad(1)] [if onpath Q62E1p:R_P then store in temp2] [if onpath Q62E1p:R_P then store <{1-24}> in temp4] [ELSEIF Q62E1p(R_P) is <4> then] [if onpath Q62E1p:R_P then store <12> in xbad(1)] [if onpath Q62E1p:R_P then store in temp2] [if onpath Q62E1p:R_P then store <{1-12}> in temp4] [ENDIF] THE FOLLOWING CODE IS USED TO RESET DK SCREENS [NIF Q62e12(R_P) is AND DKFLAG eq <1> then] [reset Q62e12] [ENDIF] $d >Q62E12< How many [fill temp2] payments did [fill temptext] receive in [fill temp3] in 1996? [fill temp4] [blind] Don't know [goto C-Q62E1T] Refused [goto C-Q62E1T] ===>__ [goto Q62E13] $edit [notless xbad(2)] [notgreater xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>Q62E1C1< [store <0> in index] [NIF Q62E1(R_P) isnt AND Q62E1(R_P) isnt then] [if onpath Q62E1:R_P then convert Q62E1(R_P) character to index2 integer] [ENDIF] [if index2 lt <1000> then goto Q62E1C] [if index2 gt <20000> then goto Q62E1C] [goto C-Q62E1T] $end --------------------------------------------------------------------------- $>Q62E1C< [store < > in temp2] [store < > in temp3] [store <0> in index] [store <0> in index2] [convert Q62C1(R_P) character to index integer] [NIF Q62C1(R_P) is <8> then] [store oth62c(R_P) in temp3] [ELSE] [store Q62e-fil(index) in temp3] [ENDIF] [if Q62E1C(R_P) is <2> then reset Q62E1C] $d >Q62E1C< **** DO NOT READ TO THE RESPONDENT ***** THE ANNUAL RATE APPEARS OUT OF RANGE. THE TOTAL [fill temp3] RECEIVED IN 1996 WAS $[fill Q62E1(R_P)]. IS THIS A CORRECT ENTRY? <1> Yes [goto C-Q62E1T] <2> No [backto Q62E1:R_P] ===>_ $end ---------------------------------------------------------------------------- $>Q62E13< [store <0> in index] [store <0> in index2] [store <0> in index3] [store <0> in index4] [store name(R_P) in temptext] [store < > in T62E13(R_P)] [store < > in temp3] [convert Q62C1(R_P) character to index3 integer] [NIF Q62C1(R_P) is <8> then] [store oth62c(R_P) in temp3] [ELSE] [store Q62e-fil(index3) in temp3] [ENDIF] [if R_P eq respli then store in temptext] [if onpath Q62E1:R_P then convert Q62E1(R_P) character to index integer] [if onpath Q62E12:R_P then convert Q62E12(R_P) character to index2 integer] [multiply index by index2] [convert index integer to T62E13(R_P) character] $d >Q62E13< According to my calculations [fill temptext] received $[fill T62E13(R_P)] dollars altogether from [fill temp3] in 1996. Does that sound about right? <1> Yes <2> No [goto Q62E14] [blind] Don't know Refused ===>_ [goto C-Q62E1T] $end ---------------------------------------------------------------------------- $>Q62E14< [store name(R_P) in temptext] [store < > in temp2] [store < > in temp3] [store < > in temp4] [store <1> in xbad(1)] [store <0> in index] [store <0> in index2] [store <0> in index4] [if R_P eq respli then store in temptext] [NIF Q62e1p(R_P) is <1> then] [if onpath Q62e1p:R_P then store in temp3] [ELSEIF Q62e1p(R_P) is <2> then] [if onpath Q62e1p:R_P then store in temp3] [ELSEIF Q62e1p(R_P) is <3> then] [if onpath Q62e1p:R_P then store in temp3] [ELSEIF Q62e1p(R_P) is <4> then] [if onpath Q62e1p:R_P then store in temp3] [ELSEIF Q62e1p(R_P) is <5> then] [if onpath Q62e1p:R_P then store in temp3] [ENDIF] [if onpath Q62E12:R_P then store Q62E12(R_P) in temp4] [convert Q62C1(R_P) character to index3 integer] [NIF Q62C1(R_P) is <8> then] [store oth62c(R_P) in temp5] [ELSE] [store Q62e-fil(index3) in temp5] [ENDIF] $d >Q62E14< What is your best estimate of the correct total amount [fill temptext] received from [fill temp5] during 1996? PREVIOUS ENTRIES: Q62E1: $[fill Q62E1(R_P)] Q62E1p: [fill temp3] Q62E12: [fill temp4] ENTER DOLLAR AMOUNT [blind] Don't know Refused ===>[N]$_,___,___ .00 $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>C-Q62E1T< CALCULATES Q62E1T [store < > IN Q62E1T(R_P)] [NIF Q62E1p(R_P) is <5> then] [if onpath Q62E1p:R_P then store Q62E1(R_P) in Q62E1T(R_P)] [ENDIF] [store <0> in index] [store <0> in index2] [if onpath Q62E1p:R_P then convert Q62E1p(R_P) character to index integer] [NIF index ge <1> AND index le <4> then] [store <1> in index2] [ENDIF] [NIF Q62E13(R_P) is <1> AND index2 eq <1> then] [if onpath Q62E13:R_P then store T62E13(R_P) in Q62E1T(R_P)] [ELSEIF Q62E13(R_P) is AND index2 eq <1> then] [if onpath Q62E13:R_P then store T62E13(R_P) in Q62E1T(R_P)] [ELSEIF Q62E13(R_P) is AND index2 eq <1> then] [if onpath Q62E13:R_P then store T62E13(R_P) in Q62E1T(R_P)] [ENDIF] [NIF Q62E14(R_P) isnt AND Q62E14(R_P) isnt then] [if onpath Q62E14:R_P then add <10> to index2] [ENDIF] [NIF Q62E13(R_P) is <2> AND index2 eq <11> then] [if onpath Q62E13:R_P then store Q62E14(R_P) in Q62E1T(R_P)] [ELSEIF Q62E13(R_P) is <2> AND index2 eq <1> then] [if onpath Q62E13:R_P then store T62E13(R_P) in Q62E1T(R_P)] [ENDIF] [NIF Q62E1p(R_P) is then] [if onpath Q62E1p:R_P then store in Q62E1T(R_P)] [ENDIF] [NIF Q62E1(R_P) is then] [if onpath Q62E1:R_P then store in Q62E1T(R_P)] [ENDIF] [NIF Q62E12(R_P) is then] [if onpath Q62E12:R_P then store in Q62E1T(R_P)] [ENDIF] [NIF Q62C2(R_P) isnt AND Q62C2(R_P) isnt then] [if onpath Q62C2:R_P then goto Q62E2p] [ENDIF] [roster loop] $end ---------------------------------------------------------------------- $>Q62E2p< [combine name(R_P) <'s> into temptext] [store < > in temp3] [store <0> in index] [store <0> in index2] [convert Q62C2(R_P) character to index integer] [NIF Q62C2(R_P) is <8> then] [store oth62c(R_P) in temp3] [ELSE] [store Q62e-fil(index) in temp3] [ENDIF] [If R_P eq respli then store in temptext] THE FOLLOWING CODE IS USED TO RESET DK SCREENS [NIF Q62e2p(R_P) is AND DKFLAG eq <1> then] [reset Q62e2p] [ENDIF] $d >Q62E2p< What is the easiest way for you to tell us [fill temptext] [fill temp3]; weekly, every other week, twice a month, monthly, or yearly? <1> Weekly <2> Every other week <3> Twice a month <4> Monthly <5> Yearly [blind] Don't know [goto C-Q62E2T] Refused [goto C-Q62E2T] ===>_ $end --------------------------------------------------------------------------- $>Q62E2< [store name(R_P) in temptext] [if R_P eq respli then store in temptext] [store in temp2] [store <1> in xbad(1)] [store < > in temp3] [store <0> in index] [store <0> in index2] [convert Q62C2(R_P) character to index integer] [NIF Q62C2(R_P) is <8> then] [store oth62c(R_P) in temp3] [ELSE] [store Q62e-fil(index) in temp3] [ENDIF] [NIF Q62E2p(R_P) is <1> then] [if onpath Q62E2p:R_P then store in temp2] [ELSEIF Q62E2p(R_P) is <2> then] [if onpath Q62E2p:R_P then store in temp2] [ELSEIF Q62E2p(R_P) is <3> then] [if onpath Q62E2p:R_P then store in temp2] [ELSEIF Q62E2p(R_P) is <4> then] [if onpath Q62E2p:R_P then store in temp2] [ENDIF] THE FOLLOWING CODE IS USED TO RESET DK SCREENS [NIF Q62e2(R_P) is AND DKFLAG eq <1> then] [reset Q62e2] [ENDIF] $d >Q62E2< How much did [fill temptext] receive [fill temp2] [fill temp3] in 1996? ENTER DOLLAR AMOUNT [blind] Don't know [goto C-Q62E2T] Refused [goto C-Q62E2T] ===>[N]$_,___,___ .00 $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>Q62E2-CK< [NIF Q62E2p(R_P) is <5> then] [if onpath Q62E2p:R_P then goto Q62E2C1] [ENDIF] [goto Q62E22] $end ---------------------------------------------------------------------------- $>Q62E22< [store <0> in xbad(1)] [store <1> in xbad(2)] [store name(R_P) in temptext] [store < > in temp2] [store < > in temp4] [store < > in temp3] [store <0> in index] [store <0> in index2] [convert Q62C2(R_P) character to index integer] [NIF Q62C2(R_P) is <8> then] [store oth62c(R_P) in temp3] [ELSE] [store Q62e-fil(index) in temp3] [ENDIF] [if R_P eq respli then store in temptext] [NIF Q62E2p(R_P) is <1> then] [if onpath Q62E2p:R_P then store <52> in xbad(1)] [if onpath Q62E2p:R_P then store in temp2] [if onpath Q62E2p:R_P then store <{1-52}> in temp4] [ELSEIF Q62E2p(R_P) is <2> then] [if onpath Q62E2p:R_P then store <26> in xbad(1)] [if onpath Q62E2p:R_P then store in temp2] [if onpath Q62E2p:R_P then store <{1-26}> in temp4] [ELSEIF Q62E2p(R_P) is <3> then] [if onpath Q62E2p:R_P then store <24> in xbad(1)] [if onpath Q62E2p:R_P then store in temp2] [if onpath Q62E2p:R_P then store <{1-24}> in temp4] [ELSEIF Q62E2p(R_P) is <4> then] [if onpath Q62E2p:R_P then store <12> in xbad(1)] [if onpath Q62E2p:R_P then store in temp2] [if onpath Q62E2p:R_P then store <{1-12}> in temp4] [ENDIF] THE FOLLOWING CODE IS USED TO RESET DK SCREENS [NIF Q62e22(R_P) is AND DKFLAG eq <1> then] [reset Q62e22] [ENDIF] $d >Q62E22< How many [fill temp2] payments did [fill temptext] receive in [fill temp3] in 1996? [fill temp4] [blind] Don't know [goto C-Q62E2T] Refused [goto C-Q62E2T] ===>__ [goto Q62E23] $edit [notless xbad(2)] [notgreater xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>Q62E2C1< [store <0> in index2] [NIF Q62E2(R_P) isnt AND Q62E2(R_P) isnt then] [if onpath Q62E2:R_P then convert Q62E2(R_P) character to index2 integer] [ENDIF] [if index2 lt <1000> then goto Q62E2C] [if index2 gt <20000> then goto Q62E2C] [goto C-Q62E2T] $end --------------------------------------------------------------------------- $>Q62E2C< [store < > in temp2] [store < > in temp3] [store <0> in index] [store <0> in index2] [convert Q62C2(R_P) character to index integer] [NIF Q62C2(R_P) is <8> then] [store oth62c(R_P) in temp3] [ELSE] [store Q62e-fil(index) in temp3] [ENDIF] [if Q62E2C(R_P) is <2> then reset Q62E2C] $d >Q62E2C< **** DO NOT READ TO THE RESPONDENT ***** THE ANNUAL RATE APPEARS OUT OF RANGE. THE TOTAL [fill temp3] RECEIVED IN 1996 WAS $[fill Q62E2(R_P)]. IS THIS A CORRECT ENTRY? <1> Yes [goto C-Q62E2T] <2> No [backto Q62E2:R_P] ===>_ $end ---------------------------------------------------------------------------- $>Q62E23< [store <0> in index] [store <0> in index2] [store <0> in index3] [store <0> in index4] [store name(R_P) in temptext] [store < > in T62E23(R_P)] [store < > in temp3] [convert Q62C2(R_P) character to index3 integer] [NIF Q62C2(R_P) is <8> then] [store oth62c(R_P) in temp3] [ELSE] [store Q62e-fil(index3) in temp3] [ENDIF] [if R_P eq respli then store in temptext] [if onpath Q62E2:R_P then convert Q62E2(R_P) character to index integer] [if onpath Q62E22:R_P then convert Q62E22(R_P) character to index2 integer] [multiply index by index2] [convert index integer to T62E23(R_P) character] $d >Q62E23< According to my calculations [fill temptext] received $[fill T62E23(R_P)] dollars altogether from [fill temp3] in 1996. Does that sound about right? <1> Yes <2> No [goto Q62E24] [blind] Don't know Refused ===>_ [goto C-Q62E2T] $end ---------------------------------------------------------------------------- $>Q62E24< [store name(R_P) in temptext] [store < > in temp2] [store < > in temp3] [store < > in temp4] [store <1> in xbad(1)] [store <0> in index] [store <0> in index2] [store < > in temp5] [store <0> in index3] [store <0> in index4] [convert Q62C2(R_P) character to index3 integer] [NIF Q62C2(R_P) is <8> then] [store oth62c(R_P) in temp5] [ELSE] [store Q62e-fil(index3) in temp5] [ENDIF] [if R_P eq respli then store in temptext] [NIF Q62e2p(R_P) is <1> then] [if onpath Q62e2p:R_P then store in temp3] [ELSEIF Q62e2p(R_P) is <2> then] [if onpath Q62e2p:R_P then store in temp3] [ELSEIF Q62e2p(R_P) is <3> then] [if onpath Q62e2p:R_P then store in temp3] [ELSEIF Q62e2p(R_P) is <4> then] [if onpath Q62e2p:R_P then store in temp3] [ELSEIF Q62e2p(R_P) is <5> then] [if onpath Q62e2p:R_P then store in temp3] [ENDIF] [if onpath Q62E22:R_P then store Q62E22(R_P) in temp4] $d >Q62E24< What is your best estimate of the correct total amount [fill temptext] received from [fill temp5] during 1996? PREVIOUS ENTRIES: Q62E2: $[fill Q62E2(R_P)] Q62E2p: [fill temp3] Q62E22: [fill temp4] ENTER DOLLAR AMOUNT [blind] Don't know Refused ===>[N]$_,___,___ .00 $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>C-Q62E2T< CALCULATES Q62E2T [store < > IN Q62E2T(R_P)] [NIF Q62E2p(R_P) is <5> then] [if onpath Q62E2p:R_P then store Q62E2(R_P) in Q62E2T(R_P)] [ENDIF] [store <0> in index] [store <0> in index2] [if onpath Q62E2p:R_P then convert Q62E2p(R_P) character to index integer] [NIF index ge <1> AND index le <4> then] [store <1> in index2] [ENDIF] [NIF Q62E23(R_P) is <1> AND index2 eq <1> then] [if onpath Q62E23:R_P then store T62E23(R_P) in Q62E2T(R_P)] [ELSEIF Q62E23(R_P) is AND index2 eq <1> then] [if onpath Q62E23:R_P then store T62E23(R_P) in Q62E2T(R_P)] [ELSEIF Q62E23(R_P) is AND index2 eq <1> then] [if onpath Q62E23:R_P then store T62E23(R_P) in Q62E2T(R_P)] [ENDIF] [NIF Q62E24(R_P) isnt AND Q62E24(R_P) isnt then] [if onpath Q62E24:R_P then add <10> to index2] [ENDIF] [NIF Q62E23(R_P) is <2> AND index2 eq <11> then] [if onpath Q62E23:R_P then store Q62E24(R_P) in Q62E2T(R_P)] [ELSEIF Q62E23(R_P) is <2> AND index2 eq <1> then] [if onpath Q62E23:R_P then store T62E23(R_P) in Q62E2T(R_P)] [ENDIF] [NIF Q62E2p(R_P) is then] [if onpath Q62E2p:R_P then store in Q62E2T(R_P)] [ENDIF] [NIF Q62E2(R_P) is then] [if onpath Q62E2:R_P then store in Q62E2T(R_P)] [ENDIF] [NIF Q62E22(R_P) is then] [if onpath Q62E22:R_P then store in Q62E2T(R_P)] [ENDIF] [NIF Q62C3(R_P) isnt AND Q62c3(R_P) isnt then] [if onpath Q62C3:R_P then goto Q62E3p] [ENDIF] [roster loop] $end ---------------------------------------------------------------------- $>Q62E3p< [combine name(R_P) <'s> into temptext] [If R_P eq respli then store in temptext] [store < > in temp3] [store <0> in index] [convert Q62C3(R_P) character to index integer] [NIF Q62C3(R_P) is <8> then] [store oth62c(R_P) in temp3] [ELSE] [store Q62e-fil(index) in temp3] [ENDIF] $d >Q62E3p< What is the easiest way for you to tell us [fill temptext] [fill temp3]; weekly, every other week, twice a month, monthly, or yearly? <1> Weekly <2> Every other week (bi-weekly) <3> Twice a month <4> Monthly <5> Yearly [blind] Don't know [goto C-Q62E3T] Refused [goto C-Q62E3T] ===>_ $end --------------------------------------------------------------------------- $>Q62E3< [store name(R_P) in temptext] [if R_P eq respli then store in temptext] [store in temp2] [store <1> in xbad(1)] [store < > in temp3] [store <0> in index] [convert Q62C3(R_P) character to index integer] [NIF Q62C3(R_P) is <8> then] [store oth62c(R_P) in temp3] [ELSE] [store Q62e-fil(index) in temp3] [ENDIF] [NIF Q62E3p(R_P) is <1> then] [if onpath Q62E3p:R_P then store in temp2] [ELSEIF Q62E3p(R_P) is <2> then] [if onpath Q62E3p:R_P then store in temp2] [ELSEIF Q62E3p(R_P) is <3> then] [if onpath Q62E3p:R_P then store in temp2] [ELSEIF Q62E3p(R_P) is <4> then] [if onpath Q62E3p:R_P then store in temp2] [ENDIF] $d >Q62E3< How much did [fill temptext] receive [fill temp2] [fill temp3] in 1996? ENTER DOLLAR AMOUNT [blind] Don't know [goto C-Q62E3T] Refused [goto C-Q62E3T] ===>[N]$_,___,___ .00 $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>Q62E3-CK< [NIF Q62E3p(R_P) is <5> then] [if onpath Q62E3p:R_P then goto Q62E3C1] [ENDIF] [goto Q62E32] $end ---------------------------------------------------------------------------- $>Q62E32< [store <0> in xbad(1)] [store <1> in xbad(2)] [store name(R_P) in temptext] [store < > in temp2] [store < > in temp4] [store < > in temp3] [store <0> in index] [convert Q62C3(R_P) character to index integer] [NIF Q62C3(R_P) is <8> then] [store oth62c(R_P) in temp3] [ELSE] [store Q62e-fil(index) in temp3] [ENDIF] [if R_P eq respli then store in temptext] [NIF Q62E3p(R_P) is <1> then] [if onpath Q62E3p:R_P then store <52> in xbad(1)] [if onpath Q62E3p:R_P then store in temp2] [if onpath Q62E3p:R_P then store <{1-52}> in temp4] [ELSEIF Q62E3p(R_P) is <2> then] [if onpath Q62E3p:R_P then store <26> in xbad(1)] [if onpath Q62E3p:R_P then store in temp2] [if onpath Q62E3p:R_P then store <{1-26}> in temp4] [ELSEIF Q62E3p(R_P) is <3> then] [if onpath Q62E3p:R_P then store <24> in xbad(1)] [if onpath Q62E3p:R_P then store in temp2] [if onpath Q62E3p:R_P then store <{1-24}> in temp4] [ELSEIF Q62E3p(R_P) is <4> then] [if onpath Q62E3p:R_P then store <12> in xbad(1)] [if onpath Q62E3p:R_P then store in temp2] [if onpath Q62E3p:R_P then store <{1-12}> in temp4] [ENDIF] $d >Q62E32< How many [fill temp2] payments did [fill temptext] receive in [fill temp3] in 1996? [fill temp4] [blind] Don't know [goto C-Q62E3T] Refused [goto C-Q62E3T] ===>__ [goto Q62E33] $edit [notless xbad(2)] [notgreater xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>Q62E3C1< [store <0> in index2] [NIF Q62E3(R_P) isnt AND Q62E3(R_P) isnt then] [if onpath Q62E3:R_P then convert Q62E3(R_P) character to index2 integer] [ENDIF] [if index2 lt <1000> then goto Q62E3C] [if index2 gt <20000> then goto Q62E3C] [goto C-Q62E3T] $end --------------------------------------------------------------------------- $>Q62E3C< [store < > in temp3] [store <0> in index] [convert Q62C3(R_P) character to index integer] [NIF Q62C3(R_P) is <8> then] [store oth62c(R_P) in temp3] [ELSE] [store Q62e-fil(index) in temp3] [ENDIF] [if Q62E3C(R_P) is <2> then reset Q62E3C] $d >Q62E3C< **** DO NOT READ TO THE RESPONDENT ***** THE ANNUAL RATE APPEARS OUT OF RANGE. THE TOTAL [fill temp3] RECEIVED IN 1996 WAS $[fill Q62E3(R_P)]. IS THIS A CORRECT ENTRY? <1> Yes [goto C-Q62E3T] <2> No [backto Q62E3:R_P] ===>_ $end ---------------------------------------------------------------------------- $>Q62E33< [store <0> in index] [store <0> in index2] [store <0> in index3] [store name(R_P) in temptext] [store < > in T62E33(R_P)] [store < > in temp3] [convert Q62C3(R_P) character to index3 integer] [NIF Q62C3(R_P) is <8> then] [store oth62c(R_P) in temp3] [ELSE] [store Q62e-fil(index3) in temp3] [ENDIF] [if R_P eq respli then store in temptext] [if onpath Q62E3:R_P then convert Q62E3(R_P) character to index integer] [if onpath Q62E32:R_P then convert Q62E32(R_P) character to index2 integer] [multiply index by index2] [convert index integer to T62E33(R_P) character] $d >Q62E33< According to my calculations [fill temptext] received $[fill T62E33(R_P)] dollars altogether from [fill temp3] in 1996. Does that sound about right? <1> Yes <2> No [goto Q62E34] [blind] Don't know Refused ===>_ [goto C-Q62E3T] $end ---------------------------------------------------------------------------- $>Q62E34< [store name(R_P) in temptext] [store < > in temp2] [store < > in temp3] [store < > in temp4] [store <1> in xbad(1)] [store <0> in index] [store <0> in index2] [if R_P eq respli then store in temptext] [NIF Q62e3p(R_P) is <1> then] [if onpath Q62e3p:R_P then store in temp3] [ELSEIF Q62e3p(R_P) is <2> then] [if onpath Q62e3p:R_P then store in temp3] [ELSEIF Q62e3p(R_P) is <3> then] [if onpath Q62e3p:R_P then store in temp3] [ELSEIF Q62e3p(R_P) is <4> then] [if onpath Q62e3p:R_P then store in temp3] [ELSEIF Q62e3p(R_P) is <5> then] [if onpath Q62e3p:R_P then store in temp3] [ENDIF] [if onpath Q62E32:R_P then store Q62E32(R_P) in temp4] [convert Q62C3(R_P) character to index3 integer] [NIF Q62C3(R_P) is <8> then] [store oth62c(R_P) in temp5] [ELSE] [store Q62e-fil(index3) in temp5] [ENDIF] $d >Q62E34< What is your best estimate of the correct total amount [fill temptext] received from [fill temp5] during 1996? PREVIOUS ENTRIES: Q62E3: $[fill Q62E3(R_P)] Q62E3p: [fill temp3] Q62E32: [fill temp4] ENTER DOLLAR AMOUNT [blind] Don't know Refused ===>[N]$_,___,___ .00 $edit [notless xbad(1)] [numeric] $end ---------------------------------------------------------------------------- $>C-Q62E3T< CALCULATES Q62E3T [store < > IN Q62E3T(R_P)] [NIF Q62E3p(R_P) is <5> then] [if onpath Q62E3p:R_P then store Q62E3(R_P) in Q62E3T(R_P)] [ENDIF] [store <0> in index] [store <0> in index2] [if onpath Q62E3p:R_P then convert Q62E3p(R_P) character to index integer] [NIF index ge <1> AND index le <4> then] [store <1> in index2] [ENDIF] [NIF Q62E33(R_P) is <1> AND index2 eq <1> then] [if onpath Q62E33:R_P then store T62E33(R_P) in Q62E3T(R_P)] [ELSEIF Q62E33(R_P) is AND index2 eq <1> then] [if onpath Q62E33:R_P then store T62E33(R_P) in Q62E3T(R_P)] [ELSEIF Q62E33(R_P) is AND index2 eq <1> then] [if onpath Q62E33:R_P then store T62E33(R_P) in Q62E3T(R_P)] [ENDIF] [NIF Q62E34(R_P) isnt AND Q62E34(R_P) isnt then] [if onpath Q62E34:R_P then add <10> to index2] [ENDIF] [NIF Q62E33(R_P) is <2> AND index2 eq <11> then] [if onpath Q62E33:R_P then store Q62E34(R_P) in Q62E3T(R_P)] [ELSEIF Q62E33(R_P) is <2> AND index2 eq <1> then] [if onpath Q62E33:R_P then store T62E33(R_P) in Q62E3T(R_P)] [ENDIF] [NIF Q62E3p(R_P) is then] [if onpath Q62E3p:R_P then store in Q62E3T(R_P)] [ENDIF] [NIF Q62E3(R_P) is then] [if onpath Q62E3:R_P then store in Q62E3T(R_P)] [ENDIF] [NIF Q62E32(R_P) is then] [if onpath Q62E32:R_P then store in Q62E3T(R_P)] [ENDIF] [roster loop] $end --------------------------------------------------------------------- ============================================================================== $REND>Q62ROS< ============================================================================== Comment: This is item 66a in the 1989 CPS-665. $>Q63a< [multiple Q63A1 Q63A2 Q63A3] [NIF NUMHOU eq <1> then] [store in temptext] [ELSE] [store in temptext] [ENDIF] $itemtable Q63A1 At anytime during 1996 did [fill temptext]: Have money in any kind of money market fund or savings account? <1> Yes <2> No ===>_ Q63A2 Have any bonds, treasury notes, IRA's, or certificates of deposit? <1> Yes <2> No ===>_ Q63A3 Have an interest earning checking account or any other investments which pay interest? <1> Yes <2> No ===>_ $end ------------------------------------------------------------------------------ $>Q63A1< [within q63a] $d [none] <1> Yes <2> No Refused [goto q64a] Don't Know $end $>Q63A2< [within q63a] $d [none] <1> Yes <2> No Refused Don't Know $end $>Q63A3< [within q63a] $d [none] <1> Yes <2> No Refused Don't Know $end ------------------------------------------------------------------------------ COMMENT: DELETED CODING FOR NUMHOU EQ TO 1 BECAUSE IT MESSES UP ONPATH TESTS CMC 2/90 Comment: Revised 3/88 $>pre-q63b< [store <0> in index] [if Q63A1 is <1> then add <1> to index] [if Q63A2 is <1> then add <1> to index] [if Q63A3 is <1> then add <1> to index] [NIF index ge <1> AND NUMHOU nq <1> then] [goto q63b] [ELSEIF index ge <1> AND NUMHOU eq <1> then] [goto now-q63ros] [ENDIF] [goto q64a] $end ------------------------------------------------------------------------------ Comment: This is item 66b in the 1989 CPS-665. $>Q63b< [multiple q63b-1 q63b-2 q63b-3 q63b-4 q63b-5 q63b-6 q63b-7 q63b-8] [multiple q63b-9 q63b-10 q63b-11 q63b-12 q63b-13 q63b-14 q63b-15 q63b-16] [do index <1> <16>] [store < > in tempname(index)] [store < > in xbad(index)] [NIF AGERNG(index) lt <2> then] [convert index integer to xbad(index) character] [ELSEIF hhmem(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <9> then] [convert index integer to xbad(index) character] [ELSEIF PELIG(index) eq <12> OR hhmem(index) is <3> then] [convert index integer to xbad(index) character] [ENDIF] [end do] [do index <1> NROSIZ] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to tempname(index)(2:2) character] [ELSEIF index2 ge <10> then] [convert index2 integer to tempname(index)(1:2) character] [ENDIF] [store name(index) in tempname(index)(4:27)] [store relation(index) in tempname(index)(29:37)] [store <0> in index4] [convert xbad(index) character to index4 integer] [if index4 gt <0> then store < > in tempname(index)] [end do] [store < > in temp2] [store <0> in index4] [if Q63A1 is <1> then store <1> in index4] [if Q63A2 is <1> then add <10> to index4] [if Q63A3 is <1> then add <100> to index4] [if index4 eq <1> then store in temp2] [if index4 eq <10> then store in temp2] [if index4 ge <11> then store in temp2] $itemtable >Q63b< **ASK ONLY IF NECESSARY** Which members of this household ages 15 and over had [fill temp2]? INCLUDE EACH IN CASES OF JOINT ACCOUNTS OR OWNERSHIP LN NAME RELATION LN NAME RELATION [fill/l tempname(1)] [fill tempname(9)] [fill/l tempname(2)] [fill tempname(10)] [fill/l tempname(3)] [fill tempname(11)] [fill/l tempname(4)] [fill tempname(12)] [fill/l tempname(5)] [fill tempname(13)] [fill/l tempname(6)] [fill tempname(14)] [fill/l tempname(7)] [fill tempname(15)] [fill/l tempname(8)] [fill tempname(16)] ENTER LINE NUMBER No more PROBE: Anyone else? ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ $end ----------------------------------------------------------------------------- $>Q63b-1< [within q63b] $d [none] <1-16> Refused [goto q64a] Don't Know [goto q64a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end $>Q63b-2< [within q63b] $d [none] <1-16> Refused [goto now-q63ros] Don't Know [goto now-q63ros] No more [goto now-q63ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q63b-1] $end $>Q63b-3< [within q63b] $d [none] <1-16> Refused [goto now-q63ros] Don't Know [goto now-q63ros] No more [goto now-q63ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q63b-1] [notequal q63b-2] $end $>Q63b-4< [within q63b] $d [none] <1-16> Refused [goto now-q63ros] Don't Know [goto now-q63ros] No more [goto now-q63ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q63b-1] [notequal q63b-2] [notequal q63b-3] $end $>Q63b-5< [within q63b] $d [none] <1-16> Refused [goto now-q63ros] Don't Know [goto now-q63ros] No more [goto now-q63ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q63b-1] [notequal q63b-2] [notequal q63b-3] [notequal q63b-4] $end $>Q63b-6< [within q63b] $d [none] <1-16> Refused [goto now-q63ros] Don't Know [goto now-q63ros] No more [goto now-q63ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q63b-1] [notequal q63b-2] [notequal q63b-3] [notequal q63b-4] [notequal q63b-5] $end $>Q63b-7< [within q63b] $d [none] <1-16> Refused [goto now-q63ros] Don't Know [goto now-q63ros] No more [goto now-q63ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q63b-1] [notequal q63b-2] [notequal q63b-3] [notequal q63b-4] [notequal q63b-5] [notequal q63b-6] $end $>Q63b-8< [within q63b] $d [none] <1-16> Refused [goto now-q63ros] Don't Know [goto now-q63ros] No more [goto now-q63ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q63b-1] [notequal q63b-2] [notequal q63b-3] [notequal q63b-4] [notequal q63b-5] [notequal q63b-6] [notequal q63b-7] $end $>Q63b-9< [within q63b] $d [none] <1-16> Refused [goto now-q63ros] Don't Know [goto now-q63ros] No more [goto now-q63ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q63b-1] [notequal q63b-2] [notequal q63b-3] [notequal q63b-4] [notequal q63b-5] [notequal q63b-6] [notequal q63b-7] [notequal Q63b-8] $end $>Q63b-10< [within q63b] $d [none] <1-16> Refused [goto now-q63ros] Don't Know [goto now-q63ros] No more [goto now-q63ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q63b-1] [notequal q63b-2] [notequal q63b-3] [notequal q63b-4] [notequal q63b-5] [notequal q63b-6] [notequal q63b-7] [notequal Q63b-8] [notequal Q63b-9] $end $>Q63b-11< [within q63b] $d [none] <1-16> Refused [goto now-q63ros] Don't Know [goto now-q63ros] No more [goto now-q63ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q63b-1] [notequal q63b-2] [notequal q63b-3] [notequal q63b-4] [notequal q63b-5] [notequal q63b-6] [notequal q63b-7] [notequal Q63b-8] [notequal Q63b-9] [notequal Q63b-10] $end $>Q63b-12< [within q63b] $d [none] <1-16> Refused [goto now-q63ros] Don't Know [goto now-q63ros] No more [goto now-q63ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q63b-1] [notequal q63b-2] [notequal q63b-3] [notequal q63b-4] [notequal q63b-5] [notequal q63b-6] [notequal q63b-7] [notequal Q63b-8] [notequal Q63b-9] [notequal Q63b-10] [notequal Q63b-11] $end $>Q63b-13< [within q63b] $d [none] <1-16> Refused [goto now-q63ros] Don't Know [goto now-q63ros] No more [goto now-q63ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q63b-1] [notequal q63b-2] [notequal q63b-3] [notequal q63b-4] [notequal q63b-5] [notequal q63b-6] [notequal q63b-7] [notequal Q63b-8] [notequal Q63b-9] [notequal Q63b-10] [notequal Q63b-11] [notequal Q63b-12] $end $>Q63b-14< [within q63b] $d [none] <1-16> Refused [goto now-q63ros] Don't Know [goto now-q63ros] No more [goto now-q63ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q63b-1] [notequal q63b-2] [notequal q63b-3] [notequal q63b-4] [notequal q63b-5] [notequal q63b-6] [notequal q63b-7] [notequal Q63b-8] [notequal Q63b-9] [notequal Q63b-10] [notequal Q63b-11] [notequal Q63b-12] [notequal Q63b-13] $end $>Q63b-15< [within q63b] $d [none] <1-16> Refused [goto now-q63ros] Don't Know [goto now-q63ros] No more [goto now-q63ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q63b-1] [notequal q63b-2] [notequal q63b-3] [notequal q63b-4] [notequal q63b-5] [notequal q63b-6] [notequal q63b-7] [notequal Q63b-8] [notequal Q63b-9] [notequal Q63b-10] [notequal Q63b-11] [notequal Q63b-12] [notequal Q63b-13] [notequal Q63b-14] $end $>Q63b-16< [within q63b] $d [none] <1-16> Refused [goto now-q63ros] Don't Know [goto now-q63ros] No more [goto now-q63ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q63b-1] [notequal q63b-2] [notequal q63b-3] [notequal q63b-4] [notequal q63b-5] [notequal q63b-6] [notequal q63b-7] [notequal Q63b-8] [notequal Q63b-9] [notequal Q63b-10] [notequal Q63b-11] [notequal Q63b-12] [notequal Q63b-13] [notequal Q63b-14] [notequal Q63b-15] $end ------------------------------------------------------------------------------ $>NOW-Q63ROS< [do index <1> <16>] [store <0> in Q63BLN(index)] [end do] [if onpath q63b-1 then convert q63b-1 character to Q63BLN(1) integer] [if onpath q63b-2 then convert q63b-2 character to Q63BLN(2) integer] [if onpath q63b-3 then convert q63b-3 character to Q63BLN(3) integer] [if onpath q63b-4 then convert q63b-4 character to Q63BLN(4) integer] [if onpath q63b-5 then convert q63b-5 character to Q63BLN(5) integer] [if onpath q63b-6 then convert q63b-6 character to Q63BLN(6) integer] [if onpath q63b-7 then convert q63b-7 character to Q63BLN(7) integer] [if onpath q63b-8 then convert q63b-8 character to Q63BLN(8) integer] [if onpath q63b-9 then convert q63b-9 character to Q63BLN(9) integer] [if onpath q63b-10 then convert q63b-10 character to Q63BLN(10) integer] [if onpath q63b-11 then convert q63b-11 character to Q63BLN(11) integer] [if onpath q63b-12 then convert q63b-12 character to Q63BLN(12) integer] [if onpath q63b-13 then convert q63b-13 character to Q63BLN(13) integer] [if onpath q63b-14 then convert q63b-14 character to Q63BLN(14) integer] [if onpath q63b-15 then convert q63b-15 character to Q63BLN(15) integer] [if onpath q63b-16 then convert q63b-16 character to Q63BLN(16) integer] [do index <1> <16>] [store <0> in tabindex(index)] [convert hhmem(index) character to tabindex(index) integer] [end do] [if NUMHOU eq <1> then tablook tabindex <1> Q63BLN(1)] [store <0> in Q63ROS_R_P] $end ---------------------------------------------------------------------------- $ROPEN>Q63ROS< $>AFT-Q63ROS< [goto q64a] $end ============================================================================== $RBEGIN>Q63ROS< [maxelt 16] ============================================================================== $>pre-q63c< [if R_P gt NROSIZ then roster exit] [store <0> in index] [tablook Q63BLN q63ros_R_P index] [if index eq <0> then roster loop] [if Q63BLN(index) nq R_P then roster loop] $end ----------------------------------------------------------------------------- $>Q63cp< [combine name(r_p) into temptext] [if R_P eq respli then store in temptext] [store < > in temp3] [do index <1> <16>] [if onpath Q63cp:index then store <{A} Already included> in temp3] [end do] $d >Q63cp< What is the easiest way for you to tell us how much [fill temptext] received in interest income; monthly, quarterly, or yearly? SEPARATE AMOUNTS FOR JOINT OWNERSHIP [fill temp3] None [goto C-Q63Ct] <1> Monthly <2> Quarterly <3> Yearly [blind] Don't know [goto C-Q63CT] Refused [goto C-Q63CT] Already included [goto C-Q63CT] ===>_ [goto Q63C] $end --------------------------------------------------------------------- $>Q63C< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store < > in temp2] [if Q63Cp(r_p) is <1> then store in temp2] [if Q63Cp(r_p) is <2> then store in temp2] [store < > in temp3] [do index <1> <16>] [if onpath Q63c:index then store <{A} Already included> in temp3] [end do] [store <1> in xbad(1)] $d >Q63C< How much did [fill temptext] receive [fill temp2] in interest from these sources during 1996, including even small amounts reinvested or credited to accounts? SEPARATE AMOUNTS FOR JOINT OWNERSHIP [fill temp3] None [goto C-Q63CT] Enter dollar amount: [blind] Don't Know [goto C-Q63CT] Refused [goto C-Q63CT] Refused [goto C-Q63CT] ===>$[N]_,___,___ $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>CK-Q63C< [NIF Q63Cp(r_p) is <3> then] [if onpath Q63Cp:r_p then goto Q63Cc1] [ENDIF] [goto Q63C2] $end --------------------------------------------------------------------- $>Q63C2< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store in temp2] [store <52> in xbad(1)] [store <{1-52}> in temp4] [NIF Q63Cp(r_p) is <1> then] [store in temp2] [store <12> in xbad(1)] [store <{1-12}> in temp4] [ELSEIF Q63Cp(r_p) is <2> then] [store in temp2] [store <4> in xbad(1)] [store <{1-4}> in temp4] [ENDIF] $d >Q63C2< How many [fill temp2] payments did [fill temptext] receive in interest income in 1996? [fill temp4] [blind] Don't Know [goto C-Q63CT] Refused [goto C-Q63CT] <1-12> ===>__ [goto Q63C3] $edit [notgreater xbad(1)] $end --------------------------------------------------------------------- $>Q63CC1< [store <0> in index] [NIF Q63C(R_P) isnt AND Q63C(R_P) isnt then] [if onpath Q63C:R_P then convert Q63C(R_P) character to index integer] [ENDIF] [IF index lt <10> then goto Q63CC2] [IF index gt <10000> then goto Q63CC2] [goto C-Q63CT] $end --------------------------------------------------------------------- $>Q63CC2< $d >Q63CC2< ***DO NOT READ TO THE RESPONDENT*** THE ANNUAL RATE APPEARS OUT OF RANGE. THE TOTAL INTEREST INCOME RECEIVED IN 1996 WAS [fill Q63C(R_P)]. IS THIS A CORRECT ENTRY? <1> Yes <2> No [backto Q63C:R_P] ===>_ [goto C-Q63Ct] $end --------------------------------------------------------------------- $>Q63C3< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store < > in Q63C3T(R_P)] [if onpath Q63C:R_P then convert Q63C(R_P) character to index integer] [if onpath Q63C2:R_P then convert Q63C2(R_P) character to index2 integer] [multiply index by index2] [convert index integer to Q63C3T(R_P) character] $d >Q63C3< According to my calculations [fill temptext] received $[fill Q63C3T(R_P)] dollars altogether from interest income in 1996. Does that sound about right? <1> Yes <2> No [goto Q63C4] [blind] Don't know Refused ===>_ [goto C-Q63CT] $end --------------------------------------------------------------------- $>Q63C4< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store in temp2] [if Q63Cp(r_p) is <1> then store in temp2] [if Q63Cp(r_p) is <2> then store in temp2] [store <1> in xbad(1)] $d >Q63C4< What is your best estimate of the correct amount [fill temptext] received from interest income payments during 1996? PREVIOUS ENTRIES: Q63C: $[fill Q63C(R_P)] Q63CP: [fill temp2] Q63C2: [fill Q63C2(R_P)] Enter dollar amount: [blind] Don't know Refused ===>$[N]_,___,___ $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>C-Q63CT< CALCULATES Q63CT [store < > IN Q63CT(R_P)] [NIF Q63Cp(R_P) is <3> then] [if onpath Q63Cp:R_P then store Q63C(R_P) in Q63CT(R_P)] [ENDIF] [store <0> in index2] [NIF Q63cp(R_P) is <1> OR Q63cp(R_P) is <2> then] [if onpath Q63CP:R_P then store <1> in index2] [ENDIF] [NIF Q63C3(R_P) is <1> AND index2 eq <1> then] [if onpath Q63C3:R_P then store Q63C3T(R_P) in Q63CT(R_P)] [ELSEIF Q63C3(R_P) is AND index2 eq <1> then] [if onpath Q63C3:R_P then store Q63C3T(R_P) in Q63CT(R_P)] [ELSEIF Q63C3(R_P) is AND index2 eq <1> then] [if onpath Q63C3:R_P then store Q63C3T(R_P) in Q63CT(R_P)] [ENDIF] [NIF Q63C4(R_P) isnt AND Q63C4(R_P) isnt then] [if onpath Q63C4:R_P then add <10> to index2] [ENDIF] [NIF Q63C3(R_P) is <2> AND index2 eq <11> then] [if onpath Q63C3:R_P then store Q63C4(R_P) in Q63CT(R_P)] [ELSEIF Q63C3(R_P) is <2> AND index2 eq <1> then] [if onpath Q63C3:R_P then store Q63C3T(R_P) in Q63CT(R_P)] [ENDIF] [NIF Q63Cp(R_P) is then] [if onpath Q63Cp:R_P then store in Q63CT(R_P)] [ENDIF] [NIF Q63C(R_P) is then] [if onpath Q63C:R_P then store in Q63CT(R_P)] [ENDIF] [NIF Q63C2(R_P) is then] [if onpath Q63C2:R_P then store in Q63CT(R_P)] [ENDIF] [NIF Q63Cp(R_P) is then] [if onpath Q63Cp:R_P then store in Q63CT(R_P)] [ENDIF] [NIF Q63C(R_P) is then] [if onpath Q63C:R_P then store in Q63CT(R_P)] [ENDIF] [roster loop] $end ---------------------------------------------------------------------- ============================================================================== $REND>Q63ROS< ============================================================================== Comment: This is item 67a in the 1989 CPS-665. $>Q64a< [store <0> in index] [if Q63A1 isnt <1> then add <1> to index] [if Q63A2 isnt <1> then add <1> to index] [if Q63A3 isnt <1> then add <1> to index] [store in temptext] [store in temp2] [if NUMHOU eq <1> then store in temp2] [store in temp3] [NIF index eq <3> then] [store < > in temptext] [store < > in temp2] [store in temp3] [ENDIF] $d >Q64a< [fill temptext] [fill temp2] [fill temp3] any shares of stock in corporations (PAUSE) or any mutual fund shares? <1> Yes [if NUMHOU eq <1> then goto now-q64ros] [goto q64b] <2> No [blind] Refused Don't Know ===>_ [goto q65a] $end ------------------------------------------------------------------------------ Comment: This is item 64e in the 1989 CPS-665. $>Q64b< [multiple q64b-1 q64b-2 q64b-3 q64b-4 q64b-5 q64b-6 q64b-7 q64b-8] [multiple q64b-9 q64b-10 q64b-11 q64b-12 q64b-13 q64b-14 q64b-15 q64b-16] [indirect] [do index <1> <16>] [store < > in tempname(index)] [store < > in xbad(index)] [NIF AGERNG(index) lt <2> then] [convert index integer to xbad(index) character] [ELSEIF hhmem(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <9> then] [convert index integer to xbad(index) character] [ELSEIF PELIG(index) eq <12> OR hhmem(index) is <3> then] [convert index integer to xbad(index) character] [ENDIF] [end do] [do index <1> NROSIZ] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to tempname(index)(2:2) character] [ELSEIF index2 ge <10> then] [convert index2 integer to tempname(index)(1:2) character] [ENDIF] [store name(index) in tempname(index)(4:27)] [store relation(index) in tempname(index)(29:37)] [store <0> in index4] [convert xbad(index) character to index4 integer] [if index4 gt <0> then store < > in tempname(index)] [end do] $itemtable >Q64b< **ASK ONLY IF NECESSARY** Which members of this household? INCLUDE EACH PERSON IN CASE OF JOINT OWNERSHIP LN NAME RELATION LN NAME RELATION [fill/l tempname(1)] [fill tempname(9)] [fill/l tempname(2)] [fill tempname(10)] [fill/l tempname(3)] [fill tempname(11)] [fill/l tempname(4)] [fill tempname(12)] [fill/l tempname(5)] [fill tempname(13)] [fill/l tempname(6)] [fill tempname(14)] [fill/l tempname(7)] [fill tempname(15)] [fill/l tempname(8)] [fill tempname(16)] ENTER LINE NUMBER No more PROBE: Anyone else? ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ $end ----------------------------------------------------------------------------- $>Q64b-1< [within q64b] $d [none] <1-16> Refused [goto q65a] Don't Know [goto q65a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end $>Q64b-2< [within q64b] $d [none] <1-16> Refused [goto now-q64ros] Don't Know [goto now-q64ros] No more [goto now-q64ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q64b-1] $end $>Q64b-3< [within q64b] $d [none] <1-16> Refused [goto now-q64ros] Don't Know [goto now-q64ros] No more [goto now-q64ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q64b-1] [notequal q64b-2] $end $>Q64b-4< [within q64b] $d [none] <1-16> Refused [goto now-q64ros] Don't Know [goto now-q64ros] No more [goto now-q64ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q64b-1] [notequal q64b-2] [notequal q64b-3] $end $>Q64b-5< [within q64b] $d [none] <1-16> Refused [goto now-q64ros] Don't Know [goto now-q64ros] No more [goto now-q64ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q64b-1] [notequal q64b-2] [notequal q64b-3] [notequal q64b-4] $end $>Q64b-6< [within q64b] $d [none] <1-16> Refused [goto now-q64ros] Don't Know [goto now-q64ros] No more [goto now-q64ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q64b-1] [notequal q64b-2] [notequal q64b-3] [notequal q64b-4] [notequal q64b-5] $end $>Q64b-7< [within q64b] $d [none] <1-16> Refused [goto now-q64ros] Don't Know [goto now-q64ros] No more [goto now-q64ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q64b-1] [notequal q64b-2] [notequal q64b-3] [notequal q64b-4] [notequal q64b-5] [notequal q64b-6] $end $>Q64b-8< [within q64b] $d [none] <1-16> Refused [goto now-q64ros] Don't Know [goto now-q64ros] No more [goto now-q64ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q64b-1] [notequal q64b-2] [notequal q64b-3] [notequal q64b-4] [notequal q64b-5] [notequal q64b-6] [notequal q64b-7] $end $>Q64b-9< [within q64b] $d [none] <1-16> Refused [goto now-q64ros] Don't Know [goto now-q64ros] No more [goto now-q64ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q64b-1] [notequal q64b-2] [notequal q64b-3] [notequal q64b-4] [notequal q64b-5] [notequal q64b-6] [notequal q64b-7] [notequal Q64b-8] $end $>Q64b-10< [within q64b] $d [none] <1-16> Refused [goto now-q64ros] Don't Know [goto now-q64ros] No more [goto now-q64ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q64b-1] [notequal q64b-2] [notequal q64b-3] [notequal q64b-4] [notequal q64b-5] [notequal q64b-6] [notequal q64b-7] [notequal Q64b-8] [notequal Q64b-9] $end $>Q64b-11< [within q64b] $d [none] <1-16> Refused [goto now-q64ros] Don't Know [goto now-q64ros] No more [goto now-q64ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q64b-1] [notequal q64b-2] [notequal q64b-3] [notequal q64b-4] [notequal q64b-5] [notequal q64b-6] [notequal q64b-7] [notequal Q64b-8] [notequal Q64b-9] [notequal Q64b-10] $end $>Q64b-12< [within q64b] $d [none] <1-16> Refused [goto now-q64ros] Don't Know [goto now-q64ros] No more [goto now-q64ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q64b-1] [notequal q64b-2] [notequal q64b-3] [notequal q64b-4] [notequal q64b-5] [notequal q64b-6] [notequal q64b-7] [notequal Q64b-8] [notequal Q64b-9] [notequal Q64b-10] [notequal Q64b-11] $end $>Q64b-13< [within q64b] $d [none] <1-16> Refused [goto now-q64ros] Don't Know [goto now-q64ros] No more [goto now-q64ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q64b-1] [notequal q64b-2] [notequal q64b-3] [notequal q64b-4] [notequal q64b-5] [notequal q64b-6] [notequal q64b-7] [notequal Q64b-8] [notequal Q64b-9] [notequal Q64b-10] [notequal Q64b-11] [notequal Q64b-12] $end $>Q64b-14< [within q64b] $d [none] <1-16> Refused [goto now-q64ros] Don't Know [goto now-q64ros] No more [goto now-q64ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q64b-1] [notequal q64b-2] [notequal q64b-3] [notequal q64b-4] [notequal q64b-5] [notequal q64b-6] [notequal q64b-7] [notequal Q64b-8] [notequal Q64b-9] [notequal Q64b-10] [notequal Q64b-11] [notequal Q64b-12] [notequal Q64b-13] $end $>Q64b-15< [within q64b] $d [none] <1-16> Refused [goto now-q64ros] Don't Know [goto now-q64ros] No more [goto now-q64ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q64b-1] [notequal q64b-2] [notequal q64b-3] [notequal q64b-4] [notequal q64b-5] [notequal q64b-6] [notequal q64b-7] [notequal Q64b-8] [notequal Q64b-9] [notequal Q64b-10] [notequal Q64b-11] [notequal Q64b-12] [notequal Q64b-13] [notequal Q64b-14] $end $>Q64b-16< [within q64b] $d [none] <1-16> Refused [goto now-q64ros] Don't Know [goto now-q64ros] No more [goto now-q64ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q64b-1] [notequal q64b-2] [notequal q64b-3] [notequal q64b-4] [notequal q64b-5] [notequal q64b-6] [notequal q64b-7] [notequal Q64b-8] [notequal Q64b-9] [notequal Q64b-10] [notequal Q64b-11] [notequal Q64b-12] [notequal Q64b-13] [notequal Q64b-14] [notequal Q64b-15] $end ------------------------------------------------------------------------------ $>NOW-Q64ROS< [do index <1> <16>] [store <0> in Q64BLN(index)] [end do] [if onpath q64b-1 then convert q64b-1 character to Q64BLN(1) integer] [if onpath q64b-2 then convert q64b-2 character to Q64BLN(2) integer] [if onpath q64b-3 then convert q64b-3 character to Q64BLN(3) integer] [if onpath q64b-4 then convert q64b-4 character to Q64BLN(4) integer] [if onpath q64b-5 then convert q64b-5 character to Q64BLN(5) integer] [if onpath q64b-6 then convert q64b-6 character to Q64BLN(6) integer] [if onpath q64b-7 then convert q64b-7 character to Q64BLN(7) integer] [if onpath q64b-8 then convert q64b-8 character to Q64BLN(8) integer] [if onpath q64b-9 then convert q64b-9 character to Q64BLN(9) integer] [if onpath q64b-10 then convert q64b-10 character to Q64BLN(10) integer] [if onpath q64b-11 then convert q64b-11 character to Q64BLN(11) integer] [if onpath q64b-12 then convert q64b-12 character to Q64BLN(12) integer] [if onpath q64b-13 then convert q64b-13 character to Q64BLN(13) integer] [if onpath q64b-14 then convert q64b-14 character to Q64BLN(14) integer] [if onpath q64b-15 then convert q64b-15 character to Q64BLN(15) integer] [if onpath q64b-16 then convert q64b-16 character to Q64BLN(16) integer] [do index <1> <16>] [store <0> in tabindex(index)] [convert hhmem(index) character to tabindex(index) integer] [end do] [if NUMHOU eq <1> then tablook tabindex <1> Q64BLN(1)] [store <0> in Q64ROS_R_P] $end ----------------------------------------------------------------------------- $ROPEN>Q64ROS< $>AFT-Q64ROS< [goto q65a] $end ============================================================================== $RBEGIN>Q64ROS< [maxelt 16] ============================================================================== $>pre-q64c< [if R_P gt NROSIZ then roster exit] [store <0> in index] [tablook Q64BLN q64ros_R_P index] [if index eq <0> then roster loop] [if Q64BLN(index) nq R_P then roster loop] $end ----------------------------------------------------------------------------- $>Q64cp< [combine name(r_p) <'s> into temptext] [if R_P eq respli then store in temptext] [store < > in temp3] [do index <1> <16>] [if onpath Q64cp:index then store <{A} Already included> in temp3] [end do] $d >Q64cp< What is the easiest way for you to tell us [fill temptext] dividend income; quarterly, monthly or yearly? SEPARATE AMOUNTS FOR JOINT OWNERSHIP [fill temp3] None [goto C-Q64Ct] <1> Monthly <2> Quarterly <3> Yearly [blind] Don't know [goto C-Q64CT] Refused [goto C-Q64CT] Already included [goto C-Q64CT] ===>_ [goto Q64C] $end --------------------------------------------------------------------- $>Q64C< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store < > in temp2] [if Q64Cp(r_p) is <1> then store in temp2] [if Q64Cp(r_p) is <2> then store in temp2] [store < > in temp3] [do index <1> <16>] [if onpath Q64c:index then store <{A} Already included> in temp3] [end do] [store <1> in xbad(1)] $d >Q64C< How much did [fill temptext] receive [fill temp2] in dividends from stocks (mutual funds) during 1996, including dividends that were reinvested? SEPARATE AMOUNTS FOR JOINT OWNERSHIP [fill temp3] None [goto C-Q64CT] Enter dollar amount: [blind] Don't Know [goto C-Q64CT] Refused [goto C-Q64CT] [goto C-Q64CT] ===>$[N]_,___,___ $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>CK-Q64C< [NIF Q64Cp(r_p) is <3> then] [if onpath Q64Cp:r_p then goto Q64Cc1] [ENDIF] [goto Q64C2] $end --------------------------------------------------------------------- $>Q64C2< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [NIF Q64Cp(r_p) is <1> then] [store in temp2] [store <12> in xbad(1)] [store <{1-12}> in temp4] [ELSEIF Q64Cp(r_p) is <2> then] [store in temp2] [store <4> in xbad(1)] [store <{1-4}> in temp4] [ENDIF] $d >Q64C2< How many [fill temp2] payments did [fill temptext] receive in dividends from stocks (mutual funds) in 1996? [fill temp4] [blind] Don't Know [goto C-Q64CT] Refused [goto C-Q64CT] <1-52> ===>__ [goto Q64C3] $edit [notgreater xbad(1)] $end --------------------------------------------------------------------- $>Q64CC1< [store <0> in index] [NIF Q64C(R_P) isnt AND Q64C(R_P) isnt then] [if onpath Q64C:R_P then convert Q64C(R_P) character to index integer] [ENDIF] [IF index lt <10> then goto Q64CC2] [IF index gt <10000> then goto Q64CC2] [goto C-Q64CT] $end --------------------------------------------------------------------- $>Q64CC2< $d >Q64CC2< ***DO NOT READ TO THE RESPONDENT*** THE ANNUAL RATE APPEARS OUT OF RANGE. THE TOTAL DIVIDEND PAYMENTS RECEIVED IN 1996 WAS [fill Q64C(R_P)]. IS THIS A CORRECT ENTRY? <1> Yes <2> No [backto Q64C:R_P] ===>_ [goto C-Q64Ct] $end --------------------------------------------------------------------- $>Q64C3< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store < > in Q64C3T(R_P)] [if onpath Q64C:R_P then convert Q64C(R_P) character to index integer] [if onpath Q64C2:R_P then convert Q64C2(R_P) character to index2 integer] [multiply index by index2] [convert index integer to Q64C3T(R_P) character] $d >Q64C3< According to my calculations [fill temptext] received $[fill Q64C3T(R_P)] dollars altogether from dividend payments in 1996. Does that sound about right? <1> Yes <2> No [goto Q64C4] [blind] Don't know Refused ===>_ [goto C-Q64CT] $end --------------------------------------------------------------------- $>Q64C4< [store name(r_p) in temptext] [if r_p eq respli then store in temptext] [store in temp2] [if Q64Cp(r_p) is <1> then store in temp2] [if Q64Cp(r_p) is <2> then store in temp2] [store <1> in xbad(1)] $d >Q64C4< What is your best estimate of the correct amount [fill temptext] received from dividend payments during 1996? PREVIOUS ENTRIES: Q64C: $[fill Q64C(R_P)] Q64CP: [fill temp2] Q64C2: [fill Q64C2(R_P)] Enter dollar amount: [blind] Don't know Refused ===>$[N]_,___,___ $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>C-Q64CT< CALCULATES Q64CT [store < > IN Q64CT(R_P)] [NIF Q64Cp(R_P) is <3> then] [if onpath Q64Cp:R_P then store Q64C(R_P) in Q64CT(R_P)] [ENDIF] [store <0> in index2] [NIF Q64cp(R_P) is <1> OR Q64cp(R_P) is <2> then] [if onpath Q64CP:R_P then store <1> in index2] [ENDIF] [NIF Q64C3(R_P) is <1> AND index2 eq <1> then] [if onpath Q64C3:R_P then store Q64C3T(R_P) in Q64CT(R_P)] [ELSEIF Q64C3(R_P) is AND index2 eq <1> then] [if onpath Q64C3:R_P then store Q64C3T(R_P) in Q64CT(R_P)] [ELSEIF Q64C3(R_P) is AND index2 eq <1> then] [if onpath Q64C3:R_P then store Q64C3T(R_P) in Q64CT(R_P)] [ENDIF] [NIF Q64C4(R_P) isnt AND Q64C4(R_P) isnt then] [if onpath Q64C4:R_P then add <10> to index2] [ENDIF] [NIF Q64C3(R_P) is <2> AND index2 eq <11> then] [if onpath Q64C3:R_P then store Q64C4(R_P) in Q64CT(R_P)] [ELSEIF Q64C3(R_P) is <2> AND index2 eq <1> then] [if onpath Q64C3:R_P then store Q64C3T(R_P) in Q64CT(R_P)] [ENDIF] [NIF Q64Cp(R_P) is then] [if onpath Q64Cp:R_P then store in Q64CT(R_P)] [ENDIF] [NIF Q64C(R_P) is then] [if onpath Q64C:R_P then store in Q64CT(R_P)] [ENDIF] [NIF Q64C2(R_P) is then] [if onpath Q64C2:R_P then store in Q64CT(R_P)] [ENDIF] [NIF Q64Cp(R_P) is then] [if onpath Q64Cp:R_P then store in Q64CT(R_P)] [ENDIF] [NIF Q64C(R_P) is then] [if onpath Q64C:R_P then store in Q64CT(R_P)] [ENDIF] [roster loop] $end ---------------------------------------------------------------------- ============================================================================= $REND>Q64ROS< ============================================================================= Comment: This is item 68a in the 1989 CPS-665. $>Q65a< [multiple Q65A1 Q65A2 Q65A3] [NIF NUMHOU eq <1> then] [store in temptext] [ELSE] [store in temptext] [ENDIF] $itemtable Q65A1 During 1996 did [fill temptext]: Own any land, business property, apartments, or houses which were rented to others? <1> Yes <2> No ===>_ Q65A2 Receive income from royalties or from roomers or boarders? (exclude amounts paid by relatives) <1> Yes <2> No ===>_ Q65A3 Receive income from estates or trusts? (exclude estates or trusts already reported) <1> Yes <2> No ===>_ $end ------------------------------------------------------------------------------ $>Q65A1< [within q65a] $d [none] <1> Yes <2> No Refused [goto q66a] Don't Know $end $>Q65A2< [within q65a] [indirect] $d [none] <1> Yes <2> No Refused [goto q66a] Don't Know $end $>Q65A3< [within q65a] $d [none] <1> Yes <2> No Refused Don't Know $end ------------------------------------------------------------------------------ COMMENT: DELETED CODING FOR NUMHOU EQ 1 BECAUSE IT MESSES UP ONPATH TESTS CMC 2/90 Comment: Revised 3/88 $>pre-q65b< [store <0> in index] [if Q65A1 is <1> then add <1> to index] [if Q65A2 is <1> then add <1> to index] [if Q65A3 is <1> then add <1> to index] [NIF index ge <1> AND NUMHOU nq <1> then] [goto q65b] [ELSEIF index ge <1> AND NUMHOU eq <1> then] [goto now-q65ros] [ENDIF] [goto q66a] $end ------------------------------------------------------------------------------ Comment: This is item 68b in the 1988 CPS-665. $>Q65b< [multiple q65b-1 q65b-2 q65b-3 q65b-4 q65b-5 q65b-6 q65b-7 q65b-8] [multiple q65b-9 q65b-10 q65b-11 q65b-12 q65b-13 q65b-14 q65b-15 q65b-16] [indirect] [do index <1> <16>] [store < > in tempname(index)] [store < > in xbad(index)] [NIF AGERNG(index) lt <2> then] [convert index integer to xbad(index) character] [ELSEIF hhmem(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <9> then] [convert index integer to xbad(index) character] [ELSEIF PELIG(index) eq <12> OR hhmem(index) is <3> then] [convert index integer to xbad(index) character] [ENDIF] [end do] [do index <1> NROSIZ] [if IO1COW(index) is <7> then store in tempname(index)(1:1)] [if IO1COW(index) is <11> then store in tempname(index)(1:1)] [if Q47E1b(index) is <2> then store in tempname(index)(1:1)] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to tempname(index)(5:5) character] [ELSEIF index2 ge <10> then] [convert index2 integer to tempname(index)(4:5) character] [ENDIF] [store name(index) in tempname(index)(7:30)] [store <0> in index4] [convert xbad(index) character to index4 integer] [if index4 gt <0> then store < > in tempname(index)] [end do] [store in temp2] [store <0> in index4] [if Q65A1 is <1> then store <1> in index4] [if Q65A2 is <1> then store <0> in index4] [if Q65A3 is <1> then store <0> in index4] [if index4 eq <1> then store in temp2] $itemtable >Q65b< **ASK ONLY IF NECESSARY** Who received this [fill temp2]? INCLUDE EACH IN CASES OF JOINT OWNERSHIP FOR SELF-EMPLOYED PERSONS, DETERMINE IF INCOME WAS ALREADY INCLUDED SE LN NAME SE LN NAME [fill/l tempname(1)] [fill tempname(9)] [fill/l tempname(2)] [fill tempname(10)] [fill/l tempname(3)] [fill tempname(11)] [fill/l tempname(4)] [fill tempname(12)] [fill/l tempname(5)] [fill tempname(13)] [fill/l tempname(6)] [fill tempname(14)] [fill/l tempname(7)] [fill tempname(15)] [fill/l tempname(8)] [fill tempname(16)] (Help) Self-employed income previously reported [referto self-emply] ENTER LINE NUMBER No more PROBE: Anyone else? ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ $end ----------------------------------------------------------------------------- $>Q65b-1< [within q65b] $d [none] <1-16> Refused [goto q66a] Don't Know [goto q66a] Help [referto self-emply] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end $>Q65b-2< [within q65b] $d [none] <1-16> Refused [goto now-q65ros] Don't Know [goto now-q65ros] No more [goto now-q65ros] Help [referto self-emply] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q65b-1] $end $>Q65b-3< [within q65b] $d [none] <1-16> Refused [goto now-q65ros] Don't Know [goto now-q65ros] No more [goto now-q65ros] Help [referto self-emply] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q65b-1] [notequal q65b-2] $end $>Q65b-4< [within q65b] $d [none] <1-16> Refused [goto now-q65ros] Don't Know [goto now-q65ros] No more [goto now-q65ros] Help [referto self-emply] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q65b-1] [notequal q65b-2] [notequal q65b-3] $end $>Q65b-5< [within q65b] $d [none] <1-16> Refused [goto now-q65ros] Don't Know [goto now-q65ros] No more [goto now-q65ros] Help [referto self-emply] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q65b-1] [notequal q65b-2] [notequal q65b-3] [notequal q65b-4] $end $>Q65b-6< [within q65b] $d [none] <1-16> Refused [goto now-q65ros] Don't Know [goto now-q65ros] No more [goto now-q65ros] Help [referto self-emply] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q65b-1] [notequal q65b-2] [notequal q65b-3] [notequal q65b-4] [notequal q65b-5] $end $>Q65b-7< [within q65b] $d [none] <1-16> Refused [goto now-q65ros] Don't Know [goto now-q65ros] No more [goto now-q65ros] Help [referto self-emply] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q65b-1] [notequal q65b-2] [notequal q65b-3] [notequal q65b-4] [notequal q65b-5] [notequal q65b-6] $end $>Q65b-8< [within q65b] $d [none] <1-16> Refused [goto now-q65ros] Don't Know [goto now-q65ros] No more [goto now-q65ros] Help [referto self-emply] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q65b-1] [notequal q65b-2] [notequal q65b-3] [notequal q65b-4] [notequal q65b-5] [notequal q65b-6] [notequal q65b-7] $end $>Q65b-9< [within q65b] $d [none] <1-16> Refused [goto now-q65ros] Don't Know [goto now-q65ros] No more [goto now-q65ros] Help [referto self-emply] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q65b-1] [notequal q65b-2] [notequal q65b-3] [notequal q65b-4] [notequal q65b-5] [notequal q65b-6] [notequal q65b-7] [notequal Q65b-8] $end $>Q65b-10< [within q65b] $d [none] <1-16> Refused [goto now-q65ros] Don't Know [goto now-q65ros] No more [goto now-q65ros] Help [referto self-emply] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q65b-1] [notequal q65b-2] [notequal q65b-3] [notequal q65b-4] [notequal q65b-5] [notequal q65b-6] [notequal q65b-7] [notequal Q65b-8] [notequal Q65b-9] $end $>Q65b-11< [within q65b] $d [none] <1-16> Refused [goto now-q65ros] Don't Know [goto now-q65ros] No more [goto now-q65ros] Help [referto self-emply] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q65b-1] [notequal q65b-2] [notequal q65b-3] [notequal q65b-4] [notequal q65b-5] [notequal q65b-6] [notequal q65b-7] [notequal Q65b-8] [notequal Q65b-9] [notequal Q65b-10] $end $>Q65b-12< [within q65b] $d [none] <1-16> Refused [goto now-q65ros] Don't Know [goto now-q65ros] No more [goto now-q65ros] Help [referto self-emply] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q65b-1] [notequal q65b-2] [notequal q65b-3] [notequal q65b-4] [notequal q65b-5] [notequal q65b-6] [notequal q65b-7] [notequal Q65b-8] [notequal Q65b-9] [notequal Q65b-10] [notequal Q65b-11] $end $>Q65b-13< [within q65b] $d [none] <1-16> Refused [goto now-q65ros] Don't Know [goto now-q65ros] No more [goto now-q65ros] Help [referto self-emply] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q65b-1] [notequal q65b-2] [notequal q65b-3] [notequal q65b-4] [notequal q65b-5] [notequal q65b-6] [notequal q65b-7] [notequal Q65b-8] [notequal Q65b-9] [notequal Q65b-10] [notequal Q65b-11] [notequal Q65b-12] $end $>Q65b-14< [within q65b] $d [none] <1-16> Refused [goto now-q65ros] Don't Know [goto now-q65ros] No more [goto now-q65ros] Help [referto self-emply] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q65b-1] [notequal q65b-2] [notequal q65b-3] [notequal q65b-4] [notequal q65b-5] [notequal q65b-6] [notequal q65b-7] [notequal Q65b-8] [notequal Q65b-9] [notequal Q65b-10] [notequal Q65b-11] [notequal Q65b-12] [notequal Q65b-13] $end $>Q65b-15< [within q65b] $d [none] <1-16> Refused [goto now-q65ros] Don't Know [goto now-q65ros] No more [goto now-q65ros] Help [referto self-emply] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q65b-1] [notequal q65b-2] [notequal q65b-3] [notequal q65b-4] [notequal q65b-5] [notequal q65b-6] [notequal q65b-7] [notequal Q65b-8] [notequal Q65b-9] [notequal Q65b-10] [notequal Q65b-11] [notequal Q65b-12] [notequal Q65b-13] [notequal Q65b-14] $end $>Q65b-16< [within q65b] $d [none] <1-16> Refused [goto now-q65ros] Don't Know [goto now-q65ros] No more [goto now-q65ros] Help [referto self-emply] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q65b-1] [notequal q65b-2] [notequal q65b-3] [notequal q65b-4] [notequal q65b-5] [notequal q65b-6] [notequal q65b-7] [notequal Q65b-8] [notequal Q65b-9] [notequal Q65b-10] [notequal Q65b-11] [notequal Q65b-12] [notequal Q65b-13] [notequal Q65b-14] [notequal Q65b-15] $end ------------------------------------------------------------------------------ $>NOW-Q65ROS< [do index <1> <16>] [store <0> in Q65BLN(index)] [end do] [if onpath q65b-1 then convert q65b-1 character to Q65BLN(1) integer] [if onpath q65b-2 then convert q65b-2 character to Q65BLN(2) integer] [if onpath q65b-3 then convert q65b-3 character to Q65BLN(3) integer] [if onpath q65b-4 then convert q65b-4 character to Q65BLN(4) integer] [if onpath q65b-5 then convert q65b-5 character to Q65BLN(5) integer] [if onpath q65b-6 then convert q65b-6 character to Q65BLN(6) integer] [if onpath q65b-7 then convert q65b-7 character to Q65BLN(7) integer] [if onpath q65b-8 then convert q65b-8 character to Q65BLN(8) integer] [if onpath q65b-9 then convert q65b-9 character to Q65BLN(9) integer] [if onpath q65b-10 then convert q65b-10 character to Q65BLN(10) integer] [if onpath q65b-11 then convert q65b-11 character to Q65BLN(11) integer] [if onpath q65b-12 then convert q65b-12 character to Q65BLN(12) integer] [if onpath q65b-13 then convert q65b-13 character to Q65BLN(13) integer] [if onpath q65b-14 then convert q65b-14 character to Q65BLN(14) integer] [if onpath q65b-15 then convert q65b-15 character to Q65BLN(15) integer] [if onpath q65b-16 then convert q65b-16 character to Q65BLN(16) integer] [do index <1> <16>] [store <0> in tabindex(index)] [convert hhmem(index) character to tabindex(index) integer] [end do] [if NUMHOU eq <1> then tablook tabindex <1> Q65BLN(1)] [store <0> in Q65ROS_R_P] $end ------------------------------------------------------------------------------ $ROPEN>Q65ROS< $>AFT-Q65ROS< [goto q66a] $end ============================================================================== $RBEGIN>Q65ROS< [maxelt 16] ============================================================================== $>pre-q65c< [if R_P gt NROSIZ then roster exit] [store <0> in index] [tablook Q65BLN q65ros_R_P index] [if index eq <0> then roster loop] [if Q65BLN(index) nq R_P then roster loop] $end ------------------------------------------------------------------------------- $>Q65c< [store < > in Q65CT(R_P)] [store <1> in xbad(1)] [store name(r_p) in temptext] [if R_P eq respli then store in temptext] [NIF Q65A2 is <1> AND Q65A3 is <1> then] [store <, roomers or boarders, estates, trusts, or royalties> in temp2] [ELSEIF Q65A2 is <1> AND Q65A3 isnt <1> then] [store <, roomers or boarders, or royalties> in temp2] [ELSEIF Q65A2 isnt <1> AND Q65A3 is <1> then] [store <, estates or trusts> in temp2] [ELSE] [store < > in temp2] [ENDIF] [store < > in temp3] [do index <1> <16>] [if onpath Q65c:index then store <{A} Already included> in temp3] [end do] $d >Q65c< How much did [fill temptext] receive in income from rent[fill temp2] AFTER EXPENSES during 1996? SEPARATE AMOUNTS FOR JOINT OWNERSHIP IF RESPONSE IS "BROKE EVEN" THEN ENTER 1. [fill temp3] Lost [goto Q65CL] None [goto C-Q65Ct] Enter dollar amount: [blind] Don't know [goto C-Q65Ct] Refused [goto C-Q65Ct] Already included [goto C-Q65Ct] ===>$[N]_,___,___ .00 [if Q65c(R_P) is <1> then roster loop] [goto Q65CP] $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>Q65CL< [store <1> in xbad(1)] $d >Q65CL< ENTER AMOUNT OF MONEY LOST IN 1996. ENTER ANNUAL AMOUNT ONLY: [blind] Don't know [goto C-Q65Ct] Refused [goto C-Q65Ct] ===>$[N]_,___,___ [goto Q65CP] $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>Q65CP< $d >Q65CP< Is this an annual, quarterly, monthly, weekly, or other amount? <1> Annual [goto Q65CC1] <2> Quarterly <3> Monthly <4> Weekly <5> Other [blind] Don't know [goto C-Q65CT] Refused [goto C-Q65CT] ===>_ $end --------------------------------------------------------------------- $>Q65Ca< [NIF Q65C(R_P) isnt then] [if onpath Q65C:R_P then goto Q65C2] [ENDIF] [goto Q65C2L] $end --------------------------------------------------------------------- $>Q65CC1< [store <0> in index] [NIF Q65C(R_P) isnt then] [if onpath Q65C:R_P then convert Q65C(R_P) character to index integer] [ENDIF] [if onpath Q65CL:R_P then convert Q65CL(R_P) character to index integer] [if index lt <10> then goto Q65CC2] [if index gt <10000> then goto Q65CC2] [goto C-Q65CT] $end ---------------------------------------------------------------------------- $>Q65CC2< [if Q65CC2(R_P) is <2> then reset Q65CC2] [NIF Q65C(R_P) isnt then] [if onpath Q65C:R_P then store Q65C(R_P) in temp3] [ENDIF] [if onpath Q65CL:R_P then store Q65CL(R_P) in temp3] [NIF Q65A2 is <1> AND Q65A3 is <1> then] [store <, ROOMERS OR BOARDERS, ESTATES, TRUSTS, OR ROYALTIES> in temp2] [ELSEIF Q65A2 is <1> AND Q65A3 isnt <1> then] [store <, ROOMERS OR BOARDERS, OR ROYALTIES> in temp2] [ELSEIF Q65A2 isnt <1> AND Q65A3 is <1> then] [store <, ESTATES OR TRUSTS> in temp2] [ELSE] [store < > in temp2] [ENDIF] $d >Q65CC2< **** DO NOT READ TO THE RESPONDENT ***** THE ANNUAL RATE APPEARS OUT OF RANGE. THE TOTAL INCOME RECEIVED FROM RENT[fill temp2] WAS $[fill temp3] IN 1996. IS THIS A CORRECT ENTRY? <1> Yes [goto C-Q65CT] <2> No [if onpath Q65cL:R_P then backto Q65CL:R_P] [backto Q65C:R_P] ===>_ $end ---------------------------------------------------------------------------- $>Q65C2< [combine name(r_p) <'s> into temptext] [if r_p eq respli then store in temptext] [store in temp4] [if Q65CP(r_p) is <3> then store in temp4] [if Q65CP(r_p) is <4> then store in temp4] [if Q65CP(r_p) is <5> then store in temp4] [store <1> in xbad(1)] [NIF Q65A2 is <1> AND Q65A3 is <1> then] [store <, roomers or boarders, estates, trusts, or royalties> in temp2] [ELSEIF Q65A2 is <1> AND Q65A3 isnt <1> then] [store <, roomers or boarders, or royalties> in temp2] [ELSEIF Q65A2 isnt <1> AND Q65A3 is <1> then] [store <, estates or trusts> in temp2] [ELSE] [store < > in temp2] [ENDIF] $d >Q65C2< What is your best estimate of [fill temptext] ANNUAL net earnings from rent[fill temp2] AFTER EXPENSES in 1996? PREVIOUS ENTRIES: Q65C: $[fill Q65C(r_p)] Q65CP: [fill temp4] Enter dollar amount: [blind] Don't know Refused ===>$[N]_,___,___ [goto C-Q65CT] $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>Q65C2L< [combine name(r_p) <'s> into temptext] [if r_p eq respli then store in temptext] [store in temp4] [if Q65CP(r_p) is <3> then store in temp4] [if Q65CP(r_p) is <4> then store in temp4] [if Q65CP(r_p) is <5> then store in temp4] [NIF Q65A2 is <1> AND Q65A3 is <1> then] [store <, roomers or boarders, estates, trusts, or royalties> in temp2] [ELSEIF Q65A2 is <1> AND Q65A3 isnt <1> then] [store <, roomers or boarders, or royalties> in temp2] [ELSEIF Q65A2 isnt <1> AND Q65A3 is <1> then] [store <, estates or trusts> in temp2] [ELSE] [store < > in temp2] [ENDIF] [store <1> in xbad(1)] $d >Q65C2L< What is your best estimate of [fill temptext] ANNUAL LOSS from rent[fill temp2] AFTER EXPENSES in 1996? PREVIOUS ENTRIES: Q65CL: $[fill Q65Cl(r_p)] Q65CP: [fill temp4] Enter dollar amount: [blind] Don't know Refused ===>$[N]_,___,___ $edit [notless xbad(1)] [numeric] $end --------------------------------------------------------------------- $>C-Q65CT< [store < > in Q65CT(R_P)] [store < > in Q65CLO(R_P)] IF Q65C(R_P) is then roster loop ** changed by Thuan 11/16/96 ** IF Q65C(R_P) is then roster loop IF Q65C(R_P) is then roster loop [NIF Q65C(R_P) is <1> then] [if onpath Q65C:R_P then store <1> in Q65CT(R_P)] [ENDIF] [NIF Q65C(R_P) is then] [if onpath Q65C:R_P then store in Q65CT(R_P)] [if onpath Q65C:R_P then roster loop] [ENDIF] [NIF Q65C(R_P) is then] [if onpath Q65C:R_P then store in Q65CT(R_P)] [if onpath Q65C:R_P then roster loop] [ENDIF] [NIF Q65C(R_P) is then] [if onpath Q65C:R_P then store in Q65CT(R_P)] [if onpath Q65C:R_P then roster loop] [ENDIF] [NIF Q65C(R_P) is then] [if onpath Q65C:R_P then store in Q65CT(R_P)] [if onpath Q65C:R_P then roster loop] [ENDIF] *** [NIF Q65CP(R_P) is OR Q65CP(R_P) is then] [if onpath Q65CP:R_P then roster loop] [ENDIF] [NIF Q65C2(R_P) is then] [if onpath Q65C2:R_P then store in Q65CT(R_P)] [if onpath Q65C2:R_P then roster loop] [ENDIF] [store <0> in index] [NIF Q65CP(R_P) is <1> then] [if onpath Q65CP:R_P then store <1> in index] [ELSEIF Q65CP(R_P) isnt <1> then] [if onpath Q65CP:R_P then store <2> in index] [ENDIF] [NIF index eq <1> AND Q65C(R_P) isnt then] [If onpath Q65C:R_P then store Q65C(R_P) in Q65CT(R_P)] [ENDIF] [IF index eq <2> then store Q65C2(R_P) in Q65Ct(R_P)] [store <0> in index] [NIF Q65CP(R_P) is <1> then] [if onpath Q65CP:R_P then store <1> in index] [ELSEIF Q65CP(R_P) isnt <1> then] [if onpath Q65CP:R_P then store <2> in index] [ENDIF] [NIF index eq <1> AND Q65C(R_P) is then] [If onpath Q65C:R_P then store Q65Cl(R_P) in Q65CLO(R_P)] [ENDIF] [IF index eq <2> then store Q65C2L(R_P) in Q65CLO(R_P)] [roster loop] $end ---------------------------------------------------------------------- ============================================================================= $REND>Q65ROS< ============================================================================= Comment: This is item 69a in the 1989 CPS-665. $>Q66a< [store in temptext] [if NUMHOU eq <1> then store in temptext] $d >Q66a< During 1996 did [fill temptext] attend school beyond the high school level including a college, university, or other schools? (include vocational, business, or trade schools) <1> Yes [goto q66b] <2> No [blind] Refused Don't Know ===>_ [goto q70a] $end ----------------------------------------------------------------------------- Comment: This is item 69b in the 1989 CPS-665. COMMENT: DELETED CODING FOR NUMHOU EQ 1 BECAUSE IT MESSES UP ONPATH TESTS CMC 2/90 $>Q66b< [store in temptext] [if NUMHOU eq <1> then store in temptext] $display >Q66b< Did [fill temptext] receive any educational assistance for tuition, fees, books, or living expenses during 1996? EXCLUDE LOANS, ASSISTANCE FROM HOUSEHOLD MEMBERS, AND VA EDUCATIONAL BENEFITS <1> Yes [if NUMHOU eq <1> then goto now-q66ros] [goto q66c] <2> No [blind] Refused Don't Know ===>_ [goto q70a] $end ----------------------------------------------------------------------------- Comment: This is item 69c in the 1989 CPS-665. $>Q66c< [multiple q66c-1 q66c-2 q66c-3 q66c-4 q66c-5 q66c-6 q66c-7 q66c-8] [multiple q66c-9 q66c-10 q66c-11 q66c-12 q66c-13 q66c-14 q66c-15 q66c-16] [indirect] [do index <1> <16>] [store < > in tempname(index)] [store < > in xbad(index)] [NIF AGERNG(index) lt <2> then] [convert index integer to xbad(index) character] [ELSEIF hhmem(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <1> OR DELDEC(index) is <2> then] [convert index integer to xbad(index) character] [ELSEIF DELDEC(index) is <3> OR DELDEC(index) is <9> then] [convert index integer to xbad(index) character] [ELSEIF PELIG(index) eq <12> OR hhmem(index) is <3> then] [convert index integer to xbad(index) character] [ENDIF] [end do] [do index <1> NROSIZ] [store <0> in index2] [If LINENO(index) isnt < > then convert LINENO(index) character to index2 integer] [NIF index2 le <9> AND index2 ge <1> then] [convert index2 integer to tempname(index)(2:2) character] [ELSEIF index2 ge <10> then] [convert index2 integer to tempname(index)(1:2) character] [ENDIF] [store name(index) in tempname(index)(4:27)] [store relation(index) in tempname(index)(29:37)] [store <0> in index4] [convert xbad(index) character to index4 integer] [if index4 gt <0> then store < > in tempname(index)] [end do] $itemtable >Q66c **ASK ONLY IF NECESSARY** Which member received assistance? LN NAME RELATION LN NAME RELATION [fill/l tempname(1)] [fill tempname(9)] [fill/l tempname(2)] [fill tempname(10)] [fill/l tempname(3)] [fill tempname(11)] [fill/l tempname(4)] [fill tempname(12)] [fill/l tempname(5)] [fill tempname(13)] [fill/l tempname(6)] [fill tempname(14)] [fill/l tempname(7)] [fill tempname(15)] [fill/l tempname(8)] [fill tempname(16)] ENTER LINE NUMBER No more PROBE: Anyone else? ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ ===>__ $end ----------------------------------------------------------------------------- $>Q66c-1< [within q66c] $d [none] <1-16> Refused [goto q70a] Don't Know [goto q70a] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] $end $>Q66c-2< [within q66c] $d [none] <1-16> Refused [goto now-q66ros] Don't Know [goto now-q66ros] No more [goto now-q66ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q66c-1] $end $>Q66c-3< [within q66c] $d [none] <1-16> Refused [goto now-q66ros] Don't Know [goto now-q66ros] No more [goto now-q66ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q66c-1] [notequal q66c-2] $end $>Q66c-4< [within q66c] $d [none] <1-16> Refused [goto now-q66ros] Don't Know [goto now-q66ros] No more [goto now-q66ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q66c-1] [notequal q66c-2] [notequal q66c-3] $end $>Q66c-5< [within q66c] $d [none] <1-16> Refused [goto now-q66ros] Don't Know [goto now-q66ros] No more [goto now-q66ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q66c-1] [notequal q66c-2] [notequal q66c-3] [notequal q66c-4] $end $>Q66c-6< [within q66c] $d [none] <1-16> Refused [goto now-q66ros] Don't Know [goto now-q66ros] No more [goto now-q66ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q66c-1] [notequal q66c-2] [notequal q66c-3] [notequal q66c-4] [notequal q66c-5] $end $>Q66c-7< [within q66c] $d [none] <1-16> Refused [goto now-q66ros] Don't Know [goto now-q66ros] No more [goto now-q66ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q66c-1] [notequal q66c-2] [notequal q66c-3] [notequal q66c-4] [notequal q66c-5] [notequal q66c-6] $end $>Q66c-8< [within q66c] $d [none] <1-16> Refused [goto now-q66ros] Don't Know [goto now-q66ros] No more [goto now-q66ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q66c-1] [notequal q66c-2] [notequal q66c-3] [notequal q66c-4] [notequal q66c-5] [notequal q66c-6] [notequal q66c-7] $end $>Q66c-9< [within q66c] $d [none] <1-16> Refused [goto now-q66ros] Don't Know [goto now-q66ros] No more [goto now-q66ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q66c-1] [notequal q66c-2] [notequal q66c-3] [notequal q66c-4] [notequal q66c-5] [notequal q66c-6] [notequal q66c-7] [notequal Q66c-8] $end $>Q66c-10< [within q66c] $d [none] <1-16> Refused [goto now-q66ros] Don't Know [goto now-q66ros] No more [goto now-q66ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q66c-1] [notequal q66c-2] [notequal q66c-3] [notequal q66c-4] [notequal q66c-5] [notequal q66c-6] [notequal q66c-7] [notequal Q66c-8] [notequal Q66c-9] $end $>Q66c-11< [within q66c] $d [none] <1-16> Refused [goto now-q66ros] Don't Know [goto now-q66ros] No more [goto now-q66ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q66c-1] [notequal q66c-2] [notequal q66c-3] [notequal q66c-4] [notequal q66c-5] [notequal q66c-6] [notequal q66c-7] [notequal Q66c-8] [notequal Q66c-9] [notequal Q66c-10] $end $>Q66c-12< [within q66c] $d [none] <1-16> Refused [goto now-q66ros] Don't Know [goto now-q66ros] No more [goto now-q66ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q66c-1] [notequal q66c-2] [notequal q66c-3] [notequal q66c-4] [notequal q66c-5] [notequal q66c-6] [notequal q66c-7] [notequal Q66c-8] [notequal Q66c-9] [notequal Q66c-10] [notequal Q66c-11] $end $>Q66c-13< [within q66c] $d [none] <1-16> Refused [goto now-q66ros] Don't Know [goto now-q66ros] No more [goto now-q66ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q66c-1] [notequal q66c-2] [notequal q66c-3] [notequal q66c-4] [notequal q66c-5] [notequal q66c-6] [notequal q66c-7] [notequal Q66c-8] [notequal Q66c-9] [notequal Q66c-10] [notequal Q66c-11] [notequal Q66c-12] $end $>Q66c-14< [within q66c] $d [none] <1-16> Refused [goto now-q66ros] Don't Know [goto now-q66ros] No more [goto now-q66ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q66c-1] [notequal q66c-2] [notequal q66c-3] [notequal q66c-4] [notequal q66c-5] [notequal q66c-6] [notequal q66c-7] [notequal Q66c-8] [notequal Q66c-9] [notequal Q66c-10] [notequal Q66c-11] [notequal Q66c-12] [notequal Q66c-13] $end $>Q66c-15< [within q66c] $d [none] <1-16> Refused [goto now-q66ros] Don't Know [goto now-q66ros] No more [goto now-q66ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q66c-1] [notequal q66c-2] [notequal q66c-3] [notequal q66c-4] [notequal q66c-5] [notequal q66c-6] [notequal q66c-7] [notequal Q66c-8] [notequal Q66c-9] [notequal Q66c-10] [notequal Q66c-11] [notequal Q66c-12] [notequal Q66c-13] [notequal Q66c-14] $end $>Q66c-16< [within q66c] $d [none] <1-16> Refused [goto now-q66ros] Don't Know [goto now-q66ros] No more [goto now-q66ros] $edit [notequal xbad(1)] [notequal xbad(2)] [notequal xbad(3)] [notequal xbad(4)] [notequal xbad(5)] [notequal xbad(6)] [notequal xbad(7)] [notequal xbad(8)] [notequal xbad(9)] [notequal xbad(10)] [notequal xbad(11)] [notequal xbad(12)] [notequal xbad(13)] [notequal xbad(14)] [notequal xbad(15)] [notequal xbad(16)] [notequal q66c-1] [notequal q66c-2] [notequal q66c-3] [notequal q66c-4] [notequal q66c-5] [notequal q66c-6] [notequal q66c-7] [notequal Q66c-8] [notequal Q66c-9] [notequal Q66c-10] [notequal Q66c-11] [notequal Q66c-12] [notequal Q66c-13] [notequal Q66c-14] [notequal Q66c-15] $end ------------------------------------------------------------------------------ $>NOW-Q66ROS< [do index <1> <16>] [store <0> in Q66CLN(index)] [end do] [if onpath q66c-1 then convert q66c-1 character to Q66CLN(1) integer] [if onpath q66c-2 then convert q66c-2 character to Q66CLN(2) integer] [if onpath q66c-3 then convert q66c-3 character to Q66CLN(3) integer] [if onpath q66c-4 then convert q66c-4 character to Q66CLN(4) integer] [if onpath q66c-5 then convert q66c-5 character to Q66CLN(5) integer] [if onpath q66c-6 then convert q66c-6 character to Q66CLN(6) integer] [if onpath q66c-7 then convert q66c-7 character to Q66CLN(7) integer] [if onpath q66c-8 then convert q66c-8 character to Q66CLN(8) integer] [if onpath q66c-9 then convert q66c-9 character to Q66CLN(9) integer] [if onpath q66c-10 then convert q66c-10 character to Q66CLN(10) integer] [if onpath q66c-11 then convert q66c-11 character to Q66CLN(11) integer] [if onpath q66c-12 then convert q66c-12 character to Q66CLN(12) integer] [if onpath q66c-13 then convert q66c-13 character to Q66CLN(13) integer] [if onpath q66c-14 then convert q66c-14 character to Q66CLN(14) integer] [if onpath q66c-15 then convert q66c-15 character to Q66CLN(15) integer] [if onpath q66c-16 then convert q66c-16 character to Q66CLN(16) integer] [do index <1> <16>] [store <0> in tabindex(index)] [convert hhmem(index) character to tabindex(index) integer] [end do] [if NUMHOU eq <1> then tablook tabindex <1> Q66CLN(1)] [store <0> in Q66ROS_R_P] $end ---------------------------------------------------------------------------- $ROPEN>Q66ROS< $>AFT-Q66ROS< [goto q70a] $end ============================================================================== $RBEGIN>Q66ROS< [maxelt 16] ============================================================================== $>pre-q66d< [if R_P gt NROSIZ then roster exit] [store <0> in index] [tablook Q66CLN q66ros_R_P index] [if index eq <0> then roster loop] [if Q66CLN(index) nq R_P then roster loop] $end ------------------------------------------------------------------------------- Comment: This is item 69d in the 1989 CPS-665. Deleted precode "1" - G.I. Bill or Veterans' educational assistance program. 3/88 $>Q66d< [multiple Q66D1 Q66D2 Q66D3 Q66D4] [indirect] [store name(R_P) in temptext] [if R_P eq RESPLI then store in temptext] $itemtable >Q66d< What type of assistance did [fill temptext] receive? EXCLUDE ASSISTANCE FROM HOUSEHOLD MEMBERS <2> Pell Grant <3> Some other government assistance <4> Scholarships, grants, etc. <5> Other assistance (employers, friends, etc.) PROBE: Any other assistance? No other assistance ===>_ ===>_ ===>_ ===>_ $end ----------------------------------------------------------------------------- $>Q66D1< [within q66d] $d [none] <2-5> Refused [roster loop] Don't Know [roster loop] $end $>Q66D2< [within q66d] $d [none] <2-5> No more [goto ck-69e-88] Refused [goto ck-69e-88] Don't Know [goto ck-69e-88] $end $>Q66D3< [within q66d] $d [none] <2-5> No more [goto ck-69e-88] Refused [goto ck-69e-88] Don't Know [goto ck-69e-88] $end $>Q66D4< [within q66d] $d [none] <2-5> No more Refused Don't Know $end ----------------------------------------------------------------------------- Comment: Deleted check-66e, q66f, and check-66g because these items refer to GI benefits which now has it's own section. 3/88 Added ck-69e-88, Q69F88, and ck-69g-88. 3/88 $>ck-69e-88< [NIF Q66D1(R_P) is <2> OR Q66D2(R_P) is <2> then] [goto Q69F88] [ELSEIF Q66D3(R_P) is <2> OR Q66D4(R_P) is <2> then] [goto Q69F88] [ENDIF] [goto q66hP] $end ----------------------------------------------------------------------------- $>Q69F88< [store name(R_P) in temptext] [if R_P eq RESPLI then store in temptext] [store <0> in xbad(1)] [store <49999> in xbad(2)] $d >Q69F88< How much did [fill temptext] receive in Pell Grants during 1996? FOR AMOUNTS $50,000 AND OVER, ENTER 49,999. [blind] Refused Don't Know ===>$[N]__,___ .00 ENTER ANNUAL AMOUNT ONLY $edit [notless xbad(1)] [notequal xbad(1)] [notgreater xbad(2)] [numeric] $end ----------------------------------------------------------------------------- $>ck-69g-88< [NIF Q66D1(R_P) is <3> OR Q66D1(R_P) is <4> then] [goto q66hP] [ELSEIF Q66D1(R_P) is <5> OR Q66D2(R_P) is <3> then] [goto q66hp] [ELSEIF Q66D2(R_P) is <4> OR Q66D2(R_P) is <5> then] [goto q66hp] [ELSEIF Q66D3(R_P) is <3> OR Q66D3(R_P) is <4> then] [goto q66hp] [ELSEIF Q66D3(R_P) is <5> OR Q66D4(R_P) is <3> then] [goto q66hp] [ELSEIF Q66D4(R_P) is <4> OR Q66D4(R_P) is <5> then] [goto q66hp] [ENDIF] [roster loop] $end ----------------------------------------------------------------------------- $>Q66Hp< [combine name(r_p) <'s> into temptext] [if R_P eq respli then store in temptext] [store < > in temp2] [NIF Q66d1(R_P) is <2> then] [if onpath Q66d1:R_P then store in temp2] [ENDIF] [NIF Q66d2(R_P) is <2> then] [if onpath Q66d2:R_P then store in temp2] [ENDIF] [NIF Q66d3(R_P) is <2> then] [if onpath Q66d3:R_P then store in temp2] [ENDIF] [NIF Q66d4(R_P) is <2> then] [if onpath Q66d4:R_P then store in temp2] [ENDIF] $d >Q66Hp< What is the easiest way for you to tell us [fill temptext] [fill temp2] educational assistance during 1996; weekly, every other week, twice a month, monthly or yearly? <1> Weekly <2> Every other week <3> Twice a month <4> Monthly <5> Yearly [blind] Don't know [goto C-Q66HT] Refused [goto C-Q66HT] ===>_ [goto Q66H] $end --------------------------------------------------------------------- $>Q66H< [store < > in temp3] [store in temp4] [If onpath Q69F88:R_P then store