*! 1.0.1 15Apr97 (Jeroen Weesie/ICS)  STB-43 dm58
program define hh_is
    version 5.0

    local hnr   : char _dta[HH_nr]     
    local sex   : char _dta[HH_sex]
    local idrop : char _dta[HH_idrop]

    if "`hnr'" == "" | "`sex'" == "" | "`idrop'" == "" {
        di "Data is not in household format (hh)"
        exit 198
    }
    capt confirm exist `hnr'
    if _rc {
        di in re "hh: household-identification-variable `hnr' not found"
        exit 198
    }
    capt confirm exist `sex'
    if _rc {
        di in re "hh: sex-of-partners variable `sex' not found"
        exit 198
    }
    capt confirm exist `idrop'
    if _rc {
        di in re "hh: internal variable `idrop' not found"
        exit 198
    }
end