[# is Focal 1 in HH, and current age, etc., of Focal 1 ] >f1bl< [#added to pretest 11/7/0 bbd] [#if preinp eq <1> goto preinp3] [if F1PN is <> goto f2bl] >f1hh< [allow 1] [store <0> in f1hh] [#ADDED CODE TO STRIP LEADING ZERO OFF OF F1PN 1/10/1 BBD] [if F1PN eq <01>][store <1> in F1PN][endif] [if F1PN eq <02>][store <2> in F1PN][endif] [if F1PN eq <03>][store <3> in F1PN][endif] [if F1PN eq <04>][store <4> in F1PN][endif] [if F1PN eq <05>][store <5> in F1PN][endif] [if F1PN eq <06>][store <6> in F1PN][endif] [if F1PN eq <07>][store <7> in F1PN][endif] [if F1PN eq <08>][store <8> in F1PN][endif] [if F1PN eq <09>][store <9> in F1PN][endif] [if F1PN eq <10>][store <10> in F1PN][endif] [if F1PN eq <11>][store <11> in F1PN][endif] [if F1PN eq <12>][store <12> in F1PN][endif] [if F1PN eq <13>][store <13> in F1PN][endif] [if F1PN eq <14>][store <14> in F1PN][endif] [if F1PN eq <15>][store <15> in F1PN][endif] >f1dx< [allow 1][store <0> in f1dx] >f1da< [if F1PN isnt <2> goto f1db][if 2b is <1> goto f1ds][goto f1ag] >f1db< [if F1PN isnt <3> goto f1dc][if 3b is <1> goto f1ds][goto f1ag] >f1dc< [if F1PN isnt <4> goto f1dd][if 4b is <1> goto f1ds][goto f1ag] >f1dd< [if F1PN isnt <5> goto f1de][if 5b is <1> goto f1ds][goto f1ag] >f1de< [if F1PN isnt <6> goto f1df][if 6b is <1> goto f1ds][goto f1ag] >f1df< [if F1PN isnt <7> goto f1dg][if 7b is <1> goto f1ds][goto f1ag] >f1dg< [if F1PN isnt <8> goto f1dh][if 8b is <1> goto f1ds][goto f1ag] >f1dh< [if F1PN isnt <9> goto f1di][if 9b is <1> goto f1ds][goto f1ag] >f1di< [if F1PN isnt <10> goto f1dj][if 10b is <1> goto f1ds][goto f1ag] >f1dj< [if F1PN isnt <11> goto f1dk][if 11b is <1> goto f1ds][goto f1ag] >f1dk< [if F1PN isnt <12> goto f1dl][if 12b is <1> goto f1ds][goto f1ag] >f1dl< [if F1PN isnt <13> goto f1dm][if 13b is <1> goto f1ds][goto f1ag] >f1dm< [if F1PN isnt <14> goto f1dn][if 14b is <1> goto f1ds][goto f1ag] >f1dn< [if F1PN isnt <15> goto f1ag][if 15b is <1> goto f1ds][goto f1ag] >f1ds< [store <1> in f1dx][goto f2bl] [# 8/14 jas removed following statement >f1ag< [allow 2] [#store (F1AG + <5>) in f1ag] >f1ms< [allow 2] [#changed width from 1 to 2 bbd] >f1ps< [allow 1] >f1vs< [allow 2] [#changed width from 1 to 2 bbd] >f1tl< [allow 2] [#changed width from 1 to 2 bbd] >f1bp< [allow 1] [#ADDED FOR CODING INSTRUMENT] [if f1bp ne <>] [copy f1bp in f1bp] [copy f1ps in f1ps] [goto iF1d] [endif] [store <0> in f1bp] >iF1a< [roster begin hhmem] >iF1b< [if rel is <> goto iF1c] [if stat is goto iF1c][if pnum isnt F1PN+ goto iF1c] [store <1> in f1hh+][store age in f1ag+][store ms1 in f1ms+][#mam ms-ms1] [if chl1 is <> goto iF1h][if chl1 is <0> goto iF1h] [if chl1 is <-2> goto iF1h][if chl1 is <-1> goto iF1h] [store <1> in f1ps+][goto iF1o] >iF1h< [store <0> in f1ps+] >iF1o< [if bio1 isnt <1> goto iF1c][store <1> in f1bp+] >iF1c< [roster end hhmem] >iF1d< [if f1hh eq <1> goto f2bl] [if num3 is <0> goto iF1j] [if num3 is <> goto iF1j] [#ADDED FOR CODING INSTRUMENT] [if f1ps ne <>] [copy f1ps in f1ps] [goto iF1j] [endif] >iF1e< [roster begin chaway] >iF1f< [if STAT is goto iF1g][if pn2 isnt F1PN+ goto iF1g] [store age2 in f1ag+][store ms2 in f1ms+] [store vis2 in f1vs+][store tel2 in f1tl+] [if chl2 is <> goto iF1i][if chl2 is <0> goto iF1i] [if chl2 is <-2> goto iF1i][if chl2 is <-1> goto iF1i] [store <1> in f1ps+][goto iF1p] >iF1i< [store <0> in f1ps+] >iF1p< [if bio2 isnt <1> goto iF1g] [store <1> in f1bp+] >iF1g< [roster end chaway] >iF1j< [if f1hh eq <1> goto f2bl] [if num4 is <0> goto f2bl] [if num4 is <> goto f2bl] [#ADDED FOR CODING INSTRUMENT] [if f1ps ne <>] [copy f1ps in f1ps] [goto f2bl] [endif] >iF1k< [roster begin stpaway] >iF1l< [if Stat is goto iF1n][if pn3 isnt F1PN+ goto iF1n] [store age3 in f1ag+][store ms3 in f1ms+] [store vis3 in f1vs+][store tel3 in f1tl+] [if chl3 is <> goto iF1m][if chl3 is <0> goto iF1m] [if chl3 is <-2> goto iF1m][if chl3 is <-1> goto iF1m] [store <1> in f1ps+][goto iF1n] >iF1m< [store <0> in f1ps+] >iF1n< [roster end stpaway] [# is Focal 2 in hh, and current age of focal 2 ... >f2bl< [if F2PN is <> goto f5bl] >f2hh< [allow 1] [store <0> in f2hh] >f2dx< [allow 1] [store <0> in f2dx] >f2da< [if F2PN isnt <2> goto f2db][if 2b is <1> goto f2ds][goto f2ag] >f2db< [if F2PN isnt <3> goto f2dc][if 3b is <1> goto f2ds][goto f2ag] >f2dc< [if F2PN isnt <4> goto f2dd][if 4b is <1> goto f2ds][goto f2ag] >f2dd< [if F2PN isnt <5> goto f2de][if 5b is <1> goto f2ds][goto f2ag] >f2de< [if F2PN isnt <6> goto f2df][if 6b is <1> goto f2ds][goto f2ag] >f2df< [if F2PN isnt <7> goto f2dg][if 7b is <1> goto f2ds][goto f2ag] >f2dg< [if F2PN isnt <8> goto f2dh][if 8b is <1> goto f2ds][goto f2ag] >f2dh< [if F2PN isnt <9> goto f2di][if 9b is <1> goto f2ds][goto f2ag] >f2di< [if F2PN isnt <10> goto f2dj][if 10b is <1> goto f2ds][goto f2ag] >f2dj< [if F2PN isnt <11> goto f2dk][if 11b is <1> goto f2ds][goto f2ag] >f2dk< [if F2PN isnt <12> goto f2dl][if 12b is <1> goto f2ds][goto f2ag] >f2dl< [if F2PN isnt <13> goto f2dm][if 13b is <1> goto f2ds][goto f2ag] >f2dm< [if F2PN isnt <14> goto f2dn][if 14b is <1> goto f2ds][goto f2ag] >f2dn< [if F2PN isnt <15> goto f2ag][if 15b is <1> goto f2ds][goto f2ag] >f2ds< [store <1> in f2dx][goto f5bl] >f2ag< [allow 2] >iF2a< [roster begin hhmem] >iF2b< [if pnum is <1> goto iF2c] [if stat is goto iF2c][if pnum isnt F2PN+ goto iF2c] [store <1> in f2hh+][store age in f2ag+] >iF2c< [roster end hhmem] [# current whereabouts and age of Focal 5 ... >f5bl< [if F5PN is <> goto 04fl] >f5hh< [allow 1][store <0> in f5hh] >f5dx< [allow 1][store <0> in f5dx] >f5da< [if F5PN isnt M1PN goto f5db][if m1b is <1> goto f5ds][goto f5ag] >f5db< [if F5PN isnt M2PN goto f5dc][if m2b is <1> goto f5ds][goto f5ag] >f5dc< [if F5PN isnt M3PN goto f5dd][if m3b is <1> goto f5ds][goto f5ag] >f5dd< [if F5PN isnt M4PN goto f5de][if m4b is <1> goto f5ds][goto f5ag] >f5de< [if F5PN isnt M5PN goto f5df][if m5b is <1> goto f5ds][goto f5ag] >f5df< [if F5PN isnt M6PN goto f5dg][if m6b is <1> goto f5ds][goto f5ag] >f5dg< [if F5PN isnt M7PN goto f5ag][if m7b is <1> goto f5ds][goto f5ag] >f5ds< [store <1> in f5dx][goto 04fl] >f5ag< [allow 2] >iF5a< [roster begin hhmem] >iF5b< [if pnum is <1> goto iF5c] [if stat is goto iF5c][if pnum isnt F5PN+ goto iF5c] [store <1> in f5hh+][store age in f5ag+] >iF5c< [roster end hhmem] >iF5d< [if f5hh eq <1> goto 04fl] [if num3 is <0> goto 04fl][if num3 is <> goto 04fl] >iF5e< [roster begin chaway] >iF5f< [if STAT is goto iF5g][if pn2 isnt F5PN+ goto iF5g] [store age2 in f5ag+] >iF5g< [roster end chaway] [# name and age of oldest child under age 5 in household ...] >04fl< [allow 1][store <0> in 04fl] >04nm< [allow 13] >04ag< [allow int 2][store <0> in 04ag] [#changed to integer 11/20/0 bbd] >04sx< [allow 1] >04pn< [allow 2] >04b< [roster begin hhmem] >04c< [if pnum is <1> goto 04e] [if stat is goto 04e][if pnum le <39> goto 04e] [if age ge <6> goto 04e] [if rel ge <6> goto 04e][if rel eq <4> goto 04e][store <1> in 04fl+] [if age lt 04ag+ goto 04e][store name in 04nm+][store age in 04ag+] [store sex in 04sx+][store pnum in 04pn+] >04e< [roster end hhmem] >04g< [if 04fl eq <0>] [store <> in 04ag] [endif] [# create lists and counters for other modules ...] [# counters ...] >uc1< [allow 2] [copy uc1 in uc1] [#ADDED FOR CLEANING INSTRUMENT] [if entry mode] [#store <0> in uc1] [#counter for # of hh members age 16+] [#INITIALIZE UC1 TO <1>, TO INCLUDE RESPONDENT 8/29/0 bbd] [store <1> in uc1] [endif] >uc4< [allow 2][store <0> in uc4] [# " new kids in hh under 6 >uc5b< [allow 2][store <0> in uc5b] [# " all kids in hh age 0-4 >uc5c< [allow 2][store <0> in uc5c] [# " all kids in hh age 0-18 >uc6a< [allow 2][store <0> in uc6a] [# " all bio kids in hh >uc6b< [allow 2][store <0> in uc6b] [# " all bio kids elsewhere >uc7< [allow 2][store <0> in uc7] [# " all kids under 6 in hh >uc8< [allow 2][store <0> in uc8] [# total R's liv bio-adop kids anywhere >uc9< [allow 2][store <0> in uc9] [# hh mems age 16+ minus R & spouse >1417< [allow 1][store <0> in 1417] [# flag for 14-17 yr old kid in hh >uc10< [allow 2][store <0> in uc10] [# num of R's bio-adop kids in hh with absent parent >uc11< [allow 2][store <0> in uc11] [# num R's bio-adop kids 0-17 elsewhere >uc12< [allow 2][store <0> in uc12] [# num hh mems w/ rel > 7 (R hhlder) >uc14< [allow 1][store <0> in uc14] [# flag for any bio-adop kid age 5+ [# templates] [#replaced roster tables with templates bbd] >ut1< [#roster table hhmem < uw1 PN1 >] [template] [roster begin hhmem] [fill uw1:l] [fill PN1:l] [roster end] ------------------------------ >ut4< [#roster table hhmem < uw4 PN4 AGE >] [template] [roster begin hhmem] [fill uw4:l] [fill PN4:l] [fill AGE:l] [roster end] ------------------------------ >ut5b< [#roster table hhmem < uw5b PN5b >] [template] [roster begin hhmem] [fill uw5b:l] [fill PN5b:l] [roster end] ------------------------------ >ut5c< [#roster table hhmem < uw5c PN5c >] [template] [roster begin hhmem] [fill uw5c:l] [fill PN5c:l] [roster end] ------------------------------ >ut6a< [#roster table hhmem < uw6a PN6a >] [template] [roster begin hhmem] [fill uw6a:l] [fill PN6a:l] [roster end] ------------------------------ >ut6b< [#roster table chaway < uw6b PN6b >] [template] [roster begin chaway] [fill uw6b:l] [fill PN6b:l] [roster end] ------------------------------ >ut7< [#roster table hhmem < uw7 PN7 >] [template] [roster begin hhmem] [fill uw7:l] [fill PN7:l] [roster end] ------------------------------ >ut9< [#roster table hhmem < uw9 PN9 >] [template] [roster begin hhmem] [fill uw9:l] [fill PN9:l] [roster end] ------------------------------ >ut10< [#roster table hhmem < uw10 PN10 >] [template] [roster begin hhmem] [fill uw10:l] [fill PN10:l] [roster end] ------------------------------ >ut11< [#roster table chaway < uw11 PN11 >] [template] [roster begin chaway] [fill uw11:l] [fill PN11:l] [roster end] ------------------------------ >ut12< [#roster table hhmem < uw12 PN12 >] [template] [roster begin hhmem] [fill uw12:l] [fill PN12:l] [roster end] ------------------------------ >uw1a< [roster begin hhmem] >uw1< [allow 13] >PN1< [allow 2] >uw1b< [if stat is goto uw1c] [if age le <15> goto uw1c] [#ADDED FOR CLEANING INSTRUMENT] [if not entry mode] [copy uw1 in uw1] [copy PN1 in PN1] [copy uc1 in uc1] [else] [store name in uw1] [store pnum in PN1] [add <1> to uc1+] [endif] >uw1c< [roster end hhmem] >uw4a< [roster begin hhmem] >uw4< [allow 13] >PN4< [allow 2] >AGE< [allow 2] >uw4b< [if stat is goto uw4c] [if age ge <6> goto uw4c] [#if pnum lt <40> goto uw4c] [if pnum lt <60> goto uw4c] [#revised pnumber for t3 7/13/00 bbd] [if rel ge <6> goto uw4c] [if rel eq <4> goto uw4c][store name in uw4] [store pnum in PN4][store age in AGE][add <1> to uc4+] >uw4c< [roster end hhmem] >uw5a< [roster begin hhmem] >uw5b< [allow 13] >PN5b< [allow 2] >uw5e< [if stat is goto uw5d][if age ge <5> goto uw5d] [if rel ge <8> goto uw5d][store name in uw5b] [store pnum in PN5b][add <1> to uc5b+] >uw5d< [roster end hhmem] >uw5f< [roster begin hhmem] >uw5c< [allow 13] >PN5c< [allow 2] >uw5g< [if stat is goto uw5h][if age ge <19> goto uw5h] [if rel le <2> goto uw5h][if rel ge <8> goto uw5h] [store name in uw5c][store pnum in PN5c][add <1> to uc5c+] [if age le <13> goto uw5h][if age ge <18> goto uw5h] [store <1> in 1417+] >uw5h< [roster end hhmem] >uw6< [roster begin hhmem] >uw6a< [allow 13] >PN6a< [allow 2] >uw6c< [if stat is goto uw6d] [if rel ne <3> goto uw6d][store name in uw6a] [store pnum in PN6a][add <1> to uc6a+] >uw6d< [roster end hhmem] >uw6h< [if num3 ge <1> goto uw6e][goto uw7a] >uw6e< [roster begin chaway] >uw6b< [allow 13] >PN6b< [allow 2] >uw6f< [if STAT is goto uw6g] [store NAME in uw6b][store pn2 in PN6b][add <1> to uc6b+] >uw6g< [roster end chaway] >uw7a< [roster begin hhmem] >uw7< [allow 13] >PN7< [allow 2] >uw7b< [if stat is goto uw7c][if age ge <6> goto uw7c] [if rel ge <8> goto uw7c] [store name in uw7][store pnum in PN7][add <1> to uc7+] >uw7c< [roster end hhmem] [# total number of R's living sons and daughters living anywhere, bio-adop >uw8a< [roster begin hhmem] >uw8b< [if stat is goto uw8c][if rel le <2> goto uw8c] [if rel ge <6> goto uw8c][if rel eq <4> goto uw8c] [add <1> to uc8+][if age le <4> goto uw8c][add <1> to uc14+] >uw8c< [roster end hhmem] >uw8d< [if num3 is <> goto uw9a][add num3 to uc8] >uw8e< [roster begin chaway] >uw8f< [if STAT is goto uw8g] [if age2 le <4> goto uw8g][add <1> to uc14+] >uw8g< [roster end chaway] >uw9a< [roster begin hhmem] >uw9< [allow 13] >PN9< [allow 2] >uw9b< [if stat is goto uw9c][if rel is <> goto uw9c] [if age le <15> goto uw9c] [store name in uw9][store pnum in PN9][add <1> to uc9+] >uw9c< [roster end hhmem] >u10f< [roster begin hhmem] >uw10< [allow 13] >PN10< [allow 2] >u10g< [if stat is goto u10h][if age ge <18> goto u10h] [if rel ne <3> goto u10h][if Rms+ is <1> goto u10i] [if Rcoh+ is <1> goto u10i] [store name in uw10][store pnum in PN10][add <1> to uc10+][goto u10h] >u10i< [if bio1 is <1> goto u10h] [store name in uw10][store pnum in PN10][add <1> to uc10+] >u10h< [roster end hhmem] >10nm< [allow 13][store <> in 10nm] >10ag< [allow 2][store <> in 10ag] >10sx< [allow 1][store <> in 10sx] >10pn< [allow 2][store <> in 10pn] >u10j< [if uc10 is <0> goto u11h][if uc10 ne <1> goto u10n] >u10k< [roster begin hhmem] >u10l< [if uw10 is <> goto u10m][store uw10 in 10nm+] [store age in 10ag+][store sex in 10sx+][store pnum in 10pn+] >u10m< [roster end hhmem][goto u11h] >u10n< [roster begin hhmem] >u10o< [if uw10 is <> goto u10p][if PN10 isnt F1PN+ goto u10p] [store uw10 in 10nm+] [store age in 10ag+][store sex in 10sx+][store pnum in 10pn+] >u10p< [roster end hhmem] >u10q< [if 10nm isnt <> goto u11h] >u10r< [roster begin hhmem] >u10s< [if uw10 is <> goto u10t][if PN10 isnt F2PN+ goto u10t] [store uw10 in 10nm+] [store age in 10ag+][store sex in 10sx+][store pnum in 10pn+] >u10t< [roster end hhmem] >u10u< [if 10nm isnt <> goto u11h] >u10v< [roster begin hhmem] >u10w< [if uw10 is <> goto u10x][if PN10 isnt 04pn+ goto u10x] [store uw10 in 10nm+] [store age in 10ag+][store sex in 10sx+][store pnum in 10pn+] >u10x< [roster end hhmem] >u11h< [if num3 is <0> goto u12a][if num3 is <> goto u12a] >u11e< [roster begin chaway] >uw11< [allow 13] >PN11< [allow 2] >u11f< [if STAT is goto u11g][if age2 ge <18> goto u11g] [store NAME in uw11][store pn2 in PN11][add <1> to uc11+] >u11g< [roster end chaway] >11nm< [allow 13][store <> in 11nm] >11ag< [allow 2][store <> in 11ag] >11sx< [allow 1][store <> in 11sx] >11pn< [allow 2][store <> in 11pn] >11ds< [allow 4][store <> in 11ds] >11vs< [allow 2][store <> in 11vs] [#changed width from 1 to 2 bbd] >11lv< [allow 2][store <> in 11lv] >11mn< [allow 2][store <> in 11mn] >11yr< [allow 4][store <> in 11yr] >u11j< [if uc11 is <0> goto u12a][if uc11 ne <1> goto u11n] >u11k< [roster begin chaway] >u11l< [if uw11 is <> goto u11m][store uw11 in 11nm+] [store age2 in 11ag+][store sex2 in 11sx+][store pn2 in 11pn+] [store dis2 in 11ds+][store vis2 in 11vs+][store liv2 in 11lv+] >u11m< [roster end chaway][goto u12a] >u11n< [roster begin chaway] >u11o< [if uw11 is <> goto u11p][if PN11 isnt F1PN+ goto u11p] [store uw11 in 11nm+] [store age2 in 11ag+][store sex2 in 11sx+][store pn2 in 11pn+] [store dis2 in 11ds+][store vis2 in 11vs+][store liv2 in 11lv+] >u11p< [roster end chaway] >u11q< [if 11nm isnt <> goto u12a] >u11r< [roster begin chaway] >u11s< [if uw11 is <> goto u11t][if PN11 isnt F5PN+ goto u11t] [store uw11 in 11nm+] [store age2 in 11ag+][store sex2 in 11sx+][store pn2 in 11pn+] [store dis2 in 11ds+][store vis2 in 11vs+][store liv2 in 11lv+] >u11t< [roster end chaway] >u12a< [if hh1 le <4> goto u12b][goto 13nm] >u12b< [roster begin hhmem] >uw12< [allow 13] >PN12< [allow 2] >u12c< [if stat is goto u12d][if age le <17> goto u12d] [if rel le <7> goto u12d][store name in uw12] [store pnum in PN12][add <1> to uc12+] >u12d< [roster end hhmem] >13nm< [allow 13][store <> in 13nm] >13ag< [allow 2][store <> in 13ag] >13sx< [allow 1][store <> in 13sx] >13ms< [allow 2][store <> in 13ms] [#change width from 1 to 2 5/31/00 bbd] >13rl< [allow 2][store <> in 13rl] >13pn< [allow 2][store <> in 13pn] >14nm< [allow 13][store <> in 14nm] >14ag< [allow 2][store <> in 14ag] >14sx< [allow 1][store <> in 14sx] >14ms< [allow 2][store <> in 14ms] [#change width from 1 to 2 5/31/00 bbd] >14rl< [allow 2][store <> in 14rl] >14pn< [allow 2][store <> in 14pn] >u13a< [if hh1 le <2> goto b2a] >u13b< [if hh2 is <75> goto u14b][if hh2 is <-2> goto b2a] [store hh2 in 13pn] >u13c< [roster begin hhmem] >u13d< [if stat is goto u13f][if pnum isnt 13pn+ goto u13f] [if rel le <2> goto u13e][if rel eq <9> goto u13e] [if rel eq <10> goto u13e][if rel eq <11> goto u13e] [store name in 13nm+][store age in 13ag+][store sex in 13sx+] [store ms in 13ms+][store rel in 13rl+][goto u13f] >u13e< [store <> in 13pn+] >u13f< [roster end hhmem] >u14b< [if hh3 is goto b2a][if hh3 is <> goto b2a] [if hh3 is <75> goto b2a][if hh3 is <-2> goto b2a] [store hh3 in 14pn] >u14c< [roster begin hhmem] >u14d< [if stat is goto u14f][if pnum isnt 14pn+ goto u14f] [if rel le <2> goto u14e][if rel eq <9> goto u14e] [if rel eq <10> goto u14e][if rel eq <11> goto u14e] [store name in 14nm+][store age in 14ag+][store sex in 14sx+] [store ms in 14ms+][store rel in 14rl+][goto u14f] >u14e< [store <> in 14pn+] >u14f< [roster end hhmem] [#ROSTER TEMPLATES] [#MOVED TO TEMPLATE.Q 8/22/0 bbd] [# create fill variables for lists 2 & 3: all kids age 19+ or R and spouse for adultkid module [# b2a-j b3a-j kids 19+ in household >b2a< [allow 13][store <> in b2a] >b2b< [allow 13][store <> in b2b] >b2c< [allow 13][store <> in b2c] >b2d< [allow 13][store <> in b2d] >b2e< [allow 13][store <> in b2e] >b2f< [allow 13][store <> in b2f] >b2g< [allow 13][store <> in b2g] >b2h< [allow 13][store <> in b2h] >b2i< [allow 13][store <> in b2i] >b2j< [allow 13][store <> in b2j] >b3a< [allow 2][store <> in b3a] >b3b< [allow 2][store <> in b3b] >b3c< [allow 2][store <> in b3c] >b3d< [allow 2][store <> in b3d] >b3e< [allow 2][store <> in b3e] >b3f< [allow 2][store <> in b3f] >b3g< [allow 2][store <> in b3g] >b3h< [allow 2][store <> in b3h] >b3i< [allow 2][store <> in b3i] >b3j< [allow 2][store <> in b3j] >bb2< [allow 2][store <0> in bb2] [#RESPONDENT'S CHILDREN 19 OR OLDER IN HH] >bb2x< [roster begin hhmem] >bb2y< [if stat is goto bb2z][if age le <18> goto bb2z] [if rel le <2> goto bb2z][if rel ge <8> goto bb2z] [if rel eq <6> goto bb2z] [add <1> to bb2+] [if bb2+ eq <1> goto bb2a][if bb2+ eq <2> goto bb2b] [if bb2+ eq <3> goto bb2c][if bb2+ eq <4> goto bb2d] [if bb2+ eq <5> goto bb2e][if bb2+ eq <6> goto bb2f] [if bb2+ eq <7> goto bb2g][if bb2+ eq <8> goto bb2h] [if bb2+ eq <9> goto bb2i][if bb2+ eq <10> goto bb2j] [goto bb2z] >bb2a< [store name in b2a+][store pnum in b3a+][goto bb2z] >bb2b< [store name in b2b+][store pnum in b3b+][goto bb2z] >bb2c< [store name in b2c+][store pnum in b3c+][goto bb2z] >bb2d< [store name in b2d+][store pnum in b3d+][goto bb2z] >bb2e< [store name in b2e+][store pnum in b3e+][goto bb2z] >bb2f< [store name in b2f+][store pnum in b3f+][goto bb2z] >bb2g< [store name in b2g+][store pnum in b3g+][goto bb2z] >bb2h< [store name in b2h+][store pnum in b3h+][goto bb2z] >bb2i< [store name in b2i+][store pnum in b3i+][goto bb2z] >bb2j< [store name in b2j+][store pnum in b3j+] >bb2z< [roster end hhmem] [# b7a-j b8a-j R's kids 19+ living elsewhere >b7a< [allow 13][store <> in b7a] >b7b< [allow 13][store <> in b7b] >b7c< [allow 13][store <> in b7c] >b7d< [allow 13][store <> in b7d] >b7e< [allow 13][store <> in b7e] >b7f< [allow 13][store <> in b7f] >b7g< [allow 13][store <> in b7g] >b7h< [allow 13][store <> in b7h] >b7i< [allow 13][store <> in b7i] >b7j< [allow 13][store <> in b7j] >b8a< [allow 2][store <> in b8a] >b8b< [allow 2][store <> in b8b] >b8c< [allow 2][store <> in b8c] >b8d< [allow 2][store <> in b8d] >b8e< [allow 2][store <> in b8e] >b8f< [allow 2][store <> in b8f] >b8g< [allow 2][store <> in b8g] >b8h< [allow 2][store <> in b8h] >b8i< [allow 2][store <> in b8i] >b8j< [allow 2][store <> in b8j] >b6< [allow 2] [#RESPONDENT'S CHILDREN 19 OR OLDER ELSEWHERE] >bb6< [store <0> in b6] >bb7w< [if num3 is <0> goto b32a][if num3 is <> goto b32a] >bb7x< [roster begin chaway] >bb7y< [if STAT is goto bb7z][if age2 le <18> goto bb7z] [add <1> to b6+] [if b6+ eq <1> goto bb7a][if b6+ eq <2> goto bb7b] [if b6+ eq <3> goto bb7c][if b6+ eq <4> goto bb7d] [if b6+ eq <5> goto bb7e][if b6+ eq <6> goto bb7f] [if b6+ eq <7> goto bb7g][if b6+ eq <8> goto bb7h] [if b6+ eq <9> goto bb7i][if b6+ eq <10> goto bb7j] [goto bb7z] >bb7a< [store NAME in b7a+][store pn2 in b8a+][goto bb7z] >bb7b< [store NAME in b7b+][store pn2 in b8b+][goto bb7z] >bb7c< [store NAME in b7c+][store pn2 in b8c+][goto bb7z] >bb7d< [store NAME in b7d+][store pn2 in b8d+][goto bb7z] >bb7e< [store NAME in b7e+][store pn2 in b8e+][goto bb7z] >bb7f< [store NAME in b7f+][store pn2 in b8f+][goto bb7z] >bb7g< [store NAME in b7g+][store pn2 in b8g+][goto bb7z] >bb7h< [store NAME in b7h+][store pn2 in b8h+][goto bb7z] >bb7i< [store NAME in b7i+][store pn2 in b8i+][goto bb7z] >bb7j< [store NAME in b7j+][store pn2 in b8j+] >bb7z< [roster end chaway] [# b32a-j b33a-j spouse's kids 19+ living elsewhere >b32a< [allow 13][store <> in b32a] >b32b< [allow 13][store <> in b32b] >b32c< [allow 13][store <> in b32c] >b32d< [allow 13][store <> in b32d] >b32e< [allow 13][store <> in b32e] >b32f< [allow 13][store <> in b32f] >b32g< [allow 13][store <> in b32g] >b32h< [allow 13][store <> in b32h] >b32i< [allow 13][store <> in b32i] >b32j< [allow 13][store <> in b32j] >b33a< [allow 2][store <> in b33a] >b33b< [allow 2][store <> in b33b] >b33c< [allow 2][store <> in b33c] >b33d< [allow 2][store <> in b33d] >b33e< [allow 2][store <> in b33e] >b33f< [allow 2][store <> in b33f] >b33g< [allow 2][store <> in b33g] >b33h< [allow 2][store <> in b33h] >b33i< [allow 2][store <> in b33i] >b33j< [allow 2][store <> in b33j] >b12< [allow 2] [#TOTAL SPOUSE'S CHILDREN 19 OR OLDER ELSEWHERE] >bb12< [store <0> in b12] >bb9w< [if num4 is <0> goto b10a][if num4 is <> goto b10a] >bb9x< [roster begin stpaway] >bb9y< [if Stat is goto bb9z][if age3 le <18> goto bb9z] [add <1> to b12+] [if b12+ eq <1> goto bb9a][if b12+ eq <2> goto bb9b] [if b12+ eq <3> goto bb9c][if b12+ eq <4> goto bb9d] [if b12+ eq <5> goto bb9e][if b12+ eq <6> goto bb9f] [if b12+ eq <7> goto bb9g][if b12+ eq <8> goto bb9h] [if b12+ eq <9> goto bb9i][if b12+ eq <10> goto bb9j] [goto bb9z] >bb9a< [store Name in b32a+][store pn3 in b33a+][goto bb9z] >bb9b< [store Name in b32b+][store pn3 in b33b+][goto bb9z] >bb9c< [store Name in b32c+][store pn3 in b33c+][goto bb9z] >bb9d< [store Name in b32d+][store pn3 in b33d+][goto bb9z] >bb9e< [store Name in b32e+][store pn3 in b33e+][goto bb9z] >bb9f< [store Name in b32f+][store pn3 in b33f+][goto bb9z] >bb9g< [store Name in b32g+][store pn3 in b33g+][goto bb9z] >bb9h< [store Name in b32h+][store pn3 in b33h+][goto bb9z] >bb9i< [store Name in b32i+][store pn3 in b33i+][goto bb9z] >bb9j< [store Name in b32j+][store pn3 in b33j+] >bb9z< [roster end stpaway] [# b10a is counter for total number or R's and spouse's children age 19+ living anywhere >b10a< [allow 2][store <0> in b10a][store bb2 in b10a] [add b6 to b10a][add b12 to b10a] [# create fill variables for list 5a (problem inventory: all kids age 5-17 in household, and R's kids living elsewhere [# c2a-j c3a-j kids 5-17 in household] >c2a< [allow 13][store <> in c2a] >c2b< [allow 13][store <> in c2b] >c2c< [allow 13][store <> in c2c] >c2d< [allow 13][store <> in c2d] >c2e< [allow 13][store <> in c2e] >c2f< [allow 13][store <> in c2f] >c2g< [allow 13][store <> in c2g] >c2h< [allow 13][store <> in c2h] >c2i< [allow 13][store <> in c2i] >c2j< [allow 13][store <> in c2j] >c3a< [allow 2][store <> in c3a] [##label = PERSON NUMBER OF ONLY CHILD 5 TO 17] [##dname = C3A] >c3b< [allow 2][store <> in c3b] >c3c< [allow 2][store <> in c3c] >c3d< [allow 2][store <> in c3d] >c3e< [allow 2][store <> in c3e] >c3f< [allow 2][store <> in c3f] >c3g< [allow 2][store <> in c3g] >c3h< [allow 2][store <> in c3h] >c3i< [allow 2][store <> in c3i] >c3j< [allow 2][store <> in c3j] >cc2< [allow 2][store <0> in cc2] >cc2x< [roster begin hhmem] >cc2y< [if stat is goto cc2z][if age ge <18> goto cc2z] [if age le <4> goto cc2z][if rel le <2> goto cc2z] [if rel ge <8> goto cc2z][if rel is <> goto cc2z][add <1> to cc2+] [if cc2+ eq <1> goto cc2a][if cc2+ eq <2> goto cc2b] [if cc2+ eq <3> goto cc2c][if cc2+ eq <4> goto cc2d] [if cc2+ eq <5> goto cc2e][if cc2+ eq <6> goto cc2f] [if cc2+ eq <7> goto cc2g][if cc2+ eq <8> goto cc2h] [if cc2+ eq <9> goto cc2i][if cc2+ eq <10> goto cc2j] [goto cc2z] >cc2a< [store name in c2a+][store pnum in c3a+][goto cc2z] >cc2b< [store name in c2b+][store pnum in c3b+][goto cc2z] >cc2c< [store name in c2c+][store pnum in c3c+][goto cc2z] >cc2d< [store name in c2d+][store pnum in c3d+][goto cc2z] >cc2e< [store name in c2e+][store pnum in c3e+][goto cc2z] >cc2f< [store name in c2f+][store pnum in c3f+][goto cc2z] >cc2g< [store name in c2g+][store pnum in c3g+][goto cc2z] >cc2h< [store name in c2h+][store pnum in c3h+][goto cc2z] >cc2i< [store name in c2i+][store pnum in c3i+][goto cc2z] >cc2j< [store name in c2j+][store pnum in c3j+] >cc2z< [roster end hhmem] [# c7a-j c8a-j R's kids 5-17 living elsewhere >c7a< [allow 13][store <> in c7a] >c7b< [allow 13][store <> in c7b] >c7c< [allow 13][store <> in c7c] >c7d< [allow 13][store <> in c7d] >c7e< [allow 13][store <> in c7e] >c7f< [allow 13][store <> in c7f] >c7g< [allow 13][store <> in c7g] >c7h< [allow 13][store <> in c7h] >c7i< [allow 13][store <> in c7i] >c7j< [allow 13][store <> in c7j] >c8a< [allow 2][store <> in c8a] >c8b< [allow 2][store <> in c8b] >c8c< [allow 2][store <> in c8c] >c8d< [allow 2][store <> in c8d] >c8e< [allow 2][store <> in c8e] >c8f< [allow 2][store <> in c8f] >c8g< [allow 2][store <> in c8g] >c8h< [allow 2][store <> in c8h] >c8i< [allow 2][store <> in c8i] >c8j< [allow 2][store <> in c8j] >c6< [allow 2] >cc6< [store <0> in c6] >cc7w< [if num3 is <0> goto c32a][if num3 is <> goto c32a] >cc7x< [roster begin chaway] >cc7y< [if STAT is goto cc7z][if age2 ge <18> goto cc7z] [if age2 le <4> goto cc7z][add <1> to c6+] [if c6+ eq <1> goto cc7a][if c6+ eq <2> goto cc7b] [if c6+ eq <3> goto cc7c][if c6+ eq <4> goto cc7d] [if c6+ eq <5> goto cc7e][if c6+ eq <6> goto cc7f] [if c6+ eq <7> goto cc7g][if c6+ eq <8> goto cc7h] [if c6+ eq <9> goto cc7i][if c6+ eq <10> goto cc7j] [goto cc7z] >cc7a< [store NAME in c7a+][store pn2 in c8a+][goto cc7z] >cc7b< [store NAME in c7b+][store pn2 in c8b+][goto cc7z] >cc7c< [store NAME in c7c+][store pn2 in c8c+][goto cc7z] >cc7d< [store NAME in c7d+][store pn2 in c8d+][goto cc7z] >cc7e< [store NAME in c7e+][store pn2 in c8e+][goto cc7z] >cc7f< [store NAME in c7f+][store pn2 in c8f+][goto cc7z] >cc7g< [store NAME in c7g+][store pn2 in c8g+][goto cc7z] >cc7h< [store NAME in c7h+][store pn2 in c8h+][goto cc7z] >cc7i< [store NAME in c7i+][store pn2 in c8i+][goto cc7z] >cc7j< [store NAME in c7j+][store pn2 in c8j+] >cc7z< [roster end chaway] [# c32a-j c33a-j spouse's kids 5-17 living elsewhere >c32a< [allow 13][store <> in c32a] >c32b< [allow 13][store <> in c32b] >c32c< [allow 13][store <> in c32c] >c32d< [allow 13][store <> in c32d] >c32e< [allow 13][store <> in c32e] >c32f< [allow 13][store <> in c32f] >c32g< [allow 13][store <> in c32g] >c32h< [allow 13][store <> in c32h] >c32i< [allow 13][store <> in c32i] >c32j< [allow 13][store <> in c32j] >c33a< [allow 2][store <> in c33a] >c33b< [allow 2][store <> in c33b] >c33c< [allow 2][store <> in c33c] >c33d< [allow 2][store <> in c33d] >c33e< [allow 2][store <> in c33e] >c33f< [allow 2][store <> in c33f] >c33g< [allow 2][store <> in c33g] >c33h< [allow 2][store <> in c33h] >c33i< [allow 2][store <> in c33i] >c33j< [allow 2][store <> in c33j] >c12z< [allow 2][store <0> in c12z] >cc9w< [if num4 is <0> goto c10a][if num4 is <> goto c10a] >cc9x< [roster begin stpaway] >cc9y< [if Stat is goto cc9z][if age3 ge <18> goto cc9z] [if age3 le <4> goto cc9z][add <1> to c12z+] [if c12z+ eq <1> goto cc9a][if c12z+ eq <2> goto cc9b] [if c12z+ eq <3> goto cc9c][if c12z+ eq <4> goto cc9d] [if c12z+ eq <5> goto cc9e][if c12z+ eq <6> goto cc9f] [if c12z+ eq <7> goto cc9g][if c12z+ eq <8> goto cc9h] [if c12z+ eq <9> goto cc9i][if c12z+ eq <10> goto cc9j] [goto cc9z] >cc9a< [store Name in c32a+][store pn3 in c33a+][goto cc9z] >cc9b< [store Name in c32b+][store pn3 in c33b+][goto cc9z] >cc9c< [store Name in c32c+][store pn3 in c33c+][goto cc9z] >cc9d< [store Name in c32d+][store pn3 in c33d+][goto cc9z] >cc9e< [store Name in c32e+][store pn3 in c33e+][goto cc9z] >cc9f< [store Name in c32f+][store pn3 in c33f+][goto cc9z] >cc9g< [store Name in c32g+][store pn3 in c33g+][goto cc9z] >cc9h< [store Name in c32h+][store pn3 in c33h+][goto cc9z] >cc9i< [store Name in c32i+][store pn3 in c33i+][goto cc9z] >cc9j< [store Name in c32j+][store pn3 in c33j+] >cc9z< [roster end stpaway] [# c10a is counter for total number or R's and spouse's children age 5-17 living anywhere >c10a< [allow 2][store <0> in c10a][store cc2 in c10a] [add c6 to c10a][add c12z to c10a] [# create fill variables for list 5d (problem inventory: all kids age 18-23 in household, and R's living elsewhere, spouse's living elsewhere [# d2a-j d3a-j kids 18-23 in household >d2a< [allow 13][store <> in d2a] >d2b< [allow 13][store <> in d2b] >d2c< [allow 13][store <> in d2c] >d2d< [allow 13][store <> in d2d] >d2e< [allow 13][store <> in d2e] >d2f< [allow 13][store <> in d2f] >d2g< [allow 13][store <> in d2g] >d2h< [allow 13][store <> in d2h] >d2i< [allow 13][store <> in d2i] >d2j< [allow 13][store <> in d2j] >d3a< [allow 2][store <> in d3a] [##label = PERSON NUMBER OF ONLY CHILD 18 TO 33] [##dname = D3A] >d3b< [allow 2][store <> in d3b] >d3c< [allow 2][store <> in d3c] >d3d< [allow 2][store <> in d3d] >d3e< [allow 2][store <> in d3e] >d3f< [allow 2][store <> in d3f] >d3g< [allow 2][store <> in d3g] >d3h< [allow 2][store <> in d3h] >d3i< [allow 2][store <> in d3i] >d3j< [allow 2][store <> in d3j] >dd2< [allow 2][store <0> in dd2] >dd2x< [roster begin hhmem] [#changed age ge <24> to age ge <34> per jim, 6/25/00 bbd] >dd2y< [if stat is goto dd2z][if age le <17> goto dd2z] [if age ge <34> goto dd2z][if rel le <2> goto dd2z] [if rel ge <8> goto dd2z][if rel is <> goto dd2z][add <1> to dd2+] [if dd2+ eq <1> goto dd2a][if dd2+ eq <2> goto dd2b] [if dd2+ eq <3> goto dd2c][if dd2+ eq <4> goto dd2d] [if dd2+ eq <5> goto dd2e][if dd2+ eq <6> goto dd2f] [if dd2+ eq <7> goto dd2g][if dd2+ eq <8> goto dd2h] [if dd2+ eq <9> goto dd2i][if dd2+ eq <10> goto dd2j] [goto dd2z] >dd2a< [store name in d2a+][store pnum in d3a+][goto dd2z] >dd2b< [store name in d2b+][store pnum in d3b+][goto dd2z] >dd2c< [store name in d2c+][store pnum in d3c+][goto dd2z] >dd2d< [store name in d2d+][store pnum in d3d+][goto dd2z] >dd2e< [store name in d2e+][store pnum in d3e+][goto dd2z] >dd2f< [store name in d2f+][store pnum in d3f+][goto dd2z] >dd2g< [store name in d2g+][store pnum in d3g+][goto dd2z] >dd2h< [store name in d2h+][store pnum in d3h+][goto dd2z] >dd2i< [store name in d2i+][store pnum in d3i+][goto dd2z] >dd2j< [store name in d2j+][store pnum in d3j+] >dd2z< [roster end hhmem] [# d7a-j d8a-j R's kids 18-23 living elsewhere >d7a< [allow 13][store <> in d7a] >d7b< [allow 13][store <> in d7b] >d7c< [allow 13][store <> in d7c] >d7d< [allow 13][store <> in d7d] >d7e< [allow 13][store <> in d7e] >d7f< [allow 13][store <> in d7f] >d7g< [allow 13][store <> in d7g] >d7h< [allow 13][store <> in d7h] >d7i< [allow 13][store <> in d7i] >d7j< [allow 13][store <> in d7j] >d8a< [allow 2][store <> in d8a] >d8b< [allow 2][store <> in d8b] >d8c< [allow 2][store <> in d8c] >d8d< [allow 2][store <> in d8d] >d8e< [allow 2][store <> in d8e] >d8f< [allow 2][store <> in d8f] >d8g< [allow 2][store <> in d8g] >d8h< [allow 2][store <> in d8h] >d8i< [allow 2][store <> in d8i] >d8j< [allow 2][store <> in d8j] >d6< [allow 2][store <0> in d6] >dd7w< [if num3 is <0> goto d32a][if num3 is <> goto d32a] >dd7x< [roster begin chaway] [#changed age ge <24> to age ge <34> per jim, 6/25/00 bbd] >dd7y< [if STAT is goto dd7z][if age2 le <17> goto dd7z] [if age2 ge <34> goto dd7z][add <1> to d6+] [if d6+ eq <1> goto dd7a][if d6+ eq <2> goto dd7b] [if d6+ eq <3> goto dd7c][if d6+ eq <4> goto dd7d] [if d6+ eq <5> goto dd7e][if d6+ eq <6> goto dd7f] [if d6+ eq <7> goto dd7g][if d6+ eq <8> goto dd7h] [if d6+ eq <9> goto dd7i][if d6+ eq <10> goto dd7j] [goto dd7z] >dd7a< [store NAME in d7a+][store pn2 in d8a+][goto dd7z] >dd7b< [store NAME in d7b+][store pn2 in d8b+][goto dd7z] >dd7c< [store NAME in d7c+][store pn2 in d8c+][goto dd7z] >dd7d< [store NAME in d7d+][store pn2 in d8d+][goto dd7z] >dd7e< [store NAME in d7e+][store pn2 in d8e+][goto dd7z] >dd7f< [store NAME in d7f+][store pn2 in d8f+][goto dd7z] >dd7g< [store NAME in d7g+][store pn2 in d8g+][goto dd7z] >dd7h< [store NAME in d7h+][store pn2 in d8h+][goto dd7z] >dd7i< [store NAME in d7i+][store pn2 in d8i+][goto dd7z] >dd7j< [store NAME in d7j+][store pn2 in d8j+] >dd7z< [roster end chaway] [# d32a-j d33a-j spouse's kids 18-23 living elsewhere >d32a< [allow 13][store <> in d32a] >d32b< [allow 13][store <> in d32b] >d32c< [allow 13][store <> in d32c] >d32d< [allow 13][store <> in d32d] >d32e< [allow 13][store <> in d32e] >d32f< [allow 13][store <> in d32f] >d32g< [allow 13][store <> in d32g] >d32h< [allow 13][store <> in d32h] >d32i< [allow 13][store <> in d32i] >d32j< [allow 13][store <> in d32j] >d33a< [allow 2][store <> in d33a] >d33b< [allow 2][store <> in d33b] >d33c< [allow 2][store <> in d33c] >d33d< [allow 2][store <> in d33d] >d33e< [allow 2][store <> in d33e] >d33f< [allow 2][store <> in d33f] >d33g< [allow 2][store <> in d33g] >d33h< [allow 2][store <> in d33h] >d33i< [allow 2][store <> in d33i] >d33j< [allow 2][store <> in d33j] >d12< [allow 2][store <0> in d12] >dd9w< [if num4 is <0> goto d10a][if num4 is <> goto d10a] >dd9x< [roster begin stpaway] [#changed age ge <24> to age ge <34> per jim, 6/25/00 bbd] >dd9y< [if Stat is goto dd9z][if age3 le <17> goto dd9z] [if age3 ge <34> goto dd9z][add <1> to d12+] [if d12+ eq <1> goto dd9a][if d12+ eq <2> goto dd9b] [if d12+ eq <3> goto dd9c][if d12+ eq <4> goto dd9d] [if d12+ eq <5> goto dd9e][if d12+ eq <6> goto dd9f] [if d12+ eq <7> goto dd9g][if d12+ eq <8> goto dd9h] [if d12+ eq <9> goto dd9i][if d12+ eq <10> goto dd9j] [goto dd9z] >dd9a< [store Name in d32a+][store pn3 in d33a+][goto dd9z] >dd9b< [store Name in d32b+][store pn3 in d33b+][goto dd9z] >dd9c< [store Name in d32c+][store pn3 in d33c+][goto dd9z] >dd9d< [store Name in d32d+][store pn3 in d33d+][goto dd9z] >dd9e< [store Name in d32e+][store pn3 in d33e+][goto dd9z] >dd9f< [store Name in d32f+][store pn3 in d33f+][goto dd9z] >dd9g< [store Name in d32g+][store pn3 in d33g+][goto dd9z] >dd9h< [store Name in d32h+][store pn3 in d33h+][goto dd9z] >dd9i< [store Name in d32i+][store pn3 in d33i+][goto dd9z] >dd9j< [store Name in d32j+][store pn3 in d33j+] >dd9z< [roster end stpaway] [# d10a is counter for total number or R's and spouse's children age 18-23 living anywhere >d10a< [allow 2][store <0> in d10a][store dd2 in d10a] [add d6 to d10a][add d12 to d10a] [# create fill variables for list 5e (problem inventory: all kids age 18-19 in household, and R's living elsewhere, spouse's living elsewhere [# e2a-j e3a-j kids 18-19 in household >e2a< [allow 13][store <> in e2a] >e2b< [allow 13][store <> in e2b] >e2c< [allow 13][store <> in e2c] >e2d< [allow 13][store <> in e2d] >e2e< [allow 13][store <> in e2e] >e2f< [allow 13][store <> in e2f] >e2g< [allow 13][store <> in e2g] >e2h< [allow 13][store <> in e2h] >e2i< [allow 13][store <> in e2i] >e2j< [allow 13][store <> in e2j] >e3a< [allow 2][store <> in e3a] >e3b< [allow 2][store <> in e3b] >e3c< [allow 2][store <> in e3c] >e3d< [allow 2][store <> in e3d] >e3e< [allow 2][store <> in e3e] >e3f< [allow 2][store <> in e3f] >e3g< [allow 2][store <> in e3g] >e3h< [allow 2][store <> in e3h] >e3i< [allow 2][store <> in e3i] >e3j< [allow 2][store <> in e3j] >ee2< [allow 2][store <0> in ee2] >ee2x< [roster begin hhmem] >ee2y< [if stat is goto ee2z][if age le <17> goto ee2z] [if age ge <20> goto ee2z][if rel le <2> goto ee2z] [if rel ge <8> goto ee2z][if rel is <> goto ee2z][add <1> to ee2+] [if ee2+ eq <1> goto ee2a][if ee2+ eq <2> goto ee2b] [if ee2+ eq <3> goto ee2c][if ee2+ eq <4> goto ee2d] [if ee2+ eq <5> goto ee2e][if ee2+ eq <6> goto ee2f] [if ee2+ eq <7> goto ee2g][if ee2+ eq <8> goto ee2h] [if ee2+ eq <9> goto ee2i][if ee2+ eq <10> goto ee2j] [goto ee2z] >ee2a< [store name in e2a+][store pnum in e3a+][goto ee2z] >ee2b< [store name in e2b+][store pnum in e3b+][goto ee2z] >ee2c< [store name in e2c+][store pnum in e3c+][goto ee2z] >ee2d< [store name in e2d+][store pnum in e3d+][goto ee2z] >ee2e< [store name in e2e+][store pnum in e3e+][goto ee2z] >ee2f< [store name in e2f+][store pnum in e3f+][goto ee2z] >ee2g< [store name in e2g+][store pnum in e3g+][goto ee2z] >ee2h< [store name in e2h+][store pnum in e3h+][goto ee2z] >ee2i< [store name in e2i+][store pnum in e3i+][goto ee2z] >ee2j< [store name in e2j+][store pnum in e3j+] >ee2z< [roster end hhmem] [# e7a-j e8a-j R's kids 18-19 living elsewhere >e7a< [allow 13][store <> in e7a] >e7b< [allow 13][store <> in e7b] >e7c< [allow 13][store <> in e7c] >e7d< [allow 13][store <> in e7d] >e7e< [allow 13][store <> in e7e] >e7f< [allow 13][store <> in e7f] >e7g< [allow 13][store <> in e7g] >e7h< [allow 13][store <> in e7h] >e7i< [allow 13][store <> in e7i] >e7j< [allow 13][store <> in e7j] >e8a< [allow 2][store <> in e8a] >e8b< [allow 2][store <> in e8b] >e8c< [allow 2][store <> in e8c] >e8d< [allow 2][store <> in e8d] >e8e< [allow 2][store <> in e8e] >e8f< [allow 2][store <> in e8f] >e8g< [allow 2][store <> in e8g] >e8h< [allow 2][store <> in e8h] >e8i< [allow 2][store <> in e8i] >e8j< [allow 2][store <> in e8j] >e6< [allow 2][store <0> in e6] >ee7w< [if num3 is <0> goto e32a][if num3 is <> goto e32a] >ee7x< [roster begin chaway] >ee7y< [if STAT is goto ee7z][if age2 le <17> goto ee7z] [if age2 ge <20> goto ee7z][add <1> to e6+] [if e6+ eq <1> goto ee7a][if e6+ eq <2> goto ee7b] [if e6+ eq <3> goto ee7c][if e6+ eq <4> goto ee7d] [if e6+ eq <5> goto ee7e][if e6+ eq <6> goto ee7f] [if e6+ eq <7> goto ee7g][if e6+ eq <8> goto ee7h] [if e6+ eq <9> goto ee7i][if e6+ eq <10> goto ee7j] [goto ee7z] >ee7a< [store NAME in e7a+][store pn2 in e8a+][goto ee7z] >ee7b< [store NAME in e7b+][store pn2 in e8b+][goto ee7z] >ee7c< [store NAME in e7c+][store pn2 in e8c+][goto ee7z] >ee7d< [store NAME in e7d+][store pn2 in e8d+][goto ee7z] >ee7e< [store NAME in e7e+][store pn2 in e8e+][goto ee7z] >ee7f< [store NAME in e7f+][store pn2 in e8f+][goto ee7z] >ee7g< [store NAME in e7g+][store pn2 in e8g+][goto ee7z] >ee7h< [store NAME in e7h+][store pn2 in e8h+][goto ee7z] >ee7i< [store NAME in e7i+][store pn2 in e8i+][goto ee7z] >ee7j< [store NAME in e7j+][store pn2 in e8j+] >ee7z< [roster end chaway] [# e32a-j e33a-j spouse's kids 18-19 living elsewhere >e32a< [allow 13][store <> in e32a] >e32b< [allow 13][store <> in e32b] >e32c< [allow 13][store <> in e32c] >e32d< [allow 13][store <> in e32d] >e32e< [allow 13][store <> in e32e] >e32f< [allow 13][store <> in e32f] >e32g< [allow 13][store <> in e32g] >e32h< [allow 13][store <> in e32h] >e32i< [allow 13][store <> in e32i] >e32j< [allow 13][store <> in e32j] >e33a< [allow 2][store <> in e33a] >e33b< [allow 2][store <> in e33b] >e33c< [allow 2][store <> in e33c] >e33d< [allow 2][store <> in e33d] >e33e< [allow 2][store <> in e33e] >e33f< [allow 2][store <> in e33f] >e33g< [allow 2][store <> in e33g] >e33h< [allow 2][store <> in e33h] >e33i< [allow 2][store <> in e33i] >e33j< [allow 2][store <> in e33j] >e12< [allow 2][store <0> in e12] >ee9w< [if num4 is <0> goto e10a][if num4 is <> goto e10a] >ee9x< [roster begin stpaway] >ee9y< [if Stat is goto ee9z][if age3 le <17> goto ee9z] [if age3 ge <20> goto ee9z][add <1> to e12+] [if e12+ eq <1> goto ee9a][if e12+ eq <2> goto ee9b] [if e12+ eq <3> goto ee9c][if e12+ eq <4> goto ee9d] [if e12+ eq <5> goto ee9e][if e12+ eq <6> goto ee9f] [if e12+ eq <7> goto ee9g][if e12+ eq <8> goto ee9h] [if e12+ eq <9> goto ee9i][if e12+ eq <10> goto ee9j] [goto ee9z] >ee9a< [store Name in e32a+][store pn3 in e33a+][goto ee9z] >ee9b< [store Name in e32b+][store pn3 in e33b+][goto ee9z] >ee9c< [store Name in e32c+][store pn3 in e33c+][goto ee9z] >ee9d< [store Name in e32d+][store pn3 in e33d+][goto ee9z] >ee9e< [store Name in e32e+][store pn3 in e33e+][goto ee9z] >ee9f< [store Name in e32f+][store pn3 in e33f+][goto ee9z] >ee9g< [store Name in e32g+][store pn3 in e33g+][goto ee9z] >ee9h< [store Name in e32h+][store pn3 in e33h+][goto ee9z] >ee9i< [store Name in e32i+][store pn3 in e33i+][goto ee9z] >ee9j< [store Name in e32j+][store pn3 in e33j+] >ee9z< [roster end stpaway] [# e10a is counter for total number or R's and spouse's children age 18-23 living anywhere >e10a< [allow 2][store <0> in e10a][store ee2 in e10a] [add e6 to e10a][add e12 to e10a] [# create fill variables for all hh members age 16+ except R >g2a< [allow 13][store <> in g2a] >g2b< [allow 13][store <> in g2b] >g2c< [allow 13][store <> in g2c] >g2d< [allow 13][store <> in g2d] >g2e< [allow 13][store <> in g2e] >g2f< [allow 13][store <> in g2f] >g2g< [allow 13][store <> in g2g] >g2h< [allow 13][store <> in g2h] >g2i< [allow 13][store <> in g2i] >g2j< [allow 13][store <> in g2j] >g3a< [allow 2][store <> in g3a] >g3b< [allow 2][store <> in g3b] >g3c< [allow 2][store <> in g3c] >g3d< [allow 2][store <> in g3d] >g3e< [allow 2][store <> in g3e] >g3f< [allow 2][store <> in g3f] >g3g< [allow 2][store <> in g3g] >g3h< [allow 2][store <> in g3h] >g3i< [allow 2][store <> in g3i] >g3j< [allow 2][store <> in g3j] >gg2< [allow 2][store <0> in gg2] >gg2x< [roster begin hhmem] >gg2y< [if stat is goto gg2z][if rel is <> goto gg2z] [if age le <15> goto gg2z][add <1> to gg2+] [if gg2+ eq <1> goto gg2a][if gg2+ eq <2> goto gg2b] [if gg2+ eq <3> goto gg2c][if gg2+ eq <4> goto gg2d] [if gg2+ eq <5> goto gg2e][if gg2+ eq <6> goto gg2f] [if gg2+ eq <7> goto gg2g][if gg2+ eq <8> goto gg2h] [if gg2+ eq <9> goto gg2i][if gg2+ eq <10> goto gg2j] [goto gg2z] >gg2a< [store name in g2a+][store pnum in g3a+][goto gg2z] >gg2b< [store name in g2b+][store pnum in g3b+][goto gg2z] >gg2c< [store name in g2c+][store pnum in g3c+][goto gg2z] >gg2d< [store name in g2d+][store pnum in g3d+][goto gg2z] >gg2e< [store name in g2e+][store pnum in g3e+][goto gg2z] >gg2f< [store name in g2f+][store pnum in g3f+][goto gg2z] >gg2g< [store name in g2g+][store pnum in g3g+][goto gg2z] >gg2h< [store name in g2h+][store pnum in g3h+][goto gg2z] >gg2i< [store name in g2i+][store pnum in g3i+][goto gg2z] >gg2j< [store name in g2j+][store pnum in g3j+] >gg2z< [roster end hhmem] [# g10a is counter for total number of hh members age 16+ except R >g10a< [allow 2][store gg2 in g10a] [# create fill variables for problem inventory: all kids age 4 & under in household, and R's & SPouse's kids living elsewhere [# v2a-j v3a-j kids 4 & under in household >v2a< [allow 13][store <> in v2a] >v2b< [allow 13][store <> in v2b] >v2c< [allow 13][store <> in v2c] >v2d< [allow 13][store <> in v2d] >v2e< [allow 13][store <> in v2e] >v2f< [allow 13][store <> in v2f] >v2g< [allow 13][store <> in v2g] >v2h< [allow 13][store <> in v2h] >v2i< [allow 13][store <> in v2i] >v2j< [allow 13][store <> in v2j] >v3a< [allow 2][store <> in v3a] >v3b< [allow 2][store <> in v3b] >v3c< [allow 2][store <> in v3c] >v3d< [allow 2][store <> in v3d] >v3e< [allow 2][store <> in v3e] >v3f< [allow 2][store <> in v3f] >v3g< [allow 2][store <> in v3g] >v3h< [allow 2][store <> in v3h] >v3i< [allow 2][store <> in v3i] >v3j< [allow 2][store <> in v3j] >vv2< [allow 2][store <0> in vv2] >vv2x< [roster begin hhmem] >vv2y< [if stat is goto vv2z][if age ge <5> goto vv2z] [if rel le <2> goto vv2z][if rel ge <8> goto vv2z] [if rel is <> goto vv2z][add <1> to vv2+] [if vv2+ eq <1> goto vv2a][if vv2+ eq <2> goto vv2b] [if vv2+ eq <3> goto vv2c][if vv2+ eq <4> goto vv2d] [if vv2+ eq <5> goto vv2e][if vv2+ eq <6> goto vv2f] [if vv2+ eq <7> goto vv2g][if vv2+ eq <8> goto vv2h] [if vv2+ eq <9> goto vv2i][if vv2+ eq <10> goto vv2j] [goto vv2z] >vv2a< [store name in v2a+][store pnum in v3a+][goto vv2z] >vv2b< [store name in v2b+][store pnum in v3b+][goto vv2z] >vv2c< [store name in v2c+][store pnum in v3c+][goto vv2z] >vv2d< [store name in v2d+][store pnum in v3d+][goto vv2z] >vv2e< [store name in v2e+][store pnum in v3e+][goto vv2z] >vv2f< [store name in v2f+][store pnum in v3f+][goto vv2z] >vv2g< [store name in v2g+][store pnum in v3g+][goto vv2z] >vv2h< [store name in v2h+][store pnum in v3h+][goto vv2z] >vv2i< [store name in v2i+][store pnum in v3i+][goto vv2z] >vv2j< [store name in v2j+][store pnum in v3j+] >vv2z< [roster end hhmem] [# v7a-j v8a-j R's kids 5-17 living elsewhere >v7a< [allow 13][store <> in v7a] >v7b< [allow 13][store <> in v7b] >v7c< [allow 13][store <> in v7c] >v7d< [allow 13][store <> in v7d] >v7e< [allow 13][store <> in v7e] >v7f< [allow 13][store <> in v7f] >v7g< [allow 13][store <> in v7g] >v7h< [allow 13][store <> in v7h] >v7i< [allow 13][store <> in v7i] >v7j< [allow 13][store <> in v7j] >v8a< [allow 2][store <> in v8a] >v8b< [allow 2][store <> in v8b] >v8c< [allow 2][store <> in v8c] >v8d< [allow 2][store <> in v8d] >v8e< [allow 2][store <> in v8e] >v8f< [allow 2][store <> in v8f] >v8g< [allow 2][store <> in v8g] >v8h< [allow 2][store <> in v8h] >v8i< [allow 2][store <> in v8i] >v8j< [allow 2][store <> in v8j] >v6< [allow 2] >vv6< [store <0> in v6] >vv7w< [if num3 is <0> goto v32a][if num3 is <> goto v32a] >vv7x< [roster begin chaway] >vv7y< [if STAT is goto vv7z][if age2 ge <5> goto vv7z] [add <1> to v6+] [if v6+ eq <1> goto vv7a][if v6+ eq <2> goto vv7b] [if v6+ eq <3> goto vv7c][if v6+ eq <4> goto vv7d] [if v6+ eq <5> goto vv7e][if v6+ eq <6> goto vv7f] [if v6+ eq <7> goto vv7g][if v6+ eq <8> goto vv7h] [if v6+ eq <9> goto vv7i][if v6+ eq <10> goto vv7j] [goto vv7z] >vv7a< [store NAME in v7a+][store pn2 in v8a+][goto vv7z] >vv7b< [store NAME in v7b+][store pn2 in v8b+][goto vv7z] >vv7c< [store NAME in v7c+][store pn2 in v8c+][goto vv7z] >vv7d< [store NAME in v7d+][store pn2 in v8d+][goto vv7z] >vv7e< [store NAME in v7e+][store pn2 in v8e+][goto vv7z] >vv7f< [store NAME in v7f+][store pn2 in v8f+][goto vv7z] >vv7g< [store NAME in v7g+][store pn2 in v8g+][goto vv7z] >vv7h< [store NAME in v7h+][store pn2 in v8h+][goto vv7z] >vv7i< [store NAME in v7i+][store pn2 in v8i+][goto vv7z] >vv7j< [store NAME in v7j+][store pn2 in v8j+] >vv7z< [roster end chaway] [# v32a-j v33a-j spouse's kids 5-17 living elsewhere >v32a< [allow 13][store <> in v32a] >v32b< [allow 13][store <> in v32b] >v32c< [allow 13][store <> in v32c] >v32d< [allow 13][store <> in v32d] >v32e< [allow 13][store <> in v32e] >v32f< [allow 13][store <> in v32f] >v32g< [allow 13][store <> in v32g] >v32h< [allow 13][store <> in v32h] >v32i< [allow 13][store <> in v32i] >v32j< [allow 13][store <> in v32j] >v33a< [allow 2][store <> in v33a] >v33b< [allow 2][store <> in v33b] >v33c< [allow 2][store <> in v33c] >v33d< [allow 2][store <> in v33d] >v33e< [allow 2][store <> in v33e] >v33f< [allow 2][store <> in v33f] >v33g< [allow 2][store <> in v33g] >v33h< [allow 2][store <> in v33h] >v33i< [allow 2][store <> in v33i] >v33j< [allow 2][store <> in v33j] >v12z< [allow 2][store <0> in v12z] >vv9w< [if num4 is <0> goto v10a][if num4 is <> goto v10a] >vv9x< [roster begin stpaway] >vv9y< [if Stat is goto vv9z][if age3 ge <5> goto vv9z] [add <1> to v12z+] [if v12z+ eq <1> goto vv9a][if v12z+ eq <2> goto vv9b] [if v12z+ eq <3> goto vv9c][if v12z+ eq <4> goto vv9d] [if v12z+ eq <5> goto vv9e][if v12z+ eq <6> goto vv9f] [if v12z+ eq <7> goto vv9g][if v12z+ eq <8> goto vv9h] [if v12z+ eq <9> goto vv9i][if v12z+ eq <10> goto vv9j] [goto vv9z] >vv9a< [store Name in v32a+][store pn3 in v33a+][goto vv9z] >vv9b< [store Name in v32b+][store pn3 in v33b+][goto vv9z] >vv9c< [store Name in v32c+][store pn3 in v33c+][goto vv9z] >vv9d< [store Name in v32d+][store pn3 in v33d+][goto vv9z] >vv9e< [store Name in v32e+][store pn3 in v33e+][goto vv9z] >vv9f< [store Name in v32f+][store pn3 in v33f+][goto vv9z] >vv9g< [store Name in v32g+][store pn3 in v33g+][goto vv9z] >vv9h< [store Name in v32h+][store pn3 in v33h+][goto vv9z] >vv9i< [store Name in v32i+][store pn3 in v33i+][goto vv9z] >vv9j< [store Name in v32j+][store pn3 in v33j+] >vv9z< [roster end stpaway] [# v10a is counter for total number or R's and spouse's children age 4 and under living anywhere >v10a< [allow 2][store <0> in v10a][store vv2 in v10a] [add v6 to v10a][add v12z to v10a] [# create age of youngest child age 0-18 in hh (ayoc) >AYOC< [allow int 2][store <18> in AYOC] [#changed to integer 11/20/0 bbd] >aycf< [allow 1][store <0> in aycf] >ayc1< [roster begin hhmem] >ayc2< [if stat is goto ayc3] [if rel is <> goto ayc3][if rel le <2> goto ayc3] [if rel ge <8> goto ayc3][if age ge <19> goto ayc3] [store <1> in aycf+][if age gt AYOC+ goto ayc3] [store age in AYOC+] >ayc3< [roster end hhmem] >ayc4< [if aycf eq <0>] [store <99> in AYOC] [endif] >ayc5< [store AYOC in ayoc] >gpar< [allow 1][store <0> in gpar] >gp1< [roster begin hhmem] >gp2< [if stat is goto gp4] [if age le <18> goto gp4][if rel is <6> goto gp4] [if chl1 ge <1> goto gp3][goto gp4] >gp3< [store <1> in gpar+] >gp4< [roster end hhmem] >gp5< [if num3 is <> goto gp10][if num3 is <0> goto gp10] >gp6< [roster begin chaway] >gp7< [if STAT is goto gp9][if age2 le <18> goto gp9] [if chl2 ge <1> goto gp8][goto gp9] >gp8< [store <1> in gpar+] >gp9< [roster end chaway] >gp10< [if num4 is <> goto f735][if num4 is <0> goto f735] >gp11< [roster begin stpaway] >gp12< [if Stat is goto gp14][if age3 le <18> goto gp14] [if chl3 ge <1> goto gp13][goto gp14] >gp13< [store <1> in gpar+] >gp14< [roster end stpaway] >f735< [allow 1][store <0> in f735] >f736< [allow 1][store <0> in f736] >f738< [allow 1][store <0> in f738] >f739< [allow 1][store <0> in f739] >735a< [roster begin hhmem] >735b< [if pnum is <1> goto 735e][if stat is goto 735e] [if rel eq <9> goto 735c][if rel eq <11> goto 735d][goto 735e] >735c< [store <1> in f735+][#if sex is <5> goto 735e][if sex is <2> goto 735e][#manually changed precode 10/19/0 bbd] [store <0> in f735+][store <1> in f736+][goto 735e] >735d< [store <1> in f738+][#if sex is <5> goto 735e][if sex is <2> goto 735e][#manually changed precode 10/19/0 bbd] [store <0> in f738+][store <1> in f739+][goto 735e] >735e< [roster end hhmem] >fg55< [allow 1] [#ADDED FOR CLEANING INSTRUMENT] [if entry mode] [store <0> in fg55] [else] [copy fg55 in fg55] [endif] >55a< [roster begin hhmem] >55b< [if stat is goto 55c] [if age is <-1> goto 55c] [if age is <-2> goto 55c] [if age le <54> goto 55c] [#ADDED FOR CLEANING INSTRUMENT] [if entry mode] [store <1> in fg55+] [endif] >55c< [roster end hhmem] >parh< [allow 1][store <0> in parh][if hh1 isnt <5> goto pppp] >prh1< [roster begin hhmem] >prh2< [if stat is goto prh5][if rel is <> goto prh5] [if hh2+ is pnum goto prh3] [if hh3+ is pnum goto prh3][goto prh5] >prh3< [if rel is <9> goto prh4][if rel is <10> goto prh4][goto prh5] >prh4< [store <1> in parh+] >prh5< [roster end hhmem] >pppp< [allow 1] >tm2< [allow 4] [##label = timestamp, end of household composition module] [if entry mode] [#settime tm2] [endif] [copy tm2 in tm2] >end3< [goto vwvw]