NLSY79

NLSY79 Appendix 29: Date of Interview Current Status Variables

The NLSY79 public release data contains a set of variables for survey years 1980-2020 with information on the respondent's labor force status at each date of interview. These variables are:

DOI_EMPLOYED		DATE OF INTERVIEW STATUS – EMPLOYED
DOI_HOURS_WORKED		DATE OF INTERVIEW STATUS – HOURS WORKED
DOI_RETIRED		DATE OF INTERVIEW STATUS – RETIRED
DOI_DISABLED		DATE OF INTERVIEW STATUS – DISABLED

Below is a description of these variables and the process by which they were constructed.

Variable Description

In survey years 1979-1998 and 2006, the NLSY79 included a heavily used variable called Employment Status Recode (ESR) for each year. These variables represented the respondent's employment status during the survey week and were based on a very specific set of questions that mirrored the actual monthly Current Population Survey. Because ESR can only be computed from those specific questions, it cannot be computed in a strictly equivalent way in survey years in which the CPS section was not fielded as part of the NLSY79.

Many inquiries have been received concerning the missing ESR variables in non-CPS survey years. The Date of Interview Current Status (DOI) variables are intended to help provide a similar concise picture of a respondent's current status on the date of interview. The DOI variables provide a snapshot, capturing whether on the interview date the respondent:

was employed (DOI_EMPLOYED)
worked more or less than 30 hours per week (DOI_HOURS_WORKED)
considered herself/himself retired or reported current retirement status during the course of the survey, regardless of employment status (DOI_RETIRED)
considered herself/himself disabled, or reported current disability status in the course of the survey, regardless of employment status (DOI_DISABLED)

Users should note that the working/retired/disabled statuses are not necessarily mutually exclusive within single survey years, or continuous through multiple survey years. For example, a respondent may report that s/he is retired and disabled, but also working in some capacity at a single interview point. Likewise, a respondent who reports herself/himself disabled at one point in time may not be disabled (or provides no evidence of disability) at a later interview date. Similarly, someone who reports retirement at an earlier survey date may be working and not be identified as retired at a later survey date. For instance, respondents who have reported retirement from the military or a civil service/law enforcement position at a relatively early age may go on to a second full-time career and be identified only as employed in later years. An examination of current status variables in multiple years is necessary to determine if a respondent ever identified as retired/disabled, even if their status variables in the most current survey years do not reflect these reports.

Users should note that because the Date of Interview Current Status variables are based on weekly arrays, users may encounter a subset of cases that are assigned an "employed" status in these variables but report that they are "not currently working" in the actual survey.

Variable Creation

DOI_EMPLOYED – DATE OF INTERVIEW STATUS – EMPLOYED
These variables are based on codes in the Work History WEEKLY LABOR STATUS array. If a job number or a code for active military enlistment is present in the array for the week of interview, the respondent is assigned a current status of "1 - working." If the array for that week contains a code for unemployed or out of the labor force, the respondent is assigned a current status of "0 - not working."

DOI_HOURS_WORKED – DATE OF INTERVIEW STATUS – HOURS WORKED
The hours worked are determined from the Work History HOURS WORKED array. Those with 0 hours worked are assigned a -4 code. Respondents who worked between 1-29 hours during the interview week are assigned a code of "0 – less than 30 hours." Respondents who worked 30 or more hours that week are assigned a code of "1 – 30 hours or more."

DOI_RETIRED – DATE OF INTERVIEW STATUS - RETIRED
Current retirement status at the date of each interview was established by using available questions that allow respondents to specifically report retirement in a response category. There are only one or two such question opportunities in the NLSY79 in any given year, and they are not necessarily asked of the entire sample. For later survey years (1994-2020) comments entered during the interview were available for staff. Comments were examined to identify respondents who reported current retired status outside the structure of the proscribed interview questions. Questions used to determine retired status, with examples from 1990, 1998, 2012 and 2018, are:

1990 (QES-23A.##)
1998 (QES-23A.##, ESR_KEY)
2012 (QES-23A.##, RETIRE_EXP_P2_1A)
2018 (QES-23A.##, Q7-19.##, Q7-38)

DOI_DISABLED – DATE OF INTERVIEW STATUS - DISABLED
Similar to retirement status, current disability status at the date of each interview was established by using available questions that allow respondents to specifically report disability/inability to work in a response category. NLSY79 questionnaires offer various opportunities in any given year to report disability, although all are not necessarily asked of the entire sample. Questions used to determine disabled status, with examples from 1990, 2012 and 2018, are:

1990 (QES-23A.##, ESR_KEY, QES-43.##.##, Q7-19.##, Q11-3)
2012 (RETIRE_EXP_P2_1A, QES-23A.##, QES-43.##.##, Q7-19.##, Q11-3)
2018 (QES-23A.##, QES-43.##.##, QES-33.##.##, Q7-19.##, Q7-38, Q11-3)

As mentioned for the retirement variables above, comments entered during the interview were available to staff for survey years 1994-2020. Comments for these later years were examined to identify respondents who reported current disability status outside the structure of the proscribed interview questions as listed above.

Below is the *.sas code that created the 2020 Date of Interview Current Status variables:

COMPUTE 2020 (ROUND 29) DOI_EMPLOYED

Variable Names in Program Variable Names in Data Release

CURWK20 CURRINT_WK#_2020

STATUS_WK#### (2230-2296) STATUS_WK_NUM#### (2230-2296)

array status (i) _1-_2229 status_wk2230-status_wk2295;

do i=2230 to 2295;

if i=CURWK20 then do;

empstat_wbi=status;

end;

if empstat_wbi>0 & empstat_wbi<=5 then doi_employed=0;

else if empstat_wbi=7 then doi_employed=1;*in military service;

else if empstat_wbi>=2900 then doi_employed=1;

else if empstat_wbi=0 then doi_employed=-3;*no info reported to account for week,;

if CURWK20=-4 then doi_employed=-5;

COMPUTE 2020 (ROUND 29) DOI_HOURS_WORKED

Variable Names in Program Variable Names in Data Release

CURWK20 CURRINT_WK#_2020

HRS_WK#### (2230-2296) HRS_WORKED_WK_NUM#### (2230-2296)

array hrs (i) _1-_2229 hrs_wk2230-hrs_wk2295;

do i=2230 to 2295;

if i=CURWK20 then do;

hrs_doi=hrs;

end;

if doi_employed=0 then doi_hours_worked=-4;

else if doi_employed=1 then do;

if hrs_doi<0 & hrs_doi>-4 then doi_hours_worked=-3;

else if hrs_doi>=0 & hrs_doi<30 then doi_hours_worked=0;

else if hrs_doi>=30 then doi_hours_worked=1;

end;

else if doi_employed=-3 then doi_hours_worked=-3;

else if doi_employed=-5 then doi_hours_worked=-5;

COMPUTE 2020 (ROUND 29) DOI_RETIRED & DOI_DISABLED

Variable Names in Program Variable Names in Data Release

CURDATE_D CURDATE~D

CURDATE_M CURDATE~M

CURDATE_Y CURDATE~Y

QES_B QES-B

QES_23A_## (1-5) QES-23A.## (1-5)

QES_23A_2_## (1-5) QES-23A_2.## (1-5)

QES_31_##_##_D (job 1-5, gap 1-3) QES-31.##.##~D (job 1-5, gap 1-3)

QES_31_##_##_M (job 1-5, gap 1-3) QES-31.##.##~M (job 1-5, gap 1-3)

QES_31_##_##_Y (job 1-5, gap 1-3) QES-31.##.##~Y (job 1-5, gap 1-3)

QES_33_##_## (job 1-5, gap 1-3) QES-33.##.## (job 1-5, gap 1-3)

QES_43_##_## (job 1-3, gap 1-3) QES-43.##.## (job 1-3, gap 1-3)

Q7_11_##_D (1-4) Q7-11.##~D (1-4)

Q7_11_##_M (1-4) Q7-11.##~M (1-4)

Q7_11_##_Y (1-4) Q7-11.##~Y (1-4)

Q7_19_## (1-4) Q7-19.## (1-4)

Q7_38 Q7-38

Q11_3 Q11-3

Q11_4 Q11-4

Q11_5 Q11-5

Q11_5A Q11-5A

Q11_7 Q11-7

Q11_8_M Q11-8~M

Q11_8Y_ Q11-8~Y

Q15_9A_1 Q15-9A~000001

Q15_9A_2 Q15-9A~000002

Q15_9A_3 Q15-9A~000003

Q15_9A_4 Q15-9A~000004

Q15_9A_5 Q15-9A~000005

Q15_9A_6 Q15-9A~000006

Q15_9A_7 Q15-9A~000007

RNI RNI

WORK DOI_EMPLOYED

HOURS30 DOI_HOURS_WORKED

EMP_STOP_##_D (1-13) EMPLOYER_STOPDATE.##~D (1-13)

EMP_STOP_##_M (1-13) EMPLOYER_STOPDATE.##~M (1-13)

EMP_STOP_##_Y (1-13) EMPLOYER_STOPDATE.##~Y (1-13)

data three;

set one;

*why leaving a job;

array stopd (*) EMP_STOP_01_D EMP_STOP_02_D EMP_STOP_03_D EMP_STOP_04_D EMP_STOP_05_D;

array stopm (*) EMP_STOP_01_M EMP_STOP_02_M EMP_STOP_03_M EMP_STOP_04_M EMP_STOP_05_M;

array stopy (*) EMP_STOP_01_Y EMP_STOP_02_Y EMP_STOP_03_Y EMP_STOP_04_Y EMP_STOP_05_Y;

array qes23a (*) qes_23a_01 qes_23a_02 qes_23a_03 qes_23a_04 qes_23a_05;

*within job gap;

array qes31d (*) QES_31_01_01_D QES_31_01_02_D QES_31_01_03_D

QES_31_02_01_D QES_31_02_02_D QES_31_02_03_D

QES_31_03_01_D QES_31_03_02_D QES_31_03_03_D

QES_31_04_01_D QES_31_04_02_D QES_31_04_03_D

QES_31_05_01_D ES_31_05_02_D dum;

array qes31m (*) QES_31_01_01_M QES_31_01_02_M QES_31_01_03_M

QES_31_02_01_M QES_31_02_02_M QES_31_02_03_M

QES_31_03_01_M QES_31_03_02_M QES_31_03_03_M

QES_31_04_01_M QES_31_04_02_M QES_31_04_03_M

QES_31_05_01_M QES_31_05_02_M dum;

array qes31y (*) QES_31_01_01_Y QES_31_01_02_Y QES_31_01_03_Y

QES_31_02_01_Y QES_31_02_02_Y QES_31_02_03_Y

QES_31_03_01_Y QES_31_03_02_Y QES_31_03_03_Y

QES_31_04_01_Y QES_31_04_02_Y QES_31_04_03_Y

QES_31_05_01_Y QES_31_05_02_Y dum;

array qes33 (*) QES_33_01_01 QES_33_01_02 QES_33_01_03

QES_33_02_01 QES_33_02_02 QES_33_02_03

QES_33_03_01 QES_33_03_02 QES_33_03_03

QES_33_04_01 QES_33_04_02 QES_33_04_03

QES_33_05_01 QES_33_05_02 dum;

array qes43 (*) qes_43_01_01 qes_43_01_02 qes_43_01_03

qes_43_02_01 qes_43_02_02 qes_43_03_03

qes_43_03_01 qes_43_03_02 qes_43_03_03

dum dum dum

dum dum dum;

*between job gaps;

array q711d (*) Q7_11_01_D Q7_11_02_D Q7_11_03_D Q7_11_04_D;

array q711m (*) Q7_11_01_M Q7_11_02_M Q7_11_03_M Q7_11_04_M;

array q711y (*) Q7_11_01_Y Q7_11_02_Y Q7_11_03_Y Q7_11_04_Y;

array q719 (*) q7_19_01 q7_19_02 q7_19_03 q7_19_04;

***** retire or not at interview date;

if qes_23a_01=-5 then qes23aR=-5;

else do;

qes23aR = 0;

q719R=0; q719R3=0;

do i = 1 to dim(qes23a);

if (qes23a(i) = 17) then qes23aR = (qes23aR + 1);

end;

do i = 1 to dim(q719);

if q719(i) = 13 & (qes_b in (0 -4) or (q711d(i)=curdate_d & q711m(i)=curdate_m & q711y(i)=curdate_y)) then q719R = (q719R + 1);

end;

if q719R=0 then do i = 1 to dim(q719);

if q719(i) = 13 & (q711d(i) in (-1 -2 -3) or q711m(i) in (-1 -2 -3) or q711y(i) in (-1 -2 -3)) then q719R3 = (q719R3 + 1);

end;

if qes_23a_01=-5 then retire=-5;

else do;

retire=0;

if (q7_38 = 5) then do; retire = 1; flag_r0=1; end;

else if qes23aR > 0 then do; retire = 1; flag_r1=1; end;

else if q719R>0 then do; retire = 1; flag_r2=1; end;

else if q719R3>0 then do; retire = 1; flag_r23=1; end;

end;

***** disabled or not at interview date;

if qes_23a_01=-5 then do;

qes23aD=-5;

qes43D=-5;

q719D=-5;

q113D=-5;

end;

else do;

qes23aD=0; qes23aD3=0;

qes43D=0; qes43D3=0;

q719D=0; q719D3=0;

q113D=0;

do i = 1 to dim(qes23a);

if work=0 & qes23a(i) = 10 & ( (0<stopy(i) & stopy(i)<curdate_y) or (stopy(i)=curdate_y & 0<stopm(i) & stopm(i)<curdate_m)

or (stopy(i)=curdate_y & stopm(i)=curdate_m & 0<stopd(i) & stopd(i)<curdate_d)) then qes23aD = qes23aD + 1;

end;

if qes23aD=0 then do i = 1 to dim(qes23a);

if work=0 & qes23a(i) = 10 & (stopy(i) in (-1 -2 -3) or stopm(i) in (-1 -2 -3) or stopd(i) in (-1 -2 -3)) then qes23aD3= qes23aD3+1;

end;

do i = 1 to dim(qes43);

if (qes43(i) = 2 or qes33(i)=9) & (qes31d(i)=curdate_d & qes31m(i)=curdate_m & qes31y(i)=curdate_y) then qes43D = (qes43D + 1);

end;

if qes43D=0 then do i = 1 to dim(qes43);

if (qes43(i) = 2 or qes33(i)=9) & (qes31d(i) in (-1 -2 -3) or qes31m(i) in (-1 -2 -3) or qes31y(i) in (-1 -2 -3)) & work=0 then qes43D3=qes43D3 + 1;

end;

do i = 1 to dim(q719);

if q719(i) = 9 & (qes_b in (0 -4) or (q711d(i)=curdate_d & q711m(i)=curdate_m & q711y(i)=curdate_y)) then q719D = (q719D + 1);

end;

if q719D=0 then do i = 1 to dim(q719);

if q719(i) = 9 & (q711d(i) in (-1 -2 -3) or q711m(i) in (-1 -2 -3) or q711y(i) in (-1 -2 -3)) then q719D3 = (q719D3 + 1);

end;

if q11_3=1 then q113D=1;

end;

if qes_23a_01=-5 then disable=-5;

else do;

disable=0;

if (q7_38 = 4) then do; disable = 1; flag_d0=1; end;

else if qes23aD>0 then do; disable=1; flag_d1=1; end;

else if qes43D>0 then do; disable=1; flag_d2=1; end;

else if q719D>0 then do; disable=1; flag_d3=1; end;

else if q113D>0 then do; disable=1; flag_d4=1; end;

else if qes23aD3>0 then do; disable=1; flag_d13=1; end;

else if qes43D3>0 then do; disable=1; flag_d23=1; end;

else if q719D3>0 then do; disable=1; flag_d33=1; end;

end;

Read more about NLSY79 Appendix 29: Date of Interview Current Status Variables

NLSY79 Appendix 28: NLSY79 Employer History Roster

The Employer History Roster (EHR) has been available to public data users since 2013. This sizeable set of variables incorporates a substantial amount of information about each employer into a single record for each. See Appendix 13: Development of Questionnaires and Codebooks for a description of rosters as a data structure. Programs that created the EHR can be accessed in the Employer History Roster Creation Programs pdf file.

Introduction

Throughout NLSY79 history, it has been a common exercise for users to track employer records through multiple survey years. The traditional means of linking job records is somewhat involved, requiring multiple steps and identification of job numbers in current, previous and subsequent survey years (See Appendix 9: Linking Employers Through Survey Years).

The EHR is intended to alleviate if not eliminate the burden of linking jobs for users. In the EHR, employer records through survey years have already been linked into a single continuous cumulative record for each employer ever reported by a respondent. The roster currently contains data for up to 67 employers (up to 67 records). This means that at least one respondent has reported 67 jobs over the course of the NLSY79's 29 survey rounds, spanning 42 years. Most respondents of course will have a much smaller number of jobs reported since 1979 and only a single respondent has reported 67 jobs.

While the EHR does not contain all information ever reported about each employer, it does contain a substantial amount of commonly used data items that are consistently found through the survey's history. Users can also more easily incorporate job-related data items that are not currently on the roster. Instructive examples of how the roster data can be used appear below. Variables that are part of the EHR are available through the NLS Investigator search and extraction tool. These variables can be found in Investigator by using the areas of interest that start with 'EMPLOYER HISTORY,' question names that start with 'EMPLOYERS_ALL' or reference numbers that start with 'E.' The variables in this roster are classified as 'XRND', meaning that they are not linked to any specific survey year (see the Glossary of NLS Terms for a full definition of XRND). Instead, they are updated each round with the most current cumulative data available.

Please note: Variables referenced in the following discussion are described in Table 1, which lists the contents of the Employer History Roster.

Roster Construction

The process of constructing the historical EHR began by establishing preliminary linkages similar to that described in Appendix 9. Employers were tracked between current, previous and subsequent survey years using multiple employer numbers in each survey year. After preliminary matches were established, linkages and discrepancies were examined in detail, often using in-house data not available publicly. This might include items such as occupation and industry descriptions and interviewer comments made during the course of an interview, in conjunction with employer names. Examining these items could in some cases serve to clarify connections between jobs reported in various years. Consequently, at least some employer records built in the EHR may be of higher quality than those that can be established using publicly available data.

Employer Order

Employers are listed on the EHR in chronological order by the earliest start date reported for a job. For instance:

Employer #1 will be the job with the earliest start date ever reported for any job.
Employer #4 will be the job with the 4^th earliest start date. There will be three jobs with earlier start dates in the roster, numbered Employers #1, #2 and #3.

Please note that the order of an employer on the roster (from 1-67 possible) is based solely on the original start date (the earliest start date available) at the first report of that job. It is not based on the survey year in which the job was first reported. Consider the following example:

A respondent has reported 3 jobs through the 1987 survey year. These jobs with original start dates ranging from 1978 to 1984, have the following pattern:
- Employer first reported 1979, original start date = Jan. 1978
- Employer first reported 1983, original start date = Nov. 1982
- Employer first reported 1987, original start date = Jan. 1987

During the 1988 interview, the respondent reports a 4th employer that s/he failed to report at an earlier interview with an original start date of March 1985. While this job will be numbered by the 'unique identification number' as a job reported in the 1988 survey year, its order on the roster will precede the job reported in 1987. Although the 1987 job was reported first, it actually started later. In this simple example, the order of employers on the roster would appear as:

Employer #1: first reported 1979, original start date = Jan. 1978, unique id = 19790100
Employer #2: first reported 1983, original start date = Nov. 1982, unique id = 19830100
Employer #3: first reported 1988, original start date = Mar. 1985, unique id = 19880100
Employer #4: first reported 1987, original start date = Jan. 1987, unique id = 19870100

These types of reporting irregularities along with possible isolated errors in recording and data entry errors are not common but are recurrent throughout the life of the survey. As many inconsistencies as possible were resolved in the construction of the EHR.

Roster Content

The vast majority of variables currently included on the EHR are directly copied from responses collected during the survey or from data items already coded or created separately for the public release dataset. For example, start and stop dates, currently working status and class of worker are all responses collected during the interview. Occupation and industry variables are coded from responses collected during the interview. Start and stop weeks and array job numbers are variables created by the Work History programs (see Appendix 18: Work History Data).

Table 1 lists the contents of the Employer History Roster by area of interest and question name. The EHR currently contains data for up to 67 jobs ever reported.

Table 1: Employer Roster
EMPLOYER HISTORY -- JOB CHARACTERISTICS
Question names	Description	Source	Variables included for:
EMPLOYERS_ALL_GOVJOB_[YEAR].[JOB#]	Was this job a government job?	Direct survey responses	Each job for each survey year through 1987 (a)
EMPLOYERS_ALL_CPSJOB_[YEAR].[JOB#]	Was this job the CPS (current/most recent) job?	Direct survey responses	Each job for each survey year (a)
EMPLOYERS_ALL_UNION_[YEAR].[JOB#]	R covered by union or employee contract on the job?	Direct survey responses	Each job for each survey year (a)
EMPLOYERS_ALL_CURWK_[YEAR].[JOB#]	R currently working for employer at date of interview?	Direct survey responses	Each job for each survey year (a)
EMPLOYER HISTORY -- JOB EMPLOYER IDS
EMPLOYERS_ALL_NUM_ARRAY_[YEAR].[JOB#]	Number loaded into Work History Labor Force Status array	Created by Work History Programs	Each job for each survey year (a)
EMPLOYERS_ALL_PREVID_[YEAR].[JOB#]	Job number of employer from previous interview	Direct survey responses	Each job for each survey year (a)
EMPLOYERS_ALL_ID_[YEAR].[JOB#]	ID number of job in survey year	Direct survey responses	Each job for each survey year (a)
EMPLOYERS_ALL_UID.[JOB#] (c)	Unique identification number for each job, consisting of survey year job first reported, appended with job number in that survey year * 100 (e.g. job #2 first reported in 1980 = 19800200)	Created for EHR	Each job (b)
EMPLOYER HISTORY -- JOB HOURS WORKED
EMPLOYERS_ALL_HOURSDAY_[YEAR].[JOB#] User Note: These variables are not available for self-employed jobs.	Hours per day usually worked at job	Direct survey responses	Each job for each survey year (a)
EMPLOYERS_ALL_HOURSWEEK_[YEAR].[JOB#]	Hours per week usually worked at job	Direct survey responses	Each job for each survey year (a)
EMPLOYER HISTORY -- JOB INDUSTRY, OCCUPATION AND CLASS OF WORKER
EMPLOYERS_ALL_IND_[YEAR].[JOB#] User note: The coding frame for these variables is different for survey years 1979-2000 and for 2002 through current data releases. The 1970 Census coding frame was used for variables through the 2000 survey year. The 2000 Census coding frame was applied in 2002 and subsequent survey years.	Type of business or industry for employer	Coded from survey responses	Each job for each survey year (a)
EMPLOYERS_ALL_OCC_[YEAR].[JOB#] User note: The coding frame for these variables is different for survey years 1979-2000 and for 2002 through current data releases. The 1970 Census coding frame was used for variables through the 2000 survey year. The 2000 Census coding frame was applied in 2002 and subsequent survey years.	Occupation for employer	Coded from survey responses	Each job for each survey year (a)
EMPLOYERS_ALL_COW_[YEAR].[JOB#] User note: Researchers using these variables across multiple survey rounds should take careful note that the response categories changed in 1994. Categories are consistent from 1979-1993, and from 1994 through the current data release.	Class of worker for employer	Coded from survey responses	Each job for each survey year (a)
EMPLOYER HISTORY -- JOB ORIGINAL STARTDATES AND MOST RECENT STOPDATES
EMPLOYERS_ALL_STOPDATE_MOST_RECENT.[JOB#]~[D/M/Y] (d)	Most recent stopdates for employer	Created from survey responses for EHR	Each job (b)
EMPLOYERS_ALL_STARTDATE_ORIGINAL.[JOB#]~[D/M/Y] (c)	Original startdate for employer	Created from survey responses for EHR	Each job (b)
EMPLOYER HISTORY -- JOB PAYRATES AND TIME UNITS
EMPLOYERS_ALL_TIMERATE_[YEAR].[JOB#]	Time unit for rate of pay	Survey responses	Each job for each survey year (a)
EMPLOYERS_ALL_PAYRATE_[YEAR].[JOB#]	Payrate for employer	Coded from survey responses	Each job for each survey year (a)
EMPLOYERS_ALL_HRLY_WAGE_[YEAR].[JOB#]	Hourly rate of pay for employer	Coded from survey responses	Each job for each survey year (a)
EMPLOYER HISTORY -- JOB START DATES
EMPLOYERS_ALL_STARTDATE_[YEAR].[JOB#]~[D/M/Y]	Startdate for employer	Direct survey responses	Each job for each survey year (a)
EMPLOYER HISTORY -- JOB START WEEKS
EMPLOYERS_ALL_STARTWEEK_[YEAR].[JOB#]	Week number of start date for job	Created by Work History Programs	Each job for each survey year (a)
EMPLOYER HISTORY -- JOB STOP DATES
EMPLOYERS_ALL_STOPDATE_[YEAR].[JOB#]~[D/M/Y]	Stop date for employer	Direct survey responses	Each job for each survey year (a)
EMPLOYER HISTORY -- JOB STOP WEEKS
EMPLOYERS_ALL_STOPWEEK_[YEAR].[JOB#]	Week number of stop date for job	Created by Work History Programs	Each job for each survey year (a)
EMPLOYER HISTORY -- JOB TENURE AND PRETENURE
EMPLOYERS_ALL_PRETEN_[YEAR].[JOB#]	Months worked for employer before date of last interview	Direct survey responses	Each job for each survey year (a)
EMPLOYERS_ALL_TENURE_[YEAR].[JOB#]	Total weeks tenure with employer	Created by Work History Programs	Each job for each survey year (a)
EMPLOYERS_ALL_PAST_[YEAR].[JOB#]	R work for employer before date of last interview?	Direct survey responses	Each job for each survey year (a)
EMPLOYERS HISTORY -- JOB WHY LEFT
EMPLOYERS_ALL_WHYLEFT_[YEAR].[JOB#] User note: Researchers using these variables across multiple survey rounds should take careful note that the response categories and assignments of response codes have changed a number of times over the 29 survey rounds. For example, response code "2" may mean 'Discharged or fired' in one survey year and 'Plant closed' in another. Likewise, 'Layoff' is grouped with 'Plant closed, or end of temporary or seasonal job' in some survey years and is listed as a separate response category in others.	Reason left job	Direct survey responses	Each job for each survey year (a)
EMPLOYERS_ALL_WHYLEFT_MOST_RECENT.[JOB#] User note: This variable contains the most recent reason why the respondent left the job, even if the respondent has since returned and is currently working at that job. Also please note: Response categories for these variables incorporate all possible responses across survey years. For instance, 'Layoff' is listed separately from 'Layoff, plant closed, or end of temporary or seasonal job', because both of these responses categories existed in different survey years.	Reason left job most recent time left	Created from survey responses for EHR	Each job (b)
EMPLOYERS_ALL_WHYLEFT_MOST_RECENT_COL.[JOB#] User note: Response categories for these variables collapses all possible categories in the EMPLOYERS_ALL_WHYLEFT_MOST_RECENT.[JOB#] variables into 6 broad categories. This variable contains the most recent reason why the respondent left the job, even if the respondent has since returned and is currently working at that job.	Reason left job most recent time left - collapsed	Created from survey responses for EHR	Each job (b)
EMPLOYER HISTORY -- WITHIN JOB GAPS REASON NOT WORKING
EMPLOYERS_ALL_WHYNOWK_[YEAR].[JOB#].[GAP#]	Reason not working for within job gap	Direct survey responses	Each job for each gap for each survey year (e)
EMPLOYER HISTORY -- WITHIN JOB GAPS START DATES
EMPLOYERS_ALL_PERSTART_[YEAR].[JOB#].[GAP#]	Week number of start dates for within job gap	Created by Work History Programs	Each job for each gap for each survey year (e)
EMPLOYER HISTORY -- WITHIN JOB GAPS STOP DATES
EMPLOYERS_ALL_PERSTOP_[YEAR].[JOB#].[GAP#]	Week number of stop dates for within job gap	Created by Work History Programs	Each job for each gap for each survey year (e)
EMPLOYER HISTORY -- WITHIN JOB GAPS WEEKS LOOKING
EMPLOYERS_ALL_LOOK_[YEAR].[JOB#].[GAP#]	Any weeks looking for work during within job gap	Direct survey responses	Each job for each gap for each survey year (e)
EMPLOYER HISTORY -- WITHIN JOB GAPS WEEKS NOT WORKING
EMPLOYERS_ALL_NOTLOOK_[YEAR].[JOB#].[GAP#]	Number of weeks not looking for work during within job gap	Direct survey responses	Each job for each gap for each survey year (e)
EMPLOYER HISTORY -- WITHIN JOB GAPS WEEKS NOT WORKING
EMPLOYERS_ALL_WKSNOTWK_[YEAR].[JOB#]	Any weeks not working for employer	Direct survey responses	Each job for each gap for each survey year (e)

(a) Variables created for 'each job for each survey year' will have one variable picked up for each survey year for each job the respondent has reported. For instance, the EMPLOYERS_ALL_CURWK_[YEAR].[JOB#] set of variables will include the 'currently working' status for each job reported, in each survey year that a job was active. If a respondent reports employer #1, spanning from 1980-1989, a variable will be present for employer #1 for each survey year (EMPLOYERS_ALL_CURWK_1980.01, EMPLOYERS_ALL_CURWK_1981.01, EMPLOYERS_ALL_CURWK_1982.01...EMPLOYERS_ALL_CURWK_1989.01). If the respondent reports employer #2, spanning from 1985-1990, another set of those variables would be available for employer #2 for each of those survey years (EMPLOYERS_ALL_CURWK_1985.02, EMPLOYERS_ALL_CURWK_1986.02, etc.). Users should note that the EMPLOYERS_ALL_GOVJOB_[YEAR].[JOB#] set of variables only exist through 1987, when that question was dropped from the survey.

(b) Variables created for 'each job' will have one variable per employer. EMPLOYERS_ALL_UID.[JOB#], EMPLOYERS_ALL_STARTDATE_ORIGINAL.[JOB#]~[D/M/Y] and EMPLOYERS_ALL_STOPDATE_MOST_RECENT.[JOB#]~[D/M/Y] are all examples of variables that appear only once for each job. Each employer has only one unique identification number, one original start date and one most recent stop date. These variables will be present for each reported employer, regardless of the survey years in which they were reported.

(c) Once assigned, the unique id and original start date for an employer will not change except under two conditions: 1) an error is found in the reporting record that necessitates either a correction to an original start date or a reordering of employers, and/or 2) more employers are recovered from archives that necessitate a chronological reordering of employers for a respondent.

(d) The most recent stop date for an employer will be updated with each successive interview during which that employer is reported, until the respondent leaves the employer and does not return.

(e) Variables created for 'each job for each gap for each survey' are similar to the variables in group (b) above, but are present for up to 4 gaps reported within the tenure of each job. For example, if a respondent reports two gaps within the tenure for employer #2 and one gap within the tenure for employer #3 in 1986, gap variables would be present for each employer for that survey year. EMPLOYERS_ALL_WHYNOWK_[YEAR].[JOB#].[GAP#] variables in that case would be EMPLOYERS_ALL_WHYNOWK_1986.02.01 and EMPLOYERS_ALL_WHYNOWK_1986.02.02 (gaps within tenure with employer #2), and EMPLOYERS_ALL_WHYNOWK_1986.03.01 (gap within tenure with employer #3).

Roster Structure

The Employer History Roster is structured with a single 'record' for each employer. The information from survey year to survey year for the same employers has already been linked into this single record. This allows researchers to look at the record for an employer for the entire time the job was reported. Information for each specific job can be identified using the following search criteria:

Question Name (enter search term) + starts with + 'EMPLOYERS_ALL'
Word in Title (enter search term) + contains + 'JOB ##'

The NLS Investigator search captured in Figure 1 below will produce all variables on the roster pertaining to the first job a respondent ever reported, regardless of when that job was first reported. Some respondents may have reported their first job in 1979 while others may not have reported their first job until 1985.

Figure 1. Investigator Search to Produce All Variables Pertaining to First Job Reported

Each successive survey year presents the opportunity for a respondent to report additional employers. Consider a respondent with the reporting record depicted in Table 2:

Table 2: Hypothetical Respondent's Reporting Record
Interview date	Order in EHR	Original start date	Most recent stop date	Unique ID	Employer information reported in survey years	Examples of variables present for each job
Feb. 1, 1979	4	Mar. 1, 1978	Feb. 2, 1980	19790100	1979, 1980	EMPLOYERS_ALL_UID.04, EMPLOYERS_ALL_STARTDATE_ORIGINAL.04~[D/M/Y], EMPLOYERS_ALL_MOST_RECENT_STOPDATE.04~[D/M/Y], EMPLOYERS_ALL_CURWK_1979.04, EMPLOYERS_ALL_ID_1979.04, EMPLOYERS_ALL_IND_1979.04, EMPLOYERS_ALL_OCC_1979.04, EMPLOYERS_ALL_CURWK_1980.04, EMPLOYERS_ALL_ID_1980.04, EMPLOYERS_ALL_IND_1980.04, EMPLOYERS_ALL_OCC_1980.04
	3	Feb. 15, 1978	Dec. 15, 1979	19790200	1979, 1980	EMPLOYERS_ALL_UID.03, EMPLOYERS_ALL_STARTDATE_ORIGINAL.03~[D/M/Y], EMPLOYERS_ALL_MOST_RECENT_STOPDATE.03~[D/M/Y], EMPLOYERS_ALL_CURWK_1979.03, EMPLOYERS_ALL_ID_1979.03, EMPLOYERS_ALL_IND_1979.03, EMPLOYERS_ALL_OCC_1979.03, EMPLOYERS_ALL_CURWK_1980.03, EMPLOYERS_ALL_ID_1980.03, EMPLOYERS_ALL_IND_1980.03, EMPLOYERS_ALL_OCC_1980.03
	1	Feb. 15, 1977	Jan. 15, 1979	19790300	1979	EMPLOYERS_ALL_UID.01, EMPLOYERS_ALL_STARTDATE_ORIGINAL.01~[D/M/Y], EMPLOYERS_ALL_MOST_RECENT_STOPDATE.01~[D/M/Y], EMPLOYERS_ALL_CURWK_1979.01, EMPLOYERS_ALL_ID_1979.01, EMPLOYERS_ALL_IND_1979.01, EMPLOYERS_ALL_OCC_1979.01
	2	Apr. 1, 1977	Dec. 31, 1978	19790400	1979	EMPLOYERS_ALL_UID.02, EMPLOYERS_ALL_STARTDATE_ORIGINAL.02~[D/M/Y], EMPLOYERS_ALL_MOST_RECENT_STOPDATE.02~[D/M/Y], EMPLOYERS_ALL_CURWK_1979.02, EMPLOYERS_ALL_ID_1979.02, EMPLOYERS_ALL_IND_1979.02, EMPLOYERS_ALL_OCC_1979.02
Jan. 15, 1980	5	Jun. 15, 1979	Aug. 1, 1981	19800100	1980, 1981, 1982	EMPLOYERS_ALL_UID.05, EMPLOYERS_ALL_STARTDATE_ORIGINAL.05~[D/M/Y], EMPLOYERS_ALL_MOST_RECENT_STOPDATE.05~[D/M/Y], EMPLOYERS_ALL_CURWK_1980.05, EMPLOYERS_ALL_ID_1980.05, EMPLOYERS_ALL_IND_1980.05, EMPLOYERS_ALL_OCC_1980.05, EMPLOYERS_ALL_CURWK_1981.05, EMPLOYERS_ALL_ID_1981.05, EMPLOYERS_ALL_IND_1981.05, EMPLOYERS_ALL_OCC_1981.05, EMPLOYERS_ALL_CURWK_1982.05, EMPLOYERS_ALL_ID_1982.05, EMPLOYERS_ALL_IND_1982.05, EMPLOYERS_ALL_OCC_1982.05
	6	Sep. 15, 1979	Jun. 1, 1980	19800200	1980, 1981	EMPLOYERS_ALL_UID.06, EMPLOYERS_ALL_STARTDATE_ORIGINAL.06~[D/M/Y], EMPLOYERS_ALL_MOST_RECENT_STOPDATE.06~[D/M/Y], EMPLOYERS_ALL_CURWK_1980.06, EMPLOYERS_ALL_ID_1980.06, EMPLOYERS_ALL_IND_1980.06, EMPLOYERS_ALL_OCC_1980.06, EMPLOYERS_ALL_CURWK_1981.06, EMPLOYERS_ALL_ID_1981.06, EMPLOYERS_ALL_IND_1981.06, EMPLOYERS_ALL_OCC_1981.06
Mar. 4, 1981	8	Nov. 15, 1980	Nov. 15, 1981	19810100	1981, 1982	EMPLOYERS_ALL_UID.08, EMPLOYERS_ALL_STARTDATE_ORIGINAL.08~[D/M/Y], EMPLOYERS_ALL_MOST_RECENT_STOPDATE.08~[D/M/Y], EMPLOYERS_ALL_CURWK_1981.08, EMPLOYERS_ALL_ID_1981.08, EMPLOYERS_ALL_IND_1981.08, EMPLOYERS_ALL_OCC_1981.08, EMPLOYERS_ALL_CURWK_1982.08, EMPLOYERS_ALL_ID_1982.08, EMPLOYERS_ALL_IND_1982.08, EMPLOYERS_ALL_OCC_1982.08
	7	Aug. 15, 1980	Jun. 30, 1981	19810200	1981, 1982	EMPLOYERS_ALL_UID.07, EMPLOYERS_ALL_STARTDATE_ORIGINAL.07~[D/M/Y], EMPLOYERS_ALL_MOST_RECENT_STOPDATE.07~[D/M/Y], EMPLOYERS_ALL_CURWK_1981.07, EMPLOYERS_ALL_ID_1981.07, EMPLOYERS_ALL_IND_1981.07, EMPLOYERS_ALL_OCC_1981.07, EMPLOYERS_ALL_CURWK_1982.07, EMPLOYERS_ALL_ID_1982.07, EMPLOYERS_ALL_IND_1982.07, EMPLOYERS_ALL_OCC_1982.07
	9	Dec. 1, 1980	Feb. 28, 1981	19810300	1981	EMPLOYERS_ALL_UID.09, EMPLOYERS_ALL_STARTDATE_ORIGINAL.09~[D/M/Y], EMPLOYERS_ALL_MOST_RECENT_STOPDATE.09~[D/M/Y], EMPLOYERS_ALL_CURWK_1981.09, EMPLOYERS_ALL_ID_1981.09, EMPLOYERS_ALL_IND_1981.09, EMPLOYERS_ALL_OCC_1981.09
Feb. 2, 1982		Please note: Jobs with unique ids 19800100, 19810100 and 19810200 would still be active during the period between the 1981 and 1982 interview and would therefore have information reported during the 1982 interview.

In the example in Table 2, the respondent has reported four employers at the initial 1979 interview, two additional employers at the 1980 interview, and three more new employers at the 1981 interview.

The original start date, most recent stop date and unique id variables fall into the category of variables in Table 1 created for 'each job'. They will be present for all jobs reported by a respondent. If by 1990, the respondent has reported 13 jobs, 13 original start dates, 13 original stop dates and 13 unique ids will be present in the EHR for that respondent.
In the Table 2 example, those variables falling into the other categories in Table 1 (variables present for each job (and each gap if applicable) for each survey year in which the job is reported), will be present only for the survey years listed in column 6 ('Employer information reported in survey years'), as those are the survey years in which information on the specific jobs would have been collected. Examples of the variables that would be present for the respondent and jobs listed in Table 2 are in the final column ('Examples of variables present for each job').

Variables for all jobs will not be present for all respondents. For example:

A respondent reporting only 5 jobs through 2010 will have no data at all for jobs 6 through 67.
Likewise, a respondent reporting their 28^th employer starting in 1990 will have no data for that 28^th employer picked up from survey years 1979-1989. In this instance, variables EMPLOYERS_ALL_UID.28, EMPLOYERS_ALL_STARTDATE_ORIGINAL.28~[D/M/Y], and EMPLOYERS_ALL_MOST_RECENT_STARTDATE.28~[D/M/Y] will be present but variables from the specific survey years 1979-89 (for instance, EMPLOYERS_ALL_OCC_1979.28, EMPLOYERS_ALL_OCC_1980.28, EMPLOYERS_ALL_OCC_1981.28, etc.) will not be present. Those variables will appear for 1990 when the job is first reported and be present for each subsequent survey year in which the job is reported. If this employer is reported in 1990, 1991 and 1992, EMPLOYERS_ALL_OCC_1990.28, EMPLOYERS_ALL_OCC_1991.28 and EMPLOYERS_ALL_OCC_1992.28 will be present for that respondent for job 28. Occupation codes for all other survey years prior and subsequent will be missing for that job for that respondent.

In addition, different series of variables may have missing items, depending on the reporting pattern. For instance:

Users may find that there is data for jobs 1-33 and jobs 36-40 in 1994, but no data for jobs 34-35. Such a pattern would indicate that no respondents reported what would be their 34^th and 35^th job during the 1994 interview.
There are also instances in which specific variable series have similar gaps. For instance, in a specific year, one might find industry and occupation codes for jobs 1-33 and 36-40, but again not for the 34^th and 35^th job. Such a pattern could result because no one reported their 34^th and 35^th job that year. Alternatively if several respondents reported a 34^th/35^th job that survey year, but those jobs did not meet the criteria (based on hours worked and length of time) that would have led to collection of industry and occupation descriptions, there would be no industry and occupation data from that survey year.

Linking to Non-Roster Employer Variables

While a large number of commonly used employer-related variables have been incorporated into the EHR, there are some variables in various survey years that have not. Users can link employer variables from a specific survey year that are not currently on the EHR to the cumulative record for an employer on the EHR by using the EMPLOYERS_ALL_ID_[YEAR].[JOB#] variables. These variables contain the identification number of a job in a specific survey year in which it was reported. The following paragraphs describe several examples of linking scenarios.

Imagine that a researcher wants to link data on promotions asked in 1989 to the cumulative employer record found in the EHR. Using the EMPLOYERS_ALL_ID_1989.[JOB#] variables, one can link the promotions data for the correct employer in 1989 to the cumulative employer record in the EHR. To accomplish this, the value of EMPLOYERS_ALL_ID_1989.[JOB#] would be checked for each employer on the EHR. If that value is '1,' the promotion variables for job #1 in 1989 would be linked. If the value of EMPLOYERS_ALL_UID_1989.[JOB#] is '2,' promotion variables for job #2 in 1989 would be linked, and so on.

In another example, one might want to link the EHR cumulative employer record with the information on the respondent's employee status (regular, consultant, contractor, temp worker) asked in 1994, 1996 and 1998. One would again use the EMPLOYERS_ALL_ID_1994.[JOB#], EMPLOYERS_ALL_ID_1996.[JOB#] and EMPLOYERS_ALL_ID_1998.[JOB#] variables in the same way described above to link to the appropriate employee status variables in each year. If the value of EMPLOYERS_ALL_ID_1994.24 is '1' then the employee status variables for employer #1 in 1994 would be linked to the cumulative record for job #24 on the EHR. If the value of EMPLOYERS_ALL_ID_1994.30 is '1' then those variables would be linked to the cumulative record for job #30 on the EHR. Following a similar procedure, the employee status variables for 1996 and 1998 could be linked to the appropriate cumulative job record on the EHR.

In addition, it is now possible to identify which cumulative job records on the EHR link to specific job numbers on the Work History Labor Force Status and Dual Jobs arrays. The EHR includes a set of variables called EMPLOYERS_ALL_NUM_ARRAY_[YEAR].[JOB#]. These variables contain the job number assigned by the Work History programs to each job for each survey year. The job number assigned by the Work History programs consists of the survey round and the number of the job for that survey year. So for instance, the 2^nd job reported in 1993 (round 15 of the survey) would appear as job #1502 on the Labor Force Status and/or Dual Job arrays. If this same job was reported as job #1 in 1994 (round 16 of the survey), it would appear as job #1601 in the Labor Force Status array. The EMPLOYERS_ALL_NUM_ARRAY_[YEAR].[JOB#] variables allow users to identify and track a specific employer through the Work History job arrays more easily. For instance, if a user wants additional information on the first job a respondent reported after a gap, and the Work History array job number is 1701, one would want to identify which of the employers in the EHR (1-59) contains 1701 in the EMPLOYERS_ALL_NUM_ARRAY_1996.[JOB#] variable. Establishing this link to the EHR then provides an expanded series of variables depicting the entire history of the employer.

User Notes

The Employer History Roster was made available after a considerable effort and was a long time in the making. Improvements will continue to be made as time allows. Some possible areas of improvement and expansion are discussed below:

Each survey year there are a small number of cases that report more than five employers. Prior to 1993, jobs 6+ were provided and stored on separate media. With the many technological transformations that have taken place in the past two decades, much of the information on this small set of jobs in each older survey year has become very difficult to recover from original sources, and is generally not included in the EHR. Reporting of more than five jobs per survey year is not common.

As mentioned earlier, the EHR includes a great deal, but not all, information collected on employers in each survey. For instance, some information on employee status (regular, temp worker, contractor, etc.), starting wages and hours of a job, fringe benefits applying to a job, etc. have been collected in various survey years but are not included on the EHR. Users can access this additional data by linking to individual Employer Supplements in the appropriate survey years.

Read more about NLSY79 Appendix 28: NLSY79 Employer History Roster

NLSY79 Appendix 27: IRT Item Parameter Estimates, Scores and Standard Errors

Item response theory (IRT) item parameter estimates, scores and standard errors have been calculated for several attitudinal scales administered in multiple NLSY79 survey years as well as in other NLS cohorts. The following PDF files provide detailed descriptions of the creation procedures for these scales:

Read more about NLSY79 Appendix 27: IRT Item Parameter Estimates, Scores and Standard Errors

NLSY79 Appendix 26: Non-Response to Financial Questions and Entry Points

Financial questions often elicit from respondents either a "refusal" or a "don't know" response. From 1979 to 2000 the NLSY79 interviewers faced with a "refusal" or a "don't know" simply went on to the next question. Starting in 2002, respondents have been asked to estimate financial values if they could not provide an exact value.

To determine which of several methods of estimation was best for financial questions, an "income experiment" was run during the 2002 survey. Respondents were randomly assigned to one of three methods (unfolding bracket, nearest $10k, range) when they stated "don't know" or "refused" to an income question. Additionally, among respondents who were given unfolding brackets, some respondents were given relatively high starting points (referred to as the 60 percent group) or relatively low starting points (referred to as the 40 percent group). See Table 1 for the numeric totals.

User note: SYMBOL_ENTRY_[NAME]

Researchers interested in knowing which starting point a respondent was selected to receive should look at questions named SYMBOL_ENTRY_[NAME], which are titled "Entry Point For Income Unfolding Brackets for [Type of Income/Asset]". These variables contain the actual entry points assigned to each case for which a 40% or 60% entry point (see Tables 2 and 3 below) was assigned.

First, some respondents were asked for a range of values. A second group of respondents was asked if they could provide an answer within $10,000. Third, some respondents were asked to place the value within "unfolding brackets," bracketing the range in which the true value fell.

The first method, the range of values questions, asks respondents to define a lower and upper bound value. Examining the data suggest that some respondents give quite precise bounds. When a respondent gives a range, researchers should note that the upper and lower bound variables are not always in the correct order. The survey always asks for the upper bound first and the lower bound second. However, if a respondent gives the smaller number first, that number will be typed into the upper bound variable and the range values will be reversed.

The second method, reporting a value to within the nearest $10,000, is designed to tell the respondent that a rough figure is an acceptable answer. Extreme precision is not demanded for these estimates.

The third method, unfolding brackets, lets respondents report if the amount is above or below a particular value. The initial value the respondent is given to compare is called the "entry point." The list of all entry points used by the NLSY79 survey since 2002 is found in Table 2 and Table 3 in this appendix.

For example, the entry point for the value of a vehicle is $20,000. If the answer to the entry point question is neither a "refusal" nor a "don't know" then the respondent is asked one more "is the value above or below" question. This results in a series of four brackets that provide researchers with a rough idea of the range into which the item's value falls. Researchers should be cautioned that while three of the brackets have a defined range, the top range is open-ended.

User note: Household interview income recall experiment

Researchers interested in knowing the type of question a respondent was selected to receive in the 2002 experiment should look at question HH_INC_3_EXP, which has the title "Type of question R assigned for household interview income recall experiment."

Example:

An example of how item non-response to financial questions is handled is seen in the questions that ask about income from the military in the 2002 survey.

Question Q13-16_TRUNC asked respondents "About how much total income your spouse or partner received during 2001 from the military before taxes and other deductions?" If the respondent was unable to provide a specific amount, the respondent was assigned in Q13-16_EXP to one of three alternative methods to try to solicit an estimate.

In question Q13-16_E~000001 some respondents were asked if they could provide "an approximate range for that amount." If the respondent could provide a range, both the upper and lower bound values were captured.

Some respondents were asked in question Q13-16_D, "To the nearest $10,000, can you tell me about how much your spouse or partner received during 2001, from the military before taxes and other deductions?"

In question Q13-16_A some respondents were asked "Would it amount to [entry point military income] or more?" Looking at Table 2 shows that "entry point military income" has the value of either $15,000 or $30,000. This results in the interviewer asking if the income was more or less than these amounts. If the respondent stated less than $15,000 or $30,000 s/he was asked one last question "would it amount to $5,000 or more." If the respondent stated more than $15,000 or $30,000 s/he was asked "would it amount to $40,000 or more."

These questions resulted in the researcher being able to classify respondents who do not know the military pay received by their spouse into four groups; $0 to $5,000, $5,000 to $15,000/$30,000, $15,000/$30,000 to $40,000 and over $40,000. The specific entry points and symbol names for all income and asset questions used in the bracketing questions are found in Table 2 and Table 3.

Table 1: Number of Respondents Assigned to Income Experiment Groups
Year	R in 40% Group	R in 60% Group
2002	3,844	3,878
2004	3,802	3,859
2006	3,851	3,802
2008	3,901	3,853
2010	3,788	3,777
2012	3,662	3,638
2014	3,550	3,520
2016	3,461	3,449
2018 (Income Section only -- see note below Table 3)	n/a	n/a
2020 (applicable to Assets section)	3,277	3,258

Table 2: Entry Points for NLSY79 Income and Assets Section in 2002 and 2004
Type	Variable Name	40% Amount	60% Amount
Wages and Salary	entry pt wage inc	$25,000	$35,000
Military Income	entry pt military inc	$15,000	$30,000
Business Income	entry pt business inc	$10,000	$20,000
Public Assistance and Welfare	entry pt pub assistance inc	$5,000	$7,500
Child Support	entry pt ch supt inc	$2,500	$4,000
Educational Benefits and Scholarships	entry pt educ benefits inc	$1,500	$3,000
Inheritances and Gifts	entry pt inheritance inc	$3,000	$10,000
Other Income	entry pt other inc	$500	$1,000
Earned Income Tax Credit	entry pt eitc inc	$1,000	$2,000
Other Household Members Income	entry pt other hh mems inc	$10,000	$20,000

Table 3: Entry Points for NLSY79 Income Section in 2006-2016, Assets Section in 2006-2020
Type	Variable Name	40% Amount	60% Amount
Wages and Salary	entry pt wage inc	$28,000	$40,000
Military Income	entry pt military inc	$14,000	$24,000
Business Income	entry pt business inc	$21,000	$35,000
Public Assistance and Welfare	entry pt pub assistance inc	$5,000	$7,000
Child Support	entry pt ch supt inc	$3,000	$4,800
Educational Benefits and Scholarships	entry pt educ benefits inc	$1,800	$3,000
Inheritances and Gifts	entry pt inheritance inc	$5,500	$12,500
Other Income	entry pt other inc	$7,200	$13,000
Earned Income Tax Credit	entry pt eitc inc	$1,200	$2,000
Other Household Members Income	entry pt other hh mems inc	$7,200	$13,000

In 2018, while continuing to employ automated text substitutions for entry points in the assets section, specific entry points were included in the question texts for the income section. Entry points for the income questions are the mean of the original 40% and 60% entry points listed in Table 3 above. Table 4 lists the questions in the 2020 questionnaire that use entry points to estimate income and asset amounts.

Table 4: Income and Assets Questions Containing Entry Points in 2020
Income and Assets Questions Containing Entry Points
Q13-5_UAB_A
Q13-9_UAB_A
RETINCR-PENSIONS-2_UAB_A
RETINCR-ANNUITIES-2_UAB_A
RETINCR-IRA-2_UAB_A
RETINCR-IRA-4_UAB_A
Q13-70_SS_UAB_A
Q13-70_DIS_UAB_A
Q13-31B_UAB_A
Q13-70_VET_UAB_A
Q13-18_UAB_A
Q13_24_UAB_A
RETINCSP-PENSIONS-2_UAB_A
RETINCSP-ANNUITIES-2_UAB_A
RETINCSP-IRA-2_UAB_A
RETINCSP-IRA-4_UAB_A
Q13-70_SS-SP_UAB_A
Q13-70_DIS-SP_UAB_A
Q13-31B-SP_UAB_A
Q13-70_VET-SP_UAB_A
Q13-73_UAB_A
Q13-73A_UAB_A
Q13-75_UAB_A
Q13-81-NEW_UAB_A
SC_12A_UAB_A
SC_12B_UAB_A
FA_1A_UAB_A
FA_2A_UAB_A
FA_3A_UAB_A
FA_4A_UAB_A
FA_5A_UAB_A
FA_6D_UAB_A
FA_6E_UAB_A
FA_7B_UAB_A
FA_7C_UAB_A
FA_8C_UAB_A
FA_8D_UAB_A
FA_8D_UAB_A
FA_9A_UAB_A
FA_10A_UAB_A
FA_11A_UAB_A
NFA_1A_UAB_A
NFA_1B_UAB_A
NFA_1C_UAB_A
NFA_2A_UAB_A
NFA_2B_UAB_A
NFA_2C_UAB_A
Q13-131_UAB_A
Q13-132_UAB_A
Q13-132D_UAB_A
NFA_4C_UAB_A
NFA_4F_UAB_A
NFA_5B_UAB_A
NFA_5C_UAB_A
NFA_6E_UAB_A
NFA_7C_UAB_A
DEBT_1A_UAB_A
DEBT_2A_UAB_A
DEBT_2D_UAB_A
DEBT_3A_UAB_A
DEBT_4A_UAB_A
Q13-142_UAB_A

User note: Asset section

Almost all questions in the Asset section use the same entry point. For example, in the 2004 survey the entry point was "entry pt other hh mems inc," which has the value of $10,000 or $20,000. This entry point value is quite low for certain categories. For instance, homeowners who do not know the value of their primary residence were asked if it was above or below $20,000. This low entry point value resulted in large number of cases all falling into the same unfolding bracket.

Read more about NLSY79 Appendix 26: Non-Response to Financial Questions and Entry Points

NLSY79 Appendix 25: Attitudinal Scale Scoring

This appendix contains descriptions of scale score computations and programs that create some of the scale scores for the most recent survey year for the following attitudinal scales:

Center for Epidemiologic Studies Depression Scale (CES-D)
Rosenberg Self-Esteem Scale
Pearlin Mastery Scale
Rotter Locus of Control Scale
Satisfaction with Life Scale
General Anxiety Disorder Scale

Center for Epidemiologic Studies Depression (CES-D) Scale

Created Variables: CES-D Scale Scores
Question Name	Title	Survey Year
CESD_SCORE_20_ITEM	20-ITEM CES-D SCORE (CESD)	1992
CESD_FLAG	FLAG – NUMBER OF MISSING ITEMS FOR 20 ITEM CES-D SCORE (CESD)	1992
CESD_SCORE_7_ITEM	7-ITEM CES-D SCORE (CESD)	1992
CESD_SCORE_7_ITEM	7-ITEM CES-D SCORE (CESD)	1994
CESD_SCORE_7_ITEM	7-ITEM CES-D SCORE (CESD)	2020
h30-CESD_SCORE_7_ITEM	h30 7-ITEM CES-D SCORE (CESD)	XRND
H50-CESD_SCORE_7_ITEM	H50 7-ITEM CES-D SCORE (CESD)	XRND
H60-CESD_SCORE_7_ITEM	H60 7-ITEM CES-D SCORE (CESD)	XRND

Scoring computations are described below.

Please note: Item response theory (IRT) parameter estimates, IRT scores, and their standard errors of measurement for the CES-D variables are also available, along with a custom-weighted z-score and percentile rank. See Appendix 27: IRT Item Parameter Estimates, Scores and Standard Errors for a detailed description and discussion of the IRT scoring for these scales.

The CES-D is a self-report scale that measures the current prevalence of depression symptoms. Respondents rate a series of statements regarding how they felt during the week prior to the interview. While the full 20-item battery was included in the 1992 (round 14) survey, a collapsed 7-item battery was administered to respondents in the 1994 (round 16) survey. A slightly expanded 9-item battery was included in the 40+ Health Module, in all years of the 50+ Health Module, in 2018 of the 60+ Health Module, and was asked of all respondents in the 2020 interviews. The CES-D scale included in the the 40+, 50+ and 60+ (initiated in 2018) Health Modules and administered to all respondents in 2020 contained the consistent 7-item scale. Table 1 details the questions asked and the survey years and modules in which they were included.

Table 1: CES-D Scale Questions Including Survey Years and Modules Asked
Item	Question	Question Name	Survey Years
1	I was bothered by things that usually don't bother me.	CESD~000000	1992
2	I did not feel like eating; my appetite was poor.	CESD~000001 h30-CESD~000001 H50CESD~000001 H60CESD~000001	1992, 1994, 2020 XRND XRND XRND
3	I felt that I couldn't shake off the blues even with help from my family and friends.	CESD~000002 h30-CESD~000002 H50CESD~000002 H60CESD~000002	1992, 2020 XRND XRND XRND
4	I felt that I was just as good as other people.	CESD~000002A	1992
5	I had trouble keeping my mind on what I was doing.	CESD~000003 h30-CESD~000003 H50CESD~000003 H60CESD~000003	1992, 1994, 2020 XRND XRND XRND
6	I felt depressed.	CESD~000004 h30-CESD~000004 H50CESD~000004 H60CESD~000004	1992, 1994, 2020 XRND XRND XRND
7	I felt that everything I did was an effort.	CESD~000005 h30-CESD~000005 H50CESD~000005 H60CESD~000005	1992, 1994, 2020 XRND XRND XRND
8	I felt hopeful about the future.	CESD~000005A	1992
9	I thought my life had been a failure.	CESD~00005B	1992
10	I felt fearful.	CESD~00005C	1992
11	My sleep was restless.	CESD~000006 h30-CESD~000006 H50CESD~000006 H60CESD~000006	1992, 1994, 2020 XRND XRND XRND
12	I was happy.	CESD~000006A	1992
13	I talked less than usual.	CESD~000006B	1992
14	I felt lonely.	CESD~000007 h30-CESD~000007 H50CESD~000007 H60CESD~000007	1992, 2020 XRND XRND XRND
15	People were unfriendly.	CESD~000007A	1992
16	I enjoyed life.	CESD~000007B	1992
17	I had crying spells.	CESD~000007C	1992
18	I felt sad.	CESD~000008 h30-CESD~000008 H50CESD~000008 H60CESD~000008	1992, 1994, 2020 XRND XRND XRND
19	I felt that people dislike me.	CESD~000008A (1992)	1992
20	I could not get "going."	CESD~000009 h30-CESD~000009 H50CESD~000009 H60CESD~000009	1992, 1994, 2020 XRND XRND XRND

Possible responses for all 16 negative-symptom questions are as follows:

0 point : Rarely or none of the time (< 1 day)
1 point : Some or a little of the time (1-2 days)
2 points: Occasionally or a moderate amount of the time (3-4 days)
3 points: Most or all of the time (5-7 days).

Response categories for 4 positive-symptom questions asked only in 1992 (CESD~000002A, CESD~000005A, CESD~000006A, CESD~000007B) are reversed.

Scale scores for 1992 (20-item and 7-item), 1994, 2020, and the 40+, 50+, and 60+ Health Modules (7-item) CES-D are all computed by summing the points for each answer across either the 20 items or 7 items in the specific survey year or module. The 20-item scale contains both negative- and positive-symptom questions. No positive-symptom questions are included in the 7-item scales.CES-D 20-item scale score: Points for all 20 items were summed. Possible scores range from 0 to 60, with the higher scores indicating the presence of more depressive symptoms. If more than four items are missing, the scale score is coded as missing. A flag that indicates the number of missing items for CES-D 20-item scale is also present.

CESD 7-item scale score: Points are summed across 7 items (CESD~000001, CESD~000003, CESD~000004, CESD~000005, CESD~000006, CESD~000008, CESD~000009). The possible range of scores is 0 to 21. If one item is missing, the scale score is coded as missing.

Program to Create CESD_SCORE_7_ITEM

Q11-CESD~000001
Q11-CESD~000002
Q11-CESD~000003
Q11-CESD~000004
Q11-CESD~000005
Q11-CESD~000006
Q11-CESD~000007
Q11-CESD~000008
Q11-CESD~000009

* calculate ces_d_score_7_item;
'CESD_SCORE_7_ITEM'n = -4;
array cesd7 (*) 'Q11-CESD~000001'n 'Q11-CESD~000003'n 'Q11-CESD~000004'n 'Q11-CESD~000005'n
'Q11-CESD~000006'n 'Q11-CESD~000008'n 'Q11-CESD~000009'n;

vskipnum=0;
validnum=0;
missnum=0;

do j=1 to 7;
if cesd7(j)=-4 then vskipnum=vskipnum+1;/*valid skip*/
else if cesd7(j) in (-3,-2,-1) then missnum=missnum+1; /* missing/dk/ref */
else if cesd7(j) in (0,1,2,3) then validnum=validnum+1;/*valid answer*/
end;

if vskipnum=7 then 'CESD_SCORE_7_ITEM'n=-4; /*all 7 items are "valid skip"*/
else if missnum ge 1 then 'CESD_SCORE_7_ITEM'n=-3;
else if validnum=7 then 'CESD_SCORE_7_ITEM'n=sum(of cesd7(1), cesd7(2), cesd7(3), cesd7(4), cesd7(5), cesd7(6), cesd7(7));
else 'CESD_SCORE_7_ITEM'n=-3;

References

Radloff, Lenore. S. 1977. "The CES-D Scale: A self-report depression scale for research in the general population." Applied Psychological Measurement, V.1, No. 3 (Summer): 385-401.

Ross, Catherine E., and John Mirowsky. 1989. "Explaining the Social Patterns of Depression: Control and Problem Solving--or Support and Talking?" Journal of Health and Social Behavior, V.30, No. 2 (June): 206-219.

Rosenberg Self-Esteem Scale

Created Variables
Question Name	Title	Survey Years
ROSENBERG_ESTEEM_SCORE	SELF-ESTEEM SCORE	1980
ROSENBERG_ESTEEM_SCORE	ROSENBERG SELF-ESTEEM SCORE	1987
ROSENBERG_ESTEEM_SCORE	SELF-ESTEEM SCORE	2006

Scoring computations are described below.

Please note: Item response theory (IRT) parameter estimates, IRT scores, and their standard errors of measurement for the Rosenberg Self-Esteem variables are also available, along with a custom-weighted z-score and percentile rank. See Appendix 27for a detailed description and discussion of the IRT scoring for these scales.

The Rosenberg Self-Esteem Scale is designed to measure the self-evaluation that an individual makes and customarily maintains. It has been administered to NLSY79 respondents in survey years 1980, 1987 and 2006. Table 2 lists the questions by survey year.

Table 2: Rosenberg Self-Esteem Scale Items (1980, 1987, 2006)
Item	Question	Question Names
1	I am a person of worth.	ROSENBERG_ESTEEM_000001
2	I have a number of good qualities.	ROSENBERG_ESTEEM_000002
3	I am inclined to feel that I am a failure.	ROSENBERG_ESTEEM_000003
4	I am able to do things as well as most other people.	ROSENBERG_ESTEEM_000004
5	I felt I do not have much to be proud of.	ROSENBERG_ESTEEM_000005
6	I take a positive attitude toward myself.	ROSENBERG_ESTEEM_000006
7	I am satisfied with myself.	ROSENBERG_ESTEEM_000007
8	I wish I could have more respect for myself.	ROSENBERG_ESTEEM_000008
9	I certainly feel useless at times.	ROSENBERG_ESTEEM_000009
10	At times I think I am no good at all.	ROSENBERG_ESTEEM_000010

Possible response categories for items 3, 5, 8, 9, 10 are:

0 points: strongly agree
1 point: agree
2 points: disagree
3 points: strongly disagree

Response categories for items 1, 2, 4, 6, 7 are reversed so that a higher score indicates higher self-esteem.

Points for each of the 10 items were summed to create the scale scores. Scores range from 0 to 30 points. If one item is missing, the scale score is coded as missing.

Program to Create ROSENBERG_ESTEEM_SCORE

ROSENBERG_ESTEEM~000001
ROSENBERG_ESTEEM~000002
ROSENBERG_ESTEEM~000003
ROSENBERG_ESTEEM~000004
ROSENBERG_ESTEEM~000005
ROSENBERG_ESTEEM~000006
ROSENBERG_ESTEEM~000007
ROSENBERG_ESTEEM~000008
ROSENBERG_ESTEEM~000009
ROSENBERG_ESTEEM~000010

* calculate rosenberg_esteem_score;
'rosenberg_esteem_score'n = -4;

array rosenberg_rev (*) 'rosenberg_esteem~000001rev'n 'rosenberg_esteem~000002rev'n
‘rosenberg_esteem~000004rev'n 'rosenberg_esteem~00000rev6'n 'rosenberg_esteem~000007rev'n;

do I = 1 to 5;
if (rosenberg_rev >= 0) then rosenberg_rev = (3 – rosenberg_rev);
end;

array rosenberg (*) 'rosenberg_esteem~000001rev'n 'rosenberg_esteem~000002rev'n
‘rosenberg_esteem~000003'n 'rosenberg_esteem~000004rev'n ‘rosenberg_esteem~000005'n
'rosenberg_esteem~000006rev'n 'rosenberg_esteem~000007rev'n 'rosenberg_esteem~000008'n
'rosenberg_esteem~000009'n 'rosenberg_esteem~000010'n;

vskipnum=0;
validnum=0;
missnum=0;

do j=1 to 10;
if rosenberg(j)=-4 then vskipnum=vskipnum+1;/*valid skip*/
else if rosenberg(j) in (-3,-2,-1) then missnum=missnum+1; /* missing/dk/ref */
else if rosenberg(j) in (0,1,2,3) then validnum=validnum+1;/*valid answer*/
end;

if vskipnum=10 then 'ROSENBERG_ESTEEM_SCORE'n=-4; /*all 10 items are "valid skip"*/
else if missnum ge 1 then 'ROSENBERG_ESTEEM_SCORE'n=-3;
else if validnum=10 then 'ROSENBERG_ESTEEM_SCORE'n=sum(of rosenberg(1), rosenberg(2), rosenberg(3), rosenberg(4), rosenberg(5), rosenberg(6), rosenberg(7), rosenberg(8), rosenberg(9), rosenberg(10);
else 'ROSENBERG_ESTEEM_SCORE'n=-3;

References

Rosenberg, Morris. 1965. Society and the Adolescent Self-Image. Princeton: Princeton University Press.

Pearlin Mastery Scale

Created Variables
Question Name	Title	Survey Year
PEARLIN_SCORE	PEARLIN MASTERY SCORE	1992

Scoring computations are described below.

Please note: Item response theory (IRT) parameter estimates, IRT scores, and their standard errors of measurement for the Pearlin Mastery variables are also available, along with a custom-weighted z-score and percentile rank. See Appendix 27 for a detailed description and discussion of the IRT scoring for this scale.

The Pearlin Mastery scale is designed to measure self-concept and references the extent to which individuals perceive themselves in control of forces that significantly impact their lives. It was administered in NLSY79 survey year 1992 (round 14). Table 3 lists the Pearlin Mastery questions.

Table 3: Pearlin Mastery Questions
Item	Question	Question Name
1	No way I can solve some of the problems I have.	PEARLIN_1
2	Sometimes I feel that I am being pushed around in life.	PEARLIN_2
3	I have little control over the things that happen to me.	PEARLIN_3
4	I can do just about anything I really set my mind to.	PEARLIN_4
5	I often feel helpless in dealing with the problems of life.	PEARLIN_5
6	What happens to me in the future mostly depends on me.	PEARLIN_6
7	There is little I can do to change many of the important things in my life.	PEARLIN_7

Possible response categories for items 4, 6 are:

4 points: strongly agree
3 points: agree
2 points: disagree
1 point: strongly disagree

Response categories for items 1, 2, 3, 5, 7 are reversed so that higher scores represent greater sense of mastery.

Points for each of the 10 items were summed to create the scale scores. Scores can range from 7 to 28 points. If one item is missing, the scale score is coded as missing.

Program to Create PEARLIN_SCORE

PEARLIN_1
PEARLIN_2
PEARLIN_3
PEARLIN_4
PEARLIN_5
PEARLIN_6
PEARLIN_7

* calculate pearlin_score;
pearlin_score = -4;

array pearlin_rev (*) pearlin_1rev pearlin_2rev pearlin_3rev pearlin_5rev pearlin_7rev;

do I = 1 to 5;
if (pearlin_rev >= 0) then pearlin_rev = (5 – pearlin_rev);
end;

array pearlin (*) pearlin_1rev pearlin_2rev pearlin_3rev pearlin_4 pearlin_5rev pearlin_6 pearlin_7rev;

vskipnum=0;
validnum=0;
missnum=0;

do j=1 to 7;
if pearlin(j)=-4 then vskipnum=vskipnum+1;/*valid skip*/
else if pearlin(j) in (-3,-2,-1) then missnum=missnum+1; /* missing/dk/ref */
else if pearlin(j) in (1,2,3,4) then validnum=validnum+1;/*valid answer*/
end;

if vskipnum=7 then PEARLIN_SCORE=-4; /*all 7 items are "valid skip"*/
else if missnum ge 1 then PEARLIN_SCORE=-3;
else if validnum=7 then PEARLIN_SCORE=sum(of pearlin(1), pearlin(2), pearlin(3), pearlin(4), pearlin(5),
pearlin(6), pearlin(7);
else 'PEARLIN_SCORE'n=-3;

References

Pearlin, Leonard I.; Lieberman, Morton A.; Menaghan, Elizabeth G.; and Joseph T. Mullan. 1981. “The Stress Process.” Journal of Health and Social Behavior, V.22, No. 4 (December): 337-356.

Rotter Locus of Control Scale

Created Variables

ROTTER_SCORE ROTTER SCALE SCORE 79

ROTTER_SCORE ROTTER SCALE SCORE 14

ROTTER_SCORE ROTTER SCALE SCORE 16

ROTTER_SCORE ROTTER SCALE SCORE 18

Scoring computations are described below.

The Rotter Locus of Control scale is designed to measure the extent to which individuals believe they have control over their lives through self-motivation or self-determination (internal control) as opposed to the extent that the environment (that is, chance, fate, luck) controls their lives (external control). It was included in the 1979, 2014, 2016 and 2018 (for those not interviewed in 2014 and 2016 respectively) NLSY79 surveys. Table 4 lists the question names and reference numbers in each year.

Table 4: The 1979 NLSY79 Rotter – Locus of Control Questions (1979, 2014, 2016, 2018)
Item	Question	Question Names
1	Pair 1, statement A: Degree of control r has over direction of own life	ROTTER-1A
2	Pair 1, statement B: Degree of control r has over direction of own life	ROTTER-1B
3	Pair 2, statement A: Importance of planning	ROTTER-2A
4	Pair 2, statement B: Importance of planning	ROTTER-2B
5	Pair 3, statement A: Importance of luck	ROTTER-3A
6	Pair 3, statement B: Importance of luck	ROTTER-3B
7	Pair 4, statement A: Degree of influence over own life	ROTTER-4A
8	Pair 4, statement B: Degree of influence over own life	ROTTER-4B

Points for each pair of items are as follows:

Internal control statement:

1 point: Much closer
2 points: Slightly closer

External control statement:

3 points: Much closer
4 points: Slightly closer

Points for each of the 4 pairs were summed to create scale scores. Scores range from 4 to 16 points. If one item is missing, the scale score is coded as missing.

Program to Create ROTTER_SCORE

ROTTER_LINT
ROTTER_1A
ROTTER_1B
ROTTER_2A
ROTTER_2B
ROTTER_3A
ROTTER_3B
ROTTER_4A
ROTTER_4B

/* recode items, compute total score */

data two;
set one;

/* recode two-part Rotter items into a single item */

score1=-4;

if rotter_1a=1 and rotter_1b=1 then score1=1;
else if rotter_1a=1 and rotter_1b=2 then score1=2;
else if rotter_1a=2 and rotter_1b=2 then score1=3;
else if rotter_1a=2 and rotter_1b=1 then score1=4;
else if rotter_1a=-3 or rotter_1b=-3 then score1=-3;
else if rotter_1a=-2 or rotter_1b=-2 then score1=-2;
else if rotter_1a=-1 or rotter_1b=-1 then score1=-1;

score2=-4;

if rotter_2a=1 and rotter_2b=1 then score2=1;
else if rotter_2a=1 and rotter_2b=2 then score2=2;
else if rotter_2a=2 and rotter_2b=2 then score2=3;
else if rotter_2a=2 and rotter_2b=1 then score2=4;
else if rotter_2a=-3 or rotter_2b=-3 then score2=-3;
else if rotter_2a=-2 or rotter_2b=-2 then score2=-2;
else if rotter_2a=-1 or rotter_2b=-1 then score2=-1;

score3=-4;

if rotter_3a=1 and rotter_3b=1 then score3=1;
else if rotter_3a=1 and rotter_3b=2 then score3=2;
else if rotter_3a=2 and rotter_3b=2 then score3=3;
else if rotter_3a=2 and rotter_3b=1 then score3=4;
else if rotter_3a=-3 or rotter_3b=-3 then score3=-3;
else if rotter_3a=-2 or rotter_3b=-2 then score3=-2;
else if rotter_3a=-1 or rotter_3b=-1 then score3=-1;

score4=-4;

if rotter_4a=1 and rotter_4b=1 then score4=4;
else if rotter_4a=1 and rotter_4b=2 then score4=3;
else if rotter_4a=2 and rotter_4b=2 then score4=2;
else if rotter_4a=2 and rotter_4b=1 then score4=1;
else if rotter_4a=-3 or rotter_4b=-3 then score4=-3;
else if rotter_4a=-2 or rotter_4b=-2 then score4=-2;
else if rotter_4a=-1 or rotter_4b=-1 then score4=-1;

array score (*) score1 score2 score3 score4;

vskipnum=0;
ivskipnum=0;
dknum=0;
refnum=0;
validnum=0;

do k=1 to 4;
if score(k)=-4 then vskipnum=vskipnum+1; /*valid-skip*/
else if score(k)=-3 then ivskipnum=ivskipnum+1; /*invalid-skip*/
else if score(k)=-2 then dknum=dknum+1; /*don't know*/
else if score(k)=-1 then refnum=refnum+1; /*refused*/
else if score(k)>=1 then validnum=validnum+1; /*valid answer*/
end;

/* Per Rosella Gardecki, we should no longer code CV missing values as anything but -3 */
/* for the created variable, ROTTER_SCORE */
/* Regardless of the type of missingness, ROTTER_SCORE should be set to -3 */

if vskipnum=4 then rotter_score=-4; /*all 4 pairs are "valid skip"*/
else if ivskipnum=4 then rotter_score=-3; /*all 4 pairs are "invalid skip"*/
else if dknum=4 then rotter_score=-3; /*all 4 pairs are "don't know"*/
else if refnum=4 then rotter_score=-3; /*all 4 pairs are "refused"*/
else if validnum>0 and validnum<4 then rotter_score=-3;/*if number of valid responses < 4 then code it as -3*/
else if validnum=4 then rotter_score=sum(of score1-score4);
else rotter_score=-3;

References

Rotter, Julian B. 1966. “Generalized Expectancies for Internal Versus External Control of Reinforcement.” Psychological Monographs: General and Applied, 80 (1):1-28.

Satisfaction with Life Scale (SWLS)

Created Variables
Question Name	Title	Survey Year
H60-DIENER_SWLS_SCORE	H60 DIENER SWLS SCORE	XRND

Scoring computations are described below.

The Satisfication with Life Scale (Deiner, Emmons, Larson and Griffin) seeks to measure individual general satisfaction with one's life. It is included in the NLSY79 60+ Health Module which was initiated in the 2018 survey (round 28) and will be asked of respondents as they approach or reach the age of 60. Table 5 lists the Satisfaction with Life questions.

Table 5: Satisfaction with Life Scale Questions
Item	Question	Question Name
1	If I could live my life over, I would change almost nothing.	H60DIENER~000001
2	So far I have gotten the important things I want in life.	H60DIENER~000002
3	I am satisfied with my life.	H60DIENER~000003
4	The conditions of my life are excellent.	H60DIENER~000004
5	In most ways my life is close to my ideal.	H60DIENER~000005

Possible response categories for all items are:

7 points: strongly agree
6 points: agree
5 points: slightly agree
4 points: neither agree nor disagree
3 points: slightly disagree
2 points: disagree
1 point: strongly disagree

Points for each of the 5 items were summed to create the scale scores. Scores can range from 5 to 35 points, with higher scores indicating greater life satisfaction. If one item is missing, the scale score is coded as missing.

Program to Create H60DIENER_SWLS_SCORE

Q11-H60DIENER~000005
Q11-H60DIENER~000004
Q11-H60DIENER~000003
Q11-H60DIENER~000002
Q11-H60DIENER~000001

array swls 'Q11-H60DIENER~000001'n 'Q11-H60DIENER~000002'n 'Q11-H60DIENER~000003'n
'Q11-H60DIENER~000004'n 'Q11-H60DIENER~000005'n;

misscount=0; * initialize count of missing values;

do i=1 to 5;
if swls[i] in (-4,-3,-2,-1) then do;
swls[i]=.; * recode missing items to system missing;
misscount=misscount+1; * count number of missing items;
end;
end;

/* only compute summary scale for those with no missing data on any items */

if misscount=0 then do;
'H60-DIENER_SWLS_SCORE'n=sum('Q11-H60DIENER~000001'n,'Q11-H60DIENER~000002'n,
'Q11-H60DIENER~000003'n, ‘'Q11-H60DIENER~000004'n,'Q11-H60DIENER~000005'n);
end;
else 'H60-DIENER_SWLS_SCORE'n=-3;

References

Diener, E., Emmons, R. A., Larsen, R. J., & Griffin, S. (1985). The Satisfaction with Life Scale. Journal of Personality Assessment, 49, 71-75.

General Anxiety Disorder Scale (GAD-7)

Created Variables
Question Name	Title	Survey Year
H60-GAD-7_SCORE	H60 GAD-7 SCORE	XRND

Scoring computations are described below.

The General Anxiety Disorder Scale (developed by Spitzer, Kroenke, Williams and Lowe) asks respondents how often they have experienced certain feelings associated with anxiety in the past two weeks. It is included in the NLSY79 60+ Health Module, which was initiated in the 2018 survey (round 28) and will be asked of respondents as they approach or reach the age of 60. Table 6 lists the Satisfaction with Life questions.

Table 6: General Anxiety Disorder Questions
Item	Question	Question Name
1	Feeling nervous, anxious or on edge	H60GAD-7~000001
2	Not being able to stop or control worrying.	H60GAD-7~000002
3	Worrying too much about different things	H60GAD-7~000003
4	Trouble relaxing	H60GAD-7~000004
5	Being so restless that it is hard to sit still	H60GAD-7~000005
6	Becoming easily annoyed or irritable	H60GAD-7~000006
7	Feeling afraid as if something awful might happen	H60GAD-7~000007

Possible response categories for all items are:

0 points: not at all
1 point: several days
2 points: more than half the days
3 points: nearly every day

Points for each of the 7 items were summed to create the scale scores. Scores can range from 0 to 21 points, with higher scores indicating greater levels of anxiety. If one item is missing, the scale score is coded as missing.

Program to Create H60-GAD-7_SCORE

Q11-H60GAD-7~000001
Q11-H60GAD-7~000002
Q11-H60GAD-7~000003
Q11-H60GAD-7~000004
Q11-H60GAD-7~000005
Q11-H60GAD-7~000006
Q11-H60GAD-7~000007

array gad 'Q11-H60GAD-7~000001'n 'Q11-H60GAD-7~000002'n 'Q11-H60GAD-7~000003'n
'Q11-H60GAD-7~000004'n 'Q11-H60GAD-7~000005'n 'Q11-H60GAD-7~000006'n 'Q11-H60GAD-7~000007'n;

vskipnum=0;
missnum=0;
validnum=0;

do j=1 to 7;
if gad(j)=-4 then vskipnum=vskipnum+1; /*valid skip*/
else if gad(j) in (-3,-2,-1) then missnum=missnum+1;/*invalid-skip*/
else if gad(j) in (0,1,2,3) then validnum=validnum+1;/*valid answer*/
end;

/* calculate sum of 7 items just for those with no missing items */

if validnum=7 then 'H60-GAD-7_SCORE'N=sum('Q11-H60GAD-7~000001'n, 'Q11-H60GAD-7~000002'n,
'Q11-H60GAD-7~000003'n, 'Q11-H60GAD-7~000004'n, 'Q11-H60GAD-7~000005'n,
'Q11-H60GAD-7~000006'n, 'Q11-H60GAD-7~000007'n);
else if missnum ge 1 then 'H60-GAD-7_SCORE'N=-3;
else 'H60-GAD-7_SCORE'N=-3;

References

Spitzer RL, Kroenke K, Williams JBW, Löwe B. A Brief Measure for Assessing Generalized Anxiety Disorder: The GAD-7. Arch Intern Med. 2006;166(10):1092-1097. doi:10.1001/archinte.166.10.1092.

Read more about NLSY79 Appendix 25: Attitudinal Scale Scoring

NLSY79 Appendix 24: Reanalysis of the 1980 AFQT Data from the NLSY79

The NLSY79 and NLSY97 are unique in that virtually all respondents took the Armed Forces Vocational Aptitude Battery (ASVAB), with the results for the NLSY79 being used to norm the test. This appendix discusses the psychometrics of the Armed Forces Qualifying Test (AFQT) administered in 1980, with attention to the implications the analysis has for the efficient administration of those tests.

Download Appendix 24: Reanalysis of the 1980 AFQT Data from the NLSY79 (PDF).

Read more about NLSY79 Appendix 24: Reanalysis of the 1980 AFQT Data from the NLSY79

NLSY79 Appendix 23: Revised Asset and Debt Variables and Computed TOTAL Net Wealth Variables

The NLSY79 public release data contains a variety of asset and debt data, as well as some computed variables depicting total net family wealth at each survey point. Below are descriptions of revised asset and debt variables for survey years 1985-2000 (found in ASSETS area of interest with question names ending in “_REVISED”) and the constructed Total Net Family Wealth (TNFW_TRUNC) variables.

Revised Asset and Debt Variables

The public release contains a revised set of asset and debt variables for survey years 1985-2000. These revised asset and debt variables were created in 2008 and fixed a number of problems with the NLSY79 data by eliminating some implausible outliers and generating uniform topcodes for all rounds. These variables are then used in the computation of Total Net Family Wealth variables. Two versions of each asset and debt variable appear in the data. Using the market value of residential property owned by the respondent in 1987 as an example, the following variables appear in the data:

R23627.00 [Q13-118] MARKET VALUE OF RESIDENTIAL PROPERTY R/SPOUSE OWN (TRUNC)

R23627.01 [Q13-118_REVISED] MARKET VALUE OF RESIDENTIAL PROPERTY R/SPOUSE OWN (TRUNC) (REVISED)

In the example, Q13-118 is the original variable which remains in the dataset to allow researchers to reproduce previous results. Q13-118_REVISED, as indicated, is a revised version of Q13-118, which uses a modified topcoding algorithm. This algorithm provides researchers with some additional information with respect to the topcoded range of responses.

Table 1 gives an example using the 1987 property value question of how seven different types of cases were handled by the revision process.

Table 1. Hypothetical Examples of How NLSY79 Asset/Debt Data Were Modified
	Original R23627.00 Q13-118	Revised R23627.01 Q13_118-REVISED	Explanation
Case #1	$150,001	$276,984	Originally above the topcode and the value is still above the topcode but the topcode is now higher, revealing more information
Case #2	$150,001	$151,500	Originally above topcode and now below topcode. Value is no longer topcoded.
Case #3	-1	-1	Originally “refused”.
Case #4	-2	-2	Originally “don't know”.
Case #5	-3	-3	Originally an “invalid skip”.
Case #6	-4	-4	Originally a valid skip. Since valid skip means does not have the asset the item is changed to zero.
Case #7	-2	-2	Originally “don't know”.

Not every asset or debt variable has a new revised. 15 asset/debt categories were created in each year, matching the categories found in the 1990s NLSY79 wealth module. The categories are: Home Value, Mortgage Value, Property Debt Value, Cash Saving, Stocks/Bonds, Trusts, Business Assets, Business Debts, Vehicle Value, Vehicle Debt, Possession Value, Other Debt Value, IRA, 401K, Certificate of Deposit Value. In 2000 and subsequent survey years, some complexities were added to the asset and wealth module as the cohort aged. For these more recent survey rounds, each asset/debt category corresponds to multiple individual asset/debt variables.

For example, in 2004 respondents were asked to report the values of two homes. Their values are combined to form the "home value" category. Similarly, in 2004 the "stocks/bonds" category represents the individually-reported values of government bonds, mutual funds, life insurance surrender values, stocks, corporate bonds, and money owed to the respondent.

Details of the Revisions to Asset Values 1985-2000

The process for creating the revised variables described above can be broken down into the three steps described below.

Step 1 -- Cleaning Raw Data

The original raw data for many asset/wealth variables contains a number of “out-of-range” codes. Some of these out-of-range codes denoted values that exceeded the maximum value accommodated in the questionnaire and allowed for by the data entry software. These out-of-range codes were originally given the top code value when released to the public. Examination of cases with out-of-range suggests some were mistakes and not actually out of range. This issue arises in the pre-1993 Paper and Pencil interviewing (PAPI) years, but is most prevalent in survey years 1988 and 1989. For the REVISED/Q13-118_REVISED set of variables, these out-of-range codes were assigned an "invalid missing" (-3) code. These cases can be found by identifying values that were top coded in the original version of a variable (Q13-118) but were assigned an “invalid missing” code (-3) in the REVISED version (Q13-118_REVISED).

Step 2 -- Unfolding Brackets

Unfolding brackets are a means for respondents to estimate certain asset values of which they were unsure. Respondents who are unable to report a specific value for an asset or liability are asked a series of questions to establish a loose range for a value (see Appendix 20: Round 20 (2002) Early Bird and Income Recall Experiments for further information on the use of unfolding brackets in the NLSY79). A respondent who does not know or refuses to report the value of his certificate of deposit (CD) would first be asked if the CD is worth more than a randomly assigned entry amount ($10,000 for some respondents and $20,000 for others). If the value is not above the entry amount, the respondent is asked if the value of his CD is worth $5,000 or more. If the value is above the entry amount, he is asked if the value would amount to $30,000 or more. These three questions result in four potential reported ranges: 1) below $5,000; 2) between $5,000 and the entry amount; 3) between the entry amount and $30,000; and 4) above $30,000.

Beginning in survey year 2000, as part of an experiment for estimation of values, unfolding brackets were used for four asset/debt categories and the net wealth question. In 2004, unfolding brackets were expanded to all asset/debt categories for which respondents were not sure of a value.

Estimates given for asset values were incorporated into the calculation of TNFW_TRUNC variables by:

Using the midpoint of the range for quartiles 1, 2 and 3 and;
Using the median of values between the floor and highest value reported for quartile 4.

Step 3 -- Revision of Top Codes

In the final step, new and consistent top codes were calculated for the wealth data.

The NLSY79 has used three basic types of top coding algorithms for financial data. In the early years of the survey (up to 1988), every response above a specified ceiling value, such as $100,000 for some variables, is recoded to the ceiling value plus one dollar, such as $100,001. Unfortunately this algorithm results in a sharp downward bias in the sample mean because the right tail of the distribution is sharply truncated. From 1989 to 1994, a new algorithm was implemented, replacing all values above the hard ceiling with the average of all outlying values. Beginning in 1996, the hard ceiling value was eliminated and the average of the top 2% of values above the traditional hard ceiling was used as a topcode value.

In addition to the multiple topcoding methods used over time, some researchers commented on the lack of information above a hard ceiling. The data cleaning steps described above also dramatically changed a number of the highest asset values. For these reasons, home and vehicle values were re-topcoded. Homes and vehicles are clearly identifiable objects which pose the possibility of reidentifying respondents. Business-related values over $1,000,000 are also topcoded due to reidentification concerns. Other asset or debt categories are no longer topcoded because it is difficult to use them to identify a particular respondent. If the variable was previously topcoded it was re-topcoded using the top 2% of values as described above.

Computed Net Wealth Variables

The current data release includes an updated set of net wealth variables. Unlike previous version of these items, these updated variables (named “TNFW_TRUNC”) do not incorporate imputations.

Below is a brief history and description of the variables that were used as components, sometimes combined by category, to create the TNFW_TRUNC figures. Information is still available on individual assets and debts for researchers who want to probe a particular aspect of a respondent’s financial life, such as their debts or ownership of vehicles. Click below to view programs used to create the TNFW_TRUNC variables.

This part of Appendix 23 includes the programs that created the TNFW_TRUNC (Total Net Family Wealth) Variables for survey years 1985-2020.

1985-1987 TNFW_TRUNC variable creation
1988-1993 TNFW_TRUNC variable creation
1994-1998 TNFW_TRUNC variable creation
2000 TNFW_TRUNC variable creation
2004 TNFW_TRUNC variable creation
2008 TNFW_TRUNC variable creation
2012 TNFW_TRUNC variable creation
2016 TNFW_TRUNC variable creation
2020 TNFW_TRUNC variable creation

1985 TO 1987 TNFW_TRUNC Variable Creation

/*******************************/
/* Adjust for missing codes    */
/*******************************/

array setmsngr (n) q13_118_revised q13_119_revised q13_120_revised q13_122_revised q13_131_revised
                  q13_132_revised q13_135_revised q13_136_revised q13_138_revised q13_140_revised;

do n = 1 to 10;
if (sampweight = .) then setmsngr = -5;
else if (setmsngr = .) then setmsngr = -4;
end;

/***************************************************/
/* BEGIN COMPUTATIONS FOR NET WEALTH COMPONENTS    */
/***************************************************/

array assetsc (i)      homec mortc pdebtc cashc bizc bdebtc cdebtc carc posesc odebtc tnfw_trunc; /* 11 */

do i = 1 to 11;
if (sampweight = 0) then assetsc = -5;
else if (sampweight > 0) then assetsc = 0;
end;

/************************/
/* Compute POSES        */
/************************/

if (q13_137 = 1 & q13_138_revised >= 0) then posesc = (posesc + q13_138_revised);
else if (q13_137 = 1 & q13_138_revised in(-1, -2, -3)) then posesc = -3;

/************************/
/* Compute ODEBT        */
/************************/

if (q13_139 = 1 & q13_140_revised >= 0) then odebtc = (odebtc + q13_140_revised);
else if (q13_139 = 1 & q13_140_revised in(-1, -2, -3)) then odebtc = -3;

/************************/
/* Compute BIZ          */
/************************/

if (q13_128 = 1 & q13_131_revised >= 0) then bizc = (bizc + q13_131_revised);
else if (q13_128 = 1 & q13_131_revised in(-1, -2, -3)) then bizc = -3;

/************************/
/* Compute BDEBT        */
/************************/

if (q13_132_revised >= 0) then bdebtc = (bdebtc + q13_132_revised);
else if (q13_132_revised in(-1, -2, -3)) then bdebtc = -3;

/************************/
/* Compute CASH         */
/************************/

if (q13_121 = 1 & q13_122_revised >= 0) then cashc = (cashc + q13_122_revised);
else if (q13_121 = 1 & q13_122_revised in(-1, -2, -3)) then cashc = -3;

/************************/
/* Compute HOME         */
/************************/

if (q13_117 = 1 & q13_118_revised >= 0) then homec = (homec + q13_118_revised);
else if (q13_117 = 1 & q13_118_revised in(-1, -2, -3)) then homec = -3;

/************************/
/* Compute MORT         */
/************************/

if (q13_119_revised >= 0) then mortc = (mortc + q13_119_revised);
else if (q13_119_revised in(-1, -2, -3)) then mortc = -3;

/************************/
/* Compute PDEBT        */
/************************/

if (q13_120_revised >= 0) then pdebtc = (pdebtc + q13_120_revised);
else if (q13_120_revised in(-1, -2, -3)) then pdebtc = -3;

/************************/
/* Compute CDEBT        */
/************************/

if (q13_134 = 1 & q13_135_revised >= 0) then cdebtc = (cdebtc + q13_135_revised);
else if (q13_134 = 1 & q13_135_revised in(-1, -2, -3)) then cdebtc = -3;

/************************/
/* Compute CAR          */
/************************/

if (q13_133 = 1 & q13_136_revised >= 0) then carc = (carc + q13_136_revised);
else if (q13_133 = 1 & q13_136_revised in(-1, -2, -3)) then carc = -3;

/***********************/
/* Compute TNFW_TRUNC */
/***********************/
/*********************************************************/
/* TNFW_TRUNC - add components created in above code     */
/*********************************************************/

if (sampweight = 0) then tnfw_trunc = -5;

if (homec >= 0) then tnfw_trunc = (tnfw_trunc + homec );
if (mortc >= 0) then tnfw_trunc = (tnfw_trunc - mortc );
if (pdebtc >= 0) then tnfw_trunc = (tnfw_trunc - pdebtc);
if (cashc >= 0) then tnfw_trunc = (tnfw_trunc + cashc );
if (bizc   >= 0) then tnfw_trunc = (tnfw_trunc + bizc );
if (bdebtc >= 0) then tnfw_trunc = (tnfw_trunc - bdebtc);
if (cdebtc >= 0) then tnfw_trunc = (tnfw_trunc - cdebtc);
if (carc   >= 0) then tnfw_trunc = (tnfw_trunc + carc );
if (posesc >= 0) then tnfw_trunc = (tnfw_trunc + posesc);
if (odebtc >= 0) then tnfw_trunc = (tnfw_trunc - odebtc);

if (homec in(-1, -2, -3)) then tnfw_trunc = -3;
if (mortc in(-1, -2, -3)) then tnfw_trunc = -3;
if (pdebtc in(-1, -2, -3)) then tnfw_trunc = -3;
if (cashc in(-1, -2, -3)) then tnfw_trunc = -3;
if (bizc   in(-1, -2, -3)) then tnfw_trunc = -3;
if (bdebtc in(-1, -2, -3)) then tnfw_trunc = -3;
if (cdebtc in(-1, -2, -3)) then tnfw_trunc = -3;
if (carc   in(-1, -2, -3)) then tnfw_trunc = -3;
if (posesc in(-1, -2, -3)) then tnfw_trunc = -3;
if (odebtc in(-1, -2, -3)) then tnfw_trunc = -3;

/*********************************************/
/* APPLY TOPCODES TO TNFW_TRUNC BY SURVEY YR */
/*********************************************/

if (tnfw_trunc_1985 > 488773) then tnfw_trunc_1985 = 1054132;
if (tnfw_trunc_1986 > 471571) then tnfw_trunc_1986 = 679856;
if (tnfw_trunc_1987 > 488649) then tnfw_trunc_1987 = 1005767;

tnfw_trunc_1985 = round(tnfw_trunc_1985);
tnfw_trunc_1986 = round(tnfw_trunc_1986);
tnfw_trunc_1987 = round(tnfw_trunc_1987);

1988 TO 1993 TNFW_TRUNC Variable Creation

/*******************************/
/* Adjust for missing codes    */
/*******************************/

array setmsngr (n) q13_118_revised q13_119_revised q13_120_revised q13_122_revised q13_125_revised
                   q13_127_revised q13_131_revised q13_132_revised q13_135_revised q13_136_revised
                   q13_138_revised q13_140_revised;

do n = 1 to 12;
if (sampweight = .) then setmsngr = -5;
else if (setmsngr = .) then setmsngr = -4;
end;

/***************************************************/
/* BEGIN COMPUTATIONS FOR NET WEALTH COMPONENTS    */
/***************************************************/

array assetsc (i)      homec mortc pdebtc cashc stockc trustc bizc bdebtc cdebtc carc posesc odebtc tnfw_trunc; /* 13 */

do i = 1 to 13;
if (sampweight = 0) then assetsc = -5;
else if (sampweight > 0) then assetsc = 0;
end;

/************************/
/* Compute POSES        */
/************************/

if (q13_137 = 1 & q13_138_revised >= 0) then posesc = (posesc + q13_138_revised);
else if (q13_137 = 1 & q13_138_revised in(-1, -2, -3)) then posesc = -3;

/************************/
/* Compute ODEBT        */
/************************/

if (q13_139 = 1 & q13_140_revised >= 0) then odebtc = (odebtc + q13_140_revised);
else if (q13_139 = 1 & q13_140_revised in(-1, -2, -3)) then odebtc = -3;

/************************/
/* Compute STOCK        */
/************************/

if (q13_124 = 1 & q13_125_revised >= 0) then stockc = (stockc + q13_125_revised);
else if (q13_124 = 1 & q13_125_revised in(-1, -2, -3)) then stockc = -3;

/************************/
/* Compute TRUST        */
/************************/

if (q13_126 = 1 & q13_127_revised >= 0) then trustc = (trustc + q13_127_revised);
else if (q13_126 = 1 & q13_127_revised in(-1, -2, -3)) then trustc = -3;

/************************/
/* Compute BIZ          */
/************************/

if (q13_128 = 1 & q13_131_revised >= 0) then bizc = (bizc + q13_131_revised);
else if (q13_128 = 1 & q13_131_revised in(-1, -2, -3)) then bizc = -3;

/************************/
/* Compute BDEBT        */
/************************/

if (q13_132_revised >= 0) then bdebtc = (bdebtc + q13_132_revised);
else if (q13_132_revised in(-1, -2, -3)) then bdebtc = -3;

/************************/
/* Compute CASH         */
/************************/

if (q13_121 = 1 & q13_122_revised >= 0) then cashc = (cashc + q13_122_revised);
else if (q13_121 = 1 & q13_122_revised in(-1, -2, -3)) then cashc = -3;

/************************/
/* Compute HOME         */
/************************/

if (q13_117 = 1 & q13_118_revised >= 0) then homec = (homec + q13_118_revised);
else if (q13_117 = 1 & q13_118_revised in(-1, -2, -3)) then homec = -3;

/************************/
/* Compute MORT         */
/************************/

if (q13_119_revised >= 0) then mortc = (mortc + q13_119_revised);
else if (q13_119_revised in(-1, -2, -3)) then mortc = -3;

/************************/
/* Compute PDEBT        */
/************************/

if (q13_120_revised >= 0) then pdebtc = (pdebtc + q13_120_revised);
else if (q13_120_revised in(-1, -2, -3)) then pdebtc = -3;

/************************/
/* Compute CDEBT        */
/************************/

if (q13_134 = 1 & q13_135_revised >= 0) then cdebtc = (cdebtc + q13_135_revised);
else if (q13_134 = 1 & q13_135_revised in(-1, -2, -3)) then cdebtc = -3;

/************************/
/* Compute CAR          */
/************************/

if (q13_133 = 1 & q13_136_revised >= 0) then carc = (carc + q13_136_revised);
else if (q13_133 = 1 & q13_136_revised in(-1, -2, -3)) then carc = -3;

/************************/
/* Compute TNFW_TRUNC   */
/************************/
/*******************************************************/
/* TNFW_TRUNC - add components created in above code   */
/*******************************************************/

if (sampweight = 0) then tnfw_trunc = -5;

if (homec >= 0) then tnfw_trunc = (tnfw_trunc + homec );
if (mortc >= 0) then tnfw_trunc = (tnfw_trunc - mortc );
if (pdebtc >= 0) then tnfw_trunc = (tnfw_trunc - pdebtc);
if (cashc >= 0) then tnfw_trunc = (tnfw_trunc + cashc );
if (stockc >= 0) then tnfw_trunc = (tnfw_trunc + stockc);
if (trustc >= 0) then tnfw_trunc = (tnfw_trunc + trustc);
if (bizc   >= 0) then tnfw_trunc = (tnfw_trunc + bizc );
if (bdebtc >= 0) then tnfw_trunc = (tnfw_trunc - bdebtc);
if (cdebtc >= 0) then tnfw_trunc = (tnfw_trunc - cdebtc);
if (carc   >= 0) then tnfw_trunc = (tnfw_trunc + carc );
if (posesc >= 0) then tnfw_trunc = (tnfw_trunc + posesc);
if (odebtc >= 0) then tnfw_trunc = (tnfw_trunc - odebtc);

if (homec in(-1, -2, -3)) then tnfw_trunc = -3;
if (mortc in(-1, -2, -3)) then tnfw_trunc = -3;
if (pdebtc in(-1, -2, -3)) then tnfw_trunc = -3;
if (cashc in(-1, -2, -3)) then tnfw_trunc = -3;
if (stockc in(-1, -2, -3)) then tnfw_trunc = -3;
if (trustc in(-1, -2, -3)) then tnfw_trunc = -3;
if (bizc   in(-1, -2, -3)) then tnfw_trunc = -3;
if (bdebtc in(-1, -2, -3)) then tnfw_trunc = -3;
if (cdebtc in(-1, -2, -3)) then tnfw_trunc = -3;
if (carc   in(-1, -2, -3)) then tnfw_trunc = -3;
if (posesc in(-1, -2, -3)) then tnfw_trunc = -3;
if (odebtc in(-1, -2, -3)) then tnfw_trunc = -3;

/*********************************************/
/* APPLY TOPCODES TO TNFW_TRUNC BY SURVEY YR */
/*********************************************/

if (tnfw_trunc_1988 > 493828) then tnfw_trunc_1988 = 778437;
if (tnfw_trunc_1989 > 496507) then tnfw_trunc_1989 = 1103405;
if (tnfw_trunc_1990 > 499800) then tnfw_trunc_1990 = 1321099;
if (tnfw_trunc_1992 > 495536) then tnfw_trunc_1992 = 1148782;
if (tnfw_trunc_1993 >= 497550) then tnfw_trunc_1993 = 1116977;

tnfw_trunc_1988 = round(tnfw_trunc_1988);
tnfw_trunc_1989 = round(tnfw_trunc_1989);
tnfw_trunc_1990 = round(tnfw_trunc_1990);
tnfw_trunc_1992 = round(tnfw_trunc_1992);
tnfw_trunc_1993 = round(tnfw_trunc_1993);

1994 TO 1998 TNFW_TRUNC Variable Creation

/*******************************/
/* Adjust for missing codes    */
/*******************************/

array setmsngr (n) q13_118_revised q13_119_revised q13_120_revised q13_122_revised q13_123a_revised
                   q13_123c_revised q13_123e_revised q13_125_revised
                   q13_127_revised q13_131_revised q13_132_revised q13_135_revised q13_136_revised
                   q13_138_revised q13_140_revised;

do n = 1 to 15;
if (sampweight = .) then setmsngr = -5;
else if (setmsngr = .) then setmsngr = -4;
end;

/***************************************************/
/* BEGIN COMPUTATIONS FOR NET WEALTH COMPONENTS    */
/***************************************************/

array assetsc (i)      homec mortc pdebtc cashc irac a401kc cdsc stockc trustc bizc bdebtc
                       cdebtc carc posesc odebtc tnfw_trunc; /* 16 */

do i = 1 to 16;
if (sampweight = 0) then assetsc = -5;
else if (sampweight > 0) then assetsc = 0;
end;

/*************************/
/* Compute POSES         */
/*************************/

if (q13_137 = 1 & q13_138_revised >= 0) then posesc = (posesc + q13_138_revised);
else if (q13_137 = 1 & q13_138_revised in(-1, -2, -3)) then posesc = -3;

/*************************/
/* Compute ODEBT         */
/*************************/

if (q13_139 = 1 & q13_140_revised >= 0) then odebtc = (odebtc + q13_140_revised);
else if (q13_139 = 1 & q13_140_revised in(-1, -2, -3)) then odebtc = -3;

/*************************/
/* Compute STOCK         */
/*************************/

if (q13_124 = 1 & q13_125_revised >= 0) then stockc = (stockc + q13_125_revised);
else if (q13_124 = 1 & q13_125_revised in(-1, -2, -3)) then stockc = -3;

/*************************/
/* Compute TRUST         */
/*************************/

if (q13_126 = 1 & q13_127_revised >= 0) then trustc = (trustc + q13_127_revised);
else if (q13_126 = 1 & q13_127_revised in(-1, -2, -3)) then trustc = -3;

/*************************/
/* Compute BIZ           */
/*************************/

if (q13_128 = 1 & q13_131_revised >= 0) then bizc = (bizc + q13_131_revised);
else if (q13_128 = 1 & q13_131_revised in(-1, -2, -3)) then bizc = -3;

/*************************/
/* Compute BDEBT         */
/*************************/

if (q13_132_revised >= 0) then bdebtc = (bdebtc + q13_132_revised);
else if (q13_132_revised in(-1, -2, -3)) then bdebtc = -3;

/*************************/
/* Compute CASH          */
/*************************/

if (q13_121 = 1 & q13_122_revised >= 0) then cashc = (cashc + q13_122_revised);
else if (q13_121 = 1 & q13_122_revised in(-1, -2, -3)) then cashc = -3;

/*************************/
/* Compute IRA           */
/*************************/

if (q13_123 = 1 & q13_123a_revised >= 0) then irac = (irac + q13_123a_revised);
else if (q13_123 = 1 & q13_123a_revised in(-1, -2, -3)) then irac = -3;

/*************************/
/* Compute A401K         */
/*************************/

if (q13_123b = 1 & q13_123c_revised >= 0) then a401kc = (a401kc + q13_123c_revised);
else if (q13_123b = 1 & q13_123c_revised in(-1, -2, -3)) then a401kc = -3;

/*************************/
/* Compute CDS           */
/*************************/

if (q13_123d = 1 & q13_123e_revised >= 0) then a401kc = (a401kc + q13_123e_revised);
else if (q13_123d = 1 & q13_123e_revised in(-1, -2, -3)) then a401kc = -3;

/*************************/
/* Compute HOME          */
/*************************/

if (q13_117 = 1 & q13_118_revised >= 0) then homec = (homec + q13_118_revised);
else if (q13_117 = 1 & q13_118_revised in(-1, -2, -3)) then homec = -3;

/*************************/
/* Compute MORT          */
/*************************/

if (q13_119_revised >= 0) then mortc = (mortc + q13_119_revised);
else if (q13_119_revised in(-1, -2, -3)) then mortc = -3;

/*************************/
/* Compute PDEBT         */
/*************************/

if (q13_120_revised >= 0) then pdebtc = (pdebtc + q13_120_revised);
else if (q13_120_revised in(-1, -2, -3)) then pdebtc = -3;

/*************************/
/* Compute CDEBT         */
/*************************/

if (q13_134 = 1 & q13_135_revised >= 0) then cdebtc = (cdebtc + q13_135_revised);
else if (q13_134 = 1 & q13_135_revised in(-1, -2, -3)) then cdebtc = -3;

/*************************/
/* Compute CAR           */
/*************************/

if (q13_133 = 1 & q13_136_revised >= 0) then carc = (carc + q13_136_revised);
else if (q13_133 = 1 & q13_136_revised in(-1, -2, -3)) then carc = -3;

/************************/
/* Compute TNFW_TRUNC   */
/************************/
/*******************************************************/
/* TNFW_TRUNC - add components created in above code   */
/*******************************************************/

if (sampweight = 0) then tnfw_trunc = -5;

if (homec >= 0) then tnfw_trunc = (tnfw_trunc + homec );
if (mortc >= 0) then tnfw_trunc = (tnfw_trunc - mortc );
if (pdebtc >= 0) then tnfw_trunc = (tnfw_trunc - pdebtc);
if (cashc >= 0) then tnfw_trunc = (tnfw_trunc + cashc );
if (irac   >= 0) then tnfw_trunc = (tnfw_trunc + irac );
if (a401kc >= 0) then tnfw_trunc = (tnfw_trunc + a401kc);
if (cdsc   >= 0) then tnfw_trunc = (tnfw_trunc + cdsc );
if (stockc >= 0) then tnfw_trunc = (tnfw_trunc + stockc);
if (trustc >= 0) then tnfw_trunc = (tnfw_trunc + trustc);
if (bizc   >= 0) then tnfw_trunc = (tnfw_trunc + bizc );
if (bdebtc >= 0) then tnfw_trunc = (tnfw_trunc - bdebtc);
if (cdebtc >= 0) then tnfw_trunc = (tnfw_trunc - cdebtc);
if (carc   >= 0) then tnfw_trunc = (tnfw_trunc + carc );
if (posesc >= 0) then tnfw_trunc = (tnfw_trunc + posesc);
if (odebtc >= 0) then tnfw_trunc = (tnfw_trunc - odebtc);

if (homec in(-1, -2, -3)) then tnfw_trunc = -3;
if (mortc in(-1, -2, -3)) then tnfw_trunc = -3;
if (pdebtc in(-1, -2, -3)) then tnfw_trunc = -3;
if (cashc in(-1, -2, -3)) then tnfw_trunc = -3;
if (irac   in(-1, -2, -3)) then tnfw_trunc = -3;
if (a401kc in(-1, -2, -3)) then tnfw_trunc = -3;
if (cdsc   in(-1, -2, -3)) then tnfw_trunc = -3;
if (stockc in(-1, -2, -3)) then tnfw_trunc = -3;
if (trustc in(-1, -2, -3)) then tnfw_trunc = -3;
if (bizc   in(-1, -2, -3)) then tnfw_trunc = -3;
if (bdebtc in(-1, -2, -3)) then tnfw_trunc = -3;
if (cdebtc in(-1, -2, -3)) then tnfw_trunc = -3;
if (carc   in(-1, -2, -3)) then tnfw_trunc = -3;
if (posesc in(-1, -2, -3)) then tnfw_trunc = -3;
if (odebtc in(-1, -2, -3)) then tnfw_trunc = -3;

/*********************************************/
/* APPLY TOPCODES TO TNFW_TRUNC BY SURVEY YR */
/*********************************************/

if (tnfw_trunc_1994 > 500000) then tnfw_trunc_1994 = 1224375;
if (tnfw_trunc_1996 > 548000) then tnfw_trunc_1996 = 1232183;
if (tnfw_trunc_1998 > 640682) then tnfw_trunc_1998 = 1674836;

tnfw_trunc_1994 = round(tnfw_trunc_1994);
tnfw_trunc_1996 = round(tnfw_trunc_1996);
tnfw_trunc_1998 = round(tnfw_trunc_1998);

2000 TNFW_TRUNC Variable Creation

/************************************/
/* Compute dynamic QUARTILE VALUES */
/************************************/

array quartileqs (i) q13_122_quartile1 q13_122_quartile2 q13_122_quartile3 q13_122_quartile4
q13_123c_quartile1 q13_123c_quartile2 q13_123c_quartile3 q13_123c_quartile4
q13_125_quartile1 q13_125_quartile2 q13_125_quartile3 q13_125_quartile4
q13_136_quartile1 q13_136_quartile2 q13_136_quartile3 q13_136_quartile4;

do i = 1 to 16;
quartileqs = 0;
end;

q13_122_quartile1 = (500/2);
q13_122_quartile2 = (500 + ((1500-500)/2));
q13_122_quartile3 = (1500 + ((3500-1500)/2));
q13_122_quartile4 = 60000;

q13_123c_quartile1 = (1000/2);
q13_123c_quartile2 = (1000 + ((4000-1000)/2));
q13_123c_quartile3 = (4000 + ((10000-4000)/2));
q13_123c_quartile4 = 75000;

q13_125_quartile1 = (1000/2);
q13_125_quartile2 = (1000 + ((4000-1000)/2));
q13_125_quartile3 = (4000 + ((15000-4000)/2));
q13_125_quartile4 = 85000;

q13_136_quartile1 = (1000/2);
q13_136_quartile2 = (1000 + ((5000-1000)/2));
q13_136_quartile3 = (5000 + ((10000-5000)/2));
q13_136_quartile4 = 40000;

/***************************************************/
/* BEGIN COMPUTATIONS FOR NET WEALTH COMPONENTS    */
/***************************************************/

array assetsc (i)   homec mortc pdebtc cashc irac a401kc cdsc stockc trustc trustc bizc
                    bdebtc cdebtc carc posesc odebtc tnfw_trunc
                    solebiz farm_1_value1 farm_2_value1 business_1_value1 business_2_value1
                    business_3_value1 realestate_1_value1 realestate_2_value1 realestate_3_value1 realestate_4_value1
                    realestate_5_value1 realestate_6_value1
                    farm_1_value farm_2_value business_1_value business_2_value business_3_value realestate_1_value
                    realestate_2_value realestate_3_value realestate_4_value realestate_5_value realestate_6_value
                    debtbiz farm_1_debt1 farm_2_debt1 business_1_debt1 business_2_debt1 business_3_debt1
                    farm_1_debt farm_2_debt business_1_debt business_2_debt business_3_debt;

do i = 1 to 51;
if (sampweight = 0) then assetsc = -5;
else if (sampweight > 0) then assetsc = 0;
end;

/***********************/
/* Compute POSES       */
/***********************/

if (q13_137 = 1 & q13_138_revised >= 0) then posesc = (posesc + q13_138_revised);
else if (q13_137 = 1 & q13_138_revised in(-1, -2)) then posesc = -3;

/***********************/
/* Compute ODEBT       */
/***********************/

if (q13_139 = 1 & q13_140_revised >= 0) then odebtc = (odebtc + q13_140_revised);
else if (q13_139 = 1 & q13_140_revised in(-1, -2)) then odebtc = -3;

/***********************/
/* Compute TRUST       */
/***********************/

if (q13_126 = 1 & q13_127_revised >= 0) then trustc = (trustc + q13_127_revised);
else if (q13_126 = 1 & q13_127_revised in(-1, -2)) then trustc = -3;

/***********************/
/* Compute BIZ         */
/***********************/

/*****************************/
/* BIZ Component - solebiz   */
/*****************************/

if (q13_131_revised >= 0) then solebiz = (solebiz + q13_131_revised);
else if (q13_131_revised in(-1, -2)) then solebiz = -3;

/********************************************************************************************************/
/* BIZ Components - farm_#_value, business_#_value, realestate_#_value & percentage ownership           */
/********************************************************************************************************/

if (q13_fjt_11_01_trunc > -4) then farm_1_value1 = q13_fjt_11_01_trunc;
if (q13_fjt_11_02_trunc > -4) then farm_2_value1 = q13_fjt_11_02_trunc;
if (q13_bppjt_11_01_trunc > -4) then business_1_value1 = q13_bppjt_11_01_trunc;
if (q13_bppjt_11_02_trunc > -4) then business_2_value1 = q13_bppjt_11_02_trunc;
if (q13_bppjt_11_03_trunc > -4) then business_3_value1 = q13_bppjt_11_03_trunc;
if (q13_rejt_11_01 > -4) then realestate_1_value1 = q13_rejt_11_01;
if (q13_rejt_11_02 > -4) then realestate_2_value1 = q13_rejt_11_02;
if (q13_rejt_11_03 > -4) then realestate_3_value1 = q13_rejt_11_03;
if (q13_rejt_11_04 > -4) then realestate_4_value1 = q13_rejt_11_04;
if (q13_rejt_11_05 > -4) then realestate_5_value1 = q13_rejt_11_05;
if (q13_rejt_11_06 > -4) then realestate_6_value1 = q13_rejt_11_06;

if (q13_fjt_12b_01 > -4) then farm_1_pcntshare = q13_fjt_12b_01;
if (q13_fjt_12b_02 > -4) then farm_2_pcntshare = q13_fjt_12b_02;
if (q13_bppjt_12b_01 > -4) then business_1_pcntshare = q13_bppjt_12b_01;
if (q13_bppjt_12b_02 > -4) then business_2_pcntshare = q13_bppjt_12b_02;
if (q13_bppjt_12b_03 > -4) then business_3_pcntshare = q13_bppjt_12b_03;
if (q13_rejt_12b_01 > -4) then realestate_1_pcntshare = q13_rejt_12b_01;
if (q13_rejt_12b_02 > -4) then realestate_2_pcntshare = q13_rejt_12b_02;
if (q13_rejt_12b_03 > -4) then realestate_3_pcntshare = q13_rejt_12b_03;
if (q13_rejt_12b_04 > -4) then realestate_4_pcntshare = q13_rejt_12b_04;
if (q13_rejt_12b_05 > -4) then realestate_5_pcntshare = q13_rejt_12b_05;
if (q13_rejt_12b_06 > -4) then realestate_6_pcntshare = q13_rejt_12b_06;

if (farm_1_pcntshare > 0) then farm_1_pcntshare = (farm_1_pcntshare / 100);
if (farm_2_pcntshare > 0) then farm_2_pcntshare = (farm_2_pcntshare / 100);
if (business_1_pcntshare > 0) then business_1_pcntshare = (business_1_pcntshare / 100);
if (business_2_pcntshare > 0) then business_2_pcntshare = (business_2_pcntshare / 100);
if (business_3_pcntshare > 0) then business_3_pcntshare = (business_3_pcntshare / 100);
if (realestate_1_pcntshare > 0) then realestate_1_pcntshare = (realestate_1_pcntshare / 100);
if (realestate_2_pcntshare > 0) then realestate_2_pcntshare = (realestate_2_pcntshare / 100);
if (realestate_3_pcntshare > 0) then realestate_3_pcntshare = (realestate_3_pcntshare / 100);
if (realestate_4_pcntshare > 0) then realestate_4_pcntshare = (realestate_4_pcntshare / 100);
if (realestate_5_pcntshare > 0) then realestate_5_pcntshare = (realestate_5_pcntshare / 100);
if (realestate_6_pcntshare > 0) then realestate_6_pcntshare = (realestate_6_pcntshare / 100);

if (farm_1_value1 >= 0 & farm_1_pcntshare >= 0) then farm_1_value = (farm_1_value1 * farm_1_pcntshare);
if (farm_2_value1 >= 0 & farm_2_pcntshare >= 0) then farm_2_value = (farm_2_value1 * farm_2_pcntshare);
if (business_1_value1 >= 0 & business_1_pcntshare >= 0) then business_1_value = (business_1_value1 * business_1_pcntshare);
if (business_2_value1 >= 0 & business_2_pcntshare >= 0) then business_2_value = (business_2_value1 * business_2_pcntshare);
if (business_3_value1 >= 0 & business_3_pcntshare >= 0) then business_3_value = (business_3_value1 * business_3_pcntshare);
if (realestate_1_value1 >= 0 & realestate_1_pcntshare >= 0) then realestate_1_value = (realestate_1_value1 * realestate_1_pcntshare);
if (realestate_2_value1 >= 0 & realestate_2_pcntshare >= 0) then realestate_2_value = (realestate_2_value1 * realestate_2_pcntshare);
if (realestate_3_value1 >= 0 & realestate_3_pcntshare >= 0) then realestate_3_value = (realestate_3_value1 * realestate_3_pcntshare);
if (realestate_4_value1 >= 0 & realestate_4_pcntshare >= 0) then realestate_4_value = (realestate_4_value1 * realestate_4_pcntshare);
if (realestate_5_value1 >= 0 & realestate_5_pcntshare >= 0) then realestate_5_value = (realestate_5_value1 * realestate_5_pcntshare);
if (realestate_6_value1 >= 0 & realestate_6_pcntshare >= 0) then realestate_6_value = (realestate_6_value1 * realestate_6_pcntshare);

/*****************************/
/* Add components BIZ        */
/*****************************/

if (solebiz >= 0) then bizc = (bizc + solebiz);
if (farm_1_value >= 0) then bizc = (bizc + farm_1_value);
if (farm_2_value >= 0) then bizc = (bizc + farm_2_value);
if (business_1_value >= 0) then bizc = (bizc + business_1_value);
if (business_2_value >= 0) then bizc = (bizc + business_2_value);
if (business_3_value >= 0) then bizc = (bizc + business_3_value);
if (realestate_1_value >= 0) then bizc = (bizc + realestate_1_value);
if (realestate_2_value >= 0) then bizc = (bizc + realestate_2_value);
if (realestate_3_value >= 0) then bizc = (bizc + realestate_3_value);
if (realestate_4_value >= 0) then bizc = (bizc + realestate_4_value);
if (realestate_5_value >= 0) then bizc = (bizc + realestate_5_value);
if (realestate_6_value >= 0) then bizc = (bizc + realestate_6_value);

if (solebiz in(-1, -2)) then bizc = -3;
if (farm_1_value in(-1, -2) | farm_1_pcntshare in(-1, -2)) then bizc = -3;
if (farm_2_value in(-1, -2) | farm_2_pcntshare in(-1, -2)) then bizc = -3;
if (business_1_value in(-1, -2) | business_1_pcntshare in(-1, -2)) then bizc = -3;
if (business_2_value in(-1, -2) | business_2_pcntshare in(-1, -2)) then bizc = -3;
if (business_3_value in(-1, -2) | business_3_pcntshare in(-1, -2)) then bizc = -3;
if (realestate_1_value in(-1, -2) | realestate_1_pcntshare in(-1, -2)) then bizc = -3;
if (realestate_2_value in(-1, -2) | realestate_2_pcntshare in(-1, -2)) then bizc = -3;
if (realestate_3_value in(-1, -2) | realestate_3_pcntshare in(-1, -2)) then bizc = -3;
if (realestate_4_value in(-1, -2) | realestate_4_pcntshare in(-1, -2)) then bizc = -3;
if (realestate_5_value in(-1, -2) | realestate_5_pcntshare in(-1, -2)) then bizc = -3;
if (realestate_6_value in(-1, -2) | realestate_6_pcntshare in(-1, -2)) then bizc = -3;

/****************************/
/* Compute BDEBT            */
/****************************/

/*****************************/
/* BDEBT Component - debtbiz */
/*****************************/

if (q13_132_revised >= 0) then debtbiz = (debtbiz + q13_132_revised);
else if (q13_132_revised in(-1, -2)) then debtbiz = -3;

/*****************************************************************************************/
/* BDEBT Components - farm_#_debt, business_#_debt, realestate_#_debt                    */
/*       (use ownership percentage computed above for bizc)                              */
/*****************************************************************************************/

if (q13_fjt_12_01 > -4) then farm_1_debt1 = q13_fjt_12_01;
if (q13_fjt_12_02 > -4) then farm_2_debt1 = q13_fjt_12_02;
if (q13_bppjt_12_01_trunc > -4) then business_1_debt1 = q13_bppjt_12_01_trunc;
if (q13_bppjt_12_02_trunc > -4) then business_2_debt1 = q13_bppjt_12_02_trunc;
if (q13_bppjt_12_03_trunc > -4) then business_3_debt1 = q13_bppjt_12_03_trunc;

if (farm_1_debt1 >= 0 & farm_1_pcntshare >= 0) then farm_1_debt = (farm_1_debt1 * farm_1_pcntshare);
if (farm_2_debt1 >= 0 & farm_2_pcntshare >= 0) then farm_2_debt = (farm_2_debt1 * farm_2_pcntshare);
if (business_1_debt1 >= 0 & business_1_pcntshare >= 0) then business_1_debt = (business_1_debt1 * business_1_pcntshare);
if (business_2_debt1 >= 0 & business_2_pcntshare >= 0) then business_2_debt = (business_2_debt1 * business_2_pcntshare);
if (business_3_debt1 >= 0 & business_3_pcntshare >= 0) then business_3_debt = (business_3_debt1 * business_3_pcntshare);

/*****************************/
/* Add components BDEBT      */
/*****************************/

if (debtbiz >= 0) then bdebtc = (bdebtc + debtbiz);
if (farm_1_debt >= 0) then bdebtc = (bdebtc + farm_1_debt);
if (farm_2_debt >= 0) then bdebtc = (bdebtc + farm_2_debt);
if (business_1_debt >= 0) then bdebtc = (bdebtc + business_1_debt);
if (business_2_debt >= 0) then bdebtc = (bdebtc + business_2_debt);
if (business_3_debt >= 0) then bdebtc = (bdebtc + business_3_debt);

if (debtbiz in(-1, -2)) then bdebtc = -3;
if (farm_1_debt in(-1, -2) | farm_1_pcntshare in(-1, -2)) then bdebtc = -3;
if (farm_2_debt in(-1, -2) | farm_2_pcntshare in(-1, -2)) then bdebtc = -3;
if (business_1_debt in(-1, -2) | business_1_pcntshare in(-1, -2)) then bdebtc = -3;
if (business_2_debt in(-1, -2) | business_2_pcntshare in(-1, -2)) then bdebtc = -3;
if (business_3_debt in(-1, -2) | business_3_pcntshare in(-1, -2)) then bdebtc = -3;

/*****************************/
/* Compute CASH              */
/*****************************/

if (q13_121 = 1 & q13_122_revised >= 0) then cashc = (cashc + q13_122_revised);
else if (q13_121 = 1 & q13_122_revised in(-1, -2) & q13_122a < 0 & q13_122b < 0
& q13_122c < 0) then cashc = -3;
else if (q13_122_revised in(-1, -2) & q13_122b = 0) then cashc = (cashc + q13_122_quartile1);
else if (q13_122_revised in(-1, -2) & q13_122b = 1) then cashc = (cashc + q13_122_quartile2);
else if (q13_122_revised in(-1, -2) & q13_122c = 0) then cashc = (cashc + q13_122_quartile3);
else if (q13_122_revised in(-1, -2) & q13_122c = 1) then cashc = (cashc + 60000);

/*****************************/
/* Compute CDS               */
/*****************************/

if (q13_123d = 1 & q13_123e_revised >= 0) then cdsc = (cdsc + q13_123e_revised);
else if (q13_123d = 1 & q13_123e_revised in(-1, -2)) then cdsc = -3;

/*****************************/
/* Compute STOCK             */
/*****************************/

if (q13_124 = 1 & q13_125_revised >= 0) then stockc = (stockc + q13_125_revised);
else if (q13_124 = 1 & q13_125_revised in(-1, -2) & q13_125a < 0 & q13_125b < 0
& q13_125c < 0) then stockc = -3;
else if (q13_125_revised in(-1, -2) & q13_125b = 0) then stockc = (stockc + q13_125_quartile1);
   else if (q13_125_revised in(-1, -2) & q13_125b = 1) then stockc = (stockc + q13_125_quartile2);
    else if (q13_125_revised in(-1, -2) & q13_125c = 0) then stockc = (stockc + q13_125_quartile3);
     else if (q13_125_revised in(-1, -2) & q13_125c = 1) then stockc = (stockc + 85000);

/*****************************/
/* Compute HOME              */
/*****************************/

if (q13_117 = 1 & q13_118_revised >= 0) then homec = (homec + q13_118_revised);
else if (q13_117 = 1 & q13_118_revised in(-1, -2)) then homec = -3;

/*****************************/
/* Compute MORT              */
/*****************************/

if (q13_119_revised >= 0) then mortc = (mortc + q13_119_revised);
else if (q13_119_revised in(-1, -2)) then mortc = -3;

/*****************************/
/* Compute PDEBT             */
/*****************************/

if (q13_120_revised >= 0) then pdebtc = (pdebtc + q13_120_revised);
else if (q13_120_revised in(-1, -2)) then pdebtc = -3;

/*****************************/
/* Compute IRA               */
/*****************************/

if (q13_123 = 1 & q13_123a_revised >= 0) then irac = (irac + q13_123a_revised);
else if (q13_123 = 1 & q13_123a_revised in(-1, -2)) then irac = -3;

/*****************************/
/* Compute A401K             */
/*****************************/

if (q13_123b = 1 & q13_123c_revised >= 0) then a401kc = (a401kc + q13_123c_revised);
else if (q13_123b = 1 & q13_123c_revised in(-1, -2) & q13_123c_1 < 0 & q13_123c_2 < 0
& q13_123c_3 < 0) then a401kc = -3;
else if (q13_123c_revised in(-1, -2) & q13_123c_2 = 0) then a401kc = (a401kc + q13_123c_quartile1);
else if (q13_123c_revised in(-1, -2) & q13_123c_2 = 1) then a401kc = (a401kc + q13_123c_quartile2);
else if (q13_123c_revised in(-1, -2) & q13_123c_3 = 0) then a401kc = (a401kc + q13_123c_quartile3);
else if (q13_123c_revised in(-1, -2) & q13_123c_3 = 1) then a401kc = (a401kc + 75000);

/*****************************/
/* Compute CDEBT             */
/*****************************/

if (q13_134 = 1 & q13_135_revised >= 0) then cdebtc = (cdebtc + q13_135_revised);
else if (q13_134 = 1 & q13_135_revised in(-1, -2)) then cdebtc = -3;

/*****************************/
/* Compute CAR               */
/*****************************/

if (q13_133 = 1 & q13_136_revised >= 0) then carc = (carc + q13_136_revised);
else if (q13_133 = 1 & q13_136_revised in(-1, -2) & q13_136a < 0 & q13_136b < 0 & q13_136c < 0) then carc = -3;
else if (q13_136_revised in(-1, -2) & q13_136b = 0) then carc = (carc + q13_136_quartile1);
else if (q13_136_revised in(-1, -2) & q13_136b = 1) then carc = (carc + q13_136_quartile2);
else if (q13_136_revised in(-1, -2) & q13_136c = 0) then carc = (carc + q13_136_quartile3);
else if (q13_136_revised in(-1, -2) & q13_136c = 1) then carc = (carc + 40000);

/************************/
/* Compute TNFW_TRUNC   */
/************************/
/*******************************************************/
/* TNFW_TRUNC - add components created in above code   */
/*******************************************************/

if (homec >= 0) then tnfw_trunc = (tnfw_trunc + homec );
if (mortc >= 0) then tnfw_trunc = (tnfw_trunc - mortc );
if (pdebtc >= 0) then tnfw_trunc = (tnfw_trunc - pdebtc);
if (cashc >= 0) then tnfw_trunc = (tnfw_trunc + cashc );
if (irac   >= 0) then tnfw_trunc = (tnfw_trunc + irac );
if (a401kc >= 0) then tnfw_trunc = (tnfw_trunc + a401kc);
if (cdsc   >= 0) then tnfw_trunc = (tnfw_trunc + cdsc );
if (stockc >= 0) then tnfw_trunc = (tnfw_trunc + stockc);
if (trustc >= 0) then tnfw_trunc = (tnfw_trunc + trustc);
if (bizc   >= 0) then tnfw_trunc = (tnfw_trunc + bizc );
if (bdebtc >= 0) then tnfw_trunc = (tnfw_trunc - bdebtc);
if (cdebtc >= 0) then tnfw_trunc = (tnfw_trunc - cdebtc);
if (carc   >= 0) then tnfw_trunc = (tnfw_trunc + carc );
if (posesc >= 0) then tnfw_trunc = (tnfw_trunc + posesc);
if (odebtc >= 0) then tnfw_trunc = (tnfw_trunc - odebtc);

if (homec in(-1, -2, -3)) then tnfw_trunc = -3;
if (mortc in(-1, -2, -3)) then tnfw_trunc = -3;
if (pdebtc in(-1, -2, -3)) then tnfw_trunc = -3;
if (cashc in(-1, -2, -3)) then tnfw_trunc = -3;
if (irac   in(-1, -2, -3)) then tnfw_trunc = -3;
if (a401kc in(-1, -2, -3)) then tnfw_trunc = -3;
if (cdsc   in(-1, -2, -3)) then tnfw_trunc = -3;
if (stockc in(-1, -2, -3)) then tnfw_trunc = -3;
if (trustc in(-1, -2, -3)) then tnfw_trunc = -3;
if (bizc   in(-1, -2, -3)) then tnfw_trunc = -3;
if (bdebtc in(-1, -2, -3)) then tnfw_trunc = -3;
if (cdebtc in(-1, -2, -3)) then tnfw_trunc = -3;
if (carc   in(-1, -2, -3)) then tnfw_trunc = -3;
if (posesc in(-1, -2, -3)) then tnfw_trunc = -3;
if (odebtc in(-1, -2, -3)) then tnfw_trunc = -3;

/****************************************/
/* APPLY TOPCODE TO TNFW_TRUNC FOR 2000 */
/****************************************/

if (tnfw_trunc_2000 > 928938) then tnfw_trunc_2000 = 2056326;

tnfw_trunc_2000 = round(tnfw_trunc_2000);

2004 TNFW_TRUNC Variable Creation

/***************************************************/
/* Compute dollar amt for dollars & cents vars     */
/***************************************************/

nfa_7d_truncc = nfa_7d_trunc;
if (nfa_7d_trunc > 0) then nfa_7d_truncc = (nfa_7d_trunc/100);

debt_1ac = debt_1a_trunc;
if (debt_1a_trunc > 0) then debt_1ac = (debt_1a_trunc/100);

debt_2ac = debt_2a_trunc;
if (debt_2a_trunc > 0) then debt_2ac = (debt_2a_trunc/100);

debt_2dc = debt_2d_trunc;
if (debt_2d_trunc > 0) then debt_2dc = (debt_2d_trunc/100);

debt_3ac = debt_3a_trunc;
if (debt_3a_trunc > 0) then debt_3ac = (debt_3a_trunc/100);

debt_4ac = debt_4a_trunc;
if (debt_4a_trunc > 0) then debt_4ac = (debt_4a_trunc/100);

/***************************************************/
/* Compute dynamic QUARTILE VALUES for estimates   */
/***************************************************/

array quartileqs (i) quartile1 quartile2 quartile3 quartile4;

do i = 1 to 4;
quartileqs = 0;
end;

if (symbol_entry_othhh = 10000) then do;
quartile1 = (5000/2);
quartile2 = (5000 + ((10000-5000)/2));
quartile3 = (10000 + ((30000-10000)/2));
quartile4 = 30000; /* Note: Use median of actual values > 30000 where possible. Otherwise set to 30000 */
end;
else if (symbol_entry_othhh = 20000) then do;
quartile1 = (5000/2);
quartile2 = (5000 + ((20000-5000)/2));
quartile3 = (20000 + ((30000-20000)/2));
quartile4 = 30000; /* Note: Use median of actual values > 30000 where possible. Otherwise set to 30000 */
end;

/***************************************************/
/* BEGIN COMPUTATIONS FOR NET WEALTH COMPONENTS    */
/***************************************************/

array assetsc (i)      homec mortc pdebtc cashc irac a401kc cdsc stockc trustc bizc
                       bdebtc cdebtc carc posesc odebtc tnfw_trunc
                       collections items ccdebt studentloan childstudentloan owebusiness otherdebt
                       solebiz farm_1_value1 farm_2_value1 business_1_value1 business_2_value1
                       business_3_value1 realestate_1_value1 realestate_2_value1 realestate_3_value1 realestate_4_value1
                       farm_1_value farm_2_value business_1_value business_2_value business_3_value realestate_1_value
                       realestate_2_value realestate_3_value realestate_4_value
                       debtbiz farm_1_debt1 farm_2_debt1 business_1_debt1 business_2_debt1 business_3_debt1
                       farm_1_debt farm_2_debt business_1_debt business_2_debt business_3_debt
                       govbonds mutual lifeinsure shares corpbond moneyowedtor
                       home1 secondhome mort1 secondmort pdebt1 secondpdebt
                       ira1 ira2 ira3 ira4 ira5 ira6 ira7 r_401k sp_401k
                       amtowe_assetpoorcars1 amtowe_assetpoorcars2 amtowe_assetpoorcars3
                       amountowe_vehicles1 amountowe_vehicles2 amountowe_vehicles3 amountowe_vehicles4
                       amountowe_vehicles5 amountowe_vehicles6 amtowe_othervehicles
                       mktval_assetpoorcars1 mktval_assetpoorcars2 mktval_assetpoorcars3
                       marketvalue_vehicles1 marketvalue_vehicles2 marketvalue_vehicles3 marketvalue_vehicles4
                       marketvalue_vehicles5 marketvalue_vehicles6 marketvalue_vehicles7 marketvalue_vehicles8
                       marketvalue_vehicles7 marketvalue_vehicles8 marketvalue_vehicles9 marketvalue_vehicles10
                       marketvalue_vehicles11 marketvalue_vehicles12
                       marketvalue_vehicles13 marketvalue_vehicles14 marketvalue_vehicles15 mktval_othervehicles;

do i = 1 to 105;
if (sampweight = 0) then assetsc = -5;
else if (sampweight > 0) then assetsc = 0;
end;

/****************************/
/* Compute POSES            */
/****************************/
/********************************************/
/* POSES Component - collections            */
/********************************************/

if (nfa_6a = 1 & nfa_6e_trunc >= 0) then collections = (collections + nfa_6e_trunc);
else if (nfa_6a = 1 & nfa_6e_ref_1 = 1 & nfa_6e_sr000001 < 0 & nfa_6e_sr000002 < 0
& nfa_6e_uab_a < 0 & nfa_6e_uab_b < 0 & nfa_6e_uab_c < 0) then collections = -1;
else if (nfa_6a = 1 & nfa_6e_trunc in(-1, -2) & nfa_6e_sr000001 < 0 & nfa_6e_sr000002 < 0
& nfa_6e_uab_a < 0 & nfa_6e_uab_b < 0 & nfa_6e_uab_c < 0) then collections = nfa_6e_trunc;
    else if (nfa_6e_sr000001 >= 0 & nfa_6e_sr000002 >= 0 & nfa_6e_sr000002 = nfa_6e_sr000001) then
    collections = (collections + nfa_6e_sr000001);
     else if (nfa_6e_sr000001 >= 0 & nfa_6e_sr000002 >= 0 & nfa_6e_sr000002 > nfa_6e_sr000001) then
     collections = (collections + (((nfa_6e_sr000002 - nfa_6e_sr000001)/2) + nfa_6e_sr000001));
      else if (nfa_6e_sr000001 >= 0 & nfa_6e_sr000002 >= 0 & nfa_6e_sr000002 < nfa_6e_sr000001) then
      collections = (collections + (((nfa_6e_sr000001 - nfa_6e_sr000002)/2) + nfa_6e_sr000002));
       else if (nfa_6e_trunc in(-1, -2, -4) & nfa_6e_uab_b = 0) then collections = (collections + quartile1);
        else if (nfa_6e_trunc in(-1, -2, -4) & nfa_6e_uab_b = 1) then collections = (collections + quartile2);
         else if (nfa_6e_trunc in(-1, -2, -4) & nfa_6e_uab_c = 0) then collections = (collections + quartile3);
          else if (nfa_6e_trunc in(-1, -2, -4) & nfa_6e_uab_c = 1) then collections = (collections + 55000);
           else if (nfa_6e_uab_a in(-1, -2) | nfa_6e_uab_b in(-1, -2) | nfa_6e_uab_c in(-1, -2)) then collections = -3;

/********************************************/
/* POSES Component - items                  */
/********************************************/

if (nfa_7 = 1 & nfa_7d_truncc >= 0) then items = (items + nfa_7d_truncc);
else if (nfa_7 = 1 & nfa_7d_ref_1 = 1 & nfa_7d_uab_a < 0 & nfa_7d_uab_b < 0 & nfa_7d_uab_c < 0) then items = -1;
else if (nfa_7 = 1 & nfa_7d_truncc in(-1, -2) & nfa_7d_uab_a < 0 & nfa_7d_uab_b < 0 & nfa_7d_uab_c < 0) then items = nfa_7d_truncc;
   else if (nfa_7d_truncc in(-1, -2, -4) & nfa_7d_uab_b = 0) then items = (items + quartile1);
    else if (nfa_7d_truncc in(-1, -2, -4) & nfa_7d_uab_b = 1) then items = (items + quartile2);
     else if (nfa_7d_truncc in(-1, -2, -4) & nfa_7d_uab_c = 0) then items = (items + quartile3);
      else if (nfa_7d_truncc in(-1, -2, -4) & nfa_7d_uab_c = 1) then items = (items + 60000);
       else if (nfa_7d_uab_a in(-1, -2) | nfa_7d_uab_b in(-1, -2) | nfa_7d_uab_c in(-1, -2)) then items = -3;

/*******************************/
/* Add components POSES        */
/*******************************/

if (collections >= 0) then posesc = (posesc + collections);
if (items >= 0) then posesc = (posesc + items);
if (collections in(-1, -2, -3)) then posesc = -3;
else if (items in(-1, -2, -3)) then posesc = -3;

/****************************/
/* Compute ODEBT            */
/****************************/

/********************************************/
/* ODEBT Component - ccdebt                 */
/********************************************/

if (debt_1 = 1 & debt_1ac >= 0) then ccdebt = (ccdebt + debt_1ac);
else if (debt_1 = 1 & debt_1a_ref_1 = 1 & debt_1a_sr000001 < 0 & debt_1a_sr000002 < 0
& debt_1a_uab_a < 0 & debt_1a_uab_b < 0 & debt_1a_uab_c < 0) then ccdebt = -1;
else if (debt_1 = 1 & debt_1ac in(-1, -2) & debt_1a_sr000001 < 0 & debt_1a_sr000002 < 0
& debt_1a_uab_a < 0 & debt_1a_uab_b < 0 & debt_1a_uab_c < 0) then ccdebt = debt_1ac;
    else if (debt_1a_sr000001 >= 0 & debt_1a_sr000002 >= 0 & debt_1a_sr000002 = debt_1a_sr000001) then
    ccdebt = (ccdebt + debt_1a_sr000001);
     else if (debt_1a_sr000001 >= 0 & debt_1a_sr000002 >= 0 & debt_1a_sr000002 > debt_1a_sr000001) then
     ccdebt = (ccdebt + (((debt_1a_sr000002 - debt_1a_sr000001)/2) + debt_1a_sr000001));
      else if (debt_1a_sr000001 >= 0 & debt_1a_sr000002 >= 0 & debt_1a_sr000002 < debt_1a_sr000001) then
      ccdebt = (ccdebt + (((debt_1a_sr000001 - debt_1a_sr000002)/2) + debt_1a_sr000002));
       else if (debt_1ac in(-1, -2, -4) & debt_1a_uab_b = 0) then ccdebt = (ccdebt + quartile1);
        else if (debt_1ac in(-1, -2, -4) & debt_1a_uab_b = 1) then ccdebt = (ccdebt + quartile2);
         else if (debt_1ac in(-1, -2, -4) & debt_1a_uab_c = 0) then ccdebt = (ccdebt + quartile3);
          else if (debt_1ac in(-1, -2, -4) & debt_1a_uab_c = 1) then ccdebt = (ccdebt + 47500);
           else if (debt_1a_uab_a in(-1, -2) | debt_1a_uab_b in(-1, -2) | debt_1a_uab_c in(-1, -2)) then ccdebt = -3;

/********************************************/
/* ODEBT Component - studentloan            */
/********************************************/

if (debt_2 = 1 & debt_2ac >= 0) then studentloan = (studentloan + debt_2ac);
else if (debt_2 = 1 & debt_2a_ref_1 = 1 & debt_2a_uab_a < 0 & debt_2a_uab_b < 0 & debt_2a_uab_c < 0) then studentloan = -1;
else if (debt_2 = 1 & debt_2ac in(-1, -2) & debt_2a_uab_a < 0 & debt_2a_uab_b < 0 & debt_2a_uab_c < 0) then studentloan = debt_2ac;
   else if (debt_2ac in(-1, -2, -4) & debt_2a_uab_b = 0) then studentloan = (studentloan + quartile1);
    else if (debt_2ac in(-1, -2, -4) & debt_2a_uab_b = 1) then studentloan = (studentloan + quartile2);
     else if (debt_2ac in(-1, -2, -4) & debt_2a_uab_c = 0) then studentloan = (studentloan + quartile3);
      else if (debt_2ac in(-1, -2, -4) & debt_2a_uab_c = 1) then studentloan = (studentloan + 50000);
       else if (debt_2a_uab_a in(-1, -2) | debt_2a_uab_b in(-1, -2) | debt_2a_uab_c in(-1, -2)) then studentloan = -3;

/********************************************/
/* ODEBT Component - childstudentloan       */
/********************************************/

if (debt_2c = 1 & debt_2dc >= 0) then childstudentloan = (childstudentloan + debt_2dc);
else if (debt_2c = 1 & debt_2d_ref_1 = 1 & debt_2d_uab_a < 0 & debt_2d_uab_b < 0 & debt_2d_uab_c < 0) then childstudentloan = -1;
else if (debt_2c = 1 & debt_2dc in(-1, -2) & debt_2d_uab_a < 0 & debt_2d_uab_b < 0 & debt_2d_uab_c < 0) then childstudentloan = debt_2dc;
   else if (debt_2dc in(-1, -2, -4) & debt_2d_uab_b = 0) then childstudentloan = (childstudentloan + quartile1);
    else if (debt_2dc in(-1, -2, -4) & debt_2d_uab_b = 1) then childstudentloan = (childstudentloan + quartile2);
     else if (debt_2dc in(-1, -2, -4) & debt_2d_uab_c = 0) then childstudentloan = (childstudentloan + quartile3);
      else if (debt_2dc in(-1, -2, -4) & debt_2d_uab_c = 1) then childstudentloan = (childstudentloan + 39000);
       else if (debt_2d_uab_a in(-1, -2) | debt_2d_uab_b in(-1, -2) | debt_2d_uab_c in(-1, -2)) then childstudentloan = -3;

/********************************************/
/* ODEBT Component - owebusiness            */
/********************************************/

if (debt_3 = 1 & debt_3ac >= 0) then owebusiness = (owebusiness + debt_3ac);
else if (debt_3 = 1 & debt_3a_ref_1 = 1 & debt_3a_uab_a < 0 & debt_3a_uab_b < 0 & debt_3a_uab_c < 0) then owebusiness = -1;
else if (debt_3 = 1 & debt_3ac in(-1, -2) & debt_3a_uab_a < 0 & debt_3a_uab_b < 0 & debt_3a_uab_c < 0) then owebusiness = debt_3ac;
   else if (debt_3ac in(-1, -2, -4) & debt_3a_uab_b = 0) then owebusiness = (owebusiness + quartile1);
    else if (debt_3ac in(-1, -2, -4) & debt_3a_uab_b = 1) then owebusiness = (owebusiness + quartile2);
     else if (debt_3ac in(-1, -2, -4) & debt_3a_uab_c = 0) then owebusiness = (owebusiness + quartile3);
      else if (debt_3ac in(-1, -2, -4) & debt_3a_uab_c = 1) then owebusiness = (owebusiness + 56000);
       else if (debt_3a_uab_a in(-1, -2) | debt_3a_uab_b in(-1, -2) | debt_3a_uab_c in(-1, -2)) then owebusiness = -3;

/********************************************/
/* ODEBT Component - otherdebt              */
/********************************************/

if (debt_4 = 1 & debt_4ac >= 0) then otherdebt = (otherdebt + debt_4ac);
else if (debt_4 = 1 & debt_4a_ref_1 = 1 & debt_4a_uab_a < 0 & debt_4a_uab_b < 0 & debt_4a_uab_c < 0) then otherdebt = -1;
else if (debt_4 = 1 & debt_4ac in(-1, -2) & debt_4a_uab_a < 0 & debt_4a_uab_b < 0 & debt_4a_uab_c < 0) then otherdebt = debt_4ac;
   else if (debt_4ac in(-1, -2, -4) & debt_4a_uab_b = 0) then otherdebt = (otherdebt + quartile1);
    else if (debt_4ac in(-1, -2, -4) & debt_4a_uab_b = 1) then otherdebt = (otherdebt + quartile2);
     else if (debt_4ac in(-1, -2, -4) & debt_4a_uab_c = 0) then otherdebt = (otherdebt + quartile3);
      else if (debt_4ac in(-1, -2, -4) & debt_4a_uab_c = 1) then otherdebt = (otherdebt + 58500);
       else if (debt_4a_uab_a in(-1, -2) | debt_4a_uab_b in(-1, -2) | debt_4a_uab_c in(-1, -2)) then otherdebt = -3;

/*******************************/
/* Add components ODEBT        */
/*******************************/

if (ccdebt >= 0) then odebtc = (odebtc + ccdebt);
if (studentloan >= 0) then odebtc = (odebtc + studentloan);
if (childstudentloan >= 0) then odebtc = (odebtc + childstudentloan);
if (owebusiness >= 0) then odebtc = (odebtc + owebusiness);
if (otherdebt >= 0) then odebtc = (odebtc + otherdebt);
if (ccdebt in(-1, -2, -3)) then odebtc = -3;
else if (studentloan in(-1, -2, -3)) then odebtc = -3;
else if (childstudentloan in(-1, -2, -3)) then odebtc = -3;
else if (owebusiness in(-1, -2, -3)) then odebtc = -3;
else if (otherdebt in(-1, -2, -3)) then odebtc = -3;

/****************************/
/* Compute BIZ              */
/****************************/

/********************************************/
/* BIZ Component - solebiz                  */
/********************************************/

if (q13_131_trunc >= 0) then solebiz = (solebiz + q13_131_trunc);
else if (q13_131_trunc = 1 & q13_131_ref_1 = 1 & q13_131_sr000001 < 0 & q13_131_sr000002 < 0
& q13_131_uab_a < 0 & q13_131_uab_b < 0 & q13_131_uab_c < 0) then solebiz = -1;
else if (q13_131_trunc in(-1, -2) & q13_131_sr000001 < 0 & q13_131_sr000002 < 0
& q13_131_uab_a < 0 & q13_131_uab_b < 0 & q13_131_uab_c < 0) then solebiz = q13_131_trunc;
   else if (q13_131_sr000001 >= 0 & q13_131_sr000002 >= 0 & q13_131_sr000002 = q13_131_sr000001) then
   solebiz = (solebiz + q13_131_sr000001);
    else if (q13_131_sr000001 >= 0 & q13_131_sr000002 >= 0 & q13_131_sr000002 > q13_131_sr000001) then
    solebiz = (solebiz + (((q13_131_sr000002 - q13_131_sr000001)/2) + q13_131_sr000001));
     else if (q13_131_sr000001 >= 0 & q13_131_sr000002 >= 0 & q13_131_sr000002 < q13_131_sr000001) then
     solebiz = (solebiz + (((q13_131_sr000001 - q13_131_sr000002)/2) + q13_131_sr000002));
      else if (q13_131_trunc in(-1, -2, -4) & q13_131_uab_b = 0) then solebiz = (solebiz + quartile1);
       else if (q13_131_trunc in(-1, -2, -4) & q13_131_uab_b = 1) then solebiz = (solebiz + quartile2);
        else if (q13_131_trunc in(-1, -2, -4) & q13_131_uab_c = 0) then solebiz = (solebiz + quartile3);
         else if (q13_131_trunc in(-1, -2, -4) & q13_131_uab_c = 1) then solebiz = (solebiz + 202500);
          else if (q13_131_uab_a in(-1, -2) | q13_131_uab_b in(-1, -2) | q13_131_uab_c in(-1, -2)) then solebiz = -3;

/********************************************************************************************************/
/* BIZ Components - farm_#_value, business_#_value, realestate_#_value & percentage ownership           */
/********************************************************************************************************/

if (q13_fjt_11_01 > -4) then farm_1_value1 = q13_fjt_11_01;
if (q13_fjt_11_trunc_02 > -4) then farm_2_value1 = q13_fjt_11_trunc_02;
if (q13_bppjt_11_trunc_01 > -4) then business_1_value1 = q13_bppjt_11_trunc_01;
if (q13_bppjt_11_trunc_02 > -4) then business_2_value1 = q13_bppjt_11_trunc_02;
if (q13_bppjt_11_03 > -4) then business_3_value1 = q13_bppjt_11_03;
if (q13_rejt_11_trunc_01 > -4) then realestate_1_value1 = q13_rejt_11_trunc_01;
if (q13_rejt_11_02 > -4) then realestate_2_value1 = q13_rejt_11_02;
if (q13_rejt_11_03 > -4) then realestate_3_value1 = q13_rejt_11_03;
if (q13_rejt_11_04 > -4) then realestate_4_value1 = q13_rejt_11_04;

if (q13_fjt_12b_01 > -4) then farm_1_pcntshare = q13_fjt_12b_01;
if (q13_fjt_12b_02 > -4) then farm_2_pcntshare = q13_fjt_12b_02;
if (q13_bppjt_12b_01 > -4) then business_1_pcntshare = q13_bppjt_12b_01;
if (q13_bppjt_12b_02 > -4) then business_2_pcntshare = q13_bppjt_12b_02;
if (q13_bppjt_12b_03 > -4) then business_3_pcntshare = q13_bppjt_12b_03;
if (q13_rejt_12b_01 > -4) then realestate_1_pcntshare = q13_rejt_12b_01;
if (q13_rejt_12b_02 > -4) then realestate_2_pcntshare = q13_rejt_12b_02;
if (q13_rejt_12b_03 > -4) then realestate_3_pcntshare = q13_rejt_12b_03;
if (q13_rejt_12b_04 > -4) then realestate_4_pcntshare = q13_rejt_12b_04;

if (farm_1_pcntshare > 0) then farm_1_pcntshare = (farm_1_pcntshare / 100);
if (farm_2_pcntshare > 0) then farm_2_pcntshare = (farm_2_pcntshare / 100);
if (business_1_pcntshare > 0) then business_1_pcntshare = (business_1_pcntshare / 100);
if (business_2_pcntshare > 0) then business_2_pcntshare = (business_2_pcntshare / 100);
if (business_3_pcntshare > 0) then business_3_pcntshare = (business_3_pcntshare / 100);
if (realestate_1_pcntshare > 0) then realestate_1_pcntshare = (realestate_1_pcntshare / 100);
if (realestate_2_pcntshare > 0) then realestate_2_pcntshare = (realestate_2_pcntshare / 100);
if (realestate_3_pcntshare > 0) then realestate_3_pcntshare = (realestate_3_pcntshare / 100);
if (realestate_4_pcntshare > 0) then realestate_4_pcntshare = (realestate_4_pcntshare / 100);

if (farm_1_value1 >= 0 & farm_1_pcntshare >= 0) then farm_1_value = (farm_1_value1 * farm_1_pcntshare);
if (farm_2_value1 >= 0 & farm_2_pcntshare >= 0) then farm_2_value = (farm_2_value1 * farm_2_pcntshare);
if (business_1_value1 >= 0 & business_1_pcntshare >= 0) then business_1_value = (business_1_value1 * business_1_pcntshare);
if (business_2_value1 >= 0 & business_2_pcntshare >= 0) then business_2_value = (business_2_value1 * business_2_pcntshare);
if (business_3_value1 >= 0 & business_3_pcntshare >= 0) then business_3_value = (business_3_value1 * business_3_pcntshare);
if (realestate_1_value1 >= 0 & realestate_1_pcntshare >= 0) then realestate_1_value = (realestate_1_value1 * realestate_1_pcntshare);
if (realestate_2_value1 >= 0 & realestate_2_pcntshare >= 0) then realestate_2_value = (realestate_2_value1 * realestate_2_pcntshare);
if (realestate_3_value1 >= 0 & realestate_3_pcntshare >= 0) then realestate_3_value = (realestate_3_value1 * realestate_3_pcntshare);
if (realestate_4_value1 >= 0 & realestate_4_pcntshare >= 0) then realestate_4_value = (realestate_4_value1 * realestate_4_pcntshare);

/*******************************/
/* Add components BIZ          */
/*******************************/

if (solebiz >= 0) then bizc = (bizc + solebiz);
if (farm_1_value >= 0) then bizc = (bizc + farm_1_value);
if (farm_2_value >= 0) then bizc = (bizc + farm_2_value);
if (business_1_value >= 0) then bizc = (bizc + business_1_value);
if (business_2_value >= 0) then bizc = (bizc + business_2_value);
if (business_3_value >= 0) then bizc = (bizc + business_3_value);
if (realestate_1_value >= 0) then bizc = (bizc + realestate_1_value);
if (realestate_2_value >= 0) then bizc = (bizc + realestate_2_value);
if (realestate_3_value >= 0) then bizc = (bizc + realestate_3_value);
if (realestate_4_value >= 0) then bizc = (bizc + realestate_4_value);

if (solebiz in(-1, -2, -3)) then bizc = -3;
if (farm_1_value in(-1, -2, -3) | farm_1_pcntshare in(-1, -2, -3)) then bizc = -3;
if (farm_2_value in(-1, -2, -3) | farm_2_pcntshare in(-1, -2, -3)) then bizc = -3;
if (business_1_value in(-1, -2, -3) | business_1_pcntshare in(-1, -2, -3)) then bizc = -3;
if (business_2_value in(-1, -2, -3) | business_2_pcntshare in(-1, -2, -3)) then bizc = -3;
if (business_3_value in(-1, -2, -3) | business_3_pcntshare in(-1, -2, -3)) then bizc = -3;
if (realestate_1_value in(-1, -2, -3) | realestate_1_pcntshare in(-1, -2, -3)) then bizc = -3;
if (realestate_2_value in(-1, -2, -3) | realestate_2_pcntshare in(-1, -2, -3)) then bizc = -3;
if (realestate_3_value in(-1, -2, -3) | realestate_3_pcntshare in(-1, -2, -3)) then bizc = -3;
if (realestate_4_value in(-1, -2, -3) | realestate_4_pcntshare in(-1, -2, -3)) then bizc = -3;

/****************************/
/* Compute BDEBT            */
/****************************/

/********************************************/
/* BDEBT Component - debtbiz                */
/********************************************/

if (q13_132_trunc >= 0) then debtbiz = (debtbiz + q13_132_trunc);
else if (q13_132_trunc = 1 & q13_132_ref_1 = 1 & q13_132_sr000001 < 0 & q13_132_sr000002 < 0
& q13_132_uab_a < 0 & q13_132_uab_b < 0) then debtbiz = -1;
else if (q13_132_trunc in(-1, -2) & q13_132_sr000001 < 0 & q13_132_sr000002 < 0
& q13_132_uab_a < 0 & q13_132_uab_b < 0) then debtbiz = q13_132_trunc;
   else if (q13_132_sr000001 >= 0 & q13_132_sr000002 >= 0 & q13_132_sr000002 = q13_132_sr000001) then
   debtbiz = (debtbiz + q13_132_sr000001);
    else if (q13_132_sr000001 >= 0 & q13_132_sr000002 >= 0 & q13_132_sr000002 > q13_132_sr000001) then
    debtbiz = (debtbiz + (((q13_132_sr000002 - q13_132_sr000001)/2) + q13_132_sr000001));
     else if (q13_132_sr000001 >= 0 & q13_132_sr000002 >= 0 & q13_132_sr000002 < q13_132_sr000001) then
     debtbiz = (debtbiz + (((q13_132_sr000001 - q13_132_sr000002)/2) + q13_132_sr000002));
      else if (q13_132_trunc in(-1, -2, -4) & q13_132_uab_b = 0) then debtbiz = (debtbiz + quartile1);
       else if (q13_132_trunc in(-1, -2, -4) & q13_132_uab_b = 1) then debtbiz = (debtbiz + quartile2);
        else if (q13_132_uab_a in(-1, -2) | q13_132_uab_b in(-1, -2)) then debtbiz = -3;

/********************************************************************************************************/
/* BDEBT Components - farm_#_debt, business_#_debt, realestate_#_debt                                   */
/*       (use ownership percentage computed above for bizc)                                             */
/********************************************************************************************************/

if (q13_fjt_12_01 > -4) then farm_1_debt1 = q13_fjt_12_01;
if (q13_fjt_12_02 > -4) then farm_2_debt1 = q13_fjt_12_02;
if (q13_bppjt_12_trunc_01 > -4) then business_1_debt1 = q13_bppjt_12_trunc_01;
if (q13_bppjt_12_trunc_02 > -4) then business_2_debt1 = q13_bppjt_12_trunc_02;
if (q13_bppjt_12_03 > -4) then business_3_debt1 = q13_bppjt_12_03;

if (farm_1_debt1 >= 0 & farm_1_pcntshare >= 0) then farm_1_debt = (farm_1_debt1 * farm_1_pcntshare);
if (farm_2_debt1 >= 0 & farm_2_pcntshare >= 0) then farm_2_debt = (farm_2_debt1 * farm_2_pcntshare);
if (business_1_debt1 >= 0 & business_1_pcntshare >= 0) then business_1_debt = (business_1_debt1 * business_1_pcntshare);
if (business_2_debt1 >= 0 & business_2_pcntshare >= 0) then business_2_debt = (business_2_debt1 * business_2_pcntshare);
if (business_3_debt1 >= 0 & business_3_pcntshare >= 0) then business_3_debt = (business_3_debt1 * business_3_pcntshare);

/*******************************/
/* Add components BDEBT        */
/*******************************/

if (debtbiz >= 0) then bdebtc = (bdebtc + debtbiz);
if (farm_1_debt >= 0) then bdebtc = (bdebtc + farm_1_debt);
if (farm_2_debt >= 0) then bdebtc = (bdebtc + farm_2_debt);
if (business_1_debt >= 0) then bdebtc = (bdebtc + business_1_debt);
if (business_2_debt >= 0) then bdebtc = (bdebtc + business_2_debt);
if (business_3_debt >= 0) then bdebtc = (bdebtc + business_3_debt);

if (debtbiz in(-1, -2, -3)) then bdebtc = -3;
if (farm_1_debt in(-1, -2, -3) | farm_1_pcntshare in(-1, -2, -3)) then bdebtc = -3;
if (farm_2_debt in(-1, -2, -3) | farm_2_pcntshare in(-1, -2, -3)) then bdebtc = -3;
if (business_1_debt in(-1, -2, -3) | business_1_pcntshare in(-1, -2, -3)) then bdebtc = -3;
if (business_2_debt in(-1, -2, -3) | business_2_pcntshare in(-1, -2, -3)) then bdebtc = -3;
if (business_3_debt in(-1, -2, -3) | business_3_pcntshare in(-1, -2, -3)) then bdebtc = -3;

/****************************/
/* Compute CASH             */
/****************************/

/********************************************/
/* CASH Component - cash                    */
/********************************************/

if (fa_1 = 1 & fa_1a_trunc >= 0) then cashc = (cashc + fa_1a_trunc);
else if (fa_1 = 1 & fa_1_ref_1 = 1 & fa_1a_sr000001_tc < 0 & fa_1a_sr000002_tc < 0
& fa_1a_uab_a < 0 & fa_1a_uab_b < 0 & fa_1a_uab_c < 0) then cashc = -1;
else if (fa_1 = 1 & fa_1a_trunc in(-1, -2) & fa_1a_sr000001_tc < 0 & fa_1a_sr000002_tc < 0
& fa_1a_uab_a < 0 & fa_1a_uab_b < 0 & fa_1a_uab_c < 0) then cashc = fa_1a_trunc;
   else if (fa_1a_sr000001_tc >= 0 & fa_1a_sr000002_tc >= 0 & fa_1a_sr000002_tc = fa_1a_sr000001_tc) then
   cashc = (cashc + fa_1a_sr000001_tc);
    else if (fa_1a_sr000001_tc >= 0 & fa_1a_sr000002_tc >= 0 & fa_1a_sr000002_tc > fa_1a_sr000001_tc) then
    cashc = (cashc + (((fa_1a_sr000002_tc - fa_1a_sr000001_tc)/2) + fa_1a_sr000001_tc));
     else if (fa_1a_sr000001_tc >= 0 & fa_1a_sr000002_tc >= 0 & fa_1a_sr000002_tc < fa_1a_sr000001_tc) then
     cashc = (cashc + (((fa_1a_sr000001_tc - fa_1a_sr000002_tc)/2) + fa_1a_sr000002_tc));
      else if (fa_1a_trunc in(-1, -2, -4) & fa_1a_uab_b = 0) then cashc = (cashc + quartile1);
       else if (fa_1a_trunc in(-1, -2, -4) & fa_1a_uab_b = 1) then cashc = (cashc + quartile2);
        else if (fa_1a_trunc in(-1, -2, -4) & fa_1a_uab_c = 0) then cashc = (cashc + quartile3);
         else if (fa_1a_trunc in(-1, -2, -4) & fa_1a_uab_c = 1) then cashc = (cashc + 65000);
          else if (fa_1a_uab_a in(-1, -2) | fa_1a_uab_b in(-1, -2) | fa_1a_uab_c in(-1, -2)) then cashc = -3;

/*****************************/
/* Set CASHC -3 missing      */
/*****************************/

if (cashc in(-1, -2, -3)) then cashc = -3;

/****************************/
/* Compute CDS              */
/****************************/

/********************************************/
/* CDS Component - cds                      */
/********************************************/

if (fa_2 = 1 & fa_2a_trunc >= 0) then cdsc = (cdsc + fa_2a_trunc);
else if (fa_2 = 1 & fa_2_ref_1 = 1 & fa_2a_sr000001 < 0 & fa_2a_sr000002 < 0
& fa_2a_uab_a < 0 & fa_2a_uab_b < 0 & fa_2a_uab_c < 0) then cdsc = -1;
else if (fa_2 = 1 & fa_2a_trunc in(-1, -2) & fa_2a_sr000001 < 0 & fa_2a_sr000002 < 0
& fa_2a_uab_a < 0 & fa_2a_uab_b < 0 & fa_2a_uab_c < 0) then cdsc = fa_2a_trunc;
   else if (fa_2a_sr000001 >= 0 & fa_2a_sr000002 >= 0 & fa_2a_sr000002 = fa_2a_sr000001) then
   cdsc = (cdsc + fa_2a_sr000001);
    else if (fa_2a_sr000001 >= 0 & fa_2a_sr000002 >= 0 & fa_2a_sr000002 > fa_2a_sr000001) then
    cdsc = (cdsc + (((fa_2a_sr000002 - fa_2a_sr000001)/2) + fa_2a_sr000001));
     else if (fa_2a_sr000001 >= 0 & fa_2a_sr000002 >= 0 & fa_2a_sr000002 < fa_2a_sr000001) then
     cdsc = (cdsc + (((fa_2a_sr000001 - fa_2a_sr000002)/2) + fa_2a_sr000002));
      else if (fa_2a_trunc in(-1, -2, -4) & fa_2a_uab_b = 0) then cdsc = (cdsc + quartile1);
       else if (fa_2a_trunc in(-1, -2, -4) & fa_2a_uab_b = 1) then cdsc = (cdsc + quartile2);
        else if (fa_2a_trunc in(-1, -2, -4) & fa_2a_uab_c = 0) then cdsc = (cdsc + quartile3);
         else if (fa_2a_trunc in(-1, -2, -4) & fa_2a_uab_c = 1) then cdsc = (cdsc + 60000);
          else if (fa_2a_uab_a in(-1, -2) | fa_2a_uab_b in(-1, -2) | fa_2a_uab_c in(-1, -2)) then cdsc = -3;

/*****************************/
/* Set CDSC -3 missing       */
/*****************************/

if (cdsc in(-1, -2, -3)) then cdsc = -3;

/****************************/
/* Compute STOCK            */
/****************************/

/********************************************/
/* STOCK Component - govbonds               */
/********************************************/

if (fa_3 = 1 & fa_3a_trunc >= 0) then govbonds = (govbonds + fa_3a_trunc);
else if (fa_3 = 1 & fa_3_ref_1 = 1 & fa_3a_sr000001 < 0 & fa_3a_sr000002 < 0
& fa_3a_uab_a < 0 & fa_3a_uab_b < 0 & fa_3a_uab_c < 0) then govbonds = -1;
else if (fa_3 = 1 & fa_3a_trunc in(-1, -2) & fa_3a_sr000001 < 0 & fa_3a_sr000002 < 0
& fa_3a_uab_a < 0 & fa_3a_uab_b < 0 & fa_3a_uab_c < 0) then govbonds = fa_3a_trunc;
   else if (fa_3a_sr000001 >= 0 & fa_3a_sr000002 >= 0 & fa_3a_sr000002 = fa_3a_sr000001) then
   govbonds = (govbonds + fa_3a_sr000001);
    else if (fa_3a_sr000001 >= 0 & fa_3a_sr000002 >= 0 & fa_3a_sr000002 > fa_3a_sr000001) then
    govbonds = (govbonds + (((fa_3a_sr000002 - fa_3a_sr000001)/2) + fa_3a_sr000001));
     else if (fa_3a_sr000001 >= 0 & fa_3a_sr000002 >= 0 & fa_3a_sr000002 < fa_3a_sr000001) then
     govbonds = (govbonds + (((fa_3a_sr000001 - fa_3a_sr000002)/2) + fa_3a_sr000002));
      else if (fa_3a_trunc in(-1, -2, -4) & fa_3a_uab_b = 0) then govbonds = (govbonds + quartile1);
       else if (fa_3a_trunc in(-1, -2, -4) & fa_3a_uab_b = 1) then govbonds = (govbonds + quartile2);
        else if (fa_3a_trunc in(-1, -2, -4) & fa_3a_uab_c = 0) then govbonds = (govbonds + quartile3);
         else if (fa_3a_trunc in(-1, -2, -4) & fa_3a_uab_c = 1) then govbonds = (govbonds + 57500);
          else if (fa_3a_uab_a in(-1, -2) | fa_3a_uab_b in(-1, -2) | fa_3a_uab_c in(-1, -2)) then govbonds = -3;

/********************************************/
/* STOCK Component - mutual                 */
/********************************************/

if (fa_4 = 1 & fa_4a_trunc >= 0) then mutual = (mutual + fa_4a_trunc);
else if (fa_4 = 1 & fa_4_ref_1 = 1 & fa_4a_sr000001 < 0 & fa_4a_sr000002 < 0
& fa_4a_uab_a < 0 & fa_4a_uab_b < 0 & fa_4a_uab_c < 0) then mutual = -1;
else if (fa_4 = 1 & fa_4a_trunc in(-1, -2) & fa_4a_sr000001 < 0 & fa_4a_sr000002 < 0
& fa_4a_uab_a < 0 & fa_4a_uab_b < 0 & fa_4a_uab_c < 0) then mutual = fa_4a_trunc;
   else if (fa_4a_sr000001 >= 0 & fa_4a_sr000002 >= 0 & fa_4a_sr000002 = fa_4a_sr000001) then
   mutual = (mutual + fa_4a_sr000001);
    else if (fa_4a_sr000001 >= 0 & fa_4a_sr000002 >= 0 & fa_4a_sr000002 > fa_4a_sr000001) then
    mutual = (mutual + (((fa_4a_sr000002 - fa_4a_sr000001)/2) + fa_4a_sr000001));
     else if (fa_4a_sr000001 >= 0 & fa_4a_sr000002 >= 0 & fa_4a_sr000002 < fa_4a_sr000001) then
     mutual = (mutual + (((fa_4a_sr000001 - fa_4a_sr000002)/2) + fa_4a_sr000002));
      else if (fa_4a_trunc in(-1, -2, -4) & fa_4a_uab_b = 0) then mutual = (mutual + quartile1);
       else if (fa_4a_trunc in(-1, -2, -4) & fa_4a_uab_b = 1) then mutual = (mutual + quartile2);
        else if (fa_4a_trunc in(-1, -2, -4) & fa_4a_uab_c = 0) then mutual = (mutual + quartile3);
         else if (fa_4a_trunc in(-1, -2, -4) & fa_4a_uab_c = 1) then mutual = (mutual + 70000);
          else if (fa_4a_uab_a in(-1, -2) | fa_4a_uab_b in(-1, -2) | fa_4a_uab_c in(-1, -2)) then mutual = -3;

/********************************************/
/* STOCK Component - lifeinsure             */
/********************************************/

if (fa_5 = 1 & fa_5a_trunc >= 0) then lifeinsure = (lifeinsure + fa_5a_trunc);
else if (fa_5 = 1 & fa_5_ref_1 = 1 & fa_5a_sr000001 < 0 & fa_5a_sr000002 < 0
& fa_5a_uab_a < 0 & fa_5a_uab_b < 0 & fa_5a_uab_c < 0) then lifeinsure = -1;
else if (fa_5 = 1 & fa_5a_trunc in(-1, -2) & fa_5a_sr000001 < 0 & fa_5a_sr000002 < 0
& fa_5a_uab_a < 0 & fa_5a_uab_b < 0 & fa_5a_uab_c < 0) then lifeinsure = fa_5a_trunc;
   else if (fa_5a_sr000001 >= 0 & fa_5a_sr000002 >= 0 & fa_5a_sr000002 = fa_5a_sr000001) then
   lifeinsure = (lifeinsure + fa_5a_sr000001);
    else if (fa_5a_sr000001 >= 0 & fa_5a_sr000002 >= 0 & fa_5a_sr000002 > fa_5a_sr000001) then
    lifeinsure = (lifeinsure + (((fa_5a_sr000002 - fa_5a_sr000001)/2) + fa_5a_sr000001));
     else if (fa_5a_sr000001 >= 0 & fa_5a_sr000002 >= 0 & fa_5a_sr000002 < fa_5a_sr000001) then
     lifeinsure = (lifeinsure + (((fa_5a_sr000001 - fa_5a_sr000002)/2) + fa_5a_sr000002));
      else if (fa_5a_trunc in(-1, -2, -4) & fa_5a_uab_b = 0) then lifeinsure = (lifeinsure + quartile1);
       else if (fa_5a_trunc in(-1, -2, -4) & fa_5a_uab_b = 1) then lifeinsure = (lifeinsure + quartile2);
        else if (fa_5a_trunc in(-1, -2, -4) & fa_5a_uab_c = 0) then lifeinsure = (lifeinsure + quartile3);
         else if (fa_5a_trunc in(-1, -2, -4) & fa_5a_uab_c = 1) then lifeinsure = (lifeinsure + 100000);
          else if (fa_5a_uab_a in(-1, -2) | fa_5a_uab_b in(-1, -2) | fa_5a_uab_c in(-1, -2)) then lifeinsure = -3;

/********************************************/
/* STOCK Component - shares                 */
/********************************************/

if (fa_9 = 1 & fa_9a_trunc >= 0) then shares = (shares + fa_9a_trunc);
else if (fa_9 = 1 & fa_9_ref_1 = 1 & fa_9a_sr000001 < 0 & fa_9a_sr000002 < 0
& fa_9a_uab_a < 0 & fa_9a_uab_b < 0 & fa_9a_uab_c < 0) then shares = -1;
else if (fa_9 = 1 & fa_9a_trunc in(-1, -2) & fa_9a_sr000001 < 0 & fa_9a_sr000002 < 0
& fa_9a_uab_a < 0 & fa_9a_uab_b < 0 & fa_9a_uab_c < 0) then shares = fa_9a_trunc;
   else if (fa_9a_sr000001 >= 0 & fa_9a_sr000002 >= 0 & fa_9a_sr000002 = fa_9a_sr000001) then
   shares = (shares + fa_9a_sr000001);
    else if (fa_9a_sr000001 >= 0 & fa_9a_sr000002 >= 0 & fa_9a_sr000002 > fa_9a_sr000001) then
    shares = (shares + (((fa_9a_sr000002 - fa_9a_sr000001)/2) + fa_9a_sr000001));
     else if (fa_9a_sr000001 >= 0 & fa_9a_sr000002 >= 0 & fa_9a_sr000002 < fa_9a_sr000001) then
     shares = (shares + (((fa_9a_sr000001 - fa_9a_sr000002)/2) + fa_9a_sr000002));
      else if (fa_9a_trunc in(-1, -2, -4) & fa_9a_uab_b = 0) then shares = (shares + quartile1);
       else if (fa_9a_trunc in(-1, -2, -4) & fa_9a_uab_b = 1) then shares = (shares + quartile2);
        else if (fa_9a_trunc in(-1, -2, -4) & fa_9a_uab_c = 0) then shares = (shares + quartile3);
         else if (fa_9a_trunc in(-1, -2, -4) & fa_9a_uab_c = 1) then shares = (shares + 100000);
          else if (fa_9a_uab_a in(-1, -2) | fa_9a_uab_b in(-1, -2) | fa_9a_uab_c in(-1, -2)) then shares = -3;

/********************************************/
/* STOCK Component - corpbond               */
/********************************************/

if (fa_10 = 1 & fa_10a_trunc >= 0) then corpbond = (corpbond + fa_10a_trunc);
else if (fa_10 = 1 & fa_10_ref_1 = 1 & fa_10a_sr000001 < 0 & fa_10a_sr000002 < 0
& fa_10a_uab_a < 0 & fa_10a_uab_b < 0 & fa_10a_uab_c < 0) then corpbond = -1;
else if (fa_10 = 1 & fa_10a_trunc in(-1, -2) & fa_10a_sr000001 < 0 & fa_10a_sr000002 < 0
& fa_10a_uab_a < 0 & fa_10a_uab_b < 0 & fa_10a_uab_c < 0) then corpbond = fa_10a_trunc;
   else if (fa_10a_sr000001 >= 0 & fa_10a_sr000002 >= 0 & fa_10a_sr000002 = fa_10a_sr000001) then
   corpbond = (corpbond + fa_10a_sr000001);
    else if (fa_10a_sr000001 >= 0 & fa_10a_sr000002 >= 0 & fa_10a_sr000002 > fa_10a_sr000001) then
    corpbond = (corpbond + (((fa_10a_sr000002 - fa_10a_sr000001)/2) + fa_10a_sr000001));
     else if (fa_10a_sr000001 >= 0 & fa_10a_sr000002 >= 0 & fa_10a_sr000002 < fa_10a_sr000001) then
     corpbond = (corpbond + (((fa_10a_sr000001 - fa_10a_sr000002)/2) + fa_10a_sr000002));
      else if (fa_10a_trunc in(-1, -2, -4) & fa_10a_uab_b = 0) then corpbond = (corpbond + quartile1);
       else if (fa_10a_trunc in(-1, -2, -4) & fa_10a_uab_b = 1) then corpbond = (corpbond + quartile2);
        else if (fa_10a_trunc in(-1, -2, -4) & fa_10a_uab_c = 0) then corpbond = (corpbond + quartile3);
         else if (fa_10a_trunc in(-1, -2, -4) & fa_10a_uab_c = 1) then corpbond = (corpbond + 100000);
          else if (fa_10a_uab_a in(-1, -2) | fa_10a_uab_b in(-1, -2) | fa_10a_uab_c in(-1, -2)) then corpbond = -3;

/********************************************/
/* STOCK Component - moneyowedtor           */
/********************************************/

if (fa_11 = 1 & fa_11a_trunc >= 0) then moneyowedtor = (moneyowedtor + fa_11a_trunc);
else if (fa_11 = 1 & fa_11_ref_1 = 1 & fa_11a_sr000001 < 0 & fa_11a_sr000002 < 0
& fa_11a_uab_a < 0 & fa_11a_uab_b < 0 & fa_11a_uab_c < 0) then moneyowedtor = -1;
else if (fa_11 = 1 & fa_11a_trunc in(-1, -2) & fa_11a_sr000001 < 0 & fa_11a_sr000002 < 0
& fa_11a_uab_a < 0 & fa_11a_uab_b < 0 & fa_11a_uab_c < 0) then moneyowedtor = fa_11a_trunc;
   else if (fa_11a_sr000001 >= 0 & fa_11a_sr000002 >= 0 & fa_11a_sr000002 = fa_11a_sr000001) then
   moneyowedtor = (moneyowedtor + fa_11a_sr000001);
    else if (fa_11a_sr000001 >= 0 & fa_11a_sr000002 >= 0 & fa_11a_sr000002 > fa_11a_sr000001) then
    moneyowedtor = (moneyowedtor + (((fa_11a_sr000002 - fa_11a_sr000001)/2) + fa_11a_sr000001));
     else if (fa_11a_sr000001 >= 0 & fa_11a_sr000002 >= 0 & fa_11a_sr000002 < fa_11a_sr000001) then
     moneyowedtor = (moneyowedtor + (((fa_11a_sr000001 - fa_11a_sr000002)/2) + fa_11a_sr000002));
      else if (fa_11a_trunc in(-1, -2, -4) & fa_11a_uab_b = 0) then moneyowedtor = (moneyowedtor + quartile1);
       else if (fa_11a_trunc in(-1, -2, -4) & fa_11a_uab_b = 1) then moneyowedtor = (moneyowedtor + quartile2);
        else if (fa_11a_trunc in(-1, -2, -4) & fa_11a_uab_c = 0) then moneyowedtor = (moneyowedtor + quartile3);
         else if (fa_11a_trunc in(-1, -2, -4) & fa_11a_uab_c = 1) then moneyowedtor = (moneyowedtor + 60000);
          else if (fa_11a_uab_a in(-1, -2) | fa_11a_uab_b in(-1, -2) | fa_11a_uab_c in(-1, -2)) then moneyowedtor = -3;

/*******************************/
/* Add components STOCK        */
/*******************************/

if (govbonds >= 0) then stockc = (stockc + govbonds);
if (mutual >= 0) then stockc = (stockc + mutual);
if (lifeinsure >= 0) then stockc = (stockc + lifeinsure);
if (shares >= 0) then stockc = (stockc + shares);
if (corpbond >= 0) then stockc = (stockc + corpbond);
if (moneyowedtor >= 0) then stockc = (stockc + moneyowedtor);
if (govbonds in(-1, -2, -3)) then stockc = -3;
else if (mutual in(-1, -2, -3)) then stockc = -3;
else if (lifeinsure in(-1, -2, -3)) then stockc = -3;
else if (shares in(-1, -2, -3)) then stockc = -3;
else if (corpbond in(-1, -2, -3)) then stockc = -3;
else if (moneyowedtor in(-1, -2, -3)) then stockc = -3;

/****************************/
/* Compute HOME             */
/****************************/

/********************************************/
/* HOME Component - home1                   */
/********************************************/

if (nfa_1 = 1 & nfa_1a_trunc >= 0) then home1 = (home1 + nfa_1a_trunc);
else if (nfa_1 = 1 & nfa_1_ref_1 = 1 & nfa_1a_sr000001 < 0 & nfa_1a_sr000002 < 0
& nfa_1a_uab_a < 0 & nfa_1a_uab_b < 0 & nfa_1a_uab_c < 0) then home1 = -1;
else if (nfa_1 = 1 & nfa_1a_trunc in(-1, -2) & nfa_1a_sr000001 < 0 & nfa_1a_sr000002 < 0
& nfa_1a_uab_a < 0 & nfa_1a_uab_b < 0 & nfa_1a_uab_c < 0) then home1 = nfa_1a_trunc;
   else if (nfa_1a_sr000001 >= 0 & nfa_1a_sr000002 >= 0 & nfa_1a_sr000002 = nfa_1a_sr000001) then
   home1 = (home1 + nfa_1a_sr000001);
    else if (nfa_1a_sr000001 >= 0 & nfa_1a_sr000002 >= 0 & nfa_1a_sr000002 > nfa_1a_sr000001) then
    home1 = (home1 + (((nfa_1a_sr000002 - nfa_1a_sr000001)/2) + nfa_1a_sr000001));
     else if (nfa_1a_sr000001 >= 0 & nfa_1a_sr000002 >= 0 & nfa_1a_sr000002 < nfa_1a_sr000001) then
     home1 = (home1 + (((nfa_1a_sr000001 - nfa_1a_sr000002)/2) + nfa_1a_sr000002));
      else if (nfa_1a_trunc in(-1, -2, -4) & nfa_1a_uab_b = 0) then home1 = (home1 + quartile1);
       else if (nfa_1a_trunc in(-1, -2, -4) & nfa_1a_uab_b = 1) then home1 = (home1 + quartile2);
        else if (nfa_1a_trunc in(-1, -2, -4) & nfa_1a_uab_c = 0) then home1 = (home1 + quartile3);
         else if (nfa_1a_trunc in(-1, -2, -4) & nfa_1a_uab_c = 1) then home1 = (home1 + 165000);
          else if (nfa_1a_uab_a in(-1, -2) | nfa_1a_uab_b in(-1, -2) | nfa_1a_uab_c in(-1, -2)) then home1 = -3;

/********************************************/
/* HOME Component - secondhome              */
/********************************************/

if (nfa_2 = 1 & nfa_2a_trunc >= 0) then secondhome = (secondhome + nfa_2a_trunc);
else if (nfa_2 = 1 & nfa_2_ref_1 = 1 & nfa_2a_sr000001 < 0 & nfa_2a_sr000002 < 0
& nfa_2a_uab_a < 0 & nfa_2a_uab_b < 0 & nfa_2a_uab_c < 0) then secondhome = -1;
else if (nfa_2 = 1 & nfa_2a_trunc in(-1, -2) & nfa_2a_sr000001 < 0 & nfa_2a_sr000002 < 0
& nfa_2a_uab_a < 0 & nfa_2a_uab_b < 0 & nfa_2a_uab_c < 0) then secondhome = nfa_2a_trunc;
   else if (nfa_2a_sr000001 >= 0 & nfa_2a_sr000002 >= 0 & nfa_2a_sr000002 = nfa_2a_sr000001) then
   secondhome = (secondhome + nfa_2a_sr000001);
    else if (nfa_2a_sr000001 >= 0 & nfa_2a_sr000002 >= 0 & nfa_2a_sr000002 > nfa_2a_sr000001) then
    secondhome = (secondhome + (((nfa_2a_sr000002 - nfa_2a_sr000001)/2) + nfa_2a_sr000001));
     else if (nfa_2a_sr000001 >= 0 & nfa_2a_sr000002 >= 0 & nfa_2a_sr000002 < nfa_2a_sr000001) then
     secondhome = (secondhome + (((nfa_2a_sr000001 - nfa_2a_sr000002)/2) + nfa_2a_sr000002));
      else if (nfa_2a_trunc in(-1, -2, -4) & nfa_2a_uab_b = 0) then secondhome = (secondhome + quartile1);
       else if (nfa_2a_trunc in(-1, -2, -4) & nfa_2a_uab_b = 1) then secondhome = (secondhome + quartile2);
        else if (nfa_2a_trunc in(-1, -2, -4) & nfa_2a_uab_c = 0) then secondhome = (secondhome + quartile3);
         else if (nfa_2a_trunc in(-1, -2, -4) & nfa_2a_uab_c = 1) then secondhome = (secondhome + 150000);
          else if (nfa_2a_uab_a in(-1, -2) | nfa_2a_uab_b in(-1, -2) | nfa_2a_uab_c in(-1, -2)) then secondhome = -3;

/*******************************/
/* Add components HOME         */
/*******************************/

if (home1 >= 0) then homec = (homec + home1);
if (secondhome >= 0) then homec = (homec + secondhome);
if (home1 in(-1, -2, -3)) then homec = -3;
else if (secondhome in(-1, -2, -3)) then homec = -3;

/****************************/
/* Compute MORT             */
/****************************/

/********************************************/
/* MORT Component - mort1                   */
/********************************************/

if (nfa_1b_trunc >= 0) then mort1 = (mort1 + nfa_1b_trunc);
else if (nfa_1b_ref_1 = 1 & nfa_1b_sr000001_trunc < 0 & nfa_1b_sr000002_trunc < 0
& nfa_1b_uab_a < 0 & nfa_1b_uab_b < 0 & nfa_1b_uab_c < 0) then mort1 = -1;
else if (nfa_1b_trunc in(-1, -2) & nfa_1b_sr000001_trunc < 0 & nfa_1b_sr000002_trunc < 0
& nfa_1b_uab_a < 0 & nfa_1b_uab_b < 0 & nfa_1b_uab_c < 0) then mort1 = nfa_1b_trunc;
   else if (nfa_1b_sr000001_trunc >= 0 & nfa_1b_sr000002_trunc >= 0 & nfa_1b_sr000002_trunc = nfa_1b_sr000001_trunc) then
   mort1 = (mort1 + nfa_1b_sr000001_trunc);
    else if (nfa_1b_sr000001_trunc >= 0 & nfa_1b_sr000002_trunc >= 0 & nfa_1b_sr000002_trunc > nfa_1b_sr000001_trunc) then
    mort1 = (mort1 + (((nfa_1b_sr000002_trunc - nfa_1b_sr000001_trunc)/2) + nfa_1b_sr000001_trunc));
     else if (nfa_1b_sr000001_trunc >= 0 & nfa_1b_sr000002_trunc >= 0 & nfa_1b_sr000002_trunc < nfa_1b_sr000001_trunc) then
     mort1 = (mort1 + (((nfa_1b_sr000001_trunc - nfa_1b_sr000002_trunc)/2) + nfa_1b_sr000002_trunc));
      else if (nfa_1b_trunc in(-1, -2, -4) & nfa_1b_uab_b = 0) then mort1 = (mort1 + quartile1);
       else if (nfa_1b_trunc in(-1, -2, -4) & nfa_1b_uab_b = 1) then mort1 = (mort1 + quartile2);
        else if (nfa_1b_trunc in(-1, -2, -4) & nfa_1b_uab_c = 0) then mort1 = (mort1 + quartile3);
         else if (nfa_1b_trunc in(-1, -2, -4) & nfa_1b_uab_c = 1) then mort1 = (mort1 + 100000);
          else if (nfa_1b_uab_a in(-1, -2) | nfa_1b_uab_b in(-1, -2) | nfa_1b_uab_c in(-1, -2)) then mort1 = -3;

/********************************************/
/* MORT Component - secondmort              */
/********************************************/

if (nfa_2b_trunc >= 0) then secondmort = (secondmort + nfa_2b_trunc);
else if (nfa_2b_ref_1 = 1 & nfa_2b_sr000001 < 0 & nfa_2b_sr000002 < 0
& nfa_2b_uab_a < 0 & nfa_2b_uab_b < 0 & nfa_2b_uab_c < 0) then secondmort = -1;
else if (nfa_2b_trunc in(-1, -2) & nfa_2b_sr000001 < 0 & nfa_2b_sr000002 < 0
& nfa_2b_uab_a < 0 & nfa_2b_uab_b < 0 & nfa_2b_uab_c < 0) then secondmort = nfa_2b_trunc;
   else if (nfa_2b_sr000001 >= 0 & nfa_2b_sr000002 >= 0 & nfa_2b_sr000002 = nfa_2b_sr000001) then
   secondmort = (secondmort + nfa_2b_sr000001);
    else if (nfa_2b_sr000001 >= 0 & nfa_2b_sr000002 >= 0 & nfa_2b_sr000002 > nfa_2b_sr000001) then
    secondmort = (secondmort + (((nfa_2b_sr000002 - nfa_2b_sr000001)/2) + nfa_2b_sr000001));
     else if (nfa_2b_sr000001 >= 0 & nfa_2b_sr000002 >= 0 & nfa_2b_sr000002 < nfa_2b_sr000001) then
     secondmort = (secondmort + (((nfa_2b_sr000001 - nfa_2b_sr000002)/2) + nfa_2b_sr000002));
      else if (nfa_2b_trunc in(-1, -2, -4) & nfa_2b_uab_b = 0) then secondmort = (secondmort + quartile1);
       else if (nfa_2b_trunc in(-1, -2, -4) & nfa_2b_uab_b = 1) then secondmort = (secondmort + quartile2);
        else if (nfa_2b_trunc in(-1, -2, -4) & nfa_2b_uab_c = 0) then secondmort = (secondmort + quartile3);
         else if (nfa_2b_trunc in(-1, -2, -4) & nfa_2b_uab_c = 1) then secondmort = (secondmort + 100000);
          else if (nfa_2b_uab_a in(-1, -2) | nfa_2b_uab_b in(-1, -2) | nfa_2b_uab_c in(-1, -2)) then secondmort = -3;

/*******************************/
/* Add components MORT         */
/*******************************/

if (mort1 >= 0) then mortc = (mortc + mort1);
if (secondmort >= 0) then mortc = (mortc + secondmort);
if (mort1 in(-1, -2, -3)) then mortc = -3;
else if (secondmort in(-1, -2, -3)) then mortc = -3;

/****************************/
/* Compute PDEBT            */
/****************************/

/********************************************/
/* PDEBT Component - pdebt1                 */
/********************************************/

if (nfa_1c_trunc >= 0) then pdebt1 = (pdebt1 + nfa_1c_trunc);
else if (nfa_1c_ref_1 = 1 & nfa_1c_sr000001 < 0 & nfa_1c_sr000002 < 0
& nfa_1c_uab_a < 0 & nfa_1c_uab_b < 0 & nfa_1c_uab_c < 0) then pdebt1 = -1;
else if (nfa_1c_trunc in(-1, -2) & nfa_1c_sr000001 < 0 & nfa_1c_sr000002 < 0
& nfa_1c_uab_a < 0 & nfa_1c_uab_b < 0 & nfa_1c_uab_c < 0) then pdebt1 = nfa_1c_trunc;
   else if (nfa_1c_sr000001 >= 0 & nfa_1c_sr000002 >= 0 & nfa_1c_sr000002 = nfa_1c_sr000001) then
   pdebt1 = (pdebt1 + nfa_1c_sr000001);
    else if (nfa_1c_sr000001 >= 0 & nfa_1c_sr000002 >= 0 & nfa_1c_sr000002 > nfa_1c_sr000001) then
    pdebt1 = (pdebt1 + (((nfa_1c_sr000002 - nfa_1c_sr000001)/2) + nfa_1c_sr000001));
     else if (nfa_1c_sr000001 >= 0 & nfa_1c_sr000002 >= 0 & nfa_1c_sr000002 < nfa_1c_sr000001) then
     pdebt1 = (pdebt1 + (((nfa_1c_sr000001 - nfa_1c_sr000002)/2) + nfa_1c_sr000002));
      else if (nfa_1c_trunc in(-1, -2, -4) & nfa_1c_uab_b = 0) then pdebt1 = (pdebt1 + quartile1);
       else if (nfa_1c_trunc in(-1, -2, -4) & nfa_1c_uab_b = 1) then pdebt1 = (pdebt1 + quartile2);
        else if (nfa_1c_trunc in(-1, -2, -4) & nfa_1c_uab_c = 0) then pdebt1 = (pdebt1 + quartile3);
         else if (nfa_1c_trunc in(-1, -2, -4) & nfa_1c_uab_c = 1) then pdebt1 = (pdebt1 + 55000);
          else if (nfa_1c_uab_a in(-1, -2) | nfa_1c_uab_b in(-1, -2) | nfa_1c_uab_c in(-1, -2)) then pdebt1 = -3;

/********************************************/
/* PDEBT Component - secondpdebt            */
/********************************************/

if (nfa_2c >= 0) then secondpdebt = (secondpdebt + nfa_2c);
else if (nfa_2c_ref_1 = 1 & nfa_2c_sr000001 < 0 & nfa_2c_sr000002 < 0
& nfa_2c_uab_a < 0 & nfa_2c_uab_b < 0) then secondpdebt = -1;
else if (nfa_2c in(-1, -2) & nfa_2c_sr000001 < 0 & nfa_2c_sr000002 < 0
& nfa_2c_uab_a < 0 & nfa_2c_uab_b < 0) then secondpdebt = nfa_2c;
   else if (nfa_2c_sr000001 >= 0 & nfa_2c_sr000002 >= 0 & nfa_2c_sr000002 = nfa_2c_sr000001) then
   secondpdebt = (secondpdebt + nfa_2c_sr000001);
    else if (nfa_2c_sr000001 >= 0 & nfa_2c_sr000002 >= 0 & nfa_2c_sr000002 > nfa_2c_sr000001) then
    secondpdebt = (secondpdebt + (((nfa_2c_sr000002 - nfa_2c_sr000001)/2) + nfa_2c_sr000001));
     else if (nfa_2c_sr000001 >= 0 & nfa_2c_sr000002 >= 0 & nfa_2c_sr000002 < nfa_2c_sr000001) then
     secondpdebt = (secondpdebt + (((nfa_2c_sr000001 - nfa_2c_sr000002)/2) + nfa_2c_sr000002));
      else if (nfa_2c in(-1, -2, -4) & nfa_2c_uab_b = 0) then secondpdebt = (secondpdebt + quartile1);
       else if (nfa_2c in(-1, -2, -4) & nfa_2c_uab_b = 1) then secondpdebt = (secondpdebt + quartile2);
        else if (nfa_2c_uab_a in(-1, -2) | nfa_2c_uab_b in(-1, -2)) then secondpdebt = -3;

/*******************************/
/* Add components PDEBT        */
/*******************************/

if (pdebt1 >= 0) then pdebtc = (pdebtc + pdebt1);
if (secondpdebt >= 0) then pdebtc = (pdebtc + secondpdebt);
if (pdebt1 in(-1, -2, -3)) then pdebtc = -3;
else if (secondpdebt in(-1, -2, -3)) then pdebtc = -3;

/****************************/
/* Compute IRA              */
/****************************/

/********************************************/
/* IRA Component - ira1                     */
/********************************************/

if (fa_8 = 1 & fa_8d_trunc_01 >= 0) then ira1 = (ira1 + fa_8d_trunc_01);
else if (fa_8 = 1 & fa_8d_trunc_01 in(-1, -2) & fa_8d_sr000001_01 < 0 & fa_8d_sr000002_01 < 0
& fa_8d_uab_a_01 < 0 & fa_8d_uab_c_01 < 0) then ira1 = fa_8d_trunc_01;
else if (fa_8d_sr000001_01 >= 0 & fa_8d_sr000002_01 >= 0 & fa_8d_sr000002_01 = fa_8d_sr000001_01) then
ira1 = (ira1 + fa_8d_sr000001_01);
   else if (fa_8d_sr000001_01 >= 0 & fa_8d_sr000002_01 >= 0 & fa_8d_sr000002_01 > fa_8d_sr000001_01) then
   ira1 = (ira1 + (((fa_8d_sr000002_01 - fa_8d_sr000001_01)/2) + fa_8d_sr000001_01));
    else if (fa_8d_sr000001_01 >= 0 & fa_8d_sr000002_01 >= 0 & fa_8d_sr000002_01 < fa_8d_sr000001_01) then
    ira1 = (ira1 + (((fa_8d_sr000001_01 - fa_8d_sr000002_01)/2) + fa_8d_sr000002_01));
     else if (fa_8d_trunc_01 in(-1, -2, -4) & fa_8d_uab_c_01 = 0) then ira1 = (ira1 + quartile3);
      else if (fa_8d_trunc_01 in(-1, -2, -4) & fa_8d_uab_c_01 = 1) then ira1 = (ira1 + 77000);
       else if (fa_8d_uab_a_01 in(-1, -2) | fa_8d_uab_c_01 in(-1, -2)) then ira1 = -3;

/********************************************/
/* IRA Component - ira2                     */
/********************************************/

if (fa_8 = 1 & fa_8d_trunc_02 >= 0) then ira2 = (ira2 + fa_8d_trunc_02);
else if (fa_8 = 1 & fa_8d_trunc_02 in(-1, -2) & fa_8d_sr000001_02 < 0 & fa_8d_sr000002_02 < 0
& fa_8d_uab_a_02 < 0 & fa_8d_uab_b_02 < 0 & fa_8d_uab_c_02 < 0) then ira2 = fa_8d_trunc_02;
else if (fa_8d_sr000001_02 >= 0 & fa_8d_sr000002_02 >= 0 & fa_8d_sr000002_02 = fa_8d_sr000001_02) then
ira2 = (ira2 + fa_8d_sr000001_02);
   else if (fa_8d_sr000001_02 >= 0 & fa_8d_sr000002_02 >= 0 & fa_8d_sr000002_02 > fa_8d_sr000001_02) then
   ira2 = (ira2 + (((fa_8d_sr000002_02 - fa_8d_sr000001_02)/2) + fa_8d_sr000001_02));
    else if (fa_8d_sr000001_02 >= 0 & fa_8d_sr000002_02 >= 0 & fa_8d_sr000002_02 < fa_8d_sr000001_02) then
    ira2 = (ira2 + (((fa_8d_sr000001_02 - fa_8d_sr000002_02)/2) + fa_8d_sr000002_02));
     else if (fa_8d_trunc_02 in(-1, -2, -4) & fa_8d_uab_b_02 = 0) then ira2 = (ira2 + quartile1);
      else if (fa_8d_trunc_02 in(-1, -2, -4) & fa_8d_uab_b_02 = 1) then ira2 = (ira2 + quartile2);
       else if (fa_8d_trunc_02 in(-1, -2, -4) & fa_8d_uab_c_02 = 0) then ira2 = (ira2 + quartile3);
        else if (fa_8d_trunc_02 in(-1, -2, -4) & fa_8d_uab_c_02 = 1) then ira2 = (ira2 + 50000);
         else if (fa_8d_uab_a_02 in(-1, -2) | fa_8d_uab_b_02 in(-1, -2) | fa_8d_uab_c_02 in(-1, -2)) then ira2 = -3;

/********************************************/
/* IRA Component - ira3                     */
/********************************************/

if (fa_8 = 1 & fa_8d_trunc_03 >= 0) then ira3 = (ira3 + fa_8d_trunc_03);
else if (fa_8 = 1 & fa_8d_trunc_03 in(-1, -2) & fa_8d_sr000001_03 < 0 & fa_8d_sr000002_03 < 0
& fa_8d_uab_a_03 < 0 & fa_8d_uab_b_03 < 0 ) then ira3 = fa_8d_trunc_03;
   else if (fa_8d_sr000001_03 >= 0 & fa_8d_sr000002_03 >= 0 & fa_8d_sr000002_03 = fa_8d_sr000001_03) then
   ira3 = (ira3 + fa_8d_sr000001_03);
    else if (fa_8d_sr000001_03 >= 0 & fa_8d_sr000002_03 >= 0 & fa_8d_sr000002_03 > fa_8d_sr000001_03) then
    ira3 = (ira3 + (((fa_8d_sr000002_03 - fa_8d_sr000001_03)/2) + fa_8d_sr000001_03));
     else if (fa_8d_sr000001_03 >= 0 & fa_8d_sr000002_03 >= 0 & fa_8d_sr000002_03 < fa_8d_sr000001_03) then
     ira3 = (ira3 + (((fa_8d_sr000001_03 - fa_8d_sr000002_03)/2) + fa_8d_sr000002_03));
      else if (fa_8d_trunc_03 in(-1, -2, -4) & fa_8d_uab_b_03 = 0) then ira3 = (ira3 + quartile1);
       else if (fa_8d_trunc_03 in(-1, -2, -4) & fa_8d_uab_b_03 = 1) then ira3 = (ira3 + quartile2);
        else if (fa_8d_uab_a_03 in(-1, -2) | fa_8d_uab_b_03 in(-1, -2)) then ira3 = -3;

/********************************************/
/* IRA Component - ira4                     */
/********************************************/

if (fa_8 = 1 & fa_8d_trunc_04 >= 0) then ira4 = (ira4 + fa_8d_trunc_04);
else if (fa_8 = 1 & fa_8d_trunc_04 in(-1, -2) & fa_8d_sr000001_04 < 0 & fa_8d_sr000002_04 < 0
& fa_8d_uab_a_04 < 0 & fa_8d_uab_b_04 < 0 & fa_8d_uab_c_04 < 0) then ira4 = fa_8d_trunc_04;
   else if (fa_8d_sr000001_04 >= 0 & fa_8d_sr000002_04 >= 0 & fa_8d_sr000002_04 = fa_8d_sr000001_04) then
   ira4 = (ira4 + fa_8d_sr000001_04);
    else if (fa_8d_sr000001_04 >= 0 & fa_8d_sr000002_04 >= 0 & fa_8d_sr000002_04 > fa_8d_sr000001_04) then
    ira4 = (ira4 + (((fa_8d_sr000002_04 - fa_8d_sr000001_04)/2) + fa_8d_sr000001_04));
     else if (fa_8d_sr000001_04 >= 0 & fa_8d_sr000002_04 >= 0 & fa_8d_sr000002_04 < fa_8d_sr000001_04) then
     ira4 = (ira4 + (((fa_8d_sr000001_04 - fa_8d_sr000002_04)/2) + fa_8d_sr000002_04));
      else if (fa_8d_trunc_04 in(-1, -2, -4) & fa_8d_uab_b_04 = 0) then ira4 = (ira4 + quartile1);
       else if (fa_8d_trunc_04 in(-1, -2, -4) & fa_8d_uab_b_04 = 1) then ira4 = (ira4 + quartile2);
        else if (fa_8d_trunc_04 in(-1, -2, -4) & fa_8d_uab_c_04 = 0) then ira4 = (ira4 + quartile3);
         else if (fa_8d_trunc_04 in(-1, -2, -4) & fa_8d_uab_c_04 = 1) then ira4 = (ira4 + 42500);
          else if (fa_8d_uab_a_04 in(-1, -2) | fa_8d_uab_b_04 in(-1, -2) | fa_8d_uab_c_04 in(-1, -2)) then ira4 = -3;

/********************************************/
/* IRA Component - ira5                     */
/********************************************/

if (fa_8 = 1 & fa_8d_trunc_05 >= 0) then ira5 = (ira5 + fa_8d_trunc_05);
else if (fa_8 = 1 & fa_8d_trunc_05 in(-1, -2) & fa_8d_sr000001_05 < 0 & fa_8d_sr000002_05 < 0
& fa_8d_uab_a_05 < 0 & fa_8d_uab_b_05 < 0 & fa_8d_uab_c_05 < 0) then ira5 = fa_8d_trunc_05;
   else if (fa_8d_sr000001_05 >= 0 & fa_8d_sr000002_05 >= 0 & fa_8d_sr000002_05 = fa_8d_sr000001_05) then
   ira5 = (ira5 + fa_8d_sr000001_05);
    else if (fa_8d_sr000001_05 >= 0 & fa_8d_sr000002_05 >= 0 & fa_8d_sr000002_05 > fa_8d_sr000001_05) then
    ira5 = (ira5 + (((fa_8d_sr000002_05 - fa_8d_sr000001_05)/2) + fa_8d_sr000001_05));
     else if (fa_8d_sr000001_05 >= 0 & fa_8d_sr000002_05 >= 0 & fa_8d_sr000002_05 < fa_8d_sr000001_05) then
     ira5 = (ira5 + (((fa_8d_sr000001_05 - fa_8d_sr000002_05)/2) + fa_8d_sr000002_05));
      else if (fa_8d_trunc_05 in(-1, -2, -4) & fa_8d_uab_b_05 = 0) then ira5 = (ira5 + quartile1);
       else if (fa_8d_trunc_05 in(-1, -2, -4) & fa_8d_uab_b_05 = 1) then ira5 = (ira5 + quartile2);
        else if (fa_8d_trunc_05 in(-1, -2, -4) & fa_8d_uab_c_05 = 0) then ira5 = (ira5 + quartile3);
         else if (fa_8d_trunc_05 in(-1, -2, -4) & fa_8d_uab_c_05 = 1) then ira5 = (ira5 + 52000);
          else if (fa_8d_uab_a_05 in(-1, -2) | fa_8d_uab_b_05 in(-1, -2) | fa_8d_uab_c_05 in(-1, -2)) then ira5 = -3;

/********************************************/
/* IRA Component - ira6                     */
/********************************************/

if (fa_8 = 1 & fa_8d_trunc_06 >= 0) then ira6 = (ira6 + fa_8d_trunc_06);
else if (fa_8 = 1 & fa_8d_trunc_06 in(-1, -2) & fa_8d_sr000001_06 < 0 & fa_8d_sr000002_06 < 0
& fa_8d_uab_a_06 < 0 & fa_8d_uab_b_06 < 0) then ira6 = fa_8d_trunc_06;
   else if (fa_8d_sr000001_06 >= 0 & fa_8d_sr000002_06 >= 0 & fa_8d_sr000002_06 = fa_8d_sr000001_06) then
   ira6 = (ira6 + fa_8d_sr000001_06);
    else if (fa_8d_sr000001_06 >= 0 & fa_8d_sr000002_06 >= 0 & fa_8d_sr000002_06 > fa_8d_sr000001_06) then
    ira6 = (ira6 + (((fa_8d_sr000002_06 - fa_8d_sr000001_06)/2) + fa_8d_sr000001_06));
     else if (fa_8d_sr000001_06 >= 0 & fa_8d_sr000002_06 >= 0 & fa_8d_sr000002_06 < fa_8d_sr000001_06) then
     ira6 = (ira6 + (((fa_8d_sr000001_06 - fa_8d_sr000002_06)/2) + fa_8d_sr000002_06));
      else if (fa_8d_trunc_06 in(-1, -2, -4) & fa_8d_uab_b_06 = 0) then ira6 = (ira6 + quartile1);
       else if (fa_8d_trunc_06 in(-1, -2, -4) & fa_8d_uab_b_06 = 1) then ira6 = (ira6 + quartile2);
        else if (fa_8d_uab_a_06 in(-1, -2) | fa_8d_uab_b_06 in(-1, -2)) then ira6 = -3;

/********************************************/
/* IRA Component - ira7                     */
/********************************************/

if (fa_8 = 1 & fa_8d_trunc_07 >= 0) then ira7 = (ira7 + fa_8d_trunc_07);
else if (fa_8 = 1 & fa_8d_trunc_07 in(-1, -2) & fa_8d_sr000001_07 < 0 & fa_8d_sr000002_07 < 0
& fa_8d_uab_a_07 < 0 & fa_8d_uab_c_07 < 0) then ira7 = fa_8d_trunc_07;
   else if (fa_8d_sr000001_07 >= 0 & fa_8d_sr000002_07 >= 0 & fa_8d_sr000002_07 = fa_8d_sr000001_07) then
   ira7 = (ira7 + fa_8d_sr000001_07);
    else if (fa_8d_sr000001_07 >= 0 & fa_8d_sr000002_07 >= 0 & fa_8d_sr000002_07 > fa_8d_sr000001_07) then
    ira7 = (ira7 + (((fa_8d_sr000002_07 - fa_8d_sr000001_07)/2) + fa_8d_sr000001_07));
     else if (fa_8d_sr000001_07 >= 0 & fa_8d_sr000002_07 >= 0 & fa_8d_sr000002_07 < fa_8d_sr000001_07) then
     ira7 = (ira7 + (((fa_8d_sr000001_07 - fa_8d_sr000002_07)/2) + fa_8d_sr000002_07));
      else if (fa_8d_trunc_07 in(-1, -2, -4) & fa_8d_uab_c_07 = 0) then ira7 = (ira7 + quartile3);
       else if (fa_8d_trunc_07 in(-1, -2, -4) & fa_8d_uab_c_07 = 1) then ira7 = (ira7 + 80000);
        else if (fa_8d_uab_a_07 in(-1, -2) | fa_8d_uab_c_07 in(-1, -2)) then ira7 = -3;

/*******************************/
/* Add components IRA          */
/*******************************/

if (ira1 >= 0) then irac = (irac + ira1);
if (ira2 >= 0) then irac = (irac + ira2);
if (ira3 >= 0) then irac = (irac + ira3);
if (ira4 >= 0) then irac = (irac + ira4);
if (ira5 >= 0) then irac = (irac + ira5);
if (ira6 >= 0) then irac = (irac + ira6);
if (ira7 >= 0) then irac = (irac + ira7);
if (ira1 in(-1, -2, -3)) then irac = -3;
else if (ira2 in(-1, -2, -3)) then irac = -3;
else if (ira3 in(-1, -2, -3)) then irac = -3;
else if (ira4 in(-1, -2, -3)) then irac = -3;
else if (ira5 in(-1, -2, -3)) then irac = -3;
else if (ira6 in(-1, -2, -3)) then irac = -3;
else if (ira7 in(-1, -2, -3)) then irac = -3;

/****************************/
/* Compute A401K            */
/****************************/

/********************************************/
/* A401K component - r_401k            */
/********************************************/

if (fa_6b = 1 & fa_6e_trunc >= 0) then r_401k = (r_401k + fa_6e_trunc);
else if (fa_6b = 1 & fa_6e_ref_1 = 1 & fa_6e_sr000001 < 0 & fa_6e_sr000002 < 0
& fa_6e_uab_a < 0 & fa_6e_uab_b < 0 & fa_6e_uab_c < 0) then r_401k = -1;
else if (fa_6b = 1 & fa_6e_trunc in(-1, -2) & fa_6e_sr000001 < 0 & fa_6e_sr000002 < 0
& fa_6e_uab_a < 0 & fa_6e_uab_b < 0 & fa_6e_uab_c < 0) then r_401k = fa_6e_trunc;
   else if (fa_6e_sr000001 >= 0 & fa_6e_sr000002 >= 0 & fa_6e_sr000002 = fa_6e_sr000001) then
    r_401k = (r_401k + fa_6e_sr000001);
     else if (fa_6e_sr000001 >= 0 & fa_6e_sr000002 >= 0 & fa_6e_sr000002 > fa_6e_sr000001) then
     r_401k = (r_401k + (((fa_6e_sr000002 - fa_6e_sr000001)/2) + fa_6e_sr000001));
      else if (fa_6e_sr000001 >= 0 & fa_6e_sr000002 >= 0 & fa_6e_sr000002 < fa_6e_sr000001) then
      r_401k = (r_401k + (((fa_6e_sr000001 - fa_6e_sr000002)/2) + fa_6e_sr000002));
       else if (fa_6e_trunc in(-1, -2, -4) & fa_6e_uab_b = 0) then r_401k = (r_401k + quartile1);
        else if (fa_6e_trunc in(-1, -2, -4) & fa_6e_uab_b = 1) then r_401k = (r_401k + quartile2);
         else if (fa_6e_trunc in(-1, -2, -4) & fa_6e_uab_c = 0) then r_401k = (r_401k + quartile3);
          else if (fa_6e_trunc in(-1, -2, -4) & fa_6e_uab_c = 1) then r_401k = (r_401k + 70000);
           else if (fa_6e_uab_a in(-1, -2) | fa_6e_uab_b in(-1, -2) | fa_6e_uab_c in(-1, -2)) then r_401k = -3;

/********************************************/
/* A401K component - sp_401k           */
/********************************************/

if (fa_7 = 1 & fa_7c_trunc >= 0) then sp_401k = (sp_401k + fa_7c_trunc);
else if (fa_7 = 1 & fa_7c_ref_1 = 1 & fa_7c_sr000001 < 0 & fa_7c_sr000002 < 0
& fa_7c_uab_a < 0 & fa_7c_uab_b < 0 & fa_7c_uab_c < 0) then sp_401k = -1;
else if (fa_7 = 1 & fa_7c_trunc in(-1, -2) & fa_7c_sr000001 < 0 & fa_7c_sr000002 < 0
& fa_7c_uab_a < 0 & fa_7c_uab_b < 0 & fa_7c_uab_c < 0) then sp_401k = fa_7c_trunc;
   else if (fa_7c_sr000001 >= 0 & fa_7c_sr000002 >= 0 & fa_7c_sr000002 = fa_7c_sr000001) then
   sp_401k = (sp_401k + fa_7c_sr000001);
    else if (fa_7c_sr000001 >= 0 & fa_7c_sr000002 >= 0 & fa_7c_sr000002 > fa_7c_sr000001) then
    sp_401k = (sp_401k + (((fa_7c_sr000002 - fa_7c_sr000001)/2) + fa_7c_sr000001));
     else if (fa_7c_sr000001 >= 0 & fa_7c_sr000002 >= 0 & fa_7c_sr000002 < fa_7c_sr000001) then
     sp_401k = (sp_401k + (((fa_7c_sr000001 - fa_7c_sr000002)/2) + fa_7c_sr000002));
      else if (fa_7c_trunc in(-1, -2, -4) & fa_7c_uab_b = 0) then sp_401k = (sp_401k + quartile1);
       else if (fa_7c_trunc in(-1, -2, -4) & fa_7c_uab_b = 1) then sp_401k = (sp_401k + quartile2);
        else if (fa_7c_trunc in(-1, -2, -4) & fa_7c_uab_c = 0) then sp_401k = (sp_401k + quartile3);
         else if (fa_7c_trunc in(-1, -2, -4) & fa_7c_uab_c = 1) then sp_401k = (sp_401k + 75000);
          else if (fa_7c_uab_a in(-1, -2) | fa_7c_uab_b in(-1, -2) | fa_7c_uab_c in(-1, -2)) then sp_401k = -3;

/*******************************/
/* Add components A401K        */
/*******************************/

if (r_401k >= 0) then a401kc = (a401kc + r_401k);
if (sp_401k >= 0) then a401kc = (a401kc + sp_401k);
if (r_401k in(-1, -2, -3)) then a401kc = -3;
else if (sp_401k in(-1, -2, -3)) then a401kc = -3;

/****************************/
/* Compute CDEBT            */
/****************************/

/**************************************************/
/* CDEBT Component - amtowe_assetpoorcars1        */
/**************************************************/

if (sc_12b_01 >= 0) then amtowe_assetpoorcars1 = (amtowe_assetpoorcars1 + sc_12b_01);
else if (sc_12b_01 = 1 & sc_12b_ref_1a_01 = 1 & sc_12b_sr000001_01 < 0 & sc_12b_sr000002_01 < 0
& sc_12b_uab_a_01 < 0) then amtowe_assetpoorcars1 = -1;
else if (sc_12b_01 in(-1, -2) & sc_12b_sr000001_01 < 0 & sc_12b_sr000002_01 < 0
& sc_12b_uab_a_01 < 0) then amtowe_assetpoorcars1 = sc_12b_01;
else if (sc_12b_sr000001_01 >= 0 & sc_12b_sr000002_01 >= 0 & sc_12b_sr000002_01 = sc_12b_sr000001_01) then
amtowe_assetpoorcars1 = (amtowe_assetpoorcars1 + sc_12b_sr000001_01);
   else if (sc_12b_sr000001_01 >= 0 & sc_12b_sr000002_01 >= 0 & sc_12b_sr000002_01 > sc_12b_sr000001_01) then
   amtowe_assetpoorcars1 = (amtowe_assetpoorcars1 + (((sc_12b_sr000002_01 - sc_12b_sr000001_01)/2) + sc_12b_sr000001_01));
    else if (sc_12b_sr000001_01 >= 0 & sc_12b_sr000002_01 >= 0 & sc_12b_sr000002_01 < sc_12b_sr000001_01) then
    amtowe_assetpoorcars1 = (amtowe_assetpoorcars1 + (((sc_12b_sr000001_01 - sc_12b_sr000002_01)/2) + sc_12b_sr000002_01));
     else if (sc_12b_uab_a_01 in(-1, -2)) then amtowe_assetpoorcars1 = -3;

/**************************************************/
/* CDEBT Component - amtowe_assetpoorcars2        */
/**************************************************/

if (sc_12b_02 >= 0) then amtowe_assetpoorcars2 = (amtowe_assetpoorcars2 + sc_12b_02);
else if (sc_12b_02 = 1 & sc_12b_ref_1a_02 = 1) then amtowe_assetpoorcars2 = -1;
else if (sc_12b_02 in(-1, -2)) then amtowe_assetpoorcars2 = sc_12b_02;

/**************************************************/
/* CDEBT Component - amtowe_assetpoorcars3        */
/**************************************************/

if (sc_12b_03 >= 0) then amtowe_assetpoorcars3 = (amtowe_assetpoorcars3 + sc_12b_03);
else if (sc_12b_03 = 1 & sc_12b_ref_1a_03 = 1) then amtowe_assetpoorcars3 = -1;
else if (sc_12b_03 in(-1, -2)) then amtowe_assetpoorcars3 = sc_12b_03;

/**************************************************/
/* CDEBT Component - amountowe_vehicles1          */
/**************************************************/

if (nfa_4f_trunc_01 >= 0) then amountowe_vehicles1 = (amountowe_vehicles1 + nfa_4f_trunc_01);
else if (nfa_4f_trunc_01 in(-1, -2) & nfa_4f_sr000001_01 < 0 & nfa_4f_sr000002_01 < 0
& nfa_4f_uab_a_01 < 0 & nfa_4f_uab_b_01 < 0 & nfa_4f_uab_c_01 < 0) then amountowe_vehicles1 = nfa_4f_trunc_01;
   else if (nfa_4f_sr000001_01 >= 0 & nfa_4f_sr000002_01 >= 0 & nfa_4f_sr000002_01 = nfa_4f_sr000001_01) then
   amountowe_vehicles1 = (amountowe_vehicles1 + nfa_4f_sr000001_01);
    else if (nfa_4f_sr000001_01 >= 0 & nfa_4f_sr000002_01 >= 0 & nfa_4f_sr000002_01 > nfa_4f_sr000001_01) then
    amountowe_vehicles1 = (amountowe_vehicles1 + (((nfa_4f_sr000002_01 - nfa_4f_sr000001_01)/2) + nfa_4f_sr000001_01));
     else if (nfa_4f_sr000001_01 >= 0 & nfa_4f_sr000002_01 >= 0 & nfa_4f_sr000002_01 < nfa_4f_sr000001_01) then
     amountowe_vehicles1 = (amountowe_vehicles1 + (((nfa_4f_sr000001_01 - nfa_4f_sr000002_01)/2) + nfa_4f_sr000002_01));
      else if (nfa_4f_trunc_01 in(-1, -2, -4) & nfa_4f_uab_b_01 = 0) then amountowe_vehicles1 = (amountowe_vehicles1 + quartile1);
       else if (nfa_4f_trunc_01 in(-1, -2, -4) & nfa_4f_uab_b_01 = 1) then amountowe_vehicles1 = (amountowe_vehicles1 + quartile2);
        else if (nfa_4f_trunc_01 in(-1, -2, -4) & nfa_4f_uab_c_01 = 0) then amountowe_vehicles1 = (amountowe_vehicles1 + quartile3);
         else if (nfa_4f_trunc_01 in(-1, -2, -4) & nfa_4f_uab_c_01 = 1) then amountowe_vehicles1 = (amountowe_vehicles1 + 36000);
          else if (nfa_4f_uab_a_01 in(-1, -2) | nfa_4f_uab_b_01 in(-1, -2) | nfa_4f_uab_c_01 in(-1, -2)) then amtowe_vehicles1 = -3;

/**************************************************/
/* CDEBT Component - amountowe_vehicles2          */
/**************************************************/

if (nfa_4f_trunc_02 >= 0) then amountowe_vehicles2 = (amountowe_vehicles2 + nfa_4f_trunc_02);
else if (nfa_4f_trunc_02 in(-1, -2) & nfa_4f_sr000001_02 < 0 & nfa_4f_sr000002_02 < 0
& nfa_4f_uab_a_02 < 0 & nfa_4f_uab_b_02 < 0 & nfa_4f_uab_c_02 < 0) then amountowe_vehicles2 = nfa_4f_trunc_02;
   else if (nfa_4f_sr000001_02 >= 0 & nfa_4f_sr000002_02 >= 0 & nfa_4f_sr000002_02 = nfa_4f_sr000001_02) then
   amountowe_vehicles2 = (amountowe_vehicles2 + nfa_4f_sr000001_02);
    else if (nfa_4f_sr000001_02 >= 0 & nfa_4f_sr000002_02 >= 0 & nfa_4f_sr000002_02 > nfa_4f_sr000001_02) then
    amountowe_vehicles2 = (amountowe_vehicles2 + (((nfa_4f_sr000002_02 - nfa_4f_sr000001_02)/2) + nfa_4f_sr000001_02));
     else if (nfa_4f_sr000001_02 >= 0 & nfa_4f_sr000002_02 >= 0 & nfa_4f_sr000002_02 < nfa_4f_sr000001_02) then
     amountowe_vehicles2 = (amountowe_vehicles2 + (((nfa_4f_sr000001_02 - nfa_4f_sr000002_02)/2) + nfa_4f_sr000002_02));
      else if (nfa_4f_trunc_02 in(-1, -2, -4) & nfa_4f_uab_b_02 = 0) then amountowe_vehicles2 = (amountowe_vehicles2 + quartile1);
       else if (nfa_4f_trunc_02 in(-1, -2, -4) & nfa_4f_uab_b_02 = 1) then amountowe_vehicles2 = (amountowe_vehicles2 + quartile2);
        else if (nfa_4f_trunc_02 in(-1, -2, -4) & nfa_4f_uab_c_02 = 0) then amountowe_vehicles2 = (amountowe_vehicles2 + quartile3);
         else if (nfa_4f_trunc_02 in(-1, -2, -4) & nfa_4f_uab_c_02 = 1) then amountowe_vehicles2 = (amountowe_vehicles2 + 35000);
          else if (nfa_4f_uab_a_02 in(-1, -2) | nfa_4f_uab_b_02 in(-1, -2) | nfa_4f_uab_c_02 in(-1, -2)) then amtowe_vehicles2 = -3;

/**************************************************/
/* CDEBT Component - amountowe_vehicles3          */
/**************************************************/

if (nfa_4f_trunc_03 >= 0) then amountowe_vehicles3 = (amountowe_vehicles3 + nfa_4f_trunc_03);
else if (nfa_4f_trunc_03 in(-1, -2) & nfa_4f_sr000001_03 < 0 & nfa_4f_sr000002_03 < 0
& nfa_4f_uab_a_03 < 0 & nfa_4f_uab_b_03 < 0 & nfa_4f_uab_c_03 < 0) then amountowe_vehicles3 = nfa_4f_trunc_03;
   else if (nfa_4f_sr000001_03 >= 0 & nfa_4f_sr000002_03 >= 0 & nfa_4f_sr000002_03 = nfa_4f_sr000001_03) then
   amountowe_vehicles3 = (amountowe_vehicles3 + nfa_4f_sr000001_03);
    else if (nfa_4f_sr000001_03 >= 0 & nfa_4f_sr000002_03 >= 0 & nfa_4f_sr000002_03 > nfa_4f_sr000001_03) then
    amountowe_vehicles3 = (amountowe_vehicles3 + (((nfa_4f_sr000002_03 - nfa_4f_sr000001_03)/2) + nfa_4f_sr000001_03));
     else if (nfa_4f_sr000001_03 >= 0 & nfa_4f_sr000002_03 >= 0 & nfa_4f_sr000002_03 < nfa_4f_sr000001_03) then
     amountowe_vehicles3 = (amountowe_vehicles3 + (((nfa_4f_sr000001_03 - nfa_4f_sr000002_03)/2) + nfa_4f_sr000002_03));
      else if (nfa_4f_trunc_03 in(-1, -2, -4) & nfa_4f_uab_b_03 = 0) then amountowe_vehicles3 = (amountowe_vehicles3 + quartile1);
       else if (nfa_4f_trunc_03 in(-1, -2, -4) & nfa_4f_uab_b_03 = 1) then amountowe_vehicles3 = (amountowe_vehicles3 + quartile2);
        else if (nfa_4f_trunc_03 in(-1, -2, -4) & nfa_4f_uab_c_03 = 0) then amountowe_vehicles3 = (amountowe_vehicles3 + quartile3);
         else if (nfa_4f_trunc_03 in(-1, -2, -4) & nfa_4f_uab_c_03 = 1) then amountowe_vehicles3 = (amountowe_vehicles3 + 40000);
          else if (nfa_4f_uab_a_03 in(-1, -2) | nfa_4f_uab_b_03 in(-1, -2) | nfa_4f_uab_c_03 in(-1, -2)) then amtowe_vehicles3 = -3;

/**************************************************/
/* CDEBT Component - amountowe_vehicles4          */
/**************************************************/

if (nfa_4f_trunc_04 >= 0) then amountowe_vehicles4 = (amountowe_vehicles4 + nfa_4f_trunc_04);
else if (nfa_4f_trunc_04 in(-1, -2) & nfa_4f_sr000001_04 < 0 & nfa_4f_sr000002_04 < 0
& nfa_4f_uab_a_04 < 0) then amountowe_vehicles4 = nfa_4f_trunc_04;
else if (nfa_4f_sr000001_04 >= 0 & nfa_4f_sr000002_04 >= 0 & nfa_4f_sr000002_04 = nfa_4f_sr000001_04) then
amountowe_vehicles4 = (amountowe_vehicles4 + nfa_4f_sr000001_04);
   else if (nfa_4f_sr000001_04 >= 0 & nfa_4f_sr000002_04 >= 0 & nfa_4f_sr000002_04 > nfa_4f_sr000001_04) then
   amountowe_vehicles4 = (amountowe_vehicles4 + (((nfa_4f_sr000002_04 - nfa_4f_sr000001_04)/2) + nfa_4f_sr000001_04));
    else if (nfa_4f_sr000001_04 >= 0 & nfa_4f_sr000002_04 >= 0 & nfa_4f_sr000002_04 < nfa_4f_sr000001_04) then
    amountowe_vehicles4 = (amountowe_vehicles4 + (((nfa_4f_sr000001_04 - nfa_4f_sr000002_04)/2) + nfa_4f_sr000002_04));
     else if (nfa_4f_uab_a_04 in(-1, -2)) then amtowe_vehicles4 = -3;

/**************************************************/
/* CDEBT Component - amountowe_vehicles5          */
/**************************************************/

if (nfa_4f_05 >= 0) then amountowe_vehicles5 = (amountowe_vehicles5 + nfa_4f_05);
else if (nfa_4f_05 in(-1, -2) & nfa_4f_uab_a_05 < 0) then amountowe_vehicles5 = nfa_4f_05;
else if (nfa_4f_uab_a_05 in(-1, -2)) then amtowe_vehicles5 = -3;

/**************************************************/
/* CDEBT Component - amountowe_vehicles6          */
/**************************************************/

if (nfa_4f_trunc_06 >= 0) then amountowe_vehicles6 = (amountowe_vehicles6 + nfa_4f_trunc_06);
else if (nfa_4f_trunc_06 in(-1, -2)) then amountowe_vehicles6 = nfa_4f_trunc_06;

/**************************************************/
/* CDEBT Component - amtowe_othervehicles         */
/**************************************************/

if (nfa_5 = 1 & nfa_5b_trunc >= 0) then amtowe_othervehicles = (amtowe_othervehicles + nfa_5b_trunc);
else if (nfa_5 = 1 & nfa_5b_trunc in(-1, -2) & nfa_5b_sr000001 < 0 & nfa_5b_sr000002 < 0
& nfa_5b_uab_a < 0 & nfa_5b_uab_b < 0 & nfa_5b_uab_c < 0) then amtowe_othervehicles = nfa_5b_trunc;
else if (nfa_5b_sr000001 >= 0 & nfa_5b_sr000002 >= 0 & nfa_5b_sr000002 = nfa_5b_sr000001) then
amtowe_othervehicles = (amtowe_othervehicles + nfa_5b_sr000001);
   else if (nfa_5b_sr000001 >= 0 & nfa_5b_sr000002 >= 0 & nfa_5b_sr000002 > nfa_5b_sr000001) then
   amtowe_othervehicles = (amtowe_othervehicles + (((nfa_5b_sr000002 - nfa_5b_sr000001)/2) + nfa_5b_sr000001));
    else if (nfa_5b_sr000001 >= 0 & nfa_5b_sr000002 >= 0 & nfa_5b_sr000002 < nfa_5b_sr000001) then
    amtowe_othervehicles = (amtowe_othervehicles + (((nfa_5b_sr000001 - nfa_5b_sr000002)/2) + nfa_5b_sr000002));
     else if (nfa_5b_trunc in(-1, -2, -4) & nfa_5b_uab_b = 0) then amtowe_othervehicles = (amtowe_othervehicles + quartile1);
      else if (nfa_5b_trunc in(-1, -2, -4) & nfa_5b_uab_b = 1) then amtowe_othervehicles = (amtowe_othervehicles + quartile2);
       else if (nfa_5b_trunc in(-1, -2, -4) & nfa_5b_uab_c = 0) then amtowe_othervehicles = (amtowe_othervehicles + quartile3);
        else if (nfa_5b_trunc in(-1, -2, -4) & nfa_5b_uab_c = 1) then amtowe_othervehicles = (amtowe_othervehicles + 65000);
         else if (nfa_5b_uab_a in(-1, -2) | nfa_5b_uab_b in(-1, -2) | nfa_5b_uab_c in(-1, -2)) then amtowe_othervehicles = -3;

/*******************************/
/* Add components CDEBT        */
/*******************************/

if (amtowe_assetpoorcars1 >= 0) then cdebtc = (cdebtc + amtowe_assetpoorcars1);
if (amtowe_assetpoorcars2 >= 0) then cdebtc = (cdebtc + amtowe_assetpoorcars2);
if (amtowe_assetpoorcars3 >= 0) then cdebtc = (cdebtc + amtowe_assetpoorcars3);
if (amountowe_vehicles1 >= 0) then cdebtc = (cdebtc + amountowe_vehicles1);
if (amountowe_vehicles2 >= 0) then cdebtc = (cdebtc + amountowe_vehicles2);
if (amountowe_vehicles3 >= 0) then cdebtc = (cdebtc + amountowe_vehicles3);
if (amountowe_vehicles4 >= 0) then cdebtc = (cdebtc + amountowe_vehicles4);
if (amountowe_vehicles5 >= 0) then cdebtc = (cdebtc + amountowe_vehicles5);
if (amountowe_vehicles6 >= 0) then cdebtc = (cdebtc + amountowe_vehicles6);
if (amtowe_othervehicles >= 0) then cdebtc = (cdebtc + amtowe_othervehicles);

if (amtowe_assetpoorcars1 in(-1, -2, -3)) then cdebtc = -3;
else if (amtowe_assetpoorcars2 in(-1, -2, -3)) then cdebtc = -3;
else if (amtowe_assetpoorcars3 in(-1, -2, -3)) then cdebtc = -3;
else if (amountowe_vehicles1 in(-1, -2, -3)) then cdebtc = -3;
else if (amountowe_vehicles2 in(-1, -2, -3)) then cdebtc = -3;
else if (amountowe_vehicles3 in(-1, -2, -3)) then cdebtc = -3;
else if (amountowe_vehicles4 in(-1, -2, -3)) then cdebtc = -3;
else if (amountowe_vehicles5 in(-1, -2, -3)) then cdebtc = -3;
else if (amountowe_vehicles6 in(-1, -2, -3)) then cdebtc = -3;
else if (amtowe_othervehicles in(-1, -2, -3)) then cdebtc = -3;

/****************************/
/* Compute CAR              */
/****************************/
/**************************************************/
/* CAR Component - mktval_assetpoorcars1          */
/**************************************************/

if (sc_12a_01 >= 0) then mktval_assetpoorcars1 = (mktval_assetpoorcars1 + sc_12a_01);
else if (sc_12a_ref_1a_01 = 1 & sc_12a_sr000001_01 < 0 & sc_12a_sr000002_01 < 0
& sc_12a_uab_a_01 < 0 & sc_12a_uab_b_01 < 0) then mktval_assetpoorcars1 = -1;
else if (sc_12a_01 in(-1, -2) & sc_12a_sr000001_01 < 0 & sc_12a_sr000002_01 < 0
& sc_12a_uab_a_01 < 0 & sc_12a_uab_b_01 < 0) then mktval_assetpoorcars1 = sc_12a_01;
    else if (sc_12a_sr000001_01 >= 0 & sc_12a_sr000002_01 >= 0 & sc_12a_sr000002_01 = sc_12a_sr000001_01) then
    mktval_assetpoorcars1 = (mktval_assetpoorcars1 + sc_12a_sr000001_01);
     else if (sc_12a_sr000001_01 >= 0 & sc_12a_sr000002_01 >= 0 & sc_12a_sr000002_01 > sc_12a_sr000001_01) then
     mktval_assetpoorcars1 = (mktval_assetpoorcars1 + (((sc_12a_sr000002_01 - sc_12a_sr000001_01)/2) + sc_12a_sr000001_01));
      else if (sc_12a_sr000001_01 >= 0 & sc_12a_sr000002_01 >= 0 & sc_12a_sr000002_01 < sc_12a_sr000001_01) then
      mktval_assetpoorcars1 = (mktval_assetpoorcars1 + (((sc_12a_sr000001_01 - sc_12a_sr000002_01)/2) + sc_12a_sr000001_02));
       else if (sc_12a_01 in(-1, -2, -4) & sc_12a_uab_b_01 = 0) then mktval_assetpoorcars1 = (mktval_assetpoorcars1 + quartile1);
        else if (sc_12a_01 in(-1, -2, -4) & sc_12a_uab_b_01 = 1) then mktval_assetpoorcars1 = (mktval_assetpoorcars1 + quartile2);
         else if (sc_12a_uab_a_01 in(-1, -2) | sc_12a_uab_b_01 in(-1, -2)) then mktval_assetpoorcars1 = -3;

/**************************************************/
/* CAR Component - mktval_assetpoorcars2          */
/**************************************************/

if (sc_12a_02 >= 0) then mktval_assetpoorcars2 = (mktval_assetpoorcars2 + sc_12a_02);
else if (sc_12a_02 = 1 & sc_12a_ref_1a_02 = 1 & sc_12a_sr000001_02 < 0 & sc_12a_sr000002_02 < 0
& sc_12a_uab_a_02 < 0) then mktval_assetpoorcars2 = -1;
else if (sc_12a_02 in(-1, -2) & sc_12a_sr000001_02 < 0 & sc_12a_sr000002_02 < 0
& sc_12a_uab_a_02 < 0) then mktval_assetpoorcars2 = sc_12a_02;
   else if (sc_12a_sr000001_02 >= 0 & sc_12a_sr000002_02 >= 0 & sc_12a_sr000002_02 = sc_12a_sr000001_02) then
   mktval_assetpoorcars2 = (mktval_assetpoorcars2 + sc_12a_sr000001_02);
    else if (sc_12a_sr000001_02 >= 0 & sc_12a_sr000002_02 >= 0 & sc_12a_sr000002_02 > sc_12a_sr000001_02) then
    mktval_assetpoorcars2 = (mktval_assetpoorcars2 + (((sc_12a_sr000002_02 - sc_12a_sr000001_02)/2) + sc_12a_sr000001_02));
     else if (sc_12a_sr000001_02 >= 0 & sc_12a_sr000002_02 >= 0 & sc_12a_sr000002_02 < sc_12a_sr000001_02) then
     mktval_assetpoorcars2 = (mktval_assetpoorcars2 + (((sc_12a_sr000001_02 - sc_12a_sr000002_02)/2) + sc_12a_sr000002_02));
      else if (sc_12a_uab_a_02 in(-1, -2)) then mktval_assetpoorcars2 = -3;

/**************************************************/
/* CAR Component - mktval_assetpoorcars3          */
/**************************************************/

if (sc_12a_03 >= 0) then mktval_assetpoorcars3 = (mktval_assetpoorcars3 + sc_12a_03);
else if (sc_12a_03 = 1 & sc_12a_ref_1a_03 = 1) then mktval_assetpoorcars3 = -1;
else if (sc_12a_03 in(-1, -2)) then mktval_assetpoorcars3 = sc_12a_03;

/**************************************************/
/* CAR Component - marketvalue_vehicles1          */
/**************************************************/

if (nfa_4c_trunc_01 >= 0) then marketvalue_vehicles1 = (marketvalue_vehicles1 + nfa_4c_trunc_01);
else if (nfa_4c_trunc_01 in(-1, -2) & nfa_4c_sr000001_01 < 0 & nfa_4c_sr000002_01 < 0
& nfa_4c_uab_a_01 < 0 & nfa_4c_uab_b_01 < 0 & nfa_4c_uab_c_01 < 0) then marketvalue_vehicles1 = nfa_4c_trunc_01;
   else if (nfa_4c_sr000001_01 >= 0 & nfa_4c_sr000002_01 >= 0 & nfa_4c_sr000002_01 = nfa_4c_sr000001_01) then
   marketvalue_vehicles1 = (marketvalue_vehicles1 + nfa_4c_sr000001_01);
    else if (nfa_4c_sr000001_01 >= 0 & nfa_4c_sr000002_01 >= 0 & nfa_4c_sr000002_01 > nfa_4c_sr000001_01) then
    marketvalue_vehicles1 = (marketvalue_vehicles1 + (((nfa_4c_sr000002_01 - nfa_4c_sr000001_01)/2) + nfa_4c_sr000001_01));
     else if (nfa_4c_sr000001_01 >= 0 & nfa_4c_sr000002_01 >= 0 & nfa_4c_sr000002_01 < nfa_4c_sr000001_01) then
     marketvalue_vehicles1 = (marketvalue_vehicles1 + (((nfa_4c_sr000001_01 - nfa_4c_sr000002_01)/2) + nfa_4c_sr000002_01));
      else if (nfa_4c_trunc_01 in(-1, -2, -4) & nfa_4c_uab_b_01 = 0) then marketvalue_vehicles1 = (marketvalue_vehicles1 + quartile1);
       else if (nfa_4c_trunc_01 in(-1, -2, -4) & nfa_4c_uab_b_01 = 1) then marketvalue_vehicles1 = (marketvalue_vehicles1 + quartile2);
        else if (nfa_4c_trunc_01 in(-1, -2, -4) & nfa_4c_uab_c_01 = 0) then marketvalue_vehicles1 = (marketvalue_vehicles1 + quartile3);
         else if (nfa_4c_trunc_01 in(-1, -2, -4) & nfa_4c_uab_c_01 = 1) then marketvalue_vehicles1 = (marketvalue_vehicles1 + 40000);
          else if (nfa_4c_uab_a_01 in(-1, -2) | nfa_4c_uab_b_01 in(-1, -2) | nfa_4c_uab_c_01 in(-1, -2)) then marketvalue_vehicles1 = -3;

/**************************************************/
/* CAR Component - marketvalue_vehicles2          */
/**************************************************/

if (nfa_4c_trunc_02 >= 0) then marketvalue_vehicles2 = (marketvalue_vehicles2 + nfa_4c_trunc_02);
else if (nfa_4c_trunc_02 in(-1, -2) & nfa_4c_sr000001_02 < 0 & nfa_4c_sr000002_02 < 0
& nfa_4c_uab_a_02 < 0 & nfa_4c_uab_b_02 < 0 & nfa_4c_uab_c_02 < 0) then marketvalue_vehicles2 = nfa_4c_trunc_02;
   else if (nfa_4c_sr000001_02 >= 0 & nfa_4c_sr000002_02 >= 0 & nfa_4c_sr000002_02 = nfa_4c_sr000001_02) then
   marketvalue_vehicles2 = (marketvalue_vehicles2 + nfa_4c_sr000001_02);
    else if (nfa_4c_sr000001_02 >= 0 & nfa_4c_sr000002_02 >= 0 & nfa_4c_sr000002_02 > nfa_4c_sr000001_02) then
    marketvalue_vehicles2 = (marketvalue_vehicles2 + (((nfa_4c_sr000002_02 - nfa_4c_sr000001_02)/2) + nfa_4c_sr000001_02));
     else if (nfa_4c_sr000001_02 >= 0 & nfa_4c_sr000002_02 >= 0 & nfa_4c_sr000002_02 < nfa_4c_sr000001_02) then
     marketvalue_vehicles2 = (marketvalue_vehicles2 + (((nfa_4c_sr000001_02 - nfa_4c_sr000002_02)/2) + nfa_4c_sr000002_02));
      else if (nfa_4c_trunc_02 in(-1, -2, -4) & nfa_4c_uab_b_02 = 0) then marketvalue_vehicles2 = (marketvalue_vehicles2 + quartile1);
       else if (nfa_4c_trunc_02 in(-1, -2, -4) & nfa_4c_uab_b_02 = 1) then marketvalue_vehicles2 = (marketvalue_vehicles2 + quartile2);
        else if (nfa_4c_trunc_02 in(-1, -2, -4) & nfa_4c_uab_c_02 = 0) then marketvalue_vehicles2 = (marketvalue_vehicles2 + quartile3);
         else if (nfa_4c_trunc_02 in(-1, -2, -4) & nfa_4c_uab_c_02 = 1) then marketvalue_vehicles2 = (marketvalue_vehicles2 + 36000);
          else if (nfa_4c_uab_a_02 in(-1, -2) | nfa_4c_uab_b_02 in(-1, -2) | nfa_4c_uab_c_02 in(-1, -2)) then marketvalue_vehicles2 = -3;

/**************************************************/
/* CAR Component - marketvalue_vehicles3          */
/**************************************************/

if (nfa_4c_trunc_03 >= 0) then marketvalue_vehicles3 = (marketvalue_vehicles3 + nfa_4c_trunc_03);
else if (nfa_4c_trunc_03 in(-1, -2) & nfa_4c_sr000001_03 < 0 & nfa_4c_sr000002_03 < 0
& nfa_4c_uab_a_03 < 0 & nfa_4c_uab_b_03 < 0 & nfa_4c_uab_c_03 < 0) then marketvalue_vehicles3 = nfa_4c_trunc_03;
   else if (nfa_4c_sr000001_03 >= 0 & nfa_4c_sr000002_03 >= 0 & nfa_4c_sr000002_03 = nfa_4c_sr000001_03) then
   marketvalue_vehicles3 = (marketvalue_vehicles3 + nfa_4c_sr000001_03);
    else if (nfa_4c_sr000001_03 >= 0 & nfa_4c_sr000002_03 >= 0 & nfa_4c_sr000002_03 > nfa_4c_sr000001_03) then
    marketvalue_vehicles3 = (marketvalue_vehicles3 + (((nfa_4c_sr000002_03 - nfa_4c_sr000001_03)/2) + nfa_4c_sr000001_03));
     else if (nfa_4c_sr000001_03 >= 0 & nfa_4c_sr000002_03 >= 0 & nfa_4c_sr000002_03 < nfa_4c_sr000001_03) then
     marketvalue_vehicles3 = (marketvalue_vehicles3 + (((nfa_4c_sr000001_03 - nfa_4c_sr000002_03)/2) + nfa_4c_sr000002_03));
      else if (nfa_4c_trunc_03 in(-1, -2, -4) & nfa_4c_uab_b_03 = 0) then marketvalue_vehicles3 = (marketvalue_vehicles3 + quartile1);
       else if (nfa_4c_trunc_03 in(-1, -2, -4) & nfa_4c_uab_b_03 = 1) then marketvalue_vehicles3 = (marketvalue_vehicles3 + quartile2);
        else if (nfa_4c_trunc_03 in(-1, -2, -4) & nfa_4c_uab_c_03 = 0) then marketvalue_vehicles3 = (marketvalue_vehicles3 + quartile3);
         else if (nfa_4c_trunc_03 in(-1, -2, -4) & nfa_4c_uab_c_03 = 1) then marketvalue_vehicles3 = (marketvalue_vehicles3 + 40000);
          else if (nfa_4c_uab_a_03 in(-1, -2) | nfa_4c_uab_b_03 in(-1, -2) | nfa_4c_uab_c_03 in(-1, -2)) then marketvalue_vehicles3 = -3;

/**************************************************/
/* CAR Component - marketvalue_vehicles4          */
/**************************************************/

if (nfa_4c_trunc_04 >= 0) then marketvalue_vehicles4 = (marketvalue_vehicles4 + nfa_4c_trunc_04);
else if (nfa_4c_trunc_04 in(-1, -2) & nfa_4c_sr000001_04 < 0 & nfa_4c_sr000002_04 < 0
& nfa_4c_uab_a_04 < 0 & nfa_4c_uab_b_04 < 0) then marketvalue_vehicles4 = nfa_4c_trunc_04;
   else if (nfa_4c_sr000001_04 >= 0 & nfa_4c_sr000002_04 >= 0 & nfa_4c_sr000002_04 = nfa_4c_sr000001_04) then
   marketvalue_vehicles4 = (marketvalue_vehicles4 + nfa_4c_sr000001_04);
    else if (nfa_4c_sr000001_04 >= 0 & nfa_4c_sr000002_04 >= 0 & nfa_4c_sr000002_04 > nfa_4c_sr000001_04) then
    marketvalue_vehicles4 = (marketvalue_vehicles4 + (((nfa_4c_sr000002_04 - nfa_4c_sr000001_04)/2) + nfa_4c_sr000001_04));
     else if (nfa_4c_sr000001_04 >= 0 & nfa_4c_sr000002_04 >= 0 & nfa_4c_sr000002_04 < nfa_4c_sr000001_04) then
     marketvalue_vehicles4 = (marketvalue_vehicles4 + (((nfa_4c_sr000001_04 - nfa_4c_sr000002_04)/2) + nfa_4c_sr000002_04));
      else if (nfa_4c_trunc_04 in(-1, -2, -4) & nfa_4c_uab_b_04 = 0) then marketvalue_vehicles4 = (marketvalue_vehicles4 + quartile1);
       else if (nfa_4c_trunc_04 in(-1, -2, -4) & nfa_4c_uab_b_04 = 1) then marketvalue_vehicles4 = (marketvalue_vehicles4 + quartile2);
        else if (nfa_4c_uab_a_04 in(-1, -2) | nfa_4c_uab_b_04 in(-1, -2)) then marketvalue_vehicles4 = -3;

/**************************************************/
/* CAR Component - marketvalue_vehicles5          */
/**************************************************/

if (nfa_4c_trunc_05 >= 0) then marketvalue_vehicles5 = (marketvalue_vehicles5 + nfa_4c_trunc_05);
else if (nfa_4c_trunc_05 in(-1, -2) & nfa_4c_sr000001_05 < 0 & nfa_4c_sr000002_05 < 0
& nfa_4c_uab_a_05 < 0 & nfa_4c_uab_b_05 < 0) then marketvalue_vehicles5 = nfa_4c_trunc_05;
   else if (nfa_4c_sr000001_05 >= 0 & nfa_4c_sr000002_05 >= 0 & nfa_4c_sr000002_05 = nfa_4c_sr000001_05) then
   marketvalue_vehicles5 = (marketvalue_vehicles5 + nfa_4c_sr000001_05);
    else if (nfa_4c_sr000001_05 >= 0 & nfa_4c_sr000002_05 >= 0 & nfa_4c_sr000002_05 > nfa_4c_sr000001_05) then
    marketvalue_vehicles5 = (marketvalue_vehicles5 + (((nfa_4c_sr000002_05 - nfa_4c_sr000001_05)/2) + nfa_4c_sr000001_05));
     else if (nfa_4c_sr000001_05 >= 0 & nfa_4c_sr000002_05 >= 0 & nfa_4c_sr000002_05 < nfa_4c_sr000001_05) then
     marketvalue_vehicles5 = (marketvalue_vehicles5 + (((nfa_4c_sr000001_05 - nfa_4c_sr000002_05)/2) + nfa_4c_sr000002_05));
      else if (nfa_4c_trunc_05 in(-1, -2, -4) & nfa_4c_uab_b_05 = 0) then marketvalue_vehicles5 = (marketvalue_vehicles5 + quartile1);
       else if (nfa_4c_trunc_05 in(-1, -2, -4) & nfa_4c_uab_b_05 = 1) then marketvalue_vehicles5 = (marketvalue_vehicles5 + quartile2);
        else if (nfa_4c_uab_a_05 in(-1, -2) | nfa_4c_uab_b_05 in(-1, -2)) then marketvalue_vehicles5 = -3;

/**************************************************/
/* CAR Component - marketvalue_vehicles6          */
/**************************************************/

if (nfa_4c_06 >= 0) then marketvalue_vehicles6 = (marketvalue_vehicles6 + nfa_4c_06);
else if (nfa_4c_06 in(-1, -2) & nfa_4c_sr000001_06 < 0 & nfa_4c_sr000002_06 < 0
& nfa_4c_uab_a_06 < 0 & nfa_4c_uab_b_06 < 0) then marketvalue_vehicles6 = nfa_4c_06;
else if (nfa_4c_sr000001_06 >= 0 & nfa_4c_sr000002_06 >= 0 & nfa_4c_sr000002_06 = nfa_4c_sr000001_06) then
marketvalue_vehicles6 = (marketvalue_vehicles6 + nfa_4c_sr000001_06);
   else if (nfa_4c_sr000001_06 >= 0 & nfa_4c_sr000002_06 >= 0 & nfa_4c_sr000002_06 > nfa_4c_sr000001_06) then
   marketvalue_vehicles6 = (marketvalue_vehicles6 + (((nfa_4c_sr000002_06 - nfa_4c_sr000001_06)/2) + nfa_4c_sr000001_06));
    else if (nfa_4c_sr000001_06 >= 0 & nfa_4c_sr000002_06 >= 0 & nfa_4c_sr000002_06 < nfa_4c_sr000001_06) then
    marketvalue_vehicles6 = (marketvalue_vehicles6 + (((nfa_4c_sr000001_06 - nfa_4c_sr000002_06)/2) + nfa_4c_sr000002_06));
     else if (nfa_4c_06 in(-1, -2, -4) & nfa_4c_uab_b_06 = 0) then marketvalue_vehicles6 = (marketvalue_vehicles6 + quartile1);
      else if (nfa_4c_06 in(-1, -2, -4) & nfa_4c_uab_b_06 = 1) then marketvalue_vehicles6 = (marketvalue_vehicles6 + quartile2);
       else if (nfa_4c_uab_a_06 in(-1, -2) | nfa_4c_uab_b_06 in(-1, -2)) then marketvalue_vehicles6 = -3;

/**************************************************/
/* CAR Component - marketvalue_vehicles7          */
/**************************************************/

if (nfa_4c_07 >= 0) then marketvalue_vehicles7 = (marketvalue_vehicles7 + nfa_4c_07);
else if (nfa_4c_07 in(-1, -2) & nfa_4c_sr000001_07 < 0 & nfa_4c_sr000002_07 < 0
& nfa_4c_uab_a_07 < 0 & nfa_4c_uab_b_07 < 0) then marketvalue_vehicles7 = nfa_4c_07;
else if (nfa_4c_sr000001_07 >= 0 & nfa_4c_sr000002_07 >= 0 & nfa_4c_sr000002_07 = nfa_4c_sr000001_07) then
marketvalue_vehicles7 = (marketvalue_vehicles7 + nfa_4c_sr000001_07);
   else if (nfa_4c_sr000001_07 >= 0 & nfa_4c_sr000002_07 >= 0 & nfa_4c_sr000002_07 > nfa_4c_sr000001_07) then
   marketvalue_vehicles7 = (marketvalue_vehicles7 + (((nfa_4c_sr000002_07 - nfa_4c_sr000001_07)/2) + nfa_4c_sr000001_07));
    else if (nfa_4c_sr000001_07 >= 0 & nfa_4c_sr000002_07 >= 0 & nfa_4c_sr000002_07 < nfa_4c_sr000001_07) then
    marketvalue_vehicles7 = (marketvalue_vehicles7 + (((nfa_4c_sr000001_07 - nfa_4c_sr000002_07)/2) + nfa_4c_sr000002_07));
     else if (nfa_4c_07 in(-1, -2, -4) & nfa_4c_uab_b_07 = 0) then marketvalue_vehicles7 = (marketvalue_vehicles7 + quartile1);
      else if (nfa_4c_07 in(-1, -2, -4) & nfa_4c_uab_b_07 = 1) then marketvalue_vehicles7 = (marketvalue_vehicles7 + quartile2);
       else if (nfa_4c_uab_a_07 in(-1, -2) | nfa_4c_uab_b_07 in(-1, -2)) then marketvalue_vehicles7 = -3;

/**************************************************/
/* CAR Component - marketvalue_vehicles8          */
/**************************************************/

if (nfa_4c_08 >= 0) then marketvalue_vehicles8 = (marketvalue_vehicles8 + nfa_4c_08);
else if (nfa_4c_08 in(-1, -2) & nfa_4c_sr000001_08 < 0 & nfa_4c_sr000002_08 < 0
& nfa_4c_uab_a_08 < 0 & nfa_4c_uab_b_08 < 0) then marketvalue_vehicles8 = nfa_4c_08;
else if (nfa_4c_sr000001_08 >= 0 & nfa_4c_sr000002_08 >= 0 & nfa_4c_sr000002_08 = nfa_4c_sr000001_08) then
marketvalue_vehicles8 = (marketvalue_vehicles8 + nfa_4c_sr000001_08);
   else if (nfa_4c_sr000001_08 >= 0 & nfa_4c_sr000002_08 >= 0 & nfa_4c_sr000002_08 > nfa_4c_sr000001_08) then
   marketvalue_vehicles8 = (marketvalue_vehicles8 + (((nfa_4c_sr000002_08 - nfa_4c_sr000001_08)/2) + nfa_4c_sr000001_08));
    else if (nfa_4c_sr000001_08 >= 0 & nfa_4c_sr000002_08 >= 0 & nfa_4c_sr000002_08 < nfa_4c_sr000001_08) then
    marketvalue_vehicles8 = (marketvalue_vehicles8 + (((nfa_4c_sr000001_08 - nfa_4c_sr000002_08)/2) + nfa_4c_sr000002_08));
     else if (nfa_4c_08 in(-1, -2, -4) & nfa_4c_uab_b_08 = 0) then marketvalue_vehicles8 = (marketvalue_vehicles8 + quartile1);
      else if (nfa_4c_08 in(-1, -2, -4) & nfa_4c_uab_b_08 = 1) then marketvalue_vehicles8 = (marketvalue_vehicles8 + quartile2);
         else if (nfa_4c_uab_a_08 in(-1, -2) | nfa_4c_uab_b_08 in(-1, -2)) then marketvalue_vehicles8 = -3;

/**************************************************/
/* CAR Component - marketvalue_vehicles9          */
/**************************************************/

if (nfa_4c_09 >= 0) then marketvalue_vehicles9 = (marketvalue_vehicles9 + nfa_4c_09);
else if (nfa_4c_09 in(-1, -2) & nfa_4c_sr000001_09 < 0 & nfa_4c_sr000002_09 < 0
& nfa_4c_uab_a_09 < 0 & nfa_4c_uab_b_09 < 0) then marketvalue_vehicles9 = nfa_4c_09;
   else if (nfa_4c_sr000001_09 >= 0 & nfa_4c_sr000002_09 >= 0 & nfa_4c_sr000002_09 = nfa_4c_sr000001_09) then
   marketvalue_vehicles9 = (marketvalue_vehicles9 + nfa_4c_sr000001_09);
    else if (nfa_4c_sr000001_09 >= 0 & nfa_4c_sr000002_09 >= 0 & nfa_4c_sr000002_09 > nfa_4c_sr000001_09) then
    marketvalue_vehicles9 = (marketvalue_vehicles9 + (((nfa_4c_sr000002_09 - nfa_4c_sr000001_09)/2) + nfa_4c_sr000001_09));
     else if (nfa_4c_sr000001_09 >= 0 & nfa_4c_sr000002_09 >= 0 & nfa_4c_sr000002_09 < nfa_4c_sr000001_09) then
     marketvalue_vehicles9 = (marketvalue_vehicles9 + (((nfa_4c_sr000001_09 - nfa_4c_sr000002_09)/2) + nfa_4c_sr000002_09));
      else if (nfa_4c_09 in(-1, -2, -4) & nfa_4c_uab_b_09 = 0) then marketvalue_vehicles9 = (marketvalue_vehicles9 + quartile1);
       else if (nfa_4c_09 in(-1, -2, -4) & nfa_4c_uab_b_09 = 1) then marketvalue_vehicles9 = (marketvalue_vehicles9 + quartile2);
          else if (nfa_4c_uab_a_09 in(-1, -2) | nfa_4c_uab_b_09 in(-1, -2)) then marketvalue_vehicles9 = -3;

/**************************************************/
/* CAR Component - marketvalue_vehicles10         */
/**************************************************/

if (nfa_4c_10 >= 0) then marketvalue_vehicles10 = (marketvalue_vehicles10 + nfa_4c_10);
else if (nfa_4c_10 in(-1, -2) & nfa_4c_sr000001_10 < 0 & nfa_4c_sr000002_10 < 0
& nfa_4c_uab_a_10 < 0 & nfa_4c_uab_b_10 < 0) then marketvalue_vehicles10 = nfa_4c_10;
   else if (nfa_4c_sr000001_10 >= 0 & nfa_4c_sr000002_10 >= 0 & nfa_4c_sr000002_10 = nfa_4c_sr000001_10) then
   marketvalue_vehicles10 = (marketvalue_vehicles10 + nfa_4c_sr000001_10);
    else if (nfa_4c_sr000001_10 >= 0 & nfa_4c_sr000002_10 >= 0 & nfa_4c_sr000002_10 > nfa_4c_sr000001_10) then
    marketvalue_vehicles10 = (marketvalue_vehicles10 + (((nfa_4c_sr000002_10 - nfa_4c_sr000001_10)/2) + nfa_4c_sr000001_10));
     else if (nfa_4c_sr000001_10 >= 0 & nfa_4c_sr000002_10 >= 0 & nfa_4c_sr000002_10 < nfa_4c_sr000001_10) then
     marketvalue_vehicles10 = (marketvalue_vehicles10 + (((nfa_4c_sr000001_10 - nfa_4c_sr000002_10)/2) + nfa_4c_sr000002_10));
      else if (nfa_4c_10 in(-1, -2, -4) & nfa_4c_uab_b_10 = 0) then marketvalue_vehicles10 = (marketvalue_vehicles10 + quartile1);
       else if (nfa_4c_10 in(-1, -2, -4) & nfa_4c_uab_b_10 = 1) then marketvalue_vehicles10 = (marketvalue_vehicles10 + quartile2);
        else if (nfa_4c_uab_a_10 in(-1, -2) | nfa_4c_uab_b_10 in(-1, -2)) then marketvalue_vehicles10 = -3;

/**************************************************/
/* CAR Component - marketvalue_vehicles11         */
/**************************************************/

if (nfa_4c_11 >= 0) then marketvalue_vehicles11 = (marketvalue_vehicles11 + nfa_4c_11);
else if (nfa_4c_11 in(-1, -2) & nfa_4c_uab_a_11 < 0) then marketvalue_vehicles11 = nfa_4c_11;
else if (nfa_4c_uab_a_11 in(-1, -2)) then marketvalue_vehicles11 = -3;

/**************************************************/
/* CAR Component - marketvalue_vehicles12         */
/**************************************************/

if (nfa_4c_12 >= 0) then marketvalue_vehicles12 = (marketvalue_vehicles12 + nfa_4c_12);
else if (nfa_4c_12 in(-1, -2) & nfa_4c_uab_a_12 < 0) then marketvalue_vehicles12 = nfa_4c_12;
else if (nfa_4c_uab_a_12 in(-1, -2)) then marketvalue_vehicles12 = -3;

/**************************************************/
/* CAR Component - marketvalue_vehicles13         */
/**************************************************/

if (nfa_4c_13 >= 0) then marketvalue_vehicles13 = (marketvalue_vehicles13 + nfa_4c_13);
else if (nfa_4c_13 in(-1, -2)) then marketvalue_vehicles13 = nfa_4c_13;

/**************************************************/
/* CAR Component - marketvalue_vehicles14         */
/**************************************************/

if (nfa_4c_14 >= 0) then marketvalue_vehicles14 = (marketvalue_vehicles14 + nfa_4c_14);
else if (nfa_4c_14 in(-1, -2)) then marketvalue_vehicles14 = nfa_4c_14;

/**************************************************/
/* CAR Component - marketvalue_vehicles15         */
/**************************************************/

if (nfa_4c_15 >= 0) then marketvalue_vehicles15 = (marketvalue_vehicles15 + nfa_4c_15);
else if (nfa_4c_15 in(-1, -2)) then marketvalue_vehicles15 = nfa_4c_15;

/**************************************************/
/* CAR Component - mktval_othervehicles           */
/**************************************************/

if (nfa_5 = 1 & nfa_5c_trunc >= 0) then mktval_othervehicles = (mktval_othervehicles + nfa_5c_trunc);
else if (nfa_5 = 1 & nfa_5c_ref_1 = 1 & nfa_5c_sr000001 < 0 & nfa_5c_sr000002 < 0
& nfa_5c_uab_a < 0 & nfa_5c_uab_b < 0 & nfa_5c_uab_c < 0) then mktval_othervehicles = -1;
else if (nfa_5 = 1 & nfa_5c_trunc in(-1, -2) & nfa_5c_sr000001 < 0 & nfa_5c_sr000002 < 0
& nfa_5c_uab_a < 0 & nfa_5c_uab_b < 0 & nfa_5c_uab_c < 0) then mktval_othervehicles = nfa_5c_trunc;
    else if (nfa_5c_sr000001 >= 0 & nfa_5c_sr000002 >= 0 & nfa_5c_sr000002 = nfa_5c_sr000001) then
    mktval_othervehicles = (mktval_othervehicles + nfa_5c_sr000001);
     else if (nfa_5c_sr000001 >= 0 & nfa_5c_sr000002 >= 0 & nfa_5c_sr000002 > nfa_5c_sr000001) then
     mktval_othervehicles = (mktval_othervehicles + (((nfa_5c_sr000002 - nfa_5c_sr000001)/2) + nfa_5c_sr000001));
      else if (nfa_5c_sr000001 >= 0 & nfa_5c_sr000002 >= 0 & nfa_5c_sr000002 < nfa_5c_sr000001) then
      mktval_othervehicles = (mktval_othervehicles + (((nfa_5c_sr000001 - nfa_5c_sr000002)/2) + nfa_5c_sr000002));
       else if (nfa_5c_trunc in(-1, -2, -4) & nfa_5c_uab_b = 0) then mktval_othervehicles = (mktval_othervehicles+ quartile1);
        else if (nfa_5c_trunc in(-1, -2, -4) & nfa_5c_uab_b = 1) then mktval_othervehicles = (mktval_othervehicles + quartile2);
         else if (nfa_5c_trunc in(-1, -2, -4) & nfa_5c_uab_c = 0) then mktval_othervehicles = (mktval_othervehicles + quartile3);
          else if (nfa_5c_trunc in(-1, -2, -4) & nfa_5c_uab_c = 1) then mktval_othervehicles = (mktval_othervehicles + 50000);
           else if (nfa_5c_uab_a in(-1, -2) | nfa_5c_uab_b in(-1, -2) | nfa_5c_uab_c in(-1, -2)) then mktval_othervehicles = -3;

/*******************************/
/* Add components CAR          */
/*******************************/

if (mktval_assetpoorcars1 >= 0) then carc = (carc + mktval_assetpoorcars1);
if (mktval_assetpoorcars2 >= 0) then carc = (carc + mktval_assetpoorcars2);
if (mktval_assetpoorcars3 >= 0) then carc = (carc + mktval_assetpoorcars3);
if (marketvalue_vehicles1 >= 0) then carc = (carc + marketvalue_vehicles1);
if (marketvalue_vehicles2 >= 0) then carc = (carc + marketvalue_vehicles2);
if (marketvalue_vehicles3 >= 0) then carc = (carc + marketvalue_vehicles3);
if (marketvalue_vehicles4 >= 0) then carc = (carc + marketvalue_vehicles4);
if (marketvalue_vehicles5 >= 0) then carc = (carc + marketvalue_vehicles5);
if (marketvalue_vehicles6 >= 0) then carc = (carc + marketvalue_vehicles6);
if (marketvalue_vehicles7 >= 0) then carc = (carc + marketvalue_vehicles7);
if (marketvalue_vehicles8 >= 0) then carc = (carc + marketvalue_vehicles8);
if (marketvalue_vehicles9 >= 0) then carc = (carc + marketvalue_vehicles9);
if (marketvalue_vehicles10 >= 0) then carc = (carc + marketvalue_vehicles10);
if (marketvalue_vehicles11 >= 0) then carc = (carc + marketvalue_vehicles11);
if (marketvalue_vehicles12 >= 0) then carc = (carc + marketvalue_vehicles12);
if (marketvalue_vehicles13 >= 0) then carc = (carc + marketvalue_vehicles13);
if (marketvalue_vehicles14 >= 0) then carc = (carc + marketvalue_vehicles14);
if (marketvalue_vehicles15 >= 0) then carc = (carc + marketvalue_vehicles15);
if (mktval_othervehicles >= 0) then carc = (carc + mktval_othervehicles);

if (mktval_assetpoorcars1 in(-1, -2, -3)) then carc = -3;
else if (mktval_assetpoorcars2 in(-1, -2, -3)) then carc = -3;
else if (mktval_assetpoorcars3 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles1 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles2 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles3 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles4 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles5 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles6 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles7 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles8 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles9 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles10 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles11 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles12 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles13 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles14 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles15 in(-1, -2, -3)) then carc = -3;
else if (mktval_othervehicles in(-1, -2, -3)) then carc = -3;

/************************/
/* Compute TNFW_TRUNC   */
/************************/
/*******************************************************/
/* TNFW_TRUNC - add components created in above code   */
/*******************************************************/

if (homec >= 0) then tnfw_trunc = (tnfw_trunc + homec );
if (mortc >= 0) then tnfw_trunc = (tnfw_trunc - mortc );
if (pdebtc >= 0) then tnfw_trunc = (tnfw_trunc - pdebtc);
if (cashc >= 0) then tnfw_trunc = (tnfw_trunc + cashc );
if (irac   >= 0) then tnfw_trunc = (tnfw_trunc + irac );
if (a401kc >= 0) then tnfw_trunc = (tnfw_trunc + a401kc);
if (cdsc   >= 0) then tnfw_trunc = (tnfw_trunc + cdsc );
if (stockc >= 0) then tnfw_trunc = (tnfw_trunc + stockc);
if (bizc   >= 0) then tnfw_trunc = (tnfw_trunc + bizc );
if (bdebtc >= 0) then tnfw_trunc = (tnfw_trunc - bdebtc);
if (cdebtc >= 0) then tnfw_trunc = (tnfw_trunc - cdebtc);
if (carc   >= 0) then tnfw_trunc = (tnfw_trunc + carc );
if (posesc >= 0) then tnfw_trunc = (tnfw_trunc + posesc);
if (odebtc >= 0) then tnfw_trunc = (tnfw_trunc - odebtc);

if (homec in(-1, -2, -3)) then tnfw_trunc = -3;
if (mortc in(-1, -2, -3)) then tnfw_trunc = -3;
if (pdebtc in(-1, -2, -3)) then tnfw_trunc = -3;
if (cashc in(-1, -2, -3)) then tnfw_trunc = -3;
if (irac   in(-1, -2, -3)) then tnfw_trunc = -3;
if (a401kc in(-1, -2, -3)) then tnfw_trunc = -3;
if (cdsc   in(-1, -2, -3)) then tnfw_trunc = -3;
if (stockc in(-1, -2, -3)) then tnfw_trunc = -3;
if (bizc   in(-1, -2, -3)) then tnfw_trunc = -3;
if (bdebtc in(-1, -2, -3)) then tnfw_trunc = -3;
if (cdebtc in(-1, -2, -3)) then tnfw_trunc = -3;
if (carc   in(-1, -2, -3)) then tnfw_trunc = -3;
if (posesc in(-1, -2, -3)) then tnfw_trunc = -3;
if (odebtc in(-1, -2, -3)) then tnfw_trunc = -3;

/***************************************************************/
/* TNFW_TRUNC - adjust for partially missing range estimates   */
/***************************************************************/

array ranges1 (n) nfa_1a_sr000001 nfa_1b_sr000001
                  nfa_1c_sr000001 nfa_2a_sr000001
                  nfa_2b_sr000001 nfa_2c_sr000001
                  fa_1a_sr000001
                  fa_8d_sr000001_01 fa_8d_sr000001_02 fa_8d_sr000001_03 fa_8d_sr000001_04
                  fa_8d_sr000001_05 fa_8d_sr000001_06 fa_8d_sr000001_07
                  fa_6e_sr000001 fa_7c_sr000001
                  fa_2a_sr000001
                  fa_3a_sr000001 fa_4a_sr000001 fa_5a_sr000001 fa_9a_sr000001 fa_10a_sr000001
                  fa_11a_sr000001
                  q13_131_sr000001 q13_132_sr000001
                  sc_12b_sr000001_01 nfa_4f_sr000001_01 nfa_4f_sr000001_02 nfa_4f_sr000001_03
                  nfa_4f_sr000001_04
                  sc_12a_sr000001_01 sc_12a_sr000001_02 nfa_4c_sr000001_01 nfa_4c_sr000001_02
                  nfa_4c_sr000001_03 nfa_4c_sr000001_04 nfa_4c_sr000001_05 nfa_4c_sr000001_06
                  nfa_4c_sr000001_07 nfa_4c_sr000001_08 nfa_4c_sr000001_09 nfa_4c_sr000001_10
                  nfa_5c_sr000001
                  nfa_6e_sr000001;

array ranges2 (n) nfa_1a_sr000002 nfa_1b_sr000002 nfa_1c_sr000002 nfa_2a_sr000002 nfa_2b_sr000002
                  nfa_2c_sr000002
                  fa_1a_sr000002
                  fa_8d_sr000002_01 fa_8d_sr000002_02 fa_8d_sr000002_03 fa_8d_sr000002_04 fa_8d_sr000002_05
                  fa_8d_sr000002_06 fa_8d_sr000002_07
                  fa_6e_sr000002 fa_7c_sr000002
                  fa_2a_sr000002
                  fa_3a_sr000002 fa_4a_sr000002 fa_5a_sr000002 fa_9a_sr000002 fa_10a_sr000002
                  fa_11a_sr000002
                  q13_131_sr000002 q13_132_sr000002
                  sc_12b_sr000002_01 nfa_4f_sr000002_01 nfa_4f_sr000002_02 nfa_4f_sr000002_03
                  nfa_4f_sr000002_04
                  sc_12a_sr000002_01 sc_12a_sr000002_02 nfa_4c_sr000002_01 nfa_4c_sr000002_02
                  nfa_4c_sr000002_03 nfa_4c_sr000002_04 nfa_4c_sr000002_05 nfa_4c_sr000002_06
                  nfa_4c_sr000002_07 nfa_4c_sr000002_08 nfa_4c_sr000002_09 nfa_4c_sr000002_10
                  nfa_5c_sr000002
                  nfa_6e_sr000002;

do n = 1 to 44;
if (tnfw_trunc ~= -3 & ((ranges1 >= 0 & ranges2 in(-1, -2)) | (ranges1 in(-1, -2) & ranges2 >= 0)))
then tnfw_trunc = -3;
end;

/***************************************/
/* APPLY TOPCODE TO TNFW_TRUNC FOR 2004*/
/***************************************/

if (tnfw_trunc_2004 > 1485000) then tnfw_trunc_2004 = 2671980;

tnfw_trunc_2004 = round(tnfw_trunc_2004);

2008 TNFW_TRUNC Variable Creation

/***************************************************/
/* Compute dollar amt for dollars & cents vars     */
/***************************************************/

nfa_7d_truncc = nfa_7d_trunc;
if (nfa_7d_trunc > 0) then nfa_7d_truncc = (nfa_7d_trunc/100);

/***************************************************/
/* Compute dynamic QUARTILE VALUES for estimates   */
/***************************************************/

array quartileqs (i) quartile1 quartile2 quartile3 quartile4;

do i = 1 to 4;
quartileqs = 0;
end;

if (symbol_entry_othhh = 7200) then do;
quartile1 = (5000/2);
quartile2 = (5000 + ((7200-5000)/2));
quartile3 = (7200 + ((30000-7200)/2));
quartile4 = 30000; /* Note: Use median of actual values > 30000 where possible. Otherwise set to 30000 */
end;
else if (symbol_entry_othhh = 13000) then do;
quartile1 = (5000/2);
quartile2 = (5000 + ((13000-5000)/2));
quartile3 = (13000 + ((30000-13000)/2));
quartile4 = 30000; /* Note: Use median of actual values > 30000 where possible. Otherwise set to 30000 */
end;

/***************************************************/
/* BEGIN COMPUTATIONS FOR NET WEALTH COMPONENTS    */
/***************************************************/

array assetsc (i) homec mortc pdebtc cashc irac a401kc cdsc stockc trustc bizc bdebtc cdebtc carc posesc odebtc tnfw_trunc
                       collections items ccdebt studentloan childstudentloan owebusiness otherdebt
                       solebiz farm_1_value1 farm_2_value1 farm_3_value1 farm_4_value1
                       business_1_value1 business_2_value1 business_3_value1 realestate_1_value1
                       realestate_2_value1 realestate_3_value1 realestate_4_value1 realestate_5_value1
                       realestate_6_value1
                       farm_1_value farm_2_value farm_3_value farm_4_value business_1_value business_2_value
                       business_3_value realestate_1_value realestate_2_value realestate_3_value realestate_4_value
                       realestate_5_value realestate_6_value
                       debtbiz farm_1_debt1 farm_2_debt1 farm_3_debt1 farm_4_debt1 business_1_debt1 business_2_debt1
                       business_3_debt1 realestate_1_debt1
                       farm_1_debt farm_2_debt farm_3_debt farm_4_debt business_1_debt business_2_debt
                       business_3_debt realestate_1_debt
                       govbonds mutual lifeinsure shares corpbond moneyowedtor
                       home1 secondhome mort1 secondmort pdebt1 secondpdebt
                       ira1 ira2 ira3 ira4 ira5 ira6 ira7 r_401k sp_401k
                       amtowe_assetpoorcars1 amtowe_assetpoorcars2 amtowe_assetpoorcars3 amtowe_assetpoorcars4
                       amtowe_assetpoorcars5
                       amountowe_vehicles1 amountowe_vehicles2 amountowe_vehicles3 amountowe_vehicles4
                       amountowe_vehicles5 amountowe_vehicles6 amountowe_vehicles7 amtowe_othervehicles
                       mktval_assetpoorcars1 mktval_assetpoorcars2 mktval_assetpoorcars3 mktval_assetpoorcars4
                       mktval_assetpoorcars5
                       marketvalue_vehicles1 marketvalue_vehicles2 marketvalue_vehicles3 marketvalue_vehicles4
                       marketvalue_vehicles5 marketvalue_vehicles6 marketvalue_vehicles7 marketvalue_vehicles8
                       marketvalue_vehicles7 marketvalue_vehicles8 marketvalue_vehicles9 marketvalue_vehicles10
                       marketvalue_vehicles11 marketvalue_vehicles12
                       marketvalue_vehicles13 marketvalue_vehicles14 marketvalue_vehicles15 marketvalue_vehicles16
                       marketvalue_vehicles17 mktval_othervehicles;

do i = 1 to 126;
if (sampweight = 0) then assetsc = -5;
else if (sampweight > 0) then assetsc = 0;
end;

/**********************/
/* Compute POSES      */
/**********************/
/******************************************/
/* POSES Component - collections          */
/******************************************/

if (nfa_6a = 1 & nfa_6e_trunc >= 0) then collections = (collections + nfa_6e_trunc);
else if (nfa_6a = 1 & nfa_6e_ref_1 = 1 & nfa_6e_sr000001 < 0 & nfa_6e_sr000002 < 0
& nfa_6e_uab_a < 0 & nfa_6e_uab_b < 0 & nfa_6e_uab_c < 0) then collections = -1;
else if (nfa_6a = 1 & nfa_6e_trunc in(-1, -2) & nfa_6e_sr000001 < 0 & nfa_6e_sr000002 < 0
& nfa_6e_uab_a < 0 & nfa_6e_uab_b < 0 & nfa_6e_uab_c < 0) then collections = nfa_6e_trunc;
    else if (nfa_6e_sr000001 >= 0 & nfa_6e_sr000002 >= 0 & nfa_6e_sr000002 = nfa_6e_sr000001) then
    collections = (collections + nfa_6e_sr000001);
     else if (nfa_6e_sr000001 >= 0 & nfa_6e_sr000002 >= 0 & nfa_6e_sr000002 > nfa_6e_sr000001) then
     collections = (collections + (((nfa_6e_sr000002 - nfa_6e_sr000001)/2) + nfa_6e_sr000001));
      else if (nfa_6e_sr000001 >= 0 & nfa_6e_sr000002 >= 0 & nfa_6e_sr000002 < nfa_6e_sr000001) then
      collections = (collections + (((nfa_6e_sr000001 - nfa_6e_sr000002)/2) + nfa_6e_sr000002));
       else if (nfa_6e_trunc in(-1, -2, -4) & nfa_6e_uab_b = 0) then collections = (collections + quartile1);
        else if (nfa_6e_trunc in(-1, -2, -4) & nfa_6e_uab_b = 1) then collections = (collections + quartile2);
         else if (nfa_6e_trunc in(-1, -2, -4) & nfa_6e_uab_c = 0) then collections = (collections + quartile3);
          else if (nfa_6e_trunc in(-1, -2, -4) & nfa_6e_uab_c = 1) then collections = (collections + 72500);
           else if (nfa_6e_uab_a in(-1, -2) | nfa_6e_uab_b in(-1, -2) | nfa_6e_uab_c in(-1, -2)) then collections = -3;

/******************************************/
/* POSES Component - items                */
/******************************************/

if (nfa_7 = 1 & nfa_7d_truncc >= 0) then items = (items + nfa_7d_truncc);
else if (nfa_7 = 1 & nfa_7d_ref_1 = 1 & nfa_7d_uab_a < 0 & nfa_7d_uab_b < 0
& nfa_7d_uab_c < 0) then items = -1;
else if (nfa_7 = 1 & nfa_7d_truncc in(-1, -2) & nfa_7d_uab_a < 0 & nfa_7d_uab_b < 0
& nfa_7d_uab_c < 0) then items = nfa_7d_truncc;
   else if (nfa_7d_truncc in(-1, -2, -4) & nfa_7d_uab_b = 0) then items = (items + quartile1);
    else if (nfa_7d_truncc in(-1, -2, -4) & nfa_7d_uab_b = 1) then items = (items + quartile2);
     else if (nfa_7d_truncc in(-1, -2, -4) & nfa_7d_uab_c = 0) then items = (items + quartile3);
      else if (nfa_7d_truncc in(-1, -2, -4) & nfa_7d_uab_c = 1) then items = (items + 50000);
       else if (nfa_7d_uab_a in(-1, -2) | nfa_7d_uab_b in(-1, -2) | nfa_7d_uab_c in(-1, -2)) then items = -3;

/*******************************/
/* Add components POSES        */
/*******************************/

if (collections >= 0) then posesc = (posesc + collections);
if (items >= 0) then posesc = (posesc + items);
if (collections in(-1, -2, -3)) then posesc = -3;
else if (items in(-1, -2, -3)) then posesc = -3;

/****************************/
/* Compute ODEBT            */
/****************************/

/******************************************/
/* ODEBT Component - ccdebt               */
/******************************************/

if (debt_1 = 1 & debt_1a >= 0) then ccdebt = (ccdebt + debt_1a);
else if (debt_1 = 1 & debt_1a_ref_1 = 1 & debt_1a_sr000001 < 0 & debt_1a_sr000002 < 0
& debt_1a_uab_a < 0 & debt_1a_uab_b < 0 & debt_1a_uab_c < 0) then ccdebt = -1;
else if (debt_1 = 1 & debt_1a in(-1, -2) & debt_1a_sr000001 < 0 & debt_1a_sr000002 < 0
& debt_1a_uab_a < 0 & debt_1a_uab_b < 0 & debt_1a_uab_c < 0) then ccdebt = debt_1a;
    else if (debt_1a_sr000001 >= 0 & debt_1a_sr000002 >= 0 & debt_1a_sr000002 = debt_1a_sr000001) then
    ccdebt = (ccdebt + debt_1a_sr000001);
     else if (debt_1a_sr000001 >= 0 & debt_1a_sr000002 >= 0 & debt_1a_sr000002 > debt_1a_sr000001) then
     ccdebt = (ccdebt + (((debt_1a_sr000002 - debt_1a_sr000001)/2) + debt_1a_sr000001));
      else if (debt_1a_sr000001 >= 0 & debt_1a_sr000002 >= 0 & debt_1a_sr000002 < debt_1a_sr000001) then
      ccdebt = (ccdebt + (((debt_1a_sr000001 - debt_1a_sr000002)/2) + debt_1a_sr000002));
       else if (debt_1a in(-1, -2, -4) & debt_1a_uab_b = 0) then ccdebt = (ccdebt + quartile1);
        else if (debt_1a in(-1, -2, -4) & debt_1a_uab_b = 1) then ccdebt = (ccdebt + quartile2);
         else if (debt_1a in(-1, -2, -4) & debt_1a_uab_c = 0) then ccdebt = (ccdebt + quartile3);
          else if (debt_1a in(-1, -2, -4) & debt_1a_uab_c = 1) then ccdebt = (ccdebt + 45000);
           else if (debt_1a_uab_a in(-1, -2) | debt_1a_uab_b in(-1, -2) | debt_1a_uab_c in(-1, -2)) then ccdebt = -3;

/******************************************/
/* ODEBT Component - studentloan          */
/******************************************/

if (debt_2 = 1 & debt_2a >= 0) then studentloan = (studentloan + debt_2a);
else if (debt_2 = 1 & debt_2a_ref_1 = 1 & debt_2a_uab_a < 0 & debt_2a_uab_b < 0
& debt_2a_uab_c < 0) then studentloan = -1;
else if (debt_2 = 1 & debt_2a in(-1, -2) & debt_2a_uab_a < 0 & debt_2a_uab_b < 0
& debt_2a_uab_c < 0) then studentloan = debt_2a;
   else if (debt_2a in(-1, -2, -4) & debt_2a_uab_b = 0) then studentloan = (studentloan + quartile1);
    else if (debt_2a in(-1, -2, -4) & debt_2a_uab_b = 1) then studentloan = (studentloan + quartile2);
     else if (debt_2a in(-1, -2, -4) & debt_2a_uab_c = 0) then studentloan = (studentloan + quartile3);
      else if (debt_2a in(-1, -2, -4) & debt_2a_uab_c = 1) then studentloan = (studentloan + 50000);
       else if (debt_2a_uab_a in(-1, -2) | debt_2a_uab_b in(-1, -2) | debt_2a_uab_c in(-1, -2)) then studentloan = -3;

/******************************************/
/* ODEBT Component - childstudentloan     */
/******************************************/

if (debt_2c = 1 & debt_2d >= 0) then childstudentloan = (childstudentloan + debt_2d);
else if (debt_2c = 1 & debt_2d_ref_1 = 1 & debt_2d_uab_a < 0 & debt_2d_uab_b < 0
& debt_2d_uab_c < 0) then childstudentloan = -1;
else if (debt_2c = 1 & debt_2d in(-1, -2) & debt_2d_uab_a < 0 & debt_2d_uab_b < 0
& debt_2d_uab_c < 0) then childstudentloan = debt_2d;
   else if (debt_2d in(-1, -2, -4) & debt_2d_uab_b = 0) then childstudentloan = (childstudentloan + quartile1);
    else if (debt_2d in(-1, -2, -4) & debt_2d_uab_b = 1) then childstudentloan = (childstudentloan + quartile2);
     else if (debt_2d in(-1, -2, -4) & debt_2d_uab_c = 0) then childstudentloan = (childstudentloan + quartile3);
      else if (debt_2d in(-1, -2, -4) & debt_2d_uab_c = 1) then childstudentloan = (childstudentloan + 40000);
       else if (debt_2d_uab_a in(-1, -2) | debt_2d_uab_b in(-1, -2) | debt_2d_uab_c in(-1, -2)) then childstudentloan = -3;

/******************************************/
/* ODEBT Component - owebusiness          */
/******************************************/

if (debt_3 = 1 & debt_3a_trunc >= 0) then owebusiness = (owebusiness + debt_3a_trunc);
else if (debt_3 = 1 & debt_3a_ref_1 = 1 & debt_3a_uab_a < 0 & debt_3a_uab_b < 0
& debt_3a_uab_c < 0) then owebusiness = -1;
else if (debt_3 = 1 & debt_3a_trunc in(-1, -2) & debt_3a_uab_a < 0 & debt_3a_uab_b < 0
& debt_3a_uab_c < 0) then owebusiness = debt_3a_trunc;
   else if (debt_3a_trunc in(-1, -2, -4) & debt_3a_uab_b = 0) then owebusiness = (owebusiness + quartile1);
    else if (debt_3a_trunc in(-1, -2, -4) & debt_3a_uab_b = 1) then owebusiness = (owebusiness + quartile2);
     else if (debt_3a_trunc in(-1, -2, -4) & debt_3a_uab_c = 0) then owebusiness = (owebusiness + quartile3);
      else if (debt_3a_trunc in(-1, -2, -4) & debt_3a_uab_c = 1) then owebusiness = (owebusiness + 72500);
       else if (debt_3a_uab_a in(-1, -2) | debt_3a_uab_b in(-1, -2) | debt_3a_uab_c in(-1, -2)) then owebusiness = -3;

/******************************************/
/* ODEBT Component - otherdebt            */
/******************************************/

if (debt_4 = 1 & debt_4a_trunc >= 0) then otherdebt = (otherdebt + debt_4a_trunc);
else if (debt_4 = 1 & debt_4a_ref_1 = 1 & debt_4a_uab_a < 0 & debt_4a_uab_b < 0
& debt_4a_uab_c < 0) then otherdebt = -1;
else if (debt_4 = 1 & debt_4a_trunc in(-1, -2) & debt_4a_uab_a < 0 & debt_4a_uab_b < 0
& debt_4a_uab_c < 0) then otherdebt = debt_4a_trunc;
   else if (debt_4a_trunc in(-1, -2, -4) & debt_4a_uab_b = 0) then otherdebt = (otherdebt + quartile1);
    else if (debt_4a_trunc in(-1, -2, -4) & debt_4a_uab_b = 1) then otherdebt = (otherdebt + quartile2);
     else if (debt_4a_trunc in(-1, -2, -4) & debt_4a_uab_c = 0) then otherdebt = (otherdebt + quartile3);
      else if (debt_4a_trunc in(-1, -2, -4) & debt_4a_uab_c = 1) then otherdebt = (otherdebt + 70000);
       else if (debt_4a_uab_a in(-1, -2) | debt_4a_uab_b in(-1, -2) | debt_4a_uab_c in(-1, -2)) then otherdebt = -3;

/*******************************/
/* Add components ODEBT        */
/*******************************/

if (ccdebt >= 0) then odebtc = (odebtc + ccdebt);
if (studentloan >= 0) then odebtc = (odebtc + studentloan);
if (childstudentloan >= 0) then odebtc = (odebtc + childstudentloan);
if (owebusiness >= 0) then odebtc = (odebtc + owebusiness);
if (otherdebt >= 0) then odebtc = (odebtc + otherdebt);
if (ccdebt in(-1, -2, -3)) then odebtc = -3;
else if (studentloan in(-1, -2, -3)) then odebtc = -3;
else if (childstudentloan in(-1, -2, -3)) then odebtc = -3;
else if (owebusiness in(-1, -2, -3)) then odebtc = -3;
else if (otherdebt in(-1, -2, -3)) then odebtc = -3;

/****************************/
/* Compute BIZ              */
/****************************/

/******************************************/
/* BIZ Component - solebiz                */
/******************************************/

if (q13_131_trunc >= 0) then solebiz = (solebiz + q13_131_trunc);
else if (q13_131_trunc = 1 & q13_131_ref_1 = 1 & q13_131_sr000001 < 0 & q13_131_sr000002 < 0
& q13_131_uab_a < 0 & q13_131_uab_b < 0 & q13_131_uab_c < 0) then solebiz = -1;
else if (q13_131_trunc in(-1, -2) & q13_131_sr000001 < 0 & q13_131_sr000002 < 0
& q13_131_uab_a < 0 & q13_131_uab_b < 0 & q13_131_uab_c < 0) then solebiz = q13_131_trunc;
    else if (q13_131_sr000001 >= 0 & q13_131_sr000002 >= 0 & q13_131_sr000002 = q13_131_sr000001) then
    solebiz = (solebiz + q13_131_sr000001);
     else if (q13_131_sr000001 >= 0 & q13_131_sr000002 >= 0 & q13_131_sr000002 > q13_131_sr000001) then
     solebiz = (solebiz + (((q13_131_sr000002 - q13_131_sr000001)/2) + q13_131_sr000001));
      else if (q13_131_sr000001 >= 0 & q13_131_sr000002 >= 0 & q13_131_sr000002 < q13_131_sr000001) then
      solebiz = (solebiz + (((q13_131_sr000001 - q13_131_sr000002)/2) + q13_131_sr000002));
       else if (q13_131_trunc in(-1, -2, -4) & q13_131_uab_b = 0) then solebiz = (solebiz + quartile1);
        else if (q13_131_trunc in(-1, -2, -4) & q13_131_uab_b = 1) then solebiz = (solebiz + quartile2);
         else if (q13_131_trunc in(-1, -2, -4) & q13_131_uab_c = 0) then solebiz = (solebiz + quartile3);
          else if (q13_131_trunc in(-1, -2, -4) & q13_131_uab_c = 1) then solebiz = (solebiz + 250000);
           else if (q13_131_uab_a in(-1, -2) | q13_131_uab_b in(-1, -2) | q13_131_uab_c in(-1, -2)) then solebiz = -3;

/********************************************************************************************************/
/* BIZ Components - farm_#_value, business_#_value, realestate_#_value & percentage ownership           */
/********************************************************************************************************/

if (q13_fjt_11_trunc_01 > -4) then farm_1_value1 = q13_fjt_11_trunc_01;
if (q13_fjt_11_trunc_02 > -4) then farm_2_value1 = q13_fjt_11_trunc_02;
if (q13_fjt_11_trunc_03 > -4) then farm_3_value1 = q13_fjt_11_trunc_03;
if (q13_fjt_11_trunc_04 > -4) then farm_4_value1 = q13_fjt_11_trunc_04;
if (q13_bppjt_11_trunc_01 > -4) then business_1_value1 = q13_bppjt_11_trunc_01;
if (q13_bppjt_11_trunc_02 > -4) then business_2_value1 = q13_bppjt_11_trunc_02;
if (q13_bppjt_11_trunc_03 > -4) then business_3_value1 = q13_bppjt_11_trunc_03;
if (q13_rejt_11_trunc_01 > -4) then realestate_1_value1 = q13_rejt_11_trunc_01;
if (q13_rejt_11_trunc_02 > -4) then realestate_2_value1 = q13_rejt_11_trunc_02;
if (q13_rejt_11_trunc_03 > -4) then realestate_3_value1 = q13_rejt_11_trunc_03;
if (q13_rejt_11_trunc_04 > -4) then realestate_4_value1 = q13_rejt_11_trunc_04;
if (q13_rejt_11_trunc_05 > -4) then realestate_5_value1 = q13_rejt_11_trunc_05;
if (q13_rejt_11_trunc_06 > -4) then realestate_6_value1 = q13_rejt_11_trunc_06;

if (q13_fjt_12b_01 > -4) then farm_1_pcntshare = q13_fjt_12b_01;
if (q13_fjt_12b_02 > -4) then farm_2_pcntshare = q13_fjt_12b_02;
if (q13_fjt_12b_03 > -4) then farm_3_pcntshare = q13_fjt_12b_03;
if (q13_fjt_12b_04 > -4) then farm_4_pcntshare = q13_fjt_12b_04;
if (q13_bppjt_12b_01 > -4) then business_1_pcntshare = q13_bppjt_12b_01;
if (q13_bppjt_12b_02 > -4) then business_2_pcntshare = q13_bppjt_12b_02;
if (q13_bppjt_12b_03 > -4) then business_3_pcntshare = q13_bppjt_12b_03;
if (q13_rejt_12b_01 > -4) then realestate_1_pcntshare = q13_rejt_12b_01;
if (q13_rejt_12b_02 > -4) then realestate_2_pcntshare = q13_rejt_12b_02;
if (q13_rejt_12b_03 > -4) then realestate_3_pcntshare = q13_rejt_12b_03;
if (q13_rejt_12b_04 > -4) then realestate_4_pcntshare = q13_rejt_12b_04;
if (q13_rejt_12b_05 > -4) then realestate_5_pcntshare = q13_rejt_12b_05;
if (q13_rejt_12b_06 > -4) then realestate_6_pcntshare = q13_rejt_12b_06;

if (farm_1_pcntshare > 0) then farm_1_pcntshare = (farm_1_pcntshare / 100);
if (farm_2_pcntshare > 0) then farm_2_pcntshare = (farm_2_pcntshare / 100);
if (farm_3_pcntshare > 0) then farm_3_pcntshare = (farm_3_pcntshare / 100);
if (farm_4_pcntshare > 0) then farm_4_pcntshare = (farm_4_pcntshare / 100);
if (business_1_pcntshare > 0) then business_1_pcntshare = (business_1_pcntshare / 100);
if (business_2_pcntshare > 0) then business_2_pcntshare = (business_2_pcntshare / 100);
if (business_3_pcntshare > 0) then business_3_pcntshare = (business_3_pcntshare / 100);
if (realestate_1_pcntshare > 0) then realestate_1_pcntshare = (realestate_1_pcntshare / 100);
if (realestate_2_pcntshare > 0) then realestate_2_pcntshare = (realestate_2_pcntshare / 100);
if (realestate_3_pcntshare > 0) then realestate_3_pcntshare = (realestate_3_pcntshare / 100);
if (realestate_4_pcntshare > 0) then realestate_4_pcntshare = (realestate_4_pcntshare / 100);
if (realestate_5_pcntshare > 0) then realestate_5_pcntshare = (realestate_5_pcntshare / 100);
if (realestate_6_pcntshare > 0) then realestate_6_pcntshare = (realestate_6_pcntshare / 100);

if (farm_1_value1 >= 0 & farm_1_pcntshare >= 0) then farm_1_value = (farm_1_value1 * farm_1_pcntshare);
if (farm_2_value1 >= 0 & farm_2_pcntshare >= 0) then farm_2_value = (farm_2_value1 * farm_2_pcntshare);
if (farm_3_value1 >= 0 & farm_3_pcntshare >= 0) then farm_3_value = (farm_3_value1 * farm_3_pcntshare);
if (farm_4_value1 >= 0 & farm_4_pcntshare >= 0) then farm_4_value = (farm_4_value1 * farm_4_pcntshare);
if (business_1_value1 >= 0 & business_1_pcntshare >= 0) then business_1_value = (business_1_value1 * business_1_pcntshare);
if (business_2_value1 >= 0 & business_2_pcntshare >= 0) then business_2_value = (business_2_value1 * business_2_pcntshare);
if (business_3_value1 >= 0 & business_3_pcntshare >= 0) then business_3_value = (business_3_value1 * business_3_pcntshare);
if (realestate_1_value1 >= 0 & realestate_1_pcntshare >= 0) then realestate_1_value = (realestate_1_value1 * realestate_1_pcntshare);
if (realestate_2_value1 >= 0 & realestate_2_pcntshare >= 0) then realestate_2_value = (realestate_2_value1 * realestate_2_pcntshare);
if (realestate_3_value1 >= 0 & realestate_3_pcntshare >= 0) then realestate_3_value = (realestate_3_value1 * realestate_3_pcntshare);
if (realestate_4_value1 >= 0 & realestate_4_pcntshare >= 0) then realestate_4_value = (realestate_4_value1 * realestate_4_pcntshare);
if (realestate_5_value1 >= 0 & realestate_5_pcntshare >= 0) then realestate_5_value = (realestate_5_value1 * realestate_5_pcntshare);
if (realestate_6_value1 >= 0 & realestate_6_pcntshare >= 0) then realestate_6_value = (realestate_6_value1 * realestate_6_pcntshare);

/*******************************/
/* Add components BIZ          */
/*******************************/

if (solebiz >= 0) then bizc = (bizc + solebiz);
if (farm_1_value >= 0) then bizc = (bizc + farm_1_value);
if (farm_2_value >= 0) then bizc = (bizc + farm_2_value);
if (farm_3_value >= 0) then bizc = (bizc + farm_3_value);
if (farm_4_value >= 0) then bizc = (bizc + farm_4_value);
if (business_1_value >= 0) then bizc = (bizc + business_1_value);
if (business_2_value >= 0) then bizc = (bizc + business_2_value);
if (business_3_value >= 0) then bizc = (bizc + business_3_value);
if (realestate_1_value >= 0) then bizc = (bizc + realestate_1_value);
if (realestate_2_value >= 0) then bizc = (bizc + realestate_2_value);
if (realestate_3_value >= 0) then bizc = (bizc + realestate_3_value);
if (realestate_4_value >= 0) then bizc = (bizc + realestate_4_value);
if (realestate_5_value >= 0) then bizc = (bizc + realestate_5_value);
if (realestate_6_value >= 0) then bizc = (bizc + realestate_6_value);

if (solebiz in(-1, -2, -3)) then bizc = -3;
if (farm_1_value in(-1, -2, -3) | farm_1_pcntshare in(-1, -2, -3)) then bizc = -3;
if (farm_2_value in(-1, -2, -3) | farm_2_pcntshare in(-1, -2, -3)) then bizc = -3;
if (farm_3_value in(-1, -2, -3) | farm_3_pcntshare in(-1, -2, -3)) then bizc = -3;
if (farm_4_value in(-1, -2, -3) | farm_4_pcntshare in(-1, -2, -3)) then bizc = -3;
if (business_1_value in(-1, -2, -3) | business_1_pcntshare in(-1, -2, -3)) then bizc = -3;
if (business_2_value in(-1, -2, -3) | business_2_pcntshare in(-1, -2, -3)) then bizc = -3;
if (business_3_value in(-1, -2, -3) | business_3_pcntshare in(-1, -2, -3)) then bizc = -3;
if (realestate_1_value in(-1, -2, -3) | realestate_1_pcntshare in(-1, -2, -3)) then bizc = -3;
if (realestate_2_value in(-1, -2, -3) | realestate_2_pcntshare in(-1, -2, -3)) then bizc = -3;
if (realestate_3_value in(-1, -2, -3) | realestate_3_pcntshare in(-1, -2, -3)) then bizc = -3;
if (realestate_4_value in(-1, -2, -3) | realestate_4_pcntshare in(-1, -2, -3)) then bizc = -3;
if (realestate_5_value in(-1, -2, -3) | realestate_5_pcntshare in(-1, -2, -3)) then bizc = -3;
if (realestate_6_value in(-1, -2, -3) | realestate_6_pcntshare in(-1, -2, -3)) then bizc = -3;

/****************************/
/* Compute BDEBT            */
/****************************/

/******************************************/
/* BDEBT Component - debtbiz              */
/******************************************/

if (q13_132_trunc >= 0) then debtbiz = (debtbiz + q13_132_trunc);
else if (q13_132_trunc = 1 & q13_132_ref_1 = 1 & q13_132_sr000001 < 0 & q13_132_sr000002 < 0
& q13_132_uab_a < 0 & q13_132_uab_c < 0) then debtbiz = -1;
else if (q13_132_trunc in(-1, -2) & q13_132_sr000001 < 0 & q13_132_sr000002 < 0
& q13_132_uab_a < 0 & q13_132_uab_c < 0) then debtbiz = q13_132_trunc;
    else if (q13_132_sr000001 >= 0 & q13_132_sr000002 >= 0 & q13_132_sr000002 = q13_132_sr000001) then
    debtbiz = (debtbiz + q13_132_sr000001);
     else if (q13_132_sr000001 >= 0 & q13_132_sr000002 >= 0 & q13_132_sr000002 > q13_132_sr000001) then
     debtbiz = (debtbiz + (((q13_132_sr000002 - q13_132_sr000001)/2) + q13_132_sr000001));
      else if (q13_132_sr000001 >= 0 & q13_132_sr000002 >= 0 & q13_132_sr000002 < q13_132_sr000001) then
      debtbiz = (debtbiz + (((q13_132_sr000001 - q13_132_sr000002)/2) + q13_132_sr000002));
         else if (q13_132_trunc in(-1, -2, -4) & q13_132_uab_c = 0) then debtbiz = (debtbiz + quartile3);
          else if (q13_132_trunc in(-1, -2, -4) & q13_132_uab_c = 1) then debtbiz = (debtbiz + 200000);
           else if (q13_132_uab_a in(-1, -2) | q13_132_uab_c in(-1, -2)) then debtbiz = -3;

/***************************************************************************/
/* BDEBT Components - farm_#_debt, business_#_debt, realestate_#_debt      */
/*       (use ownership percentage computed above for bizc)                */
/***************************************************************************/

if (q13_fjt_12_01 > -4) then farm_1_debt1 = q13_fjt_12_01;
if (q13_fjt_12_02 > -4) then farm_2_debt1 = q13_fjt_12_02;
if (q13_fjt_12_03 > -4) then farm_3_debt1 = q13_fjt_12_03;
if (q13_fjt_12_04 > -4) then farm_4_debt1 = q13_fjt_12_04;
if (q13_bppjt_12_trunc_01 > -4) then business_1_debt1 = q13_bppjt_12_trunc_01;
if (q13_bppjt_12_02 > -4) then business_2_debt1 = q13_bppjt_12_02;
if (q13_bppjt_12_03 > -4) then business_3_debt1 = q13_bppjt_12_03;
if (q13_rejt_12_trunc > -4) then realestate_1_debt1 = q13_rejt_12_trunc;

if (farm_1_debt1 >= 0 & farm_1_pcntshare >= 0) then farm_1_debt = (farm_1_debt1 * farm_1_pcntshare);
if (farm_2_debt1 >= 0 & farm_2_pcntshare >= 0) then farm_2_debt = (farm_2_debt1 * farm_2_pcntshare);
if (farm_3_debt1 >= 0 & farm_3_pcntshare >= 0) then farm_3_debt = (farm_3_debt1 * farm_3_pcntshare);
if (farm_4_debt1 >= 0 & farm_4_pcntshare >= 0) then farm_4_debt = (farm_4_debt1 * farm_4_pcntshare);
if (business_1_debt1 >= 0 & business_1_pcntshare >= 0) then business_1_debt = (business_1_debt1 * business_1_pcntshare);
if (business_2_debt1 >= 0 & business_2_pcntshare >= 0) then business_2_debt = (business_2_debt1 * business_2_pcntshare);
if (business_3_debt1 >= 0 & business_3_pcntshare >= 0) then business_3_debt = (business_3_debt1 * business_3_pcntshare);
if (realestate_1_debt1 >= 0 & realestate_1_pcntshare >= 0) then realestate_1_debt = (realestate_1_debt1 * realestate_1_pcntshare);

/*******************************/
/* Add components BDEBT        */
/*******************************/

if (debtbiz >= 0) then bdebtc = (bdebtc + debtbiz);
if (farm_1_debt >= 0) then bdebtc = (bdebtc + farm_1_debt);
if (farm_2_debt >= 0) then bdebtc = (bdebtc + farm_2_debt);
if (farm_3_debt >= 0) then bdebtc = (bdebtc + farm_3_debt);
if (farm_4_debt >= 0) then bdebtc = (bdebtc + farm_4_debt);
if (business_1_debt >= 0) then bdebtc = (bdebtc + business_1_debt);
if (business_2_debt >= 0) then bdebtc = (bdebtc + business_2_debt);
if (business_3_debt >= 0) then bdebtc = (bdebtc + business_3_debt);
if (realestate_1_debt >= 0) then bdebtc = (bdebtc + realestate_1_debt);

if (debtbiz in(-1, -2, -3)) then bdebtc = -3;
if (farm_1_debt in(-1, -2, -3) | farm_1_pcntshare in(-1, -2, -3)) then bdebtc = -3;
if (farm_2_debt in(-1, -2, -3) | farm_2_pcntshare in(-1, -2, -3)) then bdebtc = -3;
if (farm_3_debt in(-1, -2, -3) | farm_3_pcntshare in(-1, -2, -3)) then bdebtc = -3;
if (farm_4_debt in(-1, -2, -3) | farm_4_pcntshare in(-1, -2, -3)) then bdebtc = -3;
if (business_1_debt in(-1, -2, -3) | business_1_pcntshare in(-1, -2, -3)) then bdebtc = -3;
if (business_2_debt in(-1, -2, -3) | business_2_pcntshare in(-1, -2, -3)) then bdebtc = -3;
if (business_3_debt in(-1, -2, -3) | business_3_pcntshare in(-1, -2, -3)) then bdebtc = -3;
if (realestate_1_debt in(-1, -2, -3) | realestate_1_pcntshare in(-1, -2, -3)) then bdebtc = -3;

/****************************/
/* Compute CASH             */
/****************************/

/******************************************/
/* CASH Component - cash                  */
/******************************************/

if (fa_1 = 1 & fa_1a_trunc >= 0) then cashc = (cashc + fa_1a_trunc);
else if (fa_1 = 1 & fa_1_ref_1 = 1 & fa_1a_sr000001_trunc < 0 & fa_1a_sr000002_trunc < 0
& fa_1a_uab_a < 0 & fa_1a_uab_b < 0 & fa_1a_uab_c < 0) then cashc = -1;
else if (fa_1 = 1 & fa_1a_trunc in(-1, -2) & fa_1a_sr000001_trunc < 0 & fa_1a_sr000002_trunc < 0
& fa_1a_uab_a < 0 & fa_1a_uab_b < 0 & fa_1a_uab_c < 0) then cashc = fa_1a_trunc;
    else if (fa_1a_sr000001_trunc >= 0 & fa_1a_sr000002_trunc >= 0 & fa_1a_sr000002_trunc = fa_1a_sr000001_trunc) then
    cashc = (cashc + fa_1a_sr000001_trunc);
     else if (fa_1a_sr000001_trunc >= 0 & fa_1a_sr000002_trunc >= 0 & fa_1a_sr000002_trunc > fa_1a_sr000001_trunc) then
     cashc = (cashc + (((fa_1a_sr000002_trunc - fa_1a_sr000001_trunc)/2) + fa_1a_sr000001_trunc));
      else if (fa_1a_sr000001_trunc >= 0 & fa_1a_sr000002_trunc >= 0 & fa_1a_sr000002_trunc < fa_1a_sr000001_trunc) then
      cashc = (cashc + (((fa_1a_sr000001_trunc - fa_1a_sr000002_trunc)/2) + fa_1a_sr000002_trunc));
       else if (fa_1a_trunc in(-1, -2, -4) & fa_1a_uab_b = 0) then cashc = (cashc + quartile1);
        else if (fa_1a_trunc in(-1, -2, -4) & fa_1a_uab_b = 1) then cashc = (cashc + quartile2);
         else if (fa_1a_trunc in(-1, -2, -4) & fa_1a_uab_c = 0) then cashc = (cashc + quartile3);
          else if (fa_1a_trunc in(-1, -2, -4) & fa_1a_uab_c = 1) then cashc = (cashc + 70000);
           else if (fa_1a_uab_a in(-1, -2) | fa_1a_uab_b in(-1, -2) | fa_1a_uab_c in(-1, -2)) then cashc = -3;

/*************************************************************/
/* No need to add components for CASHC - set -3 missing      */
/*************************************************************/

if (cashc in(-1, -2, -3)) then cashc = -3;

/****************************/
/* Compute CDS              */
/****************************/

/******************************************/
/* CDS Component - cds                    */
/******************************************/

if (fa_2 = 1 & fa_2a_trunc >= 0) then cdsc = (cdsc + fa_2a_trunc);
else if (fa_2 = 1 & fa_2_ref_1 = 1 & fa_2a_sr000001 < 0 & fa_2a_sr000002 < 0
& fa_2a_uab_a < 0 & fa_2a_uab_b < 0 & fa_2a_uab_c < 0) then cdsc = -1;
else if (fa_2 = 1 & fa_2a_trunc in(-1, -2) & fa_2a_sr000001 < 0 & fa_2a_sr000002 < 0
& fa_2a_uab_a < 0 & fa_2a_uab_b < 0 & fa_2a_uab_c < 0) then cdsc = fa_2a_trunc;
    else if (fa_2a_sr000001 >= 0 & fa_2a_sr000002 >= 0 & fa_2a_sr000002 = fa_2a_sr000001) then
    cdsc = (cdsc + fa_2a_sr000001);
     else if (fa_2a_sr000001 >= 0 & fa_2a_sr000002 >= 0 & fa_2a_sr000002 > fa_2a_sr000001) then
     cdsc = (cdsc + (((fa_2a_sr000002 - fa_2a_sr000001)/2) + fa_2a_sr000001));
      else if (fa_2a_sr000001 >= 0 & fa_2a_sr000002 >= 0 & fa_2a_sr000002 < fa_2a_sr000001) then
      cdsc = (cdsc + (((fa_2a_sr000001 - fa_2a_sr000002)/2) + fa_2a_sr000002));
       else if (fa_2a_trunc in(-1, -2, -4) & fa_2a_uab_b = 0) then cdsc = (cdsc + quartile1);
        else if (fa_2a_trunc in(-1, -2, -4) & fa_2a_uab_b = 1) then cdsc = (cdsc + quartile2);
         else if (fa_2a_trunc in(-1, -2, -4) & fa_2a_uab_c = 0) then cdsc = (cdsc + quartile3);
          else if (fa_2a_trunc in(-1, -2, -4) & fa_2a_uab_c = 1) then cdsc = (cdsc + 60000);
           else if (fa_2a_uab_a in(-1, -2) | fa_2a_uab_b in(-1, -2) | fa_2a_uab_c in(-1, -2)) then cdsc = -3;

/*************************************************************/
/* No need to add components for CDSC - set -3 missing       */
/*************************************************************/

if (cdsc in(-1, -2, -3)) then cdsc = -3;

/****************************/
/* Compute STOCK            */
/****************************/

/******************************************/
/* STOCK Component - govbonds             */
/******************************************/

if (fa_3 = 1 & fa_3a >= 0) then govbonds = (govbonds + fa_3a);
else if (fa_3 = 1 & fa_3_ref_1 = 1 & fa_3a_sr000001 < 0 & fa_3a_sr000002 < 0
& fa_3a_uab_a < 0 & fa_3a_uab_b < 0 & fa_3a_uab_c < 0) then govbonds = -1;
else if (fa_3 = 1 & fa_3a in(-1, -2) & fa_3a_sr000001 < 0 & fa_3a_sr000002 < 0
& fa_3a_uab_a < 0 & fa_3a_uab_b < 0 & fa_3a_uab_c < 0) then govbonds = fa_3a;
    else if (fa_3a_sr000001 >= 0 & fa_3a_sr000002 >= 0 & fa_3a_sr000002 = fa_3a_sr000001) then
    govbonds = (govbonds + fa_3a_sr000001);
     else if (fa_3a_sr000001 >= 0 & fa_3a_sr000002 >= 0 & fa_3a_sr000002 > fa_3a_sr000001) then
     govbonds = (govbonds + (((fa_3a_sr000002 - fa_3a_sr000001)/2) + fa_3a_sr000001));
      else if (fa_3a_sr000001 >= 0 & fa_3a_sr000002 >= 0 & fa_3a_sr000002 < fa_3a_sr000001) then
      govbonds = (govbonds + (((fa_3a_sr000001 - fa_3a_sr000002)/2) + fa_3a_sr000002));
       else if (fa_3a in(-1, -2, -4) & fa_3a_uab_b = 0) then govbonds = (govbonds + quartile1);
        else if (fa_3a in(-1, -2, -4) & fa_3a_uab_b = 1) then govbonds = (govbonds + quartile2);
         else if (fa_3a in(-1, -2, -4) & fa_3a_uab_c = 0) then govbonds = (govbonds + quartile3);
          else if (fa_3a in(-1, -2, -4) & fa_3a_uab_c = 1) then govbonds = (govbonds + 45000);
           else if (fa_3a_uab_a in(-1, -2) | fa_3a_uab_b in(-1, -2) | fa_3a_uab_c in(-1, -2)) then govbonds = -3;

/******************************************/
/* STOCK Component - mutual               */
/******************************************/

if (fa_4 = 1 & fa_4a_trunc >= 0) then mutual = (mutual + fa_4a_trunc);
else if (fa_4 = 1 & fa_4_ref_1 = 1 & fa_4a_sr000001 < 0 & fa_4a_sr000002 < 0
& fa_4a_uab_a < 0 & fa_4a_uab_b < 0 & fa_4a_uab_c < 0) then mutual = -1;
else if (fa_4 = 1 & fa_4a_trunc in(-1, -2) & fa_4a_sr000001 < 0 & fa_4a_sr000002 < 0
& fa_4a_uab_a < 0 & fa_4a_uab_b < 0 & fa_4a_uab_c < 0) then mutual = fa_4a_trunc;
    else if (fa_4a_sr000001 >= 0 & fa_4a_sr000002 >= 0 & fa_4a_sr000002 = fa_4a_sr000001) then
    mutual = (mutual + fa_4a_sr000001);
     else if (fa_4a_sr000001 >= 0 & fa_4a_sr000002 >= 0 & fa_4a_sr000002 > fa_4a_sr000001) then
     mutual = (mutual + (((fa_4a_sr000002 - fa_4a_sr000001)/2) + fa_4a_sr000001));
      else if (fa_4a_sr000001 >= 0 & fa_4a_sr000002 >= 0 & fa_4a_sr000002 < fa_4a_sr000001) then
      mutual = (mutual + (((fa_4a_sr000001 - fa_4a_sr000002)/2) + fa_4a_sr000002));
       else if (fa_4a_trunc in(-1, -2, -4) & fa_4a_uab_b = 0) then mutual = (mutual + quartile1);
        else if (fa_4a_trunc in(-1, -2, -4) & fa_4a_uab_b = 1) then mutual = (mutual + quartile2);
         else if (fa_4a_trunc in(-1, -2, -4) & fa_4a_uab_c = 0) then mutual = (mutual + quartile3);
          else if (fa_4a_trunc in(-1, -2, -4) & fa_4a_uab_c = 1) then mutual = (mutual + 100000);
           else if (fa_4a_uab_a in(-1, -2) | fa_4a_uab_b in(-1, -2) | fa_4a_uab_c in(-1, -2)) then mutual = -3;

/******************************************/
/* STOCK Component - lifeinsure           */
/******************************************/

if (fa_5 = 1 & fa_5a_trunc >= 0) then lifeinsure = (lifeinsure + fa_5a_trunc);
else if (fa_5 = 1 & fa_5_ref_1 = 1 & fa_5a_sr000001 < 0 & fa_5a_sr000002 < 0
& fa_5a_uab_a < 0 & fa_5a_uab_b < 0 & fa_5a_uab_c < 0) then lifeinsure = -1;
else if (fa_5 = 1 & fa_5a_trunc in(-1, -2) & fa_5a_sr000001 < 0 & fa_5a_sr000002 < 0
& fa_5a_uab_a < 0 & fa_5a_uab_b < 0 & fa_5a_uab_c < 0) then lifeinsure = fa_5a_trunc;
    else if (fa_5a_sr000001 >= 0 & fa_5a_sr000002 >= 0 & fa_5a_sr000002 = fa_5a_sr000001) then
    lifeinsure = (lifeinsure + fa_5a_sr000001);
     else if (fa_5a_sr000001 >= 0 & fa_5a_sr000002 >= 0 & fa_5a_sr000002 > fa_5a_sr000001) then
     lifeinsure = (lifeinsure + (((fa_5a_sr000002 - fa_5a_sr000001)/2) + fa_5a_sr000001));
      else if (fa_5a_sr000001 >= 0 & fa_5a_sr000002 >= 0 & fa_5a_sr000002 < fa_5a_sr000001) then
      lifeinsure = (lifeinsure + (((fa_5a_sr000001 - fa_5a_sr000002)/2) + fa_5a_sr000002));
       else if (fa_5a_trunc in(-1, -2, -4) & fa_5a_uab_b = 0) then lifeinsure = (lifeinsure + quartile1);
        else if (fa_5a_trunc in(-1, -2, -4) & fa_5a_uab_b = 1) then lifeinsure = (lifeinsure + quartile2);
         else if (fa_5a_trunc in(-1, -2, -4) & fa_5a_uab_c = 0) then lifeinsure = (lifeinsure + quartile3);
          else if (fa_5a_trunc in(-1, -2, -4) & fa_5a_uab_c = 1) then lifeinsure = (lifeinsure + 100000);
           else if (fa_5a_uab_a in(-1, -2) | fa_5a_uab_b in(-1, -2) | fa_5a_uab_c in(-1, -2)) then lifeinsure = -3;

/******************************************/
/* STOCK Component - shares               */
/******************************************/

if (fa_9 = 1 & fa_9a_trunc >= 0) then shares = (shares + fa_9a_trunc);
else if (fa_9 = 1 & fa_9_ref_1 = 1 & fa_9a_sr000001 < 0 & fa_9a_sr000002_trunc < 0
& fa_9a_uab_a < 0 & fa_9a_uab_b < 0 & fa_9a_uab_c < 0) then shares = -1;
else if (fa_9 = 1 & fa_9a_trunc in(-1, -2) & fa_9a_sr000001 < 0 & fa_9a_sr000002_trunc < 0
& fa_9a_uab_a < 0 & fa_9a_uab_b < 0 & fa_9a_uab_c < 0) then shares = fa_9a_trunc;
    else if (fa_9a_sr000001 >= 0 & fa_9a_sr000002_trunc >= 0 & fa_9a_sr000002_trunc = fa_9a_sr000001) then
    shares = (shares + fa_9a_sr000001);
     else if (fa_9a_sr000001 >= 0 & fa_9a_sr000002_trunc >= 0 & fa_9a_sr000002_trunc > fa_9a_sr000001) then
     shares = (shares + (((fa_9a_sr000002_trunc - fa_9a_sr000001)/2) + fa_9a_sr000001));
      else if (fa_9a_sr000001 >= 0 & fa_9a_sr000002_trunc >= 0 & fa_9a_sr000002_trunc < fa_9a_sr000001) then
      shares = (shares + (((fa_9a_sr000001 - fa_9a_sr000002_trunc)/2) + fa_9a_sr000002_trunc));
       else if (fa_9a_trunc in(-1, -2, -4) & fa_9a_uab_b = 0) then shares = (shares + quartile1);
        else if (fa_9a_trunc in(-1, -2, -4) & fa_9a_uab_b = 1) then shares = (shares + quartile2);
         else if (fa_9a_trunc in(-1, -2, -4) & fa_9a_uab_c = 0) then shares = (shares + quartile3);
          else if (fa_9a_trunc in(-1, -2, -4) & fa_9a_uab_c = 1) then shares = (shares + 100000);
           else if (fa_9a_uab_a in(-1, -2) | fa_9a_uab_b in(-1, -2) | fa_9a_uab_c in(-1, -2)) then shares = -3;

/******************************************/
/* STOCK Component - corpbond             */
/******************************************/

if (fa_10 = 1 & fa_10a_trunc >= 0) then corpbond = (corpbond + fa_10a_trunc);
else if (fa_10 = 1 & fa_10_ref_1 = 1 & fa_10a_sr000001 < 0 & fa_10a_sr000002 < 0
& fa_10a_uab_a < 0 & fa_10a_uab_c < 0) then corpbond = -1;
else if (fa_10 = 1 & fa_10a_trunc in(-1, -2) & fa_10a_sr000001 < 0 & fa_10a_sr000002 < 0
& fa_10a_uab_a < 0 & fa_10a_uab_c < 0) then corpbond = fa_10a_trunc;
    else if (fa_10a_sr000001 >= 0 & fa_10a_sr000002 >= 0 & fa_10a_sr000002 = fa_10a_sr000001) then
    corpbond = (corpbond + fa_10a_sr000001);
     else if (fa_10a_sr000001 >= 0 & fa_10a_sr000002 >= 0 & fa_10a_sr000002 > fa_10a_sr000001) then
     corpbond = (corpbond + (((fa_10a_sr000002 - fa_10a_sr000001)/2) + fa_10a_sr000001));
      else if (fa_10a_sr000001 >= 0 & fa_10a_sr000002 >= 0 & fa_10a_sr000002 < fa_10a_sr000001) then
      corpbond = (corpbond + (((fa_10a_sr000001 - fa_10a_sr000002)/2) + fa_10a_sr000002));
       else if (fa_10a_trunc in(-1, -2, -4) & fa_10a_uab_c = 0) then corpbond = (corpbond + quartile3);
        else if (fa_10a_trunc in(-1, -2, -4) & fa_10a_uab_c = 1) then corpbond = (corpbond + 190000);
         else if (fa_10a_uab_a in(-1, -2) /* | fa_10a_uab_b in(-1, -2) */ | fa_10a_uab_c in(-1, -2)) then corpbond = -3;

/******************************************/
/* STOCK Component - moneyowedtor         */
/******************************************/

if (fa_11 = 1 & fa_11a_trunc >= 0) then moneyowedtor = (moneyowedtor + fa_11a_trunc);
else if (fa_11 = 1 & fa_11_ref_1 = 1 & fa_11a_sr000001 < 0 & fa_11a_sr000002 < 0
& fa_11a_uab_a < 0 & fa_11a_uab_b < 0 & fa_11a_uab_c < 0) then moneyowedtor = -1;
else if (fa_11 = 1 & fa_11a_trunc in(-1, -2) & fa_11a_sr000001 < 0 & fa_11a_sr000002 < 0
& fa_11a_uab_a < 0 & fa_11a_uab_b < 0 & fa_11a_uab_c < 0) then moneyowedtor = fa_11a_trunc;
    else if (fa_11a_sr000001 >= 0 & fa_11a_sr000002 >= 0 & fa_11a_sr000002 = fa_11a_sr000001) then
    moneyowedtor = (moneyowedtor + fa_11a_sr000001);
     else if (fa_11a_sr000001 >= 0 & fa_11a_sr000002 >= 0 & fa_11a_sr000002 > fa_11a_sr000001) then
     moneyowedtor = (moneyowedtor + (((fa_11a_sr000002 - fa_11a_sr000001)/2) + fa_11a_sr000001));
      else if (fa_11a_sr000001 >= 0 & fa_11a_sr000002 >= 0 & fa_11a_sr000002 < fa_11a_sr000001) then
      moneyowedtor = (moneyowedtor + (((fa_11a_sr000001 - fa_11a_sr000002)/2) + fa_11a_sr000002));
       else if (fa_11a_trunc in(-1, -2, -4) & fa_11a_uab_b = 0) then moneyowedtor = (moneyowedtor + quartile1);
        else if (fa_11a_trunc in(-1, -2, -4) & fa_11a_uab_b = 1) then moneyowedtor = (moneyowedtor + quartile2);
         else if (fa_11a_trunc in(-1, -2, -4) & fa_11a_uab_c = 0) then moneyowedtor = (moneyowedtor + quartile3);
          else if (fa_11a_trunc in(-1, -2, -4) & fa_11a_uab_c = 1) then moneyowedtor = (moneyowedtor + 90000);
           else if (fa_11a_uab_a in(-1, -2) | fa_11a_uab_b in(-1, -2) | fa_11a_uab_c in(-1, -2)) then moneyowedtor = -3;

/*******************************/
/* Add components STOCK        */
/*******************************/

if (govbonds >= 0) then stockc = (stockc + govbonds);
if (mutual >= 0) then stockc = (stockc + mutual);
if (lifeinsure >= 0) then stockc = (stockc + lifeinsure);
if (shares >= 0) then stockc = (stockc + shares);
if (corpbond >= 0) then stockc = (stockc + corpbond);
if (moneyowedtor >= 0) then stockc = (stockc + moneyowedtor);
if (govbonds in(-1, -2, -3)) then stockc = -3;
else if (mutual in(-1, -2, -3)) then stockc = -3;
else if (lifeinsure in(-1, -2, -3)) then stockc = -3;
else if (shares in(-1, -2, -3)) then stockc = -3;
else if (corpbond in(-1, -2, -3)) then stockc = -3;
else if (moneyowedtor in(-1, -2, -3)) then stockc = -3;

/****************************/
/* Compute HOME             */
/****************************/

/******************************************/
/* HOME Component - home1                 */
/******************************************/

if (nfa_1 = 1 & nfa_1a_trunc >= 0) then home1 = (home1 + nfa_1a_trunc);
else if (nfa_1 = 1 & nfa_1_ref_1 = 1 & nfa_1a_sr000001_trunc < 0 & nfa_1a_sr000002_trunc < 0
& nfa_1a_uab_a < 0 & nfa_1a_uab_b < 0 & nfa_1a_uab_c < 0) then home1 = -1;
else if (nfa_1 = 1 & nfa_1a_trunc in(-1, -2) & nfa_1a_sr000001_trunc < 0 & nfa_1a_sr000002_trunc < 0
& nfa_1a_uab_a < 0 & nfa_1a_uab_b < 0 & nfa_1a_uab_c < 0) then home1 = nfa_1a_trunc;
    else if (nfa_1a_sr000001_trunc >= 0 & nfa_1a_sr000002_trunc >= 0 & nfa_1a_sr000002_trunc = nfa_1a_sr000001_trunc) then
    home1 = (home1 + nfa_1a_sr000001_trunc);
     else if (nfa_1a_sr000001_trunc >= 0 & nfa_1a_sr000002_trunc >= 0 & nfa_1a_sr000002_trunc > nfa_1a_sr000001_trunc) then
     home1 = (home1 + (((nfa_1a_sr000002_trunc - nfa_1a_sr000001_trunc)/2) + nfa_1a_sr000001_trunc));
      else if (nfa_1a_sr000001_trunc >= 0 & nfa_1a_sr000002_trunc >= 0 & nfa_1a_sr000002_trunc < nfa_1a_sr000001_trunc) then
      home1 = (home1 + (((nfa_1a_sr000001_trunc - nfa_1a_sr000002_trunc)/2) + nfa_1a_sr000002_trunc));
       else if (nfa_1a_trunc in(-1, -2, -4) & nfa_1a_uab_b = 0) then home1 = (home1 + quartile1);
        else if (nfa_1a_trunc in(-1, -2, -4) & nfa_1a_uab_b = 1) then home1 = (home1 + quartile2);
         else if (nfa_1a_trunc in(-1, -2, -4) & nfa_1a_uab_c = 0) then home1 = (home1 + quartile3);
          else if (nfa_1a_trunc in(-1, -2, -4) & nfa_1a_uab_c = 1) then home1 = (home1 + 200000);
           else if (nfa_1a_uab_a in(-1, -2) | nfa_1a_uab_b in(-1, -2) | nfa_1a_uab_c in(-1, -2)) then home1 = -3;

/******************************************/
/* HOME Component - secondhome            */
/******************************************/

if (nfa_2 = 1 & nfa_2a_trunc >= 0) then secondhome = (secondhome + nfa_2a_trunc);
else if (nfa_2 = 1 & nfa_2_ref_1 = 1 & nfa_2a_sr000001 < 0 & nfa_2a_sr000002 < 0
& nfa_2a_uab_a < 0 & nfa_2a_uab_b < 0 & nfa_2a_uab_c < 0) then secondhome = -1;
else if (nfa_2 = 1 & nfa_2a_trunc in(-1, -2) & nfa_2a_sr000001 < 0 & nfa_2a_sr000002 < 0
& nfa_2a_uab_a < 0 & nfa_2a_uab_b < 0 & nfa_2a_uab_c < 0) then secondhome = nfa_2a_trunc;
    else if (nfa_2a_sr000001 >= 0 & nfa_2a_sr000002 >= 0 & nfa_2a_sr000002 = nfa_2a_sr000001) then
    secondhome = (secondhome + nfa_2a_sr000001);
     else if (nfa_2a_sr000001 >= 0 & nfa_2a_sr000002 >= 0 & nfa_2a_sr000002 > nfa_2a_sr000001) then
     secondhome = (secondhome + (((nfa_2a_sr000002 - nfa_2a_sr000001)/2) + nfa_2a_sr000001));
      else if (nfa_2a_sr000001 >= 0 & nfa_2a_sr000002 >= 0 & nfa_2a_sr000002 < nfa_2a_sr000001) then
      secondhome = (secondhome + (((nfa_2a_sr000001 - nfa_2a_sr000002)/2) + nfa_2a_sr000002));
       else if (nfa_2a_trunc in(-1, -2, -4) & nfa_2a_uab_b = 0) then secondhome = (secondhome + quartile1);
        else if (nfa_2a_trunc in(-1, -2, -4) & nfa_2a_uab_b = 1) then secondhome = (secondhome + quartile2);
         else if (nfa_2a_trunc in(-1, -2, -4) & nfa_2a_uab_c = 0) then secondhome = (secondhome + quartile3);
          else if (nfa_2a_trunc in(-1, -2, -4) & nfa_2a_uab_c = 1) then secondhome = (secondhome + 180000);
           else if (nfa_2a_uab_a in(-1, -2) | nfa_2a_uab_b in(-1, -2) | nfa_2a_uab_c in(-1, -2)) then secondhome = -3;

/*******************************/
/* Add components HOME         */
/*******************************/

if (home1 >= 0) then homec = (homec + home1);
if (secondhome >= 0) then homec = (homec + secondhome);
if (home1 in(-1, -2, -3)) then homec = -3;
else if (secondhome in(-1, -2, -3)) then homec = -3;

/****************************/
/* Compute MORT             */
/****************************/

/******************************************/
/* MORT Component - mort1                 */
/******************************************/

if (nfa_1b_trunc >= 0) then mort1 = (mort1 + nfa_1b_trunc);
else if (nfa_1b_ref_1 = 1 & nfa_1b_sr000001_trunc < 0 & nfa_1b_sr000002_trunc < 0
& nfa_1b_uab_a < 0 & nfa_1b_uab_b < 0) then mort1 = -1;
else if (nfa_1b_trunc in(-1, -2) & nfa_1b_sr000001_trunc < 0 & nfa_1b_sr000002_trunc < 0
& nfa_1b_uab_a < 0 & nfa_1b_uab_b < 0) then mort1 = nfa_1b_trunc;
    else if (nfa_1b_sr000001_trunc >= 0 & nfa_1b_sr000002_trunc >= 0 & nfa_1b_sr000002_trunc = nfa_1b_sr000001_trunc) then
    mort1 = (mort1 + nfa_1b_sr000001_trunc);
     else if (nfa_1b_sr000001_trunc >= 0 & nfa_1b_sr000002_trunc >= 0 & nfa_1b_sr000002_trunc > nfa_1b_sr000001_trunc) then
     mort1 = (mort1 + (((nfa_1b_sr000002_trunc - nfa_1b_sr000001_trunc)/2) + nfa_1b_sr000001_trunc));
      else if (nfa_1b_sr000001_trunc >= 0 & nfa_1b_sr000002_trunc >= 0 & nfa_1b_sr000002_trunc < nfa_1b_sr000001_trunc) then
      mort1 = (mort1 + (((nfa_1b_sr000001_trunc - nfa_1b_sr000002_trunc)/2) + nfa_1b_sr000002_trunc));
       else if (nfa_1b_trunc in(-1, -2, -4) & nfa_1b_uab_b = 0) then mort1 = (mort1 + quartile1);
        else if (nfa_1b_trunc in(-1, -2, -4) & nfa_1b_uab_b = 1) then mort1 = (mort1 + quartile2);
         else if (nfa_1b_uab_a in(-1, -2) | nfa_1b_uab_b in(-1, -2)) then mort1 = -3;

/******************************************/
/* MORT Component - secondmort            */
/******************************************/

if (nfa_2b_trunc >= 0) then secondmort = (secondmort + nfa_2b_trunc);
else if (nfa_2b_ref_1 = 1 & nfa_2b_sr000001 < 0 & nfa_2b_sr000002 < 0
& nfa_2b_uab_a < 0 & nfa_2b_uab_b < 0 & nfa_2b_uab_c < 0) then secondmort = -1;
else if (nfa_2b_trunc in(-1, -2) & nfa_2b_sr000001 < 0 & nfa_2b_sr000002 < 0
& nfa_2b_uab_a < 0 & nfa_2b_uab_b < 0 & nfa_2b_uab_c < 0) then secondmort = nfa_2b_trunc;
    else if (nfa_2b_sr000001 >= 0 & nfa_2b_sr000002 >= 0 & nfa_2b_sr000002 = nfa_2b_sr000001) then
    secondmort = (secondmort + nfa_2b_sr000001);
     else if (nfa_2b_sr000001 >= 0 & nfa_2b_sr000002 >= 0 & nfa_2b_sr000002 > nfa_2b_sr000001) then
     secondmort = (secondmort + (((nfa_2b_sr000002 - nfa_2b_sr000001)/2) + nfa_2b_sr000001));
      else if (nfa_2b_sr000001 >= 0 & nfa_2b_sr000002 >= 0 & nfa_2b_sr000002 < nfa_2b_sr000001) then
      secondmort = (secondmort + (((nfa_2b_sr000001 - nfa_2b_sr000002)/2) + nfa_2b_sr000002));
       else if (nfa_2b_trunc in(-1, -2, -4) & nfa_2b_uab_b = 0) then secondmort = (secondmort + quartile1);
        else if (nfa_2b_trunc in(-1, -2, -4) & nfa_2b_uab_b = 1) then secondmort = (secondmort + quartile2);
         else if (nfa_2b_trunc in(-1, -2, -4) & nfa_2b_uab_c = 0) then secondmort = (secondmort + quartile3);
          else if (nfa_2b_trunc in(-1, -2, -4) & nfa_2b_uab_c = 1) then secondmort = (secondmort + 145000);
           else if (nfa_2b_uab_a in(-1, -2) | nfa_2b_uab_b in(-1, -2) | nfa_2b_uab_c in(-1, -2)) then secondmort = -3;

/*******************************/
/* Add components MORT         */
/*******************************/

if (mort1 >= 0) then mortc = (mortc + mort1);
if (secondmort >= 0) then mortc = (mortc + secondmort);
if (mort1 in(-1, -2, -3)) then mortc = -3;
else if (secondmort in(-1, -2, -3)) then mortc = -3;

/****************************/
/* Compute PDEBT            */
/****************************/

/******************************************/
/* PDEBT Component - pdebt1               */
/******************************************/

if (nfa_1c >= 0) then pdebt1 = (pdebt1 + nfa_1c);
else if (nfa_1c_ref_1 = 1 & nfa_1c_sr000001 < 0 & nfa_1c_sr000002 < 0
& nfa_1c_uab_a < 0 & nfa_1c_uab_b < 0 & nfa_1c_uab_c < 0) then pdebt1 = -1;
else if (nfa_1c in(-1, -2) & nfa_1c_sr000001 < 0 & nfa_1c_sr000002 < 0
& nfa_1c_uab_a < 0 & nfa_1c_uab_b < 0 & nfa_1c_uab_c < 0) then pdebt1 = nfa_1c;
    else if (nfa_1c_sr000001 >= 0 & nfa_1c_sr000002 >= 0 & nfa_1c_sr000002 = nfa_1c_sr000001) then
    pdebt1 = (pdebt1 + nfa_1c_sr000001);
     else if (nfa_1c_sr000001 >= 0 & nfa_1c_sr000002 >= 0 & nfa_1c_sr000002 > nfa_1c_sr000001) then
     pdebt1 = (pdebt1 + (((nfa_1c_sr000002 - nfa_1c_sr000001)/2) + nfa_1c_sr000001));
      else if (nfa_1c_sr000001 >= 0 & nfa_1c_sr000002 >= 0 & nfa_1c_sr000002 < nfa_1c_sr000001) then
      pdebt1 = (pdebt1 + (((nfa_1c_sr000001 - nfa_1c_sr000002)/2) + nfa_1c_sr000002));
       else if (nfa_1c in(-1, -2, -4) & nfa_1c_uab_b = 0) then pdebt1 = (pdebt1 + quartile1);
        else if (nfa_1c in(-1, -2, -4) & nfa_1c_uab_b = 1) then pdebt1 = (pdebt1 + quartile2);
         else if (nfa_1c in(-1, -2, -4) & nfa_1c_uab_c = 0) then pdebt1 = (pdebt1 + quartile3);
          else if (nfa_1c in(-1, -2, -4) & nfa_1c_uab_c = 1) then pdebt1 = (pdebt1 + 50000);
           else if (nfa_1c_uab_a in(-1, -2) | nfa_1c_uab_b in(-1, -2) | nfa_1c_uab_c in(-1, -2)) then pdebt1 = -3;

/******************************************/
/* PDEBT Component - secondpdebt          */
/******************************************/

if (nfa_2c >= 0) then secondpdebt = (secondpdebt + nfa_2c);
else if (nfa_2c_ref_1 = 1 & nfa_2c_sr000001 < 0 & nfa_2c_sr000002 < 0
& nfa_2c_uab_a < 0) then secondpdebt = -1;
else if (nfa_2c in(-1, -2) & nfa_2c_sr000001 < 0 & nfa_2c_sr000002 < 0
& nfa_2c_uab_a < 0) then secondpdebt = nfa_2c;
    else if (nfa_2c_sr000001 >= 0 & nfa_2c_sr000002 >= 0 & nfa_2c_sr000002 = nfa_2c_sr000001) then
    secondpdebt = (secondpdebt + nfa_2c_sr000001);
     else if (nfa_2c_sr000001 >= 0 & nfa_2c_sr000002 >= 0 & nfa_2c_sr000002 > nfa_2c_sr000001) then
     secondpdebt = (secondpdebt + (((nfa_2c_sr000002 - nfa_2c_sr000001)/2) + nfa_2c_sr000001));
      else if (nfa_2c_sr000001 >= 0 & nfa_2c_sr000002 >= 0 & nfa_2c_sr000002 < nfa_2c_sr000001) then
      secondpdebt = (secondpdebt + (((nfa_2c_sr000001 - nfa_2c_sr000002)/2) + nfa_2c_sr000002));
       else if (nfa_2c_uab_a in(-1, -2)) then secondpdebt = -3;

/*******************************/
/* Add components PDEBT        */
/*******************************/

if (pdebt1 >= 0) then pdebtc = (pdebtc + pdebt1);
if (secondpdebt >= 0) then pdebtc = (pdebtc + secondpdebt);
if (pdebt1 in(-1, -2, -3)) then pdebtc = -3;
else if (secondpdebt in(-1, -2, -3)) then pdebtc = -3;

/****************************/
/* Compute IRA              */
/****************************/

/******************************************/
/* IRA Component - ira1                   */
/******************************************/

if (fa_8 = 1 & fa_8d_trunc_01 >= 0) then ira1 = (ira1 + fa_8d_trunc_01);
else if (fa_8 = 1 & fa_8d_trunc_01 in(-1, -2) & fa_8d_sr000001_01 < 0 & fa_8d_sr000002_01 < 0
& fa_8d_uab_a_01 < 0 & fa_8d_uab_b_01 < 0 & fa_8d_uab_c_01 < 0) then ira1 = fa_8d_trunc_01;
else if (fa_8d_sr000001_01 >= 0 & fa_8d_sr000002_01 >= 0 & fa_8d_sr000002_01 = fa_8d_sr000001_01) then
ira1 = (ira1 + fa_8d_sr000001_01);
   else if (fa_8d_sr000001_01 >= 0 & fa_8d_sr000002_01 >= 0 & fa_8d_sr000002_01 > fa_8d_sr000001_01) then
   ira1 = (ira1 + (((fa_8d_sr000002_01 - fa_8d_sr000001_01)/2) + fa_8d_sr000001_01));
    else if (fa_8d_sr000001_01 >= 0 & fa_8d_sr000002_01 >= 0 & fa_8d_sr000002_01 < fa_8d_sr000001_01) then
    ira1 = (ira1 + (((fa_8d_sr000001_01 - fa_8d_sr000002_01)/2) + fa_8d_sr000002_01));
     else if (fa_8d_trunc_01 in(-1, -2, -4) & fa_8d_uab_b_01 = 0) then ira1 = (ira1 + quartile1);
      else if (fa_8d_trunc_01 in(-1, -2, -4) & fa_8d_uab_b_01 = 1) then ira1 = (ira1 + quartile2);
       else if (fa_8d_trunc_01 in(-1, -2, -4) & fa_8d_uab_c_01 = 0) then ira1 = (ira1 + quartile3);
        else if (fa_8d_trunc_01 in(-1, -2, -4) & fa_8d_uab_c_01 = 1) then ira1 = (ira1 + 80000);
         else if (fa_8d_uab_a_01 in(-1, -2) | fa_8d_uab_b_01 in(-1, -2) | fa_8d_uab_c_01 in(-1, -2)) then ira1 = -3;

/******************************************/
/* IRA Component - ira2                   */
/******************************************/

if (fa_8 = 1 & fa_8d_trunc_02 >= 0) then ira2 = (ira2 + fa_8d_trunc_02);
else if (fa_8 = 1 & fa_8d_trunc_02 in(-1, -2) & fa_8d_sr000001_02 < 0 & fa_8d_sr000002_02 < 0
& fa_8d_uab_a_02 < 0 & fa_8d_uab_b_02 < 0 & fa_8d_uab_c_02 < 0) then ira2 = fa_8d_trunc_02;
else if (fa_8d_sr000001_02 >= 0 & fa_8d_sr000002_02 >= 0 & fa_8d_sr000002_02 = fa_8d_sr000001_02) then
ira2 = (ira2 + fa_8d_sr000001_02);
   else if (fa_8d_sr000001_02 >= 0 & fa_8d_sr000002_02 >= 0 & fa_8d_sr000002_02 > fa_8d_sr000001_02) then
   ira2 = (ira2 + (((fa_8d_sr000002_02 - fa_8d_sr000001_02)/2) + fa_8d_sr000001_02));
    else if (fa_8d_sr000001_02 >= 0 & fa_8d_sr000002_02 >= 0 & fa_8d_sr000002_02 < fa_8d_sr000001_02) then
    ira2 = (ira2 + (((fa_8d_sr000001_02 - fa_8d_sr000002_02)/2) + fa_8d_sr000002_02));
     else if (fa_8d_trunc_02 in(-1, -2, -4) & fa_8d_uab_b_02 = 0) then ira2 = (ira2 + quartile1);
      else if (fa_8d_trunc_02 in(-1, -2, -4) & fa_8d_uab_b_02 = 1) then ira2 = (ira2 + quartile2);
       else if (fa_8d_trunc_02 in(-1, -2, -4) & fa_8d_uab_c_02 = 0) then ira2 = (ira2 + quartile3);
        else if (fa_8d_trunc_02 in(-1, -2, -4) & fa_8d_uab_c_02 = 1) then ira2 = (ira2 + 55000);
         else if (fa_8d_uab_a_02 in(-1, -2) | fa_8d_uab_b_02 in(-1, -2) | fa_8d_uab_c_02 in(-1, -2)) then ira2 = -3;

/******************************************/
/* IRA Component - ira3                   */
/******************************************/

if (fa_8 = 1 & fa_8d_03 >= 0) then ira3 = (ira3 + fa_8d_03);
else if (fa_8 = 1 & fa_8d_03 in(-1, -2) & fa_8d_sr000001_03 < 0 & fa_8d_sr000002_03 < 0
& fa_8d_uab_a_03 < 0 & fa_8d_uab_c_03 < 0) then ira3 = fa_8d_03;
    else if (fa_8d_sr000001_03 >= 0 & fa_8d_sr000002_03 >= 0 & fa_8d_sr000002_03 = fa_8d_sr000001_03) then
    ira3 = (ira3 + fa_8d_sr000001_03);
     else if (fa_8d_sr000001_03 >= 0 & fa_8d_sr000002_03 >= 0 & fa_8d_sr000002_03 > fa_8d_sr000001_03) then
     ira3 = (ira3 + (((fa_8d_sr000002_03 - fa_8d_sr000001_03)/2) + fa_8d_sr000001_03));
      else if (fa_8d_sr000001_03 >= 0 & fa_8d_sr000002_03 >= 0 & fa_8d_sr000002_03 < fa_8d_sr000001_03) then
      ira3 = (ira3 + (((fa_8d_sr000001_03 - fa_8d_sr000002_03)/2) + fa_8d_sr000002_03));
       else if (fa_8d_03 in(-1, -2, -4) & fa_8d_uab_c_03 = 0) then ira3 = (ira3 + quartile3);
        else if (fa_8d_03 in(-1, -2, -4) & fa_8d_uab_c_03 = 1) then ira3 = (ira3 + 100000);
         else if (fa_8d_uab_a_03 in(-1, -2) | fa_8d_uab_c_03 in(-1, -2)) then ira3 = -3;

/******************************************/
/* IRA Component - ira4                   */
/******************************************/

if (fa_8 = 1 & fa_8d_04 >= 0) then ira4 = (ira4 + fa_8d_04);
else if (fa_8 = 1 & fa_8d_04 in(-1, -2) & fa_8d_sr000001_04 < 0 & fa_8d_sr000002_04 < 0
& fa_8d_uab_a_04 < 0 & fa_8d_uab_c_04 < 0) then ira4 = fa_8d_04;
    else if (fa_8d_sr000001_04 >= 0 & fa_8d_sr000002_04 >= 0 & fa_8d_sr000002_04 = fa_8d_sr000001_04) then
    ira4 = (ira4 + fa_8d_sr000001_04);
     else if (fa_8d_sr000001_04 >= 0 & fa_8d_sr000002_04 >= 0 & fa_8d_sr000002_04 > fa_8d_sr000001_04) then
     ira4 = (ira4 + (((fa_8d_sr000002_04 - fa_8d_sr000001_04)/2) + fa_8d_sr000001_04));
      else if (fa_8d_sr000001_04 >= 0 & fa_8d_sr000002_04 >= 0 & fa_8d_sr000002_04 < fa_8d_sr000001_04) then
      ira4 = (ira4 + (((fa_8d_sr000001_04 - fa_8d_sr000002_04)/2) + fa_8d_sr000002_04));
       else if (fa_8d_04 in(-1, -2, -4) & fa_8d_uab_c_04 = 0) then ira4 = (ira4 + quartile3);
        else if (fa_8d_04 in(-1, -2, -4) & fa_8d_uab_c_04 = 1) then ira4 = (ira4 + 115000);
         else if (fa_8d_uab_a_04 in(-1, -2) | fa_8d_uab_c_04 in(-1, -2)) then ira4 = -3;

/******************************************/
/* IRA Component - ira5                   */
/******************************************/

if (fa_8 = 1 & fa_8d_trunc_05 >= 0) then ira5 = (ira5 + fa_8d_trunc_05);
else if (fa_8 = 1 & fa_8d_trunc_05 in(-1, -2) & fa_8d_sr000001_05 < 0 & fa_8d_sr000002_05 < 0
& fa_8d_uab_a_05 < 0 & fa_8d_uab_c_05 < 0) then ira5 = fa_8d_trunc_05;
    else if (fa_8d_sr000001_05 >= 0 & fa_8d_sr000002_05 >= 0 & fa_8d_sr000002_05 = fa_8d_sr000001_05) then
    ira5 = (ira5 + fa_8d_sr000001_05);
     else if (fa_8d_sr000001_05 >= 0 & fa_8d_sr000002_05 >= 0 & fa_8d_sr000002_05 > fa_8d_sr000001_05) then
     ira5 = (ira5 + (((fa_8d_sr000002_05 - fa_8d_sr000001_05)/2) + fa_8d_sr000001_05));
      else if (fa_8d_sr000001_05 >= 0 & fa_8d_sr000002_05 >= 0 & fa_8d_sr000002_05 < fa_8d_sr000001_05) then
      ira5 = (ira5 + (((fa_8d_sr000001_05 - fa_8d_sr000002_05)/2) + fa_8d_sr000002_05));
       else if (fa_8d_trunc_05 in(-1, -2, -4) & fa_8d_uab_c_05 = 0) then ira5 = (ira5 + quartile3);
        else if (fa_8d_trunc_05 in(-1, -2, -4) & fa_8d_uab_c_05 = 1) then ira5 = (ira5 + 65000);
         else if (fa_8d_uab_a_05 in(-1, -2) | fa_8d_uab_c_05 in(-1, -2)) then ira5 = -3;

/******************************************/
/* IRA Component - ira6                   */
/******************************************/

if (fa_8 = 1 & fa_8d_06 >= 0) then ira6 = (ira6 + fa_8d_06);
else if (fa_8 = 1 & fa_8d_06 in(-1, -2) & fa_8d_sr000001_06 < 0 & fa_8d_sr000002_06 < 0
& fa_8d_uab_a_06 < 0 & fa_8d_uab_b_06 < 0 & fa_8d_uab_c_06 < 0) then ira6 = fa_8d_06;
    else if (fa_8d_sr000001_06 >= 0 & fa_8d_sr000002_06 >= 0 & fa_8d_sr000002_06 = fa_8d_sr000001_06) then
    ira6 = (ira6 + fa_8d_sr000001_06);
     else if (fa_8d_sr000001_06 >= 0 & fa_8d_sr000002_06 >= 0 & fa_8d_sr000002_06 > fa_8d_sr000001_06) then
     ira6 = (ira6 + (((fa_8d_sr000002_06 - fa_8d_sr000001_06)/2) + fa_8d_sr000001_06));
      else if (fa_8d_sr000001_06 >= 0 & fa_8d_sr000002_06 >= 0 & fa_8d_sr000002_06 < fa_8d_sr000001_06) then
      ira6 = (ira6 + (((fa_8d_sr000001_06 - fa_8d_sr000002_06)/2) + fa_8d_sr000002_06));
       else if (fa_8d_06 in(-1, -2, -4) & fa_8d_uab_b_06 = 0) then ira6 = (ira6 + quartile1);
        else if (fa_8d_06 in(-1, -2, -4) & fa_8d_uab_b_06 = 1) then ira6 = (ira6 + quartile2);
         else if (fa_8d_06 in(-1, -2, -4) & fa_8d_uab_c_06 = 0) then ira6 = (ira6 + quartile3);
          else if (fa_8d_06 in(-1, -2, -4) & fa_8d_uab_c_06 = 1) then ira6 = (ira6 + 59000);
           else if (fa_8d_uab_a_06 in(-1, -2) | fa_8d_uab_b_06 in(-1, -2) | fa_8d_uab_c_06 in(-1, -2)) then ira6 = -3;

/******************************************/
/* IRA Component - ira7                   */
/******************************************/

if (fa_8 = 1 & fa_8d_trunc_07 >= 0) then ira7 = (ira7 + fa_8d_trunc_07);
else if (fa_8 = 1 & fa_8d_trunc_07 in(-1, -2) & fa_8d_sr000001_07 < 0 & fa_8d_sr000002_07 < 0
& fa_8d_uab_a_07 < 0 & fa_8d_uab_b_07 < 0 & fa_8d_uab_c_07 < 0) then ira7 = fa_8d_trunc_07;
    else if (fa_8d_sr000001_07 >= 0 & fa_8d_sr000002_07 >= 0 & fa_8d_sr000002_07 = fa_8d_sr000001_07) then
    ira7 = (ira7 + fa_8d_sr000001_07);
     else if (fa_8d_sr000001_07 >= 0 & fa_8d_sr000002_07 >= 0 & fa_8d_sr000002_07 > fa_8d_sr000001_07) then
     ira7 = (ira7 + (((fa_8d_sr000002_07 - fa_8d_sr000001_07)/2) + fa_8d_sr000001_07));
      else if (fa_8d_sr000001_07 >= 0 & fa_8d_sr000002_07 >= 0 & fa_8d_sr000002_07 < fa_8d_sr000001_07) then
      ira7 = (ira7 + (((fa_8d_sr000001_07 - fa_8d_sr000002_07)/2) + fa_8d_sr000002_07));
       else if (fa_8d_trunc_07 in(-1, -2, -4) & fa_8d_uab_b_07 = 0) then ira7 = (ira7 + quartile1);
        else if (fa_8d_trunc_07 in(-1, -2, -4) & fa_8d_uab_b_07 = 1) then ira7 = (ira7 + quartile2);
         else if (fa_8d_trunc_07 in(-1, -2, -4) & fa_8d_uab_c_07 = 0) then ira7 = (ira7 + quartile3);
          else if (fa_8d_trunc_07 in(-1, -2, -4) & fa_8d_uab_c_07 = 1) then ira7 = (ira7 + 65000);
           else if (fa_8d_uab_a_07 in(-1, -2) | fa_8d_uab_b_07 in(-1, -2) | fa_8d_uab_c_07 in(-1, -2)) then ira7 = -3;

/*******************************/
/* Add components IRA          */
/*******************************/

if (ira1 >= 0) then irac = (irac + ira1);
if (ira2 >= 0) then irac = (irac + ira2);
if (ira3 >= 0) then irac = (irac + ira3);
if (ira4 >= 0) then irac = (irac + ira4);
if (ira5 >= 0) then irac = (irac + ira5);
if (ira6 >= 0) then irac = (irac + ira6);
if (ira7 >= 0) then irac = (irac + ira7);
if (ira1 in(-1, -2, -3)) then irac = -3;
else if (ira2 in(-1, -2, -3)) then irac = -3;
else if (ira3 in(-1, -2, -3)) then irac = -3;
else if (ira4 in(-1, -2, -3)) then irac = -3;
else if (ira5 in(-1, -2, -3)) then irac = -3;
else if (ira6 in(-1, -2, -3)) then irac = -3;
else if (ira7 in(-1, -2, -3)) then irac = -3;

/****************************/
/* Compute A401K            */
/****************************/

/******************************************/
/* A401K component - r_401k               */
/******************************************/

if (fa_6b = 1 & fa_6e_trunc >= 0) then r_401k = (r_401k + fa_6e_trunc);
else if (fa_6b = 1 & fa_6e_ref_1 = 1 & fa_6e_sr000001 < 0 & fa_6e_sr000002 < 0
& fa_6e_uab_a < 0 & fa_6e_uab_b < 0 & fa_6e_uab_c < 0) then r_401k = -1;
else if (fa_6b = 1 & fa_6e_trunc in(-1, -2) & fa_6e_sr000001 < 0 & fa_6e_sr000002 < 0
& fa_6e_uab_a < 0 & fa_6e_uab_b < 0 & fa_6e_uab_c < 0) then r_401k = fa_6e_trunc;
   else if (fa_6e_sr000001 >= 0 & fa_6e_sr000002 >= 0 & fa_6e_sr000002 = fa_6e_sr000001) then
    r_401k = (r_401k + fa_6e_sr000001);
     else if (fa_6e_sr000001 >= 0 & fa_6e_sr000002 >= 0 & fa_6e_sr000002 > fa_6e_sr000001) then
     r_401k = (r_401k + (((fa_6e_sr000002 - fa_6e_sr000001)/2) + fa_6e_sr000001));
      else if (fa_6e_sr000001 >= 0 & fa_6e_sr000002 >= 0 & fa_6e_sr000002 < fa_6e_sr000001) then
      r_401k = (r_401k + (((fa_6e_sr000001 - fa_6e_sr000002)/2) + fa_6e_sr000002));
       else if (fa_6e_trunc in(-1, -2, -4) & fa_6e_uab_b = 0) then r_401k = (r_401k + quartile1);
        else if (fa_6e_trunc in(-1, -2, -4) & fa_6e_uab_b = 1) then r_401k = (r_401k + quartile2);
         else if (fa_6e_trunc in(-1, -2, -4) & fa_6e_uab_c = 0) then r_401k = (r_401k + quartile3);
          else if (fa_6e_trunc in(-1, -2, -4) & fa_6e_uab_c = 1) then r_401k = (r_401k + 80000);
           else if (fa_6e_uab_a in(-1, -2) | fa_6e_uab_b in(-1, -2) | fa_6e_uab_c in(-1, -2)) then r_401k = -3;

/******************************************/
/* A401K component - sp_401k              */
/******************************************/

if (fa_7 = 1 & fa_7c_trunc >= 0) then sp_401k = (sp_401k + fa_7c_trunc);
else if (fa_7 = 1 & fa_7c_ref_1 = 1 & fa_7c_sr000001 < 0 & fa_7c_sr000002_trunc < 0
& fa_7c_uab_a < 0 & fa_7c_uab_b < 0 & fa_7c_uab_c < 0) then sp_401k = -1;
else if (fa_7 = 1 & fa_7c_trunc in(-1, -2) & fa_7c_sr000001 < 0 & fa_7c_sr000002_trunc < 0
& fa_7c_uab_a < 0 & fa_7c_uab_b < 0 & fa_7c_uab_c < 0) then sp_401k = fa_7c_trunc;
    else if (fa_7c_sr000001 >= 0 & fa_7c_sr000002_trunc >= 0 & fa_7c_sr000002_trunc = fa_7c_sr000001) then
    sp_401k = (sp_401k + fa_7c_sr000001);
     else if (fa_7c_sr000001 >= 0 & fa_7c_sr000002_trunc >= 0 & fa_7c_sr000002_trunc > fa_7c_sr000001) then
     sp_401k = (sp_401k + (((fa_7c_sr000002_trunc - fa_7c_sr000001)/2) + fa_7c_sr000001));
      else if (fa_7c_sr000001 >= 0 & fa_7c_sr000002_trunc >= 0 & fa_7c_sr000002_trunc < fa_7c_sr000001) then
      sp_401k = (sp_401k + (((fa_7c_sr000001 - fa_7c_sr000002_trunc)/2) + fa_7c_sr000002_trunc));
       else if (fa_7c_trunc in(-1, -2, -4) & fa_7c_uab_b = 0) then sp_401k = (sp_401k + quartile1);
        else if (fa_7c_trunc in(-1, -2, -4) & fa_7c_uab_b = 1) then sp_401k = (sp_401k + quartile2);
         else if (fa_7c_trunc in(-1, -2, -4) & fa_7c_uab_c = 0) then sp_401k = (sp_401k + quartile3);
          else if (fa_7c_trunc in(-1, -2, -4) & fa_7c_uab_c = 1) then sp_401k = (sp_401k + 94500);
           else if (fa_7c_uab_a in(-1, -2) | fa_7c_uab_b in(-1, -2) | fa_7c_uab_c in(-1, -2)) then sp_401k = -3;

/*******************************/
/* Add components A401K        */
/*******************************/

if (r_401k >= 0) then a401kc = (a401kc + r_401k);
if (sp_401k >= 0) then a401kc = (a401kc + sp_401k);
if (r_401k in(-1, -2, -3)) then a401kc = -3;
else if (sp_401k in(-1, -2, -3)) then a401kc = -3;

/****************************/
/* Compute CDEBT            */
/****************************/

/*******************************************/
/* CDEBT Component - amtowe_assetpoorcars1 */
/*******************************************/

if (sc_12b_01 >= 0) then amtowe_assetpoorcars1 = (amtowe_assetpoorcars1 + sc_12b_01);
else if (sc_12b_01 = 1 & sc_12b_ref_1a_01 = 1 & sc_12b_sr000001_01 < 0 & sc_12b_sr000002_01 < 0) then amtowe_assetpoorcars1 = -1;
else if (sc_12b_01 in(-1, -2) & sc_12b_sr000001_01 < 0 & sc_12b_sr000002_01 < 0) then amtowe_assetpoorcars1 = sc_12b_01;
else if (sc_12b_sr000001_01 >= 0 & sc_12b_sr000002_01 >= 0 & sc_12b_sr000002_01 = sc_12b_sr000001_01) then
amtowe_assetpoorcars1 = (amtowe_assetpoorcars1 + sc_12b_sr000001_01);
   else if (sc_12b_sr000001_01 >= 0 & sc_12b_sr000002_01 >= 0 & sc_12b_sr000002_01 > sc_12b_sr000001_01) then
   amtowe_assetpoorcars1 = (amtowe_assetpoorcars1 + (((sc_12b_sr000002_01 - sc_12b_sr000001_01)/2) + sc_12b_sr000001_01));
    else if (sc_12b_sr000001_01 >= 0 & sc_12b_sr000002_01 >= 0 & sc_12b_sr000002_01 < sc_12b_sr000001_01) then
    amtowe_assetpoorcars1 = (amtowe_assetpoorcars1 + (((sc_12b_sr000001_01 - sc_12b_sr000002_01)/2) + sc_12b_sr000002_01));

/*******************************************/
/* CDEBT Component - amtowe_assetpoorcars2 */
/*******************************************/

if (sc_12b_02 >= 0) then amtowe_assetpoorcars2 = (amtowe_assetpoorcars2 + sc_12b_02);
else if (sc_12b_02 = 1 & sc_12b_ref_1a_02 = 1) then amtowe_assetpoorcars2 = -1;
else if (sc_12b_02 in(-1, -2)) then amtowe_assetpoorcars2 = sc_12b_02;

/*******************************************/
/* CDEBT Component - amtowe_assetpoorcars3 */
/*******************************************/

if (sc_12b_03 >= 0) then amtowe_assetpoorcars3 = (amtowe_assetpoorcars3 + sc_12b_03);
else if (sc_12b_03 = 1 & sc_12b_ref_1a_03 = 1) then amtowe_assetpoorcars3 = -1;
else if (sc_12b_03 in(-1, -2)) then amtowe_assetpoorcars3 = sc_12b_03;

/*******************************************/
/* CDEBT Component - amtowe_assetpoorcars4 */
/*******************************************/

if (sc_12b_04 >= 0) then amtowe_assetpoorcars4 = (amtowe_assetpoorcars4 + sc_12b_04);
else if (sc_12b_04 = 1 & sc_12b_ref_1a_04 = 1) then amtowe_assetpoorcars4 = -1;
else if (sc_12b_04 in(-1, -2)) then amtowe_assetpoorcars4 = sc_12b_04;

/*******************************************/
/* CDEBT Component - amtowe_assetpoorcars5 */
/*******************************************/

if (sc_12b_05 >= 0) then amtowe_assetpoorcars5 = (amtowe_assetpoorcars5 + sc_12b_05);
else if (sc_12b_05 = 1 & sc_12b_ref_1a_05 = 1) then amtowe_assetpoorcars5 = -1;
else if (sc_12b_05 in(-1, -2)) then amtowe_assetpoorcars5 = sc_12b_05;

/******************************************/
/* CDEBT Component - amountowe_vehicles1 */
/******************************************/

if (nfa_4f_trunc_01 >= 0) then amountowe_vehicles1 = (amountowe_vehicles1 + nfa_4f_trunc_01);
else if (nfa_4f_trunc_01 in(-1, -2) & nfa_4f_sr000001_01 < 0 & nfa_4f_sr000002_01 < 0
& nfa_4f_uab_a_01 < 0 & nfa_4f_uab_b_01 < 0 & nfa_4f_uab_c_01 < 0) then amountowe_vehicles1 = nfa_4f_trunc_01;
   else if (nfa_4f_sr000001_01 >= 0 & nfa_4f_sr000002_01 >= 0 & nfa_4f_sr000002_01 = nfa_4f_sr000001_01) then
   amountowe_vehicles1 = (amountowe_vehicles1 + nfa_4f_sr000001_01);
    else if (nfa_4f_sr000001_01 >= 0 & nfa_4f_sr000002_01 >= 0 & nfa_4f_sr000002_01 > nfa_4f_sr000001_01) then
    amountowe_vehicles1 = (amountowe_vehicles1 + (((nfa_4f_sr000002_01 - nfa_4f_sr000001_01)/2) + nfa_4f_sr000001_01));
     else if (nfa_4f_sr000001_01 >= 0 & nfa_4f_sr000002_01 >= 0 & nfa_4f_sr000002_01 < nfa_4f_sr000001_01) then
     amountowe_vehicles1 = (amountowe_vehicles1 + (((nfa_4f_sr000001_01 - nfa_4f_sr000002_01)/2) + nfa_4f_sr000002_01));
      else if (nfa_4f_trunc_01 in(-1, -2, -4) & nfa_4f_uab_b_01 = 0) then amountowe_vehicles1 = (amountowe_vehicles1 + quartile1);
       else if (nfa_4f_trunc_01 in(-1, -2, -4) & nfa_4f_uab_b_01 = 1) then amountowe_vehicles1 = (amountowe_vehicles1 + quartile2);
        else if (nfa_4f_trunc_01 in(-1, -2, -4) & nfa_4f_uab_c_01 = 0) then amountowe_vehicles1 = (amountowe_vehicles1 + quartile3);
         else if (nfa_4f_trunc_01 in(-1, -2, -4) & nfa_4f_uab_c_01 = 1) then amountowe_vehicles1 = (amountowe_vehicles1 + 38000);
          else if (nfa_4f_uab_a_01 in(-1, -2) | nfa_4f_uab_b_01 in(-1, -2) | nfa_4f_uab_c_01 in(-1, -2)) then amtowe_vehicles1 = -3;

/******************************************/
/* CDEBT Component - amountowe_vehicles2 */
/******************************************/

if (nfa_4f_trunc_02 >= 0) then amountowe_vehicles2 = (amountowe_vehicles2 + nfa_4f_trunc_02);
else if (nfa_4f_trunc_02 in(-1, -2) & nfa_4f_sr000001_02 < 0 & nfa_4f_sr000002_02 < 0
& nfa_4f_uab_a_02 < 0 & nfa_4f_uab_b_02 < 0 & nfa_4f_uab_c_02 < 0) then amountowe_vehicles2 = nfa_4f_trunc_02;
   else if (nfa_4f_sr000001_02 >= 0 & nfa_4f_sr000002_02 >= 0 & nfa_4f_sr000002_02 = nfa_4f_sr000001_02) then
   amountowe_vehicles2 = (amountowe_vehicles2 + nfa_4f_sr000001_02);
    else if (nfa_4f_sr000001_02 >= 0 & nfa_4f_sr000002_02 >= 0 & nfa_4f_sr000002_02 > nfa_4f_sr000001_02) then
    amountowe_vehicles2 = (amountowe_vehicles2 + (((nfa_4f_sr000002_02 - nfa_4f_sr000001_02)/2) + nfa_4f_sr000001_02));
     else if (nfa_4f_sr000001_02 >= 0 & nfa_4f_sr000002_02 >= 0 & nfa_4f_sr000002_02 < nfa_4f_sr000001_02) then
     amountowe_vehicles2 = (amountowe_vehicles2 + (((nfa_4f_sr000001_02 - nfa_4f_sr000002_02)/2) + nfa_4f_sr000002_02));
      else if (nfa_4f_trunc_02 in(-1, -2, -4) & nfa_4f_uab_b_02 = 0) then amountowe_vehicles2 = (amountowe_vehicles2 + quartile1);
       else if (nfa_4f_trunc_02 in(-1, -2, -4) & nfa_4f_uab_b_02 = 1) then amountowe_vehicles2 = (amountowe_vehicles2 + quartile2);
        else if (nfa_4f_trunc_02 in(-1, -2, -4) & nfa_4f_uab_c_02 = 0) then amountowe_vehicles2 = (amountowe_vehicles2 + quartile3);
         else if (nfa_4f_trunc_02 in(-1, -2, -4) & nfa_4f_uab_c_02 = 1) then amountowe_vehicles2 = (amountowe_vehicles2 + 36000);
          else if (nfa_4f_uab_a_02 in(-1, -2) | nfa_4f_uab_b_02 in(-1, -2) | nfa_4f_uab_c_02 in(-1, -2)) then amtowe_vehicles2 = -3;

/******************************************/
/* CDEBT Component - amountowe_vehicles3 */
/******************************************/

if (nfa_4f_trunc_03 >= 0) then amountowe_vehicles3 = (amountowe_vehicles3 + nfa_4f_trunc_03);
else if (nfa_4f_trunc_03 in(-1, -2) & nfa_4f_sr000001_03 < 0 & nfa_4f_sr000002_03 < 0
& nfa_4f_uab_a_03 < 0 & nfa_4f_uab_b_03 < 0 & nfa_4f_uab_c_03 < 0) then amountowe_vehicles3 = nfa_4f_trunc_03;
   else if (nfa_4f_sr000001_03 >= 0 & nfa_4f_sr000002_03 >= 0 & nfa_4f_sr000002_03 = nfa_4f_sr000001_03) then
   amountowe_vehicles3 = (amountowe_vehicles3 + nfa_4f_sr000001_03);
    else if (nfa_4f_sr000001_03 >= 0 & nfa_4f_sr000002_03 >= 0 & nfa_4f_sr000002_03 > nfa_4f_sr000001_03) then
    amountowe_vehicles3 = (amountowe_vehicles3 + (((nfa_4f_sr000002_03 - nfa_4f_sr000001_03)/2) + nfa_4f_sr000001_03));
     else if (nfa_4f_sr000001_03 >= 0 & nfa_4f_sr000002_03 >= 0 & nfa_4f_sr000002_03 < nfa_4f_sr000001_03) then
     amountowe_vehicles3 = (amountowe_vehicles3 + (((nfa_4f_sr000001_03 - nfa_4f_sr000002_03)/2) + nfa_4f_sr000002_03));
      else if (nfa_4f_trunc_03 in(-1, -2, -4) & nfa_4f_uab_b_03 = 0) then amountowe_vehicles3 = (amountowe_vehicles3 + quartile1);
       else if (nfa_4f_trunc_03 in(-1, -2, -4) & nfa_4f_uab_b_03 = 1) then amountowe_vehicles3 = (amountowe_vehicles3 + quartile2);
        else if (nfa_4f_trunc_03 in(-1, -2, -4) & nfa_4f_uab_c_03 = 0) then amountowe_vehicles3 = (amountowe_vehicles3 + quartile3);
         else if (nfa_4f_trunc_03 in(-1, -2, -4) & nfa_4f_uab_c_03 = 1) then amountowe_vehicles3 = (amountowe_vehicles3 + 35000);
          else if (nfa_4f_uab_a_03 in(-1, -2) | nfa_4f_uab_b_03 in(-1, -2) | nfa_4f_uab_c_03 in(-1, -2)) then amtowe_vehicles3 = -3;

/******************************************/
/* CDEBT Component - amountowe_vehicles4 */
/******************************************/

if (nfa_4f_04 >= 0) then amountowe_vehicles4 = (amountowe_vehicles4 + nfa_4f_04);
else if (nfa_4f_04 in(-1, -2) & nfa_4f_sr000001_04 < 0 & nfa_4f_sr000002_04 < 0
& nfa_4f_uab_a_04 < 0 & nfa_4f_uab_b_04 < 0 & nfa_4f_uab_c_04 < 0) then amountowe_vehicles4 = nfa_4f_04;
else if (nfa_4f_sr000001_04 >= 0 & nfa_4f_sr000002_04 >= 0 & nfa_4f_sr000002_04 = nfa_4f_sr000001_04) then
amountowe_vehicles4 = (amountowe_vehicles4 + nfa_4f_sr000001_04);
   else if (nfa_4f_sr000001_04 >= 0 & nfa_4f_sr000002_04 >= 0 & nfa_4f_sr000002_04 > nfa_4f_sr000001_04) then
   amountowe_vehicles4 = (amountowe_vehicles4 + (((nfa_4f_sr000002_04 - nfa_4f_sr000001_04)/2) + nfa_4f_sr000001_04));
    else if (nfa_4f_sr000001_04 >= 0 & nfa_4f_sr000002_04 >= 0 & nfa_4f_sr000002_04 < nfa_4f_sr000001_04) then
    amountowe_vehicles4 = (amountowe_vehicles4 + (((nfa_4f_sr000001_04 - nfa_4f_sr000002_04)/2) + nfa_4f_sr000002_04));
     else if (nfa_4f_04 in(-1, -2, -4) & nfa_4f_uab_b_04 = 0) then amountowe_vehicles4 = (amountowe_vehicles4 + quartile1);
      else if (nfa_4f_04 in(-1, -2, -4) & nfa_4f_uab_b_04 = 1) then amountowe_vehicles4 = (amountowe_vehicles4 + quartile2);
       else if (nfa_4f_04 in(-1, -2, -4) & nfa_4f_uab_c_04 = 0) then amountowe_vehicles4 = (amountowe_vehicles4 + quartile3);
        else if (nfa_4f_04 in(-1, -2, -4) & nfa_4f_uab_c_04 = 1) then amountowe_vehicles4 = (amountowe_vehicles4 + 30000);
          else if (nfa_4f_uab_a_04 in(-1, -2) | nfa_4f_uab_b_04 in(-1, -2) | nfa_4f_uab_c_04 in(-1, -2)) then amtowe_vehicles4 = -3;

/******************************************/
/* CDEBT Component - amountowe_vehicles5 */
/******************************************/

if (nfa_4f_trunc_05 >= 0) then amountowe_vehicles5 = (amountowe_vehicles5 + nfa_4f_trunc_05);
else if (nfa_4f_trunc_05 in(-1, -2) & nfa_4f_sr000001_05 < 0 & nfa_4f_sr000002_05 < 0
& nfa_4f_uab_a_05 < 0 & nfa_4f_uab_c_05 < 0) then amountowe_vehicles5 = nfa_4f_trunc_05;
else if (nfa_4f_sr000001_05 >= 0 & nfa_4f_sr000002_05 >= 0 & nfa_4f_sr000002_05 = nfa_4f_sr000001_05) then
amountowe_vehicles5 = (amountowe_vehicles5 + nfa_4f_sr000001_05);
   else if (nfa_4f_sr000001_05 >= 0 & nfa_4f_sr000002_05 >= 0 & nfa_4f_sr000002_05 > nfa_4f_sr000001_05) then
   amountowe_vehicles5 = (amountowe_vehicles5 + (((nfa_4f_sr000002_05 - nfa_4f_sr000001_05)/2) + nfa_4f_sr000001_05));
    else if (nfa_4f_sr000001_05 >= 0 & nfa_4f_sr000002_05 >= 0 & nfa_4f_sr000002_05 < nfa_4f_sr000001_05) then
    amountowe_vehicles5 = (amountowe_vehicles5 + (((nfa_4f_sr000001_05 - nfa_4f_sr000002_05)/2) + nfa_4f_sr000002_05));
     else if (nfa_4f_trunc_05 in(-1, -2, -4) & nfa_4f_uab_c_05 = 0) then amountowe_vehicles5 = (amountowe_vehicles5 + quartile3);
      else if (nfa_4f_trunc_05 in(-1, -2, -4) & nfa_4f_uab_c_05 = 1) then amountowe_vehicles5 = (amountowe_vehicles5 + 122000);
        else if (nfa_4f_uab_a_05 in(-1, -2) | nfa_4f_uab_c_05 in(-1, -2)) then amtowe_vehicles5 = -3;

/******************************************/
/* CDEBT Component - amountowe_vehicles6 */
/******************************************/

if (nfa_4f_06 >= 0) then amountowe_vehicles6 = (amountowe_vehicles6 + nfa_4f_06);
else if (nfa_4f_06 in(-1, -2)) then amountowe_vehicles6 = nfa_4f_06;

/******************************************/
/* CDEBT Component - amountowe_vehicles7 */
/******************************************/

if (nfa_4f_07 >= 0) then amountowe_vehicles7 = (amountowe_vehicles7 + nfa_4f_07);
else if (nfa_4f_07 in(-1, -2)) then amountowe_vehicles7 = nfa_4f_07;

/*******************************************/
/* CDEBT Component - amtowe_othervehicles */
/*******************************************/

if (nfa_5 = 1 & nfa_5b_trunc >= 0) then amtowe_othervehicles = (amtowe_othervehicles + nfa_5b_trunc);
else if (nfa_5 = 1 & nfa_5b_trunc in(-1, -2) & nfa_5b_sr000001 < 0 & nfa_5b_sr000002 < 0
& nfa_5b_uab_a < 0 & nfa_5b_uab_c < 0) then amtowe_othervehicles = nfa_5b_trunc;
   else if (nfa_5b_sr000001 >= 0 & nfa_5b_sr000002 >= 0 & nfa_5b_sr000002 = nfa_5b_sr000001) then
   amtowe_othervehicles = (amtowe_othervehicles + nfa_5b_sr000001);
    else if (nfa_5b_sr000001 >= 0 & nfa_5b_sr000002 >= 0 & nfa_5b_sr000002 > nfa_5b_sr000001) then
    amtowe_othervehicles = (amtowe_othervehicles + (((nfa_5b_sr000002 - nfa_5b_sr000001)/2) + nfa_5b_sr000001));
     else if (nfa_5b_sr000001 >= 0 & nfa_5b_sr000002 >= 0 & nfa_5b_sr000002 < nfa_5b_sr000001) then
     amtowe_othervehicles = (amtowe_othervehicles + (((nfa_5b_sr000001 - nfa_5b_sr000002)/2) + nfa_5b_sr000002));
      else if (nfa_5b_trunc in(-1, -2, -4) & nfa_5b_uab_c = 0) then amtowe_othervehicles = (amtowe_othervehicles + quartile3);
       else if (nfa_5b_trunc in(-1, -2, -4) & nfa_5b_uab_c = 1) then amtowe_othervehicles = (amtowe_othervehicles + 51000);
        else if (nfa_5b_uab_a in(-1, -2) | nfa_5b_uab_c in(-1, -2)) then amtowe_othervehicles = -3;

/*******************************/
/* Add components CDEBT        */
/*******************************/

if (amtowe_assetpoorcars1 >= 0) then cdebtc = (cdebtc + amtowe_assetpoorcars1);
if (amtowe_assetpoorcars2 >= 0) then cdebtc = (cdebtc + amtowe_assetpoorcars2);
if (amtowe_assetpoorcars3 >= 0) then cdebtc = (cdebtc + amtowe_assetpoorcars3);
if (amtowe_assetpoorcars4 >= 0) then cdebtc = (cdebtc + amtowe_assetpoorcars4);
if (amtowe_assetpoorcars5 >= 0) then cdebtc = (cdebtc + amtowe_assetpoorcars5);
if (amountowe_vehicles1 >= 0) then cdebtc = (cdebtc + amountowe_vehicles1);
if (amountowe_vehicles2 >= 0) then cdebtc = (cdebtc + amountowe_vehicles2);
if (amountowe_vehicles3 >= 0) then cdebtc = (cdebtc + amountowe_vehicles3);
if (amountowe_vehicles4 >= 0) then cdebtc = (cdebtc + amountowe_vehicles4);
if (amountowe_vehicles5 >= 0) then cdebtc = (cdebtc + amountowe_vehicles5);
if (amountowe_vehicles6 >= 0) then cdebtc = (cdebtc + amountowe_vehicles6);
if (amountowe_vehicles7 >= 0) then cdebtc = (cdebtc + amountowe_vehicles7);
if (amtowe_othervehicles >= 0) then cdebtc = (cdebtc + amtowe_othervehicles);

if (amtowe_assetpoorcars1 in(-1, -2, -3)) then cdebtc = -3;
else if (amtowe_assetpoorcars2 in(-1, -2, -3)) then cdebtc = -3;
else if (amtowe_assetpoorcars3 in(-1, -2, -3)) then cdebtc = -3;
else if (amtowe_assetpoorcars4 in(-1, -2, -3)) then cdebtc = -3;
else if (amtowe_assetpoorcars5 in(-1, -2, -3)) then cdebtc = -3;
else if (amountowe_vehicles1 in(-1, -2, -3)) then cdebtc = -3;
else if (amountowe_vehicles2 in(-1, -2, -3)) then cdebtc = -3;
else if (amountowe_vehicles3 in(-1, -2, -3)) then cdebtc = -3;
else if (amountowe_vehicles4 in(-1, -2, -3)) then cdebtc = -3;
else if (amountowe_vehicles5 in(-1, -2, -3)) then cdebtc = -3;
else if (amountowe_vehicles6 in(-1, -2, -3)) then cdebtc = -3;
else if (amountowe_vehicles7 in(-1, -2, -3)) then cdebtc = -3;
else if (amtowe_othervehicles in(-1, -2, -3)) then cdebtc = -3;

/****************************/
/* Compute CAR              */
/****************************/
/******************************************/
/* CAR Component - mktval_assetpoorcars1 */
/******************************************/

if (sc_12a_01 >= 0) then mktval_assetpoorcars1 = (mktval_assetpoorcars1 + sc_12a_01);
else if (sc_12a_ref_1a_01 = 1 & sc_12a_sr000001_01 < 0 & sc_12a_sr000002_01 < 0
& sc_12a_uab_a_01 < 0 & sc_12a_uab_b_01 < 0) then mktval_assetpoorcars1 = -1;
else if (sc_12a_01 in(-1, -2) & sc_12a_sr000001_01 < 0 & sc_12a_sr000002_01 < 0
& sc_12a_uab_a_01 < 0 & sc_12a_uab_b_01 < 0) then mktval_assetpoorcars1 = sc_12a_01;
    else if (sc_12a_sr000001_01 >= 0 & sc_12a_sr000002_01 >= 0 & sc_12a_sr000002_01 = sc_12a_sr000001_01) then
    mktval_assetpoorcars1 = (mktval_assetpoorcars1 + sc_12a_sr000001_01);
     else if (sc_12a_sr000001_01 >= 0 & sc_12a_sr000002_01 >= 0 & sc_12a_sr000002_01 > sc_12a_sr000001_01) then
     mktval_assetpoorcars1 = (mktval_assetpoorcars1 + (((sc_12a_sr000002_01 - sc_12a_sr000001_01)/2) + sc_12a_sr000001_01));
      else if (sc_12a_sr000001_01 >= 0 & sc_12a_sr000002_01 >= 0 & sc_12a_sr000002_01 < sc_12a_sr000001_01) then
      mktval_assetpoorcars1 = (mktval_assetpoorcars1 + (((sc_12a_sr000001_01 - sc_12a_sr000002_01)/2) + sc_12a_sr000001_02));
       else if (sc_12a_01 in(-1, -2, -4) & sc_12a_uab_b_01 = 0) then mktval_assetpoorcars1 = (mktval_assetpoorcars1 + quartile1);
        else if (sc_12a_01 in(-1, -2, -4) & sc_12a_uab_b_01 = 1) then mktval_assetpoorcars1 = (mktval_assetpoorcars1 + quartile2);
         else if (sc_12a_uab_a_01 in(-1, -2) | sc_12a_uab_b_01 in(-1, -2)) then mktval_assetpoorcars1 = -3;

/******************************************/
/* CAR Component - mktval_assetpoorcars2 */
/******************************************/

if (sc_12a_02 >= 0) then mktval_assetpoorcars2 = (mktval_assetpoorcars2 + sc_12a_02);
else if (sc_12a_02 = 1 & sc_12a_ref_1a_02 = 1 & sc_12a_sr000001_02 < 0 & sc_12a_sr000002_02 < 0) then mktval_assetpoorcars2 = -1;
else if (sc_12a_02 in(-1, -2) & sc_12a_sr000001_02 < 0 & sc_12a_sr000002_02 < 0) then mktval_assetpoorcars2 = sc_12a_02;
   else if (sc_12a_sr000001_02 >= 0 & sc_12a_sr000002_02 >= 0 & sc_12a_sr000002_02 = sc_12a_sr000001_02) then
   mktval_assetpoorcars2 = (mktval_assetpoorcars2 + sc_12a_sr000001_02);
    else if (sc_12a_sr000001_02 >= 0 & sc_12a_sr000002_02 >= 0 & sc_12a_sr000002_02 > sc_12a_sr000001_02) then
    mktval_assetpoorcars2 = (mktval_assetpoorcars2 + (((sc_12a_sr000002_02 - sc_12a_sr000001_02)/2) + sc_12a_sr000001_02));
     else if (sc_12a_sr000001_02 >= 0 & sc_12a_sr000002_02 >= 0 & sc_12a_sr000002_02 < sc_12a_sr000001_02) then
     mktval_assetpoorcars2 = (mktval_assetpoorcars2 + (((sc_12a_sr000001_02 - sc_12a_sr000002_02)/2) + sc_12a_sr000002_02));

/******************************************/
/* CAR Component - mktval_assetpoorcars3 */
/******************************************/

if (sc_12a_03 >= 0) then mktval_assetpoorcars3 = (mktval_assetpoorcars3 + sc_12a_03);
else if (sc_12a_03 = 1 & sc_12a_ref_1a_03 = 1) then mktval_assetpoorcars3 = -1;
else if (sc_12a_03 in(-1, -2)) then mktval_assetpoorcars3 = sc_12a_03;

/******************************************/
/* CAR Component - mktval_assetpoorcars4 */
/******************************************/

if (sc_12a_04 >= 0) then mktval_assetpoorcars4 = (mktval_assetpoorcars4 + sc_12a_04);
else if (sc_12a_04 = 1 & sc_12a_ref_1a_04 = 1) then mktval_assetpoorcars4 = -1;
else if (sc_12a_04 in(-1, -2)) then mktval_assetpoorcars4 = sc_12a_04;

/******************************************/
/* CAR Component - mktval_assetpoorcars5 */
/******************************************/

if (sc_12a_05 >= 0) then mktval_assetpoorcars5 = (mktval_assetpoorcars5 + sc_12a_05);
else if (sc_12a_05 = 1 & sc_12a_ref_1a_05 = 1) then mktval_assetpoorcars5 = -1;
else if (sc_12a_05 in(-1, -2)) then mktval_assetpoorcars5 = sc_12a_05;

/******************************************/
/* CAR Component - marketvalue_vehicles1 */
/******************************************/

if (nfa_4c_trunc_01 >= 0) then marketvalue_vehicles1 = (marketvalue_vehicles1 + nfa_4c_trunc_01);
else if (nfa_4c_trunc_01 in(-1, -2) & nfa_4c_sr000001_01 < 0 & nfa_4c_sr000002_01 < 0
& nfa_4c_uab_a_01 < 0 & nfa_4c_uab_b_01 < 0 & nfa_4c_uab_c_01 < 0) then marketvalue_vehicles1 = nfa_4c_trunc_01;
   else if (nfa_4c_sr000001_01 >= 0 & nfa_4c_sr000002_01 >= 0 & nfa_4c_sr000002_01 = nfa_4c_sr000001_01) then
   marketvalue_vehicles1 = (marketvalue_vehicles1 + nfa_4c_sr000001_01);
    else if (nfa_4c_sr000001_01 >= 0 & nfa_4c_sr000002_01 >= 0 & nfa_4c_sr000002_01 > nfa_4c_sr000001_01) then
    marketvalue_vehicles1 = (marketvalue_vehicles1 + (((nfa_4c_sr000002_01 - nfa_4c_sr000001_01)/2) + nfa_4c_sr000001_01));
     else if (nfa_4c_sr000001_01 >= 0 & nfa_4c_sr000002_01 >= 0 & nfa_4c_sr000002_01 < nfa_4c_sr000001_01) then
     marketvalue_vehicles1 = (marketvalue_vehicles1 + (((nfa_4c_sr000001_01 - nfa_4c_sr000002_01)/2) + nfa_4c_sr000002_01));
      else if (nfa_4c_trunc_01 in(-1, -2, -4) & nfa_4c_uab_b_01 = 0) then marketvalue_vehicles1 = (marketvalue_vehicles1 + quartile1);
       else if (nfa_4c_trunc_01 in(-1, -2, -4) & nfa_4c_uab_b_01 = 1) then marketvalue_vehicles1 = (marketvalue_vehicles1 + quartile2);
        else if (nfa_4c_trunc_01 in(-1, -2, -4) & nfa_4c_uab_c_01 = 0) then marketvalue_vehicles1 = (marketvalue_vehicles1 + quartile3);
         else if (nfa_4c_trunc_01 in(-1, -2, -4) & nfa_4c_uab_c_01 = 1) then marketvalue_vehicles1 = (marketvalue_vehicles1 + 40000);
          else if (nfa_4c_uab_a_01 in(-1, -2) | nfa_4c_uab_b_01 in(-1, -2) | nfa_4c_uab_c_01 in(-1, -2)) then marketvalue_vehicles1 = -3;

/******************************************/
/* CAR Component - marketvalue_vehicles2 */
/******************************************/

if (nfa_4c_trunc_02 >= 0) then marketvalue_vehicles2 = (marketvalue_vehicles2 + nfa_4c_trunc_02);
else if (nfa_4c_trunc_02 in(-1, -2) & nfa_4c_sr000001_02 < 0 & nfa_4c_sr000002_02 < 0
& nfa_4c_uab_a_02 < 0 & nfa_4c_uab_b_02 < 0 & nfa_4c_uab_c_02 < 0) then marketvalue_vehicles2 = nfa_4c_trunc_02;
   else if (nfa_4c_sr000001_02 >= 0 & nfa_4c_sr000002_02 >= 0 & nfa_4c_sr000002_02 = nfa_4c_sr000001_02) then
   marketvalue_vehicles2 = (marketvalue_vehicles2 + nfa_4c_sr000001_02);
    else if (nfa_4c_sr000001_02 >= 0 & nfa_4c_sr000002_02 >= 0 & nfa_4c_sr000002_02 > nfa_4c_sr000001_02) then
    marketvalue_vehicles2 = (marketvalue_vehicles2 + (((nfa_4c_sr000002_02 - nfa_4c_sr000001_02)/2) + nfa_4c_sr000001_02));
     else if (nfa_4c_sr000001_02 >= 0 & nfa_4c_sr000002_02 >= 0 & nfa_4c_sr000002_02 < nfa_4c_sr000001_02) then
     marketvalue_vehicles2 = (marketvalue_vehicles2 + (((nfa_4c_sr000001_02 - nfa_4c_sr000002_02)/2) + nfa_4c_sr000002_02));
      else if (nfa_4c_trunc_02 in(-1, -2, -4) & nfa_4c_uab_b_02 = 0) then marketvalue_vehicles2 = (marketvalue_vehicles2 + quartile1);
       else if (nfa_4c_trunc_02 in(-1, -2, -4) & nfa_4c_uab_b_02 = 1) then marketvalue_vehicles2 = (marketvalue_vehicles2 + quartile2);
        else if (nfa_4c_trunc_02 in(-1, -2, -4) & nfa_4c_uab_c_02 = 0) then marketvalue_vehicles2 = (marketvalue_vehicles2 + quartile3);
         else if (nfa_4c_trunc_02 in(-1, -2, -4) & nfa_4c_uab_c_02 = 1) then marketvalue_vehicles2 = (marketvalue_vehicles2 + 40000);
          else if (nfa_4c_uab_a_02 in(-1, -2) | nfa_4c_uab_b_02 in(-1, -2) | nfa_4c_uab_c_02 in(-1, -2)) then marketvalue_vehicles2 = -3;

/******************************************/
/* CAR Component - marketvalue_vehicles3 */
/******************************************/

if (nfa_4c_trunc_03 >= 0) then marketvalue_vehicles3 = (marketvalue_vehicles3 + nfa_4c_trunc_03);
else if (nfa_4c_trunc_03 in(-1, -2) & nfa_4c_sr000001_03 < 0 & nfa_4c_sr000002_03 < 0
& nfa_4c_uab_a_03 < 0 & nfa_4c_uab_b_03 < 0 & nfa_4c_uab_c_03 < 0) then marketvalue_vehicles3 = nfa_4c_trunc_03;
   else if (nfa_4c_sr000001_03 >= 0 & nfa_4c_sr000002_03 >= 0 & nfa_4c_sr000002_03 = nfa_4c_sr000001_03) then
   marketvalue_vehicles3 = (marketvalue_vehicles3 + nfa_4c_sr000001_03);
    else if (nfa_4c_sr000001_03 >= 0 & nfa_4c_sr000002_03 >= 0 & nfa_4c_sr000002_03 > nfa_4c_sr000001_03) then
    marketvalue_vehicles3 = (marketvalue_vehicles3 + (((nfa_4c_sr000002_03 - nfa_4c_sr000001_03)/2) + nfa_4c_sr000001_03));
     else if (nfa_4c_sr000001_03 >= 0 & nfa_4c_sr000002_03 >= 0 & nfa_4c_sr000002_03 < nfa_4c_sr000001_03) then
     marketvalue_vehicles3 = (marketvalue_vehicles3 + (((nfa_4c_sr000001_03 - nfa_4c_sr000002_03)/2) + nfa_4c_sr000002_03));
      else if (nfa_4c_trunc_03 in(-1, -2, -4) & nfa_4c_uab_b_03 = 0) then marketvalue_vehicles3 = (marketvalue_vehicles3 + quartile1);
       else if (nfa_4c_trunc_03 in(-1, -2, -4) & nfa_4c_uab_b_03 = 1) then marketvalue_vehicles3 = (marketvalue_vehicles3 + quartile2);
        else if (nfa_4c_trunc_03 in(-1, -2, -4) & nfa_4c_uab_c_03 = 0) then marketvalue_vehicles3 = (marketvalue_vehicles3 + quartile3);
         else if (nfa_4c_trunc_03 in(-1, -2, -4) & nfa_4c_uab_c_03 = 1) then marketvalue_vehicles3 = (marketvalue_vehicles3 + 40000);
          else if (nfa_4c_uab_a_03 in(-1, -2) | nfa_4c_uab_b_03 in(-1, -2) | nfa_4c_uab_c_03 in(-1, -2)) then marketvalue_vehicles3 = -3;

/******************************************/
/* CAR Component - marketvalue_vehicles4 */
/******************************************/

if (nfa_4c_trunc_04 >= 0) then marketvalue_vehicles4 = (marketvalue_vehicles4 + nfa_4c_trunc_04);
else if (nfa_4c_trunc_04 in(-1, -2) & nfa_4c_sr000001_04 < 0 & nfa_4c_sr000002_04 < 0
& nfa_4c_uab_a_04 < 0 & nfa_4c_uab_b_04 < 0 & nfa_4c_uab_c_04 < 0) then marketvalue_vehicles4 = nfa_4c_trunc_04;
   else if (nfa_4c_sr000001_04 >= 0 & nfa_4c_sr000002_04 >= 0 & nfa_4c_sr000002_04 = nfa_4c_sr000001_04) then
   marketvalue_vehicles4 = (marketvalue_vehicles4 + nfa_4c_sr000001_04);
    else if (nfa_4c_sr000001_04 >= 0 & nfa_4c_sr000002_04 >= 0 & nfa_4c_sr000002_04 > nfa_4c_sr000001_04) then
    marketvalue_vehicles4 = (marketvalue_vehicles4 + (((nfa_4c_sr000002_04 - nfa_4c_sr000001_04)/2) + nfa_4c_sr000001_04));
     else if (nfa_4c_sr000001_04 >= 0 & nfa_4c_sr000002_04 >= 0 & nfa_4c_sr000002_04 < nfa_4c_sr000001_04) then
     marketvalue_vehicles4 = (marketvalue_vehicles4 + (((nfa_4c_sr000001_04 - nfa_4c_sr000002_04)/2) + nfa_4c_sr000002_04));
      else if (nfa_4c_trunc_04 in(-1, -2, -4) & nfa_4c_uab_b_04 = 0) then marketvalue_vehicles4 = (marketvalue_vehicles4 + quartile1);
       else if (nfa_4c_trunc_04 in(-1, -2, -4) & nfa_4c_uab_b_04 = 1) then marketvalue_vehicles4 = (marketvalue_vehicles4 + quartile2);
        else if (nfa_4c_trunc_04 in(-1, -2, -4) & nfa_4c_uab_c_04 = 0) then marketvalue_vehicles4 = (marketvalue_vehicles4 + quartile3);
         else if (nfa_4c_trunc_04 in(-1, -2, -4) & nfa_4c_uab_c_04 = 1) then marketvalue_vehicles4 = (marketvalue_vehicles4 + 40000);
          else if (nfa_4c_uab_a_04 in(-1, -2) | nfa_4c_uab_b_04 in(-1, -2) | nfa_4c_uab_c_04 in(-1, -2)) then marketvalue_vehicles4 = -3;

/******************************************/
/* CAR Component - marketvalue_vehicles5 */
/******************************************/

if (nfa_4c_trunc_05 >= 0) then marketvalue_vehicles5 = (marketvalue_vehicles5 + nfa_4c_trunc_05);
else if (nfa_4c_trunc_05 in(-1, -2) & nfa_4c_sr000001_05 < 0 & nfa_4c_sr000002_05 < 0
& nfa_4c_uab_a_05 < 0 & nfa_4c_uab_b_05 < 0 & nfa_4c_uab_c_05 < 0) then marketvalue_vehicles5 = nfa_4c_trunc_05;
   else if (nfa_4c_sr000001_05 >= 0 & nfa_4c_sr000002_05 >= 0 & nfa_4c_sr000002_05 = nfa_4c_sr000001_05) then
   marketvalue_vehicles5 = (marketvalue_vehicles5 + nfa_4c_sr000001_05);
    else if (nfa_4c_sr000001_05 >= 0 & nfa_4c_sr000002_05 >= 0 & nfa_4c_sr000002_05 > nfa_4c_sr000001_05) then
    marketvalue_vehicles5 = (marketvalue_vehicles5 + (((nfa_4c_sr000002_05 - nfa_4c_sr000001_05)/2) + nfa_4c_sr000001_05));
     else if (nfa_4c_sr000001_05 >= 0 & nfa_4c_sr000002_05 >= 0 & nfa_4c_sr000002_05 < nfa_4c_sr000001_05) then
     marketvalue_vehicles5 = (marketvalue_vehicles5 + (((nfa_4c_sr000001_05 - nfa_4c_sr000002_05)/2) + nfa_4c_sr000002_05));
      else if (nfa_4c_trunc_05 in(-1, -2, -4) & nfa_4c_uab_b_05 = 0) then marketvalue_vehicles5 = (marketvalue_vehicles5 + quartile1);
       else if (nfa_4c_trunc_05 in(-1, -2, -4) & nfa_4c_uab_b_05 = 1) then marketvalue_vehicles5 = (marketvalue_vehicles5 + quartile2);
        else if (nfa_4c_trunc_05 in(-1, -2, -4) & nfa_4c_uab_c_05 = 0) then marketvalue_vehicles5 = (marketvalue_vehicles5 + quartile3);
         else if (nfa_4c_trunc_05 in(-1, -2, -4) & nfa_4c_uab_c_05 = 1) then marketvalue_vehicles5 = (marketvalue_vehicles5 + 75000);
          else if (nfa_4c_uab_a_05 in(-1, -2) | nfa_4c_uab_b_05 in(-1, -2) | nfa_4c_uab_c_05 in(-1, -2)) then marketvalue_vehicles5 = -3;

/******************************************/
/* CAR Component - marketvalue_vehicles6 */
/******************************************/

if (nfa_4c_trunc_06 >= 0) then marketvalue_vehicles6 = (marketvalue_vehicles6 + nfa_4c_trunc_06);
else if (nfa_4c_trunc_06 in(-1, -2) & nfa_4c_sr000001_06 < 0 & nfa_4c_sr000002_06 < 0
& nfa_4c_uab_a_06 < 0) then marketvalue_vehicles6 = nfa_4c_trunc_06;
else if (nfa_4c_sr000001_06 >= 0 & nfa_4c_sr000002_06 >= 0 & nfa_4c_sr000002_06 = nfa_4c_sr000001_06) then
marketvalue_vehicles6 = (marketvalue_vehicles6 + nfa_4c_sr000001_06);
   else if (nfa_4c_sr000001_06 >= 0 & nfa_4c_sr000002_06 >= 0 & nfa_4c_sr000002_06 > nfa_4c_sr000001_06) then
   marketvalue_vehicles6 = (marketvalue_vehicles6 + (((nfa_4c_sr000002_06 - nfa_4c_sr000001_06)/2) + nfa_4c_sr000001_06));
    else if (nfa_4c_sr000001_06 >= 0 & nfa_4c_sr000002_06 >= 0 & nfa_4c_sr000002_06 < nfa_4c_sr000001_06) then
    marketvalue_vehicles6 = (marketvalue_vehicles6 + (((nfa_4c_sr000001_06 - nfa_4c_sr000002_06)/2) + nfa_4c_sr000002_06));
     else if (nfa_4c_uab_a_06 in(-1, -2)) then marketvalue_vehicles6 = -3;

/******************************************/
/* CAR Component - marketvalue_vehicles7 */
/******************************************/

if (nfa_4c_trunc_07 >= 0) then marketvalue_vehicles7 = (marketvalue_vehicles7 + nfa_4c_trunc_07);
else if (nfa_4c_trunc_07 in(-1, -2) & nfa_4c_uab_a_07 < 0) then marketvalue_vehicles7 = nfa_4c_trunc_07;
else if (nfa_4c_uab_a_07 in(-1, -2)) then marketvalue_vehicles7 = -3;

/******************************************/
/* CAR Component - marketvalue_vehicles8 */
/******************************************/

if (nfa_4c_08 >= 0) then marketvalue_vehicles8 = (marketvalue_vehicles8 + nfa_4c_08);
else if (nfa_4c_08 in(-1, -2) & nfa_4c_uab_a_08 < 0) then marketvalue_vehicles8 = nfa_4c_08;
else if (nfa_4c_uab_a_08 in(-1, -2)) then marketvalue_vehicles8 = -3;

/******************************************/
/* CAR Component - marketvalue_vehicles9 */
/******************************************/

if (nfa_4c_trunc_09 >= 0) then marketvalue_vehicles9 = (marketvalue_vehicles9 + nfa_4c_trunc_09);
else if (nfa_4c_trunc_09 in(-1, -2) & nfa_4c_uab_a_09 < 0) then marketvalue_vehicles9 = nfa_4c_trunc_09;
else if (nfa_4c_uab_a_09 in(-1, -2)) then marketvalue_vehicles9 = -3;

/*******************************************/
/* CAR Component - marketvalue_vehicles10 */
/*******************************************/

if (nfa_4c_trunc_10 >= 0) then marketvalue_vehicles10 = (marketvalue_vehicles10 + nfa_4c_trunc_10);
else if (nfa_4c_trunc_10 in(-1, -2) & nfa_4c_uab_a_10 < 0) then marketvalue_vehicles10 = nfa_4c_trunc_10;
else if (nfa_4c_uab_a_10 in(-1, -2)) then marketvalue_vehicles10 = -3;

/*******************************************/
/* CAR Component - marketvalue_vehicles11 */
/*******************************************/

if (nfa_4c_11 >= 0) then marketvalue_vehicles11 = (marketvalue_vehicles11 + nfa_4c_11);
else if (nfa_4c_11 in(-1, -2) & nfa_4c_sr000001_11 < 0 & nfa_4c_sr000002_11 < 0
& nfa_4c_uab_a_11 < 0 & nfa_4c_uab_c_11 < 0) then marketvalue_vehicles11 = nfa_4c_11;
else if (nfa_4c_sr000001_11 >= 0 & nfa_4c_sr000002_11 >= 0 & nfa_4c_sr000002_11 = nfa_4c_sr000001_11) then
marketvalue_vehicles11 = (marketvalue_vehicles11 + nfa_4c_sr000001_11);
   else if (nfa_4c_sr000001_11 >= 0 & nfa_4c_sr000002_11 >= 0 & nfa_4c_sr000002_11 > nfa_4c_sr000001_11) then
   marketvalue_vehicles11 = (marketvalue_vehicles11 + (((nfa_4c_sr000002_11 - nfa_4c_sr000001_11)/2) + nfa_4c_sr000001_11));
    else if (nfa_4c_sr000001_11 >= 0 & nfa_4c_sr000002_11 >= 0 & nfa_4c_sr000002_11 < nfa_4c_sr000001_11) then
    marketvalue_vehicles11 = (marketvalue_vehicles11 + (((nfa_4c_sr000001_11 - nfa_4c_sr000002_11)/2) + nfa_4c_sr000002_11));
     else if (nfa_4c_11 in(-1, -2, -4) & nfa_4c_uab_c_11 = 0) then marketvalue_vehicles11 = (marketvalue_vehicles11 + quartile3);
      else if (nfa_4c_11 in(-1, -2, -4) & nfa_4c_uab_c_11 = 1) then marketvalue_vehicles11 = (marketvalue_vehicles11 + 30000);
       else if (nfa_4c_uab_a_11 in(-1, -2) | nfa_4c_uab_c_11 in(-1, -2)) then marketvalue_vehicles11 = -3;

/*******************************************/
/* CAR Component - marketvalue_vehicles12 */
/*******************************************/

if (nfa_4c_trunc_12 >= 0) then marketvalue_vehicles12 = (marketvalue_vehicles12 + nfa_4c_trunc_12);
else if (nfa_4c_trunc_12 in(-1, -2) & nfa_4c_sr000001_12 < 0 & nfa_4c_sr000002_12 < 0
& nfa_4c_uab_a_12 < 0) then marketvalue_vehicles12 = nfa_4c_trunc_12;
else if (nfa_4c_sr000001_12 >= 0 & nfa_4c_sr000002_12 >= 0 & nfa_4c_sr000002_12 = nfa_4c_sr000001_12) then
marketvalue_vehicles12 = (marketvalue_vehicles12 + nfa_4c_sr000001_12);
   else if (nfa_4c_sr000001_12 >= 0 & nfa_4c_sr000002_12 >= 0 & nfa_4c_sr000002_12 > nfa_4c_sr000001_12) then
   marketvalue_vehicles12 = (marketvalue_vehicles12 + (((nfa_4c_sr000002_12 - nfa_4c_sr000001_12)/2) + nfa_4c_sr000001_12));
    else if (nfa_4c_sr000001_12 >= 0 & nfa_4c_sr000002_12 >= 0 & nfa_4c_sr000002_12 < nfa_4c_sr000001_12) then
    marketvalue_vehicles12 = (marketvalue_vehicles12 + (((nfa_4c_sr000001_12 - nfa_4c_sr000002_12)/2) + nfa_4c_sr000002_12));
         else if (nfa_4c_uab_a_12 in(-1, -2)) then marketvalue_vehicles12 = -3;

/*******************************************/
/* CAR Component - marketvalue_vehicles13 */
/*******************************************/

if (nfa_4c_13 >= 0) then marketvalue_vehicles13 = (marketvalue_vehicles13 + nfa_4c_13);
else if (nfa_4c_13 in(-1, -2) & nfa_4c_uab_a_13 < 0) then marketvalue_vehicles13 = nfa_4c_13;
else if (nfa_4c_uab_a_13 in(-1, -2)) then marketvalue_vehicles13 = -3;

/*******************************************/
/* CAR Component - marketvalue_vehicles14 */
/*******************************************/

if (nfa_4c_14 >= 0) then marketvalue_vehicles14 = (marketvalue_vehicles14 + nfa_4c_14);
else if (nfa_4c_14 in(-1, -2) & nfa_4c_uab_a_14 < 0) then marketvalue_vehicles14 = nfa_4c_14;
else if (nfa_4c_uab_a_14 in(-1, -2)) then marketvalue_vehicles14 = -3;

/*******************************************/
/* CAR Component - marketvalue_vehicles15 */
/*******************************************/

if (nfa_4c_15 >= 0) then marketvalue_vehicles15 = (marketvalue_vehicles15 + nfa_4c_15);
else if (nfa_4c_15 in(-1, -2) & nfa_4c_uab_a_15 < 0) then marketvalue_vehicles15 = nfa_4c_15;
else if (nfa_4c_uab_a_15 in(-1, -2)) then marketvalue_vehicles15 = -3;

/*******************************************/
/* CAR Component - marketvalue_vehicles16 */
/*******************************************/

if (nfa_4c_16 >= 0) then marketvalue_vehicles16 = (marketvalue_vehicles16 + nfa_4c_16);
else if (nfa_4c_16 in(-1, -2) & nfa_4c_uab_a_16 < 0) then marketvalue_vehicles16 = nfa_4c_16;
else if (nfa_4c_uab_a_16 in(-1, -2)) then marketvalue_vehicles16 = -3;

/*******************************************/
/* CAR Component - marketvalue_vehicles17 */
/*******************************************/

if (nfa_4c_17 >= 0) then marketvalue_vehicles17 = (marketvalue_vehicles17 + nfa_4c_17);
else if (nfa_4c_17 in(-1, -2) & nfa_4c_uab_a_17 < 0) then marketvalue_vehicles17 = nfa_4c_17;
else if (nfa_4c_uab_a_17 in(-1, -2)) then marketvalue_vehicles17 = -3;

/******************************************/
/* CAR Component - mktval_othervehicles   */
/******************************************/

if (nfa_5 = 1 & nfa_5c >= 0) then mktval_othervehicles = (mktval_othervehicles + nfa_5c);
else if (nfa_5 = 1 & nfa_5c_ref_1 = 1 & nfa_5c_sr000001 < 0 & nfa_5c_sr000002 < 0
& nfa_5c_uab_a < 0 & nfa_5c_uab_b < 0 & nfa_5c_uab_c < 0) then mktval_othervehicles = -1;
else if (nfa_5 = 1 & nfa_5c in(-1, -2) & nfa_5c_sr000001 < 0 & nfa_5c_sr000002 < 0
& nfa_5c_uab_a < 0 & nfa_5c_uab_b < 0 & nfa_5c_uab_c < 0) then mktval_othervehicles = nfa_5c;
    else if (nfa_5c_sr000001 >= 0 & nfa_5c_sr000002 >= 0 & nfa_5c_sr000002 = nfa_5c_sr000001) then
    mktval_othervehicles = (mktval_othervehicles + nfa_5c_sr000001);
     else if (nfa_5c_sr000001 >= 0 & nfa_5c_sr000002 >= 0 & nfa_5c_sr000002 > nfa_5c_sr000001) then
     mktval_othervehicles = (mktval_othervehicles + (((nfa_5c_sr000002 - nfa_5c_sr000001)/2) + nfa_5c_sr000001));
      else if (nfa_5c_sr000001 >= 0 & nfa_5c_sr000002 >= 0 & nfa_5c_sr000002 < nfa_5c_sr000001) then
      mktval_othervehicles = (mktval_othervehicles + (((nfa_5c_sr000001 - nfa_5c_sr000002)/2) + nfa_5c_sr000002));
       else if (nfa_5c in(-1, -2, -4) & nfa_5c_uab_b = 0) then mktval_othervehicles = (mktval_othervehicles+ quartile1);
        else if (nfa_5c in(-1, -2, -4) & nfa_5c_uab_b = 1) then mktval_othervehicles = (mktval_othervehicles + quartile2);
         else if (nfa_5c in(-1, -2, -4) & nfa_5c_uab_c = 0) then mktval_othervehicles = (mktval_othervehicles + quartile3);
          else if (nfa_5c in(-1, -2, -4) & nfa_5c_uab_c = 1) then mktval_othervehicles = (mktval_othervehicles + 50000);
           else if (nfa_5c_uab_a in(-1, -2) | nfa_5c_uab_b in(-1, -2) | nfa_5c_uab_c in(-1, -2)) then mktval_othervehicles = -3;

/*******************************/
/* Add components CAR          */
/*******************************/

if (mktval_assetpoorcars1 >= 0) then carc = (carc + mktval_assetpoorcars1);
if (mktval_assetpoorcars2 >= 0) then carc = (carc + mktval_assetpoorcars2);
if (mktval_assetpoorcars3 >= 0) then carc = (carc + mktval_assetpoorcars3);
if (mktval_assetpoorcars4 >= 0) then carc = (carc + mktval_assetpoorcars4);
if (mktval_assetpoorcars5 >= 0) then carc = (carc + mktval_assetpoorcars5);
if (marketvalue_vehicles1 >= 0) then carc = (carc + marketvalue_vehicles1);
if (marketvalue_vehicles2 >= 0) then carc = (carc + marketvalue_vehicles2);
if (marketvalue_vehicles3 >= 0) then carc = (carc + marketvalue_vehicles3);
if (marketvalue_vehicles4 >= 0) then carc = (carc + marketvalue_vehicles4);
if (marketvalue_vehicles5 >= 0) then carc = (carc + marketvalue_vehicles5);
if (marketvalue_vehicles6 >= 0) then carc = (carc + marketvalue_vehicles6);
if (marketvalue_vehicles7 >= 0) then carc = (carc + marketvalue_vehicles7);
if (marketvalue_vehicles8 >= 0) then carc = (carc + marketvalue_vehicles8);
if (marketvalue_vehicles9 >= 0) then carc = (carc + marketvalue_vehicles9);
if (marketvalue_vehicles10 >= 0) then carc = (carc + marketvalue_vehicles10);
if (marketvalue_vehicles11 >= 0) then carc = (carc + marketvalue_vehicles11);
if (marketvalue_vehicles12 >= 0) then carc = (carc + marketvalue_vehicles12);
if (marketvalue_vehicles13 >= 0) then carc = (carc + marketvalue_vehicles13);
if (marketvalue_vehicles14 >= 0) then carc = (carc + marketvalue_vehicles14);
if (marketvalue_vehicles15 >= 0) then carc = (carc + marketvalue_vehicles15);
if (marketvalue_vehicles16 >= 0) then carc = (carc + marketvalue_vehicles16);
if (marketvalue_vehicles17 >= 0) then carc = (carc + marketvalue_vehicles17);
if (mktval_othervehicles >= 0) then carc = (carc + mktval_othervehicles);

if (mktval_assetpoorcars1 in(-1, -2, -3)) then carc = -3;
else if (mktval_assetpoorcars2 in(-1, -2, -3)) then carc = -3;
else if (mktval_assetpoorcars3 in(-1, -2, -3)) then carc = -3;
else if (mktval_assetpoorcars4 in(-1, -2, -3)) then carc = -3;
else if (mktval_assetpoorcars5 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles1 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles2 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles3 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles4 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles5 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles6 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles7 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles8 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles9 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles10 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles11 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles12 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles13 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles14 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles15 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles16 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles17 in(-1, -2, -3)) then carc = -3;
else if (mktval_othervehicles in(-1, -2, -3)) then carc = -3;

/************************/
/* Compute TNFW_TRUNC   */
/************************/
/*******************************************************/
/* TNFW_TRUNC - add components created in above code   */
/*******************************************************/

if (homec >= 0) then tnfw_trunc = (tnfw_trunc + homec );
if (mortc >= 0) then tnfw_trunc = (tnfw_trunc - mortc );
if (pdebtc >= 0) then tnfw_trunc = (tnfw_trunc - pdebtc);
if (cashc >= 0) then tnfw_trunc = (tnfw_trunc + cashc );
if (irac   >= 0) then tnfw_trunc = (tnfw_trunc + irac );
if (a401kc >= 0) then tnfw_trunc = (tnfw_trunc + a401kc);
if (cdsc   >= 0) then tnfw_trunc = (tnfw_trunc + cdsc );
if (stockc >= 0) then tnfw_trunc = (tnfw_trunc + stockc);
if (bizc   >= 0) then tnfw_trunc = (tnfw_trunc + bizc );
if (bdebtc >= 0) then tnfw_trunc = (tnfw_trunc - bdebtc);
if (cdebtc >= 0) then tnfw_trunc = (tnfw_trunc - cdebtc);
if (carc   >= 0) then tnfw_trunc = (tnfw_trunc + carc );
if (posesc >= 0) then tnfw_trunc = (tnfw_trunc + posesc);
if (odebtc >= 0) then tnfw_trunc = (tnfw_trunc - odebtc);

if (homec in(-1, -2, -3)) then tnfw_trunc = -3;
if (mortc in(-1, -2, -3)) then tnfw_trunc = -3;
if (pdebtc in(-1, -2, -3)) then tnfw_trunc = -3;
if (cashc in(-1, -2, -3)) then tnfw_trunc = -3;
if (irac   in(-1, -2, -3)) then tnfw_trunc = -3;
if (a401kc in(-1, -2, -3)) then tnfw_trunc = -3;
if (cdsc   in(-1, -2, -3)) then tnfw_trunc = -3;
if (stockc in(-1, -2, -3)) then tnfw_trunc = -3;
if (bizc   in(-1, -2, -3)) then tnfw_trunc = -3;
if (bdebtc in(-1, -2, -3)) then tnfw_trunc = -3;
if (cdebtc in(-1, -2, -3)) then tnfw_trunc = -3;
if (carc   in(-1, -2, -3)) then tnfw_trunc = -3;
if (posesc in(-1, -2, -3)) then tnfw_trunc = -3;
if (odebtc in(-1, -2, -3)) then tnfw_trunc = -3;

/****************************************/
/* APPLY TOPCODE TO TNFW_TRUNC FOR 2008 */
/****************************************/
if (tnfw_trunc_2008 > 2138310) then tnfw_trunc_2008 = 3527333;

tnfw_trunc_2008 = round(tnfw_trunc_2008);

/***************************************************************/
/* TNFW_TRUNC - adjust for partially missing range estimates   */
/***************************************************************/

if (tnfw_trunc ~= -3 &
    ((nfa_1a_sr000001 >= 0 & nfa_1a_sr000002 in(-1, -2)) | (nfa_1a_sr000001 in(-1, -2) & nfa_1a_sr000002 >= 0)
| (nfa_1b_sr000001 >= 0 & nfa_1b_sr000002 in(-1, -2)) | (nfa_1b_sr000001 in(-1, -2) & nfa_1b_sr000002 >= 0)
| (nfa_1c_sr000001 >= 0 & nfa_1c_sr000002 in(-1, -2)) | (nfa_1c_sr000001 in(-1, -2) & nfa_1c_sr000002 >= 0)
| (nfa_2a_sr000001 >= 0 & nfa_2a_sr000002 in(-1, -2)) | (nfa_2a_sr000001 in(-1, -2) & nfa_2a_sr000002 >= 0)
| (nfa_2b_sr000001 >= 0 & nfa_2b_sr000002 in(-1, -2)) | (nfa_2b_sr000001 in(-1, -2) & nfa_2b_sr000002 >= 0)
| (nfa_2c_sr000001 >= 0 & nfa_2c_sr000002 in(-1, -2)) | (nfa_2c_sr000001 in(-1, -2) & nfa_2c_sr000002 >= 0)
| (fa_1a_sr000001 >= 0 & fa_1a_sr000002 in(-1, -2)) | (fa_1a_sr000001 in(-1, -2) & fa_1a_sr000002 >= 0)
| (fa_8d_sr000001_01 >= 0 & fa_8d_sr000002_01 in(-1, -2)) | (fa_8d_sr000001_01 in(-1, -2) & fa_8d_sr000002_01 >= 0)
| (fa_8d_sr000001_02 >= 0 & fa_8d_sr000002_02 in(-1, -2)) | (fa_8d_sr000001_02 in(-1, -2) & fa_8d_sr000002_02 >= 0)
| (fa_8d_sr000001_03 >= 0 & fa_8d_sr000002_03 in(-1, -2)) | (fa_8d_sr000001_03 in(-1, -2) & fa_8d_sr000002_03 >= 0)
| (fa_8d_sr000001_04 >= 0 & fa_8d_sr000002_04 in(-1, -2)) | (fa_8d_sr000001_04 in(-1, -2) & fa_8d_sr000002_04 >= 0)
| (fa_8d_sr000001_05 >= 0 & fa_8d_sr000002_05 in(-1, -2)) | (fa_8d_sr000001_05 in(-1, -2) & fa_8d_sr000002_05 >= 0)
| (fa_8d_sr000001_06 >= 0 & fa_8d_sr000002_06 in(-1, -2)) | (fa_8d_sr000001_06 in(-1, -2) & fa_8d_sr000002_06 >= 0)
| (fa_8d_sr000001_07 >= 0 & fa_8d_sr000002_07 in(-1, -2)) | (fa_8d_sr000001_07 in(-1, -2) & fa_8d_sr000002_07 >= 0)
| (fa_6e_sr000001 >= 0 & fa_6e_sr000002 in(-1, -2)) | (fa_6e_sr000001 in(-1, -2) & fa_6e_sr000002 >= 0)
| (fa_7c_sr000001 >= 0 & fa_7c_sr000002 in(-1, -2)) | (fa_7c_sr000001 in(-1, -2) & fa_7c_sr000002 >= 0)
| (fa_2a_sr000001 >= 0 & fa_2a_sr000002 in(-1, -2)) | (fa_2a_sr000001 in(-1, -2) & fa_2a_sr000002 >= 0)
| (fa_3a_sr000001 >= 0 & fa_3a_sr000002 in(-1, -2)) | (fa_3a_sr000001 in(-1, -2) & fa_3a_sr000002 >= 0)
| (fa_4a_sr000001 >= 0 & fa_4a_sr000002 in(-1, -2)) | (fa_4a_sr000001 in(-1, -2) & fa_4a_sr000002 >= 0)
| (fa_5a_sr000001 >= 0 & fa_5a_sr000002 in(-1, -2)) | (fa_5a_sr000001 in(-1, -2) & fa_5a_sr000002 >= 0)
| (fa_9a_sr000001 >= 0 & fa_9a_sr000002 in(-1, -2)) | (fa_9a_sr000001 in(-1, -2) & fa_9a_sr000002 >= 0)
| (fa_10a_sr000001 >= 0 & fa_10a_sr000002 in(-1, -2)) | (fa_10a_sr000001 in(-1, -2) & fa_10a_sr000002 >= 0)
| (fa_11a_sr000001 >= 0 & fa_11a_sr000002 in(-1, -2)) | (fa_11a_sr000001 in(-1, -2) & fa_11a_sr000002 >= 0)
| (q13_131_sr000001 >= 0 & q13_131_sr000002 in(-1, -2)) | (q13_131_sr000001 in(-1, -2) & q13_131_sr000002 >= 0)
| (q13_132_sr000001 >= 0 & q13_132_sr000002 in(-1, -2)) | (q13_132_sr000001 in(-1, -2) & q13_132_sr000002 >= 0)
| (sc_12b_sr000001_01 >= 0 & sc_12b_sr000002_01 in(-1, -2)) | (sc_12b_sr000001_01 in(-1, -2) & sc_12b_sr000002_01 >= 0)
| (nfa_4f_sr000001_01 >= 0 & nfa_4f_sr000002_01 in(-1, -2)) | (nfa_4f_sr000001_01 in(-1, -2) & nfa_4f_sr000002_01 >= 0)
| (nfa_4f_sr000001_02 >= 0 & nfa_4f_sr000002_02 in(-1, -2)) | (nfa_4f_sr000001_02 in(-1, -2) & nfa_4f_sr000002_02 >= 0)
| (nfa_4f_sr000001_03 >= 0 & nfa_4f_sr000002_03 in(-1, -2)) | (nfa_4f_sr000001_03 in(-1, -2) & nfa_4f_sr000002_03 >= 0)
| (nfa_4f_sr000001_04 >= 0 & nfa_4f_sr000002_04 in(-1, -2)) | (nfa_4f_sr000001_04 in(-1, -2) & nfa_4f_sr000002_04 >= 0)
| (nfa_4f_sr000001_05 >= 0 & nfa_4f_sr000002_05 in(-1, -2)) | (nfa_4f_sr000001_05 in(-1, -2) & nfa_4f_sr000002_05 >= 0)
| (sc_12a_sr000001_01 >= 0 & sc_12a_sr000002_01 in(-1, -2)) | (sc_12a_sr000001_01 in(-1, -2) & sc_12a_sr000002_01 >= 0)
| (sc_12a_sr000001_02 >= 0 & sc_12a_sr000002_02 in(-1, -2)) | (sc_12a_sr000001_02 in(-1, -2) & sc_12a_sr000002_02 >= 0)
| (nfa_4c_sr000001_01 >= 0 & nfa_4c_sr000002_01 in(-1, -2)) | (nfa_4c_sr000001_01 in(-1, -2) & nfa_4c_sr000002_01 >= 0)
| (nfa_4c_sr000001_02 >= 0 & nfa_4c_sr000002_02 in(-1, -2)) | (nfa_4c_sr000001_02 in(-1, -2) & nfa_4c_sr000002_02 >= 0)
| (nfa_4c_sr000001_03 >= 0 & nfa_4c_sr000002_03 in(-1, -2)) | (nfa_4c_sr000001_03 in(-1, -2) & nfa_4c_sr000002_03 >= 0)
| (nfa_4c_sr000001_04 >= 0 & nfa_4c_sr000002_04 in(-1, -2)) | (nfa_4c_sr000001_04 in(-1, -2) & nfa_4c_sr000002_04 >= 0)
| (nfa_4c_sr000001_05 >= 0 & nfa_4c_sr000002_05 in(-1, -2)) | (nfa_4c_sr000001_05 in(-1, -2) & nfa_4c_sr000002_05 >= 0)
| (nfa_4c_sr000001_06 >= 0 & nfa_4c_sr000002_06 in(-1, -2)) | (nfa_4c_sr000001_06 in(-1, -2) & nfa_4c_sr000002_06 >= 0)
| (nfa_4c_sr000001_11 >= 0 & nfa_4c_sr000002_11 in(-1, -2)) | (nfa_4c_sr000001_11 in(-1, -2) & nfa_4c_sr000002_11 >= 0)
| (nfa_4c_sr000001_12 >= 0 & nfa_4c_sr000002_12 in(-1, -2)) | (nfa_4c_sr000001_12 in(-1, -2) & nfa_4c_sr000002_12 >= 0)
| (nfa_5c_sr000001 >= 0 & nfa_5c_sr000002 in(-1, -2)) | (nfa_5c_sr000001 in(-1, -2) & nfa_5c_sr000002 >= 0)
| (nfa_6e_sr000001 >= 0 & nfa_6e_sr000002 in(-1, -2)) | (nfa_6e_sr000001 in(-1, -2) & nfa_6e_sr000002 >= 0)
| (debt_1a_sr000001 >= 0 & debt_1a_sr000002 in(-1, -2)) | (debt_1a_sr000001 in(-1, -2) & debt_1a_sr000002 >= 0)))
then tnfw_trunc = -3;
end;

2012 TNFW_TRUNC Variable Creation

/***************************************************/
/* Compute dollar amt for dollars & cents vars     */
/***************************************************/

nfa_7d_truncc = nfa_7d_trunc;
if (nfa_7d_trunc > 0) then nfa_7d_truncc = (nfa_7d_trunc/100);

/***************************************************/
/* Compute dynamic QUARTILE VALUES for estimates   */
/***************************************************/

array quartileqs (i) quartile1 quartile2 quartile3 quartile4;

do i = 1 to 4;
quartileqs = 0;
end;

if (symbol_entry_othhh = 7200) then do;
quartile1 = (5000/2);
quartile2 = (5000 + ((7200-5000)/2));
quartile3 = (7200 + ((30000-7200)/2));
quartile4 = 30000; /* Note: Use median of actual values > 30000 where possible. Otherwise set to 30000 */
end;
else if (symbol_entry_othhh = 13000) then do;
quartile1 = (5000/2);
quartile2 = (5000 + ((13000-5000)/2));
quartile3 = (13000 + ((30000-13000)/2));
quartile4 = 30000; /* Note: Use median of actual values > 30000 where possible. Otherwise set to 30000 */
end;

/***************************************************/
/* BEGIN COMPUTATIONS FOR NET WEALTH COMPONENTS    */
/***************************************************/

array assetsc (i)      homec mortc pdebtc cashc irac a401kc cdsc stockc trustc bizc
                       bdebtc cdebtc carc posesc odebtc tnfw_trunc
                       collections items ccdebt studentloan childstudentloan owebusiness otherdebt
                       solebiz farm_1_value1 farm_2_value1 business_1_value1 business_2_value1
                       business_3_value1 business_4_value1 business_5_value1 realestate_1_value1
                       realestate_2_value1 realestate_3_value1 realestate_4_value1
                       farm_1_value farm_2_value business_1_value business_2_value
                       business_3_value business_4_value business_5_value realestate_1_value
                       realestate_2_value realestate_3_value realestate_4_value
                       debtbiz farm_1_debt1 farm_2_debt1 business_1_debt1 business_2_debt1
                       business_3_debt1 business_4_debt1 business_5_debt1 realestate_1_debt1
                       realestate_2_debt1 realestate_3_debt1 realestate_4_debt1
                       farm_1_debt farm_2_debt business_1_debt business_2_debt
                       business_3_debt business_4_debt business_5_debt realestate_1_debt
                       govbonds mutual lifeinsure shares corpbond moneyowedtor
                       home1 secondhome mort1 secondmort pdebt1 secondpdebt
                       ira1 ira2 ira3 ira4 ira5 ira6 ira7 r_401k sp_401k
                       amtowe_assetpoorcars1 amtowe_assetpoorcars2 amtowe_assetpoorcars3
                       amountowe_vehicles1 amountowe_vehicles2 amountowe_vehicles3 amountowe_vehicles4
                       amountowe_vehicles5 amountowe_vehicles6 amountowe_vehicles9 amtowe_othervehicles
                       mktval_assetpoorcars1 mktval_assetpoorcars2 mktval_assetpoorcars3
                       marketvalue_vehicles1 marketvalue_vehicles2 marketvalue_vehicles3 marketvalue_vehicles4
                       marketvalue_vehicles5 marketvalue_vehicles6 marketvalue_vehicles7 marketvalue_vehicles8
                       marketvalue_vehicles9 marketvalue_vehicles10 marketvalue_vehicles11 marketvalue_vehicles12
                       marketvalue_vehicles13 marketvalue_vehicles14 marketvalue_vehicles15 marketvalue_vehicles16
                       marketvalue_vehicles17 mktval_othervehicles;

do i = 1 to 119;
if (sampweight = 0) then assetsc = -5;
else if (sampweight > 0) then assetsc = 0;
end;

/****************************/
/* Compute POSES            */
/****************************/
/*************************************************/
/* POSES Component - collections                 */
/*************************************************/

if (nfa_6a = 1 & nfa_6e_trunc >= 0) then collections = (collections + nfa_6e_trunc);
else if (nfa_6a = 1 & nfa_6e_ref_1 = 1 & nfa_6e_sr000001 < 0 & nfa_6e_sr000002 < 0
& nfa_6e_uab_a < 0 & nfa_6e_uab_b < 0 & nfa_6e_uab_c < 0) then collections = -1;
else if (nfa_6a = 1 & nfa_6e_trunc in(-1, -2) & nfa_6e_sr000001 < 0 & nfa_6e_sr000002 < 0
& nfa_6e_uab_a < 0 & nfa_6e_uab_b < 0 & nfa_6e_uab_c < 0) then collections = nfa_6e_trunc;
    else if (nfa_6e_sr000001 >= 0 & nfa_6e_sr000002 >= 0 & nfa_6e_sr000002 = nfa_6e_sr000001) then
    collections = (collections + nfa_6e_sr000001);
     else if (nfa_6e_sr000001 >= 0 & nfa_6e_sr000002 >= 0 & nfa_6e_sr000002 > nfa_6e_sr000001) then
     collections = (collections + (((nfa_6e_sr000002 - nfa_6e_sr000001)/2) + nfa_6e_sr000001));
      else if (nfa_6e_sr000001 >= 0 & nfa_6e_sr000002 >= 0 & nfa_6e_sr000002 < nfa_6e_sr000001) then
      collections = (collections + (((nfa_6e_sr000001 - nfa_6e_sr000002)/2) + nfa_6e_sr000002));
       else if (nfa_6e_trunc in(-1, -2, -4) & nfa_6e_uab_b = 0) then collections = (collections + quartile1);
        else if (nfa_6e_trunc in(-1, -2, -4) & nfa_6e_uab_b = 1) then collections = (collections + quartile2);
         else if (nfa_6e_trunc in(-1, -2, -4) & nfa_6e_uab_c = 0) then collections = (collections + quartile3);
          else if (nfa_6e_trunc in(-1, -2, -4) & nfa_6e_uab_c = 1) then collections = (collections + 66000);
           else if (nfa_6e_uab_a in(-1, -2) | nfa_6e_uab_b in(-1, -2) | nfa_6e_uab_c in(-1, -2)) then collections = -3;

/*************************************************/
/* POSES Component - items                       */
/*************************************************/

if (nfa_7 = 1 & nfa_7d_truncc >= 0) then items = (items + nfa_7d_truncc);
else if (nfa_7 = 1 & nfa_7d_ref_1 = 1 & nfa_7d_uab_a < 0 & nfa_7d_uab_b < 0 & nfa_7d_uab_c < 0) then items = -1;
else if (nfa_7 = 1 & nfa_7d_truncc in(-1, -2) & nfa_7d_uab_a < 0 & nfa_7d_uab_b < 0 & nfa_7d_uab_c < 0) then items = nfa_7d_truncc;
   else if (nfa_7d_truncc in(-1, -2, -4) & nfa_7d_uab_b = 0) then items = (items + quartile1);
    else if (nfa_7d_truncc in(-1, -2, -4) & nfa_7d_uab_b = 1) then items = (items + quartile2);
     else if (nfa_7d_truncc in(-1, -2, -4) & nfa_7d_uab_c = 0) then items = (items + quartile3);
      else if (nfa_7d_truncc in(-1, -2, -4) & nfa_7d_uab_c = 1) then items = (items + 50000);
       else if (nfa_7d_uab_a in(-1, -2) | nfa_7d_uab_b in(-1, -2) | nfa_7d_uab_c in(-1, -2)) then items = -3;

/*******************************/
/* Add components POSES        */
/*******************************/

if (collections >= 0) then posesc = (posesc + collections);
if (items >= 0) then posesc = (posesc + items);
if (collections in(-1, -2, -3)) then posesc = -3;
else if (items in(-1, -2, -3)) then posesc = -3;

/****************************/
/* Compute ODEBT            */
/****************************/

/*************************************************/
/* ODEBT Component - ccdebt                      */
/*************************************************/

if (debt_1 = 1 & debt_1a_trunc >= 0) then ccdebt = (ccdebt + debt_1a_trunc);
else if (debt_1 = 1 & debt_1a_ref_1 = 1 & debt_1a_sr000001 < 0 & debt_1a_sr000002 < 0
& debt_1a_uab_a < 0 & debt_1a_uab_b < 0 & debt_1a_uab_c < 0) then ccdebt = -1;
else if (debt_1 = 1 & debt_1a_trunc in(-1, -2) & debt_1a_sr000001 < 0 & debt_1a_sr000002 < 0
& debt_1a_uab_a < 0 & debt_1a_uab_b < 0 & debt_1a_uab_c < 0) then ccdebt = debt_1a_trunc;
    else if (debt_1a_sr000001 >= 0 & debt_1a_sr000002 >= 0 & debt_1a_sr000002 = debt_1a_sr000001) then
    ccdebt = (ccdebt + debt_1a_sr000001);
     else if (debt_1a_sr000001 >= 0 & debt_1a_sr000002 >= 0 & debt_1a_sr000002 > debt_1a_sr000001) then
     ccdebt = (ccdebt + (((debt_1a_sr000002 - debt_1a_sr000001)/2) + debt_1a_sr000001));
      else if (debt_1a_sr000001 >= 0 & debt_1a_sr000002 >= 0 & debt_1a_sr000002 < debt_1a_sr000001) then
      ccdebt = (ccdebt + (((debt_1a_sr000001 - debt_1a_sr000002)/2) + debt_1a_sr000002));
       else if (debt_1a_trunc in(-1, -2, -4) & debt_1a_uab_b = 0) then ccdebt = (ccdebt + quartile1);
        else if (debt_1a_trunc in(-1, -2, -4) & debt_1a_uab_b = 1) then ccdebt = (ccdebt + quartile2);
         else if (debt_1a_trunc in(-1, -2, -4) & debt_1a_uab_c = 0) then ccdebt = (ccdebt + quartile3);
          else if (debt_1a_trunc in(-1, -2, -4) & debt_1a_uab_c = 1) then ccdebt = (ccdebt + 45000);
           else if (debt_1a_uab_a in(-1, -2) | debt_1a_uab_b in(-1, -2) | debt_1a_uab_c in(-1, -2)) then ccdebt = -3;

/*************************************************/
/* ODEBT Component - studentloan                 */
/*************************************************/

if (debt_2 = 1 & debt_2a_trunc >= 0) then studentloan = (studentloan + debt_2a_trunc);
else if (debt_2 = 1 & debt_2a_ref_1 = 1 & debt_2a_uab_a < 0 & debt_2a_uab_b < 0
& debt_2a_uab_c < 0) then studentloan = -1;
else if (debt_2 = 1 & debt_2a_trunc in(-1, -2) & debt_2a_uab_a < 0 & debt_2a_uab_b < 0
& debt_2a_uab_c < 0) then studentloan = debt_2a_trunc;
   else if (debt_2a_trunc in(-1, -2, -4) & debt_2a_uab_b = 0) then studentloan = (studentloan + quartile1);
    else if (debt_2a_trunc in(-1, -2, -4) & debt_2a_uab_b = 1) then studentloan = (studentloan + quartile2);
     else if (debt_2a_trunc in(-1, -2, -4) & debt_2a_uab_c = 0) then studentloan = (studentloan + quartile3);
      else if (debt_2a_trunc in(-1, -2, -4) & debt_2a_uab_c = 1) then studentloan = (studentloan + 52500);
       else if (debt_2a_uab_a in(-1, -2) | debt_2a_uab_b in(-1, -2) | debt_2a_uab_c in(-1, -2)) then studentloan = -3;

/*************************************************/
/* ODEBT Component - childstudentloan            */
/*************************************************/

if (debt_2c = 1 & debt_2d_trunc >= 0) then childstudentloan = (childstudentloan + debt_2d_trunc);
else if (debt_2c = 1 & debt_2d_ref_1 = 1 & debt_2d_uab_a < 0 & debt_2d_uab_b < 0
& debt_2d_uab_c < 0) then childstudentloan = -1;
else if (debt_2c = 1 & debt_2d_trunc in(-1, -2) & debt_2d_uab_a < 0 & debt_2d_uab_b < 0
& debt_2d_uab_c < 0) then childstudentloan = debt_2d_trunc;
   else if (debt_2d_trunc in(-1, -2, -4) & debt_2d_uab_b = 0) then childstudentloan = (childstudentloan + quartile1);
    else if (debt_2d_trunc in(-1, -2, -4) & debt_2d_uab_b = 1) then childstudentloan = (childstudentloan + quartile2);
     else if (debt_2d_trunc in(-1, -2, -4) & debt_2d_uab_c = 0) then childstudentloan = (childstudentloan + quartile3);
      else if (debt_2d_trunc in(-1, -2, -4) & debt_2d_uab_c = 1) then childstudentloan = (childstudentloan + 50000);
       else if (debt_2d_uab_a in(-1, -2) | debt_2d_uab_b in(-1, -2) | debt_2d_uab_c in(-1, -2)) then childstudentloan = -3;

/*************************************************/
/* ODEBT Component - owebusiness                 */
/*************************************************/

if (debt_3 = 1 & debt_3a_trunc >= 0) then owebusiness = (owebusiness + debt_3a_trunc);
else if (debt_3 = 1 & debt_3a_ref_1 = 1 & debt_3a_uab_a < 0 & debt_3a_uab_b < 0
& debt_3a_uab_c < 0) then owebusiness = -1;
else if (debt_3 = 1 & debt_3a_trunc in(-1, -2) & debt_3a_uab_a < 0 & debt_3a_uab_b < 0
& debt_3a_uab_c < 0) then owebusiness = debt_3a_trunc;
   else if (debt_3a_trunc in(-1, -2, -4) & debt_3a_uab_b = 0) then owebusiness = (owebusiness + quartile1);
    else if (debt_3a_trunc in(-1, -2, -4) & debt_3a_uab_b = 1) then owebusiness = (owebusiness + quartile2);
     else if (debt_3a_trunc in(-1, -2, -4) & debt_3a_uab_c = 0) then owebusiness = (owebusiness + quartile3);
      else if (debt_3a_trunc in(-1, -2, -4) & debt_3a_uab_c = 1) then owebusiness = (owebusiness + 68000);
       else if (debt_3a_uab_a in(-1, -2) | debt_3a_uab_b in(-1, -2) | debt_3a_uab_c in(-1, -2)) then owebusiness = -3;

/*************************************************/
/* ODEBT Component - otherdebt                   */
/*************************************************/

if (debt_4 = 1 & debt_4a_trunc >= 0) then otherdebt = (otherdebt + debt_4a_trunc);
else if (debt_4 = 1 & debt_4a_ref_1 = 1 & debt_4a_uab_a < 0 & debt_4a_uab_b < 0
& debt_4a_uab_c < 0) then otherdebt = -1;
else if (debt_4 = 1 & debt_4a_trunc in(-1, -2) & debt_4a_uab_a < 0 & debt_4a_uab_b < 0
& debt_4a_uab_c < 0) then otherdebt = debt_4a_trunc;
   else if (debt_4a_trunc in(-1, -2, -4) & debt_4a_uab_b = 0) then otherdebt = (otherdebt + quartile1);
    else if (debt_4a_trunc in(-1, -2, -4) & debt_4a_uab_b = 1) then otherdebt = (otherdebt + quartile2);
     else if (debt_4a_trunc in(-1, -2, -4) & debt_4a_uab_c = 0) then otherdebt = (otherdebt + quartile3);
      else if (debt_4a_trunc in(-1, -2, -4) & debt_4a_uab_c = 1) then otherdebt = (otherdebt + 55500);
       else if (debt_4a_uab_a in(-1, -2) | debt_4a_uab_b in(-1, -2) | debt_4a_uab_c in(-1, -2)) then otherdebt = -3;

/*******************************/
/* Add components ODEBT        */
/*******************************/

if (ccdebt >= 0) then odebtc = (odebtc + ccdebt);
if (studentloan >= 0) then odebtc = (odebtc + studentloan);
if (childstudentloan >= 0) then odebtc = (odebtc + childstudentloan);
if (owebusiness >= 0) then odebtc = (odebtc + owebusiness);
if (otherdebt >= 0) then odebtc = (odebtc + otherdebt);
if (ccdebt in(-1, -2, -3)) then odebtc = -3;
else if (studentloan in(-1, -2, -3)) then odebtc = -3;
else if (childstudentloan in(-1, -2, -3)) then odebtc = -3;
else if (owebusiness in(-1, -2, -3)) then odebtc = -3;
else if (otherdebt in(-1, -2, -3)) then odebtc = -3;

/****************************/
/* Compute BIZ              */
/****************************/

/*************************************************/
/* BIZ Component - solebiz                       */
/*************************************************/

if (q13_131_trunc >= 0) then solebiz = (solebiz + q13_131_trunc);
else if (q13_131_ref_1 = 1 & q13_131_sr000001 < 0 & q13_131_sr000002_trunc < 0
& q13_131_uab_a < 0 & q13_131_uab_c < 0) then solebiz = -1;
else if (q13_131_trunc in(-1, -2) & q13_131_sr000001 < 0 & q13_131_sr000002_trunc < 0
& q13_131_uab_a < 0 & q13_131_uab_c < 0) then solebiz = q13_131_trunc;
    else if (q13_131_sr000001 >= 0 & q13_131_sr000002_trunc >= 0 & q13_131_sr000002_trunc = q13_131_sr000001) then
    solebiz = (solebiz + q13_131_sr000001);
     else if (q13_131_sr000001 >= 0 & q13_131_sr000002_trunc >= 0 & q13_131_sr000002_trunc > q13_131_sr000001) then
     solebiz = (solebiz + (((q13_131_sr000002_trunc - q13_131_sr000001)/2) + q13_131_sr000001));
      else if (q13_131_sr000001 >= 0 & q13_131_sr000002_trunc >= 0 & q13_131_sr000002_trunc < q13_131_sr000001) then
      solebiz = (solebiz + (((q13_131_sr000001 - q13_131_sr000002_trunc)/2) + q13_131_sr000002_trunc));
       else if (q13_131_trunc in(-1, -2, -4) & q13_131_uab_c = 0) then solebiz = (solebiz + quartile3);
        else if (q13_131_trunc in(-1, -2, -4) & q13_131_uab_c = 1) then solebiz = (solebiz + 250000);
         else if (q13_131_uab_a in(-1, -2) | q13_131_uab_c in(-1, -2)) then solebiz = -3;
/********************************************************************************************************/
/* BIZ Components - farm_#_value, business_#_value, realestate_#_value & percentage ownership           */
/********************************************************************************************************/

if (q13_fjt_11_trunc_01 > -4) then farm_1_value1 = q13_fjt_11_trunc_01;
if (q13_fjt_11_trunc_02 > -4) then farm_2_value1 = q13_fjt_11_trunc_02;
if (q13_bppjt_11_trunc_01 > -4) then business_1_value1 = q13_bppjt_11_trunc_01;
if (q13_bppjt_11_trunc_02 > -4) then business_2_value1 = q13_bppjt_11_trunc_02;
if (q13_bppjt_11_trunc_03 > -4) then business_3_value1 = q13_bppjt_11_trunc_03;
if (q13_bppjt_11_trunc_04 > -4) then business_4_value1 = q13_bppjt_11_trunc_04;
if (q13_bppjt_11_trunc_05 > -4) then business_5_value1 = q13_bppjt_11_trunc_05;
if (q13_rejt_11_trunc_01 > -4) then realestate_1_value1 = q13_rejt_11_trunc_01;
if (q13_rejt_11_trunc_02 > -4) then realestate_2_value1 = q13_rejt_11_trunc_02;
if (q13_rejt_11_trunc_03 > -4) then realestate_3_value1 = q13_rejt_11_trunc_03;
if (q13_rejt_11_trunc_04 > -4) then realestate_4_value1 = q13_rejt_11_trunc_04;

if (q13_fjt_12b_01 > -4) then farm_1_pcntshare = q13_fjt_12b_01;
if (q13_fjt_12b_02 > -4) then farm_2_pcntshare = q13_fjt_12b_02;
if (q13_bppjt_12b_01 > -4) then business_1_pcntshare = q13_bppjt_12b_01;
if (q13_bppjt_12b_02 > -4) then business_2_pcntshare = q13_bppjt_12b_02;
if (q13_bppjt_12b_03 > -4) then business_3_pcntshare = q13_bppjt_12b_03;
if (q13_rejt_12b_01 > -4) then realestate_1_pcntshare = q13_rejt_12b_01;
if (q13_rejt_12b_02 > -4) then realestate_2_pcntshare = q13_rejt_12b_02;
if (q13_rejt_12b_03 > -4) then realestate_3_pcntshare = q13_rejt_12b_03;
if (q13_rejt_12b_04 > -4) then realestate_4_pcntshare = q13_rejt_12b_04;

if (farm_1_pcntshare > 0) then farm_1_pcntshare = (farm_1_pcntshare / 100);
if (farm_2_pcntshare > 0) then farm_2_pcntshare = (farm_2_pcntshare / 100);
if (business_1_pcntshare > 0) then business_1_pcntshare = (business_1_pcntshare / 100);
if (business_2_pcntshare > 0) then business_2_pcntshare = (business_2_pcntshare / 100);
if (business_3_pcntshare > 0) then business_3_pcntshare = (business_3_pcntshare / 100);
if (realestate_1_pcntshare > 0) then realestate_1_pcntshare = (realestate_1_pcntshare / 100);
if (realestate_2_pcntshare > 0) then realestate_2_pcntshare = (realestate_2_pcntshare / 100);
if (realestate_3_pcntshare > 0) then realestate_3_pcntshare = (realestate_3_pcntshare / 100);
if (realestate_4_pcntshare > 0) then realestate_4_pcntshare = (realestate_4_pcntshare / 100);

if (farm_1_value1 >= 0 & farm_1_pcntshare >= 0) then farm_1_value = (farm_1_value1 * farm_1_pcntshare);
if (farm_2_value1 >= 0 & farm_2_pcntshare >= 0) then farm_2_value = (farm_2_value1 * farm_2_pcntshare);
if (business_1_value1 >= 0 & business_1_pcntshare >= 0) then business_1_value = (business_1_value1 * business_1_pcntshare);
if (business_2_value1 >= 0 & business_2_pcntshare >= 0) then business_2_value = (business_2_value1 * business_2_pcntshare);
if (business_3_value1 >= 0 & business_3_pcntshare >= 0) then business_3_value = (business_3_value1 * business_3_pcntshare);
if (realestate_1_value1 >= 0 & realestate_1_pcntshare >= 0) then realestate_1_value = (realestate_1_value1 * realestate_1_pcntshare);
if (realestate_2_value1 >= 0 & realestate_2_pcntshare >= 0) then realestate_2_value = (realestate_2_value1 * realestate_2_pcntshare);
if (realestate_3_value1 >= 0 & realestate_3_pcntshare >= 0) then realestate_3_value = (realestate_3_value1 * realestate_3_pcntshare);
if (realestate_4_value1 >= 0 & realestate_4_pcntshare >= 0) then realestate_4_value = (realestate_4_value1 * realestate_4_pcntshare);

/*******************************/
/* Add components BIZ          */
/*******************************/

if (solebiz >= 0) then bizc = (bizc + solebiz);
if (farm_1_value >= 0) then bizc = (bizc + farm_1_value);
if (farm_2_value >= 0) then bizc = (bizc + farm_2_value);
if (business_1_value >= 0) then bizc = (bizc + business_1_value);
if (business_2_value >= 0) then bizc = (bizc + business_2_value);
if (business_3_value >= 0) then bizc = (bizc + business_3_value);
if (business_4_value >= 0) then bizc = (bizc + business_4_value);
if (business_5_value >= 0) then bizc = (bizc + business_5_value);
if (realestate_1_value >= 0) then bizc = (bizc + realestate_1_value);
if (realestate_2_value >= 0) then bizc = (bizc + realestate_2_value);
if (realestate_3_value >= 0) then bizc = (bizc + realestate_3_value);
if (realestate_4_value >= 0) then bizc = (bizc + realestate_4_value);

if (solebiz in(-1, -2, -3)) then bizc = -3;
if (farm_1_value in(-1, -2, -3) | farm_1_pcntshare in(-1, -2, -3)) then bizc = -3;
if (farm_2_value in(-1, -2, -3) | farm_2_pcntshare in(-1, -2, -3)) then bizc = -3;
if (business_1_value in(-1, -2, -3) | business_1_pcntshare in(-1, -2, -3)) then bizc = -3;
if (business_2_value in(-1, -2, -3) | business_2_pcntshare in(-1, -2, -3)) then bizc = -3;
if (business_3_value in(-1, -2, -3) | business_3_pcntshare in(-1, -2, -3)) then bizc = -3;
if (business_4_value in(-1, -2, -3)) then bizc = -3;
if (business_5_value in(-1, -2, -3)) then bizc = -3;
if (realestate_1_value in(-1, -2, -3) | realestate_1_pcntshare in(-1, -2, -3)) then bizc = -3;
if (realestate_2_value in(-1, -2, -3) | realestate_2_pcntshare in(-1, -2, -3)) then bizc = -3;
if (realestate_3_value in(-1, -2, -3) | realestate_3_pcntshare in(-1, -2, -3)) then bizc = -3;
if (realestate_4_value in(-1, -2, -3) | realestate_4_pcntshare in(-1, -2, -3)) then bizc = -3;

/****************************/
/* Compute BDEBT       */
/****************************/

/*************************************************/
/* BDEBT Component - debtbiz                     */
/*************************************************/

if (q13_132_trunc >= 0) then debtbiz = (debtbiz + q13_132_trunc);
else if (q13_132_trunc = 1 & q13_132_ref_1 = 1 & q13_132_sr000001 < 0 & q13_132_sr000002 < 0
& q13_132_uab_a < 0 & q13_132_uab_c < 0) then debtbiz = -1;
else if (q13_132_trunc in(-1, -2) & q13_132_sr000001 < 0 & q13_132_sr000002 < 0
& q13_132_uab_a < 0 & q13_132_uab_c < 0) then debtbiz = q13_132_trunc;
    else if (q13_132_sr000001 >= 0 & q13_132_sr000002 >= 0 & q13_132_sr000002 = q13_132_sr000001) then
    debtbiz = (debtbiz + q13_132_sr000001);
     else if (q13_132_sr000001 >= 0 & q13_132_sr000002 >= 0 & q13_132_sr000002 > q13_132_sr000001) then
     debtbiz = (debtbiz + (((q13_132_sr000002 - q13_132_sr000001)/2) + q13_132_sr000001));
      else if (q13_132_sr000001 >= 0 & q13_132_sr000002 >= 0 & q13_132_sr000002 < q13_132_sr000001) then
      debtbiz = (debtbiz + (((q13_132_sr000001 - q13_132_sr000002)/2) + q13_132_sr000002));
       else if (q13_132_trunc in(-1, -2, -4) & q13_132_uab_c = 0) then debtbiz = (debtbiz + quartile3);
        else if (q13_132_trunc in(-1, -2, -4) & q13_132_uab_c = 1) then debtbiz = (debtbiz + 200000);
         else if (q13_132_uab_a in(-1, -2) | q13_132_uab_c in(-1, -2)) then debtbiz = -3;

/********************************************************************************************************/
/* BDEBT Components - farm_#_debt, business_#_debt, realestate_#_debt                                   */
/*       (use ownership percentage computed above for bizc)                                             */
/********************************************************************************************************/

if (q13_fjt_12_trunc_01 > -4) then farm_1_debt1 = q13_fjt_12_trunc_01;
if (q13_fjt_12_trunc_02 > -4) then farm_2_debt1 = q13_fjt_12_trunc_02;
if (q13_bppjt_12_trunc_01 > -4) then business_1_debt1 = q13_bppjt_12_trunc_01;
if (q13_bppjt_12_trunc_02 > -4) then business_2_debt1 = q13_bppjt_12_trunc_02;
if (q13_bppjt_12_trunc_03 > -4) then business_3_debt1 = q13_bppjt_12_trunc_03;
if (q13_bppjt_12_trunc_04 > -4) then business_4_debt1 = q13_bppjt_12_trunc_04;
if (q13_bppjt_12_trunc_05 > -4) then business_5_debt1 = q13_bppjt_12_trunc_05;
if (q13_rejt_12_trunc > -4) then realestate_1_debt1 = q13_rejt_12_trunc;

if (farm_1_debt1 >= 0 & farm_1_pcntshare >= 0) then farm_1_debt = (farm_1_debt1 * farm_1_pcntshare);
if (farm_2_debt1 >= 0 & farm_2_pcntshare >= 0) then farm_2_debt = (farm_2_debt1 * farm_2_pcntshare);
if (business_1_debt1 >= 0 & business_1_pcntshare >= 0) then business_1_debt = (business_1_debt1 * business_1_pcntshare);
if (business_2_debt1 >= 0 & business_2_pcntshare >= 0) then business_2_debt = (business_2_debt1 * business_2_pcntshare);
if (business_3_debt1 >= 0 & business_3_pcntshare >= 0) then business_3_debt = (business_3_debt1 * business_3_pcntshare);
if (business_4_debt1 >= 0) then business_4_debt = (business_4_debt1);
if (business_5_debt1 >= 0) then business_5_debt = (business_5_debt1);
if (realestate_1_debt1 >= 0 & realestate_1_pcntshare >= 0) then realestate_1_debt = (realestate_1_debt1 * realestate_1_pcntshare);

/*******************************/
/* Add components BDEBT        */
/*******************************/

if (debtbiz >= 0) then bdebtc = (bdebtc + debtbiz);
if (farm_1_debt >= 0) then bdebtc = (bdebtc + farm_1_debt);
if (farm_2_debt >= 0) then bdebtc = (bdebtc + farm_2_debt);
if (business_1_debt >= 0) then bdebtc = (bdebtc + business_1_debt);
if (business_2_debt >= 0) then bdebtc = (bdebtc + business_2_debt);
if (business_3_debt >= 0) then bdebtc = (bdebtc + business_3_debt);
if (business_4_debt >= 0) then bdebtc = (bdebtc + business_4_debt);
if (business_5_debt >= 0) then bdebtc = (bdebtc + business_5_debt);
if (realestate_1_debt >= 0) then bdebtc = (bdebtc + realestate_1_debt);

if (debtbiz in(-1, -2, -3)) then bdebtc = -3;
if (farm_1_debt in(-1, -2, -3) | farm_1_pcntshare in(-1, -2, -3)) then bdebtc = -3;
if (farm_2_debt in(-1, -2, -3) | farm_2_pcntshare in(-1, -2, -3)) then bdebtc = -3;
if (business_1_debt in(-1, -2, -3) | business_1_pcntshare in(-1, -2, -3)) then bdebtc = -3;
if (business_2_debt in(-1, -2, -3) | business_2_pcntshare in(-1, -2, -3)) then bdebtc = -3;
if (business_3_debt in(-1, -2, -3) | business_3_pcntshare in(-1, -2, -3)) then bdebtc = -3;
if (business_4_debt in(-1, -2, -3)) then bdebtc = -3;
if (business_5_debt in(-1, -2, -3)) then bdebtc = -3;
if (realestate_1_debt in(-1, -2, -3) | realestate_1_pcntshare in(-1, -2, -3)) then bdebtc = -3;

/****************************/
/* Compute CASH             */
/****************************/

/*************************************************/
/* CASH Component - cash                         */
/*************************************************/

if (fa_1 = 1 & fa_1a_trunc >= 0) then cashc = (cashc + fa_1a_trunc);
else if (fa_1 = 1 & fa_1_ref_1 = 1 & fa_1a_sr000001_trunc < 0 & fa_1a_sr000002_trunc < 0
& fa_1a_uab_a < 0 & fa_1a_uab_b < 0 & fa_1a_uab_c < 0) then cashc = -1;
else if (fa_1 = 1 & fa_1a_trunc in(-1, -2) & fa_1a_sr000001_trunc < 0 & fa_1a_sr000002_trunc < 0
& fa_1a_uab_a < 0 & fa_1a_uab_b < 0 & fa_1a_uab_c < 0) then cashc = fa_1a_trunc;
    else if (fa_1a_sr000001_trunc >= 0 & fa_1a_sr000002_trunc >= 0 & fa_1a_sr000002_trunc = fa_1a_sr000001_trunc) then
    cashc = (cashc + fa_1a_sr000001_trunc);
     else if (fa_1a_sr000001_trunc >= 0 & fa_1a_sr000002_trunc >= 0 & fa_1a_sr000002_trunc > fa_1a_sr000001_trunc) then
     cashc = (cashc + (((fa_1a_sr000002_trunc - fa_1a_sr000001_trunc)/2) + fa_1a_sr000001_trunc));
      else if (fa_1a_sr000001_trunc >= 0 & fa_1a_sr000002_trunc >= 0 & fa_1a_sr000002_trunc < fa_1a_sr000001_trunc) then
      cashc = (cashc + (((fa_1a_sr000001_trunc - fa_1a_sr000002_trunc)/2) + fa_1a_sr000002_trunc));
       else if (fa_1a_trunc in(-1, -2, -4) & fa_1a_uab_b = 0) then cashc = (cashc + quartile1);
        else if (fa_1a_trunc in(-1, -2, -4) & fa_1a_uab_b = 1) then cashc = (cashc + quartile2);
         else if (fa_1a_trunc in(-1, -2, -4) & fa_1a_uab_c = 0) then cashc = (cashc + quartile3);
          else if (fa_1a_trunc in(-1, -2, -4) & fa_1a_uab_c = 1) then cashc = (cashc + 80000);
           else if (fa_1a_uab_a in(-1, -2) | fa_1a_uab_b in(-1, -2) | fa_1a_uab_c in(-1, -2)) then cashc = -3;

/*************************************************************/
/* No need to add components for CASHC - set -3 missing      */
/*************************************************************/

if (cashc in(-1, -2, -3)) then cashc = -3;

/****************************/
/* Compute CDS              */
/****************************/

/*************************************************/
/* CDS Component - cds                           */
/*************************************************/

if (fa_2 = 1 & fa_2a_trunc >= 0) then cdsc = (cdsc + fa_2a_trunc);
else if (fa_2 = 1 & fa_2_ref_1 = 1 & fa_2a_sr000001 < 0 & fa_2a_sr000002_trunc < 0
& fa_2a_uab_a < 0 & fa_2a_uab_b < 0 & fa_2a_uab_c < 0) then cdsc = -1;
else if (fa_2 = 1 & fa_2a_trunc in(-1, -2) & fa_2a_sr000001 < 0 & fa_2a_sr000002_trunc < 0
& fa_2a_uab_a < 0 & fa_2a_uab_b < 0 & fa_2a_uab_c < 0) then cdsc = fa_2a_trunc;
    else if (fa_2a_sr000001 >= 0 & fa_2a_sr000002_trunc >= 0 & fa_2a_sr000002_trunc = fa_2a_sr000001) then
    cdsc = (cdsc + fa_2a_sr000001);
     else if (fa_2a_sr000001 >= 0 & fa_2a_sr000002_trunc >= 0 & fa_2a_sr000002_trunc > fa_2a_sr000001) then
     cdsc = (cdsc + (((fa_2a_sr000002_trunc - fa_2a_sr000001)/2) + fa_2a_sr000001));
      else if (fa_2a_sr000001 >= 0 & fa_2a_sr000002_trunc >= 0 & fa_2a_sr000002_trunc < fa_2a_sr000001) then
      cdsc = (cdsc + (((fa_2a_sr000001 - fa_2a_sr000002_trunc)/2) + fa_2a_sr000002_trunc));
       else if (fa_2a_trunc in(-1, -2, -4) & fa_2a_uab_b = 0) then cdsc = (cdsc + quartile1);
        else if (fa_2a_trunc in(-1, -2, -4) & fa_2a_uab_b = 1) then cdsc = (cdsc + quartile2);
         else if (fa_2a_trunc in(-1, -2, -4) & fa_2a_uab_c = 0) then cdsc = (cdsc + quartile3);
          else if (fa_2a_trunc in(-1, -2, -4) & fa_2a_uab_c = 1) then cdsc = (cdsc + 70000);
           else if (fa_2a_uab_a in(-1, -2) | fa_2a_uab_b in(-1, -2) | fa_2a_uab_c in(-1, -2)) then cdsc = -3;

/*************************************************************/
/* No need to add components for CDSC - set -3 missing       */
/*************************************************************/

if (cdsc in(-1, -2, -3)) then cdsc = -3;

/****************************/
/* Compute STOCK            */
/****************************/

/*************************************************/
/* STOCK Component - govbonds                    */
/*************************************************/

if (fa_3 = 1 & fa_3a >= 0) then govbonds = (govbonds + fa_3a);
else if (fa_3 = 1 & fa_3_ref_1 = 1 & fa_3a_sr000001 < 0 & fa_3a_sr000002 < 0
& fa_3a_uab_a < 0 & fa_3a_uab_b < 0 & fa_3a_uab_c < 0) then govbonds = -1;
else if (fa_3 = 1 & fa_3a in(-1, -2) & fa_3a_sr000001 < 0 & fa_3a_sr000002 < 0
& fa_3a_uab_a < 0 & fa_3a_uab_b < 0 & fa_3a_uab_c < 0) then govbonds = fa_3a;
    else if (fa_3a_sr000001 >= 0 & fa_3a_sr000002 >= 0 & fa_3a_sr000002 = fa_3a_sr000001) then
    govbonds = (govbonds + fa_3a_sr000001);
     else if (fa_3a_sr000001 >= 0 & fa_3a_sr000002 >= 0 & fa_3a_sr000002 > fa_3a_sr000001) then
     govbonds = (govbonds + (((fa_3a_sr000002 - fa_3a_sr000001)/2) + fa_3a_sr000001));
      else if (fa_3a_sr000001 >= 0 & fa_3a_sr000002 >= 0 & fa_3a_sr000002 < fa_3a_sr000001) then
      govbonds = (govbonds + (((fa_3a_sr000001 - fa_3a_sr000002)/2) + fa_3a_sr000002));
       else if (fa_3a in(-1, -2, -4) & fa_3a_uab_b = 0) then govbonds = (govbonds + quartile1);
        else if (fa_3a in(-1, -2, -4) & fa_3a_uab_b = 1) then govbonds = (govbonds + quartile2);
         else if (fa_3a in(-1, -2, -4) & fa_3a_uab_c = 0) then govbonds = (govbonds + quartile3);
          else if (fa_3a in(-1, -2, -4) & fa_3a_uab_c = 1) then govbonds = (govbonds + 50000);
           else if (fa_3a_uab_a in(-1, -2) | fa_3a_uab_b in(-1, -2) | fa_3a_uab_c in(-1, -2)) then govbonds = -3;

/*************************************************/
/* STOCK Component - mutual                      */
/*************************************************/

if (fa_4 = 1 & fa_4a_trunc >= 0) then mutual = (mutual + fa_4a_trunc);
else if (fa_4 = 1 & fa_4_ref_1 = 1 & fa_4a_sr000001 < 0 & fa_4a_sr000002 < 0
& fa_4a_uab_a < 0 & fa_4a_uab_b < 0 & fa_4a_uab_c < 0) then mutual = -1;
else if (fa_4 = 1 & fa_4a_trunc in(-1, -2) & fa_4a_sr000001 < 0 & fa_4a_sr000002 < 0
& fa_4a_uab_a < 0 & fa_4a_uab_b < 0 & fa_4a_uab_c < 0) then mutual = fa_4a_trunc;
    else if (fa_4a_sr000001 >= 0 & fa_4a_sr000002 >= 0 & fa_4a_sr000002 = fa_4a_sr000001) then
    mutual = (mutual + fa_4a_sr000001);
     else if (fa_4a_sr000001 >= 0 & fa_4a_sr000002 >= 0 & fa_4a_sr000002 > fa_4a_sr000001) then
     mutual = (mutual + (((fa_4a_sr000002 - fa_4a_sr000001)/2) + fa_4a_sr000001));
      else if (fa_4a_sr000001 >= 0 & fa_4a_sr000002 >= 0 & fa_4a_sr000002 < fa_4a_sr000001) then
      mutual = (mutual + (((fa_4a_sr000001 - fa_4a_sr000002)/2) + fa_4a_sr000002));
       else if (fa_4a_trunc in(-1, -2, -4) & fa_4a_uab_b = 0) then mutual = (mutual + quartile1);
        else if (fa_4a_trunc in(-1, -2, -4) & fa_4a_uab_b = 1) then mutual = (mutual + quartile2);
         else if (fa_4a_trunc in(-1, -2, -4) & fa_4a_uab_c = 0) then mutual = (mutual + quartile3);
          else if (fa_4a_trunc in(-1, -2, -4) & fa_4a_uab_c = 1) then mutual = (mutual + 115000);
           else if (fa_4a_uab_a in(-1, -2) | fa_4a_uab_b in(-1, -2) | fa_4a_uab_c in(-1, -2)) then mutual = -3;

/*************************************************/
/* STOCK Component - lifeinsure                  */
/*************************************************/

if (fa_5 = 1 & fa_5a_trunc >= 0) then lifeinsure = (lifeinsure + fa_5a_trunc);
else if (fa_5 = 1 & fa_5_ref_1 = 1 & fa_5a_sr000001 < 0 & fa_5a_sr000002_trunc < 0
& fa_5a_uab_a < 0 & fa_5a_uab_b < 0 & fa_5a_uab_c < 0) then lifeinsure = -1;
else if (fa_5 = 1 & fa_5a_trunc in(-1, -2) & fa_5a_sr000001 < 0 & fa_5a_sr000002_trunc < 0
& fa_5a_uab_a < 0 & fa_5a_uab_b < 0 & fa_5a_uab_c < 0) then lifeinsure = fa_5a_trunc;
    else if (fa_5a_sr000001 >= 0 & fa_5a_sr000002_trunc >= 0 & fa_5a_sr000002_trunc = fa_5a_sr000001) then
    lifeinsure = (lifeinsure + fa_5a_sr000001);
     else if (fa_5a_sr000001 >= 0 & fa_5a_sr000002_trunc >= 0 & fa_5a_sr000002_trunc > fa_5a_sr000001) then
     lifeinsure = (lifeinsure + (((fa_5a_sr000002_trunc - fa_5a_sr000001)/2) + fa_5a_sr000001));
      else if (fa_5a_sr000001 >= 0 & fa_5a_sr000002_trunc >= 0 & fa_5a_sr000002_trunc < fa_5a_sr000001) then
      lifeinsure = (lifeinsure + (((fa_5a_sr000001 - fa_5a_sr000002_trunc)/2) + fa_5a_sr000002_trunc));
       else if (fa_5a_trunc in(-1, -2, -4) & fa_5a_uab_b = 0) then lifeinsure = (lifeinsure + quartile1);
        else if (fa_5a_trunc in(-1, -2, -4) & fa_5a_uab_b = 1) then lifeinsure = (lifeinsure + quartile2);
         else if (fa_5a_trunc in(-1, -2, -4) & fa_5a_uab_c = 0) then lifeinsure = (lifeinsure + quartile3);
          else if (fa_5a_trunc in(-1, -2, -4) & fa_5a_uab_c = 1) then lifeinsure = (lifeinsure + 100000);
           else if (fa_5a_uab_a in(-1, -2) | fa_5a_uab_b in(-1, -2) | fa_5a_uab_c in(-1, -2)) then lifeinsure = -3;

/*************************************************/
/* STOCK Component - shares                      */
/*************************************************/

if (fa_9 = 1 & fa_9a_trunc >= 0) then shares = (shares + fa_9a_trunc);
else if (fa_9 = 1 & fa_9_ref_1 = 1 & fa_9a_sr000001 < 0 & fa_9a_sr000002_trunc < 0
& fa_9a_uab_a < 0 & fa_9a_uab_b < 0 & fa_9a_uab_c < 0) then shares = -1;
else if (fa_9 = 1 & fa_9a_trunc in(-1, -2) & fa_9a_sr000001 < 0 & fa_9a_sr000002_trunc < 0
& fa_9a_uab_a < 0 & fa_9a_uab_b < 0 & fa_9a_uab_c < 0) then shares = fa_9a_trunc;
    else if (fa_9a_sr000001 >= 0 & fa_9a_sr000002_trunc >= 0 & fa_9a_sr000002_trunc = fa_9a_sr000001) then
    shares = (shares + fa_9a_sr000001);
     else if (fa_9a_sr000001 >= 0 & fa_9a_sr000002_trunc >= 0 & fa_9a_sr000002_trunc > fa_9a_sr000001) then
     shares = (shares + (((fa_9a_sr000002_trunc - fa_9a_sr000001)/2) + fa_9a_sr000001));
      else if (fa_9a_sr000001 >= 0 & fa_9a_sr000002_trunc >= 0 & fa_9a_sr000002_trunc < fa_9a_sr000001) then
      shares = (shares + (((fa_9a_sr000001 - fa_9a_sr000002_trunc)/2) + fa_9a_sr000002_trunc));
       else if (fa_9a_trunc in(-1, -2, -4) & fa_9a_uab_b = 0) then shares = (shares + quartile1);
        else if (fa_9a_trunc in(-1, -2, -4) & fa_9a_uab_b = 1) then shares = (shares + quartile2);
         else if (fa_9a_trunc in(-1, -2, -4) & fa_9a_uab_c = 0) then shares = (shares + quartile3);
          else if (fa_9a_trunc in(-1, -2, -4) & fa_9a_uab_c = 1) then shares = (shares + 125000);
           else if (fa_9a_uab_a in(-1, -2) | fa_9a_uab_b in(-1, -2) | fa_9a_uab_c in(-1, -2)) then shares = -3;

/*************************************************/
/* STOCK Component - corpbond                    */
/*************************************************/

if (fa_10 = 1 & fa_10a_trunc >= 0) then corpbond = (corpbond + fa_10a_trunc);
else if (fa_10 = 1 & fa_10_ref_1 = 1 & fa_10a_sr000001 < 0 & fa_10a_sr000002 < 0
& fa_10a_uab_a < 0 & fa_10a_uab_b < 0 & fa_10a_uab_c < 0) then corpbond = -1;
else if (fa_10 = 1 & fa_10a_trunc in(-1, -2) & fa_10a_sr000001 < 0 & fa_10a_sr000002 < 0
& fa_10a_uab_a < 0 & fa_10a_uab_b < 0 & fa_10a_uab_c < 0) then corpbond = fa_10a_trunc;
    else if (fa_10a_sr000001 >= 0 & fa_10a_sr000002 >= 0 & fa_10a_sr000002 = fa_10a_sr000001) then
    corpbond = (corpbond + fa_10a_sr000001);
     else if (fa_10a_sr000001 >= 0 & fa_10a_sr000002 >= 0 & fa_10a_sr000002 > fa_10a_sr000001) then
     corpbond = (corpbond + (((fa_10a_sr000002 - fa_10a_sr000001)/2) + fa_10a_sr000001));
      else if (fa_10a_sr000001 >= 0 & fa_10a_sr000002 >= 0 & fa_10a_sr000002 < fa_10a_sr000001) then
      corpbond = (corpbond + (((fa_10a_sr000001 - fa_10a_sr000002)/2) + fa_10a_sr000002));
       else if (fa_10a_trunc in(-1, -2, -4) & fa_10a_uab_b = 0) then corpbond = (corpbond + quartile1);
        else if (fa_10a_trunc in(-1, -2, -4) & fa_10a_uab_b = 1) then corpbond = (corpbond + quartile2);
         else if (fa_10a_trunc in(-1, -2, -4) & fa_10a_uab_c = 0) then corpbond = (corpbond + quartile3);
          else if (fa_10a_trunc in(-1, -2, -4) & fa_10a_uab_c = 1) then corpbond = (corpbond + 100000);
           else if (fa_10a_uab_a in(-1, -2) | fa_10a_uab_b in(-1, -2) | fa_10a_uab_c in(-1, -2)) then corpbond = -3;

/*************************************************/
/* STOCK Component - moneyowedtor                */
/*************************************************/

if (fa_11 = 1 & fa_11a >= 0) then moneyowedtor = (moneyowedtor + fa_11a);
else if (fa_11 = 1 & fa_11_ref_1 = 1 & fa_11a_sr000001_trunc < 0 & fa_11a_sr000002_trunc < 0
& fa_11a_uab_a < 0 & fa_11a_uab_b < 0 & fa_11a_uab_c < 0) then moneyowedtor = -1;
else if (fa_11 = 1 & fa_11a in(-1, -2) & fa_11a_sr000001_trunc < 0 & fa_11a_sr000002_trunc < 0
& fa_11a_uab_a < 0 & fa_11a_uab_b < 0 & fa_11a_uab_c < 0) then moneyowedtor = fa_11a;
    else if (fa_11a_sr000001_trunc >= 0 & fa_11a_sr000002_trunc >= 0 & fa_11a_sr000002_trunc = fa_11a_sr000001_trunc) then
    moneyowedtor = (moneyowedtor + fa_11a_sr000001_trunc);
     else if (fa_11a_sr000001_trunc >= 0 & fa_11a_sr000002_trunc >= 0 & fa_11a_sr000002_trunc > fa_11a_sr000001_trunc) then
     moneyowedtor = (moneyowedtor + (((fa_11a_sr000002_trunc - fa_11a_sr000001_trunc)/2) + fa_11a_sr000001_trunc));
      else if (fa_11a_sr000001_trunc >= 0 & fa_11a_sr000002_trunc >= 0 & fa_11a_sr000002_trunc < fa_11a_sr000001_trunc) then
      moneyowedtor = (moneyowedtor + (((fa_11a_sr000001_trunc - fa_11a_sr000002_trunc)/2) + fa_11a_sr000002_trunc));
       else if (fa_11a in(-1, -2, -4) & fa_11a_uab_b = 0) then moneyowedtor = (moneyowedtor + quartile1);
        else if (fa_11a in(-1, -2, -4) & fa_11a_uab_b = 1) then moneyowedtor = (moneyowedtor + quartile2);
         else if (fa_11a in(-1, -2, -4) & fa_11a_uab_c = 0) then moneyowedtor = (moneyowedtor + quartile3);
          else if (fa_11a in(-1, -2, -4) & fa_11a_uab_c = 1) then moneyowedtor = (moneyowedtor + 67500);
           else if (fa_11a_uab_a in(-1, -2) | fa_11a_uab_b in(-1, -2) | fa_11a_uab_c in(-1, -2)) then moneyowedtor = -3;

/*******************************/
/* Add components STOCK        */
/*******************************/

if (govbonds >= 0) then stockc = (stockc + govbonds);
if (mutual >= 0) then stockc = (stockc + mutual);
if (lifeinsure >= 0) then stockc = (stockc + lifeinsure);
if (shares >= 0) then stockc = (stockc + shares);
if (corpbond >= 0) then stockc = (stockc + corpbond);
if (moneyowedtor >= 0) then stockc = (stockc + moneyowedtor);
if (govbonds in(-1, -2, -3)) then stockc = -3;
else if (mutual in(-1, -2, -3)) then stockc = -3;
else if (lifeinsure in(-1, -2, -3)) then stockc = -3;
else if (shares in(-1, -2, -3)) then stockc = -3;
else if (corpbond in(-1, -2, -3)) then stockc = -3;
else if (moneyowedtor in(-1, -2, -3)) then stockc = -3;

/****************************/
/* Compute HOME             */
/****************************/

/*************************************************/
/* HOME Component - home1                        */
/*************************************************/

if (nfa_1 = 1 & nfa_1a_trunc >= 0) then home1 = (home1 + nfa_1a_trunc);
else if (nfa_1 = 1 & nfa_1_ref_1 = 1 & nfa_1a_sr000001_trunc < 0 & nfa_1a_sr000002_trunc < 0
& nfa_1a_uab_a < 0 & nfa_1a_uab_b < 0 & nfa_1a_uab_c < 0) then home1 = -1;
else if (nfa_1 = 1 & nfa_1a_trunc in(-1, -2) & nfa_1a_sr000001_trunc < 0 & nfa_1a_sr000002_trunc < 0
& nfa_1a_uab_a < 0 & nfa_1a_uab_b < 0 & nfa_1a_uab_c < 0) then home1 = nfa_1a_trunc;
    else if (nfa_1a_sr000001_trunc >= 0 & nfa_1a_sr000002_trunc >= 0 & nfa_1a_sr000002_trunc = nfa_1a_sr000001_trunc) then
    home1 = (home1 + nfa_1a_sr000001_trunc);
     else if (nfa_1a_sr000001_trunc >= 0 & nfa_1a_sr000002_trunc >= 0 & nfa_1a_sr000002_trunc > nfa_1a_sr000001_trunc) then
     home1 = (home1 + (((nfa_1a_sr000002_trunc - nfa_1a_sr000001_trunc)/2) + nfa_1a_sr000001_trunc));
      else if (nfa_1a_sr000001_trunc >= 0 & nfa_1a_sr000002_trunc >= 0 & nfa_1a_sr000002_trunc < nfa_1a_sr000001_trunc) then
      home1 = (home1 + (((nfa_1a_sr000001_trunc - nfa_1a_sr000002_trunc)/2) + nfa_1a_sr000002_trunc));
       else if (nfa_1a_trunc in(-1, -2, -4) & nfa_1a_uab_b = 0) then home1 = (home1 + quartile1);
        else if (nfa_1a_trunc in(-1, -2, -4) & nfa_1a_uab_b = 1) then home1 = (home1 + quartile2);
         else if (nfa_1a_trunc in(-1, -2, -4) & nfa_1a_uab_c = 0) then home1 = (home1 + quartile3);
          else if (nfa_1a_trunc in(-1, -2, -4) & nfa_1a_uab_c = 1) then home1 = (home1 + 175000);
           else if (nfa_1a_uab_a in(-1, -2) | nfa_1a_uab_b in(-1, -2) | nfa_1a_uab_c in(-1, -2)) then home1 = -3;

/*************************************************/
/* HOME Component - secondhome                   */
/*************************************************/

if (nfa_2 = 1 & nfa_2a_trunc >= 0) then secondhome = (secondhome + nfa_2a_trunc);
else if (nfa_2 = 1 & nfa_2_ref_1 = 1 & nfa_2a_sr000001 < 0 & nfa_2a_sr000002 < 0
& nfa_2a_uab_a < 0 & nfa_2a_uab_b < 0 & nfa_2a_uab_c < 0) then secondhome = -1;
else if (nfa_2 = 1 & nfa_2a_trunc in(-1, -2) & nfa_2a_sr000001 < 0 & nfa_2a_sr000002 < 0
& nfa_2a_uab_a < 0 & nfa_2a_uab_b < 0 & nfa_2a_uab_c < 0) then secondhome = nfa_2a_trunc;
    else if (nfa_2a_sr000001 >= 0 & nfa_2a_sr000002 >= 0 & nfa_2a_sr000002 = nfa_2a_sr000001) then
    secondhome = (secondhome + nfa_2a_sr000001);
     else if (nfa_2a_sr000001 >= 0 & nfa_2a_sr000002 >= 0 & nfa_2a_sr000002 > nfa_2a_sr000001) then
     secondhome = (secondhome + (((nfa_2a_sr000002 - nfa_2a_sr000001)/2) + nfa_2a_sr000001));
      else if (nfa_2a_sr000001 >= 0 & nfa_2a_sr000002 >= 0 & nfa_2a_sr000002 < nfa_2a_sr000001) then
      secondhome = (secondhome + (((nfa_2a_sr000001 - nfa_2a_sr000002)/2) + nfa_2a_sr000002));
       else if (nfa_2a_trunc in(-1, -2, -4) & nfa_2a_uab_b = 0) then secondhome = (secondhome + quartile1);
        else if (nfa_2a_trunc in(-1, -2, -4) & nfa_2a_uab_b = 1) then secondhome = (secondhome + quartile2);
         else if (nfa_2a_trunc in(-1, -2, -4) & nfa_2a_uab_c = 0) then secondhome = (secondhome + quartile3);
          else if (nfa_2a_trunc in(-1, -2, -4) & nfa_2a_uab_c = 1) then secondhome = (secondhome + 150000);
           else if (nfa_2a_uab_a in(-1, -2) | nfa_2a_uab_b in(-1, -2) | nfa_2a_uab_c in(-1, -2)) then secondhome = -3;

/*******************************/
/* Add components HOME         */
/*******************************/

if (home1 >= 0) then homec = (homec + home1);
if (secondhome >= 0) then homec = (homec + secondhome);
if (home1 in(-1, -2, -3)) then homec = -3;
else if (secondhome in(-1, -2, -3)) then homec = -3;

/****************************/
/* Compute MORT             */
/****************************/

/*************************************************/
/* MORT Component - mort1                        */
/*************************************************/

if (nfa_1b_trunc >= 0) then mort1 = (mort1 + nfa_1b_trunc);
else if (nfa_1b_ref_1 = 1 & nfa_1b_sr000001 < 0 & nfa_1b_sr000002 < 0
& nfa_1b_uab_a < 0 & nfa_1b_uab_b < 0 & nfa_1b_uab_c < 0) then mort1 = -1;
else if (nfa_1b_trunc in(-1, -2) & nfa_1b_sr000001 < 0 & nfa_1b_sr000002 < 0
& nfa_1b_uab_a < 0 & nfa_1b_uab_b < 0 & nfa_1b_uab_c < 0) then mort1 = nfa_1b_trunc;
    else if (nfa_1b_sr000001 >= 0 & nfa_1b_sr000002 >= 0 & nfa_1b_sr000002 = nfa_1b_sr000001) then
    mort1 = (mort1 + nfa_1b_sr000001);
     else if (nfa_1b_sr000001 >= 0 & nfa_1b_sr000002 >= 0 & nfa_1b_sr000002 > nfa_1b_sr000001) then
     mort1 = (mort1 + (((nfa_1b_sr000002 - nfa_1b_sr000001)/2) + nfa_1b_sr000001));
      else if (nfa_1b_sr000001 >= 0 & nfa_1b_sr000002 >= 0 & nfa_1b_sr000002 < nfa_1b_sr000001) then
      mort1 = (mort1 + (((nfa_1b_sr000001 - nfa_1b_sr000002)/2) + nfa_1b_sr000002));
       else if (nfa_1b_trunc in(-1, -2, -4) & nfa_1b_uab_b = 0) then mort1 = (mort1 + quartile1);
        else if (nfa_1b_trunc in(-1, -2, -4) & nfa_1b_uab_b = 1) then mort1 = (mort1 + quartile2);
         else if (nfa_1b_trunc in(-1, -2, -4) & nfa_1b_uab_c = 0) then mort1 = (mort1 + quartile3);
          else if (nfa_1b_trunc in(-1, -2, -4) & nfa_1b_uab_c = 1) then mort1 = (mort1 + 120000);
           else if (nfa_1b_uab_a in(-1, -2) | nfa_1b_uab_b in(-1, -2) | nfa_1b_uab_c in(-1, -2)) then mort1 = -3;

/*************************************************/
/* MORT Component - secondmort                   */
/*************************************************/

if (nfa_2b_trunc >= 0) then secondmort = (secondmort + nfa_2b_trunc);
else if (nfa_2b_ref_1 = 1 & nfa_2b_sr000001 < 0 & nfa_2b_sr000002 < 0
& nfa_2b_uab_a < 0 & nfa_2b_uab_b < 0 & nfa_2b_uab_c < 0) then secondmort = -1;
else if (nfa_2b_trunc in(-1, -2) & nfa_2b_sr000001 < 0 & nfa_2b_sr000002 < 0
& nfa_2b_uab_a < 0 & nfa_2b_uab_b < 0 & nfa_2b_uab_c < 0) then secondmort = nfa_2b_trunc;
    else if (nfa_2b_sr000001 >= 0 & nfa_2b_sr000002 >= 0 & nfa_2b_sr000002 = nfa_2b_sr000001) then
    secondmort = (secondmort + nfa_2b_sr000001);
     else if (nfa_2b_sr000001 >= 0 & nfa_2b_sr000002 >= 0 & nfa_2b_sr000002 > nfa_2b_sr000001) then
     secondmort = (secondmort + (((nfa_2b_sr000002 - nfa_2b_sr000001)/2) + nfa_2b_sr000001));
      else if (nfa_2b_sr000001 >= 0 & nfa_2b_sr000002 >= 0 & nfa_2b_sr000002 < nfa_2b_sr000001) then
      secondmort = (secondmort + (((nfa_2b_sr000001 - nfa_2b_sr000002)/2) + nfa_2b_sr000002));
       else if (nfa_2b_trunc in(-1, -2, -4) & nfa_2b_uab_b = 0) then secondmort = (secondmort + quartile1);
        else if (nfa_2b_trunc in(-1, -2, -4) & nfa_2b_uab_b = 1) then secondmort = (secondmort + quartile2);
         else if (nfa_2b_trunc in(-1, -2, -4) & nfa_2b_uab_c = 0) then secondmort = (secondmort + quartile3);
          else if (nfa_2b_trunc in(-1, -2, -4) & nfa_2b_uab_c = 1) then secondmort = (secondmort + 120000);
           else if (nfa_2b_uab_a in(-1, -2) | nfa_2b_uab_b in(-1, -2) | nfa_2b_uab_c in(-1, -2)) then secondmort = -3;

/*******************************/
/* Add components MORT         */
/*******************************/

if (mort1 >= 0) then mortc = (mortc + mort1);
if (secondmort >= 0) then mortc = (mortc + secondmort);
if (mort1 in(-1, -2, -3)) then mortc = -3;
else if (secondmort in(-1, -2, -3)) then mortc = -3;

/****************************/
/* Compute PDEBT            */
/****************************/

/*************************************************/
/* PDEBT Component - pdebt1                      */
/*************************************************/

if (nfa_1c >= 0) then pdebt1 = (pdebt1 + nfa_1c);
else if (nfa_1c_ref_1 = 1 & nfa_1c_sr000001 < 0 & nfa_1c_sr000002 < 0
& nfa_1c_uab_a < 0 & nfa_1c_uab_b < 0 & nfa_1c_uab_c < 0) then pdebt1 = -1;
else if (nfa_1c in(-1, -2) & nfa_1c_sr000001 < 0 & nfa_1c_sr000002 < 0
& nfa_1c_uab_a < 0 & nfa_1c_uab_b < 0 & nfa_1c_uab_c < 0) then pdebt1 = nfa_1c;
    else if (nfa_1c_sr000001 >= 0 & nfa_1c_sr000002 >= 0 & nfa_1c_sr000002 = nfa_1c_sr000001) then
    pdebt1 = (pdebt1 + nfa_1c_sr000001);
     else if (nfa_1c_sr000001 >= 0 & nfa_1c_sr000002 >= 0 & nfa_1c_sr000002 > nfa_1c_sr000001) then
     pdebt1 = (pdebt1 + (((nfa_1c_sr000002 - nfa_1c_sr000001)/2) + nfa_1c_sr000001));
      else if (nfa_1c_sr000001 >= 0 & nfa_1c_sr000002 >= 0 & nfa_1c_sr000002 < nfa_1c_sr000001) then
      pdebt1 = (pdebt1 + (((nfa_1c_sr000001 - nfa_1c_sr000002)/2) + nfa_1c_sr000002));
       else if (nfa_1c in(-1, -2, -4) & nfa_1c_uab_b = 0) then pdebt1 = (pdebt1 + quartile1);
        else if (nfa_1c in(-1, -2, -4) & nfa_1c_uab_b = 1) then pdebt1 = (pdebt1 + quartile2);
         else if (nfa_1c in(-1, -2, -4) & nfa_1c_uab_c = 0) then pdebt1 = (pdebt1 + quartile3);
          else if (nfa_1c in(-1, -2, -4) & nfa_1c_uab_c = 1) then pdebt1 = (pdebt1 + 45000);
           else if (nfa_1c_uab_a in(-1, -2) | nfa_1c_uab_b in(-1, -2) | nfa_1c_uab_c in(-1, -2)) then pdebt1 = -3;

/*************************************************/
/* PDEBT Component - secondpdebt                 */
/*************************************************/

if (nfa_2c >= 0) then secondpdebt = (secondpdebt + nfa_2c);
else if (nfa_2c_ref_1 = 1 & nfa_2c_sr000001 < 0 & nfa_2c_sr000002 < 0
& nfa_2c_uab_a < 0 & nfa_2c_uab_b < 0 & nfa_2c_uab_c < 0) then secondpdebt = -1;
else if (nfa_2c in(-1, -2) & nfa_2c_sr000001 < 0 & nfa_2c_sr000002 < 0
& nfa_2c_uab_a < 0 & nfa_2c_uab_b < 0 & nfa_2c_uab_c < 0) then secondpdebt = nfa_2c;
    else if (nfa_2c_sr000001 >= 0 & nfa_2c_sr000002 >= 0 & nfa_2c_sr000002 = nfa_2c_sr000001) then
    secondpdebt = (secondpdebt + nfa_2c_sr000001);
     else if (nfa_2c_sr000001 >= 0 & nfa_2c_sr000002 >= 0 & nfa_2c_sr000002 > nfa_2c_sr000001) then
     secondpdebt = (secondpdebt + (((nfa_2c_sr000002 - nfa_2c_sr000001)/2) + nfa_2c_sr000001));
      else if (nfa_2c_sr000001 >= 0 & nfa_2c_sr000002 >= 0 & nfa_2c_sr000002 < nfa_2c_sr000001) then
      secondpdebt = (secondpdebt + (((nfa_2c_sr000001 - nfa_2c_sr000002)/2) + nfa_2c_sr000002));
       else if (nfa_2c in(-1, -2, -4) & nfa_2c_uab_b = 0) then secondpdebt = (secondpdebt + quartile1);
        else if (nfa_2c in(-1, -2, -4) & nfa_2c_uab_b = 1) then secondpdebt = (secondpdebt + quartile2);
         else if (nfa_2c in(-1, -2, -4) & nfa_2c_uab_c = 0) then secondpdebt = (secondpdebt + quartile3);
          else if (nfa_2c in(-1, -2, -4) & nfa_2c_uab_c = 1) then secondpdebt = (secondpdebt + 45000);
           else if (nfa_2c_uab_a in(-1, -2)) then secondpdebt = -3;

/*******************************/
/* Add components PDEBT        */
/*******************************/

if (pdebt1 >= 0) then pdebtc = (pdebtc + pdebt1);
if (secondpdebt >= 0) then pdebtc = (pdebtc + secondpdebt);
if (pdebt1 in(-1, -2, -3)) then pdebtc = -3;
else if (secondpdebt in(-1, -2, -3)) then pdebtc = -3;

/****************************/
/* Compute IRA              */
/****************************/

/*************************************************/
/* IRA Component - ira1                          */
/*************************************************/

if (fa_8 = 1 & fa_8d_trunc_01 >= 0) then ira1 = (ira1 + fa_8d_trunc_01);
else if (fa_8 = 1 & fa_8d_trunc_01 in(-1, -2) & fa_8d_sr000001_01 < 0 & fa_8d_sr000002_01 < 0
& fa_8d_uab_a_01 < 0 & fa_8d_uab_b_01 < 0 & fa_8d_uab_c_01 < 0) then ira1 = fa_8d_trunc_01;
    else if (fa_8d_sr000001_01 >= 0 & fa_8d_sr000002_01 >= 0 & fa_8d_sr000002_01 = fa_8d_sr000001_01) then
    ira1 = (ira1 + fa_8d_sr000001_01);
     else if (fa_8d_sr000001_01 >= 0 & fa_8d_sr000002_01 >= 0 & fa_8d_sr000002_01 > fa_8d_sr000001_01) then
     ira1 = (ira1 + (((fa_8d_sr000002_01 - fa_8d_sr000001_01)/2) + fa_8d_sr000001_01));
      else if (fa_8d_sr000001_01 >= 0 & fa_8d_sr000002_01 >= 0 & fa_8d_sr000002_01 < fa_8d_sr000001_01) then
      ira1 = (ira1 + (((fa_8d_sr000001_01 - fa_8d_sr000002_01)/2) + fa_8d_sr000002_01));
       else if (fa_8d_trunc_01 in(-1, -2, -4) & fa_8d_uab_b_01 = 0) then ira1 = (ira1 + quartile1);
        else if (fa_8d_trunc_01 in(-1, -2, -4) & fa_8d_uab_b_01 = 1) then ira1 = (ira1 + quartile2);
         else if (fa_8d_trunc_01 in(-1, -2, -4) & fa_8d_uab_c_01 = 0) then ira1 = (ira1 + quartile3);
          else if (fa_8d_trunc_01 in(-1, -2, -4) & fa_8d_uab_c_01 = 1) then ira1 = (ira1 + 100000);
           else if (fa_8d_uab_a_01 in(-1, -2) | fa_8d_uab_b_01 in(-1, -2) | fa_8d_uab_c_01 in(-1, -2)) then ira1 = -3;

/*************************************************/
/* IRA Component - ira2                          */
/*************************************************/

if (fa_8 = 1 & fa_8d_trunc_02 >= 0) then ira2 = (ira2 + fa_8d_trunc_02);
else if (fa_8 = 1 & fa_8d_trunc_02 in(-1, -2) & fa_8d_sr000001_02 < 0 & fa_8d_sr000002_02 < 0
& fa_8d_uab_a_02 < 0 & fa_8d_uab_b_02 < 0 & fa_8d_uab_c_02 < 0) then ira2 = fa_8d_trunc_02;
    else if (fa_8d_sr000001_02 >= 0 & fa_8d_sr000002_02 >= 0 & fa_8d_sr000002_02 = fa_8d_sr000001_02) then
    ira2 = (ira2 + fa_8d_sr000001_02);
     else if (fa_8d_sr000001_02 >= 0 & fa_8d_sr000002_02 >= 0 & fa_8d_sr000002_02 > fa_8d_sr000001_02) then
     ira2 = (ira2 + (((fa_8d_sr000002_02 - fa_8d_sr000001_02)/2) + fa_8d_sr000001_02));
      else if (fa_8d_sr000001_02 >= 0 & fa_8d_sr000002_02 >= 0 & fa_8d_sr000002_02 < fa_8d_sr000001_02) then
      ira2 = (ira2 + (((fa_8d_sr000001_02 - fa_8d_sr000002_02)/2) + fa_8d_sr000002_02));
       else if (fa_8d_trunc_02 in(-1, -2, -4) & fa_8d_uab_b_02 = 0) then ira2 = (ira2 + quartile1);
        else if (fa_8d_trunc_02 in(-1, -2, -4) & fa_8d_uab_b_02 = 1) then ira2 = (ira2 + quartile2);
         else if (fa_8d_trunc_02 in(-1, -2, -4) & fa_8d_uab_c_02 = 0) then ira2 = (ira2 + quartile3);
          else if (fa_8d_trunc_02 in(-1, -2, -4) & fa_8d_uab_c_02 = 1) then ira2 = (ira2 + 54000);
           else if (fa_8d_uab_a_02 in(-1, -2) | fa_8d_uab_b_02 in(-1, -2) | fa_8d_uab_c_02 in(-1, -2)) then ira2 = -3;

/*************************************************/
/* IRA Component - ira3                          */
/*************************************************/

if (fa_8 = 1 & fa_8d_trunc_03 >= 0) then ira3 = (ira3 + fa_8d_trunc_03);
else if (fa_8 = 1 & fa_8d_trunc_03 in(-1, -2) & fa_8d_sr000001_03 < 0 & fa_8d_sr000002_03 < 0
& fa_8d_uab_a_03 < 0 & fa_8d_uab_c_03 < 0) then ira3 = fa_8d_trunc_03;
    else if (fa_8d_sr000001_03 >= 0 & fa_8d_sr000002_03 >= 0 & fa_8d_sr000002_03 = fa_8d_sr000001_03) then
    ira3 = (ira3 + fa_8d_sr000001_03);
     else if (fa_8d_sr000001_03 >= 0 & fa_8d_sr000002_03 >= 0 & fa_8d_sr000002_03 > fa_8d_sr000001_03) then
     ira3 = (ira3 + (((fa_8d_sr000002_03 - fa_8d_sr000001_03)/2) + fa_8d_sr000001_03));
      else if (fa_8d_sr000001_03 >= 0 & fa_8d_sr000002_03 >= 0 & fa_8d_sr000002_03 < fa_8d_sr000001_03) then
      ira3 = (ira3 + (((fa_8d_sr000001_03 - fa_8d_sr000002_03)/2) + fa_8d_sr000002_03));
       else if (fa_8d_trunc_03 in(-1, -2, -4) & fa_8d_uab_c_03 = 0) then ira3 = (ira3 + quartile3);
        else if (fa_8d_trunc_03 in(-1, -2, -4) & fa_8d_uab_c_03 = 1) then ira3 = (ira3 + 80000);
         else if (fa_8d_uab_a_03 in(-1, -2) | fa_8d_uab_c_03 in(-1, -2)) then ira3 = -3;

/*************************************************/
/* IRA Component - ira4                          */
/*************************************************/

if (fa_8 = 1 & fa_8d_trunc_04 >= 0) then ira4 = (ira4 + fa_8d_trunc_04);
else if (fa_8 = 1 & fa_8d_trunc_04 in(-1, -2) & fa_8d_sr000001_04 < 0 & fa_8d_sr000002_04 < 0)
then ira4 = fa_8d_trunc_04;
    else if (fa_8d_sr000001_04 >= 0 & fa_8d_sr000002_04 >= 0 & fa_8d_sr000002_04 = fa_8d_sr000001_04) then
    ira4 = (ira4 + fa_8d_sr000001_04);
     else if (fa_8d_sr000001_04 >= 0 & fa_8d_sr000002_04 >= 0 & fa_8d_sr000002_04 > fa_8d_sr000001_04) then
     ira4 = (ira4 + (((fa_8d_sr000002_04 - fa_8d_sr000001_04)/2) + fa_8d_sr000001_04));
      else if (fa_8d_sr000001_04 >= 0 & fa_8d_sr000002_04 >= 0 & fa_8d_sr000002_04 < fa_8d_sr000001_04) then
      ira4 = (ira4 + (((fa_8d_sr000001_04 - fa_8d_sr000002_04)/2) + fa_8d_sr000002_04));

/*************************************************/
/* IRA Component - ira5                          */
/*************************************************/

if (fa_8 = 1 & fa_8d_trunc_05 >= 0) then ira5 = (ira5 + fa_8d_trunc_05);
else if (fa_8 = 1 & fa_8d_trunc_05 in(-1, -2) & fa_8d_sr000001_05 < 0 & fa_8d_sr000002_05 < 0
& fa_8d_uab_a_05 < 0 & fa_8d_uab_c_05 < 0) then ira5 = fa_8d_trunc_05;
    else if (fa_8d_sr000001_05 >= 0 & fa_8d_sr000002_05 >= 0 & fa_8d_sr000002_05 = fa_8d_sr000001_05) then
    ira5 = (ira5 + fa_8d_sr000001_05);
     else if (fa_8d_sr000001_05 >= 0 & fa_8d_sr000002_05 >= 0 & fa_8d_sr000002_05 > fa_8d_sr000001_05) then
     ira5 = (ira5 + (((fa_8d_sr000002_05 - fa_8d_sr000001_05)/2) + fa_8d_sr000001_05));
      else if (fa_8d_sr000001_05 >= 0 & fa_8d_sr000002_05 >= 0 & fa_8d_sr000002_05 < fa_8d_sr000001_05) then
      ira5 = (ira5 + (((fa_8d_sr000001_05 - fa_8d_sr000002_05)/2) + fa_8d_sr000002_05));
       else if (fa_8d_trunc_05 in(-1, -2, -4) & fa_8d_uab_c_05 = 0) then ira5 = (ira5 + quartile3);
        else if (fa_8d_trunc_05 in(-1, -2, -4) & fa_8d_uab_c_05 = 1) then ira5 = (ira5 + 84000);
         else if (fa_8d_uab_a_05 in(-1, -2) | fa_8d_uab_c_05 in(-1, -2)) then ira5 = -3;

/*************************************************/
/* IRA Component - ira6                          */
/*************************************************/

if (fa_8 = 1 & fa_8d_trunc_06 >= 0) then ira6 = (ira6 + fa_8d_trunc_06);
else if (fa_8 = 1 & fa_8d_trunc_06 in(-1, -2) & fa_8d_sr000001_06 < 0 & fa_8d_sr000002_06 < 0
& fa_8d_uab_a_06 < 0 & fa_8d_uab_b_06 < 0 & fa_8d_uab_c_06 < 0) then ira6 = fa_8d_trunc_06;
    else if (fa_8d_sr000001_06 >= 0 & fa_8d_sr000002_06 >= 0 & fa_8d_sr000002_06 = fa_8d_sr000001_06) then
    ira6 = (ira6 + fa_8d_sr000001_06);
     else if (fa_8d_sr000001_06 >= 0 & fa_8d_sr000002_06 >= 0 & fa_8d_sr000002_06 > fa_8d_sr000001_06) then
     ira6 = (ira6 + (((fa_8d_sr000002_06 - fa_8d_sr000001_06)/2) + fa_8d_sr000001_06));
      else if (fa_8d_sr000001_06 >= 0 & fa_8d_sr000002_06 >= 0 & fa_8d_sr000002_06 < fa_8d_sr000001_06) then
      ira6 = (ira6 + (((fa_8d_sr000001_06 - fa_8d_sr000002_06)/2) + fa_8d_sr000002_06));
       else if (fa_8d_trunc_06 in(-1, -2, -4) & fa_8d_uab_b_06 = 0) then ira6 = (ira6 + quartile1);
        else if (fa_8d_trunc_06 in(-1, -2, -4) & fa_8d_uab_b_06 = 1) then ira6 = (ira6 + quartile2);
         else if (fa_8d_trunc_06 in(-1, -2, -4) & fa_8d_uab_c_06 = 0) then ira6 = (ira6 + quartile3);
          else if (fa_8d_trunc_06 in(-1, -2, -4) & fa_8d_uab_c_06 = 1) then ira6 = (ira6 + 60000);
           else if (fa_8d_uab_a_06 in(-1, -2) | fa_8d_uab_b_06 in(-1, -2) | fa_8d_uab_c_06 in(-1, -2)) then ira6 = -3;

/*************************************************/
/* IRA Component - ira7                          */
/*************************************************/

if (fa_8 = 1 & fa_8d_trunc_07 >= 0) then ira7 = (ira7 + fa_8d_trunc_07);
else if (fa_8 = 1 & fa_8d_trunc_07 in(-1, -2) & fa_8d_sr000001_07 < 0 & fa_8d_sr000002_07 < 0
& fa_8d_uab_a_07 < 0 & fa_8d_uab_c_07 < 0) then ira7 = fa_8d_trunc_07;
    else if (fa_8d_sr000001_07 >= 0 & fa_8d_sr000002_07 >= 0 & fa_8d_sr000002_07 = fa_8d_sr000001_07) then
    ira7 = (ira7 + fa_8d_sr000001_07);
     else if (fa_8d_sr000001_07 >= 0 & fa_8d_sr000002_07 >= 0 & fa_8d_sr000002_07 > fa_8d_sr000001_07) then
     ira7 = (ira7 + (((fa_8d_sr000002_07 - fa_8d_sr000001_07)/2) + fa_8d_sr000001_07));
      else if (fa_8d_sr000001_07 >= 0 & fa_8d_sr000002_07 >= 0 & fa_8d_sr000002_07 < fa_8d_sr000001_07) then
      ira7 = (ira7 + (((fa_8d_sr000001_07 - fa_8d_sr000002_07)/2) + fa_8d_sr000002_07));
       else if (fa_8d_trunc_07 in(-1, -2, -4) & fa_8d_uab_c_07 = 0) then ira7 = (ira7 + quartile3);
        else if (fa_8d_trunc_07 in(-1, -2, -4) & fa_8d_uab_c_07 = 1) then ira7 = (ira7 + 130000);
         else if (fa_8d_uab_a_07 in(-1, -2) | fa_8d_uab_c_07 in(-1, -2)) then ira7 = -3;

/*******************************/
/* Add components IRA          */
/*******************************/

if (ira1 >= 0) then irac = (irac + ira1);
if (ira2 >= 0) then irac = (irac + ira2);
if (ira3 >= 0) then irac = (irac + ira3);
if (ira4 >= 0) then irac = (irac + ira4);
if (ira5 >= 0) then irac = (irac + ira5);
if (ira6 >= 0) then irac = (irac + ira6);
if (ira7 >= 0) then irac = (irac + ira7);
if (ira1 in(-1, -2, -3)) then irac = -3;
else if (ira2 in(-1, -2, -3)) then irac = -3;
else if (ira3 in(-1, -2, -3)) then irac = -3;
else if (ira4 in(-1, -2, -3)) then irac = -3;
else if (ira5 in(-1, -2, -3)) then irac = -3;
else if (ira6 in(-1, -2, -3)) then irac = -3;
else if (ira7 in(-1, -2, -3)) then irac = -3;

/****************************/
/* Compute A401K            */
/****************************/

/*************************************************/
/* A401K component - r_401k                 */
/*************************************************/

if (fa_6b = 1 & fa_6e_trunc >= 0) then r_401k = (r_401k + fa_6e_trunc);
else if (fa_6b = 1 & fa_6e_ref_1 = 1 & fa_6e_sr000001 < 0 & fa_6e_sr000002 < 0
& fa_6e_uab_a < 0 & fa_6e_uab_b < 0 & fa_6e_uab_c < 0) then r_401k = -1;
else if (fa_6b = 1 & fa_6e_trunc in(-1, -2) & fa_6e_sr000001 < 0 & fa_6e_sr000002 < 0
& fa_6e_uab_a < 0 & fa_6e_uab_b < 0 & fa_6e_uab_c < 0) then r_401k = fa_6e_trunc;
   else if (fa_6e_sr000001 >= 0 & fa_6e_sr000002 >= 0 & fa_6e_sr000002 = fa_6e_sr000001) then
    r_401k = (r_401k + fa_6e_sr000001);
     else if (fa_6e_sr000001 >= 0 & fa_6e_sr000002 >= 0 & fa_6e_sr000002 > fa_6e_sr000001) then
     r_401k = (r_401k + (((fa_6e_sr000002 - fa_6e_sr000001)/2) + fa_6e_sr000001));
      else if (fa_6e_sr000001 >= 0 & fa_6e_sr000002 >= 0 & fa_6e_sr000002 < fa_6e_sr000001) then
      r_401k = (r_401k + (((fa_6e_sr000001 - fa_6e_sr000002)/2) + fa_6e_sr000002));
       else if (fa_6e_trunc in(-1, -2, -4) & fa_6e_uab_b = 0) then r_401k = (r_401k + quartile1);
        else if (fa_6e_trunc in(-1, -2, -4) & fa_6e_uab_b = 1) then r_401k = (r_401k + quartile2);
         else if (fa_6e_trunc in(-1, -2, -4) & fa_6e_uab_c = 0) then r_401k = (r_401k + quartile3);
          else if (fa_6e_trunc in(-1, -2, -4) & fa_6e_uab_c = 1) then r_401k = (r_401k + 100000);
           else if (fa_6e_uab_a in(-1, -2) | fa_6e_uab_b in(-1, -2) | fa_6e_uab_c in(-1, -2)) then r_401k = -3;

/*************************************************/
/* A401K component - sp_401k                     */
/*************************************************/

if (fa_7 = 1 & fa_7c_trunc >= 0) then sp_401k = (sp_401k + fa_7c_trunc);
else if (fa_7 = 1 & fa_7c_ref_1 = 1 & fa_7c_sr000001 < 0 & fa_7c_sr000002 < 0
& fa_7c_uab_a < 0 & fa_7c_uab_b < 0 & fa_7c_uab_c < 0) then sp_401k = -1;
else if (fa_7 = 1 & fa_7c_trunc in(-1, -2) & fa_7c_sr000001 < 0 & fa_7c_sr000002 < 0
& fa_7c_uab_a < 0 & fa_7c_uab_b < 0 & fa_7c_uab_c < 0) then sp_401k = fa_7c_trunc;
    else if (fa_7c_sr000001 >= 0 & fa_7c_sr000002 >= 0 & fa_7c_sr000002 = fa_7c_sr000001) then
    sp_401k = (sp_401k + fa_7c_sr000001);
     else if (fa_7c_sr000001 >= 0 & fa_7c_sr000002 >= 0 & fa_7c_sr000002 > fa_7c_sr000001) then
     sp_401k = (sp_401k + (((fa_7c_sr000002 - fa_7c_sr000001)/2) + fa_7c_sr000001));
      else if (fa_7c_sr000001 >= 0 & fa_7c_sr000002 >= 0 & fa_7c_sr000002 < fa_7c_sr000001) then
      sp_401k = (sp_401k + (((fa_7c_sr000001 - fa_7c_sr000002)/2) + fa_7c_sr000002));
       else if (fa_7c_trunc in(-1, -2, -4) & fa_7c_uab_b = 0) then sp_401k = (sp_401k + quartile1);
        else if (fa_7c_trunc in(-1, -2, -4) & fa_7c_uab_b = 1) then sp_401k = (sp_401k + quartile2);
         else if (fa_7c_trunc in(-1, -2, -4) & fa_7c_uab_c = 0) then sp_401k = (sp_401k + quartile3);
          else if (fa_7c_trunc in(-1, -2, -4) & fa_7c_uab_c = 1) then sp_401k = (sp_401k + 100000);
           else if (fa_7c_uab_a in(-1, -2) | fa_7c_uab_b in(-1, -2) | fa_7c_uab_c in(-1, -2)) then sp_401k = -3;

/*******************************/
/* Add components A401K        */
/*******************************/

if (r_401k >= 0) then a401kc = (a401kc + r_401k);
if (sp_401k >= 0) then a401kc = (a401kc + sp_401k);
if (r_401k in(-1, -2, -3)) then a401kc = -3;
else if (sp_401k in(-1, -2, -3)) then a401kc = -3;

/****************************/
/* Compute CDEBT            */
/****************************/
/*************************************************/
/* CDEBT Component - amtowe_assetpoorcars1       */
/*************************************************/

if (sc_12b_01 >= 0) then amtowe_assetpoorcars1 = (amtowe_assetpoorcars1 + sc_12b_01);
else if (sc_12b_01 in(-1, -2) & sc_12b_sr000001_01 < 0 & sc_12b_sr000002_01 < 0
& sc_12b_uab_a_01 < 0) then amtowe_assetpoorcars1 = sc_12b_01;
   else if (sc_12b_sr000001_01 >= 0 & sc_12b_sr000002_01 >= 0 & sc_12b_sr000002_01 = sc_12b_sr000001_01) then
   amtowe_assetpoorcars1 = (amtowe_assetpoorcars1 + sc_12b_sr000001_01);
    else if (sc_12b_sr000001_01 >= 0 & sc_12b_sr000002_01 >= 0 & sc_12b_sr000002_01 > sc_12b_sr000001_01) then
    amtowe_assetpoorcars1 = (amtowe_assetpoorcars1 + (((sc_12b_sr000002_01 - sc_12b_sr000001_01)/2) + sc_12b_sr000001_01));
     else if (sc_12b_sr000001_01 >= 0 & sc_12b_sr000002_01 >= 0 & sc_12b_sr000002_01 < sc_12b_sr000001_01) then
     amtowe_assetpoorcars1 = (amtowe_assetpoorcars1 + (((sc_12b_sr000001_01 - sc_12b_sr000002_01)/2) + sc_12b_sr000002_01));

/*************************************************/
/* CDEBT Component - amtowe_assetpoorcars2       */
/*************************************************/

if (sc_12b_02 >= 0) then amtowe_assetpoorcars2 = (amtowe_assetpoorcars2 + sc_12b_02);
else if (sc_12b_02 in(-1, -2) /* & sc_12b_sr000001_02 < 0 & sc_12b_sr000002_02 < 0
& sc_12b_uab_a_02 < 0 & sc_12b_uab_b_02 < 0 & sc_12b_uab_c_02 < 0*/) then amtowe_assetpoorcars2 = sc_12b_02;

/*************************************************/
/* CDEBT Component - amtowe_assetpoorcars3       */
/*************************************************/

if (sc_12b_03 >= 0) then amtowe_assetpoorcars3 = (amtowe_assetpoorcars3 + sc_12b_03);
else if (sc_12b_03 in(-1, -2) & sc_12b_sr000001_03 < 0 & sc_12b_sr000002_03 < 0
& sc_12b_uab_a_03 < 0) then amtowe_assetpoorcars3 = sc_12b_03;
   else if (sc_12b_sr000001_03 >= 0 & sc_12b_sr000002_03 >= 0 & sc_12b_sr000002_03 = sc_12b_sr000001_03) then
   amtowe_assetpoorcars3 = (amtowe_assetpoorcars3 + sc_12b_sr000001_03);
    else if (sc_12b_sr000001_03 >= 0 & sc_12b_sr000002_03 >= 0 & sc_12b_sr000002_03 > sc_12b_sr000001_03) then
    amtowe_assetpoorcars3 = (amtowe_assetpoorcars3 + (((sc_12b_sr000002_03 - sc_12b_sr000001_03)/2) + sc_12b_sr000001_03));
     else if (sc_12b_sr000001_03 >= 0 & sc_12b_sr000002_03 >= 0 & sc_12b_sr000002_03 < sc_12b_sr000001_03) then
     amtowe_assetpoorcars3 = (amtowe_assetpoorcars3 + (((sc_12b_sr000001_03 - sc_12b_sr000002_03)/2) + sc_12b_sr000002_03));

/*************************************************/
/* CDEBT Component - amountowe_vehicles1         */
/*************************************************/

if (nfa_4f_trunc_01 >= 0) then amountowe_vehicles1 = (amountowe_vehicles1 + nfa_4f_trunc_01);
else if (nfa_4f_trunc_01 in(-1, -2) & nfa_4f_sr000001_trunc_01 < 0 & nfa_4f_sr000002_trunc_01 < 0
& nfa_4f_uab_a_01 < 0 & nfa_4f_uab_b_01 < 0 & nfa_4f_uab_c_01 < 0) then amountowe_vehicles1 = nfa_4f_trunc_01;
   else if (nfa_4f_sr000001_trunc_01 >= 0 & nfa_4f_sr000002_trunc_01 >= 0 & nfa_4f_sr000002_trunc_01 = nfa_4f_sr000001_trunc_01) then
   amountowe_vehicles1 = (amountowe_vehicles1 + nfa_4f_sr000001_trunc_01);
    else if (nfa_4f_sr000001_trunc_01 >= 0 & nfa_4f_sr000002_trunc_01 >= 0 & nfa_4f_sr000002_trunc_01 > nfa_4f_sr000001_trunc_01) then
    amountowe_vehicles1 = (amountowe_vehicles1 + (((nfa_4f_sr000002_trunc_01 - nfa_4f_sr000001_trunc_01)/2) + nfa_4f_sr000001_trunc_01));
     else if (nfa_4f_sr000001_trunc_01 >= 0 & nfa_4f_sr000002_trunc_01 >= 0 & nfa_4f_sr000002_trunc_01 < nfa_4f_sr000001_trunc_01) then
     amountowe_vehicles1 = (amountowe_vehicles1 + (((nfa_4f_sr000001_trunc_01 - nfa_4f_sr000002_trunc_01)/2) + nfa_4f_sr000002_trunc_01));
      else if (nfa_4f_trunc_01 in(-1, -2, -4) & nfa_4f_uab_b_01 = 0) then amountowe_vehicles1 = (amountowe_vehicles1 + quartile1);
       else if (nfa_4f_trunc_01 in(-1, -2, -4) & nfa_4f_uab_b_01 = 1) then amountowe_vehicles1 = (amountowe_vehicles1 + quartile2);
        else if (nfa_4f_trunc_01 in(-1, -2, -4) & nfa_4f_uab_c_01 = 0) then amountowe_vehicles1 = (amountowe_vehicles1 + quartile3);
         else if (nfa_4f_trunc_01 in(-1, -2, -4) & nfa_4f_uab_c_01 = 1) then amountowe_vehicles1 = (amountowe_vehicles1 + 37000);
          else if (nfa_4f_uab_a_01 in(-1, -2) | nfa_4f_uab_b_01 in(-1, -2) | nfa_4f_uab_c_01 in(-1, -2)) then amtowe_vehicles1 = -3;

/*************************************************/
/* CDEBT Component - amountowe_vehicles2         */
/*************************************************/

if (nfa_4f_trunc_02 >= 0) then amountowe_vehicles2 = (amountowe_vehicles2 + nfa_4f_trunc_02);
else if (nfa_4f_trunc_02 in(-1, -2) & nfa_4f_sr000001_trunc_02 < 0 & nfa_4f_sr000002_trunc_02 < 0
& nfa_4f_uab_a_02 < 0 & nfa_4f_uab_b_02 < 0 & nfa_4f_uab_c_02 < 0) then amountowe_vehicles2 = nfa_4f_trunc_02;
   else if (nfa_4f_sr000001_trunc_02 >= 0 & nfa_4f_sr000002_trunc_02 >= 0 & nfa_4f_sr000002_trunc_02 = nfa_4f_sr000001_trunc_02) then
   amountowe_vehicles2 = (amountowe_vehicles2 + nfa_4f_sr000001_trunc_02);
    else if (nfa_4f_sr000001_trunc_02 >= 0 & nfa_4f_sr000002_trunc_02 >= 0 & nfa_4f_sr000002_trunc_02 > nfa_4f_sr000001_trunc_02) then
    amountowe_vehicles2 = (amountowe_vehicles2 + (((nfa_4f_sr000002_trunc_02 - nfa_4f_sr000001_trunc_02)/2) + nfa_4f_sr000001_trunc_02));
     else if (nfa_4f_sr000001_trunc_02 >= 0 & nfa_4f_sr000002_trunc_02 >= 0 & nfa_4f_sr000002_trunc_02 < nfa_4f_sr000001_trunc_02) then
     amountowe_vehicles2 = (amountowe_vehicles2 + (((nfa_4f_sr000001_trunc_02 - nfa_4f_sr000002_trunc_02)/2) + nfa_4f_sr000002_trunc_02));
      else if (nfa_4f_trunc_02 in(-1, -2, -4) & nfa_4f_uab_b_02 = 0) then amountowe_vehicles2 = (amountowe_vehicles2 + quartile1);
       else if (nfa_4f_trunc_02 in(-1, -2, -4) & nfa_4f_uab_b_02 = 1) then amountowe_vehicles2 = (amountowe_vehicles2 + quartile2);
        else if (nfa_4f_trunc_02 in(-1, -2, -4) & nfa_4f_uab_c_02 = 0) then amountowe_vehicles2 = (amountowe_vehicles2 + quartile3);
         else if (nfa_4f_trunc_02 in(-1, -2, -4) & nfa_4f_uab_c_02 = 1) then amountowe_vehicles2 = (amountowe_vehicles2 + 35000);
          else if (nfa_4f_uab_a_02 in(-1, -2) | nfa_4f_uab_b_02 in(-1, -2) | nfa_4f_uab_c_02 in(-1, -2)) then amtowe_vehicles2 = -3;

/*************************************************/
/* CDEBT Component - amountowe_vehicles3         */
/*************************************************/

if (nfa_4f_trunc_03 >= 0) then amountowe_vehicles3 = (amountowe_vehicles3 + nfa_4f_trunc_03);
else if (nfa_4f_trunc_03 in(-1, -2) & nfa_4f_sr000001_trunc_03 < 0 & nfa_4f_sr000002_trunc_03 < 0
& nfa_4f_uab_a_03 < 0 & nfa_4f_uab_b_03 < 0 & nfa_4f_uab_c_03 < 0) then amountowe_vehicles3 = nfa_4f_trunc_03;
   else if (nfa_4f_sr000001_trunc_03 >= 0 & nfa_4f_sr000002_trunc_03 >= 0 & nfa_4f_sr000002_trunc_03 = nfa_4f_sr000001_trunc_03) then
   amountowe_vehicles3 = (amountowe_vehicles3 + nfa_4f_sr000001_trunc_03);
    else if (nfa_4f_sr000001_trunc_03 >= 0 & nfa_4f_sr000002_trunc_03 >= 0 & nfa_4f_sr000002_trunc_03 > nfa_4f_sr000001_trunc_03) then
    amountowe_vehicles3 = (amountowe_vehicles3 + (((nfa_4f_sr000002_trunc_03 - nfa_4f_sr000001_trunc_03)/2) + nfa_4f_sr000001_trunc_03));
     else if (nfa_4f_sr000001_trunc_03 >= 0 & nfa_4f_sr000002_trunc_03 >= 0 & nfa_4f_sr000002_trunc_03 < nfa_4f_sr000001_trunc_03) then
     amountowe_vehicles3 = (amountowe_vehicles3 + (((nfa_4f_sr000001_trunc_03 - nfa_4f_sr000002_trunc_03)/2) + nfa_4f_sr000002_trunc_03));
      else if (nfa_4f_trunc_03 in(-1, -2, -4) & nfa_4f_uab_b_03 = 0) then amountowe_vehicles3 = (amountowe_vehicles3 + quartile1);
       else if (nfa_4f_trunc_03 in(-1, -2, -4) & nfa_4f_uab_b_03 = 1) then amountowe_vehicles3 = (amountowe_vehicles3 + quartile2);
        else if (nfa_4f_trunc_03 in(-1, -2, -4) & nfa_4f_uab_c_03 = 0) then amountowe_vehicles3 = (amountowe_vehicles3 + quartile3);
         else if (nfa_4f_trunc_03 in(-1, -2, -4) & nfa_4f_uab_c_03 = 1) then amountowe_vehicles3 = (amountowe_vehicles3 + 38000);
          else if (nfa_4f_uab_a_03 in(-1, -2) | nfa_4f_uab_b_03 in(-1, -2) | nfa_4f_uab_c_03 in(-1, -2)) then amtowe_vehicles3 = -3;

/*************************************************/
/* CDEBT Component - amountowe_vehicles4         */
/*************************************************/

if (nfa_4f_trunc_04 >= 0) then amountowe_vehicles4 = (amountowe_vehicles4 + nfa_4f_trunc_04);
else if (nfa_4f_trunc_04 in(-1, -2)) then amountowe_vehicles4 = nfa_4f_trunc_04;

/*************************************************/
/* CDEBT Component - amountowe_vehicles5         */
/*************************************************/

if (nfa_4f_trunc_05 >= 0) then amountowe_vehicles5 = (amountowe_vehicles5 + nfa_4f_trunc_05);
else if (nfa_4f_trunc_05 in(-1, -2)) then amountowe_vehicles5 = nfa_4f_trunc_05;

/*************************************************/
/* CDEBT Component - amountowe_vehicles6         */
/*************************************************/

if (nfa_4f_trunc_06 >= 0) then amountowe_vehicles6 = (amountowe_vehicles6 + nfa_4f_trunc_06);
else if (nfa_4f_trunc_06 in(-1, -2) & nfa_4f_sr000001_trunc_06 < 0 & nfa_4f_sr000002_trunc_06 < 0
& nfa_4f_uab_a_06 < 0) then amountowe_vehicles6 = nfa_4f_trunc_06;
   else if (nfa_4f_sr000001_trunc_06 >= 0 & nfa_4f_sr000002_trunc_06 >= 0 & nfa_4f_sr000002_trunc_06 = nfa_4f_sr000001_trunc_06) then
   amountowe_vehicles6 = (amountowe_vehicles6 + nfa_4f_sr000001_trunc_06);
    else if (nfa_4f_sr000001_trunc_06 >= 0 & nfa_4f_sr000002_trunc_06 >= 0 & nfa_4f_sr000002_trunc_06 > nfa_4f_sr000001_trunc_06) then
    amountowe_vehicles6 = (amountowe_vehicles6 + (((nfa_4f_sr000002_trunc_06 - nfa_4f_sr000001_trunc_06)/2) + nfa_4f_sr000001_trunc_06));
     else if (nfa_4f_sr000001_trunc_06 >= 0 & nfa_4f_sr000002_trunc_06 >= 0 & nfa_4f_sr000002_trunc_06 < nfa_4f_sr000001_trunc_06) then
     amountowe_vehicles6 = (amountowe_vehicles6 + (((nfa_4f_sr000001_trunc_06 - nfa_4f_sr000002_trunc_06)/2) + nfa_4f_sr000002_trunc_06));
      else if (nfa_4f_uab_a_06 in(-1, -2)) then amtowe_vehicles6 = -3;

/*************************************************/
/* CDEBT Component - amountowe_vehicles9         */
/*************************************************/

if (nfa_4f_trunc_09 >= 0) then amountowe_vehicles9 = (amountowe_vehicles9 + nfa_4f_trunc_09);
else if (nfa_4f_trunc_09 in(-1, -2)) then amountowe_vehicles9 = nfa_4f_trunc_09;

/*************************************************/
/* CDEBT Component - amtowe_othervehicles        */
/*************************************************/

if (nfa_5 = 1 & nfa_5b_trunc >= 0) then amtowe_othervehicles = (amtowe_othervehicles + nfa_5b_trunc);
else if (nfa_5 = 1 & nfa_5b_trunc in(-1, -2) & nfa_5b_sr000001 < 0 & nfa_5b_sr000002 < 0
& nfa_5b_uab_a < 0 & nfa_5b_uab_c < 0) then amtowe_othervehicles = nfa_5b_trunc;
   else if (nfa_5b_sr000001 >= 0 & nfa_5b_sr000002 >= 0 & nfa_5b_sr000002 = nfa_5b_sr000001) then
   amtowe_othervehicles = (amtowe_othervehicles + nfa_5b_sr000001);
    else if (nfa_5b_sr000001 >= 0 & nfa_5b_sr000002 >= 0 & nfa_5b_sr000002 > nfa_5b_sr000001) then
    amtowe_othervehicles = (amtowe_othervehicles + (((nfa_5b_sr000002 - nfa_5b_sr000001)/2) + nfa_5b_sr000001));
     else if (nfa_5b_sr000001 >= 0 & nfa_5b_sr000002 >= 0 & nfa_5b_sr000002 < nfa_5b_sr000001) then
     amtowe_othervehicles = (amtowe_othervehicles + (((nfa_5b_sr000001 - nfa_5b_sr000002)/2) + nfa_5b_sr000002));
      else if (nfa_5b_trunc in(-1, -2, -4) & nfa_5b_uab_c = 0) then amtowe_othervehicles = (amtowe_othervehicles + quartile3);
       else if (nfa_5b_trunc in(-1, -2, -4) & nfa_5b_uab_c = 1) then amtowe_othervehicles = (amtowe_othervehicles + 50500);
        else if (nfa_5b_uab_a in(-1, -2) | nfa_5b_uab_c in(-1, -2)) then amtowe_othervehicles = -3;

/*******************************/
/* Add components CDEBT        */
/*******************************/

if (amtowe_assetpoorcars1 >= 0) then cdebtc = (cdebtc + amtowe_assetpoorcars1);
if (amtowe_assetpoorcars2 >= 0) then cdebtc = (cdebtc + amtowe_assetpoorcars2);
if (amtowe_assetpoorcars3 >= 0) then cdebtc = (cdebtc + amtowe_assetpoorcars3);
if (amountowe_vehicles1 >= 0) then cdebtc = (cdebtc + amountowe_vehicles1);
if (amountowe_vehicles2 >= 0) then cdebtc = (cdebtc + amountowe_vehicles2);
if (amountowe_vehicles3 >= 0) then cdebtc = (cdebtc + amountowe_vehicles3);
if (amountowe_vehicles4 >= 0) then cdebtc = (cdebtc + amountowe_vehicles4);
if (amountowe_vehicles5 >= 0) then cdebtc = (cdebtc + amountowe_vehicles5);
if (amountowe_vehicles6 >= 0) then cdebtc = (cdebtc + amountowe_vehicles6);
if (amountowe_vehicles9 >= 0) then cdebtc = (cdebtc + amountowe_vehicles9);
if (amtowe_othervehicles >= 0) then cdebtc = (cdebtc + amtowe_othervehicles);

if (amtowe_assetpoorcars1 in(-1, -2, -3)) then cdebtc = -3;
else if (amtowe_assetpoorcars2 in(-1, -2, -3)) then cdebtc = -3;
else if (amtowe_assetpoorcars3 in(-1, -2, -3)) then cdebtc = -3;
else if (amountowe_vehicles1 in(-1, -2, -3)) then cdebtc = -3;
else if (amountowe_vehicles2 in(-1, -2, -3)) then cdebtc = -3;
else if (amountowe_vehicles3 in(-1, -2, -3)) then cdebtc = -3;
else if (amountowe_vehicles4 in(-1, -2, -3)) then cdebtc = -3;
else if (amountowe_vehicles5 in(-1, -2, -3)) then cdebtc = -3;
else if (amountowe_vehicles6 in(-1, -2, -3)) then cdebtc = -3;
else if (amountowe_vehicles9 in(-1, -2, -3)) then cdebtc = -3;
else if (amtowe_othervehicles in(-1, -2, -3)) then cdebtc = -3;

/****************************/
/* Compute CAR              */
/****************************/
/*************************************************/
/* CAR Component - mktval_assetpoorcars1         */
/*************************************************/

if (sc_12a_01 >= 0) then mktval_assetpoorcars1 = (mktval_assetpoorcars1 + sc_12a_01);
   else if (sc_12a_01 in(-1, -2) & sc_12a_sr000001_01 < 0 & sc_12a_sr000002_01 < 0
& sc_12a_uab_a_01 < 0 & sc_12a_uab_b_01 < 0 & sc_12a_uab_c_01 < 0) then mktval_assetpoorcars1 = sc_12a_01;
    else if (sc_12a_sr000001_01 >= 0 & sc_12a_sr000002_01 >= 0 & sc_12a_sr000002_01 = sc_12a_sr000001_01) then
    mktval_assetpoorcars1 = (mktval_assetpoorcars1 + sc_12a_sr000001_01);
     else if (sc_12a_sr000001_01 >= 0 & sc_12a_sr000002_01 >= 0 & sc_12a_sr000002_01 > sc_12a_sr000001_01) then
     mktval_assetpoorcars1 = (mktval_assetpoorcars1 + (((sc_12a_sr000002_01 - sc_12a_sr000001_01)/2) + sc_12a_sr000001_01));
      else if (sc_12a_sr000001_01 >= 0 & sc_12a_sr000002_01 >= 0 & sc_12a_sr000002_01 < sc_12a_sr000001_01) then
      mktval_assetpoorcars1 = (mktval_assetpoorcars1 + (((sc_12a_sr000001_01 - sc_12a_sr000002_01)/2) + sc_12a_sr000001_02));
       else if (sc_12a_01 in(-1, -2, -4) & sc_12a_uab_b_01 = 0) then mktval_assetpoorcars1 = (mktval_assetpoorcars1 + quartile1);
        else if (sc_12a_01 in(-1, -2, -4) & sc_12a_uab_b_01 = 1) then mktval_assetpoorcars1 = (mktval_assetpoorcars1 + quartile2);
         else if (sc_12a_01 in(-1, -2, -4) & sc_12a_uab_c_01 = 0) then mktval_assetpoorcars1 = (mktval_assetpoorcars1 + quartile3);
          else if (sc_12a_01 in(-1, -2, -4) & sc_12a_uab_c_01 = 1) then mktval_assetpoorcars1 = (mktval_assetpoorcars1 + 40000);
           else if (sc_12a_uab_a_01 in(-1, -2) | sc_12a_uab_b_01 in(-1, -2) | sc_12a_uab_c_01 in(-1, -2)) then mktval_assetpoorcars1 = -3;

/*************************************************/
/* CAR Component - mktval_assetpoorcars2         */
/*************************************************/

if (sc_12a_02 >= 0) then mktval_assetpoorcars2 = (mktval_assetpoorcars2 + sc_12a_02);
else if (sc_12a_02 in(-1, -2) & sc_12a_sr000001_02 < 0 & sc_12a_sr000002_02 < 0
& sc_12a_uab_a_02 < 0) then mktval_assetpoorcars2 = sc_12a_02;
   else if (sc_12a_sr000001_02 >= 0 & sc_12a_sr000002_02 >= 0 & sc_12a_sr000002_02 = sc_12a_sr000001_02) then
   mktval_assetpoorcars2 = (mktval_assetpoorcars2 + sc_12a_sr000001_02);
    else if (sc_12a_sr000001_02 >= 0 & sc_12a_sr000002_02 >= 0 & sc_12a_sr000002_02 > sc_12a_sr000001_02) then
    mktval_assetpoorcars2 = (mktval_assetpoorcars2 + (((sc_12a_sr000002_02 - sc_12a_sr000001_02)/2) + sc_12a_sr000001_02));
     else if (sc_12a_sr000001_02 >= 0 & sc_12a_sr000002_02 >= 0 & sc_12a_sr000002_02 < sc_12a_sr000001_02) then
     mktval_assetpoorcars2 = (mktval_assetpoorcars2 + (((sc_12a_sr000001_02 - sc_12a_sr000002_02)/2) + sc_12a_sr000002_02));
      else if (sc_12a_uab_a_02 in(-1, -2)) then mktval_assetpoorcars2 = -3;

/*************************************************/
/* CAR Component - mktval_assetpoorcars3         */
/*************************************************/

if (sc_12a_03 >= 0) then mktval_assetpoorcars3 = (mktval_assetpoorcars3 + sc_12a_03);
else if (sc_12a_03 in(-1, -2)) then mktval_assetpoorcars3 = sc_12a_03;

/*************************************************/
/* CAR Component - marketvalue_vehicles1         */
/*************************************************/

if (nfa_4c_trunc_01 >= 0) then marketvalue_vehicles1 = (marketvalue_vehicles1 + nfa_4c_trunc_01);
else if (nfa_4c_trunc_01 in(-1, -2) & nfa_4c_sr000001_trunc_01 < 0 & nfa_4c_sr000002_trunc_01 < 0
& nfa_4c_uab_a_01 < 0 & nfa_4c_uab_b_01 < 0 & nfa_4c_uab_c_01 < 0) then marketvalue_vehicles1 = nfa_4c_trunc_01;
   else if (nfa_4c_sr000001_trunc_01 >= 0 & nfa_4c_sr000002_trunc_01 >= 0 & nfa_4c_sr000002_trunc_01 = nfa_4c_sr000001_trunc_01) then
   marketvalue_vehicles1 = (marketvalue_vehicles1 + nfa_4c_sr000001_trunc_01);
    else if (nfa_4c_sr000001_trunc_01 >= 0 & nfa_4c_sr000002_trunc_01 >= 0 & nfa_4c_sr000002_trunc_01 > nfa_4c_sr000001_trunc_01) then
    marketvalue_vehicles1 = (marketvalue_vehicles1 + (((nfa_4c_sr000002_trunc_01 - nfa_4c_sr000001_trunc_01)/2) + nfa_4c_sr000001_trunc_01));
     else if (nfa_4c_sr000001_trunc_01 >= 0 & nfa_4c_sr000002_trunc_01 >= 0 & nfa_4c_sr000002_trunc_01 < nfa_4c_sr000001_trunc_01) then
     marketvalue_vehicles1 = (marketvalue_vehicles1 + (((nfa_4c_sr000001_trunc_01 - nfa_4c_sr000002_trunc_01)/2) + nfa_4c_sr000002_trunc_01));
      else if (nfa_4c_trunc_01 in(-1, -2, -4) & nfa_4c_uab_b_01 = 0) then marketvalue_vehicles1 = (marketvalue_vehicles1 + quartile1);
       else if (nfa_4c_trunc_01 in(-1, -2, -4) & nfa_4c_uab_b_01 = 1) then marketvalue_vehicles1 = (marketvalue_vehicles1 + quartile2);
        else if (nfa_4c_trunc_01 in(-1, -2, -4) & nfa_4c_uab_c_01 = 0) then marketvalue_vehicles1 = (marketvalue_vehicles1 + quartile3);
         else if (nfa_4c_trunc_01 in(-1, -2, -4) & nfa_4c_uab_c_01 = 1) then marketvalue_vehicles1 = (marketvalue_vehicles1 + 40000);
          else if (nfa_4c_uab_a_01 in(-1, -2) | nfa_4c_uab_b_01 in(-1, -2) | nfa_4c_uab_c_01 in(-1, -2)) then marketvalue_vehicles1 = -3;

/*************************************************/
/* CAR Component - marketvalue_vehicles2         */
/*************************************************/

if (nfa_4c_trunc_02 >= 0) then marketvalue_vehicles2 = (marketvalue_vehicles2 + nfa_4c_trunc_02);
else if (nfa_4c_trunc_02 in(-1, -2) & nfa_4c_sr000001_trunc_02 < 0 & nfa_4c_sr000002_trunc_02 < 0
& nfa_4c_uab_a_02 < 0 & nfa_4c_uab_b_02 < 0 & nfa_4c_uab_c_02 < 0) then marketvalue_vehicles2 = nfa_4c_trunc_02;
   else if (nfa_4c_sr000001_trunc_02 >= 0 & nfa_4c_sr000002_trunc_02 >= 0 & nfa_4c_sr000002_trunc_02 = nfa_4c_sr000001_trunc_02) then
   marketvalue_vehicles2 = (marketvalue_vehicles2 + nfa_4c_sr000001_trunc_02);
    else if (nfa_4c_sr000001_trunc_02 >= 0 & nfa_4c_sr000002_trunc_02 >= 0 & nfa_4c_sr000002_trunc_02 > nfa_4c_sr000001_trunc_02) then
    marketvalue_vehicles2 = (marketvalue_vehicles2 + (((nfa_4c_sr000002_trunc_02 - nfa_4c_sr000001_trunc_02)/2) + nfa_4c_sr000001_trunc_02));
     else if (nfa_4c_sr000001_trunc_02 >= 0 & nfa_4c_sr000002_trunc_02 >= 0 & nfa_4c_sr000002_trunc_02 < nfa_4c_sr000001_trunc_02) then
     marketvalue_vehicles2 = (marketvalue_vehicles2 + (((nfa_4c_sr000001_trunc_02 - nfa_4c_sr000002_trunc_02)/2) + nfa_4c_sr000002_trunc_02));
      else if (nfa_4c_trunc_02 in(-1, -2, -4) & nfa_4c_uab_b_02 = 0) then marketvalue_vehicles2 = (marketvalue_vehicles2 + quartile1);
       else if (nfa_4c_trunc_02 in(-1, -2, -4) & nfa_4c_uab_b_02 = 1) then marketvalue_vehicles2 = (marketvalue_vehicles2 + quartile2);
        else if (nfa_4c_trunc_02 in(-1, -2, -4) & nfa_4c_uab_c_02 = 0) then marketvalue_vehicles2 = (marketvalue_vehicles2 + quartile3);
         else if (nfa_4c_trunc_02 in(-1, -2, -4) & nfa_4c_uab_c_02 = 1) then marketvalue_vehicles2 = (marketvalue_vehicles2 + 38000);
          else if (nfa_4c_uab_a_02 in(-1, -2) | nfa_4c_uab_b_02 in(-1, -2) | nfa_4c_uab_c_02 in(-1, -2)) then marketvalue_vehicles2 = -3;

/*************************************************/
/* CAR Component - marketvalue_vehicles3         */
/*************************************************/

if (nfa_4c_trunc_03 >= 0) then marketvalue_vehicles3 = (marketvalue_vehicles3 + nfa_4c_trunc_03);
else if (nfa_4c_trunc_03 in(-1, -2) & nfa_4c_sr000001_trunc_03 < 0 & nfa_4c_sr000002_trunc_03 < 0
& nfa_4c_uab_a_03 < 0 & nfa_4c_uab_b_03 < 0 & nfa_4c_uab_c_03 < 0) then marketvalue_vehicles3 = nfa_4c_trunc_03;
   else if (nfa_4c_sr000001_trunc_03 >= 0 & nfa_4c_sr000002_trunc_03 >= 0 & nfa_4c_sr000002_trunc_03 = nfa_4c_sr000001_trunc_03) then
   marketvalue_vehicles3 = (marketvalue_vehicles3 + nfa_4c_sr000001_trunc_03);
    else if (nfa_4c_sr000001_trunc_03 >= 0 & nfa_4c_sr000002_trunc_03 >= 0 & nfa_4c_sr000002_trunc_03 > nfa_4c_sr000001_trunc_03) then
    marketvalue_vehicles3 = (marketvalue_vehicles3 + (((nfa_4c_sr000002_trunc_03 - nfa_4c_sr000001_trunc_03)/2) + nfa_4c_sr000001_trunc_03));
     else if (nfa_4c_sr000001_trunc_03 >= 0 & nfa_4c_sr000002_trunc_03 >= 0 & nfa_4c_sr000002_trunc_03 < nfa_4c_sr000001_trunc_03) then
     marketvalue_vehicles3 = (marketvalue_vehicles3 + (((nfa_4c_sr000001_trunc_03 - nfa_4c_sr000002_trunc_03)/2) + nfa_4c_sr000002_trunc_03));
      else if (nfa_4c_trunc_03 in(-1, -2, -4) & nfa_4c_uab_b_03 = 0) then marketvalue_vehicles3 = (marketvalue_vehicles3 + quartile1);
       else if (nfa_4c_trunc_03 in(-1, -2, -4) & nfa_4c_uab_b_03 = 1) then marketvalue_vehicles3 = (marketvalue_vehicles3 + quartile2);
        else if (nfa_4c_trunc_03 in(-1, -2, -4) & nfa_4c_uab_c_03 = 0) then marketvalue_vehicles3 = (marketvalue_vehicles3 + quartile3);
         else if (nfa_4c_trunc_03 in(-1, -2, -4) & nfa_4c_uab_c_03 = 1) then marketvalue_vehicles3 = (marketvalue_vehicles3 + 35000);
          else if (nfa_4c_uab_a_03 in(-1, -2) | nfa_4c_uab_b_03 in(-1, -2) | nfa_4c_uab_c_03 in(-1, -2)) then marketvalue_vehicles3 = -3;

/*************************************************/
/* CAR Component - marketvalue_vehicles4         */
/*************************************************/

if (nfa_4c_trunc_04 >= 0) then marketvalue_vehicles4 = (marketvalue_vehicles4 + nfa_4c_trunc_04);
else if (nfa_4c_trunc_04 in(-1, -2) & nfa_4c_sr000001_trunc_04 < 0 & nfa_4c_sr000002_trunc_04 < 0
& nfa_4c_uab_a_04 < 0 & nfa_4c_uab_b_04 < 0 & nfa_4c_uab_c_04 < 0) then marketvalue_vehicles4 = nfa_4c_trunc_04;
   else if (nfa_4c_sr000001_trunc_04 >= 0 & nfa_4c_sr000002_trunc_04 >= 0 & nfa_4c_sr000002_trunc_04 = nfa_4c_sr000001_trunc_04) then
   marketvalue_vehicles4 = (marketvalue_vehicles4 + nfa_4c_sr000001_trunc_04);
    else if (nfa_4c_sr000001_trunc_04 >= 0 & nfa_4c_sr000002_trunc_04 >= 0 & nfa_4c_sr000002_trunc_04 > nfa_4c_sr000001_trunc_04) then
    marketvalue_vehicles4 = (marketvalue_vehicles4 + (((nfa_4c_sr000002_trunc_04 - nfa_4c_sr000001_trunc_04)/2) + nfa_4c_sr000001_trunc_04));
     else if (nfa_4c_sr000001_trunc_04 >= 0 & nfa_4c_sr000002_trunc_04 >= 0 & nfa_4c_sr000002_trunc_04 < nfa_4c_sr000001_trunc_04) then
     marketvalue_vehicles4 = (marketvalue_vehicles4 + (((nfa_4c_sr000001_trunc_04 - nfa_4c_sr000002_trunc_04)/2) + nfa_4c_sr000002_trunc_04));
      else if (nfa_4c_trunc_04 in(-1, -2, -4) & nfa_4c_uab_b_04 = 0) then marketvalue_vehicles4 = (marketvalue_vehicles4 + quartile1);
       else if (nfa_4c_trunc_04 in(-1, -2, -4) & nfa_4c_uab_b_04 = 1) then marketvalue_vehicles4 = (marketvalue_vehicles4 + quartile2);
        else if (nfa_4c_trunc_04 in(-1, -2, -4) & nfa_4c_uab_c_04 = 0) then marketvalue_vehicles4 = (marketvalue_vehicles4 + quartile3);
         else if (nfa_4c_trunc_04 in(-1, -2, -4) & nfa_4c_uab_c_04 = 1) then marketvalue_vehicles4 = (marketvalue_vehicles4 + 40000);
          else if (nfa_4c_uab_a_04 in(-1, -2) | nfa_4c_uab_b_04 in(-1, -2) | nfa_4c_uab_c_04 in(-1, -2)) then marketvalue_vehicles4 = -3;

/*************************************************/
/* CAR Component - marketvalue_vehicles5         */
/*************************************************/

if (nfa_4c_trunc_05 >= 0) then marketvalue_vehicles5 = (marketvalue_vehicles5 + nfa_4c_trunc_05);
else if (nfa_4c_trunc_05 in(-1, -2) & nfa_4c_sr000001_trunc_05 < 0 & nfa_4c_sr000002_trunc_05 < 0
& nfa_4c_uab_a_05 < 0 & nfa_4c_uab_b_05 < 0 & nfa_4c_uab_c_05 < 0) then marketvalue_vehicles5 = nfa_4c_trunc_05;
   else if (nfa_4c_sr000001_trunc_05 >= 0 & nfa_4c_sr000002_trunc_05 >= 0 & nfa_4c_sr000002_trunc_05 = nfa_4c_sr000001_trunc_05) then
   marketvalue_vehicles5 = (marketvalue_vehicles5 + nfa_4c_sr000001_trunc_05);
    else if (nfa_4c_sr000001_trunc_05 >= 0 & nfa_4c_sr000002_trunc_05 >= 0 & nfa_4c_sr000002_trunc_05 > nfa_4c_sr000001_trunc_05) then
    marketvalue_vehicles5 = (marketvalue_vehicles5 + (((nfa_4c_sr000002_trunc_05 - nfa_4c_sr000001_trunc_05)/2) + nfa_4c_sr000001_trunc_05));
     else if (nfa_4c_sr000001_trunc_05 >= 0 & nfa_4c_sr000002_trunc_05 >= 0 & nfa_4c_sr000002_trunc_05 < nfa_4c_sr000001_trunc_05) then
     marketvalue_vehicles5 = (marketvalue_vehicles5 + (((nfa_4c_sr000001_trunc_05 - nfa_4c_sr000002_trunc_05)/2) + nfa_4c_sr000002_trunc_05));
      else if (nfa_4c_trunc_05 in(-1, -2, -4) & nfa_4c_uab_b_05 = 0) then marketvalue_vehicles5 = (marketvalue_vehicles5 + quartile1);
       else if (nfa_4c_trunc_05 in(-1, -2, -4) & nfa_4c_uab_b_05 = 1) then marketvalue_vehicles5 = (marketvalue_vehicles5 + quartile2);
        else if (nfa_4c_trunc_05 in(-1, -2, -4) & nfa_4c_uab_c_05 = 0) then marketvalue_vehicles5 = (marketvalue_vehicles5 + quartile3);
         else if (nfa_4c_trunc_05 in(-1, -2, -4) & nfa_4c_uab_c_05 = 1) then marketvalue_vehicles5 = (marketvalue_vehicles5 + 50000);
          else if (nfa_4c_uab_a_05 in(-1, -2) | nfa_4c_uab_b_05 in(-1, -2) | nfa_4c_uab_c_05 in(-1, -2)) then marketvalue_vehicles5 = -3;

/*************************************************/
/* CAR Component - marketvalue_vehicles6         */
/*************************************************/

if (nfa_4c_trunc_06 >= 0) then marketvalue_vehicles6 = (marketvalue_vehicles6 + nfa_4c_trunc_06);
else if (nfa_4c_trunc_06 in(-1, -2) & nfa_4c_sr000001_trunc_06 < 0 & nfa_4c_sr000002_trunc_06 < 0
& nfa_4c_uab_a_06 < 0 & nfa_4c_uab_b_06 < 0 & nfa_4c_uab_c_06 < 0) then marketvalue_vehicles6 = nfa_4c_trunc_06;
   else if (nfa_4c_sr000001_trunc_06 >= 0 & nfa_4c_sr000002_trunc_06 >= 0 & nfa_4c_sr000002_trunc_06 = nfa_4c_sr000001_trunc_06) then
   marketvalue_vehicles6 = (marketvalue_vehicles6 + nfa_4c_sr000001_trunc_06);
    else if (nfa_4c_sr000001_trunc_06 >= 0 & nfa_4c_sr000002_trunc_06 >= 0 & nfa_4c_sr000002_trunc_06 > nfa_4c_sr000001_trunc_06) then
    marketvalue_vehicles6 = (marketvalue_vehicles6 + (((nfa_4c_sr000002_trunc_06 - nfa_4c_sr000001_trunc_06)/2) + nfa_4c_sr000001_trunc_06));
     else if (nfa_4c_sr000001_trunc_06 >= 0 & nfa_4c_sr000002_trunc_06 >= 0 & nfa_4c_sr000002_trunc_06 < nfa_4c_sr000001_trunc_06) then
     marketvalue_vehicles6 = (marketvalue_vehicles6 + (((nfa_4c_sr000001_trunc_06 - nfa_4c_sr000002_trunc_06)/2) + nfa_4c_sr000002_trunc_06));
      else if (nfa_4c_trunc_06 in(-1, -2, -4) & nfa_4c_uab_b_06 = 0) then marketvalue_vehicles6 = (marketvalue_vehicles6 + quartile1);
       else if (nfa_4c_trunc_06 in(-1, -2, -4) & nfa_4c_uab_b_06 = 1) then marketvalue_vehicles6 = (marketvalue_vehicles6 + quartile2);
        else if (nfa_4c_trunc_06 in(-1, -2, -4) & nfa_4c_uab_c_06 = 0) then marketvalue_vehicles6 = (marketvalue_vehicles6 + quartile3);
         else if (nfa_4c_trunc_06 in(-1, -2, -4) & nfa_4c_uab_c_06 = 1) then marketvalue_vehicles6 = (marketvalue_vehicles6 + 35000);
          else if (nfa_4c_uab_a_06 in(-1, -2) | nfa_4c_uab_b_06 in(-1, -2) | nfa_4c_uab_c_06 in(-1, -2)) then marketvalue_vehicles6 = -3;

/*************************************************/
/* CAR Component - marketvalue_vehicles7         */
/*************************************************/

if (nfa_4c_trunc_07 >= 0) then marketvalue_vehicles7 = (marketvalue_vehicles7 + nfa_4c_trunc_07);
else if (nfa_4c_trunc_07 in(-1, -2) & nfa_4c_sr000001_trunc_07 < 0 & nfa_4c_sr000002_trunc_07 < 0
& nfa_4c_uab_a_07 < 0 & nfa_4c_uab_b_07 < 0) then marketvalue_vehicles7 = nfa_4c_trunc_07;
   else if (nfa_4c_sr000001_trunc_07 >= 0 & nfa_4c_sr000002_trunc_07 >= 0 & nfa_4c_sr000002_trunc_07 = nfa_4c_sr000001_trunc_07) then
   marketvalue_vehicles7 = (marketvalue_vehicles7 + nfa_4c_sr000001_trunc_07);
    else if (nfa_4c_sr000001_trunc_07 >= 0 & nfa_4c_sr000002_trunc_07 >= 0 & nfa_4c_sr000002_trunc_07 > nfa_4c_sr000001_trunc_07) then
    marketvalue_vehicles7 = (marketvalue_vehicles7 + (((nfa_4c_sr000002_trunc_07 - nfa_4c_sr000001_trunc_07)/2) + nfa_4c_sr000001_trunc_07));
     else if (nfa_4c_sr000001_trunc_07 >= 0 & nfa_4c_sr000002_trunc_07 >= 0 & nfa_4c_sr000002_trunc_07 < nfa_4c_sr000001_trunc_07) then
     marketvalue_vehicles7 = (marketvalue_vehicles7 + (((nfa_4c_sr000001_trunc_07 - nfa_4c_sr000002_trunc_07)/2) + nfa_4c_sr000002_trunc_07));
      else if (nfa_4c_trunc_07 in(-1, -2, -4) & nfa_4c_uab_b_07 = 0) then marketvalue_vehicles7 = (marketvalue_vehicles7 + quartile1);
       else if (nfa_4c_trunc_07 in(-1, -2, -4) & nfa_4c_uab_b_07 = 1) then marketvalue_vehicles7 = (marketvalue_vehicles7 + quartile2);
        else if (nfa_4c_uab_a_07 in(-1, -2) | nfa_4c_uab_b_07 in(-1, -2)) then marketvalue_vehicles7 = -3;

/*************************************************/
/* CAR Component - marketvalue_vehicles8         */
/*************************************************/

if (nfa_4c_trunc_08 >= 0) then marketvalue_vehicles8 = (marketvalue_vehicles8 + nfa_4c_trunc_08);
else if (nfa_4c_trunc_08 in(-1, -2) & nfa_4c_sr000001_trunc_08 < 0 & nfa_4c_sr000002_trunc_08 < 0
& nfa_4c_uab_a_08 < 0 & nfa_4c_uab_b_08 < 0) then marketvalue_vehicles8 = nfa_4c_trunc_08;
   else if (nfa_4c_sr000001_trunc_08 >= 0 & nfa_4c_sr000002_trunc_08 >= 0 & nfa_4c_sr000002_trunc_08 = nfa_4c_sr000001_trunc_08) then
   marketvalue_vehicles8 = (marketvalue_vehicles8 + nfa_4c_sr000001_trunc_08);
    else if (nfa_4c_sr000001_trunc_08 >= 0 & nfa_4c_sr000002_trunc_08 >= 0 & nfa_4c_sr000002_trunc_08 > nfa_4c_sr000001_trunc_08) then
    marketvalue_vehicles8 = (marketvalue_vehicles8 + (((nfa_4c_sr000002_trunc_08 - nfa_4c_sr000001_trunc_08)/2) + nfa_4c_sr000001_trunc_08));
     else if (nfa_4c_sr000001_trunc_08 >= 0 & nfa_4c_sr000002_trunc_08 >= 0 & nfa_4c_sr000002_trunc_08 < nfa_4c_sr000001_trunc_08) then
     marketvalue_vehicles8 = (marketvalue_vehicles8 + (((nfa_4c_sr000001_trunc_08 - nfa_4c_sr000002_trunc_08)/2) + nfa_4c_sr000002_trunc_08));
      else if (nfa_4c_trunc_08 in(-1, -2, -4) & nfa_4c_uab_b_08 = 0) then marketvalue_vehicles8 = (marketvalue_vehicles8 + quartile1);
       else if (nfa_4c_trunc_08 in(-1, -2, -4) & nfa_4c_uab_b_08 = 1) then marketvalue_vehicles8 = (marketvalue_vehicles8 + quartile2);
        else if (nfa_4c_uab_a_08 in(-1, -2) | nfa_4c_uab_b_08 in(-1, -2)) then marketvalue_vehicles8 = -3;

/*************************************************/
/* CAR Component - marketvalue_vehicles9         */
/*************************************************/

if (nfa_4c_trunc_09 >= 0) then marketvalue_vehicles9 = (marketvalue_vehicles9 + nfa_4c_trunc_09);
else if (nfa_4c_trunc_09 in(-1, -2) & nfa_4c_uab_a_09 < 0) then marketvalue_vehicles9 = nfa_4c_trunc_09;
else if (nfa_4c_uab_a_09 in(-1, -2)) then marketvalue_vehicles9 = -3;

/*************************************************/
/* CAR Component - marketvalue_vehicles10        */
/*************************************************/

if (nfa_4c_trunc_10 >= 0) then marketvalue_vehicles10 = (marketvalue_vehicles10 + nfa_4c_trunc_10);
else if (nfa_4c_trunc_10 in(-1, -2) & nfa_4c_uab_a_10 < 0) then marketvalue_vehicles10 = nfa_4c_trunc_10;
else if (nfa_4c_uab_a_10 in(-1, -2)) then marketvalue_vehicles10 = -3;

/*************************************************/
/* CAR Component - marketvalue_vehicles11        */
/*************************************************/

if (nfa_4c_trunc_11 >= 0) then marketvalue_vehicles11 = (marketvalue_vehicles11 + nfa_4c_trunc_11);
else if (nfa_4c_trunc_11 in(-1, -2) & nfa_4c_uab_a_11 < 0) then marketvalue_vehicles11 = nfa_4c_trunc_11;
else if (nfa_4c_uab_a_11 in(-1, -2)) then marketvalue_vehicles11 = -3;

/*************************************************/
/* CAR Component - marketvalue_vehicles12        */
/*************************************************/

if (nfa_4c_trunc_12 >= 0) then marketvalue_vehicles12 = (marketvalue_vehicles12 + nfa_4c_trunc_12);
else if (nfa_4c_trunc_12 in(-1, -2) & nfa_4c_uab_a_12 < 0) then marketvalue_vehicles12 = nfa_4c_trunc_12;
else if (nfa_4c_uab_a_12 in(-1, -2)) then marketvalue_vehicles12 = -3;

/*************************************************/
/* CAR Component - marketvalue_vehicles13        */
/*************************************************/

if (nfa_4c_trunc_13 >= 0) then marketvalue_vehicles13 = (marketvalue_vehicles13 + nfa_4c_trunc_13);
else if (nfa_4c_trunc_13 in(-1, -2) & nfa_4c_uab_a_13 < 0) then marketvalue_vehicles13 = nfa_4c_trunc_13;
else if (nfa_4c_uab_a_13 in(-1, -2)) then marketvalue_vehicles13 = -3;

/*************************************************/
/* CAR Component - marketvalue_vehicles14        */
/*************************************************/

if (nfa_4c_trunc_14 >= 0) then marketvalue_vehicles14 = (marketvalue_vehicles14 + nfa_4c_trunc_14);
else if (nfa_4c_trunc_14 in(-1, -2) & nfa_4c_uab_a_14 < 0) then marketvalue_vehicles14 = nfa_4c_trunc_14;
else if (nfa_4c_uab_a_14 in(-1, -2)) then marketvalue_vehicles14 = -3;

/*************************************************/
/* CAR Component - marketvalue_vehicles15        */
/*************************************************/

if (nfa_4c_trunc_15 >= 0) then marketvalue_vehicles15 = (marketvalue_vehicles15 + nfa_4c_trunc_15);
else if (nfa_4c_trunc_15 in(-1, -2) & nfa_4c_uab_a_15 < 0) then marketvalue_vehicles15 = nfa_4c_trunc_15;
else if (nfa_4c_uab_a_15 in(-1, -2)) then marketvalue_vehicles15 = -3;

/*************************************************/
/* CAR Component - marketvalue_vehicles16        */
/*************************************************/

if (nfa_4c_trunc_16 >= 0) then marketvalue_vehicles16 = (marketvalue_vehicles16 + nfa_4c_trunc_16);
else if (nfa_4c_trunc_16 in(-1, -2)) then marketvalue_vehicles16 = nfa_4c_trunc_16;

/*************************************************/
/* CAR Component - marketvalue_vehicles17        */
/*************************************************/

if (nfa_4c_trunc_17 >= 0) then marketvalue_vehicles17 = (marketvalue_vehicles17 + nfa_4c_trunc_17);
else if (nfa_4c_trunc_17 in(-1, -2)) then marketvalue_vehicles17 = nfa_4c_trunc_17;

/*************************************************/
/* CAR Component - mktval_othervehicles          */
/*************************************************/

if (nfa_5 = 1 & nfa_5c_trunc >= 0) then mktval_othervehicles = (mktval_othervehicles + nfa_5c_trunc);
else if (nfa_5 = 1 & nfa_5c_ref_1 = 1 & nfa_5c_sr000001 < 0 & nfa_5c_sr000002 < 0
& nfa_5c_uab_a < 0 & nfa_5c_uab_b < 0 & nfa_5c_uab_c < 0) then mktval_othervehicles = -1;
else if (nfa_5 = 1 & nfa_5c_trunc in(-1, -2) & nfa_5c_sr000001 < 0 & nfa_5c_sr000002 < 0
& nfa_5c_uab_a < 0 & nfa_5c_uab_b < 0 & nfa_5c_uab_c < 0) then mktval_othervehicles = nfa_5c_trunc;
    else if (nfa_5c_sr000001 >= 0 & nfa_5c_sr000002 >= 0 & nfa_5c_sr000002 = nfa_5c_sr000001) then
    mktval_othervehicles = (mktval_othervehicles + nfa_5c_sr000001);
     else if (nfa_5c_sr000001 >= 0 & nfa_5c_sr000002 >= 0 & nfa_5c_sr000002 > nfa_5c_sr000001) then
     mktval_othervehicles = (mktval_othervehicles + (((nfa_5c_sr000002 - nfa_5c_sr000001)/2) + nfa_5c_sr000001));
      else if (nfa_5c_sr000001 >= 0 & nfa_5c_sr000002 >= 0 & nfa_5c_sr000002 < nfa_5c_sr000001) then
      mktval_othervehicles = (mktval_othervehicles + (((nfa_5c_sr000001 - nfa_5c_sr000002)/2) + nfa_5c_sr000002));
       else if (nfa_5c_trunc in(-1, -2, -4) & nfa_5c_uab_b = 0) then mktval_othervehicles = (mktval_othervehicles + quartile1);
        else if (nfa_5c_trunc in(-1, -2, -4) & nfa_5c_uab_b = 1) then mktval_othervehicles = (mktval_othervehicles + quartile2);
         else if (nfa_5c_trunc in(-1, -2, -4) & nfa_5c_uab_c = 0) then mktval_othervehicles = (mktval_othervehicles + quartile3);
          else if (nfa_5c_trunc in(-1, -2, -4) & nfa_5c_uab_c = 1) then mktval_othervehicles = (mktval_othervehicles + 50000);
           else if (nfa_5c_uab_a in(-1, -2) | nfa_5c_uab_b in(-1, -2) | nfa_5c_uab_c in(-1, -2)) then mktval_othervehicles = -3;

/*******************************/
/* Add components CAR          */
/*******************************/

if (mktval_assetpoorcars1 >= 0) then carc = (carc + mktval_assetpoorcars1);
if (mktval_assetpoorcars2 >= 0) then carc = (carc + mktval_assetpoorcars2);
if (mktval_assetpoorcars3 >= 0) then carc = (carc + mktval_assetpoorcars3);
if (marketvalue_vehicles1 >= 0) then carc = (carc + marketvalue_vehicles1);
if (marketvalue_vehicles2 >= 0) then carc = (carc + marketvalue_vehicles2);
if (marketvalue_vehicles3 >= 0) then carc = (carc + marketvalue_vehicles3);
if (marketvalue_vehicles4 >= 0) then carc = (carc + marketvalue_vehicles4);
if (marketvalue_vehicles5 >= 0) then carc = (carc + marketvalue_vehicles5);
if (marketvalue_vehicles6 >= 0) then carc = (carc + marketvalue_vehicles6);
if (marketvalue_vehicles7 >= 0) then carc = (carc + marketvalue_vehicles7);
if (marketvalue_vehicles8 >= 0) then carc = (carc + marketvalue_vehicles8);
if (marketvalue_vehicles9 >= 0) then carc = (carc + marketvalue_vehicles9);
if (marketvalue_vehicles10 >= 0) then carc = (carc + marketvalue_vehicles10);
if (marketvalue_vehicles11 >= 0) then carc = (carc + marketvalue_vehicles11);
if (marketvalue_vehicles12 >= 0) then carc = (carc + marketvalue_vehicles12);
if (marketvalue_vehicles13 >= 0) then carc = (carc + marketvalue_vehicles13);
if (marketvalue_vehicles14 >= 0) then carc = (carc + marketvalue_vehicles14);
if (marketvalue_vehicles15 >= 0) then carc = (carc + marketvalue_vehicles15);
if (marketvalue_vehicles16 >= 0) then carc = (carc + marketvalue_vehicles16);
if (marketvalue_vehicles17 >= 0) then carc = (carc + marketvalue_vehicles17);
if (mktval_othervehicles >= 0) then carc = (carc + mktval_othervehicles);

if (mktval_assetpoorcars1 in(-1, -2, -3)) then carc = -3;
else if (mktval_assetpoorcars2 in(-1, -2, -3)) then carc = -3;
else if (mktval_assetpoorcars3 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles1 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles2 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles3 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles4 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles5 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles6 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles7 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles8 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles9 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles10 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles11 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles12 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles13 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles14 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles15 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles16 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles17 in(-1, -2, -3)) then carc = -3;
else if (mktval_othervehicles in(-1, -2, -3)) then carc = -3;

/************************/
/* Compute TNFW_TRUNC   */
/************************/
/*******************************************************/
/* TNFW_TRUNC - add components created in above code   */
/*******************************************************/

if (homec >= 0) then tnfw_trunc = (tnfw_trunc + homec );
if (mortc >= 0) then tnfw_trunc = (tnfw_trunc - mortc );
if (pdebtc >= 0) then tnfw_trunc = (tnfw_trunc - pdebtc);
if (cashc >= 0) then tnfw_trunc = (tnfw_trunc + cashc );
if (irac   >= 0) then tnfw_trunc = (tnfw_trunc + irac );
if (a401kc >= 0) then tnfw_trunc = (tnfw_trunc + a401kc);
if (cdsc   >= 0) then tnfw_trunc = (tnfw_trunc + cdsc );
if (stockc >= 0) then tnfw_trunc = (tnfw_trunc + stockc);
if (bizc   >= 0) then tnfw_trunc = (tnfw_trunc + bizc );
if (bdebtc >= 0) then tnfw_trunc = (tnfw_trunc - bdebtc);
if (cdebtc >= 0) then tnfw_trunc = (tnfw_trunc - cdebtc);
if (carc   >= 0) then tnfw_trunc = (tnfw_trunc + carc );
if (posesc >= 0) then tnfw_trunc = (tnfw_trunc + posesc);
if (odebtc >= 0) then tnfw_trunc = (tnfw_trunc - odebtc);

if (homec in(-1, -2, -3)) then tnfw_trunc = -3;
if (mortc in(-1, -2, -3)) then tnfw_trunc = -3;
if (pdebtc in(-1, -2, -3)) then tnfw_trunc = -3;
if (cashc in(-1, -2, -3)) then tnfw_trunc = -3;
if (irac   in(-1, -2, -3)) then tnfw_trunc = -3;
if (a401kc in(-1, -2, -3)) then tnfw_trunc = -3;
if (cdsc   in(-1, -2, -3)) then tnfw_trunc = -3;
if (stockc in(-1, -2, -3)) then tnfw_trunc = -3;
if (bizc   in(-1, -2, -3)) then tnfw_trunc = -3;
if (bdebtc in(-1, -2, -3)) then tnfw_trunc = -3;
if (cdebtc in(-1, -2, -3)) then tnfw_trunc = -3;
if (carc   in(-1, -2, -3)) then tnfw_trunc = -3;
if (posesc in(-1, -2, -3)) then tnfw_trunc = -3;
if (odebtc in(-1, -2, -3)) then tnfw_trunc = -3;

/****************************************/
/* APPLY TOPCODE TO TNFW_TRUNC FOR 2012 */
/****************************************/

if (tnfw_trunc > 2060328) then tnfw_trunc = 3749941;

tnfw_trunc = round(tnfw_trunc);

/***************************************************************/
/* TNFW_TRUNC - adjust for partially missing range estimates   */
/***************************************************************/

if (tnfw_trunc ~= -3 &
    ((nfa_1a_sr000001 >= 0 & nfa_1a_sr000002 in(-1, -2)) | (nfa_1a_sr000001 in(-1, -2) & nfa_1a_sr000002 >= 0)
| (nfa_1b_sr000001 >= 0 & nfa_1b_sr000002 in(-1, -2)) | (nfa_1b_sr000001 in(-1, -2) & nfa_1b_sr000002 >= 0)
| (nfa_1c_sr000001 >= 0 & nfa_1c_sr000002 in(-1, -2)) | (nfa_1c_sr000001 in(-1, -2) & nfa_1c_sr000002 >= 0)
| (nfa_2a_sr000001 >= 0 & nfa_2a_sr000002 in(-1, -2)) | (nfa_2a_sr000001 in(-1, -2) & nfa_2a_sr000002 >= 0)
| (nfa_2b_sr000001 >= 0 & nfa_2b_sr000002 in(-1, -2)) | (nfa_2b_sr000001 in(-1, -2) & nfa_2b_sr000002 >= 0)
| (nfa_2c_sr000001 >= 0 & nfa_2c_sr000002 in(-1, -2)) | (nfa_2c_sr000001 in(-1, -2) & nfa_2c_sr000002 >= 0)
| (fa_1a_sr000001 >= 0 & fa_1a_sr000002 in(-1, -2)) | (fa_1a_sr000001 in(-1, -2) & fa_1a_sr000002 >= 0)
| (fa_8d_sr000001_01 >= 0 & fa_8d_sr000002_01 in(-1, -2)) | (fa_8d_sr000001_01 in(-1, -2) & fa_8d_sr000002_01 >= 0)
| (fa_8d_sr000001_02 >= 0 & fa_8d_sr000002_02 in(-1, -2)) | (fa_8d_sr000001_02 in(-1, -2) & fa_8d_sr000002_02 >= 0)
| (fa_8d_sr000001_03 >= 0 & fa_8d_sr000002_03 in(-1, -2)) | (fa_8d_sr000001_03 in(-1, -2) & fa_8d_sr000002_03 >= 0)
| (fa_8d_sr000001_04 >= 0 & fa_8d_sr000002_04 in(-1, -2)) | (fa_8d_sr000001_04 in(-1, -2) & fa_8d_sr000002_04 >= 0)
| (fa_8d_sr000001_05 >= 0 & fa_8d_sr000002_05 in(-1, -2)) | (fa_8d_sr000001_05 in(-1, -2) & fa_8d_sr000002_05 >= 0)
| (fa_8d_sr000001_06 >= 0 & fa_8d_sr000002_06 in(-1, -2)) | (fa_8d_sr000001_06 in(-1, -2) & fa_8d_sr000002_06 >= 0)
| (fa_8d_sr000001_07 >= 0 & fa_8d_sr000002_07 in(-1, -2)) | (fa_8d_sr000001_07 in(-1, -2) & fa_8d_sr000002_07 >= 0)
| (fa_6e_sr000001 >= 0 & fa_6e_sr000002 in(-1, -2)) | (fa_6e_sr000001 in(-1, -2) & fa_6e_sr000002 >= 0)
| (fa_7c_sr000001 >= 0 & fa_7c_sr000002 in(-1, -2)) | (fa_7c_sr000001 in(-1, -2) & fa_7c_sr000002 >= 0)
| (fa_2a_sr000001 >= 0 & fa_2a_sr000002 in(-1, -2)) | (fa_2a_sr000001 in(-1, -2) & fa_2a_sr000002 >= 0)
| (fa_3a_sr000001 >= 0 & fa_3a_sr000002 in(-1, -2)) | (fa_3a_sr000001 in(-1, -2) & fa_3a_sr000002 >= 0)
| (fa_4a_sr000001 >= 0 & fa_4a_sr000002 in(-1, -2)) | (fa_4a_sr000001 in(-1, -2) & fa_4a_sr000002 >= 0)
| (fa_5a_sr000001 >= 0 & fa_5a_sr000002 in(-1, -2)) | (fa_5a_sr000001 in(-1, -2) & fa_5a_sr000002 >= 0)
| (fa_9a_sr000001 >= 0 & fa_9a_sr000002 in(-1, -2)) | (fa_9a_sr000001 in(-1, -2) & fa_9a_sr000002 >= 0)
| (fa_10a_sr000001 >= 0 & fa_10a_sr000002 in(-1, -2)) | (fa_10a_sr000001 in(-1, -2) & fa_10a_sr000002 >= 0)
| (fa_11a_sr000001 >= 0 & fa_11a_sr000002 in(-1, -2)) | (fa_11a_sr000001 in(-1, -2) & fa_11a_sr000002 >= 0)
| (q13_131_sr000001 >= 0 & q13_131_sr000002 in(-1, -2)) | (q13_131_sr000001 in(-1, -2) & q13_131_sr000002 >= 0)
| (q13_132_sr000001 >= 0 & q13_132_sr000002 in(-1, -2)) | (q13_132_sr000001 in(-1, -2) & q13_132_sr000002 >= 0)
| (sc_12b_sr000001_01 >= 0 & sc_12b_sr000002_01 in(-1, -2)) | (sc_12b_sr000001_01 in(-1, -2) & sc_12b_sr000002_01 >= 0)
| (nfa_4f_sr000001_01 >= 0 & nfa_4f_sr000002_01 in(-1, -2)) | (nfa_4f_sr000001_01 in(-1, -2) & nfa_4f_sr000002_01 >= 0)
| (nfa_4f_sr000001_02 >= 0 & nfa_4f_sr000002_02 in(-1, -2)) | (nfa_4f_sr000001_02 in(-1, -2) & nfa_4f_sr000002_02 >= 0)
| (nfa_4f_sr000001_03 >= 0 & nfa_4f_sr000002_03 in(-1, -2)) | (nfa_4f_sr000001_03 in(-1, -2) & nfa_4f_sr000002_03 >= 0)
| (nfa_4f_sr000001_06 >= 0 & nfa_4f_sr000002_06 in(-1, -2)) | (nfa_4f_sr000001_06 in(-1, -2) & nfa_4f_sr000002_06 >= 0)
| (sc_12a_sr000001_01 >= 0 & sc_12a_sr000002_01 in(-1, -2)) | (sc_12a_sr000001_01 in(-1, -2) & sc_12a_sr000002_01 >= 0)
| (nfa_4c_sr000001_01 >= 0 & nfa_4c_sr000002_01 in(-1, -2)) | (nfa_4c_sr000001_01 in(-1, -2) & nfa_4c_sr000002_01 >= 0)
| (nfa_4c_sr000001_02 >= 0 & nfa_4c_sr000002_02 in(-1, -2)) | (nfa_4c_sr000001_02 in(-1, -2) & nfa_4c_sr000002_02 >= 0)
| (nfa_4c_sr000001_03 >= 0 & nfa_4c_sr000002_03 in(-1, -2)) | (nfa_4c_sr000001_03 in(-1, -2) & nfa_4c_sr000002_03 >= 0)
| (nfa_4c_sr000001_04 >= 0 & nfa_4c_sr000002_04 in(-1, -2)) | (nfa_4c_sr000001_04 in(-1, -2) & nfa_4c_sr000002_04 >= 0)
| (nfa_4c_sr000001_05 >= 0 & nfa_4c_sr000002_05 in(-1, -2)) | (nfa_4c_sr000001_05 in(-1, -2) & nfa_4c_sr000002_05 >= 0)
| (nfa_4c_sr000001_06 >= 0 & nfa_4c_sr000002_06 in(-1, -2)) | (nfa_4c_sr000001_06 in(-1, -2) & nfa_4c_sr000002_06 >= 0)
| (nfa_4c_sr000001_07 >= 0 & nfa_4c_sr000002_07 in(-1, -2)) | (nfa_4c_sr000001_07 in(-1, -2) & nfa_4c_sr000002_07 >= 0)
| (nfa_4c_sr000001_08 >= 0 & nfa_4c_sr000002_08 in(-1, -2)) | (nfa_4c_sr000001_08 in(-1, -2) & nfa_4c_sr000002_08 >= 0)
| (nfa_5c_sr000001 >= 0 & nfa_5c_sr000002 in(-1, -2)) | (nfa_5c_sr000001 in(-1, -2) & nfa_5c_sr000002 >= 0)
| (nfa_6e_sr000001 >= 0 & nfa_6e_sr000002 in(-1, -2)) | (nfa_6e_sr000001 in(-1, -2) & nfa_6e_sr000002 >= 0)))
then tnfw_trunc = -3;
end;

2016 TNFW_TRUNC Variable Creation

/***************************************************/
/* Compute dollar amt for dollars & cents vars     */
/***************************************************/

nfa_7d_truncc = nfa_7d_trunc;
if (nfa_7d_trunc > 0) then nfa_7d_truncc = (nfa_7d_trunc/100);

/***************************************************/
/* Compute dynamic QUARTILE VALUES for estimates   */
/***************************************************/

array quartileqs (i) quartile1 quartile2 quartile3 quartile4;

do i = 1 to 4;
quartileqs = 0;
end;

if (symbol_entry_othhh = 7200) then do;
quartile1 = (5000/2);
quartile2 = (5000 + ((7200-5000)/2));
quartile3 = (7200 + ((30000-7200)/2));
quartile4 = 30000; /* Note: Use median of actual values > 30000 where possible. Otherwise set to 30000 */
end;
else if (symbol_entry_othhh = 13000) then do;
quartile1 = (5000/2);
quartile2 = (5000 + ((13000-5000)/2));
quartile3 = (13000 + ((30000-13000)/2));
quartile4 = 30000; /* Note: Use median of actual values > 30000 where possible. Otherwise set to 30000 */
end;

/***************************************************/
/* BEGIN COMPUTATIONS FOR NET WEALTH COMPONENTS    */
/***************************************************/

array assetsc (i)      homec mortc pdebtc cashc irac a401kc cdsc stockc trustc bizc
                       bdebtc cdebtc carc posesc odebtc tnfw_trunc
                       collections items ccdebt studentloan childstudentloan owebusiness otherdebt
                       solebiz farm_1_value1 farm_2_value1 business_1_value1 business_2_value1
                       business_3_value1 business_4_value1 realestate_1_value1
                       realestate_2_value1 realestate_3_value1 realestate_4_value1 realestate_5_value1
                       farm_1_value farm_2_value business_1_value business_2_value
                       business_3_value business_4_value realestate_1_value
                       realestate_2_value realestate_3_value realestate_4_value realestate_5_value
                       debtbiz farm_1_debt1 farm_2_debt1 business_1_debt1 business_2_debt1
                       business_3_debt1 business_4_debt1 realestate_1_debt1
                       realestate_2_debt1 realestate_3_debt1 realestate_4_debt1 realestate_5_debt1
                       farm_1_debt farm_2_debt business_1_debt business_2_debt
                       business_3_debt business_4_debt realestate_1_debt
                       govbonds mutual lifeinsure shares corpbond moneyowedtor
                       home1 secondhome mort1 secondmort pdebt1 secondpdebt
                       ira1 ira2 ira3 ira4 ira5 ira6 ira7 r_401k sp_401k
                       amtowe_assetpoorcars1 amtowe_assetpoorcars2
                       amountowe_vehicles1 amountowe_vehicles2 amountowe_vehicles3 amountowe_vehicles4
                       amountowe_vehicles5 amountowe_vehicles6 amountowe_vehicles8 amountowe_vehicles9 amtowe_othervehicles
                       mktval_assetpoorcars1 mktval_assetpoorcars2
                       marketvalue_vehicles1 marketvalue_vehicles2 marketvalue_vehicles3 marketvalue_vehicles4
                       marketvalue_vehicles5 marketvalue_vehicles6 marketvalue_vehicles7 marketvalue_vehicles8
                       marketvalue_vehicles9 marketvalue_vehicles10 marketvalue_vehicles11 marketvalue_vehicles12
                       marketvalue_vehicles13 marketvalue_vehicles14 marketvalue_vehicles15 marketvalue_vehicles16
                       marketvalue_vehicles17 marketvalue_vehicles18 marketvalue_vehicles19 marketvalue_vehicles20
                       mktval_othervehicles;


do i = 1 to 120;
if (sampweight = 0) then assetsc = -5;
else if (sampweight > 0) then assetsc = 0;
end;

/****************************/
/* Compute POSES            */
/****************************/
/************************************************/
/* POSES Component - collections                */
/************************************************/

if (nfa_6a = 1 & nfa_6e_trunc >= 0) then collections = (collections + nfa_6e_trunc);
else if (nfa_6a = 1 & nfa_6e_ref_1 = 1 & nfa_6e_sr000001 < 0 & nfa_6e_sr000002 < 0
& nfa_6e_uab_a < 0 & nfa_6e_uab_b < 0 & nfa_6e_uab_c < 0) then collections = -1;
else if (nfa_6a = 1 & nfa_6e_trunc in(-1, -2) & nfa_6e_sr000001 < 0 & nfa_6e_sr000002 < 0
& nfa_6e_uab_a < 0 & nfa_6e_uab_b < 0 & nfa_6e_uab_c < 0) then collections = nfa_6e_trunc;
    else if (nfa_6e_sr000001 >= 0 & nfa_6e_sr000002 >= 0 & nfa_6e_sr000002 = nfa_6e_sr000001) then
    collections = (collections + nfa_6e_sr000001);
     else if (nfa_6e_sr000001 >= 0 & nfa_6e_sr000002 >= 0 & nfa_6e_sr000002 > nfa_6e_sr000001) then
     collections = (collections + (((nfa_6e_sr000002 - nfa_6e_sr000001)/2) + nfa_6e_sr000001));
      else if (nfa_6e_sr000001 >= 0 & nfa_6e_sr000002 >= 0 & nfa_6e_sr000002 < nfa_6e_sr000001) then
      collections = (collections + (((nfa_6e_sr000001 - nfa_6e_sr000002)/2) + nfa_6e_sr000002));
       else if (nfa_6e_trunc in(-1, -2, -4) & nfa_6e_uab_b = 0) then collections = (collections + quartile1);
        else if (nfa_6e_trunc in(-1, -2, -4) & nfa_6e_uab_b = 1) then collections = (collections + quartile2);
         else if (nfa_6e_trunc in(-1, -2, -4) & nfa_6e_uab_c = 0) then collections = (collections + quartile3);
          else if (nfa_6e_trunc in(-1, -2, -4) & nfa_6e_uab_c = 1) then collections = (collections + 75000);
           else if (nfa_6e_uab_a in(-1, -2) | nfa_6e_uab_b in(-1, -2) | nfa_6e_uab_c in(-1, -2)) then collections = -3;

/************************************************/
/* POSES Component - items                      */
/************************************************/

if (nfa_7 = 1 & nfa_7d_truncc >= 0) then items = (items + nfa_7d_truncc);
else if (nfa_7 = 1 & nfa_7d_ref_1 = 1 & nfa_7d_uab_a < 0 & nfa_7d_uab_b < 0 & nfa_7d_uab_c < 0) then items = -1;
else if (nfa_7 = 1 & nfa_7d_truncc in(-1, -2) & nfa_7d_uab_a < 0 & nfa_7d_uab_b < 0 & nfa_7d_uab_c < 0) then items = nfa_7d_truncc;
   else if (nfa_7d_truncc in(-1, -2, -4) & nfa_7d_uab_b = 0) then items = (items + quartile1);
    else if (nfa_7d_truncc in(-1, -2, -4) & nfa_7d_uab_b = 1) then items = (items + quartile2);
     else if (nfa_7d_truncc in(-1, -2, -4) & nfa_7d_uab_c = 0) then items = (items + quartile3);
      else if (nfa_7d_truncc in(-1, -2, -4) & nfa_7d_uab_c = 1) then items = (items + 55500);
       else if (nfa_7d_uab_a in(-1, -2) | nfa_7d_uab_b in(-1, -2) | nfa_7d_uab_c in(-1, -2)) then items = -3;

/*******************************/
/* Add components POSES        */
/*******************************/

if (collections >= 0) then posesc = (posesc + collections);
if (items >= 0) then posesc = (posesc + items);
if (collections in(-1, -2, -3)) then posesc = -3;
else if (items in(-1, -2, -3)) then posesc = -3;

/****************************/
/* Compute ODEBT            */
/****************************/

/************************************************/
/* ODEBT Component - ccdebt                     */
/************************************************/

if (debt_1 = 1 & debt_1a >= 0) then ccdebt = (ccdebt + debt_1a);
else if (debt_1 = 1 & debt_1a_ref_1 = 1 & debt_1a_sr000001 < 0 & debt_1a_sr000002 < 0
& debt_1a_uab_a < 0 & debt_1a_uab_b < 0 & debt_1a_uab_c < 0) then ccdebt = -1;
else if (debt_1 = 1 & debt_1a in(-1, -2) & debt_1a_sr000001 < 0 & debt_1a_sr000002 < 0
& debt_1a_uab_a < 0 & debt_1a_uab_b < 0 & debt_1a_uab_c < 0) then ccdebt = debt_1a;
    else if (debt_1a_sr000001 >= 0 & debt_1a_sr000002 >= 0 & debt_1a_sr000002 = debt_1a_sr000001) then
    ccdebt = (ccdebt + debt_1a_sr000001);
     else if (debt_1a_sr000001 >= 0 & debt_1a_sr000002 >= 0 & debt_1a_sr000002 > debt_1a_sr000001) then
     ccdebt = (ccdebt + (((debt_1a_sr000002 - debt_1a_sr000001)/2) + debt_1a_sr000001));
      else if (debt_1a_sr000001 >= 0 & debt_1a_sr000002 >= 0 & debt_1a_sr000002 < debt_1a_sr000001) then
      ccdebt = (ccdebt + (((debt_1a_sr000001 - debt_1a_sr000002)/2) + debt_1a_sr000002));
       else if (debt_1a in(-1, -2, -4) & debt_1a_uab_b = 0) then ccdebt = (ccdebt + quartile1);
        else if (debt_1a in(-1, -2, -4) & debt_1a_uab_b = 1) then ccdebt = (ccdebt + quartile2);
         else if (debt_1a in(-1, -2, -4) & debt_1a_uab_c = 0) then ccdebt = (ccdebt + quartile3);
          else if (debt_1a in(-1, -2, -4) & debt_1a_uab_c = 1) then ccdebt = (ccdebt + 41000);
           else if (debt_1a_uab_a in(-1, -2) | debt_1a_uab_b in(-1, -2) | debt_1a_uab_c in(-1, -2)) then ccdebt = -3;

/************************************************/
/* ODEBT Component - studentloan                */
/************************************************/

if (debt_2 = 1 & debt_2a >= 0) then studentloan = (studentloan + debt_2a);
else if (debt_2 = 1 & debt_2a_ref_1 = 1 & debt_2a_uab_a < 0 & debt_2a_uab_b < 0
& debt_2a_uab_c < 0) then studentloan = -1;
else if (debt_2 = 1 & debt_2a in(-1, -2) & debt_2a_uab_a < 0 & debt_2a_uab_b < 0
& debt_2a_uab_c < 0) then studentloan = debt_2a;
   else if (debt_2a in(-1, -2, -4) & debt_2a_uab_b = 0) then studentloan = (studentloan + quartile1);
    else if (debt_2a in(-1, -2, -4) & debt_2a_uab_b = 1) then studentloan = (studentloan + quartile2);
     else if (debt_2a in(-1, -2, -4) & debt_2a_uab_c = 0) then studentloan = (studentloan + quartile3);
      else if (debt_2a in(-1, -2, -4) & debt_2a_uab_c = 1) then studentloan = (studentloan + 60000);
       else if (debt_2a_uab_a in(-1, -2) | debt_2a_uab_b in(-1, -2) | debt_2a_uab_c in(-1, -2)) then studentloan = -3;

/************************************************/
/* ODEBT Component - childstudentloan           */
/************************************************/

if (debt_2c = 1 & debt_2d >= 0) then childstudentloan = (childstudentloan + debt_2d);
else if (debt_2c = 1 & debt_2d_ref_1 = 1 & debt_2d_uab_a < 0 & debt_2d_uab_b < 0
& debt_2d_uab_c < 0) then childstudentloan = -1;
else if (debt_2c = 1 & debt_2d in(-1, -2) & debt_2d_uab_a < 0 & debt_2d_uab_b < 0
& debt_2d_uab_c < 0) then childstudentloan = debt_2d;
   else if (debt_2d in(-1, -2, -4) & debt_2d_uab_b = 0) then childstudentloan = (childstudentloan + quartile1);
    else if (debt_2d in(-1, -2, -4) & debt_2d_uab_b = 1) then childstudentloan = (childstudentloan + quartile2);
     else if (debt_2d in(-1, -2, -4) & debt_2d_uab_c = 0) then childstudentloan = (childstudentloan + quartile3);
      else if (debt_2d in(-1, -2, -4) & debt_2d_uab_c = 1) then childstudentloan = (childstudentloan + 60000);
       else if (debt_2d_uab_a in(-1, -2) | debt_2d_uab_b in(-1, -2) | debt_2d_uab_c in(-1, -2)) then childstudentloan = -3;

/************************************************/
/* ODEBT Component - owebusiness                */
/************************************************/

if (debt_3 = 1 & debt_3a_trunc >= 0) then owebusiness = (owebusiness + debt_3a_trunc);
else if (debt_3 = 1 & debt_3a_ref_1 = 1 & debt_3a_uab_a < 0 & debt_3a_uab_b < 0
& debt_3a_uab_c < 0) then owebusiness = -1;
else if (debt_3 = 1 & debt_3a_trunc in(-1, -2) & debt_3a_uab_a < 0 & debt_3a_uab_b < 0
& debt_3a_uab_c < 0) then owebusiness = debt_3a_trunc;
   else if (debt_3a_trunc in(-1, -2, -4) & debt_3a_uab_b = 0) then owebusiness = (owebusiness + quartile1);
    else if (debt_3a_trunc in(-1, -2, -4) & debt_3a_uab_b = 1) then owebusiness = (owebusiness + quartile2);
     else if (debt_3a_trunc in(-1, -2, -4) & debt_3a_uab_c = 0) then owebusiness = (owebusiness + quartile3);
      else if (debt_3a_trunc in(-1, -2, -4) & debt_3a_uab_c = 1) then owebusiness = (owebusiness + 60000);
       else if (debt_3a_uab_a in(-1, -2) | debt_3a_uab_b in(-1, -2) | debt_3a_uab_c in(-1, -2)) then owebusiness = -3;

/************************************************/
/* ODEBT Component - otherdebt                  */
/************************************************/

if (debt_4 = 1 & debt_4a_trunc >= 0) then otherdebt = (otherdebt + debt_4a_trunc);
else if (debt_4 = 1 & debt_4a_ref_1 = 1 & debt_4a_uab_a < 0 & debt_4a_uab_b < 0) then otherdebt = -1;
else if (debt_4 = 1 & debt_4a_trunc in(-1, -2) & debt_4a_uab_a < 0 & debt_4a_uab_b < 0) then otherdebt = debt_4a_trunc;
   else if (debt_4a_trunc in(-1, -2, -4) & debt_4a_uab_b = 0) then otherdebt = (otherdebt + quartile1);
    else if (debt_4a_trunc in(-1, -2, -4) & debt_4a_uab_b = 1) then otherdebt = (otherdebt + quartile2);
      else if (debt_4a_uab_a in(-1, -2) | debt_4a_uab_b in(-1, -2)) then otherdebt = -3;

/*******************************/
/* Add components ODEBT        */
/*******************************/

if (ccdebt >= 0) then odebtc = (odebtc + ccdebt);
if (studentloan >= 0) then odebtc = (odebtc + studentloan);
if (childstudentloan >= 0) then odebtc = (odebtc + childstudentloan);
if (owebusiness >= 0) then odebtc = (odebtc + owebusiness);
if (otherdebt >= 0) then odebtc = (odebtc + otherdebt);
if (ccdebt in(-1, -2, -3)) then odebtc = -3;
else if (studentloan in(-1, -2, -3)) then odebtc = -3;
else if (childstudentloan in(-1, -2, -3)) then odebtc = -3;
else if (owebusiness in(-1, -2, -3)) then odebtc = -3;
else if (otherdebt in(-1, -2, -3)) then odebtc = -3;

/****************************/
/* Compute BIZ              */
/****************************/

/************************************************/
/* BIZ Component - solebiz                      */
/************************************************/

if (q13_131_trunc >= 0) then solebiz = (solebiz + q13_131_trunc);
else if (q13_131_trunc = 1 & q13_131_ref_1 = 1 & q13_131_sr000001 < 0 & q13_131_sr000002 < 0
& q13_131_uab_a < 0 & q13_131_uab_c < 0) then solebiz = -1;
else if (q13_131_trunc in(-1, -2) & q13_131_sr000001 < 0 & q13_131_sr000002 < 0
& q13_131_uab_a < 0 & q13_131_uab_c < 0) then solebiz = q13_131_trunc;
    else if (q13_131_sr000001 >= 0 & q13_131_sr000002 >= 0 & q13_131_sr000002 = q13_131_sr000001) then
    solebiz = (solebiz + q13_131_sr000001);
     else if (q13_131_sr000001 >= 0 & q13_131_sr000002 >= 0 & q13_131_sr000002 > q13_131_sr000001) then
     solebiz = (solebiz + (((q13_131_sr000002 - q13_131_sr000001)/2) + q13_131_sr000001));
      else if (q13_131_sr000001 >= 0 & q13_131_sr000002 >= 0 & q13_131_sr000002 < q13_131_sr000001) then
      solebiz = (solebiz + (((q13_131_sr000001 - q13_131_sr000002)/2) + q13_131_sr000002));
       else if (q13_131_trunc in(-1, -2, -4) & q13_131_uab_c = 0) then solebiz = (solebiz + quartile3);
        else if (q13_131_trunc in(-1, -2, -4) & q13_131_uab_c = 1) then solebiz = (solebiz + 350000);
         else if (q13_131_uab_a in(-1, -2) | q13_131_uab_c in(-1, -2)) then solebiz = -3;

/********************************************************************************************************/
/* BIZ Components - farm_#_value, business_#_value, realestate_#_value & percentage ownership           */
/********************************************************************************************************/

if (q13_fjt_11_trunc_01 > -4) then farm_1_value1 = q13_fjt_11_trunc_01;
if (q13_fjt_11_trunc_02 > -4) then farm_2_value1 = q13_fjt_11_trunc_02;
if (q13_bppjt_11_trunc_01 > -4) then business_1_value1 = q13_bppjt_11_trunc_01;
if (q13_bppjt_11_trunc_02 > -4) then business_2_value1 = q13_bppjt_11_trunc_02;
if (q13_bppjt_11_trunc_03 > -4) then business_3_value1 = q13_bppjt_11_trunc_03;
if (q13_bppjt_11_trunc_04 > -4) then business_4_value1 = q13_bppjt_11_trunc_04;
if (q13_rejt_11_trunc_01 > -4) then realestate_1_value1 = q13_rejt_11_trunc_01;
if (q13_rejt_11_trunc_02 > -4) then realestate_2_value1 = q13_rejt_11_trunc_02;
if (q13_rejt_11_trunc_03 > -4) then realestate_3_value1 = q13_rejt_11_trunc_03;
if (q13_rejt_11_trunc_04 > -4) then realestate_4_value1 = q13_rejt_11_trunc_04;
if (q13_rejt_11_trunc_05 > -4) then realestate_5_value1 = q13_rejt_11_trunc_05;

if (q13_fjt_12b_01 > -4) then farm_1_pcntshare = q13_fjt_12b_01;
if (q13_fjt_12b_02 > -4) then farm_2_pcntshare = q13_fjt_12b_02;
if (q13_bppjt_12b_01 > -4) then business_1_pcntshare = q13_bppjt_12b_01;
if (q13_bppjt_12b_02 > -4) then business_2_pcntshare = q13_bppjt_12b_02;
if (q13_bppjt_12b_03 > -4) then business_3_pcntshare = q13_bppjt_12b_03;
if (q13_bppjt_12b_04 > -4) then business_4_pcntshare = q13_bppjt_12b_04;
if (q13_rejt_12b_01 > -4) then realestate_1_pcntshare = q13_rejt_12b_01;
if (q13_rejt_12b_02 > -4) then realestate_2_pcntshare = q13_rejt_12b_02;
if (q13_rejt_12b_03 > -4) then realestate_3_pcntshare = q13_rejt_12b_03;
if (q13_rejt_12b_04 > -4) then realestate_4_pcntshare = q13_rejt_12b_04;
if (q13_rejt_12b_05 > -4) then realestate_5_pcntshare = q13_rejt_12b_05;

if (farm_1_pcntshare > 0) then farm_1_pcntshare = (farm_1_pcntshare / 100);
if (farm_2_pcntshare > 0) then farm_2_pcntshare = (farm_2_pcntshare / 100);
if (business_1_pcntshare > 0) then business_1_pcntshare = (business_1_pcntshare / 100);
if (business_2_pcntshare > 0) then business_2_pcntshare = (business_2_pcntshare / 100);
if (business_3_pcntshare > 0) then business_3_pcntshare = (business_3_pcntshare / 100);
if (business_4_pcntshare > 0) then business_4_pcntshare = (business_4_pcntshare / 100);
if (realestate_1_pcntshare > 0) then realestate_1_pcntshare = (realestate_1_pcntshare / 100);
if (realestate_2_pcntshare > 0) then realestate_2_pcntshare = (realestate_2_pcntshare / 100);
if (realestate_3_pcntshare > 0) then realestate_3_pcntshare = (realestate_3_pcntshare / 100);
if (realestate_4_pcntshare > 0) then realestate_4_pcntshare = (realestate_4_pcntshare / 100);
if (realestate_5_pcntshare > 0) then realestate_5_pcntshare = (realestate_5_pcntshare / 100);

if (farm_1_value1 >= 0 & farm_1_pcntshare >= 0) then farm_1_value = (farm_1_value1 * farm_1_pcntshare);
if (farm_2_value1 >= 0 & farm_2_pcntshare >= 0) then farm_2_value = (farm_2_value1 * farm_2_pcntshare);
if (business_1_value1 >= 0 & business_1_pcntshare >= 0) then business_1_value = (business_1_value1 * business_1_pcntshare);
if (business_2_value1 >= 0 & business_2_pcntshare >= 0) then business_2_value = (business_2_value1 * business_2_pcntshare);
if (business_3_value1 >= 0 & business_3_pcntshare >= 0) then business_3_value = (business_3_value1 * business_3_pcntshare);
if (business_4_value1 >= 0 & business_4_pcntshare >= 0) then business_4_value = (business_4_value1 * business_4_pcntshare);
if (realestate_1_value1 >= 0 & realestate_1_pcntshare >= 0) then realestate_1_value = (realestate_1_value1 * realestate_1_pcntshare);
if (realestate_2_value1 >= 0 & realestate_2_pcntshare >= 0) then realestate_2_value = (realestate_2_value1 * realestate_2_pcntshare);
if (realestate_3_value1 >= 0 & realestate_3_pcntshare >= 0) then realestate_3_value = (realestate_3_value1 * realestate_3_pcntshare);
if (realestate_4_value1 >= 0 & realestate_4_pcntshare >= 0) then realestate_4_value = (realestate_4_value1 * realestate_4_pcntshare);
if (realestate_5_value1 >= 0 & realestate_5_pcntshare >= 0) then realestate_5_value = (realestate_5_value1 * realestate_5_pcntshare);

/*******************************/
/* Add components BIZ          */
/*******************************/

if (solebiz >= 0) then bizc = (bizc + solebiz);
if (farm_1_value >= 0) then bizc = (bizc + farm_1_value);
if (farm_2_value >= 0) then bizc = (bizc + farm_2_value);
if (business_1_value >= 0) then bizc = (bizc + business_1_value);
if (business_2_value >= 0) then bizc = (bizc + business_2_value);
if (business_3_value >= 0) then bizc = (bizc + business_3_value);
if (business_4_value >= 0) then bizc = (bizc + business_4_value);
if (realestate_1_value >= 0) then bizc = (bizc + realestate_1_value);
if (realestate_2_value >= 0) then bizc = (bizc + realestate_2_value);
if (realestate_3_value >= 0) then bizc = (bizc + realestate_3_value);
if (realestate_4_value >= 0) then bizc = (bizc + realestate_4_value);
if (realestate_5_value >= 0) then bizc = (bizc + realestate_5_value);

if (solebiz in(-1, -2, -3)) then bizc = -3;
if (farm_1_value in(-1, -2, -3) | farm_1_pcntshare in(-1, -2, -3)) then bizc = -3;
if (farm_2_value in(-1, -2, -3) | farm_2_pcntshare in(-1, -2, -3)) then bizc = -3;
if (business_1_value in(-1, -2, -3) | business_1_pcntshare in(-1, -2, -3)) then bizc = -3;
if (business_2_value in(-1, -2, -3) | business_2_pcntshare in(-1, -2, -3)) then bizc = -3;
if (business_3_value in(-1, -2, -3) | business_3_pcntshare in(-1, -2, -3)) then bizc = -3;
if (business_4_value in(-1, -2, -3) | business_4_pcntshare in(-1, -2, -3)) then bizc = -3;
if (realestate_1_value in(-1, -2, -3) | realestate_1_pcntshare in(-1, -2, -3)) then bizc = -3;
if (realestate_2_value in(-1, -2, -3) | realestate_2_pcntshare in(-1, -2, -3)) then bizc = -3;
if (realestate_3_value in(-1, -2, -3) | realestate_3_pcntshare in(-1, -2, -3)) then bizc = -3;
if (realestate_4_value in(-1, -2, -3) | realestate_4_pcntshare in(-1, -2, -3)) then bizc = -3;
if (realestate_5_value in(-1, -2, -3) | realestate_5_pcntshare in(-1, -2, -3)) then bizc = -3;

/****************************/
/* Compute BDEBT            */
/****************************/

/************************************************/
/* BDEBT Component - debtbiz                    */
/************************************************/

if (q13_132_trunc >= 0) then debtbiz = (debtbiz + q13_132_trunc);
else if (q13_132_trunc = 1 & q13_132_ref_1 = 1 & q13_132_sr000001 < 0 & q13_132_sr000002 < 0
& q13_132_uab_a < 0 & q13_132_uab_c < 0) then debtbiz = -1;
else if (q13_132_trunc in(-1, -2) & q13_132_sr000001 < 0 & q13_132_sr000002 < 0
& q13_132_uab_a < 0 & q13_132_uab_c < 0) then debtbiz = q13_132_trunc;
    else if (q13_132_sr000001 >= 0 & q13_132_sr000002 >= 0 & q13_132_sr000002 = q13_132_sr000001) then
    debtbiz = (debtbiz + q13_132_sr000001);
     else if (q13_132_sr000001 >= 0 & q13_132_sr000002 >= 0 & q13_132_sr000002 > q13_132_sr000001) then
     debtbiz = (debtbiz + (((q13_132_sr000002 - q13_132_sr000001)/2) + q13_132_sr000001));
      else if (q13_132_sr000001 >= 0 & q13_132_sr000002 >= 0 & q13_132_sr000002 < q13_132_sr000001) then
      debtbiz = (debtbiz + (((q13_132_sr000001 - q13_132_sr000002)/2) + q13_132_sr000002));
       else if (q13_132_trunc in(-1, -2, -4) & q13_132_uab_c = 0) then debtbiz = (debtbiz + quartile3);
        else if (q13_132_trunc in(-1, -2, -4) & q13_132_uab_c = 1) then debtbiz = (debtbiz + 190000);
         else if (q13_132_uab_a in(-1, -2) | q13_132_uab_c in(-1, -2)) then debtbiz = -3;

/***************************************************************************/
/* BDEBT Components - farm_#_debt, business_#_debt, realestate_#_debt      */
/*       (use ownership percentage computed above for bizc)                */
/***************************************************************************/

if (q13_fjt_12_01 > -4) then farm_1_debt1 = q13_fjt_12_01;
if (q13_fjt_12_02 > -4) then farm_2_debt1 = q13_fjt_12_02;
if (q13_bppjt_12_trunc_01 > -4) then business_1_debt1 = q13_bppjt_12_trunc_01;
if (q13_bppjt_12_trunc_02 > -4) then business_2_debt1 = q13_bppjt_12_trunc_02;
if (q13_bppjt_12_trunc_03 > -4) then business_3_debt1 = q13_bppjt_12_trunc_03;
if (q13_bppjt_12_trunc_04 > -4) then business_4_debt1 = q13_bppjt_12_trunc_04;
if (q13_rejt_12_trunc > -4) then realestate_1_debt1 = q13_rejt_12_trunc;

if (farm_1_debt1 >= 0 & farm_1_pcntshare >= 0) then farm_1_debt = (farm_1_debt1 * farm_1_pcntshare);
if (farm_2_debt1 >= 0 & farm_2_pcntshare >= 0) then farm_2_debt = (farm_2_debt1 * farm_2_pcntshare);
if (business_1_debt1 >= 0 & business_1_pcntshare >= 0) then business_1_debt = (business_1_debt1 * business_1_pcntshare);
if (business_2_debt1 >= 0 & business_2_pcntshare >= 0) then business_2_debt = (business_2_debt1 * business_2_pcntshare);
if (business_3_debt1 >= 0 & business_3_pcntshare >= 0) then business_3_debt = (business_3_debt1 * business_3_pcntshare);
if (business_4_debt1 >= 0 & business_4_pcntshare >= 0) then business_4_debt = (business_4_debt1 * business_4_pcntshare);
if (realestate_1_debt1 >= 0 & realestate_1_pcntshare >= 0) then realestate_1_debt = (realestate_1_debt1 * realestate_1_pcntshare);

/*******************************/
/* Add components BDEBT        */
/*******************************/

if (debtbiz >= 0) then bdebtc = (bdebtc + debtbiz);
if (farm_1_debt >= 0) then bdebtc = (bdebtc + farm_1_debt);
if (farm_2_debt >= 0) then bdebtc = (bdebtc + farm_2_debt);
if (business_1_debt >= 0) then bdebtc = (bdebtc + business_1_debt);
if (business_2_debt >= 0) then bdebtc = (bdebtc + business_2_debt);
if (business_3_debt >= 0) then bdebtc = (bdebtc + business_3_debt);
if (business_4_debt >= 0) then bdebtc = (bdebtc + business_4_debt);
if (realestate_1_debt >= 0) then bdebtc = (bdebtc + realestate_1_debt);

if (debtbiz in(-1, -2, -3)) then bdebtc = -3;
if (farm_1_debt in(-1, -2, -3) | farm_1_pcntshare in(-1, -2, -3)) then bdebtc = -3;
if (farm_2_debt in(-1, -2, -3) | farm_2_pcntshare in(-1, -2, -3)) then bdebtc = -3;
if (business_1_debt in(-1, -2, -3) | business_1_pcntshare in(-1, -2, -3)) then bdebtc = -3;
if (business_2_debt in(-1, -2, -3) | business_2_pcntshare in(-1, -2, -3)) then bdebtc = -3;
if (business_3_debt in(-1, -2, -3) | business_3_pcntshare in(-1, -2, -3)) then bdebtc = -3;
if (business_4_debt in(-1, -2, -3) | business_4_pcntshare in(-1, -2, -3)) then bdebtc = -3;
if (realestate_1_debt in(-1, -2, -3) | realestate_1_pcntshare in(-1, -2, -3)) then bdebtc = -3;

/****************************/
/* Compute CASH             */
/****************************/

/************************************************/
/* CASH Component - cash                        */
/************************************************/

if (fa_1 = 1 & fa_1a_trunc >= 0) then cashc = (cashc + fa_1a_trunc);
else if (fa_1 = 1 & fa_1_ref_1 = 1 & fa_1a_sr000001 < 0 & fa_1a_sr000002 < 0
& fa_1a_uab_a < 0 & fa_1a_uab_b < 0 & fa_1a_uab_c < 0) then cashc = -1;
else if (fa_1 = 1 & fa_1a_trunc in(-1, -2) & fa_1a_sr000001 < 0 & fa_1a_sr000002 < 0
& fa_1a_uab_a < 0 & fa_1a_uab_b < 0 & fa_1a_uab_c < 0) then cashc = fa_1a_trunc;
    else if (fa_1a_sr000001 >= 0 & fa_1a_sr000002 >= 0 & fa_1a_sr000002 = fa_1a_sr000001) then
    cashc = (cashc + fa_1a_sr000001);
     else if (fa_1a_sr000001 >= 0 & fa_1a_sr000002 >= 0 & fa_1a_sr000002 > fa_1a_sr000001) then
     cashc = (cashc + (((fa_1a_sr000002 - fa_1a_sr000001)/2) + fa_1a_sr000001));
      else if (fa_1a_sr000001 >= 0 & fa_1a_sr000002 >= 0 & fa_1a_sr000002 < fa_1a_sr000001) then
      cashc = (cashc + (((fa_1a_sr000001 - fa_1a_sr000002)/2) + fa_1a_sr000002));
       else if (fa_1a_trunc in(-1, -2, -4) & fa_1a_uab_b = 0) then cashc = (cashc + quartile1);
        else if (fa_1a_trunc in(-1, -2, -4) & fa_1a_uab_b = 1) then cashc = (cashc + quartile2);
         else if (fa_1a_trunc in(-1, -2, -4) & fa_1a_uab_c = 0) then cashc = (cashc + quartile3);
          else if (fa_1a_trunc in(-1, -2, -4) & fa_1a_uab_c = 1) then cashc = (cashc + 90000);
           else if (fa_1a_uab_a in(-1, -2) | fa_1a_uab_b in(-1, -2) | fa_1a_uab_c in(-1, -2)) then cashc = -3;

/*************************************************************/
/* No need to add components for CASHC - set -3 missing      */
/*************************************************************/

if (cashc in(-1, -2, -3)) then cashc = -3;

/****************************/
/* Compute CDS              */
/****************************/

/************************************************/
/* CDS Component - cds                          */
/************************************************/

if (fa_2 = 1 & fa_2a_trunc >= 0) then cdsc = (cdsc + fa_2a_trunc);
else if (fa_2 = 1 & fa_2_ref_1 = 1 & fa_2a_sr000001 < 0 & fa_2a_sr000002 < 0
& fa_2a_uab_a < 0 & fa_2a_uab_b < 0 & fa_2a_uab_c < 0) then cdsc = -1;
else if (fa_2 = 1 & fa_2a_trunc in(-1, -2) & fa_2a_sr000001 < 0 & fa_2a_sr000002 < 0
& fa_2a_uab_a < 0 & fa_2a_uab_b < 0 & fa_2a_uab_c < 0) then cdsc = fa_2a_trunc;
    else if (fa_2a_sr000001 >= 0 & fa_2a_sr000002 >= 0 & fa_2a_sr000002 = fa_2a_sr000001) then
    cdsc = (cdsc + fa_2a_sr000001);
     else if (fa_2a_sr000001 >= 0 & fa_2a_sr000002 >= 0 & fa_2a_sr000002 > fa_2a_sr000001) then
     cdsc = (cdsc + (((fa_2a_sr000002 - fa_2a_sr000001)/2) + fa_2a_sr000001));
      else if (fa_2a_sr000001 >= 0 & fa_2a_sr000002 >= 0 & fa_2a_sr000002 < fa_2a_sr000001) then
      cdsc = (cdsc + (((fa_2a_sr000001 - fa_2a_sr000002)/2) + fa_2a_sr000002));
       else if (fa_2a_trunc in(-1, -2, -4) & fa_2a_uab_b = 0) then cdsc = (cdsc + quartile1);
        else if (fa_2a_trunc in(-1, -2, -4) & fa_2a_uab_b = 1) then cdsc = (cdsc + quartile2);
         else if (fa_2a_trunc in(-1, -2, -4) & fa_2a_uab_c = 0) then cdsc = (cdsc + quartile3);
          else if (fa_2a_trunc in(-1, -2, -4) & fa_2a_uab_c = 1) then cdsc = (cdsc + 92500);
           else if (fa_2a_uab_a in(-1, -2) | fa_2a_uab_b in(-1, -2) | fa_2a_uab_c in(-1, -2)) then cdsc = -3;

/*************************************************************/
/* No need to add components for CDSC - set -3 missing       */
/*************************************************************/

if (cdsc in(-1, -2, -3)) then cdsc = -3;

/****************************/
/* Compute STOCK            */
/****************************/

/************************************************/
/* STOCK Component - govbonds                   */
/************************************************/

if (fa_3 = 1 & fa_3a_trunc >= 0) then govbonds = (govbonds + fa_3a_trunc);
else if (fa_3 = 1 & fa_3_ref_1 = 1 & fa_3a_sr000001 < 0 & fa_3a_sr000002 < 0
& fa_3a_uab_a < 0 & fa_3a_uab_b < 0 & fa_3a_uab_c < 0) then govbonds = -1;
else if (fa_3 = 1 & fa_3a_trunc in(-1, -2) & fa_3a_sr000001 < 0 & fa_3a_sr000002 < 0
& fa_3a_uab_a < 0 & fa_3a_uab_b < 0 & fa_3a_uab_c < 0) then govbonds = fa_3a_trunc;
    else if (fa_3a_sr000001 >= 0 & fa_3a_sr000002 >= 0 & fa_3a_sr000002 = fa_3a_sr000001) then
    govbonds = (govbonds + fa_3a_sr000001);
     else if (fa_3a_sr000001 >= 0 & fa_3a_sr000002 >= 0 & fa_3a_sr000002 > fa_3a_sr000001) then
     govbonds = (govbonds + (((fa_3a_sr000002 - fa_3a_sr000001)/2) + fa_3a_sr000001));
      else if (fa_3a_sr000001 >= 0 & fa_3a_sr000002 >= 0 & fa_3a_sr000002 < fa_3a_sr000001) then
      govbonds = (govbonds + (((fa_3a_sr000001 - fa_3a_sr000002)/2) + fa_3a_sr000002));
       else if (fa_3a_trunc in(-1, -2, -4) & fa_3a_uab_b = 0) then govbonds = (govbonds + quartile1);
        else if (fa_3a_trunc in(-1, -2, -4) & fa_3a_uab_b = 1) then govbonds = (govbonds + quartile2);
         else if (fa_3a_trunc in(-1, -2, -4) & fa_3a_uab_c = 0) then govbonds = (govbonds + quartile3);
          else if (fa_3a_trunc in(-1, -2, -4) & fa_3a_uab_c = 1) then govbonds = (govbonds + 60000);
           else if (fa_3a_uab_a in(-1, -2) | fa_3a_uab_b in(-1, -2) | fa_3a_uab_c in(-1, -2)) then govbonds = -3;

/************************************************/
/* STOCK Component - mutual                     */
/************************************************/

if (fa_4 = 1 & fa_4a_trunc >= 0) then mutual = (mutual + fa_4a_trunc);
else if (fa_4 = 1 & fa_4_ref_1 = 1 & fa_4a_sr000001 < 0 & fa_4a_sr000002 < 0
& fa_4a_uab_a < 0 & fa_4a_uab_b < 0 & fa_4a_uab_c < 0) then mutual = -1;
else if (fa_4 = 1 & fa_4a_trunc in(-1, -2) & fa_4a_sr000001 < 0 & fa_4a_sr000002 < 0
& fa_4a_uab_a < 0 & fa_4a_uab_b < 0 & fa_4a_uab_c < 0) then mutual = fa_4a_trunc;
    else if (fa_4a_sr000001 >= 0 & fa_4a_sr000002 >= 0 & fa_4a_sr000002 = fa_4a_sr000001) then
    mutual = (mutual + fa_4a_sr000001);
     else if (fa_4a_sr000001 >= 0 & fa_4a_sr000002 >= 0 & fa_4a_sr000002 > fa_4a_sr000001) then
     mutual = (mutual + (((fa_4a_sr000002 - fa_4a_sr000001)/2) + fa_4a_sr000001));
      else if (fa_4a_sr000001 >= 0 & fa_4a_sr000002 >= 0 & fa_4a_sr000002 < fa_4a_sr000001) then
      mutual = (mutual + (((fa_4a_sr000001 - fa_4a_sr000002)/2) + fa_4a_sr000002));
       else if (fa_4a_trunc in(-1, -2, -4) & fa_4a_uab_b = 0) then mutual = (mutual + quartile1);
        else if (fa_4a_trunc in(-1, -2, -4) & fa_4a_uab_b = 1) then mutual = (mutual + quartile2);
         else if (fa_4a_trunc in(-1, -2, -4) & fa_4a_uab_c = 0) then mutual = (mutual + quartile3);
          else if (fa_4a_trunc in(-1, -2, -4) & fa_4a_uab_c = 1) then mutual = (mutual + 180000);
           else if (fa_4a_uab_a in(-1, -2) | fa_4a_uab_b in(-1, -2) | fa_4a_uab_c in(-1, -2)) then mutual = -3;

/************************************************/
/* STOCK Component - lifeinsure                 */
/************************************************/

if (fa_5 = 1 & fa_5a_trunc >= 0) then lifeinsure = (lifeinsure + fa_5a_trunc);
else if (fa_5 = 1 & fa_5_ref_1 = 1 & fa_5a_sr000001 < 0 & fa_5a_sr000002 < 0
& fa_5a_uab_a < 0 & fa_5a_uab_b < 0 & fa_5a_uab_c < 0) then lifeinsure = -1;
else if (fa_5 = 1 & fa_5a_trunc in(-1, -2) & fa_5a_sr000001 < 0 & fa_5a_sr000002 < 0
& fa_5a_uab_a < 0 & fa_5a_uab_b < 0 & fa_5a_uab_c < 0) then lifeinsure = fa_5a_trunc;
    else if (fa_5a_sr000001 >= 0 & fa_5a_sr000002 >= 0 & fa_5a_sr000002 = fa_5a_sr000001) then
    lifeinsure = (lifeinsure + fa_5a_sr000001);
     else if (fa_5a_sr000001 >= 0 & fa_5a_sr000002 >= 0 & fa_5a_sr000002 > fa_5a_sr000001) then
     lifeinsure = (lifeinsure + (((fa_5a_sr000002 - fa_5a_sr000001)/2) + fa_5a_sr000001));
      else if (fa_5a_sr000001 >= 0 & fa_5a_sr000002 >= 0 & fa_5a_sr000002 < fa_5a_sr000001) then
      lifeinsure = (lifeinsure + (((fa_5a_sr000001 - fa_5a_sr000002)/2) + fa_5a_sr000002));
       else if (fa_5a_trunc in(-1, -2, -4) & fa_5a_uab_b = 0) then lifeinsure = (lifeinsure + quartile1);
        else if (fa_5a_trunc in(-1, -2, -4) & fa_5a_uab_b = 1) then lifeinsure = (lifeinsure + quartile2);
         else if (fa_5a_trunc in(-1, -2, -4) & fa_5a_uab_c = 0) then lifeinsure = (lifeinsure + quartile3);
          else if (fa_5a_trunc in(-1, -2, -4) & fa_5a_uab_c = 1) then lifeinsure = (lifeinsure + 100000);
           else if (fa_5a_uab_a in(-1, -2) | fa_5a_uab_b in(-1, -2) | fa_5a_uab_c in(-1, -2)) then lifeinsure = -3;

/************************************************/
/* STOCK Component - shares                     */
/************************************************/

if (fa_9 = 1 & fa_9a_trunc >= 0) then shares = (shares + fa_9a_trunc);
else if (fa_9 = 1 & fa_9_ref_1 = 1 & fa_9a_sr000001_trunc < 0 & fa_9a_sr000002 < 0
& fa_9a_uab_a < 0 & fa_9a_uab_b < 0 & fa_9a_uab_c < 0) then shares = -1;
else if (fa_9 = 1 & fa_9a_trunc in(-1, -2) & fa_9a_sr000001_trunc < 0 & fa_9a_sr000002 < 0
& fa_9a_uab_a < 0 & fa_9a_uab_b < 0 & fa_9a_uab_c < 0) then shares = fa_9a_trunc;
    else if (fa_9a_sr000001_trunc >= 0 & fa_9a_sr000002 >= 0 & fa_9a_sr000002 = fa_9a_sr000001_trunc) then
    shares = (shares + fa_9a_sr000001_trunc);
     else if (fa_9a_sr000001_trunc >= 0 & fa_9a_sr000002 >= 0 & fa_9a_sr000002 > fa_9a_sr000001_trunc) then
     shares = (shares + (((fa_9a_sr000002 - fa_9a_sr000001_trunc)/2) + fa_9a_sr000001_trunc));
      else if (fa_9a_sr000001_trunc >= 0 & fa_9a_sr000002 >= 0 & fa_9a_sr000002 < fa_9a_sr000001_trunc) then
      shares = (shares + (((fa_9a_sr000001_trunc - fa_9a_sr000002)/2) + fa_9a_sr000002));
       else if (fa_9a_trunc in(-1, -2, -4) & fa_9a_uab_b = 0) then shares = (shares + quartile1);
        else if (fa_9a_trunc in(-1, -2, -4) & fa_9a_uab_b = 1) then shares = (shares + quartile2);
         else if (fa_9a_trunc in(-1, -2, -4) & fa_9a_uab_c = 0) then shares = (shares + quartile3);
          else if (fa_9a_trunc in(-1, -2, -4) & fa_9a_uab_c = 1) then shares = (shares + 150000);
           else if (fa_9a_uab_a in(-1, -2) | fa_9a_uab_b in(-1, -2) | fa_9a_uab_c in(-1, -2)) then shares = -3;

/************************************************/
/* STOCK Component - corpbond                   */
/************************************************/

if (fa_10 = 1 & fa_10a_trunc >= 0) then corpbond = (corpbond + fa_10a_trunc);
else if (fa_10 = 1 & fa_10_ref_1 = 1 & fa_10a_sr000001 < 0 & fa_10a_sr000002 < 0
& fa_10a_uab_a < 0 & fa_10a_uab_b < 0 & fa_10a_uab_c < 0) then corpbond = -1;
else if (fa_10 = 1 & fa_10a_trunc in(-1, -2) & fa_10a_sr000001 < 0 & fa_10a_sr000002 < 0
& fa_10a_uab_a < 0 & fa_10a_uab_b < 0 & fa_10a_uab_c < 0) then corpbond = fa_10a_trunc;
    else if (fa_10a_sr000001 >= 0 & fa_10a_sr000002 >= 0 & fa_10a_sr000002 = fa_10a_sr000001) then
    corpbond = (corpbond + fa_10a_sr000001);
     else if (fa_10a_sr000001 >= 0 & fa_10a_sr000002 >= 0 & fa_10a_sr000002 > fa_10a_sr000001) then
     corpbond = (corpbond + (((fa_10a_sr000002 - fa_10a_sr000001)/2) + fa_10a_sr000001));
      else if (fa_10a_sr000001 >= 0 & fa_10a_sr000002 >= 0 & fa_10a_sr000002 < fa_10a_sr000001) then
      corpbond = (corpbond + (((fa_10a_sr000001 - fa_10a_sr000002)/2) + fa_10a_sr000002));
       else if (fa_10a_trunc in(-1, -2, -4) & fa_10a_uab_b = 0) then corpbond = (corpbond + quartile1);
        else if (fa_10a_trunc in(-1, -2, -4) & fa_10a_uab_b = 1) then corpbond = (corpbond + quartile2);
         else if (fa_10a_trunc in(-1, -2, -4) & fa_10a_uab_c = 0) then corpbond = (corpbond + quartile3);
          else if (fa_10a_trunc in(-1, -2, -4) & fa_10a_uab_c = 1) then corpbond = (corpbond + 175000);
           else if (fa_10a_uab_a in(-1, -2) | fa_10a_uab_b in(-1, -2) | fa_10a_uab_c in(-1, -2)) then corpbond = -3;

/************************************************/
/* STOCK Component - moneyowedtor               */
/************************************************/

if (fa_11 = 1 & fa_11a >= 0) then moneyowedtor = (moneyowedtor + fa_11a);
else if (fa_11 = 1 & fa_11_ref_1 = 1 & fa_11a_sr000001 < 0 & fa_11a_sr000002 < 0
& fa_11a_uab_a < 0 & fa_11a_uab_b < 0 & fa_11a_uab_c < 0) then moneyowedtor = -1;
else if (fa_11 = 1 & fa_11a in(-1, -2) & fa_11a_sr000001 < 0 & fa_11a_sr000002 < 0
& fa_11a_uab_a < 0 & fa_11a_uab_b < 0 & fa_11a_uab_c < 0) then moneyowedtor = fa_11a;
    else if (fa_11a_sr000001 >= 0 & fa_11a_sr000002 >= 0 & fa_11a_sr000002 = fa_11a_sr000001) then
    moneyowedtor = (moneyowedtor + fa_11a_sr000001);
     else if (fa_11a_sr000001 >= 0 & fa_11a_sr000002 >= 0 & fa_11a_sr000002 > fa_11a_sr000001) then
     moneyowedtor = (moneyowedtor + (((fa_11a_sr000002 - fa_11a_sr000001)/2) + fa_11a_sr000001));
      else if (fa_11a_sr000001 >= 0 & fa_11a_sr000002 >= 0 & fa_11a_sr000002 < fa_11a_sr000001) then
      moneyowedtor = (moneyowedtor + (((fa_11a_sr000001 - fa_11a_sr000002)/2) + fa_11a_sr000002));
       else if (fa_11a in(-1, -2, -4) & fa_11a_uab_b = 0) then moneyowedtor = (moneyowedtor + quartile1);
        else if (fa_11a in(-1, -2, -4) & fa_11a_uab_b = 1) then moneyowedtor = (moneyowedtor + quartile2);
         else if (fa_11a in(-1, -2, -4) & fa_11a_uab_c = 0) then moneyowedtor = (moneyowedtor + quartile3);
          else if (fa_11a in(-1, -2, -4) & fa_11a_uab_c = 1) then moneyowedtor = (moneyowedtor + 67000);
           else if (fa_11a_uab_a in(-1, -2) | fa_11a_uab_b in(-1, -2) | fa_11a_uab_c in(-1, -2)) then moneyowedtor = -3;

/*******************************/
/* Add components STOCK        */
/*******************************/

if (govbonds >= 0) then stockc = (stockc + govbonds);
if (mutual >= 0) then stockc = (stockc + mutual);
if (lifeinsure >= 0) then stockc = (stockc + lifeinsure);
if (shares >= 0) then stockc = (stockc + shares);
if (corpbond >= 0) then stockc = (stockc + corpbond);
if (moneyowedtor >= 0) then stockc = (stockc + moneyowedtor);
if (govbonds in(-1, -2, -3)) then stockc = -3;
else if (mutual in(-1, -2, -3)) then stockc = -3;
else if (lifeinsure in(-1, -2, -3)) then stockc = -3;
else if (shares in(-1, -2, -3)) then stockc = -3;
else if (corpbond in(-1, -2, -3)) then stockc = -3;
else if (moneyowedtor in(-1, -2, -3)) then stockc = -3;

/****************************/
/* Compute HOME             */
/****************************/

/************************************************/
/* HOME Component - home1                       */
/************************************************/

if (nfa_1 = 1 & nfa_1a_trunc >= 0) then home1 = (home1 + nfa_1a_trunc);
else if (nfa_1 = 1 & nfa_1_ref_1 = 1 & nfa_1a_sr000001_trunc < 0 & nfa_1a_sr000002 < 0
& nfa_1a_uab_a < 0 & nfa_1a_uab_b < 0 & nfa_1a_uab_c < 0) then home1 = -1;
else if (nfa_1 = 1 & nfa_1a_trunc in(-1, -2) & nfa_1a_sr000001_trunc < 0 & nfa_1a_sr000002 < 0
& nfa_1a_uab_a < 0 & nfa_1a_uab_b < 0 & nfa_1a_uab_c < 0) then home1 = nfa_1a_trunc;
    else if (nfa_1a_sr000001_trunc >= 0 & nfa_1a_sr000002 >= 0 & nfa_1a_sr000002 = nfa_1a_sr000001_trunc) then
    home1 = (home1 + nfa_1a_sr000001_trunc);
     else if (nfa_1a_sr000001_trunc >= 0 & nfa_1a_sr000002 >= 0 & nfa_1a_sr000002 > nfa_1a_sr000001_trunc) then
     home1 = (home1 + (((nfa_1a_sr000002 - nfa_1a_sr000001_trunc)/2) + nfa_1a_sr000001_trunc));
      else if (nfa_1a_sr000001_trunc >= 0 & nfa_1a_sr000002 >= 0 & nfa_1a_sr000002 < nfa_1a_sr000001_trunc) then
      home1 = (home1 + (((nfa_1a_sr000001_trunc - nfa_1a_sr000002)/2) + nfa_1a_sr000002));
       else if (nfa_1a_trunc in(-1, -2, -4) & nfa_1a_uab_b = 0) then home1 = (home1 + quartile1);
        else if (nfa_1a_trunc in(-1, -2, -4) & nfa_1a_uab_b = 1) then home1 = (home1 + quartile2);
         else if (nfa_1a_trunc in(-1, -2, -4) & nfa_1a_uab_c = 0) then home1 = (home1 + quartile3);
          else if (nfa_1a_trunc in(-1, -2, -4) & nfa_1a_uab_c = 1) then home1 = (home1 + 200000);
           else if (nfa_1a_uab_a in(-1, -2) | nfa_1a_uab_b in(-1, -2) | nfa_1a_uab_c in(-1, -2)) then home1 = -3;

/************************************************/
/* HOME Component - secondhome                  */
/************************************************/

if (nfa_2 = 1 & nfa_2a_trunc >= 0) then secondhome = (secondhome + nfa_2a_trunc);
else if (nfa_2 = 1 & nfa_2_ref_1 = 1 & nfa_2a_sr000001 < 0 & nfa_2a_sr000002 < 0
& nfa_2a_uab_a < 0 & nfa_2a_uab_b < 0 & nfa_2a_uab_c < 0) then secondhome = -1;
else if (nfa_2 = 1 & nfa_2a_trunc in(-1, -2) & nfa_2a_sr000001 < 0 & nfa_2a_sr000002 < 0
& nfa_2a_uab_a < 0 & nfa_2a_uab_b < 0 & nfa_2a_uab_c < 0) then secondhome = nfa_2a_trunc;
    else if (nfa_2a_sr000001 >= 0 & nfa_2a_sr000002 >= 0 & nfa_2a_sr000002 = nfa_2a_sr000001) then
    secondhome = (secondhome + nfa_2a_sr000001);
     else if (nfa_2a_sr000001 >= 0 & nfa_2a_sr000002 >= 0 & nfa_2a_sr000002 > nfa_2a_sr000001) then
     secondhome = (secondhome + (((nfa_2a_sr000002 - nfa_2a_sr000001)/2) + nfa_2a_sr000001));
      else if (nfa_2a_sr000001 >= 0 & nfa_2a_sr000002 >= 0 & nfa_2a_sr000002 < nfa_2a_sr000001) then
      secondhome = (secondhome + (((nfa_2a_sr000001 - nfa_2a_sr000002)/2) + nfa_2a_sr000002));
       else if (nfa_2a_trunc in(-1, -2, -4) & nfa_2a_uab_b = 0) then secondhome = (secondhome + quartile1);
        else if (nfa_2a_trunc in(-1, -2, -4) & nfa_2a_uab_b = 1) then secondhome = (secondhome + quartile2);
         else if (nfa_2a_trunc in(-1, -2, -4) & nfa_2a_uab_c = 0) then secondhome = (secondhome + quartile3);
          else if (nfa_2a_trunc in(-1, -2, -4) & nfa_2a_uab_c = 1) then secondhome = (secondhome + 175000);
           else if (nfa_2a_uab_a in(-1, -2) | nfa_2a_uab_b in(-1, -2) | nfa_2a_uab_c in(-1, -2)) then secondhome = -3;

/*******************************/
/* Add components HOME         */
/*******************************/

if (home1 >= 0) then homec = (homec + home1);
if (secondhome >= 0) then homec = (homec + secondhome);
if (home1 in(-1, -2, -3)) then homec = -3;
else if (secondhome in(-1, -2, -3)) then homec = -3;

/****************************/
/* Compute MORT             */
/****************************/

/************************************************/
/* MORT Component - mort1                       */
/************************************************/

if (nfa_1b_trunc >= 0) then mort1 = (mort1 + nfa_1b_trunc);
else if (nfa_1b_ref_1 = 1 & nfa_1b_sr000001 < 0 & nfa_1b_sr000002 < 0
& nfa_1b_uab_a < 0 & nfa_1b_uab_b < 0 & nfa_1b_uab_c < 0) then mort1 = -1;
else if (nfa_1b_trunc in(-1, -2) & nfa_1b_sr000001 < 0 & nfa_1b_sr000002 < 0
& nfa_1b_uab_a < 0 & nfa_1b_uab_b < 0 & nfa_1b_uab_c < 0) then mort1 = nfa_1b_trunc;
    else if (nfa_1b_sr000001 >= 0 & nfa_1b_sr000002 >= 0 & nfa_1b_sr000002 = nfa_1b_sr000001) then
    mort1 = (mort1 + nfa_1b_sr000001);
     else if (nfa_1b_sr000001 >= 0 & nfa_1b_sr000002 >= 0 & nfa_1b_sr000002 > nfa_1b_sr000001) then
     mort1 = (mort1 + (((nfa_1b_sr000002 - nfa_1b_sr000001)/2) + nfa_1b_sr000001));
      else if (nfa_1b_sr000001 >= 0 & nfa_1b_sr000002 >= 0 & nfa_1b_sr000002 < nfa_1b_sr000001) then
      mort1 = (mort1 + (((nfa_1b_sr000001 - nfa_1b_sr000002)/2) + nfa_1b_sr000002));
       else if (nfa_1b_trunc in(-1, -2, -4) & nfa_1b_uab_b = 0) then mort1 = (mort1 + quartile1);
        else if (nfa_1b_trunc in(-1, -2, -4) & nfa_1b_uab_b = 1) then mort1 = (mort1 + quartile2);
         else if (nfa_1b_trunc in(-1, -2, -4) & nfa_1b_uab_c = 0) then mort1 = (mort1 + quartile3);
          else if (nfa_1b_trunc in(-1, -2, -4) & nfa_1b_uab_c = 1) then mort1 = (mort1 + 115000);
           else if (nfa_1b_uab_a in(-1, -2) | nfa_1b_uab_b in(-1, -2) | nfa_1b_uab_c in(-1, -2)) then mort1 = -3;

/************************************************/
/* MORT Component - secondmort                  */
/************************************************/

if (nfa_2b_trunc >= 0) then secondmort = (secondmort + nfa_2b_trunc);
else if (nfa_2b_ref_1 = 1 & nfa_2b_sr000001 < 0 & nfa_2b_sr000002 < 0
& nfa_2b_uab_a < 0 & nfa_2b_uab_b < 0 & nfa_2b_uab_c < 0) then secondmort = -1;
else if (nfa_2b_trunc in(-1, -2) & nfa_2b_sr000001 < 0 & nfa_2b_sr000002 < 0
& nfa_2b_uab_a < 0 & nfa_2b_uab_b < 0 & nfa_2b_uab_c < 0) then secondmort = nfa_2b_trunc;
    else if (nfa_2b_sr000001 >= 0 & nfa_2b_sr000002 >= 0 & nfa_2b_sr000002 = nfa_2b_sr000001) then
    secondmort = (secondmort + nfa_2b_sr000001);
     else if (nfa_2b_sr000001 >= 0 & nfa_2b_sr000002 >= 0 & nfa_2b_sr000002 > nfa_2b_sr000001) then
     secondmort = (secondmort + (((nfa_2b_sr000002 - nfa_2b_sr000001)/2) + nfa_2b_sr000001));
      else if (nfa_2b_sr000001 >= 0 & nfa_2b_sr000002 >= 0 & nfa_2b_sr000002 < nfa_2b_sr000001) then
      secondmort = (secondmort + (((nfa_2b_sr000001 - nfa_2b_sr000002)/2) + nfa_2b_sr000002));
       else if (nfa_2b_trunc in(-1, -2, -4) & nfa_2b_uab_b = 0) then secondmort = (secondmort + quartile1);
        else if (nfa_2b_trunc in(-1, -2, -4) & nfa_2b_uab_b = 1) then secondmort = (secondmort + quartile2);
         else if (nfa_2b_trunc in(-1, -2, -4) & nfa_2b_uab_c = 0) then secondmort = (secondmort + quartile3);
          else if (nfa_2b_trunc in(-1, -2, -4) & nfa_2b_uab_c = 1) then secondmort = (secondmort + 130000);
           else if (nfa_2b_uab_a in(-1, -2) | nfa_2b_uab_b in(-1, -2) | nfa_2b_uab_c in(-1, -2)) then secondmort = -3;

/*******************************/
/* Add components MORT         */
/*******************************/

if (mort1 >= 0) then mortc = (mortc + mort1);
if (secondmort >= 0) then mortc = (mortc + secondmort);
if (mort1 in(-1, -2, -3)) then mortc = -3;
else if (secondmort in(-1, -2, -3)) then mortc = -3;

/****************************/
/* Compute PDEBT            */
/****************************/

/************************************************/
/* PDEBT Component - pdebt1                     */
/************************************************/

if (nfa_1c >= 0) then pdebt1 = (pdebt1 + nfa_1c);
else if (nfa_1c_ref_1 = 1 & nfa_1c_sr000001 < 0 & nfa_1c_sr000002 < 0
& nfa_1c_uab_a < 0 & nfa_1c_uab_b < 0 & nfa_1c_uab_c < 0) then pdebt1 = -1;
else if (nfa_1c in(-1, -2) & nfa_1c_sr000001 < 0 & nfa_1c_sr000002 < 0
& nfa_1c_uab_a < 0 & nfa_1c_uab_b < 0 & nfa_1c_uab_c < 0) then pdebt1 = nfa_1c;
    else if (nfa_1c_sr000001 >= 0 & nfa_1c_sr000002 >= 0 & nfa_1c_sr000002 = nfa_1c_sr000001) then
    pdebt1 = (pdebt1 + nfa_1c_sr000001);
     else if (nfa_1c_sr000001 >= 0 & nfa_1c_sr000002 >= 0 & nfa_1c_sr000002 > nfa_1c_sr000001) then
     pdebt1 = (pdebt1 + (((nfa_1c_sr000002 - nfa_1c_sr000001)/2) + nfa_1c_sr000001));
      else if (nfa_1c_sr000001 >= 0 & nfa_1c_sr000002 >= 0 & nfa_1c_sr000002 < nfa_1c_sr000001) then
      pdebt1 = (pdebt1 + (((nfa_1c_sr000001 - nfa_1c_sr000002)/2) + nfa_1c_sr000002));
       else if (nfa_1c in(-1, -2, -4) & nfa_1c_uab_b = 0) then pdebt1 = (pdebt1 + quartile1);
        else if (nfa_1c in(-1, -2, -4) & nfa_1c_uab_b = 1) then pdebt1 = (pdebt1 + quartile2);
         else if (nfa_1c in(-1, -2, -4) & nfa_1c_uab_c = 0) then pdebt1 = (pdebt1 + quartile3);
          else if (nfa_1c in(-1, -2, -4) & nfa_1c_uab_c = 1) then pdebt1 = (pdebt1 + 51000);
           else if (nfa_1c_uab_a in(-1, -2) | nfa_1c_uab_b in(-1, -2) | nfa_1c_uab_c in(-1, -2)) then pdebt1 = -3;

/************************************************/
/* PDEBT Component - secondpdebt                */
/************************************************/

if (nfa_2c >= 0) then secondpdebt = (secondpdebt + nfa_2c);
else if (nfa_2c_ref_1 = 1 & nfa_2c_sr000001 < 0 & nfa_2c_sr000002 < 0 & nfa_2c_uab_a < 0) then secondpdebt = -1;
else if (nfa_2c in(-1, -2) & nfa_2c_sr000001 < 0 & nfa_2c_sr000002 < 0 & nfa_2c_uab_a < 0) then secondpdebt = nfa_2c;
    else if (nfa_2c_sr000001 >= 0 & nfa_2c_sr000002 >= 0 & nfa_2c_sr000002 = nfa_2c_sr000001) then
    secondpdebt = (secondpdebt + nfa_2c_sr000001);
     else if (nfa_2c_sr000001 >= 0 & nfa_2c_sr000002 >= 0 & nfa_2c_sr000002 > nfa_2c_sr000001) then
     secondpdebt = (secondpdebt + (((nfa_2c_sr000002 - nfa_2c_sr000001)/2) + nfa_2c_sr000001));
      else if (nfa_2c_sr000001 >= 0 & nfa_2c_sr000002 >= 0 & nfa_2c_sr000002 < nfa_2c_sr000001) then
      secondpdebt = (secondpdebt + (((nfa_2c_sr000001 - nfa_2c_sr000002)/2) + nfa_2c_sr000002));
       else if (nfa_2c_uab_a in(-1, -2)) then secondpdebt = -3;

/*******************************/
/* Add components PDEBT        */
/*******************************/

if (pdebt1 >= 0) then pdebtc = (pdebtc + pdebt1);
if (secondpdebt >= 0) then pdebtc = (pdebtc + secondpdebt);
if (pdebt1 in(-1, -2, -3)) then pdebtc = -3;
else if (secondpdebt in(-1, -2, -3)) then pdebtc = -3;

/****************************/
/* Compute IRA              */
/****************************/

/************************************************/
/* IRA Component - ira1                         */
/************************************************/

if (fa_8 = 1 & fa_8d_trunc_01 >= 0) then ira1 = (ira1 + fa_8d_trunc_01);
else if (fa_8 = 1 & fa_8d_trunc_01 in(-1, -2) & fa_8d_sr000001_01 < 0 & fa_8d_sr000002_trunc_01 < 0
& fa_8d_uab_a_01 < 0 & fa_8d_uab_b_01 < 0 & fa_8d_uab_c_01 < 0) then ira1 = fa_8d_trunc_01;
    else if (fa_8d_sr000001_01 >= 0 & fa_8d_sr000002_trunc_01 >= 0 & fa_8d_sr000002_trunc_01 = fa_8d_sr000001_01) then
    ira1 = (ira1 + fa_8d_sr000001_01);
     else if (fa_8d_sr000001_01 >= 0 & fa_8d_sr000002_trunc_01 >= 0 & fa_8d_sr000002_trunc_01 > fa_8d_sr000001_01) then
     ira1 = (ira1 + (((fa_8d_sr000002_trunc_01 - fa_8d_sr000001_01)/2) + fa_8d_sr000001_01));
      else if (fa_8d_sr000001_01 >= 0 & fa_8d_sr000002_trunc_01 >= 0 & fa_8d_sr000002_trunc_01 < fa_8d_sr000001_01) then
      ira1 = (ira1 + (((fa_8d_sr000001_01 - fa_8d_sr000002_trunc_01)/2) + fa_8d_sr000002_trunc_01));
       else if (fa_8d_trunc_01 in(-1, -2, -4) & fa_8d_uab_b_01 = 0) then ira1 = (ira1 + quartile1);
        else if (fa_8d_trunc_01 in(-1, -2, -4) & fa_8d_uab_b_01 = 1) then ira1 = (ira1 + quartile2);
         else if (fa_8d_trunc_01 in(-1, -2, -4) & fa_8d_uab_c_01 = 0) then ira1 = (ira1 + quartile3);
          else if (fa_8d_trunc_01 in(-1, -2, -4) & fa_8d_uab_c_01 = 1) then ira1 = (ira1 + 120000);
           else if (fa_8d_uab_a_01 in(-1, -2) | fa_8d_uab_b_01 in(-1, -2) | fa_8d_uab_c_01 in(-1, -2)) then ira1 = -3;

/************************************************/
/* IRA Component - ira2                         */
/************************************************/

if (fa_8 = 1 & fa_8d_trunc_02 >= 0) then ira2 = (ira2 + fa_8d_trunc_02);
else if (fa_8 = 1 & fa_8d_trunc_02 in(-1, -2) & fa_8d_sr000001_02 < 0 & fa_8d_sr000002_trunc_02 < 0
& fa_8d_uab_a_02 < 0 & fa_8d_uab_c_02 < 0) then ira2 = fa_8d_trunc_02;
    else if (fa_8d_sr000001_02 >= 0 & fa_8d_sr000002_trunc_02 >= 0 & fa_8d_sr000002_trunc_02 = fa_8d_sr000001_02) then
    ira2 = (ira2 + fa_8d_sr000001_02);
     else if (fa_8d_sr000001_02 >= 0 & fa_8d_sr000002_trunc_02 >= 0 & fa_8d_sr000002_trunc_02 > fa_8d_sr000001_02) then
     ira2 = (ira2 + (((fa_8d_sr000002_trunc_02 - fa_8d_sr000001_02)/2) + fa_8d_sr000001_02));
      else if (fa_8d_sr000001_02 >= 0 & fa_8d_sr000002_trunc_02 >= 0 & fa_8d_sr000002_trunc_02 < fa_8d_sr000001_02) then
      ira2 = (ira2 + (((fa_8d_sr000001_02 - fa_8d_sr000002_trunc_02)/2) + fa_8d_sr000002_trunc_02));
       else if (fa_8d_trunc_02 in(-1, -2, -4) & fa_8d_uab_c_02 = 0) then ira2 = (ira2 + quartile3);
        else if (fa_8d_trunc_02 in(-1, -2, -4) & fa_8d_uab_c_02 = 1) then ira2 = (ira2 + 96000);
         else if (fa_8d_uab_a_02 in(-1, -2) | fa_8d_uab_c_02 in(-1, -2)) then ira2 = -3;

/************************************************/
/* IRA Component - ira3                         */
/************************************************/

if (fa_8 = 1 & fa_8d_trunc_03 >= 0) then ira3 = (ira3 + fa_8d_trunc_03);
else if (fa_8 = 1 & fa_8d_trunc_03 in(-1, -2) & fa_8d_sr000001_03 < 0 & fa_8d_sr000002_trunc_03 < 0
& fa_8d_uab_a_03 < 0 & fa_8d_uab_c_03 < 0) then ira3 = fa_8d_trunc_03;
    else if (fa_8d_sr000001_03 >= 0 & fa_8d_sr000002_trunc_03 >= 0 & fa_8d_sr000002_trunc_03 = fa_8d_sr000001_03) then
    ira3 = (ira3 + fa_8d_sr000001_03);
     else if (fa_8d_sr000001_03 >= 0 & fa_8d_sr000002_trunc_03 >= 0 & fa_8d_sr000002_trunc_03 > fa_8d_sr000001_03) then
     ira3 = (ira3 + (((fa_8d_sr000002_trunc_03 - fa_8d_sr000001_03)/2) + fa_8d_sr000001_03));
      else if (fa_8d_sr000001_03 >= 0 & fa_8d_sr000002_trunc_03 >= 0 & fa_8d_sr000002_trunc_03 < fa_8d_sr000001_03) then
      ira3 = (ira3 + (((fa_8d_sr000001_03 - fa_8d_sr000002_trunc_03)/2) + fa_8d_sr000002_trunc_03));
       else if (fa_8d_trunc_03 in(-1, -2, -4) & fa_8d_uab_c_03 = 0) then ira3 = (ira3 + quartile3);
        else if (fa_8d_trunc_03 in(-1, -2, -4) & fa_8d_uab_c_03 = 1) then ira3 = (ira3 + 100000);
         else if (fa_8d_uab_a_03 in(-1, -2) | fa_8d_uab_c_03 in(-1, -2)) then ira3 = -3;

/************************************************/
/* IRA Component - ira4                         */
/************************************************/

if (fa_8 = 1 & fa_8d_trunc_04 >= 0) then ira4 = (ira4 + fa_8d_trunc_04);
else if (fa_8 = 1 & fa_8d_trunc_04 in(-1, -2) & fa_8d_sr000001_04 < 0 & fa_8d_sr000002_trunc_04 < 0
& fa_8d_uab_a_04 < 0 & fa_8d_uab_c_04 < 0) then ira4 = fa_8d_trunc_04;
    else if (fa_8d_sr000001_04 >= 0 & fa_8d_sr000002_trunc_04 >= 0 & fa_8d_sr000002_trunc_04 = fa_8d_sr000001_04) then
    ira4 = (ira4 + fa_8d_sr000001_04);
     else if (fa_8d_sr000001_04 >= 0 & fa_8d_sr000002_trunc_04 >= 0 & fa_8d_sr000002_trunc_04 > fa_8d_sr000001_04) then
     ira4 = (ira4 + (((fa_8d_sr000002_trunc_04 - fa_8d_sr000001_04)/2) + fa_8d_sr000001_04));
      else if (fa_8d_sr000001_04 >= 0 & fa_8d_sr000002_trunc_04 >= 0 & fa_8d_sr000002_trunc_04 < fa_8d_sr000001_04) then
      ira4 = (ira4 + (((fa_8d_sr000001_04 - fa_8d_sr000002_trunc_04)/2) + fa_8d_sr000002_trunc_04));
       else if (fa_8d_trunc_04 in(-1, -2, -4) & fa_8d_uab_c_04 = 0) then ira4 = (ira4 + quartile3);
        else if (fa_8d_trunc_04 in(-1, -2, -4) & fa_8d_uab_c_04 = 1) then ira4 = (ira4 + 100000);
         else if (fa_8d_uab_a_04 in(-1, -2) | fa_8d_uab_c_04 in(-1, -2)) then ira4 = -3;

/************************************************/
/* IRA Component - ira5                         */
/************************************************/

if (fa_8 = 1 & fa_8d_trunc_05 >= 0) then ira5 = (ira5 + fa_8d_trunc_05);
else if (fa_8 = 1 & fa_8d_trunc_05 in(-1, -2) & fa_8d_sr000001_05 < 0 & fa_8d_sr000002_trunc_05 < 0
& fa_8d_uab_a_05 < 0 & fa_8d_uab_b_05 < 0 & fa_8d_uab_c_05 < 0) then ira5 = fa_8d_trunc_05;
    else if (fa_8d_sr000001_05 >= 0 & fa_8d_sr000002_trunc_05 >= 0 & fa_8d_sr000002_trunc_05 = fa_8d_sr000001_05) then
    ira5 = (ira5 + fa_8d_sr000001_05);
     else if (fa_8d_sr000001_05 >= 0 & fa_8d_sr000002_trunc_05 >= 0 & fa_8d_sr000002_trunc_05 > fa_8d_sr000001_05) then
     ira5 = (ira5 + (((fa_8d_sr000002_trunc_05 - fa_8d_sr000001_05)/2) + fa_8d_sr000001_05));
      else if (fa_8d_sr000001_05 >= 0 & fa_8d_sr000002_trunc_05 >= 0 & fa_8d_sr000002_trunc_05 < fa_8d_sr000001_05) then
      ira5 = (ira5 + (((fa_8d_sr000001_05 - fa_8d_sr000002_trunc_05)/2) + fa_8d_sr000002_trunc_05));
       else if (fa_8d_trunc_05 in(-1, -2, -4) & fa_8d_uab_b_05 = 0) then ira5 = (ira5 + quartile1);
        else if (fa_8d_trunc_05 in(-1, -2, -4) & fa_8d_uab_b_05 = 1) then ira5 = (ira5 + quartile2);
         else if (fa_8d_trunc_05 in(-1, -2, -4) & fa_8d_uab_c_05 = 0) then ira5 = (ira5 + quartile3);
          else if (fa_8d_trunc_05 in(-1, -2, -4) & fa_8d_uab_c_05 = 1) then ira5 = (ira5 + 100000);
           else if (fa_8d_uab_a_05 in(-1, -2) | fa_8d_uab_b_05 in(-1, -2) | fa_8d_uab_c_05 in(-1, -2)) then ira5 = -3;

/************************************************/
/* IRA Component - ira6                         */
/************************************************/

if (fa_8 = 1 & fa_8d_trunc_06 >= 0) then ira6 = (ira6 + fa_8d_trunc_06);
else if (fa_8 = 1 & fa_8d_trunc_06 in(-1, -2) & fa_8d_sr000001_06 < 0 & fa_8d_sr000002_trunc_06 < 0
& fa_8d_uab_a_06 < 0 & fa_8d_uab_c_06 < 0) then ira6 = fa_8d_trunc_06;
    else if (fa_8d_sr000001_06 >= 0 & fa_8d_sr000002_trunc_06 >= 0 & fa_8d_sr000002_trunc_06 = fa_8d_sr000001_06) then
    ira6 = (ira6 + fa_8d_sr000001_06);
     else if (fa_8d_sr000001_06 >= 0 & fa_8d_sr000002_trunc_06 >= 0 & fa_8d_sr000002_trunc_06 > fa_8d_sr000001_06) then
     ira6 = (ira6 + (((fa_8d_sr000002_trunc_06 - fa_8d_sr000001_06)/2) + fa_8d_sr000001_06));
      else if (fa_8d_sr000001_06 >= 0 & fa_8d_sr000002_trunc_06 >= 0 & fa_8d_sr000002_trunc_06 < fa_8d_sr000001_06) then
      ira6 = (ira6 + (((fa_8d_sr000001_06 - fa_8d_sr000002_trunc_06)/2) + fa_8d_sr000002_trunc_06));
       else if (fa_8d_trunc_06 in(-1, -2, -4) & fa_8d_uab_c_06 = 0) then ira6 = (ira6 + quartile3);
        else if (fa_8d_trunc_06 in(-1, -2, -4) & fa_8d_uab_c_06 = 1) then ira6 = (ira6 + 100000);
         else if (fa_8d_uab_a_06 in(-1, -2) | fa_8d_uab_c_06 in(-1, -2)) then ira6 = -3;

/************************************************/
/* IRA Component - ira7                         */
/************************************************/

if (fa_8 = 1 & fa_8d_trunc_07 >= 0) then ira7 = (ira7 + fa_8d_trunc_07);
else if (fa_8 = 1 & fa_8d_trunc_07 in(-1, -2) & fa_8d_sr000001_07 < 0 & fa_8d_sr000002_trunc_07 < 0
& fa_8d_uab_a_07 < 0 & fa_8d_uab_c_07 < 0) then ira7 = fa_8d_trunc_07;
    else if (fa_8d_sr000001_07 >= 0 & fa_8d_sr000002_trunc_07 >= 0 & fa_8d_sr000002_trunc_07 = fa_8d_sr000001_07) then
    ira7 = (ira7 + fa_8d_sr000001_07);
     else if (fa_8d_sr000001_07 >= 0 & fa_8d_sr000002_trunc_07 >= 0 & fa_8d_sr000002_trunc_07 > fa_8d_sr000001_07) then
     ira7 = (ira7 + (((fa_8d_sr000002_trunc_07 - fa_8d_sr000001_07)/2) + fa_8d_sr000001_07));
      else if (fa_8d_sr000001_07 >= 0 & fa_8d_sr000002_trunc_07 >= 0 & fa_8d_sr000002_trunc_07 < fa_8d_sr000001_07) then
      ira7 = (ira7 + (((fa_8d_sr000001_07 - fa_8d_sr000002_trunc_07)/2) + fa_8d_sr000002_trunc_07));
       else if (fa_8d_trunc_07 in(-1, -2, -4) & fa_8d_uab_c_07 = 0) then ira7 = (ira7 + quartile3);
        else if (fa_8d_trunc_07 in(-1, -2, -4) & fa_8d_uab_c_07 = 1) then ira7 = (ira7 + 121000);
         else if (fa_8d_uab_a_07 in(-1, -2) | fa_8d_uab_c_07 in(-1, -2)) then ira7 = -3;

/*******************************/
/* Add components IRA          */
/*******************************/

if (ira1 >= 0) then irac = (irac + ira1);
if (ira2 >= 0) then irac = (irac + ira2);
if (ira3 >= 0) then irac = (irac + ira3);
if (ira4 >= 0) then irac = (irac + ira4);
if (ira5 >= 0) then irac = (irac + ira5);
if (ira6 >= 0) then irac = (irac + ira6);
if (ira7 >= 0) then irac = (irac + ira7);
if (ira1 in(-1, -2, -3)) then irac = -3;
else if (ira2 in(-1, -2, -3)) then irac = -3;
else if (ira3 in(-1, -2, -3)) then irac = -3;
else if (ira4 in(-1, -2, -3)) then irac = -3;
else if (ira5 in(-1, -2, -3)) then irac = -3;
else if (ira6 in(-1, -2, -3)) then irac = -3;
else if (ira7 in(-1, -2, -3)) then irac = -3;

/****************************/
/* Compute A401K            */
/****************************/

/************************************************/
/* A401K component - r_401k                     */
/************************************************/

if (fa_6b = 1 & fa_6e_trunc >= 0) then r_401k = (r_401k + fa_6e_trunc);
else if (fa_6b = 1 & fa_6e_ref_1 = 1 & fa_6e_sr000001 < 0 & fa_6e_sr000002 < 0
& fa_6e_uab_a < 0 & fa_6e_uab_b < 0 & fa_6e_uab_c < 0) then r_401k = -1;
else if (fa_6e_trunc in(-1, -2) & fa_6e_sr000001 < 0 & fa_6e_sr000002 < 0
& fa_6e_uab_a < 0 & fa_6e_uab_b < 0 & fa_6e_uab_c < 0) then r_401k = fa_6e_trunc;
   else if (fa_6e_sr000001 >= 0 & fa_6e_sr000002 >= 0 & fa_6e_sr000002 = fa_6e_sr000001) then
    r_401k = (r_401k + fa_6e_sr000001);
     else if (fa_6e_sr000001 >= 0 & fa_6e_sr000002 >= 0 & fa_6e_sr000002 > fa_6e_sr000001) then
     r_401k = (r_401k + (((fa_6e_sr000002 - fa_6e_sr000001)/2) + fa_6e_sr000001));
      else if (fa_6e_sr000001 >= 0 & fa_6e_sr000002 >= 0 & fa_6e_sr000002 < fa_6e_sr000001) then
      r_401k = (r_401k + (((fa_6e_sr000001 - fa_6e_sr000002)/2) + fa_6e_sr000002));
       else if (fa_6e_trunc in(-1, -2, -4) & fa_6e_uab_b = 0) then r_401k = (r_401k + quartile1);
        else if (fa_6e_trunc in(-1, -2, -4) & fa_6e_uab_b = 1) then r_401k = (r_401k + quartile2);
         else if (fa_6e_trunc in(-1, -2, -4) & fa_6e_uab_c = 0) then r_401k = (r_401k + quartile3);
          else if (fa_6e_trunc in(-1, -2, -4) & fa_6e_uab_c = 1) then r_401k = (r_401k + 120000);
           else if (fa_6e_uab_a in(-1, -2) | fa_6e_uab_b in(-1, -2) | fa_6e_uab_c in(-1, -2)) then r_401k = -3;

/************************************************/
/* A401K component - sp_401k                    */
/************************************************/

if (fa_7 = 1 & fa_7c_trunc >= 0) then sp_401k = (sp_401k + fa_7c_trunc);
else if (fa_7 = 1 & fa_7c_ref_1 = 1 & fa_7c_sr000001 < 0 & fa_7c_sr000002 < 0
& fa_7c_uab_a < 0 & fa_7c_uab_b < 0 & fa_7c_uab_c < 0) then sp_401k = -1;
else if (fa_7c_trunc in(-1, -2) & fa_7c_sr000001 < 0 & fa_7c_sr000002 < 0
& fa_7c_uab_a < 0 & fa_7c_uab_b < 0 & fa_7c_uab_c < 0) then sp_401k = fa_7c_trunc;
    else if (fa_7c_sr000001 >= 0 & fa_7c_sr000002 >= 0 & fa_7c_sr000002 = fa_7c_sr000001) then
    sp_401k = (sp_401k + fa_7c_sr000001);
     else if (fa_7c_sr000001 >= 0 & fa_7c_sr000002 >= 0 & fa_7c_sr000002 > fa_7c_sr000001) then
     sp_401k = (sp_401k + (((fa_7c_sr000002 - fa_7c_sr000001)/2) + fa_7c_sr000001));
      else if (fa_7c_sr000001 >= 0 & fa_7c_sr000002 >= 0 & fa_7c_sr000002 < fa_7c_sr000001) then
      sp_401k = (sp_401k + (((fa_7c_sr000001 - fa_7c_sr000002)/2) + fa_7c_sr000002));
       else if (fa_7c_trunc in(-1, -2, -4) & fa_7c_uab_b = 0) then sp_401k = (sp_401k + quartile1);
        else if (fa_7c_trunc in(-1, -2, -4) & fa_7c_uab_b = 1) then sp_401k = (sp_401k + quartile2);
         else if (fa_7c_trunc in(-1, -2, -4) & fa_7c_uab_c = 0) then sp_401k = (sp_401k + quartile3);
          else if (fa_7c_trunc in(-1, -2, -4) & fa_7c_uab_c = 1) then sp_401k = (sp_401k + 150000);
           else if (fa_7c_uab_a in(-1, -2) | fa_7c_uab_b in(-1, -2) | fa_7c_uab_c in(-1, -2)) then sp_401k = -3;

/*******************************/
/* Add components A401K        */
/*******************************/

if (r_401k >= 0) then a401kc = (a401kc + r_401k);
if (sp_401k >= 0) then a401kc = (a401kc + sp_401k);
if (r_401k in(-1, -2, -3)) then a401kc = -3;
else if (sp_401k in(-1, -2, -3)) then a401kc = -3;

/****************************/
/* Compute CDEBT            */
/****************************/
/************************************************/
/* CDEBT Component - amtowe_assetpoorcars1      */
/************************************************/

if (sc_12b_01 >= 0) then amtowe_assetpoorcars1 = (amtowe_assetpoorcars1 + sc_12b_01);
else if (sc_12b_01 in(-1, -2) & sc_12b_sr000001_01 < 0 & sc_12b_sr000002_01 < 0
& sc_12b_uab_a_01 < 0) then amtowe_assetpoorcars1 = sc_12b_01;
    else if (sc_12b_sr000001_01 >= 0 & sc_12b_sr000002_01 >= 0 & sc_12b_sr000002_01 = sc_12b_sr000001_01) then
    amtowe_assetpoorcars1 = (amtowe_assetpoorcars1 + sc_12b_sr000001_01);
     else if (sc_12b_sr000001_01 >= 0 & sc_12b_sr000002_01 >= 0 & sc_12b_sr000002_01 > sc_12b_sr000001_01) then
     amtowe_assetpoorcars1 = (amtowe_assetpoorcars1 + (((sc_12b_sr000002_01 - sc_12b_sr000001_01)/2) + sc_12b_sr000001_01));
      else if (sc_12b_sr000001_01 >= 0 & sc_12b_sr000002_01 >= 0 & sc_12b_sr000002_01 < sc_12b_sr000001_01) then
      amtowe_assetpoorcars1 = (amtowe_assetpoorcars1 + (((sc_12b_sr000001_01 - sc_12b_sr000002_01)/2) + sc_12b_sr000002_01));
       else if (sc_12b_uab_a_01 in(-1, -2)) then amtowe_assetpoorcars1 = -3;

/************************************************/
/* CDEBT Component - amtowe_assetpoorcars2      */
/************************************************/

if (sc_12b_02 >= 0) then amtowe_assetpoorcars2 = (amtowe_assetpoorcars2 + sc_12b_02);
else if (sc_12b_02 in(-1, -2) & sc_12b_sr000001_02 < 0 & sc_12b_sr000002_02 < 0) then amtowe_assetpoorcars2 = sc_12b_02;
   else if (sc_12b_sr000001_02 >= 0 & sc_12b_sr000002_02 >= 0 & sc_12b_sr000002_02 = sc_12b_sr000001_02) then
   amtowe_assetpoorcars2 = (amtowe_assetpoorcars2 + sc_12b_sr000001_02);
    else if (sc_12b_sr000001_02 >= 0 & sc_12b_sr000002_02 >= 0 & sc_12b_sr000002_02 > sc_12b_sr000001_02) then
    amtowe_assetpoorcars2 = (amtowe_assetpoorcars2 + (((sc_12b_sr000002_02 - sc_12b_sr000001_02)/2) + sc_12b_sr000001_02));
     else if (sc_12b_sr000001_02 >= 0 & sc_12b_sr000002_02 >= 0 & sc_12b_sr000002_02 < sc_12b_sr000001_02) then
     amtowe_assetpoorcars2 = (amtowe_assetpoorcars2 + (((sc_12b_sr000001_02 - sc_12b_sr000002_02)/2) + sc_12b_sr000002_02));

/************************************************/
/* CDEBT Component - amountowe_vehicles1        */
/************************************************/

if (nfa_4f_trunc_01 >= 0) then amountowe_vehicles1 = (amountowe_vehicles1 + nfa_4f_trunc_01);
else if (nfa_4f_trunc_01 in(-1, -2) & nfa_4f_sr000001_01 < 0 & nfa_4f_sr000002_trunc_01 < 0
& nfa_4f_uab_a_01 < 0 & nfa_4f_uab_b_01 < 0 & nfa_4f_uab_c_01 < 0) then amountowe_vehicles1 = nfa_4f_trunc_01;
   else if (nfa_4f_sr000001_01 >= 0 & nfa_4f_sr000002_trunc_01 >= 0 & nfa_4f_sr000002_trunc_01 = nfa_4f_sr000001_01) then
   amountowe_vehicles1 = (amountowe_vehicles1 + nfa_4f_sr000001_01);
    else if (nfa_4f_sr000001_01 >= 0 & nfa_4f_sr000002_trunc_01 >= 0 & nfa_4f_sr000002_trunc_01 > nfa_4f_sr000001_01) then
    amountowe_vehicles1 = (amountowe_vehicles1 + (((nfa_4f_sr000002_trunc_01 - nfa_4f_sr000001_01)/2) + nfa_4f_sr000001_01));
     else if (nfa_4f_sr000001_01 >= 0 & nfa_4f_sr000002_trunc_01 >= 0 & nfa_4f_sr000002_trunc_01 < nfa_4f_sr000001_01) then
     amountowe_vehicles1 = (amountowe_vehicles1 + (((nfa_4f_sr000001_01 - nfa_4f_sr000002_trunc_01)/2) + nfa_4f_sr000002_trunc_01));
      else if (nfa_4f_trunc_01 in(-1, -2, -4) & nfa_4f_uab_b_01 = 0) then amountowe_vehicles1 = (amountowe_vehicles1 + quartile1);
       else if (nfa_4f_trunc_01 in(-1, -2, -4) & nfa_4f_uab_b_01 = 1) then amountowe_vehicles1 = (amountowe_vehicles1 + quartile2);
        else if (nfa_4f_trunc_01 in(-1, -2, -4) & nfa_4f_uab_c_01 = 0) then amountowe_vehicles1 = (amountowe_vehicles1 + quartile3);
         else if (nfa_4f_trunc_01 in(-1, -2, -4) & nfa_4f_uab_c_01 = 1) then amountowe_vehicles1 = (amountowe_vehicles1 + 38000);
          else if (nfa_4f_uab_a_01 in(-1, -2) | nfa_4f_uab_b_01 in(-1, -2) | nfa_4f_uab_c_01 in(-1, -2)) then amtowe_vehicles1 = -3;

/************************************************/
/* CDEBT Component - amountowe_vehicles2        */
/************************************************/

if (nfa_4f_trunc_02 >= 0) then amountowe_vehicles2 = (amountowe_vehicles2 + nfa_4f_trunc_02);
else if (nfa_4f_trunc_02 in(-1, -2) & nfa_4f_sr000001_02 < 0 & nfa_4f_sr000002_trunc_02 < 0
& nfa_4f_uab_a_02 < 0 & nfa_4f_uab_b_02 < 0 & nfa_4f_uab_c_02 < 0) then amountowe_vehicles2 = nfa_4f_trunc_02;
   else if (nfa_4f_sr000001_02 >= 0 & nfa_4f_sr000002_trunc_02 >= 0 & nfa_4f_sr000002_trunc_02 = nfa_4f_sr000001_02) then
   amountowe_vehicles2 = (amountowe_vehicles2 + nfa_4f_sr000001_02);
    else if (nfa_4f_sr000001_02 >= 0 & nfa_4f_sr000002_trunc_02 >= 0 & nfa_4f_sr000002_trunc_02 > nfa_4f_sr000001_02) then
    amountowe_vehicles2 = (amountowe_vehicles2 + (((nfa_4f_sr000002_trunc_02 - nfa_4f_sr000001_02)/2) + nfa_4f_sr000001_02));
     else if (nfa_4f_sr000001_02 >= 0 & nfa_4f_sr000002_trunc_02 >= 0 & nfa_4f_sr000002_trunc_02 < nfa_4f_sr000001_02) then
     amountowe_vehicles2 = (amountowe_vehicles2 + (((nfa_4f_sr000001_02 - nfa_4f_sr000002_trunc_02)/2) + nfa_4f_sr000002_trunc_02));
      else if (nfa_4f_trunc_02 in(-1, -2, -4) & nfa_4f_uab_b_02 = 0) then amountowe_vehicles2 = (amountowe_vehicles2 + quartile1);
       else if (nfa_4f_trunc_02 in(-1, -2, -4) & nfa_4f_uab_b_02 = 1) then amountowe_vehicles2 = (amountowe_vehicles2 + quartile2);
        else if (nfa_4f_trunc_02 in(-1, -2, -4) & nfa_4f_uab_c_02 = 0) then amountowe_vehicles2 = (amountowe_vehicles2 + quartile3);
         else if (nfa_4f_trunc_02 in(-1, -2, -4) & nfa_4f_uab_c_02 = 1) then amountowe_vehicles2 = (amountowe_vehicles2 + 40000);
          else if (nfa_4f_uab_a_02 in(-1, -2) | nfa_4f_uab_b_02 in(-1, -2) | nfa_4f_uab_c_02 in(-1, -2)) then amtowe_vehicles2 = -3;

/************************************************/
/* CDEBT Component - amountowe_vehicles3        */
/************************************************/

if (nfa_4f_trunc_03 >= 0) then amountowe_vehicles3 = (amountowe_vehicles3 + nfa_4f_trunc_03);
else if (nfa_4f_trunc_03 in(-1, -2) & nfa_4f_sr000001_03 < 0 & nfa_4f_sr000002_trunc_03 < 0
& nfa_4f_uab_a_03 < 0 & nfa_4f_uab_c_03 < 0) then amountowe_vehicles3 = nfa_4f_trunc_03;
   else if (nfa_4f_sr000001_03 >= 0 & nfa_4f_sr000002_trunc_03 >= 0 & nfa_4f_sr000002_trunc_03 = nfa_4f_sr000001_03) then
   amountowe_vehicles3 = (amountowe_vehicles3 + nfa_4f_sr000001_03);
    else if (nfa_4f_sr000001_03 >= 0 & nfa_4f_sr000002_trunc_03 >= 0 & nfa_4f_sr000002_trunc_03 > nfa_4f_sr000001_03) then
    amountowe_vehicles3 = (amountowe_vehicles3 + (((nfa_4f_sr000002_trunc_03 - nfa_4f_sr000001_03)/2) + nfa_4f_sr000001_03));
     else if (nfa_4f_sr000001_03 >= 0 & nfa_4f_sr000002_trunc_03 >= 0 & nfa_4f_sr000002_trunc_03 < nfa_4f_sr000001_03) then
     amountowe_vehicles3 = (amountowe_vehicles3 + (((nfa_4f_sr000001_03 - nfa_4f_sr000002_trunc_03)/2) + nfa_4f_sr000002_trunc_03));
      else if (nfa_4f_trunc_03 in(-1, -2, -4) & nfa_4f_uab_c_03 = 0) then amountowe_vehicles3 = (amountowe_vehicles3 + quartile3);
       else if (nfa_4f_trunc_03 in(-1, -2, -4) & nfa_4f_uab_c_03 = 1) then amountowe_vehicles3 = (amountowe_vehicles3 + 35000);
        else if (nfa_4f_uab_a_03 in(-1, -2) | nfa_4f_uab_c_03 in(-1, -2)) then amtowe_vehicles3 = -3;

/************************************************/
/* CDEBT Component - amountowe_vehicles4        */
/************************************************/

if (nfa_4f_trunc_04 >= 0) then amountowe_vehicles4 = (amountowe_vehicles4 + nfa_4f_trunc_04);
else if (nfa_4f_trunc_04 in(-1, -2) & nfa_4f_sr000001_04 < 0 & nfa_4f_sr000002_trunc_04 < 0
& nfa_4f_uab_a_04 < 0 & nfa_4f_uab_c_04 < 0) then amountowe_vehicles4 = nfa_4f_trunc_04;
   else if (nfa_4f_sr000001_04 >= 0 & nfa_4f_sr000002_trunc_04 >= 0 & nfa_4f_sr000002_trunc_04 = nfa_4f_sr000001_04) then
   amountowe_vehicles4 = (amountowe_vehicles4 + nfa_4f_sr000001_04);
    else if (nfa_4f_sr000001_04 >= 0 & nfa_4f_sr000002_trunc_04 >= 0 & nfa_4f_sr000002_trunc_04 > nfa_4f_sr000001_04) then
    amountowe_vehicles4 = (amountowe_vehicles4 + (((nfa_4f_sr000002_trunc_04 - nfa_4f_sr000001_04)/2) + nfa_4f_sr000001_04));
     else if (nfa_4f_sr000001_04 >= 0 & nfa_4f_sr000002_trunc_04 >= 0 & nfa_4f_sr000002_trunc_04 < nfa_4f_sr000001_04) then
     amountowe_vehicles4 = (amountowe_vehicles4 + (((nfa_4f_sr000001_04 - nfa_4f_sr000002_trunc_04)/2) + nfa_4f_sr000002_trunc_04));
      else if (nfa_4f_trunc_04 in(-1, -2, -4) & nfa_4f_uab_c_04 = 0) then amountowe_vehicles4 = (amountowe_vehicles4 + quartile3);
       else if (nfa_4f_trunc_04 in(-1, -2, -4) & nfa_4f_uab_c_04 = 1) then amountowe_vehicles4 = (amountowe_vehicles4 + 53500);
        else if (nfa_4f_uab_a_04 in(-1, -2) | nfa_4f_uab_c_04 in(-1, -2)) then amtowe_vehicles4 = -3;

/************************************************/
/* CDEBT Component - amountowe_vehicles5        */
/************************************************/

if (nfa_4f_trunc_05 >= 0) then amountowe_vehicles5 = (amountowe_vehicles5 + nfa_4f_trunc_05);
else if (nfa_4f_trunc_05 in(-1, -2)) then amountowe_vehicles5 = nfa_4f_trunc_05;

/************************************************/
/* CDEBT Component - amountowe_vehicles6        */
/************************************************/

if (nfa_4f_trunc_06 >= 0) then amountowe_vehicles6 = (amountowe_vehicles6 + nfa_4f_trunc_06);
else if (nfa_4f_trunc_06 in(-1, -2)) then amountowe_vehicles6 = nfa_4f_trunc_06;

/************************************************/
/* CDEBT Component - amountowe_vehicles8        */
/************************************************/

if (nfa_4f_trunc_08 >= 0) then amountowe_vehicles8 = (amountowe_vehicles8 + nfa_4f_trunc_08);
else if (nfa_4f_trunc_08 in(-1, -2)) then amountowe_vehicles8 = nfa_4f_trunc_08;

/************************************************/
/* CDEBT Component - amountowe_vehicles9        */
/************************************************/

if (nfa_4f_trunc_09 >= 0) then amountowe_vehicles9 = (amountowe_vehicles9 + nfa_4f_trunc_09);
else if (nfa_4f_trunc_09 in(-1, -2)) then amountowe_vehicles9 = nfa_4f_trunc_09;

/************************************************/
/* CDEBT Component - amtowe_othervehicles       */
/************************************************/

if (nfa_5 = 1 & nfa_5b_trunc >= 0) then amtowe_othervehicles = (amtowe_othervehicles + nfa_5b_trunc);
else if (nfa_5 = 1 & nfa_5b_trunc in(-1, -2)) then amtowe_othervehicles = nfa_5b_trunc;

/*******************************/
/* Add components CDEBT        */
/*******************************/

if (amtowe_assetpoorcars1 >= 0) then cdebtc = (cdebtc + amtowe_assetpoorcars1);
if (amtowe_assetpoorcars2 >= 0) then cdebtc = (cdebtc + amtowe_assetpoorcars2);
if (amountowe_vehicles1 >= 0) then cdebtc = (cdebtc + amountowe_vehicles1);
if (amountowe_vehicles2 >= 0) then cdebtc = (cdebtc + amountowe_vehicles2);
if (amountowe_vehicles3 >= 0) then cdebtc = (cdebtc + amountowe_vehicles3);
if (amountowe_vehicles4 >= 0) then cdebtc = (cdebtc + amountowe_vehicles4);
if (amountowe_vehicles5 >= 0) then cdebtc = (cdebtc + amountowe_vehicles5);
if (amountowe_vehicles6 >= 0) then cdebtc = (cdebtc + amountowe_vehicles6);
if (amountowe_vehicles8 >= 0) then cdebtc = (cdebtc + amountowe_vehicles8);
if (amountowe_vehicles9 >= 0) then cdebtc = (cdebtc + amountowe_vehicles9);
if (amtowe_othervehicles >= 0) then cdebtc = (cdebtc + amtowe_othervehicles);

if (amtowe_assetpoorcars1 in(-1, -2, -3)) then cdebtc = -3;
else if (amtowe_assetpoorcars2 in(-1, -2, -3)) then cdebtc = -3;
else if (amountowe_vehicles1 in(-1, -2, -3)) then cdebtc = -3;
else if (amountowe_vehicles2 in(-1, -2, -3)) then cdebtc = -3;
else if (amountowe_vehicles3 in(-1, -2, -3)) then cdebtc = -3;
else if (amountowe_vehicles4 in(-1, -2, -3)) then cdebtc = -3;
else if (amountowe_vehicles5 in(-1, -2, -3)) then cdebtc = -3;
else if (amountowe_vehicles6 in(-1, -2, -3)) then cdebtc = -3;
else if (amountowe_vehicles8 in(-1, -2, -3)) then cdebtc = -3;
else if (amountowe_vehicles9 in(-1, -2, -3)) then cdebtc = -3;
else if (amtowe_othervehicles in(-1, -2, -3)) then cdebtc = -3;

/****************************/
/* Compute CAR              */
/****************************/
/************************************************/
/* CAR Component - mktval_assetpoorcars1        */
/************************************************/

if (sc_12a_01 >= 0) then mktval_assetpoorcars1 = (mktval_assetpoorcars1 + sc_12a_01);
   else if (sc_12a_01 in(-1, -2) & sc_12a_sr000001_01 < 0 & sc_12a_sr000002_01 < 0
& sc_12a_uab_a_01 < 0 & sc_12a_uab_b_01 < 0) then mktval_assetpoorcars1 = sc_12a_01;
    else if (sc_12a_sr000001_01 >= 0 & sc_12a_sr000002_01 >= 0 & sc_12a_sr000002_01 = sc_12a_sr000001_01) then
    mktval_assetpoorcars1 = (mktval_assetpoorcars1 + sc_12a_sr000001_01);
     else if (sc_12a_sr000001_01 >= 0 & sc_12a_sr000002_01 >= 0 & sc_12a_sr000002_01 > sc_12a_sr000001_01) then
     mktval_assetpoorcars1 = (mktval_assetpoorcars1 + (((sc_12a_sr000002_01 - sc_12a_sr000001_01)/2) + sc_12a_sr000001_01));
      else if (sc_12a_sr000001_01 >= 0 & sc_12a_sr000002_01 >= 0 & sc_12a_sr000002_01 < sc_12a_sr000001_01) then
      mktval_assetpoorcars1 = (mktval_assetpoorcars1 + (((sc_12a_sr000001_01 - sc_12a_sr000002_01)/2) + sc_12a_sr000002_01));
       else if (sc_12a_01 in(-1, -2, -4) & sc_12a_uab_b_01 = 0) then mktval_assetpoorcars1 = (mktval_assetpoorcars1 + quartile1);
        else if (sc_12a_01 in(-1, -2, -4) & sc_12a_uab_b_01 = 1) then mktval_assetpoorcars1 = (mktval_assetpoorcars1 + quartile2);
           else if (sc_12a_uab_a_01 in(-1, -2) | sc_12a_uab_b_01 in(-1, -2)) then mktval_assetpoorcars1 = -3;

/************************************************/
/* CAR Component - mktval_assetpoorcars2        */
/************************************************/

if (sc_12a_02 >= 0) then mktval_assetpoorcars2 = (mktval_assetpoorcars2 + sc_12a_02);
   else if (sc_12a_02 in(-1, -2)) then mktval_assetpoorcars2 = sc_12a_02;

/************************************************/
/* CAR Component - marketvalue_vehicles1        */
/************************************************/

if (nfa_4c_trunc_01 >= 0) then marketvalue_vehicles1 = (marketvalue_vehicles1 + nfa_4c_trunc_01);
else if (nfa_4c_trunc_01 in(-1, -2) & nfa_4c_sr000001_01 < 0 & nfa_4c_sr000002_trunc_01 < 0
& nfa_4c_uab_a_01 < 0 & nfa_4c_uab_b_01 < 0 & nfa_4c_uab_c_01 < 0) then marketvalue_vehicles1 = nfa_4c_trunc_01;
   else if (nfa_4c_sr000001_01 >= 0 & nfa_4c_sr000002_trunc_01 >= 0 & nfa_4c_sr000002_trunc_01 = nfa_4c_sr000001_01) then
   marketvalue_vehicles1 = (marketvalue_vehicles1 + nfa_4c_sr000001_01);
    else if (nfa_4c_sr000001_01 >= 0 & nfa_4c_sr000002_trunc_01 >= 0 & nfa_4c_sr000002_trunc_01 > nfa_4c_sr000001_01) then
    marketvalue_vehicles1 = (marketvalue_vehicles1 + (((nfa_4c_sr000002_trunc_01 - nfa_4c_sr000001_01)/2) + nfa_4c_sr000001_01));
     else if (nfa_4c_sr000001_01 >= 0 & nfa_4c_sr000002_trunc_01 >= 0 & nfa_4c_sr000002_trunc_01 < nfa_4c_sr000001_01) then
     marketvalue_vehicles1 = (marketvalue_vehicles1 + (((nfa_4c_sr000001_01 - nfa_4c_sr000002_trunc_01)/2) + nfa_4c_sr000002_trunc_01));
      else if (nfa_4c_trunc_01 in(-1, -2, -4) & nfa_4c_uab_b_01 = 0) then marketvalue_vehicles1 = (marketvalue_vehicles1 + quartile1);
       else if (nfa_4c_trunc_01 in(-1, -2, -4) & nfa_4c_uab_b_01 = 1) then marketvalue_vehicles1 = (marketvalue_vehicles1 + quartile2);
        else if (nfa_4c_trunc_01 in(-1, -2, -4) & nfa_4c_uab_c_01 = 0) then marketvalue_vehicles1 = (marketvalue_vehicles1 + quartile3);
         else if (nfa_4c_trunc_01 in(-1, -2, -4) & nfa_4c_uab_c_01 = 1) then marketvalue_vehicles1 = (marketvalue_vehicles1 + 40000);
          else if (nfa_4c_uab_a_01 in(-1, -2) | nfa_4c_uab_b_01 in(-1, -2) | nfa_4c_uab_c_01 in(-1, -2)) then marketvalue_vehicles1 = -3;

/************************************************/
/* CAR Component - marketvalue_vehicles2        */
/************************************************/

if (nfa_4c_trunc_02 >= 0) then marketvalue_vehicles2 = (marketvalue_vehicles2 + nfa_4c_trunc_02);
else if (nfa_4c_trunc_02 in(-1, -2) & nfa_4c_sr000001_02 < 0 & nfa_4c_sr000002_trunc_02 < 0
& nfa_4c_uab_a_02 < 0 & nfa_4c_uab_b_02 < 0 & nfa_4c_uab_c_02 < 0) then marketvalue_vehicles2 = nfa_4c_trunc_02;
   else if (nfa_4c_sr000001_02 >= 0 & nfa_4c_sr000002_trunc_02 >= 0 & nfa_4c_sr000002_trunc_02 = nfa_4c_sr000001_02) then
   marketvalue_vehicles2 = (marketvalue_vehicles2 + nfa_4c_sr000001_02);
    else if (nfa_4c_sr000001_02 >= 0 & nfa_4c_sr000002_trunc_02 >= 0 & nfa_4c_sr000002_trunc_02 > nfa_4c_sr000001_02) then
    marketvalue_vehicles2 = (marketvalue_vehicles2 + (((nfa_4c_sr000002_trunc_02 - nfa_4c_sr000001_02)/2) + nfa_4c_sr000001_02));
     else if (nfa_4c_sr000001_02 >= 0 & nfa_4c_sr000002_trunc_02 >= 0 & nfa_4c_sr000002_trunc_02 < nfa_4c_sr000001_02) then
     marketvalue_vehicles2 = (marketvalue_vehicles2 + (((nfa_4c_sr000001_02 - nfa_4c_sr000002_trunc_02)/2) + nfa_4c_sr000002_trunc_02));
      else if (nfa_4c_trunc_02 in(-1, -2, -4) & nfa_4c_uab_b_02 = 0) then marketvalue_vehicles2 = (marketvalue_vehicles2 + quartile1);
       else if (nfa_4c_trunc_02 in(-1, -2, -4) & nfa_4c_uab_b_02 = 1) then marketvalue_vehicles2 = (marketvalue_vehicles2 + quartile2);
        else if (nfa_4c_trunc_02 in(-1, -2, -4) & nfa_4c_uab_c_02 = 0) then marketvalue_vehicles2 = (marketvalue_vehicles2 + quartile3);
         else if (nfa_4c_trunc_02 in(-1, -2, -4) & nfa_4c_uab_c_02 = 1) then marketvalue_vehicles2 = (marketvalue_vehicles2 + 40000);
          else if (nfa_4c_uab_a_02 in(-1, -2) | nfa_4c_uab_b_02 in(-1, -2) | nfa_4c_uab_c_02 in(-1, -2)) then marketvalue_vehicles2 = -3;

/************************************************/
/* CAR Component - marketvalue_vehicles3        */
/************************************************/

if (nfa_4c_trunc_03 >= 0) then marketvalue_vehicles3 = (marketvalue_vehicles3 + nfa_4c_trunc_03);
else if (nfa_4c_trunc_03 in(-1, -2) & nfa_4c_sr000001_03 < 0 & nfa_4c_sr000002_trunc_03 < 0
& nfa_4c_uab_a_03 < 0 & nfa_4c_uab_b_03 < 0 & nfa_4c_uab_c_03 < 0) then marketvalue_vehicles3 = nfa_4c_trunc_03;
   else if (nfa_4c_sr000001_03 >= 0 & nfa_4c_sr000002_trunc_03 >= 0 & nfa_4c_sr000002_trunc_03 = nfa_4c_sr000001_03) then
   marketvalue_vehicles3 = (marketvalue_vehicles3 + nfa_4c_sr000001_03);
    else if (nfa_4c_sr000001_03 >= 0 & nfa_4c_sr000002_trunc_03 >= 0 & nfa_4c_sr000002_trunc_03 > nfa_4c_sr000001_03) then
    marketvalue_vehicles3 = (marketvalue_vehicles3 + (((nfa_4c_sr000002_trunc_03 - nfa_4c_sr000001_03)/2) + nfa_4c_sr000001_03));
     else if (nfa_4c_sr000001_03 >= 0 & nfa_4c_sr000002_trunc_03 >= 0 & nfa_4c_sr000002_trunc_03 < nfa_4c_sr000001_03) then
     marketvalue_vehicles3 = (marketvalue_vehicles3 + (((nfa_4c_sr000001_03 - nfa_4c_sr000002_trunc_03)/2) + nfa_4c_sr000002_trunc_03));
      else if (nfa_4c_trunc_03 in(-1, -2, -4) & nfa_4c_uab_b_03 = 0) then marketvalue_vehicles3 = (marketvalue_vehicles3 + quartile1);
       else if (nfa_4c_trunc_03 in(-1, -2, -4) & nfa_4c_uab_b_03 = 1) then marketvalue_vehicles3 = (marketvalue_vehicles3 + quartile2);
        else if (nfa_4c_trunc_03 in(-1, -2, -4) & nfa_4c_uab_c_03 = 0) then marketvalue_vehicles3 = (marketvalue_vehicles3 + quartile3);
         else if (nfa_4c_trunc_03 in(-1, -2, -4) & nfa_4c_uab_c_03 = 1) then marketvalue_vehicles3 = (marketvalue_vehicles3 + 40000);
          else if (nfa_4c_uab_a_03 in(-1, -2) | nfa_4c_uab_b_03 in(-1, -2) | nfa_4c_uab_c_03 in(-1, -2)) then marketvalue_vehicles3 = -3;

/************************************************/
/* CAR Component - marketvalue_vehicles4        */
/************************************************/

if (nfa_4c_trunc_04 >= 0) then marketvalue_vehicles4 = (marketvalue_vehicles4 + nfa_4c_trunc_04);
else if (nfa_4c_trunc_04 in(-1, -2) & nfa_4c_sr000001_04 < 0 & nfa_4c_sr000002_trunc_04 < 0
& nfa_4c_uab_a_04 < 0 & nfa_4c_uab_c_04 < 0) then marketvalue_vehicles4 = nfa_4c_trunc_04;
   else if (nfa_4c_sr000001_04 >= 0 & nfa_4c_sr000002_trunc_04 >= 0 & nfa_4c_sr000002_trunc_04 = nfa_4c_sr000001_04) then
   marketvalue_vehicles4 = (marketvalue_vehicles4 + nfa_4c_sr000001_04);
    else if (nfa_4c_sr000001_04 >= 0 & nfa_4c_sr000002_trunc_04 >= 0 & nfa_4c_sr000002_trunc_04 > nfa_4c_sr000001_04) then
    marketvalue_vehicles4 = (marketvalue_vehicles4 + (((nfa_4c_sr000002_trunc_04 - nfa_4c_sr000001_04)/2) + nfa_4c_sr000001_04));
     else if (nfa_4c_sr000001_04 >= 0 & nfa_4c_sr000002_trunc_04 >= 0 & nfa_4c_sr000002_trunc_04 < nfa_4c_sr000001_04) then
     marketvalue_vehicles4 = (marketvalue_vehicles4 + (((nfa_4c_sr000001_04 - nfa_4c_sr000002_trunc_04)/2) + nfa_4c_sr000002_trunc_04));
      else if (nfa_4c_trunc_04 in(-1, -2, -4) & nfa_4c_uab_c_04 = 0) then marketvalue_vehicles4 = (marketvalue_vehicles4 + quartile3);
       else if (nfa_4c_trunc_04 in(-1, -2, -4) & nfa_4c_uab_c_04 = 1) then marketvalue_vehicles4 = (marketvalue_vehicles4 + 40000);
        else if (nfa_4c_uab_a_04 in(-1, -2) | nfa_4c_uab_c_04 in(-1, -2)) then marketvalue_vehicles4 = -3;

/************************************************/
/* CAR Component - marketvalue_vehicles5        */
/************************************************/

if (nfa_4c_trunc_05 >= 0) then marketvalue_vehicles5 = (marketvalue_vehicles5 + nfa_4c_trunc_05);
else if (nfa_4c_trunc_05 in(-1, -2) & nfa_4c_sr000001_05 < 0 & nfa_4c_sr000002_trunc_05 < 0
& nfa_4c_uab_a_05 < 0 & nfa_4c_uab_c_05 < 0) then marketvalue_vehicles5 = nfa_4c_trunc_05;
   else if (nfa_4c_sr000001_05 >= 0 & nfa_4c_sr000002_trunc_05 >= 0 & nfa_4c_sr000002_trunc_05 = nfa_4c_sr000001_05) then
   marketvalue_vehicles5 = (marketvalue_vehicles5 + nfa_4c_sr000001_05);
    else if (nfa_4c_sr000001_05 >= 0 & nfa_4c_sr000002_trunc_05 >= 0 & nfa_4c_sr000002_trunc_05 > nfa_4c_sr000001_05) then
    marketvalue_vehicles5 = (marketvalue_vehicles5 + (((nfa_4c_sr000002_trunc_05 - nfa_4c_sr000001_05)/2) + nfa_4c_sr000001_05));
     else if (nfa_4c_sr000001_05 >= 0 & nfa_4c_sr000002_trunc_05 >= 0 & nfa_4c_sr000002_trunc_05 < nfa_4c_sr000001_05) then
     marketvalue_vehicles5 = (marketvalue_vehicles5 + (((nfa_4c_sr000001_05 - nfa_4c_sr000002_trunc_05)/2) + nfa_4c_sr000002_trunc_05));
        else if (nfa_4c_trunc_05 in(-1, -2, -4) & nfa_4c_uab_c_05 = 0) then marketvalue_vehicles5 = (marketvalue_vehicles5 + quartile3);
         else if (nfa_4c_trunc_05 in(-1, -2, -4) & nfa_4c_uab_c_05 = 1) then marketvalue_vehicles5 = (marketvalue_vehicles5 + 45000);
          else if (nfa_4c_uab_a_05 in(-1, -2) | nfa_4c_uab_c_05 in(-1, -2)) then marketvalue_vehicles5 = -3;

/************************************************/
/* CAR Component - marketvalue_vehicles6        */
/************************************************/

if (nfa_4c_trunc_06 >= 0) then marketvalue_vehicles6 = (marketvalue_vehicles6 + nfa_4c_trunc_06);
else if (nfa_4c_trunc_06 in(-1, -2) & nfa_4c_uab_a_06 < 0 & nfa_4c_uab_c_06 < 0)
then marketvalue_vehicles6 = nfa_4c_trunc_06;
else if (nfa_4c_trunc_06 in(-1, -2, -4) & nfa_4c_uab_c_06 = 0) then marketvalue_vehicles6 = (marketvalue_vehicles6 + quartile3);
   else if (nfa_4c_trunc_06 in(-1, -2, -4) & nfa_4c_uab_c_06 = 1) then marketvalue_vehicles6 = (marketvalue_vehicles6 + 40000);
    else if (nfa_4c_uab_a_06 in(-1, -2) | nfa_4c_uab_c_06 in(-1, -2)) then marketvalue_vehicles6 = -3;

/************************************************/
/* CAR Component - marketvalue_vehicles7        */
/************************************************/

if (nfa_4c_trunc_07 >= 0) then marketvalue_vehicles7 = (marketvalue_vehicles7 + nfa_4c_trunc_07);
else if (nfa_4c_trunc_07 in(-1, -2) & nfa_4c_uab_a_07 < 0) then marketvalue_vehicles7 = nfa_4c_trunc_07;
else if (nfa_4c_uab_a_07 in(-1, -2)) then marketvalue_vehicles7 = -3;

/************************************************/
/* CAR Component - marketvalue_vehicles8        */
/************************************************/

if (nfa_4c_trunc_08 >= 0) then marketvalue_vehicles8 = (marketvalue_vehicles8 + nfa_4c_trunc_08);
else if (nfa_4c_trunc_08 in(-1, -2) & nfa_4c_uab_a_08 < 0 & nfa_4c_uab_c_08 < 0) then marketvalue_vehicles8 = nfa_4c_trunc_08;
else if (nfa_4c_trunc_08 in(-1, -2, -4) & nfa_4c_uab_c_08 = 0) then marketvalue_vehicles8 = (marketvalue_vehicles8 + quartile3);
   else if (nfa_4c_trunc_08 in(-1, -2, -4) & nfa_4c_uab_c_08 = 1) then marketvalue_vehicles8 = (marketvalue_vehicles8 + 60000);
    else if (nfa_4c_uab_a_08 in(-1, -2) | nfa_4c_uab_c_08 in(-1, -2)) then marketvalue_vehicles8 = -3;

/************************************************/
/* CAR Component - marketvalue_vehicles9        */
/************************************************/

if (nfa_4c_trunc_09 >= 0) then marketvalue_vehicles9 = (marketvalue_vehicles9 + nfa_4c_trunc_09);
else if (nfa_4c_trunc_09 in(-1, -2) & nfa_4c_uab_a_09 < 0 & nfa_4c_uab_b_09 < 0) then marketvalue_vehicles9 = nfa_4c_trunc_09;
else if (nfa_4c_trunc_09 in(-1, -2, -4) & nfa_4c_uab_b_09 = 0) then marketvalue_vehicles9 = (marketvalue_vehicles9 + quartile1);
   else if (nfa_4c_trunc_09 in(-1, -2, -4) & nfa_4c_uab_b_09 = 1) then marketvalue_vehicles9 = (marketvalue_vehicles9 + quartile2);
    else if (nfa_4c_uab_a_09 in(-1, -2) | nfa_4c_uab_b_09 in(-1, -2)) then marketvalue_vehicles9 = -3;

/************************************************/
/* CAR Component - marketvalue_vehicles10       */
/************************************************/

if (nfa_4c_trunc_10 >= 0) then marketvalue_vehicles10 = (marketvalue_vehicles10 + nfa_4c_trunc_10);
else if (nfa_4c_trunc_10 in(-1, -2) & nfa_4c_uab_a_10 < 0) then marketvalue_vehicles10 = nfa_4c_trunc_10;
else if (nfa_4c_uab_a_10 in(-1, -2)) then marketvalue_vehicles10 = -3;

/************************************************/
/* CAR Component - marketvalue_vehicles11       */
/************************************************/

if (nfa_4c_trunc_11 >= 0) then marketvalue_vehicles11 = (marketvalue_vehicles11 + nfa_4c_trunc_11);
else if (nfa_4c_trunc_11 in(-1, -2) & nfa_4c_uab_a_11 < 0) then marketvalue_vehicles11 = nfa_4c_trunc_11;
else if (nfa_4c_uab_a_11 in(-1, -2)) then marketvalue_vehicles11 = -3;

/************************************************/
/* CAR Component - marketvalue_vehicles12       */
/************************************************/

if (nfa_4c_trunc_12 >= 0) then marketvalue_vehicles12 = (marketvalue_vehicles12 + nfa_4c_trunc_12);
else if (nfa_4c_trunc_12 in(-1, -2) & nfa_4c_uab_a_12 < 0) then marketvalue_vehicles12 = nfa_4c_trunc_12;
else if (nfa_4c_uab_a_12 in(-1, -2)) then marketvalue_vehicles12 = -3;

/************************************************/
/* CAR Component - marketvalue_vehicles13       */
/************************************************/

if (nfa_4c_trunc_13 >= 0) then marketvalue_vehicles13 = (marketvalue_vehicles13 + nfa_4c_trunc_13);
else if (nfa_4c_trunc_13 in(-1, -2) & nfa_4c_uab_a_13 < 0) then marketvalue_vehicles13 = nfa_4c_trunc_13;
else if (nfa_4c_uab_a_13 in(-1, -2)) then marketvalue_vehicles13 = -3;

/************************************************/
/* CAR Component - marketvalue_vehicles14       */
/************************************************/

if (nfa_4c_trunc_14 >= 0) then marketvalue_vehicles14 = (marketvalue_vehicles14 + nfa_4c_trunc_14);
else if (nfa_4c_trunc_14 in(-1, -2) & nfa_4c_uab_a_14 < 0) then marketvalue_vehicles14 = nfa_4c_trunc_14;
else if (nfa_4c_uab_a_14 in(-1, -2)) then marketvalue_vehicles14 = -3;

/************************************************/
/* CAR Component - marketvalue_vehicles15       */
/************************************************/

if (nfa_4c_trunc_15 >= 0) then marketvalue_vehicles15 = (marketvalue_vehicles15 + nfa_4c_trunc_15);
else if (nfa_4c_trunc_15 in(-1, -2) ) then marketvalue_vehicles15 = nfa_4c_trunc_15;

/************************************************/
/* CAR Component - marketvalue_vehicles16       */
/************************************************/

if (nfa_4c_trunc_16 >= 0) then marketvalue_vehicles16 = (marketvalue_vehicles16 + nfa_4c_trunc_16);
else if (nfa_4c_trunc_16 in(-1, -2)) then marketvalue_vehicles16 = nfa_4c_trunc_16;

/************************************************/
/* CAR Component - marketvalue_vehicles17       */
/************************************************/

if (nfa_4c_trunc_17 >= 0) then marketvalue_vehicles17 = (marketvalue_vehicles17 + nfa_4c_trunc_17);
else if (nfa_4c_trunc_17 in(-1, -2)) then marketvalue_vehicles17 = nfa_4c_trunc_17;

/************************************************/
/* CAR Component - marketvalue_vehicles18       */
/************************************************/

if (nfa_4c_trunc_18 >= 0) then marketvalue_vehicles18 = (marketvalue_vehicles18 + nfa_4c_trunc_18);
else if (nfa_4c_trunc_18 in(-1, -2)) then marketvalue_vehicles18 = nfa_4c_trunc_18;

/************************************************/
/* CAR Component - marketvalue_vehicles19       */
/************************************************/

if (nfa_4c_trunc_19 >= 0) then marketvalue_vehicles19 = (marketvalue_vehicles19 + nfa_4c_trunc_19);
else if (nfa_4c_trunc_19 in(-1, -2)) then marketvalue_vehicles19 = nfa_4c_trunc_19;

/************************************************/
/* CAR Component - marketvalue_vehicles20       */
/************************************************/

if (nfa_4c_trunc_20 >= 0) then marketvalue_vehicles20 = (marketvalue_vehicles20 + nfa_4c_trunc_20);
else if (nfa_4c_trunc_20 in(-1, -2)) then marketvalue_vehicles20 = nfa_4c_trunc_20;

/************************************************/
/* CAR Component - mktval_othervehicles         */
/************************************************/

if (nfa_5 = 1 & nfa_5c_trunc >= 0) then mktval_othervehicles = (mktval_othervehicles + nfa_5c_trunc);
else if (nfa_5 = 1 & nfa_5c_ref_1 = 1 & nfa_5c_sr000001 < 0 & nfa_5c_sr000002 < 0
& nfa_5c_uab_a < 0 & nfa_5c_uab_b < 0 & nfa_5c_uab_c < 0) then mktval_othervehicles = -1;
else if (nfa_5 = 1 & nfa_5c_trunc in(-1, -2) & nfa_5c_sr000001 < 0 & nfa_5c_sr000002 < 0
& nfa_5c_uab_a < 0 & nfa_5c_uab_b < 0 & nfa_5c_uab_c < 0) then mktval_othervehicles = nfa_5c_trunc;
    else if (nfa_5c_sr000001 >= 0 & nfa_5c_sr000002 >= 0 & nfa_5c_sr000002 = nfa_5c_sr000001) then
    mktval_othervehicles = (mktval_othervehicles + nfa_5c_sr000001);
     else if (nfa_5c_sr000001 >= 0 & nfa_5c_sr000002 >= 0 & nfa_5c_sr000002 > nfa_5c_sr000001) then
     mktval_othervehicles = (mktval_othervehicles + (((nfa_5c_sr000002 - nfa_5c_sr000001)/2) + nfa_5c_sr000001));
      else if (nfa_5c_sr000001 >= 0 & nfa_5c_sr000002 >= 0 & nfa_5c_sr000002 < nfa_5c_sr000001) then
      mktval_othervehicles = (mktval_othervehicles + (((nfa_5c_sr000001 - nfa_5c_sr000002)/2) + nfa_5c_sr000002));
       else if (nfa_5c_trunc in(-1, -2, -4) & nfa_5c_uab_b = 0) then mktval_othervehicles = (mktval_othervehicles + quartile1);
        else if (nfa_5c_trunc in(-1, -2, -4) & nfa_5c_uab_b = 1) then mktval_othervehicles = (mktval_othervehicles + quartile2);
         else if (nfa_5c_trunc in(-1, -2, -4) & nfa_5c_uab_c = 0) then mktval_othervehicles = (mktval_othervehicles + quartile3);
          else if (nfa_5c_trunc in(-1, -2, -4) & nfa_5c_uab_c = 1) then mktval_othervehicles = (mktval_othervehicles + 50000);
           else if (nfa_5c_uab_a in(-1, -2) | nfa_5c_uab_b in(-1, -2) | nfa_5c_uab_c in(-1, -2)) then mktval_othervehicles = -3;

/*******************************/
/* Add components CAR          */
/*******************************/

if (mktval_assetpoorcars1 >= 0) then carc = (carc + mktval_assetpoorcars1);
if (mktval_assetpoorcars2 >= 0) then carc = (carc + mktval_assetpoorcars2);
if (marketvalue_vehicles1 >= 0) then carc = (carc + marketvalue_vehicles1);
if (marketvalue_vehicles2 >= 0) then carc = (carc + marketvalue_vehicles2);
if (marketvalue_vehicles3 >= 0) then carc = (carc + marketvalue_vehicles3);
if (marketvalue_vehicles4 >= 0) then carc = (carc + marketvalue_vehicles4);
if (marketvalue_vehicles5 >= 0) then carc = (carc + marketvalue_vehicles5);
if (marketvalue_vehicles6 >= 0) then carc = (carc + marketvalue_vehicles6);
if (marketvalue_vehicles7 >= 0) then carc = (carc + marketvalue_vehicles7);
if (marketvalue_vehicles8 >= 0) then carc = (carc + marketvalue_vehicles8);
if (marketvalue_vehicles9 >= 0) then carc = (carc + marketvalue_vehicles9);
if (marketvalue_vehicles10 >= 0) then carc = (carc + marketvalue_vehicles10);
if (marketvalue_vehicles11 >= 0) then carc = (carc + marketvalue_vehicles11);
if (marketvalue_vehicles12 >= 0) then carc = (carc + marketvalue_vehicles12);
if (marketvalue_vehicles13 >= 0) then carc = (carc + marketvalue_vehicles13);
if (marketvalue_vehicles14 >= 0) then carc = (carc + marketvalue_vehicles14);
if (marketvalue_vehicles15 >= 0) then carc = (carc + marketvalue_vehicles15);
if (marketvalue_vehicles16 >= 0) then carc = (carc + marketvalue_vehicles16);
if (marketvalue_vehicles17 >= 0) then carc = (carc + marketvalue_vehicles17);
if (marketvalue_vehicles18 >= 0) then carc = (carc + marketvalue_vehicles18);
if (marketvalue_vehicles19 >= 0) then carc = (carc + marketvalue_vehicles19);
if (marketvalue_vehicles20 >= 0) then carc = (carc + marketvalue_vehicles20);
if (mktval_othervehicles >= 0) then carc = (carc + mktval_othervehicles);

if (mktval_assetpoorcars1 in(-1, -2, -3)) then carc = -3;
else if (mktval_assetpoorcars2 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles1 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles2 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles3 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles4 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles5 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles6 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles7 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles8 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles9 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles10 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles11 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles12 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles13 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles14 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles15 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles16 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles17 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles18 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles19 in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles20 in(-1, -2, -3)) then carc = -3;
else if (mktval_othervehicles in(-1, -2, -3)) then carc = -3;

/************************/
/* Compute TNFW_TRUNC   */
/************************/
/*******************************************************/
/* TNFW_TRUNC - add components created in above code   */
/*******************************************************/

if (homec >= 0) then tnfw_trunc = (tnfw_trunc + homec );
if (mortc >= 0) then tnfw_trunc = (tnfw_trunc - mortc );
if (pdebtc >= 0) then tnfw_trunc = (tnfw_trunc - pdebtc);
if (cashc >= 0) then tnfw_trunc = (tnfw_trunc + cashc );
if (irac   >= 0) then tnfw_trunc = (tnfw_trunc + irac );
if (a401kc >= 0) then tnfw_trunc = (tnfw_trunc + a401kc);
if (cdsc   >= 0) then tnfw_trunc = (tnfw_trunc + cdsc );
if (stockc >= 0) then tnfw_trunc = (tnfw_trunc + stockc);
if (bizc   >= 0) then tnfw_trunc = (tnfw_trunc + bizc );
if (bdebtc >= 0) then tnfw_trunc = (tnfw_trunc - bdebtc);
if (cdebtc >= 0) then tnfw_trunc = (tnfw_trunc - cdebtc);
if (carc   >= 0) then tnfw_trunc = (tnfw_trunc + carc );
if (posesc >= 0) then tnfw_trunc = (tnfw_trunc + posesc);
if (odebtc >= 0) then tnfw_trunc = (tnfw_trunc - odebtc);

if (homec in(-1, -2, -3)) then tnfw_trunc = -3;
if (mortc in(-1, -2, -3)) then tnfw_trunc = -3;
if (pdebtc in(-1, -2, -3)) then tnfw_trunc = -3;
if (cashc in(-1, -2, -3)) then tnfw_trunc = -3;
if (irac   in(-1, -2, -3)) then tnfw_trunc = -3;
if (a401kc in(-1, -2, -3)) then tnfw_trunc = -3;
if (cdsc   in(-1, -2, -3)) then tnfw_trunc = -3;
if (stockc in(-1, -2, -3)) then tnfw_trunc = -3;
if (bizc   in(-1, -2, -3)) then tnfw_trunc = -3;
if (bdebtc in(-1, -2, -3)) then tnfw_trunc = -3;
if (cdebtc in(-1, -2, -3)) then tnfw_trunc = -3;
if (carc   in(-1, -2, -3)) then tnfw_trunc = -3;
if (posesc in(-1, -2, -3)) then tnfw_trunc = -3;
if (odebtc in(-1, -2, -3)) then tnfw_trunc = -3;

/****************************************/
/* APPLY TOPCODE TO TNFW_TRUNC FOR 2016 */
/****************************************/

if (tnfw_trunc_2016 > 3132500) then tnfw_trunc_2016 = 5526252;

tnfw_trunc_2016 = round(tnfw_trunc_2016);

/***************************************************************/
/* TNFW_TRUNC - adjust for partially missing range estimates   */
/***************************************************************/

if    (tnfw_trunc ~= -3 &
         ((nfa_1a_sr000001 >= 0 & nfa_1a_sr000002 in(-1, -2)) | (nfa_1a_sr000001 in(-1, -2) & nfa_1a_sr000002 >= 0)
       | (nfa_1b_sr000001 >= 0 & nfa_1b_sr000002 in(-1, -2)) | (nfa_1b_sr000001 in(-1, -2) & nfa_1b_sr000002 >= 0)
       | (nfa_1c_sr000001 >= 0 & nfa_1c_sr000002 in(-1, -2)) | (nfa_1c_sr000001 in(-1, -2) & nfa_1c_sr000002 >= 0)
       | (nfa_2a_sr000001 >= 0 & nfa_2a_sr000002 in(-1, -2)) | (nfa_2a_sr000001 in(-1, -2) & nfa_2a_sr000002 >= 0)
       | (nfa_2b_sr000001 >= 0 & nfa_2b_sr000002 in(-1, -2)) | (nfa_2b_sr000001 in(-1, -2) & nfa_2b_sr000002 >= 0)
       | (nfa_2c_sr000001 >= 0 & nfa_2c_sr000002 in(-1, -2)) | (nfa_2c_sr000001 in(-1, -2) & nfa_2c_sr000002 >= 0)
       | (fa_1a_sr000001 >= 0 & fa_1a_sr000002 in(-1, -2)) | (fa_1a_sr000001 in(-1, -2) & fa_1a_sr000002 >= 0)
       | (fa_8d_sr000001_01 >= 0 & fa_8d_sr000002_01 in(-1, -2)) | (fa_8d_sr000001_01 in(-1, -2) & fa_8d_sr000002_01 >= 0)
       | (fa_8d_sr000001_02 >= 0 & fa_8d_sr000002_02 in(-1, -2)) | (fa_8d_sr000001_02 in(-1, -2) & fa_8d_sr000002_02 >= 0)
       | (fa_8d_sr000001_03 >= 0 & fa_8d_sr000002_03 in(-1, -2)) | (fa_8d_sr000001_03 in(-1, -2) & fa_8d_sr000002_03 >= 0)
       | (fa_8d_sr000001_04 >= 0 & fa_8d_sr000002_04 in(-1, -2)) | (fa_8d_sr000001_04 in(-1, -2) & fa_8d_sr000002_04 >= 0)
       | (fa_8d_sr000001_05 >= 0 & fa_8d_sr000002_05 in(-1, -2)) | (fa_8d_sr000001_05 in(-1, -2) & fa_8d_sr000002_05 >= 0)
       | (fa_8d_sr000001_06 >= 0 & fa_8d_sr000002_06 in(-1, -2)) | (fa_8d_sr000001_06 in(-1, -2) & fa_8d_sr000002_06 >= 0)
       | (fa_8d_sr000001_07 >= 0 & fa_8d_sr000002_07 in(-1, -2)) | (fa_8d_sr000001_07 in(-1, -2) & fa_8d_sr000002_07 >= 0)
       | (fa_6e_sr000001 >= 0 & fa_6e_sr000002 in(-1, -2)) | (fa_6e_sr000001 in(-1, -2) & fa_6e_sr000002 >= 0)
       | (fa_7c_sr000001 >= 0 & fa_7c_sr000002 in(-1, -2)) | (fa_7c_sr000001 in(-1, -2) & fa_7c_sr000002 >= 0)
       | (fa_2a_sr000001 >= 0 & fa_2a_sr000002 in(-1, -2)) | (fa_2a_sr000001 in(-1, -2) & fa_2a_sr000002 >= 0)
       | (fa_3a_sr000001 >= 0 & fa_3a_sr000002 in(-1, -2)) | (fa_3a_sr000001 in(-1, -2) & fa_3a_sr000002 >= 0)
       | (fa_4a_sr000001 >= 0 & fa_4a_sr000002 in(-1, -2)) | (fa_4a_sr000001 in(-1, -2) & fa_4a_sr000002 >= 0)
       | (fa_5a_sr000001 >= 0 & fa_5a_sr000002 in(-1, -2)) | (fa_5a_sr000001 in(-1, -2) & fa_5a_sr000002 >= 0)
       | (fa_9a_sr000001 >= 0 & fa_9a_sr000002 in(-1, -2)) | (fa_9a_sr000001 in(-1, -2) & fa_9a_sr000002 >= 0)
       | (fa_10a_sr000001 >= 0 & fa_10a_sr000002 in(-1, -2)) | (fa_10a_sr000001 in(-1, -2) & fa_10a_sr000002 >= 0)
       | (fa_11a_sr000001 >= 0 & fa_11a_sr000002 in(-1, -2)) | (fa_11a_sr000001 in(-1, -2) & fa_11a_sr000002 >= 0)
       | (q13_131_sr000001 >= 0 & q13_131_sr000002 in(-1, -2)) | (q13_131_sr000001 in(-1, -2) & q13_131_sr000002 >= 0)
       | (q13_132_sr000001 >= 0 & q13_132_sr000002 in(-1, -2)) | (q13_132_sr000001 in(-1, -2) & q13_132_sr000002 >= 0)
       | (sc_12b_sr000001_01 >= 0 & sc_12b_sr000002_01 in(-1, -2)) | (sc_12b_sr000001_01 in(-1, -2) & sc_12b_sr000002_01 >= 0)
       | (sc_12b_sr000001_02 >= 0 & sc_12b_sr000002_02 in(-1, -2)) | (sc_12b_sr000001_02 in(-1, -2) & sc_12b_sr000002_02 >= 0)
       | (nfa_4f_sr000001_01 >= 0 & nfa_4f_sr000002_01 in(-1, -2)) | (nfa_4f_sr000001_01 in(-1, -2) & nfa_4f_sr000002_01 >= 0)
       | (nfa_4f_sr000001_02 >= 0 & nfa_4f_sr000002_02 in(-1, -2)) | (nfa_4f_sr000001_02 in(-1, -2) & nfa_4f_sr000002_02 >= 0)
       | (nfa_4f_sr000001_03 >= 0 & nfa_4f_sr000002_03 in(-1, -2)) | (nfa_4f_sr000001_03 in(-1, -2) & nfa_4f_sr000002_03 >= 0)
       | (nfa_4f_sr000001_04 >= 0 & nfa_4f_sr000002_04 in(-1, -2)) | (nfa_4f_sr000001_04 in(-1, -2) & nfa_4f_sr000002_04 >= 0)
       | (sc_12a_sr000001_01 >= 0 & sc_12a_sr000002_01 in(-1, -2)) | (sc_12a_sr000001_01 in(-1, -2) & sc_12a_sr000002_01 >= 0)
       | (nfa_4c_sr000001_01 >= 0 & nfa_4c_sr000002_01 in(-1, -2)) | (nfa_4c_sr000001_01 in(-1, -2) & nfa_4c_sr000002_01 >= 0)
       | (nfa_4c_sr000001_02 >= 0 & nfa_4c_sr000002_02 in(-1, -2)) | (nfa_4c_sr000001_02 in(-1, -2) & nfa_4c_sr000002_02 >= 0)
       | (nfa_4c_sr000001_03 >= 0 & nfa_4c_sr000002_03 in(-1, -2)) | (nfa_4c_sr000001_03 in(-1, -2) & nfa_4c_sr000002_03 >= 0)
       | (nfa_4c_sr000001_04 >= 0 & nfa_4c_sr000002_04 in(-1, -2)) | (nfa_4c_sr000001_04 in(-1, -2) & nfa_4c_sr000002_04 >= 0)
       | (nfa_4c_sr000001_05 >= 0 & nfa_4c_sr000002_05 in(-1, -2)) | (nfa_4c_sr000001_05 in(-1, -2) & nfa_4c_sr000002_05 >= 0)
       | (nfa_5c_sr000001 >= 0 & nfa_5c_sr000002 in(-1, -2)) | (nfa_5c_sr000001 in(-1, -2) & nfa_5c_sr000002 >= 0)
       | (nfa_6e_sr000001 >= 0 & nfa_6e_sr000002 in(-1, -2)) | (nfa_6e_sr000001 in(-1, -2) & nfa_6e_sr000002 >= 0)))
       then tnfw_trunc = -3;
end;
;

2020 TNFW_TRUNC Variable Creation

/***************************************************/
/* Compute dollar amt for dollars & cents vars */
/***************************************************/

nfa_7d_dc = nfa_7d_trunc;
if (nfa_7d_trunc > 0) then nfa_7d_dc = (nfa_7d_trunc/100);

/***************************************************/
/* Compute dynamic QUARTILE VALUES where necessary */
/* -- quartile4 defaults to 30000 if no specific */
/* value determined from frequencies */
/***************************************************/

array quartileqs (i) quartile1 quartile2 quartile3 quartile4;

do i = 1 to 4;
quartileqs = 0;
end;

if (symbol_entry_othhh = 7200) then do;
quartile1 = (5000/2);
quartile2 = (5000 + ((7200-5000)/2));
quartile3 = (7200 + ((30000-7200)/2));
quartile4 = 30000;
end;
else if (symbol_entry_othhh = 13000) then do;
quartile1 = (5000/2);
quartile2 = (5000 + ((13000-5000)/2));
quartile3 = (13000 + ((30000-13000)/2));
quartile4 = 30000;
end;

/***************************************************/
/* BEGIN COMPUTATIONS FOR NET WEALTH COMPONENTS */
/***************************************************/

array assetsc (i) homec mortc pdebtc cashc irac a401kc cdsc stockc trustc bizc
bdebtc cdebtc carc posesc odebtc tnfw
collections items ccdebt studentloan childstudentloan owebusiness otherdebt
solebiz farm_1_value1 farm_2_value1 business_1_value1 business_2_value1
business_3_value1 business_4_value1 realestate_1_value1
realestate_2_value1 realestate_3_value1 realestate_4_value1 realestate_5_value1
farm_1_value farm_2_value business_1_value business_2_value
business_3_value business_4_value realestate_1_value
realestate_2_value realestate_3_value realestate_4_value realestate_5_value
debtbiz farm_1_debt1 farm_2_debt1 business_1_debt1 business_2_debt1
business_3_debt1 business_4_debt1 realestate_1_debt1
realestate_2_debt1 realestate_3_debt1 realestate_4_debt1 realestate_5_debt1
farm_1_debt farm_2_debt business_1_debt business_2_debt
business_3_debt business_4_debt realestate_1_debt
govbonds mutual lifeinsure shares corpbond moneyowedtor
home1 secondhome mort1 secondmort pdebt1 secondpdebt
ira1 ira2 ira3 ira4 ira5 ira6 ira7 r_401k sp_401k
amtowe_assetpoorcars
amountowe_vehicles amtowe_othervehicles
mktval_assetpoorcars
marketvalue_vehicles mktval_othervehicles;

do i = 1 to 92;
if (sampweight = 0) then assetsc = -5;
else if (sampweight > 0) then assetsc = 0;
end;

/****************************/
/* Compute POSES */
/****************************/
/*****************************************/
/* POSES Component - collections: */
/*****************************************/

if (nfa_6a = 1 & nfa_6e_trunc >= 0) then collections = (collections + nfa_6e_trunc);
else if (nfa_6a = 1 & nfa_6e_ref_1 = 1 & nfa_6e_sr000001 < 0 & nfa_6e_sr000002_trunc < 0
& nfa_6e_uab_a < 0 & nfa_6e_uab_b < 0 & nfa_6e_uab_c < 0) then collections = -1;
else if (nfa_6a = 1 & nfa_6e_trunc in(-1, -2) & (nfa_6e_sr000001 < 0 | nfa_6e_sr000002_trunc < 0)
& nfa_6e_uab_a < 0 & nfa_6e_uab_b < 0 & nfa_6e_uab_c < 0) then collections = nfa_6e_trunc;
else if (nfa_6e_sr000001 >= 0 & nfa_6e_sr000002_trunc >= 0 & nfa_6e_sr000002_trunc = nfa_6e_sr000001) then
collections = (collections + nfa_6e_sr000001);
else if (nfa_6e_sr000001 >= 0 & nfa_6e_sr000002_trunc >= 0 & nfa_6e_sr000002_trunc > nfa_6e_sr000001) then
collections = (collections + (((nfa_6e_sr000002_trunc - nfa_6e_sr000001)/2) + nfa_6e_sr000001));
else if (nfa_6e_sr000001 >= 0 & nfa_6e_sr000002_trunc >= 0 & nfa_6e_sr000002_trunc < nfa_6e_sr000001) then
collections = (collections + (((nfa_6e_sr000001 - nfa_6e_sr000002_trunc)/2) + nfa_6e_sr000002_trunc));
else if (nfa_6e_trunc in(-1, -2, -4) & nfa_6e_uab_b = 0) then collections = (collections + quartile1);
else if (nfa_6e_trunc in(-1, -2, -4) & nfa_6e_uab_b = 1) then collections = (collections + quartile2);
else if (nfa_6e_trunc in(-1, -2, -4) & nfa_6e_uab_c = 0) then collections = (collections + quartile3);
else if (nfa_6e_trunc in(-1, -2, -4) & nfa_6e_uab_c = 1) then collections = (collections + 75000);
else if (nfa_6e_uab_a in(-1, -2) | nfa_6e_uab_b in(-1, -2) | nfa_6e_uab_c in(-1, -2)) then collections = -3;

/**********************************/
/* POSES Component - items: */
/**********************************/

if (nfa_7 = 1 & nfa_7d_dc >= 0) then items = (items + nfa_7d_dc);
else if (nfa_7 = 1 & nfa_7d_ref_1 = 1 & nfa_7d_uab_a < 0 & nfa_7d_uab_b < 0 & nfa_7d_uab_c < 0) then items = -1;
else if (nfa_7 = 1 & nfa_7d_dc in(-1, -2) & nfa_7d_uab_a < 0 & nfa_7d_uab_b < 0 & nfa_7d_uab_c < 0) then items = nfa_7d_dc;
else if (nfa_7d_dc in(-1, -2, -4) & nfa_7d_uab_b = 0) then items = (items + quartile1);
else if (nfa_7d_dc in(-1, -2, -4) & nfa_7d_uab_b = 1) then items = (items + quartile2);
else if (nfa_7d_dc in(-1, -2, -4) & nfa_7d_uab_c = 0) then items = (items + quartile3);
else if (nfa_7d_dc in(-1, -2, -4) & nfa_7d_uab_c = 1) then items = (items + 50000);
else if (nfa_7d_uab_a in(-1, -2) | nfa_7d_uab_b in(-1, -2) | nfa_7d_uab_c in(-1, -2)) then items = -3;

/*******************************/
/* Add components POSES */
/*******************************/

if (collections >= 0) then posesc = (posesc + collections);
if (items >= 0) then posesc = (posesc + items);
if (collections in(-1, -2, -3)) then posesc = -3;
else if (items in(-1, -2, -3)) then posesc = -3;

/****************************/
/* Compute ODEBT */
/****************************/

/************************************/
/* ODEBT Component - ccdebt: */
/************************************/

if (debt_1 = 1 & debt_1a_trunc >= 0) then ccdebt = (ccdebt + debt_1a_trunc);
else if (debt_1 = 1 & debt_1a_ref_1 = 1 & debt_1a_uab_a < 0 & debt_1a_uab_b < 0 & debt_1a_uab_c < 0) then ccdebt = -1;
else if (debt_1 = 1 & debt_1a_trunc in(-1, -2) & debt_1a_uab_a < 0 & debt_1a_uab_b < 0 & debt_1a_uab_c < 0) then ccdebt = debt_1a_trunc;
else if (debt_1a_trunc in(-1, -2, -4) & debt_1a_uab_b = 0) then ccdebt = (ccdebt + quartile1);
else if (debt_1a_trunc in(-1, -2, -4) & debt_1a_uab_b = 1) then ccdebt = (ccdebt + quartile2);
else if (debt_1a_trunc in(-1, -2, -4) & debt_1a_uab_c = 0) then ccdebt = (ccdebt + quartile3);
else if (debt_1a_trunc in(-1, -2, -4) & debt_1a_uab_c = 1) then ccdebt = (ccdebt + 45000);
else if (debt_1a_uab_a in(-1, -2) | debt_1a_uab_b in(-1, -2) | debt_1a_uab_c in(-1, -2)) then ccdebt = -3;

/*****************************************/
/* ODEBT Component - studentloan */
/*****************************************/

if (debt_2 = 1 & debt_2a_trunc >= 0) then studentloan = (studentloan + debt_2a_trunc);
else if (debt_2 = 1 & debt_2a_ref_1 = 1 & debt_2a_uab_a < 0 & debt_2a_uab_b < 0 & debt_2a_uab_c < 0) then studentloan = -1;
else if (debt_2 = 1 & debt_2a_trunc in(-1, -2) & debt_2a_uab_a < 0 & debt_2a_uab_b < 0 & debt_2a_uab_c < 0) then studentloan = debt_2a_trunc;
else if (debt_2a_trunc in(-1, -2, -4) & debt_2a_uab_b = 0) then studentloan = (studentloan + quartile1);
else if (debt_2a_trunc in(-1, -2, -4) & debt_2a_uab_b = 1) then studentloan = (studentloan + quartile2);
else if (debt_2a_trunc in(-1, -2, -4) & debt_2a_uab_c = 0) then studentloan = (studentloan + quartile3);
else if (debt_2a_trunc in(-1, -2, -4) & debt_2a_uab_c = 1) then studentloan = (studentloan + 70000);
else if (debt_2a_uab_a in(-1, -2) | debt_2a_uab_b in(-1, -2) | debt_2a_uab_c in(-1, -2)) then studentloan = -3;

/*********************************************/
/* ODEBT Component - childstudentloan */
/*********************************************/

if (debt_2c = 1 & debt_2d_trunc >= 0) then childstudentloan = (childstudentloan + debt_2d_trunc);
else if (debt_2c = 1 & debt_2d_ref_1 = 1 & debt_2d_uab_a < 0 & debt_2d_uab_b < 0 & debt_2d_uab_c < 0) then childstudentloan = -1;
else if (debt_2c = 1 & debt_2d_trunc in(-1, -2) & debt_2d_uab_a < 0 & debt_2d_uab_b < 0 & debt_2d_uab_c < 0) then childstudentloan = debt_2d_trunc;
else if (debt_2d_trunc in(-1, -2, -4) & debt_2d_uab_b = 0) then childstudentloan = (childstudentloan + quartile1);
else if (debt_2d_trunc in(-1, -2, -4) & debt_2d_uab_b = 1) then childstudentloan = (childstudentloan + quartile2);
else if (debt_2d_trunc in(-1, -2, -4) & debt_2d_uab_c = 0) then childstudentloan = (childstudentloan + quartile3);
else if (debt_2d_trunc in(-1, -2, -4) & debt_2d_uab_c = 1) then childstudentloan = (childstudentloan + 67500);
else if (debt_2d_uab_a in(-1, -2) | debt_2d_uab_b in(-1, -2) | debt_2d_uab_c in(-1, -2)) then childstudentloan = -3;

/****************************************/
/* ODEBT Component - owebusiness */
/****************************************/

if (debt_3 = 1 & debt_3a_trunc >= 0) then owebusiness = (owebusiness + debt_3a_trunc);
else if (debt_3 = 1 & debt_3a_ref_1 = 1 & debt_3a_uab_a < 0 & debt_3a_uab_b < 0 & debt_3a_uab_c < 0) then owebusiness = -1;
else if (debt_3 = 1 & debt_3a_trunc in(-1, -2) & debt_3a_uab_a < 0 & debt_3a_uab_b < 0 & debt_3a_uab_c < 0) then owebusiness = debt_3a_trunc;
else if (debt_3a_trunc in(-1, -2, -4) & debt_3a_uab_b = 0) then owebusiness = (owebusiness + quartile1);
else if (debt_3a_trunc in(-1, -2, -4) & debt_3a_uab_b = 1) then owebusiness = (owebusiness + quartile2);
else if (debt_3a_trunc in(-1, -2, -4) & debt_3a_uab_c = 0) then owebusiness = (owebusiness + quartile3);
else if (debt_3a_trunc in(-1, -2, -4) & debt_3a_uab_c = 1) then owebusiness = (owebusiness + 60000);
else if (debt_3a_uab_a in(-1, -2) | debt_3a_uab_b in(-1, -2) | debt_3a_uab_c in(-1, -2)) then owebusiness = -3;

/*****************************************/
/* ODEBT Component - otherdebt */
/*****************************************/

if (debt_4 = 1 & debt_4a_trunc >= 0) then otherdebt = (otherdebt + debt_4a_trunc);
else if (debt_4 = 1 & debt_4a_ref_1 = 1
& debt_4a_uab_a < 0 & debt_4a_uab_b < 0 & debt_4a_uab_c < 0) then otherdebt = -1;
else if (debt_4 = 1 & debt_4a_trunc in(-1, -2) & debt_4a_uab_a < 0 & debt_4a_uab_b < 0 & debt_4a_uab_c < 0) then otherdebt = debt_4a_trunc;
else if (debt_4a_trunc in(-1, -2, -4) & debt_4a_uab_b = 0) then otherdebt = (otherdebt + quartile1);
else if (debt_4a_trunc in(-1, -2, -4) & debt_4a_uab_b = 1) then otherdebt = (otherdebt + quartile2);
else if (debt_4a_trunc in(-1, -2, -4) & debt_4a_uab_c = 0) then otherdebt = (otherdebt + quartile3);
else if (debt_4a_trunc in(-1, -2, -4) & debt_4a_uab_c = 1) then otherdebt = (otherdebt + 50000);
else if (debt_4a_uab_a in(-1, -2) | debt_4a_uab_b in(-1, -2) | debt_4a_uab_c in(-1, -2)) then otherdebt = -3;

/*******************************/
/* Add components ODEBT */
/*******************************/

if (ccdebt >= 0) then odebtc = (odebtc + ccdebt);
if (studentloan >= 0) then odebtc = (odebtc + studentloan);
if (childstudentloan >= 0) then odebtc = (odebtc + childstudentloan);
if (owebusiness >= 0) then odebtc = (odebtc + owebusiness);
if (otherdebt >= 0) then odebtc = (odebtc + otherdebt);
if (ccdebt in(-1, -2, -3)) then odebtc = -3;
else if (studentloan in(-1, -2, -3)) then odebtc = -3;
else if (childstudentloan in(-1, -2, -3)) then odebtc = -3;
else if (owebusiness in(-1, -2, -3)) then odebtc = -3;
else if (otherdebt in(-1, -2, -3)) then odebtc = -3;

/********************/
/* Compute BIZ */
/********************/

/************************************/
/* BIZ Component - solebiz: */
/************************************/

if (q13_131_trunc >= 0) then solebiz = (solebiz + q13_131_trunc);
else if (q13_131_trunc = 1 & q13_131_ref_1 = 1 & q13_131_sr000001 < 0 & q13_131_sr000002 < 0
& q13_131_uab_a < 0 & q13_131_uab_c < 0) then solebiz = -1;
else if (q13_131_trunc in(-1, -2) & (q13_131_sr000001 < 0 | q13_131_sr000002 < 0)
& q13_131_uab_a < 0 & q13_131_uab_c < 0) then solebiz = q13_131_trunc;
else if (q13_131_sr000001 >= 0 & q13_131_sr000002 >= 0 & q13_131_sr000002 = q13_131_sr000001) then
solebiz = (solebiz + q13_131_sr000001);
else if (q13_131_sr000001 >= 0 & q13_131_sr000002 >= 0 & q13_131_sr000002 > q13_131_sr000001) then
solebiz = (solebiz + (((q13_131_sr000002 - q13_131_sr000001)/2) + q13_131_sr000001));
else if (q13_131_sr000001 >= 0 & q13_131_sr000002 >= 0 & q13_131_sr000002 < q13_131_sr000001) then
solebiz = (solebiz + (((q13_131_sr000001 - q13_131_sr000002)/2) + q13_131_sr000002));
else if (q13_131_trunc in(-1, -2, -4) & q13_131_uab_c = 0) then solebiz = (solebiz + quartile3);
else if (q13_131_trunc in(-1, -2, -4) & q13_131_uab_c = 1) then solebiz = (solebiz + 310000);
else if (q13_131_uab_a in(-1, -2) | q13_131_uab_c in(-1, -2)) then solebiz = -3;

/********************************************************************************************************/
/* BIZ Components - farm_#_value, business_#_value, realestate_#_value & percentage ownership */
/********************************************************************************************************/

if (q13_fjt_11_trunc_01 > -4) then farm_1_value1 = q13_fjt_11_trunc_01;
if (q13_fjt_11_trunc_02 > -4) then farm_2_value1 = q13_fjt_11_trunc_02;
if (q13_bppjt_11_trunc_01 > -4) then business_1_value1 = q13_bppjt_11_trunc_01;
if (q13_bppjt_11_trunc_02 > -4) then business_2_value1 = q13_bppjt_11_trunc_02;
if (q13_bppjt_11_trunc_03 > -4) then business_3_value1 = q13_bppjt_11_trunc_03;
if (q13_bppjt_11_trunc_04 > -4) then business_4_value1 = q13_bppjt_11_trunc_04;
if (q13_bppjt_11_trunc_05 > -4) then business_5_value1 = q13_bppjt_11_trunc_05;
if (q13_rejt_11_trunc_01 > -4) then realestate_1_value1 = q13_rejt_11_trunc_01;
if (q13_rejt_11_trunc_02 > -4) then realestate_2_value1 = q13_rejt_11_trunc_02;
if (q13_rejt_11_03 > -4) then realestate_3_value1 = q13_rejt_11_03;
if (q13_rejt_11_04 > -4) then realestate_4_value1 = q13_rejt_11_04;

if (q13_fjt_12b_01 > -4) then farm_1_pcntshare = q13_fjt_12b_01;
if (q13_fjt_12b_02 > -4) then farm_2_pcntshare = q13_fjt_12b_02;
if (q13_bppjt_12b_01 > -4) then business_1_pcntshare = q13_bppjt_12b_01;
if (q13_bppjt_12b_02 > -4) then business_2_pcntshare = q13_bppjt_12b_02;
if (q13_bppjt_12b_03 > -4) then business_3_pcntshare = q13_bppjt_12b_03;
if (q13_bppjt_12b_04 > -4) then business_4_pcntshare = q13_bppjt_12b_04;
if (q13_bppjt_12b_05 > -4) then business_5_pcntshare = q13_bppjt_12b_05;
if (q13_rejt_12b_01 > -4) then realestate_1_pcntshare = q13_rejt_12b_01;
if (q13_rejt_12b_02 > -4) then realestate_2_pcntshare = q13_rejt_12b_02;
if (q13_rejt_12b_03 > -4) then realestate_3_pcntshare = q13_rejt_12b_03;
if (q13_rejt_12b_04 > -4) then realestate_4_pcntshare = q13_rejt_12b_04;

if (farm_1_pcntshare > 0) then farm_1_pcntshare = (farm_1_pcntshare / 100);
if (farm_2_pcntshare > 0) then farm_2_pcntshare = (farm_2_pcntshare / 100);
if (business_1_pcntshare > 0) then business_1_pcntshare = (business_1_pcntshare / 100);
if (business_2_pcntshare > 0) then business_2_pcntshare = (business_2_pcntshare / 100);
if (business_3_pcntshare > 0) then business_3_pcntshare = (business_3_pcntshare / 100);
if (business_4_pcntshare > 0) then business_4_pcntshare = (business_4_pcntshare / 100);
if (business_5_pcntshare > 0) then business_5_pcntshare = (business_5_pcntshare / 100);
if (realestate_1_pcntshare > 0) then realestate_1_pcntshare = (realestate_1_pcntshare / 100);
if (realestate_2_pcntshare > 0) then realestate_2_pcntshare = (realestate_2_pcntshare / 100);
if (realestate_3_pcntshare > 0) then realestate_3_pcntshare = (realestate_3_pcntshare / 100);
if (realestate_4_pcntshare > 0) then realestate_4_pcntshare = (realestate_4_pcntshare / 100);

if (farm_1_value1 >= 0 & farm_1_pcntshare >= 0) then farm_1_value = (farm_1_value1 * farm_1_pcntshare);
if (farm_2_value1 >= 0 & farm_2_pcntshare >= 0) then farm_2_value = (farm_2_value1 * farm_2_pcntshare);
if (business_1_value1 >= 0 & business_1_pcntshare >= 0) then business_1_value = (business_1_value1 * business_1_pcntshare);
if (business_2_value1 >= 0 & business_2_pcntshare >= 0) then business_2_value = (business_2_value1 * business_2_pcntshare);
if (business_3_value1 >= 0 & business_3_pcntshare >= 0) then business_3_value = (business_3_value1 * business_3_pcntshare);
if (business_4_value1 >= 0 & business_4_pcntshare >= 0) then business_4_value = (business_4_value1 * business_4_pcntshare);
if (business_5_value1 >= 0 & business_5_pcntshare >= 0) then business_5_value = (business_5_value1 * business_5_pcntshare);
if (realestate_1_value1 >= 0 & realestate_1_pcntshare >= 0) then realestate_1_value = (realestate_1_value1 * realestate_1_pcntshare);
if (realestate_2_value1 >= 0 & realestate_2_pcntshare >= 0) then realestate_2_value = (realestate_2_value1 * realestate_2_pcntshare);
if (realestate_3_value1 >= 0 & realestate_3_pcntshare >= 0) then realestate_3_value = (realestate_3_value1 * realestate_3_pcntshare);
if (realestate_4_value1 >= 0 & realestate_4_pcntshare >= 0) then realestate_4_value = (realestate_4_value1 * realestate_4_pcntshare);

/*******************************/
/* Add components BIZ */
/*******************************/

if (solebiz >= 0) then bizc = (bizc + solebiz);
if (farm_1_value >= 0) then bizc = (bizc + farm_1_value);
if (farm_2_value >= 0) then bizc = (bizc + farm_2_value);
if (business_1_value >= 0) then bizc = (bizc + business_1_value);
if (business_2_value >= 0) then bizc = (bizc + business_2_value);
if (business_3_value >= 0) then bizc = (bizc + business_3_value);
if (business_4_value >= 0) then bizc = (bizc + business_4_value);
if (business_5_value >= 0) then bizc = (bizc + business_5_value);
if (realestate_1_value >= 0) then bizc = (bizc + realestate_1_value);
if (realestate_2_value >= 0) then bizc = (bizc + realestate_2_value);
if (realestate_3_value >= 0) then bizc = (bizc + realestate_3_value);
if (realestate_4_value >= 0) then bizc = (bizc + realestate_4_value);

if (solebiz in(-1, -2, -3)) then bizc = -3;
if (farm_1_value1 in(-1, -2, -3) | farm_1_pcntshare in(-1, -2, -3)) then bizc = -3;
if (farm_2_value1 in(-1, -2, -3) | farm_2_pcntshare in(-1, -2, -3)) then bizc = -3;
if (business_1_value1 in(-1, -2, -3) | business_1_pcntshare in(-1, -2, -3)) then bizc = -3;
if (business_2_value1 in(-1, -2, -3) | business_2_pcntshare in(-1, -2, -3)) then bizc = -3;
if (business_3_value1 in(-1, -2, -3) | business_3_pcntshare in(-1, -2, -3)) then bizc = -3;
if (business_4_value1 in(-1, -2, -3) | business_4_pcntshare in(-1, -2, -3)) then bizc = -3;
if (business_5_value1 in(-1, -2, -3) | business_5_pcntshare in(-1, -2, -3)) then bizc = -3;
if (realestate_1_value1 in(-1, -2, -3) | realestate_1_pcntshare in(-1, -2, -3)) then bizc = -3;
if (realestate_2_value1 in(-1, -2, -3) | realestate_2_pcntshare in(-1, -2, -3)) then bizc = -3;
if (realestate_3_value1 in(-1, -2, -3) | realestate_3_pcntshare in(-1, -2, -3)) then bizc = -3;
if (realestate_4_value1 in(-1, -2, -3) | realestate_4_pcntshare in(-1, -2, -3)) then bizc = -3;

/****************************/
/* Compute BDEBT */
/****************************/

/**************************************/
/* BDEBT Component - debtbiz: */
/**************************************/

if (q13_132_trunc >= 0) then debtbiz = (debtbiz + q13_132_trunc);
else if (q13_132_trunc = 1 & q13_132_ref_1 = 1 & q13_132_sr000001 < 0 & q13_132_sr000002 < 0
& q13_132_uab_a < 0 & q13_132_uab_c < 0) then debtbiz = -1;
else if (q13_132_trunc in(-1, -2) & (q13_132_sr000001 < 0 | q13_132_sr000002 < 0)
& q13_132_uab_a < 0 & q13_132_uab_c < 0) then debtbiz = q13_132_trunc;
else if (q13_132_sr000001 >= 0 & q13_132_sr000002 >= 0 & q13_132_sr000002 = q13_132_sr000001) then
debtbiz = (debtbiz + q13_132_sr000001);
else if (q13_132_sr000001 >= 0 & q13_132_sr000002 >= 0 & q13_132_sr000002 > q13_132_sr000001) then
debtbiz = (debtbiz + (((q13_132_sr000002 - q13_132_sr000001)/2) + q13_132_sr000001));
else if (q13_132_sr000001 >= 0 & q13_132_sr000002 >= 0 & q13_132_sr000002 < q13_132_sr000001) then
debtbiz = (debtbiz + (((q13_132_sr000001 - q13_132_sr000002)/2) + q13_132_sr000002));
else if (q13_132_trunc in(-1, -2, -4) & q13_132_uab_c = 0) then debtbiz = (debtbiz + quartile3);
else if (q13_132_trunc in(-1, -2, -4) & q13_132_uab_c = 1) then debtbiz = (debtbiz + 187000);
else if (q13_132_uab_a in(-1, -2) | q13_132_uab_c in(-1, -2)) then debtbiz = -3;

/*********************************************************************************/
/* BDEBT Components - farm_#_debt, business_#_debt, realestate_#_debt */
/*********************************************************************************/

if (q13_fjt_12_01 > -4) then farm_1_debt1 = q13_fjt_12_01;
if (q13_fjt_12_02 > -4) then farm_2_debt1 = q13_fjt_12_02;
if (q13_bppjt_12_trunc_01 > -4) then business_1_debt1 = q13_bppjt_12_trunc_01;
if (q13_bppjt_12_trunc_02 > -4) then business_2_debt1 = q13_bppjt_12_trunc_02;
if (q13_bppjt_12_trunc_03 > -4) then business_3_debt1 = q13_bppjt_12_trunc_03;
if (q13_bppjt_12_04 > -4) then business_4_debt1 = q13_bppjt_12_04;
if (q13_bppjt_12_05 > -4) then business_5_debt1 = q13_bppjt_12_05;
if (q13_rejt_12_trunc > -4) then realestate_1_debt1 = q13_rejt_12_trunc;

if (farm_1_debt1 >= 0 & farm_1_pcntshare >= 0) then farm_1_debt = (farm_1_debt1 * farm_1_pcntshare);
if (farm_2_debt1 >= 0 & farm_2_pcntshare >= 0) then farm_2_debt = (farm_2_debt1 * farm_2_pcntshare);
if (business_1_debt1 >= 0 & business_1_pcntshare >= 0) then business_1_debt = (business_1_debt1 * business_1_pcntshare);
if (business_2_debt1 >= 0 & business_2_pcntshare >= 0) then business_2_debt = (business_2_debt1 * business_2_pcntshare);
if (business_3_debt1 >= 0 & business_3_pcntshare >= 0) then business_3_debt = (business_3_debt1 * business_3_pcntshare);
if (business_4_debt1 >= 0 & business_4_pcntshare >= 0) then business_4_debt = (business_4_debt1 * business_4_pcntshare);
if (business_5_debt1 >= 0 & business_5_pcntshare >= 0) then business_5_debt = (business_5_debt1 * business_5_pcntshare);
if (realestate_1_debt1 >= 0 & realestate_1_pcntshare >= 0) then realestate_1_debt = (realestate_1_debt1 * realestate_1_pcntshare);

/*******************************/
/* Add components BDEBT */
/*******************************/

if (debtbiz >= 0) then bdebtc = (bdebtc + debtbiz);
if (farm_1_debt >= 0) then bdebtc = (bdebtc + farm_1_debt);
if (farm_2_debt >= 0) then bdebtc = (bdebtc + farm_2_debt);
if (business_1_debt >= 0) then bdebtc = (bdebtc + business_1_debt);
if (business_2_debt >= 0) then bdebtc = (bdebtc + business_2_debt);
if (business_3_debt >= 0) then bdebtc = (bdebtc + business_3_debt);
if (business_4_debt >= 0) then bdebtc = (bdebtc + business_4_debt);
if (business_5_debt >= 0) then bdebtc = (bdebtc + business_5_debt);
if (realestate_1_debt >= 0) then bdebtc = (bdebtc + realestate_1_debt);

if (debtbiz in(-1, -2, -3)) then bdebtc = -3;
if (farm_1_debt1 in(-1, -2, -3) | farm_1_pcntshare in(-1, -2, -3)) then bdebtc = -3;
if (farm_2_debt1 in(-1, -2, -3) | farm_2_pcntshare in(-1, -2, -3)) then bdebtc = -3;
if (business_1_debt1 in(-1, -2, -3) | business_1_pcntshare in(-1, -2, -3)) then bdebtc = -3;
if (business_2_debt1 in(-1, -2, -3) | business_2_pcntshare in(-1, -2, -3)) then bdebtc = -3;
if (business_3_debt1 in(-1, -2, -3) | business_3_pcntshare in(-1, -2, -3)) then bdebtc = -3;
if (business_4_debt1 in(-1, -2, -3) | business_4_pcntshare in(-1, -2, -3)) then bdebtc = -3;
if (business_5_debt1 in(-1, -2, -3) | business_5_pcntshare in(-1, -2, -3)) then bdebtc = -3;
if (realestate_1_debt1 in(-1, -2, -3) | realestate_1_pcntshare in(-1, -2, -3)) then bdebtc = -3;

/****************************/
/* Compute CASH */
/****************************/

/**********************************/
/* CASH Component - cash: */
/**********************************/

if (fa_1 = 1 & fa_1a_trunc >= 0) then cashc = (cashc + fa_1a_trunc);
else if (fa_1 = 1 & fa_1_ref_1 = 1 & fa_1a_sr000001 < 0 & fa_1a_sr000002 < 0
& fa_1a_uab_a < 0 & fa_1a_uab_b < 0 & fa_1a_uab_c < 0) then cashc = -1;
else if (fa_1 = 1 & fa_1a_trunc in(-1, -2) & (fa_1a_sr000001 < 0 | fa_1a_sr000002 < 0)
& fa_1a_uab_a < 0 & fa_1a_uab_b < 0 & fa_1a_uab_c < 0) then cashc = fa_1a_trunc;
else if (fa_1a_sr000001 >= 0 & fa_1a_sr000002 >= 0 & fa_1a_sr000002 = fa_1a_sr000001) then
cashc = (cashc + fa_1a_sr000001);
else if (fa_1a_sr000001 >= 0 & fa_1a_sr000002 >= 0 & fa_1a_sr000002 > fa_1a_sr000001) then
cashc = (cashc + (((fa_1a_sr000002 - fa_1a_sr000001)/2) + fa_1a_sr000001));
else if (fa_1a_sr000001 >= 0 & fa_1a_sr000002 >= 0 & fa_1a_sr000002 < fa_1a_sr000001) then
cashc = (cashc + (((fa_1a_sr000001 - fa_1a_sr000002)/2) + fa_1a_sr000002));
else if (fa_1a_trunc in(-1, -2, -4) & fa_1a_uab_b = 0) then cashc = (cashc + quartile1);
else if (fa_1a_trunc in(-1, -2, -4) & fa_1a_uab_b = 1) then cashc = (cashc + quartile2);
else if (fa_1a_trunc in(-1, -2, -4) & fa_1a_uab_c = 0) then cashc = (cashc + quartile3);
else if (fa_1a_trunc in(-1, -2, -4) & fa_1a_uab_c = 1) then cashc = (cashc + 90000);
else if (fa_1a_uab_a in(-1, -2) | fa_1a_uab_b in(-1, -2) | fa_1a_uab_c in(-1, -2)) then cashc = -3;

/*************************************************************/
/* No need to add components for CASHC - set -3 missing */
/*************************************************************/

if (cashc in(-1, -2, -3)) then cashc = -3;

/****************************/
/* Compute CDS */
/****************************/

/**********************************/
/* CDS Component - cds: */
/**********************************/

if (fa_2 = 1 & fa_2a_trunc >= 0) then cdsc = (cdsc + fa_2a_trunc);
else if (fa_2 = 1 & fa_2_ref_1 = 1 & fa_2a_sr000001 < 0 & fa_2a_sr000002 < 0
& fa_2a_uab_a < 0 & fa_2a_uab_b < 0 & fa_2a_uab_c < 0) then cdsc = -1;
else if (fa_2 = 1 & fa_2a_trunc in(-1, -2) & (fa_2a_sr000001 < 0 | fa_2a_sr000002 < 0)
& fa_2a_uab_a < 0 & fa_2a_uab_b < 0 & fa_2a_uab_c < 0) then cdsc = fa_2a_trunc;
else if (fa_2a_sr000001 >= 0 & fa_2a_sr000002 >= 0 & fa_2a_sr000002 = fa_2a_sr000001) then
cdsc = (cdsc + fa_2a_sr000001);
else if (fa_2a_sr000001 >= 0 & fa_2a_sr000002 >= 0 & fa_2a_sr000002 > fa_2a_sr000001) then
cdsc = (cdsc + (((fa_2a_sr000002 - fa_2a_sr000001)/2) + fa_2a_sr000001));
else if (fa_2a_sr000001 >= 0 & fa_2a_sr000002 >= 0 & fa_2a_sr000002 < fa_2a_sr000001) then
cdsc = (cdsc + (((fa_2a_sr000001 - fa_2a_sr000002)/2) + fa_2a_sr000002));
else if (fa_2a_trunc in(-1, -2, -4) & fa_2a_uab_b = 0) then cdsc = (cdsc + quartile1);
else if (fa_2a_trunc in(-1, -2, -4) & fa_2a_uab_b = 1) then cdsc = (cdsc + quartile2);
else if (fa_2a_trunc in(-1, -2, -4) & fa_2a_uab_c = 0) then cdsc = (cdsc + quartile3);
else if (fa_2a_trunc in(-1, -2, -4) & fa_2a_uab_c = 1) then cdsc = (cdsc + 100000);
else if (fa_2a_uab_a in(-1, -2) | fa_2a_uab_b in(-1, -2) | fa_2a_uab_c in(-1, -2)) then cdsc = -3;

/*************************************************************/
/* No need to add components for CDSC - set -3 missing */
/*************************************************************/

if (cdsc in(-1, -2, -3)) then cdsc = -3;

/****************************/
/* Compute STOCK */
/****************************/

/***************************************/
/* STOCK Component - govbonds: */
/***************************************/

if (fa_3 = 1 & fa_3a >= 0) then govbonds = (govbonds + fa_3a);
else if (fa_3 = 1 & fa_3_ref_1 = 1 & fa_3a_sr000001 < 0 & fa_3a_sr000002 < 0
& fa_3a_uab_a < 0 & fa_3a_uab_b < 0 & fa_3a_uab_c < 0) then govbonds = -1;
else if (fa_3 = 1 & fa_3a in(-1, -2) & (fa_3a_sr000001 < 0 | fa_3a_sr000002 < 0)
& fa_3a_uab_a < 0 & fa_3a_uab_b < 0 & fa_3a_uab_c < 0) then govbonds = fa_3a;
else if (fa_3a_sr000001 >= 0 & fa_3a_sr000002 >= 0 & fa_3a_sr000002 = fa_3a_sr000001) then
govbonds = (govbonds + fa_3a_sr000001);
else if (fa_3a_sr000001 >= 0 & fa_3a_sr000002 >= 0 & fa_3a_sr000002 > fa_3a_sr000001) then
govbonds = (govbonds + (((fa_3a_sr000002 - fa_3a_sr000001)/2) + fa_3a_sr000001));
else if (fa_3a_sr000001 >= 0 & fa_3a_sr000002 >= 0 & fa_3a_sr000002 < fa_3a_sr000001) then
govbonds = (govbonds + (((fa_3a_sr000001 - fa_3a_sr000002)/2) + fa_3a_sr000002));
else if (fa_3a in(-1, -2, -4) & fa_3a_uab_b = 0) then govbonds = (govbonds + quartile1);
else if (fa_3a in(-1, -2, -4) & fa_3a_uab_b = 1) then govbonds = (govbonds + quartile2);
else if (fa_3a in(-1, -2, -4) & fa_3a_uab_c = 0) then govbonds = (govbonds + quartile3);
else if (fa_3a in(-1, -2, -4) & fa_3a_uab_c = 1) then govbonds = (govbonds + 85000);
else if (fa_3a_uab_a in(-1, -2) | fa_3a_uab_b in(-1, -2) | fa_3a_uab_c in(-1, -2)) then govbonds = -3;

/***************************************/
/* STOCK Component - mutual: */
/***************************************/

if (fa_4 = 1 & fa_4a_trunc >= 0) then mutual = (mutual + fa_4a_trunc);
else if (fa_4 = 1 & fa_4_ref_1 = 1 & fa_4a_sr000001 < 0 & fa_4a_sr000002 < 0
& fa_4a_uab_a < 0 & fa_4a_uab_c < 0) then mutual = -1;
else if (fa_4 = 1 & fa_4a_trunc in(-1, -2) & (fa_4a_sr000001 < 0 | fa_4a_sr000002 < 0)
& fa_4a_uab_a < 0 & fa_4a_uab_c < 0) then mutual = fa_4a_trunc;
else if (fa_4a_sr000001 >= 0 & fa_4a_sr000002 >= 0 & fa_4a_sr000002 = fa_4a_sr000001) then
mutual = (mutual + fa_4a_sr000001);
else if (fa_4a_sr000001 >= 0 & fa_4a_sr000002 >= 0 & fa_4a_sr000002 > fa_4a_sr000001) then
mutual = (mutual + (((fa_4a_sr000002 - fa_4a_sr000001)/2) + fa_4a_sr000001));
else if (fa_4a_sr000001 >= 0 & fa_4a_sr000002 >= 0 & fa_4a_sr000002 < fa_4a_sr000001) then
mutual = (mutual + (((fa_4a_sr000001 - fa_4a_sr000002)/2) + fa_4a_sr000002));
else if (fa_4a_trunc in(-1, -2, -4) & fa_4a_uab_c = 0) then mutual = (mutual + quartile3);
else if (fa_4a_trunc in(-1, -2, -4) & fa_4a_uab_c = 1) then mutual = (mutual + 250000);
else if (fa_4a_uab_a in(-1, -2) | fa_4a_uab_c in(-1, -2)) then mutual = -3;

/*******************************************/
/* STOCK Component - lifeinsure: */
/*******************************************/

if (fa_5 = 1 & fa_5a_trunc >= 0) then lifeinsure = (lifeinsure + fa_5a_trunc);
else if (fa_5 = 1 & fa_5_ref_1 = 1 & fa_5a_sr000001 < 0 & fa_5a_sr000002_trunc < 0
& fa_5a_uab_a < 0 & fa_5a_uab_b < 0 & fa_5a_uab_c < 0) then lifeinsure = -1;
else if (fa_5 = 1 & fa_5a_trunc in(-1, -2) & (fa_5a_sr000001 < 0 | fa_5a_sr000002_trunc < 0)
& fa_5a_uab_a < 0 & fa_5a_uab_b < 0 & fa_5a_uab_c < 0) then lifeinsure = fa_5a_trunc;
else if (fa_5a_sr000001 >= 0 & fa_5a_sr000002_trunc >= 0 & fa_5a_sr000002_trunc = fa_5a_sr000001) then
lifeinsure = (lifeinsure + fa_5a_sr000001);
else if (fa_5a_sr000001 >= 0 & fa_5a_sr000002_trunc >= 0 & fa_5a_sr000002_trunc > fa_5a_sr000001) then
lifeinsure = (lifeinsure + (((fa_5a_sr000002_trunc - fa_5a_sr000001)/2) + fa_5a_sr000001));
else if (fa_5a_sr000001 >= 0 & fa_5a_sr000002_trunc >= 0 & fa_5a_sr000002_trunc < fa_5a_sr000001) then
lifeinsure = (lifeinsure + (((fa_5a_sr000001 - fa_5a_sr000002_trunc)/2) + fa_5a_sr000002_trunc));
else if (fa_5a_trunc in(-1, -2, -4) & fa_5a_uab_b = 0) then lifeinsure = (lifeinsure + quartile1);
else if (fa_5a_trunc in(-1, -2, -4) & fa_5a_uab_b = 1) then lifeinsure = (lifeinsure + quartile2);
else if (fa_5a_trunc in(-1, -2, -4) & fa_5a_uab_c = 0) then lifeinsure = (lifeinsure + quartile3);
else if (fa_5a_trunc in(-1, -2, -4) & fa_5a_uab_c = 1) then lifeinsure = (lifeinsure + 100000);
else if (fa_5a_uab_a in(-1, -2) | fa_5a_uab_b in(-1, -2) | fa_5a_uab_c in(-1, -2)) then lifeinsure = -3;

/***************************************/
/* STOCK Component - shares: */
/***************************************/

if (fa_9 = 1 & fa_9a_trunc >= 0) then shares = (shares + fa_9a_trunc);
else if (fa_9 = 1 & fa_9_ref_1 = 1 & fa_9a_sr000001_trunc < 0 & fa_9a_sr000002 < 0
& fa_9a_uab_a < 0 & fa_9a_uab_b < 0 & fa_9a_uab_c < 0) then shares = -1;
else if (fa_9 = 1 & fa_9a_trunc in(-1, -2) & (fa_9a_sr000001_trunc < 0 | fa_9a_sr000002 < 0)
& fa_9a_uab_a < 0 & fa_9a_uab_b < 0 & fa_9a_uab_c < 0) then shares = fa_9a_trunc;
else if (fa_9a_sr000001_trunc >= 0 & fa_9a_sr000002 >= 0 & fa_9a_sr000002 = fa_9a_sr000001_trunc) then
shares = (shares + fa_9a_sr000001_trunc);
else if (fa_9a_sr000001_trunc >= 0 & fa_9a_sr000002 >= 0 & fa_9a_sr000002 > fa_9a_sr000001_trunc) then
shares = (shares + (((fa_9a_sr000002 - fa_9a_sr000001_trunc)/2) + fa_9a_sr000001_trunc));
else if (fa_9a_sr000001_trunc >= 0 & fa_9a_sr000002 >= 0 & fa_9a_sr000002 < fa_9a_sr000001_trunc) then
shares = (shares + (((fa_9a_sr000001_trunc - fa_9a_sr000002)/2) + fa_9a_sr000002));
else if (fa_9a_trunc in(-1, -2, -4) & fa_9a_uab_b = 0) then shares = (shares + quartile1);
else if (fa_9a_trunc in(-1, -2, -4) & fa_9a_uab_b = 1) then shares = (shares + quartile2);
else if (fa_9a_trunc in(-1, -2, -4) & fa_9a_uab_c = 0) then shares = (shares + quartile3);
else if (fa_9a_trunc in(-1, -2, -4) & fa_9a_uab_c = 1) then shares = (shares + 200000);
else if (fa_9a_uab_a in(-1, -2) | fa_9a_uab_b in(-1, -2) | fa_9a_uab_c in(-1, -2)) then shares = -3;

/****************************************/
/* STOCK Component - corpbond: */
/****************************************/

if (fa_10 = 1 & fa_10a_trunc >= 0) then corpbond = (corpbond + fa_10a_trunc);
else if (fa_10 = 1 & fa_10_ref_1 = 1 & fa_10a_sr000001_trunc < 0 & fa_10a_sr000002_trunc < 0
& fa_10a_uab_a < 0 & fa_10a_uab_b < 0 & fa_10a_uab_c < 0) then corpbond = -1;
else if (fa_10 = 1 & fa_10a_trunc in(-1, -2) & (fa_10a_sr000001_trunc < 0 | fa_10a_sr000002_trunc < 0)
& fa_10a_uab_a < 0 & fa_10a_uab_b < 0 & fa_10a_uab_c < 0) then corpbond = fa_10a_trunc;
else if (fa_10a_sr000001_trunc >= 0 & fa_10a_sr000002_trunc >= 0 & fa_10a_sr000002_trunc = fa_10a_sr000001_trunc) then
corpbond = (corpbond + fa_10a_sr000001_trunc);
else if (fa_10a_sr000001_trunc >= 0 & fa_10a_sr000002_trunc >= 0 & fa_10a_sr000002_trunc > fa_10a_sr000001_trunc) then
corpbond = (corpbond + (((fa_10a_sr000002_trunc - fa_10a_sr000001_trunc)/2) + fa_10a_sr000001_trunc));
else if (fa_10a_sr000001_trunc >= 0 & fa_10a_sr000002_trunc >= 0 & fa_10a_sr000002_trunc < fa_10a_sr000001_trunc) then
corpbond = (corpbond + (((fa_10a_sr000001_trunc - fa_10a_sr000002_trunc)/2) + fa_10a_sr000002_trunc));
else if (fa_10a_trunc in(-1, -2, -4) & fa_10a_uab_b = 0) then corpbond = (corpbond + quartile1);
else if (fa_10a_trunc in(-1, -2, -4) & fa_10a_uab_b = 1) then corpbond = (corpbond + quartile2);
else if (fa_10a_trunc in(-1, -2, -4) & fa_10a_uab_c = 0) then corpbond = (corpbond + quartile3);
else if (fa_10a_trunc in(-1, -2, -4) & fa_10a_uab_c = 1) then corpbond = (corpbond + 200000);
else if (fa_10a_uab_a in(-1, -2) | fa_10a_uab_b in(-1, -2) | fa_10a_uab_c in(-1, -2)) then corpbond = -3;

/******************************************/
/* STOCK Component - moneyowedtor: */
/******************************************/

if (fa_11 = 1 & fa_11a >= 0) then moneyowedtor = (moneyowedtor + fa_11a);
else if (fa_11 = 1 & fa_11_ref_1 = 1 & fa_11a_sr000001 < 0 & fa_11a_sr000002 < 0
& fa_11a_uab_a < 0 & fa_11a_uab_b < 0 & fa_11a_uab_c < 0) then moneyowedtor = -1;
else if (fa_11 = 1 & fa_11a in(-1, -2) & (fa_11a_sr000001 < 0 | fa_11a_sr000002 < 0)
& fa_11a_uab_a < 0 & fa_11a_uab_b < 0 & fa_11a_uab_c < 0) then moneyowedtor = fa_11a;
else if (fa_11a_sr000001 >= 0 & fa_11a_sr000002 >= 0 & fa_11a_sr000002 = fa_11a_sr000001) then
moneyowedtor = (moneyowedtor + fa_11a_sr000001);
else if (fa_11a_sr000001 >= 0 & fa_11a_sr000002 >= 0 & fa_11a_sr000002 > fa_11a_sr000001) then
moneyowedtor = (moneyowedtor + (((fa_11a_sr000002 - fa_11a_sr000001)/2) + fa_11a_sr000001));
else if (fa_11a_sr000001 >= 0 & fa_11a_sr000002 >= 0 & fa_11a_sr000002 < fa_11a_sr000001) then
moneyowedtor = (moneyowedtor + (((fa_11a_sr000001 - fa_11a_sr000002)/2) + fa_11a_sr000002));
else if (fa_11a in(-1, -2, -4) & fa_11a_uab_b = 0) then moneyowedtor = (moneyowedtor + quartile1);
else if (fa_11a in(-1, -2, -4) & fa_11a_uab_b = 1) then moneyowedtor = (moneyowedtor + quartile2);
else if (fa_11a in(-1, -2, -4) & fa_11a_uab_c = 0) then moneyowedtor = (moneyowedtor + quartile3);
else if (fa_11a in(-1, -2, -4) & fa_11a_uab_c = 1) then moneyowedtor = (moneyowedtor + 90000);
else if (fa_11a_uab_a in(-1, -2) | fa_11a_uab_b in(-1, -2) | fa_11a_uab_c in(-1, -2)) then moneyowedtor = -3;

/*******************************/
/* Add components STOCK */
/*******************************/

if (govbonds >= 0) then stockc = (stockc + govbonds);
if (mutual >= 0) then stockc = (stockc + mutual);
if (lifeinsure >= 0) then stockc = (stockc + lifeinsure);
if (shares >= 0) then stockc = (stockc + shares);
if (corpbond >= 0) then stockc = (stockc + corpbond);
if (moneyowedtor >= 0) then stockc = (stockc + moneyowedtor);
if (govbonds in(-1, -2, -3)) then stockc = -3;
else if (mutual in(-1, -2, -3)) then stockc = -3;
else if (lifeinsure in(-1, -2, -3)) then stockc = -3;
else if (shares in(-1, -2, -3)) then stockc = -3;
else if (corpbond in(-1, -2, -3)) then stockc = -3;
else if (moneyowedtor in(-1, -2, -3)) then stockc = -3;

/****************************/
/* Compute HOME */
/****************************/

/**********************************/
/* HOME Component - home1: */
/**********************************/

if (nfa_1 = 1 & nfa_1a_trunc >= 0) then home1 = (home1 + nfa_1a_trunc);
else if (nfa_1 = 1 & nfa_1_ref_1 = 1 & nfa_1a_sr000001 < 0 & nfa_1a_sr000002 < 0
& nfa_1a_uab_a < 0 & nfa_1a_uab_b < 0 & nfa_1a_uab_c < 0) then home1 = -1;
else if (nfa_1 = 1 & nfa_1a_trunc in(-1, -2) & (nfa_1a_sr000001 < 0 | nfa_1a_sr000002 < 0)
& nfa_1a_uab_a < 0 & nfa_1a_uab_b < 0 & nfa_1a_uab_c < 0) then home1 = nfa_1a_trunc;
else if (nfa_1a_sr000001 >= 0 & nfa_1a_sr000002 >= 0 & nfa_1a_sr000002 = nfa_1a_sr000001) then
home1 = (home1 + nfa_1a_sr000001);
else if (nfa_1a_sr000001 >= 0 & nfa_1a_sr000002 >= 0 & nfa_1a_sr000002 > nfa_1a_sr000001) then
home1 = (home1 + (((nfa_1a_sr000002 - nfa_1a_sr000001)/2) + nfa_1a_sr000001));
else if (nfa_1a_sr000001 >= 0 & nfa_1a_sr000002 >= 0 & nfa_1a_sr000002 < nfa_1a_sr000001) then
home1 = (home1 + (((nfa_1a_sr000001 - nfa_1a_sr000002)/2) + nfa_1a_sr000002));
else if (nfa_1a_trunc in(-1, -2, -4) & nfa_1a_uab_b = 0) then home1 = (home1 + quartile1);
else if (nfa_1a_trunc in(-1, -2, -4) & nfa_1a_uab_b = 1) then home1 = (home1 + quartile2);
else if (nfa_1a_trunc in(-1, -2, -4) & nfa_1a_uab_c = 0) then home1 = (home1 + quartile3);
else if (nfa_1a_trunc in(-1, -2, -4) & nfa_1a_uab_c = 1) then home1 = (home1 + 250000);
else if (nfa_1a_uab_a in(-1, -2) | nfa_1a_uab_b in(-1, -2) | nfa_1a_uab_c in(-1, -2)) then home1 = -3;

/************************************/
/* HOME Component - secondhome: */
/************************************/

if (nfa_2 = 1 & nfa_2a_trunc >= 0) then secondhome = (secondhome + nfa_2a_trunc);
else if (nfa_2 = 1 & nfa_2_ref_1 = 1 & nfa_2a_sr000001 < 0 & nfa_2a_sr000002 < 0
& nfa_2a_uab_a < 0 & nfa_2a_uab_b < 0 & nfa_2a_uab_c < 0) then secondhome = -1;
else if (nfa_2 = 1 & nfa_2a_trunc in(-1, -2) & (nfa_2a_sr000001 < 0 | nfa_2a_sr000002 < 0)
& nfa_2a_uab_a < 0 & nfa_2a_uab_b < 0 & nfa_2a_uab_c < 0) then secondhome = nfa_2a_trunc;
else if (nfa_2a_sr000001 >= 0 & nfa_2a_sr000002 >= 0 & nfa_2a_sr000002 = nfa_2a_sr000001) then
secondhome = (secondhome + nfa_2a_sr000001);
else if (nfa_2a_sr000001 >= 0 & nfa_2a_sr000002 >= 0 & nfa_2a_sr000002 > nfa_2a_sr000001) then
secondhome = (secondhome + (((nfa_2a_sr000002 - nfa_2a_sr000001)/2) + nfa_2a_sr000001));
else if (nfa_2a_sr000001 >= 0 & nfa_2a_sr000002 >= 0 & nfa_2a_sr000002 < nfa_2a_sr000001) then
secondhome = (secondhome + (((nfa_2a_sr000001 - nfa_2a_sr000002)/2) + nfa_2a_sr000002));
else if (nfa_2a_trunc in(-1, -2, -4) & nfa_2a_uab_b = 0) then secondhome = (secondhome + quartile1);
else if (nfa_2a_trunc in(-1, -2, -4) & nfa_2a_uab_b = 1) then secondhome = (secondhome + quartile2);
else if (nfa_2a_trunc in(-1, -2, -4) & nfa_2a_uab_c = 0) then secondhome = (secondhome + quartile3);
else if (nfa_2a_trunc in(-1, -2, -4) & nfa_2a_uab_c = 1) then secondhome = (secondhome + 200000);
else if (nfa_2a_uab_a in(-1, -2) | nfa_2a_uab_b in(-1, -2) | nfa_2a_uab_c in(-1, -2)) then secondhome = -3;

/*******************************/
/* Add components HOME */
/*******************************/

if (home1 >= 0) then homec = (homec + home1);
if (secondhome >= 0) then homec = (homec + secondhome);
if (home1 in(-1, -2, -3)) then homec = -3;
else if (secondhome in(-1, -2, -3)) then homec = -3;

/****************************/
/* Compute MORT */
/****************************/

/*************************************/
/* MORT Component - mort1: */
/*************************************/

if (nfa_1b_trunc >= 0) then mort1 = (mort1 + nfa_1b_trunc);
else if (nfa_1b_ref_1 = 1 & nfa_1b_sr000001 < 0 & nfa_1b_sr000002 < 0
& nfa_1b_uab_a < 0 & nfa_1b_uab_b < 0 & nfa_1b_uab_c < 0) then mort1 = -1;
else if (nfa_1b_trunc in(-1, -2) & (nfa_1b_sr000001 < 0 | nfa_1b_sr000002 < 0)
& nfa_1b_uab_a < 0 & nfa_1b_uab_b < 0 & nfa_1b_uab_c < 0) then mort1 = nfa_1b_trunc;
else if (nfa_1b_sr000001 >= 0 & nfa_1b_sr000002 >= 0 & nfa_1b_sr000002 = nfa_1b_sr000001) then
mort1 = (mort1 + nfa_1b_sr000001);
else if (nfa_1b_sr000001 >= 0 & nfa_1b_sr000002 >= 0 & nfa_1b_sr000002 > nfa_1b_sr000001) then
mort1 = (mort1 + (((nfa_1b_sr000002 - nfa_1b_sr000001)/2) + nfa_1b_sr000001));
else if (nfa_1b_sr000001 >= 0 & nfa_1b_sr000002 >= 0 & nfa_1b_sr000002 < nfa_1b_sr000001) then
mort1 = (mort1 + (((nfa_1b_sr000001 - nfa_1b_sr000002)/2) + nfa_1b_sr000002));
else if (nfa_1b_trunc in(-1, -2, -4) & nfa_1b_uab_b = 0) then mort1 = (mort1 + quartile1);
else if (nfa_1b_trunc in(-1, -2, -4) & nfa_1b_uab_b = 1) then mort1 = (mort1 + quartile2);
else if (nfa_1b_trunc in(-1, -2, -4) & nfa_1b_uab_c = 0) then mort1 = (mort1 + quartile3);
else if (nfa_1b_trunc in(-1, -2, -4) & nfa_1b_uab_c = 1) then mort1 = (mort1 + 125000);
else if (nfa_1b_uab_a in(-1, -2) | nfa_1b_uab_b in(-1, -2) | nfa_1b_uab_c in(-1, -2)) then mort1 = -3;

/*****************************************/
/* MORT Component - secondmort: */
/*****************************************/

if (nfa_2b_trunc >= 0) then secondmort = (secondmort + nfa_2b_trunc);
else if (nfa_2b_ref_1 = 1 & nfa_2b_sr000001 < 0 & nfa_2b_sr000002 < 0
& nfa_2b_uab_a < 0 & nfa_2b_uab_b < 0 & nfa_2b_uab_c < 0) then secondmort = -1;
else if (nfa_2b_trunc in(-1, -2) & (nfa_2b_sr000001 < 0 | nfa_2b_sr000002 < 0)
& nfa_2b_uab_a < 0 & nfa_2b_uab_b < 0 & nfa_2b_uab_c < 0) then secondmort = nfa_2b_trunc;
else if (nfa_2b_sr000001 >= 0 & nfa_2b_sr000002 >= 0 & nfa_2b_sr000002 = nfa_2b_sr000001) then
secondmort = (secondmort + nfa_2b_sr000001);
else if (nfa_2b_sr000001 >= 0 & nfa_2b_sr000002 >= 0 & nfa_2b_sr000002 > nfa_2b_sr000001) then
secondmort = (secondmort + (((nfa_2b_sr000002 - nfa_2b_sr000001)/2) + nfa_2b_sr000001));
else if (nfa_2b_sr000001 >= 0 & nfa_2b_sr000002 >= 0 & nfa_2b_sr000002 < nfa_2b_sr000001) then
secondmort = (secondmort + (((nfa_2b_sr000001 - nfa_2b_sr000002)/2) + nfa_2b_sr000002));
else if (nfa_2b_trunc in(-1, -2, -4) & nfa_2b_uab_b = 0) then secondmort = (secondmort + quartile1);
else if (nfa_2b_trunc in(-1, -2, -4) & nfa_2b_uab_b = 1) then secondmort = (secondmort + quartile2);
else if (nfa_2b_trunc in(-1, -2, -4) & nfa_2b_uab_c = 0) then secondmort = (secondmort + quartile3);
else if (nfa_2b_trunc in(-1, -2, -4) & nfa_2b_uab_c = 1) then secondmort = (secondmort + 135000);
else if (nfa_2b_uab_a in(-1, -2) | nfa_2b_uab_b in(-1, -2) | nfa_2b_uab_c in(-1, -2)) then secondmort = -3;

/*******************************/
/* Add components MORT */
/*******************************/

if (mort1 >= 0) then mortc = (mortc + mort1);
if (secondmort >= 0) then mortc = (mortc + secondmort);
if (mort1 in(-1, -2, -3)) then mortc = -3;
else if (secondmort in(-1, -2, -3)) then mortc = -3;

/****************************/
/* Compute PDEBT */
/****************************/

/**************************************/
/* PDEBT Component - pdebt1: */
/**************************************/

if (nfa_1c >= 0) then pdebt1 = (pdebt1 + nfa_1c);
else if (nfa_1c_ref_1 = 1 & nfa_1c_sr000001 < 0 & nfa_1c_sr000002 < 0
& nfa_1c_uab_a < 0 & nfa_1c_uab_b < 0 & nfa_1c_uab_c < 0) then pdebt1 = -1;
else if (nfa_1c in(-1, -2) & (nfa_1c_sr000001 < 0 | nfa_1c_sr000002 < 0)
& nfa_1c_uab_a < 0 & nfa_1c_uab_b < 0 & nfa_1c_uab_c < 0) then pdebt1 = nfa_1c;
else if (nfa_1c_sr000001 >= 0 & nfa_1c_sr000002 >= 0 & nfa_1c_sr000002 = nfa_1c_sr000001) then
pdebt1 = (pdebt1 + nfa_1c_sr000001);
else if (nfa_1c_sr000001 >= 0 & nfa_1c_sr000002 >= 0 & nfa_1c_sr000002 > nfa_1c_sr000001) then
pdebt1 = (pdebt1 + (((nfa_1c_sr000002 - nfa_1c_sr000001)/2) + nfa_1c_sr000001));
else if (nfa_1c_sr000001 >= 0 & nfa_1c_sr000002 >= 0 & nfa_1c_sr000002 < nfa_1c_sr000001) then
pdebt1 = (pdebt1 + (((nfa_1c_sr000001 - nfa_1c_sr000002)/2) + nfa_1c_sr000002));
else if (nfa_1c in(-1, -2, -4) & nfa_1c_uab_b = 0) then pdebt1 = (pdebt1 + quartile1);
else if (nfa_1c in(-1, -2, -4) & nfa_1c_uab_b = 1) then pdebt1 = (pdebt1 + quartile2);
else if (nfa_1c in(-1, -2, -4) & nfa_1c_uab_c = 0) then pdebt1 = (pdebt1 + quartile3);
else if (nfa_1c in(-1, -2, -4) & nfa_1c_uab_c = 1) then pdebt1 = (pdebt1 + 55000);
else if (nfa_1c_uab_a in(-1, -2) | nfa_1c_uab_b in(-1, -2) | nfa_1c_uab_c in(-1, -2)) then pdebt1 = -3;

/*******************************************/
/* PDEBT Component - secondpdebt: */
/*******************************************/

if (nfa_2c >= 0) then secondpdebt = (secondpdebt + nfa_2c);
else if (nfa_2c_ref_1 = 1 & nfa_2c_sr000001 < 0 & nfa_2c_sr000002 < 0
& nfa_2c_uab_a < 0 & nfa_2c_uab_b < 0 & nfa_2c_uab_c < 0) then secondpdebt = -1;
else if (nfa_2c in(-1, -2) & (nfa_2c_sr000001 < 0 | nfa_2c_sr000002 < 0)
& nfa_2c_uab_a < 0 & nfa_2c_uab_b < 0 & nfa_2c_uab_c < 0) then secondpdebt = nfa_2c;
else if (nfa_2c_sr000001 >= 0 & nfa_2c_sr000002 >= 0 & nfa_2c_sr000002 = nfa_2c_sr000001) then
secondpdebt = (secondpdebt + nfa_2c_sr000001);
else if (nfa_2c_sr000001 >= 0 & nfa_2c_sr000002 >= 0 & nfa_2c_sr000002 > nfa_2c_sr000001) then
secondpdebt = (secondpdebt + (((nfa_2c_sr000002 - nfa_2c_sr000001)/2) + nfa_2c_sr000001));
else if (nfa_2c_sr000001 >= 0 & nfa_2c_sr000002 >= 0 & nfa_2c_sr000002 < nfa_2c_sr000001) then
secondpdebt = (secondpdebt + (((nfa_2c_sr000001 - nfa_2c_sr000002)/2) + nfa_2c_sr000002));
else if (nfa_2c in(-1, -2, -4) & nfa_2c_uab_b = 0) then secondpdebt = (secondpdebt + quartile1);
else if (nfa_2c in(-1, -2, -4) & nfa_2c_uab_b = 1) then secondpdebt = (secondpdebt + quartile2);
else if (nfa_2c in(-1, -2, -4) & nfa_2c_uab_c = 0) then secondpdebt = (secondpdebt + quartile3);
else if (nfa_2c in(-1, -2, -4) & nfa_2c_uab_c = 1) then secondpdebt = (secondpdebt + 47500);
else if (nfa_2c_uab_a in(-1, -2) | nfa_2c_uab_b in(-1, -2) | nfa_2c_uab_c in(-1, -2)) then secondpdebt = -3;

/*******************************/
/* Add components PDEBT */
/*******************************/

if (pdebt1 >= 0) then pdebtc = (pdebtc + pdebt1);
if (secondpdebt >= 0) then pdebtc = (pdebtc + secondpdebt);
if (pdebt1 in(-1, -2, -3)) then pdebtc = -3;
else if (secondpdebt in(-1, -2, -3)) then pdebtc = -3;

/****************************/
/* Compute IRA */
/****************************/

/**********************************/
/* IRA Component - ira1: */
/**********************************/

if (fa_8 = 1 & fa_8d_trunc_01 >= 0) then ira1 = (ira1 + fa_8d_trunc_01);
else if (fa_8 = 1 & fa_8d_trunc_01 in(-1, -2) & (fa_8d_sr000001_01 < 0 | fa_8d_sr000002_01 < 0)
& fa_8d_uab_a_01 < 0 & fa_8d_uab_b_01 < 0 & fa_8d_uab_c_01 < 0) then ira1 = fa_8d_trunc_01;
else if (fa_8d_sr000001_01 >= 0 & fa_8d_sr000002_01 >= 0 & fa_8d_sr000002_01 = fa_8d_sr000001_01) then
ira1 = (ira1 + fa_8d_sr000001_01);
else if (fa_8d_sr000001_01 >= 0 & fa_8d_sr000002_01 >= 0 & fa_8d_sr000002_01 > fa_8d_sr000001_01) then
ira1 = (ira1 + (((fa_8d_sr000002_01 - fa_8d_sr000001_01)/2) + fa_8d_sr000001_01));
else if (fa_8d_sr000001_01 >= 0 & fa_8d_sr000002_01 >= 0 & fa_8d_sr000002_01 < fa_8d_sr000001_01) then
ira1 = (ira1 + (((fa_8d_sr000001_01 - fa_8d_sr000002_01)/2) + fa_8d_sr000002_01));
else if (fa_8d_trunc_01 in(-1, -2, -4) & fa_8d_uab_b_01 = 0) then ira1 = (ira1 + quartile1);
else if (fa_8d_trunc_01 in(-1, -2, -4) & fa_8d_uab_b_01 = 1) then ira1 = (ira1 + quartile2);
else if (fa_8d_trunc_01 in(-1, -2, -4) & fa_8d_uab_c_01 = 0) then ira1 = (ira1 + quartile3);
else if (fa_8d_trunc_01 in(-1, -2, -4) & fa_8d_uab_c_01 = 1) then ira1 = (ira1 + 200000);
else if (fa_8d_uab_a_01 in(-1, -2) | fa_8d_uab_b_01 in(-1, -2) | fa_8d_uab_c_01 in(-1, -2)) then ira1 = -3;

/*********************************/
/* IRA Component - ira2: */
/*********************************/

if (fa_8 = 1 & fa_8d_trunc_02 >= 0) then ira2 = (ira2 + fa_8d_trunc_02);
else if (fa_8 = 1 & fa_8d_trunc_02 in(-1, -2) & (fa_8d_sr000001_02 < 0 | fa_8d_sr000002_02 < 0)
& fa_8d_uab_a_02 < 0 & fa_8d_uab_b_02 < 0 & fa_8d_uab_c_02 < 0) then ira2 = fa_8d_trunc_02;
else if (fa_8d_sr000001_02 >= 0 & fa_8d_sr000002_02 >= 0 & fa_8d_sr000002_02 = fa_8d_sr000001_02) then
ira2 = (ira2 + fa_8d_sr000001_02);
else if (fa_8d_sr000001_02 >= 0 & fa_8d_sr000002_02 >= 0 & fa_8d_sr000002_02 > fa_8d_sr000001_02) then
ira2 = (ira2 + (((fa_8d_sr000002_02 - fa_8d_sr000001_02)/2) + fa_8d_sr000001_02));
else if (fa_8d_sr000001_02 >= 0 & fa_8d_sr000002_02 >= 0 & fa_8d_sr000002_02 < fa_8d_sr000001_02) then
ira2 = (ira2 + (((fa_8d_sr000001_02 - fa_8d_sr000002_02)/2) + fa_8d_sr000002_02));
else if (fa_8d_trunc_02 in(-1, -2, -4) & fa_8d_uab_b_02 = 0) then ira2 = (ira2 + quartile1);
else if (fa_8d_trunc_02 in(-1, -2, -4) & fa_8d_uab_b_02 = 1) then ira2 = (ira2 + quartile2);
else if (fa_8d_trunc_02 in(-1, -2, -4) & fa_8d_uab_c_02 = 0) then ira2 = (ira2 + quartile3);
else if (fa_8d_trunc_02 in(-1, -2, -4) & fa_8d_uab_c_02 = 1) then ira2 = (ira2 + 100000);
else if (fa_8d_uab_a_02 in(-1, -2) | fa_8d_uab_b_02 in(-1, -2) | fa_8d_uab_c_02 in(-1, -2)) then ira2 = -3;

/*********************************/
/* IRA Component - ira3: */
/*********************************/

if (fa_8 = 1 & fa_8d_03 >= 0) then ira3 = (ira3 + fa_8d_03);
else if (fa_8 = 1 & fa_8d_03 in(-1, -2) & fa_8d_uab_a_03 < 0 & fa_8d_uab_c_03 < 0) then ira3 = fa_8d_03;
else if (fa_8d_03 in(-1, -2, -4) & fa_8d_uab_c_03 = 0) then ira3 = (ira3 + quartile3);
else if (fa_8d_03 in(-1, -2, -4) & fa_8d_uab_c_03 = 1) then ira3 = (ira3 + 266000);
else if (fa_8d_uab_a_03 in(-1, -2) | fa_8d_uab_c_03 in(-1, -2)) then ira3 = -3;

/*********************************/
/* IRA Component - ira4: */
/*********************************/

if (fa_8 = 1 & fa_8d_trunc_04 >= 0) then ira4 = (ira4 + fa_8d_trunc_04);
else if (fa_8 = 1 & fa_8d_trunc_04 in(-1, -2) & fa_8d_uab_a_04 < 0) then ira4 = fa_8d_trunc_04;
else if (fa_8d_uab_a_04 in(-1, -2)) then ira4 = -3;

/*******************************/
/* IRA Component - ira5: */
/*******************************/

if (fa_8 = 1 & fa_8d_trunc_05 >= 0) then ira5 = (ira5 + fa_8d_trunc_05);
else if (fa_8 = 1 & fa_8d_trunc_05 in(-1, -2) & (fa_8d_sr000001_05 < 0 | fa_8d_sr000002_05 < 0)
& fa_8d_uab_a_05 < 0 & fa_8d_uab_c_05 < 0) then ira5 = fa_8d_trunc_05;
else if (fa_8d_sr000001_05 >= 0 & fa_8d_sr000002_05 >= 0 & fa_8d_sr000002_05 = fa_8d_sr000001_05) then
ira5 = (ira5 + fa_8d_sr000001_05);
else if (fa_8d_sr000001_05 >= 0 & fa_8d_sr000002_05 >= 0 & fa_8d_sr000002_05 > fa_8d_sr000001_05) then
ira5 = (ira5 + (((fa_8d_sr000002_05 - fa_8d_sr000001_05)/2) + fa_8d_sr000001_05));
else if (fa_8d_sr000001_05 >= 0 & fa_8d_sr000002_05 >= 0 & fa_8d_sr000002_05 < fa_8d_sr000001_05) then
ira5 = (ira5 + (((fa_8d_sr000001_05 - fa_8d_sr000002_05)/2) + fa_8d_sr000002_05));
else if (fa_8d_trunc_05 in(-1, -2, -4) & fa_8d_uab_c_05 = 0) then ira5 = (ira5 + quartile3);
else if (fa_8d_trunc_05 in(-1, -2, -4) & fa_8d_uab_c_05 = 1) then ira5 = (ira5 + 137000);
else if (fa_8d_uab_a_05 in(-1, -2) | fa_8d_uab_c_05 in(-1, -2)) then ira5 = -3;

/*********************************/
/* IRA Component - ira6: */
/*********************************/

if (fa_8 = 1 & fa_8d_06 >= 0) then ira6 = (ira6 + fa_8d_06);
else if (fa_8 = 1 & fa_8d_06 in(-1, -2) & (fa_8d_sr000001_06 < 0 | fa_8d_sr000002_06 < 0)
& fa_8d_uab_a_06 < 0 & fa_8d_uab_b_06 < 0 & fa_8d_uab_c_06 < 0) then ira6 = fa_8d_06;
else if (fa_8d_sr000001_06 >= 0 & fa_8d_sr000002_06 >= 0 & fa_8d_sr000002_06 = fa_8d_sr000001_06) then
ira6 = (ira6 + fa_8d_sr000001_06);
else if (fa_8d_sr000001_06 >= 0 & fa_8d_sr000002_06 >= 0 & fa_8d_sr000002_06 > fa_8d_sr000001_06) then
ira6 = (ira6 + (((fa_8d_sr000002_06 - fa_8d_sr000001_06)/2) + fa_8d_sr000001_06));
else if (fa_8d_sr000001_06 >= 0 & fa_8d_sr000002_06 >= 0 & fa_8d_sr000002_06 < fa_8d_sr000001_06) then
ira6 = (ira6 + (((fa_8d_sr000001_06 - fa_8d_sr000002_06)/2) + fa_8d_sr000002_06));
else if (fa_8d_06 in(-1, -2, -4) & fa_8d_uab_b_06 = 0) then ira6 = (ira6 + quartile1);
else if (fa_8d_06 in(-1, -2, -4) & fa_8d_uab_b_06 = 1) then ira6 = (ira6 + quartile2);
else if (fa_8d_06 in(-1, -2, -4) & fa_8d_uab_c_06 = 0) then ira6 = (ira6 + quartile3);
else if (fa_8d_06 in(-1, -2, -4) & fa_8d_uab_c_06 = 1) then ira6 = (ira6 + 90977);
else if (fa_8d_uab_a_06 in(-1, -2) | fa_8d_uab_b_06 in(-1, -2) | fa_8d_uab_c_06 in(-1, -2)) then ira6 = -3;

/********************************/
/* IRA Component - ira7: */
/********************************/

if (fa_8 = 1 & fa_8d_trunc_07 >= 0) then ira7 = (ira7 + fa_8d_trunc_07);
else if (fa_8 = 1 & fa_8d_trunc_07 in(-1, -2) & (fa_8d_sr000001_07 < 0 | fa_8d_sr000002_07 < 0)
& fa_8d_uab_a_07 < 0 & fa_8d_uab_c_07 < 0) then ira7 = fa_8d_trunc_07;
else if (fa_8d_sr000001_07 >= 0 & fa_8d_sr000002_07 >= 0 & fa_8d_sr000002_07 = fa_8d_sr000001_07) then
ira7 = (ira7 + fa_8d_sr000001_07);
else if (fa_8d_sr000001_07 >= 0 & fa_8d_sr000002_07 >= 0 & fa_8d_sr000002_07 > fa_8d_sr000001_07) then
ira7 = (ira7 + (((fa_8d_sr000002_07 - fa_8d_sr000001_07)/2) + fa_8d_sr000001_07));
else if (fa_8d_sr000001_07 >= 0 & fa_8d_sr000002_07 >= 0 & fa_8d_sr000002_07 < fa_8d_sr000001_07) then
ira7 = (ira7 + (((fa_8d_sr000001_07 - fa_8d_sr000002_07)/2) + fa_8d_sr000002_07));
else if (fa_8d_trunc_07 in(-1, -2, -4) & fa_8d_uab_c_07 = 0) then ira7 = (ira7 + quartile3);
else if (fa_8d_trunc_07 in(-1, -2, -4) & fa_8d_uab_c_07 = 1) then ira7 = (ira7 + 150000);
else if (fa_8d_uab_a_07 in(-1, -2) | fa_8d_uab_c_07 in(-1, -2)) then ira7 = -3;

/*******************************/
/* Add components IRA */
/*******************************/

if (ira1 >= 0) then irac = (irac + ira1);
if (ira2 >= 0) then irac = (irac + ira2);
if (ira3 >= 0) then irac = (irac + ira3);
if (ira4 >= 0) then irac = (irac + ira4);
if (ira5 >= 0) then irac = (irac + ira5);
if (ira6 >= 0) then irac = (irac + ira6);
if (ira7 >= 0) then irac = (irac + ira7);
if (ira1 in(-1, -2, -3)) then irac = -3;
else if (ira2 in(-1, -2, -3)) then irac = -3;
else if (ira3 in(-1, -2, -3)) then irac = -3;
else if (ira4 in(-1, -2, -3)) then irac = -3;
else if (ira5 in(-1, -2, -3)) then irac = -3;
else if (ira6 in(-1, -2, -3)) then irac = -3;
else if (ira7 in(-1, -2, -3)) then irac = -3;

/****************************/
/* Compute A401K */
/****************************/

/***********************************/
/* A401K component - r_401k */
/***********************************/

if (fa_6b = 1 & fa_6e_trunc >= 0) then r_401k = (r_401k + fa_6e_trunc);
else if (fa_6b = 1 & fa_6e_ref_1 = 1 & fa_6e_sr000001 < 0 & fa_6e_sr000002 < 0
& fa_6e_uab_a < 0 & fa_6e_uab_b < 0 & fa_6e_uab_c < 0) then r_401k = -1;
else if (fa_6e_trunc in(-1, -2) & (fa_6e_sr000001 < 0 | fa_6e_sr000002 < 0)
& fa_6e_uab_a < 0 & fa_6e_uab_b < 0 & fa_6e_uab_c < 0) then r_401k = fa_6e_trunc;
else if (fa_6e_sr000001 >= 0 & fa_6e_sr000002 >= 0 & fa_6e_sr000002 = fa_6e_sr000001) then
r_401k = (r_401k + fa_6e_sr000001);
else if (fa_6e_sr000001 >= 0 & fa_6e_sr000002 >= 0 & fa_6e_sr000002 > fa_6e_sr000001) then
r_401k = (r_401k + (((fa_6e_sr000002 - fa_6e_sr000001)/2) + fa_6e_sr000001));
else if (fa_6e_sr000001 >= 0 & fa_6e_sr000002 >= 0 & fa_6e_sr000002 < fa_6e_sr000001) then
r_401k = (r_401k + (((fa_6e_sr000001 - fa_6e_sr000002)/2) + fa_6e_sr000002));
else if (fa_6e_trunc in(-1, -2, -4) & fa_6e_uab_b = 0) then r_401k = (r_401k + quartile1);
else if (fa_6e_trunc in(-1, -2, -4) & fa_6e_uab_b = 1) then r_401k = (r_401k + quartile2);
else if (fa_6e_trunc in(-1, -2, -4) & fa_6e_uab_c = 0) then r_401k = (r_401k + quartile3);
else if (fa_6e_trunc in(-1, -2, -4) & fa_6e_uab_c = 1) then r_401k = (r_401k + 150000);
else if (fa_6e_uab_a in(-1, -2) | fa_6e_uab_b in(-1, -2) | fa_6e_uab_c in(-1, -2)) then r_401k = -3;

/*************************************/
/* A401K component - sp_401k */
/*************************************/

if (fa_7 = 1 & fa_7c_trunc >= 0) then sp_401k = (sp_401k + fa_7c_trunc);
else if (fa_7 = 1 & fa_7c_ref_1 = 1 & fa_7c_sr000001 < 0 & fa_7c_sr000002 < 0
& fa_7c_uab_a < 0 & fa_7c_uab_b < 0 & fa_7c_uab_c < 0) then sp_401k = -1;
else if (fa_7c_trunc in(-1, -2) & (fa_7c_sr000001 < 0 | fa_7c_sr000002 < 0)
& fa_7c_uab_a < 0 & fa_7c_uab_b < 0 & fa_7c_uab_c < 0) then sp_401k = fa_7c_trunc;
else if (fa_7c_sr000001 >= 0 & fa_7c_sr000002 >= 0 & fa_7c_sr000002 = fa_7c_sr000001) then
sp_401k = (sp_401k + fa_7c_sr000001);
else if (fa_7c_sr000001 >= 0 & fa_7c_sr000002 >= 0 & fa_7c_sr000002 > fa_7c_sr000001) then
sp_401k = (sp_401k + (((fa_7c_sr000002 - fa_7c_sr000001)/2) + fa_7c_sr000001));
else if (fa_7c_sr000001 >= 0 & fa_7c_sr000002 >= 0 & fa_7c_sr000002 < fa_7c_sr000001) then
sp_401k = (sp_401k + (((fa_7c_sr000001 - fa_7c_sr000002)/2) + fa_7c_sr000002));
else if (fa_7c_trunc in(-1, -2, -4) & fa_7c_uab_b = 0) then sp_401k = (sp_401k + quartile1);
else if (fa_7c_trunc in(-1, -2, -4) & fa_7c_uab_b = 1) then sp_401k = (sp_401k + quartile2);
else if (fa_7c_trunc in(-1, -2, -4) & fa_7c_uab_c = 0) then sp_401k = (sp_401k + quartile3);
else if (fa_7c_trunc in(-1, -2, -4) & fa_7c_uab_c = 1) then sp_401k = (sp_401k + 160000);
else if (fa_7c_uab_a in(-1, -2) | fa_7c_uab_b in(-1, -2) | fa_7c_uab_c in(-1, -2)) then sp_401k = -3;

/*******************************/
/* Add components A401K */
/*******************************/

if (r_401k >= 0) then a401kc = (a401kc + r_401k);
if (sp_401k >= 0) then a401kc = (a401kc + sp_401k);
if (r_401k in(-1, -2, -3)) then a401kc = -3;
else if (sp_401k in(-1, -2, -3)) then a401kc = -3;

/****************************/
/* Compute CDEBT */
/****************************/
/**************************************************/
/* CDEBT Component - amtowe_assetpoorcars: */
/**************************************************/

if (sc_12b_trunc >= 0) then amtowe_assetpoorcars = (amtowe_assetpoorcars + sc_12b_trunc);
else if (sc_12b_trunc = 1 & sc_12b_ref_1a = 1 & sc_12b_sr000001 < 0 & sc_12b_sr000002 < 0) then amtowe_assetpoorcars = -1;
else if (sc_12b_trunc in(-1, -2) & (sc_12b_sr000001 < 0 | sc_12b_sr000002 < 0)) then amtowe_assetpoorcars = sc_12b_trunc;
else if (sc_12b_sr000001 >= 0 & sc_12b_sr000002 >= 0 & sc_12b_sr000002 = sc_12b_sr000001) then
amtowe_assetpoorcars = (amtowe_assetpoorcars + sc_12b_sr000001);
else if (sc_12b_sr000001 >= 0 & sc_12b_sr000002 >= 0 & sc_12b_sr000002 > sc_12b_sr000001) then
amtowe_assetpoorcars = (amtowe_assetpoorcars + (((sc_12b_sr000002 - sc_12b_sr000001)/2) + sc_12b_sr000001));
else if (sc_12b_sr000001 >= 0 & sc_12b_sr000002 >= 0 & sc_12b_sr000002 < sc_12b_sr000001) then
amtowe_assetpoorcars = (amtowe_assetpoorcars + (((sc_12b_sr000001 - sc_12b_sr000002)/2) + sc_12b_sr000002));

/***********************************************/
/* CDEBT Component - amountowe_vehicles: */
/***********************************************/

if (nfa_4f_trunc >= 0) then amountowe_vehicles = (amountowe_vehicles + nfa_4f_trunc);
else if (nfa_4f_trunc in(-1, -2) & (nfa_4f_sr000001_trunc < 0 | nfa_4f_sr000002_trunc < 0)
& nfa_4f_uab_a < 0 & nfa_4f_uab_b < 0 & nfa_4f_uab_c < 0) then amountowe_vehicles = nfa_4f_trunc;
else if (nfa_4f_sr000001_trunc >= 0 & nfa_4f_sr000002_trunc >= 0 & nfa_4f_sr000002_trunc = nfa_4f_sr000001_trunc) then
amountowe_vehicles = (amountowe_vehicles + nfa_4f_sr000001_trunc);
else if (nfa_4f_sr000001_trunc >= 0 & nfa_4f_sr000002_trunc >= 0 & nfa_4f_sr000002_trunc > nfa_4f_sr000001_trunc) then
amountowe_vehicles = (amountowe_vehicles + (((nfa_4f_sr000002_trunc - nfa_4f_sr000001_trunc)/2) + nfa_4f_sr000001_trunc));
else if (nfa_4f_sr000001_trunc >= 0 & nfa_4f_sr000002_trunc >= 0 & nfa_4f_sr000002_trunc < nfa_4f_sr000001_trunc) then
amountowe_vehicles = (amountowe_vehicles + (((nfa_4f_sr000001_trunc - nfa_4f_sr000002_trunc)/2) + nfa_4f_sr000002_trunc));
else if (nfa_4f_trunc in(-1, -2, -4) & nfa_4f_uab_b = 0) then amountowe_vehicles = (amountowe_vehicles + quartile1);
else if (nfa_4f_trunc in(-1, -2, -4) & nfa_4f_uab_b = 1) then amountowe_vehicles = (amountowe_vehicles + quartile2);
else if (nfa_4f_trunc in(-1, -2, -4) & nfa_4f_uab_c = 0) then amountowe_vehicles = (amountowe_vehicles + quartile3);
else if (nfa_4f_trunc in(-1, -2, -4) & nfa_4f_uab_c = 1) then amountowe_vehicles = (amountowe_vehicles + 40000);
else if (nfa_4f_uab_a in(-1, -2) | nfa_4f_uab_b in(-1, -2) | nfa_4f_uab_c in(-1, -2)) then amtowe_vehicles1 = -3;

/*************************************************/
/* CDEBT Component - amtowe_othervehicles: */
/*************************************************/

if (nfa_5 = 1 & nfa_5b_trunc >= 0) then amtowe_othervehicles = (amtowe_othervehicles + nfa_5b_trunc);
else if (nfa_5 = 1 & nfa_5b_trunc in(-1, -2) & (nfa_5b_sr000001 < 0 | nfa_5b_sr000002 < 0)
& nfa_5b_uab_a < 0 & nfa_5b_uab_b < 0 & nfa_5b_uab_c < 0) then amtowe_othervehicles = nfa_5b_trunc;
else if (nfa_5b_sr000001 >= 0 & nfa_5b_sr000002 >= 0 & nfa_5b_sr000002 = nfa_5b_sr000001) then
amtowe_othervehicles = (amtowe_othervehicles + nfa_5b_sr000001);
else if (nfa_5b_sr000001 >= 0 & nfa_5b_sr000002 >= 0 & nfa_5b_sr000002 > nfa_5b_sr000001) then
amtowe_othervehicles = (amtowe_othervehicles + (((nfa_5b_sr000002 - nfa_5b_sr000001)/2) + nfa_5b_sr000001));
else if (nfa_5b_sr000001 >= 0 & nfa_5b_sr000002 >= 0 & nfa_5b_sr000002 < nfa_5b_sr000001) then
amtowe_othervehicles = (amtowe_othervehicles + (((nfa_5b_sr000001 - nfa_5b_sr000002)/2) + nfa_5b_sr000002));
else if (nfa_5b_trunc in(-1, -2, -4) & nfa_5b_uab_b = 0) then amtowe_othervehicles = (amtowe_othervehicles + quartile1);
else if (nfa_5b_trunc in(-1, -2, -4) & nfa_5b_uab_b = 1) then amtowe_othervehicles = (amtowe_othervehicles + quartile2);
else if (nfa_5b_trunc in(-1, -2, -4) & nfa_5b_uab_c = 0) then amtowe_othervehicles = (amtowe_othervehicles + quartile3);
else if (nfa_5b_trunc in(-1, -2, -4) & nfa_5b_uab_c = 1) then amtowe_othervehicles = (amtowe_othervehicles + 50000);
else if (nfa_5b_uab_a in(-1, -2) | nfa_5b_uab_b in(-1, -2) | nfa_5b_uab_c in(-1, -2)) then amtowe_othervehicles = -3;

/*******************************/
/* Add components CDEBT */
/*******************************/

if (amtowe_assetpoorcars >= 0) then cdebtc = (cdebtc + amtowe_assetpoorcars);
if (amountowe_vehicles >= 0) then cdebtc = (cdebtc + amountowe_vehicles);
if (amtowe_othervehicles >= 0) then cdebtc = (cdebtc + amtowe_othervehicles);

if (amtowe_assetpoorcars in(-1, -2, -3)) then cdebtc = -3;
else if (amountowe_vehicles in(-1, -2, -3)) then cdebtc = -3;
else if (amtowe_othervehicles in(-1, -2, -3)) then cdebtc = -3;

/****************************/
/* Compute CAR */
/****************************/
/***********************************************/
/* CAR Component - mktval_assetpoorcars: */
/***********************************************/
if (sc_12a_trunc >= 0) then mktval_assetpoorcars = (mktval_assetpoorcars + sc_12a_trunc);
else if (sc_12a_trunc = 1 & sc_12a_ref_1a = 1 & sc_12a_sr000001 < 0 & sc_12a_sr000002 < 0
& sc_12a_uab_a < 0 & sc_12a_uab_b < 0 ) then mktval_assetpoorcars = -1;
else if (sc_12a_trunc in(-1, -2) & (sc_12a_sr000001 < 0 | sc_12a_sr000002 < 0)
& sc_12a_uab_a < 0 & sc_12a_uab_b < 0) then mktval_assetpoorcars = sc_12a_trunc;
else if (sc_12a_sr000001 >= 0 & sc_12a_sr000002 >= 0 & sc_12a_sr000002 = sc_12a_sr000001) then
mktval_assetpoorcars = (mktval_assetpoorcars + sc_12a_sr000001);
else if (sc_12a_sr000001 >= 0 & sc_12a_sr000002 >= 0 & sc_12a_sr000002 > sc_12a_sr000001) then
mktval_assetpoorcars = (mktval_assetpoorcars + (((sc_12a_sr000002 - sc_12a_sr000001)/2) + sc_12a_sr000001));
else if (sc_12a_sr000001 >= 0 & sc_12a_sr000002 >= 0 & sc_12a_sr000002 < sc_12a_sr000001) then
mktval_assetpoorcars = (mktval_assetpoorcars + (((sc_12a_sr000001 - sc_12a_sr000002)/2) + sc_12a_sr000002));
else if (sc_12a_trunc in(-1, -2, -4) & sc_12a_uab_b = 0) then mktval_assetpoorcars = (mktval_assetpoorcars + quartile1);
else if (sc_12a_trunc in(-1, -2, -4) & sc_12a_uab_b = 1) then mktval_assetpoorcars = (mktval_assetpoorcars + quartile2);
else if (sc_12a_uab_a in(-1, -2) | sc_12a_uab_b in(-1, -2)) then mktval_assetpoorcars = -3;

/************************************************/
/* CAR Component - marketvalue_vehicles: */
/************************************************/

if (nfa_4c_trunc >= 0) then marketvalue_vehicles = (marketvalue_vehicles + nfa_4c_trunc);
else if (nfa_4c_trunc in(-1, -2) & (nfa_4c_sr000001 < 0 | nfa_4c_sr000002_trunc < 0)
& nfa_4c_uab_a < 0 & nfa_4c_uab_b < 0 & nfa_4c_uab_c < 0) then marketvalue_vehicles = nfa_4c_trunc;
else if (nfa_4c_sr000001 >= 0 & nfa_4c_sr000002_trunc >= 0 & nfa_4c_sr000002_trunc = nfa_4c_sr000001) then
marketvalue_vehicles = (marketvalue_vehicles + nfa_4c_sr000001);
else if (nfa_4c_sr000001 >= 0 & nfa_4c_sr000002_trunc >= 0 & nfa_4c_sr000002_trunc > nfa_4c_sr000001) then
marketvalue_vehicles = (marketvalue_vehicles + (((nfa_4c_sr000002_trunc - nfa_4c_sr000001)/2) + nfa_4c_sr000001));
else if (nfa_4c_sr000001 >= 0 & nfa_4c_sr000002_trunc >= 0 & nfa_4c_sr000002_trunc < nfa_4c_sr000001) then
marketvalue_vehicles = (marketvalue_vehicles + (((nfa_4c_sr000001 - nfa_4c_sr000002_trunc)/2) + nfa_4c_sr000002_trunc));
else if (nfa_4c_trunc in(-1, -2, -4) & nfa_4c_uab_b = 0) then marketvalue_vehicles = (marketvalue_vehicles + quartile1);
else if (nfa_4c_trunc in(-1, -2, -4) & nfa_4c_uab_b = 1) then marketvalue_vehicles = (marketvalue_vehicles + quartile2);
else if (nfa_4c_trunc in(-1, -2, -4) & nfa_4c_uab_c = 0) then marketvalue_vehicles = (marketvalue_vehicles + quartile3);
else if (nfa_4c_trunc in(-1, -2, -4) & nfa_4c_uab_c = 1) then marketvalue_vehicles = (marketvalue_vehicles + 50000);
else if (nfa_4c_uab_a in(-1, -2) | nfa_4c_uab_b in(-1, -2) | nfa_4c_uab_c in(-1, -2)) then marketvalue_vehicles = -3;

/***********************************************/
/* CAR Component - mktval_othervehicles: */
/***********************************************/

if (nfa_5 = 1 & nfa_5c_trunc >= 0) then mktval_othervehicles = (mktval_othervehicles + nfa_5c_trunc);
else if (nfa_5 = 1 & nfa_5c_ref_1 = 1 & nfa_5c_sr000001 < 0 & nfa_5c_sr000002 < 0
& nfa_5c_uab_a < 0 & nfa_5c_uab_b < 0 & nfa_5c_uab_c < 0) then mktval_othervehicles = -1;
else if (nfa_5 = 1 & nfa_5c_trunc in(-1, -2) & (nfa_5c_sr000001 < 0 | nfa_5c_sr000002 < 0)
& nfa_5c_uab_a < 0 & nfa_5c_uab_b < 0 & nfa_5c_uab_c < 0) then mktval_othervehicles = nfa_5c_trunc;
else if (nfa_5c_sr000001 >= 0 & nfa_5c_sr000002 >= 0 & nfa_5c_sr000002 = nfa_5c_sr000001) then
mktval_othervehicles = (mktval_othervehicles + nfa_5c_sr000001);
else if (nfa_5c_sr000001 >= 0 & nfa_5c_sr000002 >= 0 & nfa_5c_sr000002 > nfa_5c_sr000001) then
mktval_othervehicles = (mktval_othervehicles + (((nfa_5c_sr000002 - nfa_5c_sr000001)/2) + nfa_5c_sr000001));
else if (nfa_5c_sr000001 >= 0 & nfa_5c_sr000002 >= 0 & nfa_5c_sr000002 < nfa_5c_sr000001) then
mktval_othervehicles = (mktval_othervehicles + (((nfa_5c_sr000001 - nfa_5c_sr000002)/2) + nfa_5c_sr000002));
else if (nfa_5c_trunc in(-1, -2, -4) & nfa_5c_uab_b = 0) then mktval_othervehicles = (mktval_othervehicles + quartile1);
else if (nfa_5c_trunc in(-1, -2, -4) & nfa_5c_uab_b = 1) then mktval_othervehicles = (mktval_othervehicles + quartile2);
else if (nfa_5c_trunc in(-1, -2, -4) & nfa_5c_uab_c = 0) then mktval_othervehicles = (mktval_othervehicles + quartile3);
else if (nfa_5c_trunc in(-1, -2, -4) & nfa_5c_uab_c = 1) then mktval_othervehicles = (mktval_othervehicles + 60000);
else if (nfa_5c_uab_a in(-1, -2) | nfa_5c_uab_b in(-1, -2) | nfa_5c_uab_c in(-1, -2)) then mktval_othervehicles = -3;

/*******************************/
/* Add components CAR */
/*******************************/

if (mktval_assetpoorcars >= 0) then carc = (carc + mktval_assetpoorcars);
if (marketvalue_vehicles >= 0) then carc = (carc + marketvalue_vehicles);
if (mktval_othervehicles >= 0) then carc = (carc + mktval_othervehicles);

if (mktval_assetpoorcars in(-1, -2, -3)) then carc = -3;
else if (marketvalue_vehicles in(-1, -2, -3)) then carc = -3;
else if (mktval_othervehicles in(-1, -2, -3)) then carc = -3;

/****************************/
/* Compute NET_WORTH */
/****************************/
/************************************************************/
/* NET_WORTH - add components created in above code */
/************************************************************/

if (homec >= 0) then tnfw = (tnfw + homec );
if (mortc >= 0) then tnfw = (tnfw - mortc );
if (pdebtc >= 0) then tnfw = (tnfw - pdebtc);
if (cashc >= 0) then tnfw = (tnfw + cashc );
if (irac >= 0) then tnfw = (tnfw + irac );
if (a401kc >= 0) then tnfw = (tnfw + a401kc);
if (cdsc >= 0) then tnfw = (tnfw + cdsc );
if (stockc >= 0) then tnfw = (tnfw + stockc);
if (bizc >= 0) then tnfw = (tnfw + bizc );
if (bdebtc >= 0) then tnfw = (tnfw - bdebtc);
if (cdebtc >= 0) then tnfw = (tnfw - cdebtc);
if (carc >= 0) then tnfw = (tnfw + carc );
if (posesc >= 0) then tnfw = (tnfw + posesc);
if (odebtc >= 0) then tnfw = (tnfw - odebtc);

if (homec in(-1, -2, -3)) then tnfw = -3;
if (mortc in(-1, -2, -3)) then tnfw = -3;
if (pdebtc in(-1, -2, -3)) then tnfw = -3;
if (cashc in(-1, -2, -3)) then tnfw = -3;
if (irac in(-1, -2, -3)) then tnfw = -3;
if (a401kc in(-1, -2, -3)) then tnfw = -3;
if (cdsc in(-1, -2, -3)) then tnfw = -3;
if (stockc in(-1, -2, -3)) then tnfw = -3;
if (bizc in(-1, -2, -3)) then tnfw = -3;
if (bdebtc in(-1, -2, -3)) then tnfw = -3;
if (cdebtc in(-1, -2, -3)) then tnfw = -3;
if (carc in(-1, -2, -3)) then tnfw = -3;
if (posesc in(-1, -2, -3)) then tnfw = -3;
if (odebtc in(-1, -2, -3)) then tnfw = -3;

/************************************************/
/* Adjust for partially missing range estimates */
/************************************************/

if (tnfw ~= -3 &
((((nfa_1a_sr000001 >= 0 & nfa_1a_sr000002 in(-1, -2)) | (nfa_1a_sr000001 in(-1, -2) & nfa_1a_sr000002 >= 0))
& nfa_1a_uab_a in(-1, -2, -3, -4) & nfa_1a_uab_b in(-1, -2, -3, -4) & nfa_1a_uab_c in(-1, -2, -3, -4))
| (((nfa_1b_sr000001 >= 0 & nfa_1b_sr000002 in(-1, -2)) | (nfa_1b_sr000001 in(-1, -2) & nfa_1b_sr000002 >= 0))
& nfa_1b_uab_a in(-1, -2, -3, -4) & nfa_1b_uab_b in(-1, -2, -3, -4) & nfa_1b_uab_c in(-1, -2, -3, -4))
| (((nfa_1c_sr000001 >= 0 & nfa_1c_sr000002 in(-1, -2)) | (nfa_1c_sr000001 in(-1, -2) & nfa_1c_sr000002 >= 0))
& nfa_1c_uab_a in(-1, -2, -3, -4) & nfa_1c_uab_b in(-1, -2, -3, -4) & nfa_1c_uab_c in(-1, -2, -3, -4))
| (((nfa_2a_sr000001 >= 0 & nfa_2a_sr000002 in(-1, -2)) | (nfa_2a_sr000001 in(-1, -2) & nfa_2a_sr000002 >= 0))
& nfa_2a_uab_a in(-1, -2, -3, -4) & nfa_2a_uab_b in(-1, -2, -3, -4) & nfa_2a_uab_c in(-1, -2, -3, -4))
| (((nfa_2b_sr000001 >= 0 & nfa_2b_sr000002 in(-1, -2)) | (nfa_2b_sr000001 in(-1, -2) & nfa_2b_sr000002 >= 0))
& nfa_2b_uab_a in(-1, -2, -3, -4) & nfa_2b_uab_b in(-1, -2, -3, -4) & nfa_2b_uab_c in(-1, -2, -3, -4))
| (((nfa_2c_sr000001 >= 0 & nfa_2c_sr000002 in(-1, -2)) | (nfa_2c_sr000001 in(-1, -2) & nfa_2c_sr000002 >= 0))
& nfa_2c_uab_a in(-1, -2, -3, -4) & nfa_2c_uab_b in(-1, -2, -3, -4) & nfa_2c_uab_c in(-1, -2, -3, -4))
| (((fa_1a_sr000001 >= 0 & fa_1a_sr000002 in(-1, -2)) | (fa_1a_sr000001 in(-1, -2) & fa_1a_sr000002 >= 0))
& fa_1a_uab_a in(-1, -2, -3, -4) & fa_1a_uab_b in(-1, -2, -3, -4) & fa_1a_uab_c in(-1, -2, -3, -4))
| (((fa_8d_sr000001_01 >= 0 & fa_8d_sr000002_01 in(-1, -2)) | (fa_8d_sr000001_01 in(-1, -2) & fa_8d_sr000002_01 >= 0))
& fa_8d_uab_a_01 in(-1, -2, -3, -4) & fa_8d_uab_b_01 in(-1, -2, -3, -4) & fa_8d_uab_c_01 in(-1, -2, -3, -4))
| (((fa_8d_sr000001_02 >= 0 & fa_8d_sr000002_02 in(-1, -2)) | (fa_8d_sr000001_02 in(-1, -2) & fa_8d_sr000002_02 >= 0))
& fa_8d_uab_a_02 in(-1, -2, -3, -4) & fa_8d_uab_b_02 in(-1, -2, -3, -4) & fa_8d_uab_c_02 in(-1, -2, -3, -4))
| (((fa_8d_sr000001_03 >= 0 & fa_8d_sr000002_03 in(-1, -2)) | (fa_8d_sr000001_03 in(-1, -2) & fa_8d_sr000002_03 >= 0))
& fa_8d_uab_a_03 in(-1, -2, -3, -4) & fa_8d_uab_c_03 in(-1, -2, -3, -4))
| (((fa_8d_sr000001_05 >= 0 & fa_8d_sr000002_05 in(-1, -2)) | (fa_8d_sr000001_05 in(-1, -2) & fa_8d_sr000002_05 >= 0))
& fa_8d_uab_a_05 in(-1, -2, -3, -4) & fa_8d_uab_c_05 in(-1, -2, -3, -4))
| (((fa_8d_sr000001_06 >= 0 & fa_8d_sr000002_06 in(-1, -2)) | (fa_8d_sr000001_06 in(-1, -2) & fa_8d_sr000002_06 >= 0))
& fa_8d_uab_a_06 in(-1, -2, -3, -4) & fa_8d_uab_b_06 in(-1, -2, -3, -4) & fa_8d_uab_c_06 in(-1, -2, -3, -4))
| (((fa_8d_sr000001_07 >= 0 & fa_8d_sr000002_07 in(-1, -2)) | (fa_8d_sr000001_07 in(-1, -2) & fa_8d_sr000002_07 >= 0))
& fa_8d_uab_a_07 in(-1, -2, -3, -4) & fa_8d_uab_c_07 in(-1, -2, -3, -4))
| (((fa_6e_sr000001 >= 0 & fa_6e_sr000002 in(-1, -2)) | (fa_6e_sr000001 in(-1, -2) & fa_6e_sr000002 >= 0))
& fa_6e_uab_a in(-1, -2, -3, -4) & fa_6e_uab_b in(-1, -2, -3, -4) & fa_6e_uab_c in(-1, -2, -3, -4))
| (((fa_7c_sr000001 >= 0 & fa_7c_sr000002 in(-1, -2)) | (fa_7c_sr000001 in(-1, -2) & fa_7c_sr000002 >= 0))
& fa_7c_uab_a in(-1, -2, -3, -4) & fa_7c_uab_b in(-1, -2, -3, -4) & fa_7c_uab_c in(-1, -2, -3, -4))
| (((fa_2a_sr000001 >= 0 & fa_2a_sr000002 in(-1, -2)) | (fa_2a_sr000001 in(-1, -2) & fa_2a_sr000002 >= 0))
& fa_2a_uab_a in(-1, -2, -3, -4) & fa_2a_uab_b in(-1, -2, -3, -4) & fa_2a_uab_c in(-1, -2, -3, -4))
| (((fa_3a_sr000001 >= 0 & fa_3a_sr000002 in(-1, -2)) | (fa_3a_sr000001 in(-1, -2) & fa_3a_sr000002 >= 0))
& fa_3a_uab_a in(-1, -2, -3, -4) & fa_3a_uab_b in(-1, -2, -3, -4) & fa_3a_uab_c in(-1, -2, -3, -4))
| (((fa_4a_sr000001 >= 0 & fa_4a_sr000002 in(-1, -2)) | (fa_4a_sr000001 in(-1, -2) & fa_4a_sr000002 >= 0))
& fa_4a_uab_a in(-1, -2, -3, -4) & fa_4a_uab_c in(-1, -2, -3, -4))
| (((fa_5a_sr000001 >= 0 & fa_5a_sr000002_trunc in(-1, -2)) | (fa_5a_sr000001 in(-1, -2) & fa_5a_sr000002_trunc >= 0))
& fa_5a_uab_a in(-1, -2, -3, -4) & fa_5a_uab_b in(-1, -2, -3, -4) & fa_5a_uab_c in(-1, -2, -3, -4))
| (((fa_9a_sr000001_trunc >= 0 & fa_9a_sr000002 in(-1, -2)) | (fa_9a_sr000001_trunc in(-1, -2) & fa_9a_sr000002 >= 0))
& fa_9a_uab_a in(-1, -2, -3, -4) & fa_9a_uab_b in(-1, -2, -3, -4) & fa_9a_uab_c in(-1, -2, -3, -4))
| (((fa_10a_sr000001_trunc >= 0 & fa_10a_sr000002_trunc in(-1, -2)) | (fa_10a_sr000001_trunc in(-1, -2) & fa_10a_sr000002_trunc >= 0))
& fa_10a_uab_a in(-1, -2, -3, -4) & fa_10a_uab_b in(-1, -2, -3, -4) & fa_10a_uab_c in(-1, -2, -3, -4))
| (((fa_11a_sr000001 >= 0 & fa_11a_sr000002 in(-1, -2)) | (fa_11a_sr000001 in(-1, -2) & fa_11a_sr000002 >= 0))
& fa_11a_uab_a in(-1, -2, -3, -4) & fa_11a_uab_b in(-1, -2, -3, -4) & fa_11a_uab_c in(-1, -2, -3, -4))
| (((q13_131_sr000001 >= 0 & q13_131_sr000002 in(-1, -2)) | (q13_131_sr000001 in(-1, -2) & q13_131_sr000002 >= 0))
& q13_131_uab_a in(-1, -2, -3, -4) & q13_131_uab_c in(-1, -2, -3, -4))
| (((q13_132_sr000001 >= 0 & q13_132_sr000002 in(-1, -2)) | (q13_132_sr000001 in(-1, -2) & q13_132_sr000002 >= 0))
& q13_132_uab_a in(-1, -2, -3, -4) & q13_132_uab_c in(-1, -2, -3, -4))
| (sc_12b_sr000001 >= 0 & sc_12b_sr000002 in(-1, -2)) | (sc_12b_sr000001 in(-1, -2) & sc_12b_sr000002 >= 0)
| (((nfa_4f_sr000001_trunc >= 0 & nfa_4f_sr000002_trunc in(-1, -2)) | (nfa_4f_sr000001_trunc in(-1, -2) & nfa_4f_sr000002_trunc >= 0))
& nfa_4f_uab_a in(-1, -2, -3, -4) & nfa_4f_uab_b in(-1, -2, -3, -4) & nfa_4f_uab_c in(-1, -2, -3, -4))
| (((sc_12a_sr000001 >= 0 & sc_12a_sr000002 in(-1, -2)) | (sc_12a_sr000001 in(-1, -2) & sc_12a_sr000002 >= 0))
& sc_12a_uab_a in(-1, -2, -3, -4) & sc_12a_uab_b in(-1, -2, -3, -4))
| (((nfa_4c_sr000001 >= 0 & nfa_4c_sr000002_trunc in(-1, -2)) | (nfa_4c_sr000001 in(-1, -2) & nfa_4c_sr000002_trunc >= 0))
& nfa_4c_uab_a in(-1, -2, -3, -4) & nfa_4c_uab_b in(-1, -2, -3, -4) & nfa_4c_uab_c in(-1, -2, -3, -4))
| (((nfa_5c_sr000001 >= 0 & nfa_5c_sr000002 in(-1, -2)) | (nfa_5c_sr000001 in(-1, -2) & nfa_5c_sr000002 >= 0))
& nfa_5c_uab_a in(-1, -2, -3, -4) & nfa_5c_uab_b in(-1, -2, -3, -4) & nfa_5c_uab_c in(-1, -2, -3, -4))
| (((nfa_6e_sr000001 >= 0 & nfa_6e_sr000002_trunc in(-1, -2)) | (nfa_6e_sr000001 in(-1, -2) & nfa_6e_sr000002_trunc >= 0))
& nfa_6e_uab_a in(-1, -2, -3, -4) & nfa_6e_uab_b in(-1, -2, -3, -4) & nfa_6e_uab_c in(-1, -2, -3, -4))))
then do;
tnfw = -3;
tnfw_trunc = -3;
end;

/*************************************************/
/* Apply Topcode to TNFW_TRUNC for 2020 */
/*************************************************/

if (tnfw_trunc > 5384000) then tnfw_trunc = 16449398;

tnfw_trunc = round(tnfw_trunc);

Asset and debt questions were first introduced in 1985. They were included in each survey through the 1990s, with the exception of 1991. Beginning in 2000, the assets module has been included in alternating rounds. These questions solicit information about specific categories of assets and debt. The 1985 survey included questions about ten categories. In subsequent years, these categories were expanded. Through the 1990s, the values for each category were collected with a single question per category. In 2000 and beyond, multiple values were collected with respect to some categories, providing some additional definition to those categories. For instance, questions about home value were expanded to include the value of a secondary residence as well. A single question on stocks/bonds/mutual funds/etc. was split to ask individually about stock values, bond values, mutual fund values, etc. Questions on business values and debts were expanded to establish sole or joint ownership of the business and percentage of the business that respondents owned if applicable.

In the 2000 and subsequent surveys, respondents were also given the opportunity to provide estimates for some values of which they were unsure or for which they refused to report a precise figure. Respondents had the opportunity to report values within a bounded range (reporting a low and high value) and/or to report values simply over or under certain amounts (see description of unfolding brackets earlier in the appendix), enabling a range to be established. These estimates were incorporated into the TNFW_TRUNC values where available. Questions containing the string “_SR000001” and “_SR000002” contain values for low- and high-bounded ranges respondents may have reported. Questions containing the string “UAB_A”, “UAB_B” and “UAB_C” contain responses to unfolding brackets if the respondent reported estimates in that manner. The exception is 2000, the introductory year, when only a few questions (Q13-122, Q13-123C and Q13-125) were followed by unfolding brackets if necessary.

The categories of assets and debt are listed below, along with the survey year in which they were introduced.

1) Home value (1985)
2) Mortgages (1985)
3) Other residential debt (1985)
4) Value of farm/business/real estate (1985)
5) Debts of farm/business/real estate (1985)
6) Market value of vehicles (1985)
7) Debt of vehicles (1985)
8) Value of stocks/bonds/mutual funds (1988)
9) Value of CDs (1994)
10) Value of trusts (1988–2000 only)*
11) Value of IRAs (1994)
12) Value of 401ks and 403bs (1994)
13) Value of cash savings (1985)
14) Value of other assets like jewelry/collections (1985)
15) Value of all other debts like credit cards/student loans (1985)

*Trusts were dropped in 2000 as few respondents reported being trust fund recipients.

Table 2 lists the reference numbers, question names and titles from the 1996 survey for each of the categories, and the imputed variable created for each category:

Table 2. Round 17 (1996) Asset and Debt Variable Categories
Asset/Debt Category (Imputed variables were used to compute the older NET_WORTH_[YR], variables, but not the updated TNFW_TRUNC variables. These use the truncated versions of the variables in the Qname column.)	R Num	Root Qname (rev/trunc version used wherever exists)	Description
Q13-118_REVISED	R57282.01	Q13-118	Mkt Val Res Property R-Sp Own 96
Q13-119	R57283.01	Q13-119	Amount R-Sp Owe On Res Property 96
Q13-120_REVISED	R57284.01	Q13-120	Amt Oth Debt R-Sp Owes On Res Prop 96
Q13-122_REVISED	R57286.01	Q13-122	Amount In Savings Accounts 96
Q13-123A_REVISED	R57288.01	Q13-123A	Amount In IRAs-Keough 96
Q13-123C_REVISED	R57290.01	Q13-123C	Amount In Tax-Defrd Plans 96
Q13-123E_REVISED	R57292.01	Q13-123E	Amount In CDs, Loans, Mortg 96
Q13-125_REVISED	R57294.01	Q13-125	Mkt Val Of Stocks, Bonds R-Sp Have 96
Q13-127_REVISED	R57296.01	Q13-127	Total Val Of Estate, Invest Trust 96
Q13-131_REVISED	R57300.01	Q13-131	Ttl Mkt Val Farm, Bsns, Oth Prop? 96
Q13-132_REVISED	R57301.01	Q13-132	Ttl Amt Debts, Liablty Farm, Bsns 96
Q13-135_REVISED	R57304.01	Q13-135	Amt R-Sp Owe On Vehicles 96
Q13-136_REVISED	R57305.01	Q13-136	Mkt Val Of Vehicles R-Sp Own 96
Q13-138_REVISED	R57307.01	Q13-138	Ttl Mkt Val Items Over $500 96
Q13-140_REVISED	R57309.01	Q13-140	Total Amt R-Sp Owe To Creditors 96

As an example, Table 3 lists the twelve variables used in 2004 to create the home value variable, as a component of "TNFW_TRUNC.”

Table 3: 2004 Home Value Variables
R Number	Qname	Title
R83792.00	NFA_1A_TRUNC	Mkt Val Res Property R/Sp Own 2004
R83793.00	NFA_1A_SR000001	Est Market Value Of Residential Property R/Spar Own
R83794.00	NFA_1A_SR000002	Est Market Value Of Residential Property R/Spar Own
R83795.00	NFA_1A_UAB_A	Market Value Of Residence In 2003 More Than Entry Amount
R83795.10	NFA_1A_UAB_B	Market Value Of Residence In 2003 More Than $5k
R83796.00	NFA_1A_UAB_C	Market Value Of Residence In 2003 More Than $30k
R83814.00	NFA_2A_TRUNC	Market Value of (2nd) Residential Property R/Spouse Own
R83814.00	NFA_2A_SR000001	Est Market Value Of (2nd) Residential Property R/Spar Own
R83815.00	NFA_2A_SR000002	Est Market Value Of (2nd) Residential Property R/Spar Own
R83816.00	NFA_2A_UAB_A	Market Value Of (2nd) Residence In 2003 More Than Entry Amount
R83816.10	NFA_2A_UAB_B	Market Value Of (2nd) Residence In 2003 More Than $5k
R83817.00	NFA_2A_UAB_C	Market Value Of (2nd) Residence In 2003 More Than $30k

Table 4 lists the root variables included in the asset and debt categories starting with Round 21 (2004). While only the root question names are shown in Table 4, the additional bounded range and unfolding bracket estimate questions, shown in Table 3, are incorporated as well whenever applicable.

Table 4: Data Underlying Mid-Level Asset and Debt Categories Used Beginning in Round 21 (2004)
Asset/Debt Category	Rnum (the first Rnum is listed for sets of variables that fall in loops and have more than one occurrence)	Root Qname (truncated version used wherever exists)	Description
HOME/RESIDENTIAL VALUE
	R83792.00	NFA_1A	Value of 1st Home
	R83814.00	NFA_2A	Value of 2nd Home/Time Share
MORTGAGE
	R83799.00	NFA_1B	Mortgage on 1st Home
	R83820.00	NFA_2B	Mortgage on 2nd Home/Time Share
PROPERTY DEBT
	R83808.00	NFA_1C	Other Property Debt on 1st Home
	R83827.00	NFA_2C	Other Property Debt on 2nd Home/Time Share
CASH SAVINGS
	R83630.00	FA_1A	Total Amount In Checking, Savings, And Money Market Funds
STOCKS/BONDS
	R83648.00	FA_3A	Total Money If R-Spar Cashed In US Government Savings bonds
	R83657.00	FA_4A	Total Money If R-Spar Sold Mutual Funds
	R83666.00	FA_5A	Total Money If Insurance Policies Cashed
	R83764.00	FA_9A	Money R-Spar Have If Sold/Paid Amt Owe On Stock
	R83773.00	FA_10A	Amt Of $ If Cash/Pay Off Securities/ Bonds
	R83782.00	FA_11A	R-Spouse/Partner Owed Money From Personal Or Mortgage Loans
TRUSTS
			These variables contain only -4s and -5s after survey year 2000, since the trust asset value questions were not asked. Because there was a chance the underlying questions would be brought back, the variables (all missing) are still present in several years after 2000 to preserve a consistent sequence.
BUSINESS ASSETS
	R83868.00	Q13-FJT-11.##	Market Value Of Farm in 2003, Excluding Crops Held Under Commodity Credit Loans
	R83873.00	Q13-FJT-12B.##	Percentage Of Farm Owned By R Or Spouse
	R83896.00	Q13-BPPJT-11.##	Market Value Of Business Professional Practice
	R83904.00	Q13-BPPJT-12B.##	Percentage Of Professional Practice That R Owns
	R83907.00	Q13-BPPJT-12E.##	Market Value Of R Share Of Professional Practice
	R83927.00	Q13-REJT-11.##	Market Value Of Additional Real Estate
	R83932.00	Q13-REJT-12B.##	Percentage Of Real Estate R-Spouse Own
	R83936.00	Q13-REJT-12E.##	Market Value Of R Share Of Real Estate
	R83943.00	Q13-131	Total Market Value Of Farm/Business/Other Property R/Spouse Own
BUSINESS DEBT
	R83869.00	Q13-FJT-12.##	Total Amount Of Debts Owed On Farm
	R83900.00	Q13-BPPJT-12.##	Total Amount Of Debts Owed On Professional Practice
	R83950.00	Q13-132	Total Amount Of Debts On Farm/Business/Other Property R/Spouse Owe
CAR VALUE
	R83979.00	NFA_4C.##	Market Value Of Vehicle
	R83611.00	SC_12A.01.##	Current Value Of Vehicle
	R84105.00	NFA_5C	Market Value Of Other Personal Use Vehicles
CDs
	R83639.00	FA_2A	Total Money If R-Spouse Cashed In Certificate of Deposits/CDs
CAR DEBT
	R84080.00	NFA_4F.##	Total Amount Owed By R-Spouse On Vehicle After Last Car Payment
	R84098.00	NFA_5B	Total Amount Owed By R-Spar On All Other Personal Use Vehicles
	R83621.00	SC_12B.##	Balance Owed On Vehicle After Last Payment
POSSESSIONS
	R84116.00	NFA_6E	Market Value Of Collections Worth $1000 Or More
	R84125.00	NFA_7D	Market Value Of Individual R-Spouse Items Worth $1000 Or More
OTHER DEBT
	R84132.00	DEBT_1A	Total Balance Owed On All Credit Card Accounts Together
	R84139.00	DEBT_2A	Total Amount R-Spouse Owes On Student Loans
	R84147.00	DEBT_2D	Total Amount Owed On Student Loans For Children
	R84154.00	DEBT_3A	Total Amount R-Spouse Owes To Other Businesses After Most Recent Payment
	R84161.00	DEBT_4A	Total Amount R-Spouse Owes Other Persons, Institutions, Companies to nearest $1000
IRAs
	R83733.00	FA_8D_TRUNC.##	Total Money If Tax Advantage Account Cashed
401Ks
	R83683.00	FA_6E	Total Value Of Emp-Sponsored Retiremt Plans
	R83700.00	FA_7C	Tot Balance Of Spar-Emp Sponsored Retiremt Plans

Researchers can find all the original respondent data (truncated where necessary) in the NLSY79 dataset in the NLS Investigator by searching the root qnames listed in the tables above.

Read more about NLSY79 Appendix 23: Revised Asset and Debt Variables and Computed TOTAL Net Wealth Variables

NLSY79 Appendix 22: Migration Distance Variables for Respondent Locations

To support research on respondent mobility, we created a series of variables for the distance between respondent addresses at each interview round. This supplements the data on state and county of residence in the Geocode release. These variables are available only on the Geocode data release.

These confidential files are available for use only at the BLS National Office in Washington, DC, and at Federal Statistical Research Data Centers (FSRDCs) on statistical research projects approved by BLS. Access to data is subject to the availability of space and resources. Information about applying to use the zip code and Census tract data is available on the BLS Restricted Data Access page.

The distance between the respondent's addresses at each date of interview was created for all unique pairs of survey years with names in the form DISTANCE_DTyrA_yrB. (In order to avoid unnecessary duplication of variables these distance based variables are between years A and B only for A>B.) The data described here do not actually provide a location for the respondent's residence; these variables only provide distances between the various places the respondent lives. This pairwise matrix of variables enables various types of migration research by enabling users to consider the distance between residences and to identify return migration to an area where the respondent has lived in the past.

In addition to the set of distance variables, we created indicators of the quality of the geographic data. For a variety of reasons, we may not have an address for the respondent. In such cases we geocode the respondent to the centroid of the zipcode when we can determine the zipcode. To identify these cases, an indicator for the quality of this distance measure was created based on the quality of the matches in both years. This variable, DISTANCE_DFyrA_yrB takes a value of 1 if the addresses in both years were exact address matches, a value of 2 if one match was based on the zip centroid and the other was an exact address match, and a value of 3 if both were zip centroid matches.

Finally, DISTANCE_DZCyrA_yrB, an indicator for whether the respondent was located in the same zip code, was created for all pairs of years.

Data Notes and Variable Construction:

The large number of "Don't Know" values for 1979 and 1980 reflects the weakness of the address data for the 1980 wave due to 1980 addresses being missing at a high rate. The 1980 addresses were only recovered from the archives a few years ago and what we have represents considerable effort to re-constitute the historical record.

Respondent address data can be rather messy with some fields of an address either missing or incorrectly carried over from a previous round. The most reliable address components we have are the state and county of residence at each interview round. Archivists put considerable effort into examining conflicting pieces of evidence to arrive at the most reasonable judgment as to where the respondent lived at the time of the interview. Users should bear in mind that some respondents live in temporary quarters with friends, relatives or in a shelter, are working at remote locations where the employer supplies a place to stay, are homeless or living out of a car or choose not to say where they live. Some addresses are RFD, descriptive (at that trailer park just outside of town) or the respondent uses a PO Box, making it impossible to assign longitude and latitude to the address. Archivists consulted a variety of data resources in both the interview form and records from the field to make as accurate a determination as possible. For example, in years when landlines dominated telephony, area codes and exchanges provided reliable data on location as interviewers use the telephone heavily in setting appointments and, in some cases, conducting the interview over the phone.

These distance data were constructed in 2009. We proceeded under the assumption that any attempt to correct the existing state and county of residence many years after the original geocoding effort was more likely to degrade data quality than improve it. Hence the created distance variables are consistent with the state and county of residence data released in the various waves of the NLSY79 geocode data.

The major task was in placing the respondent at a particular location in the county so that we could compute distances. A corollary to this is that distance measures involving moves from one county to another, and especially one state to another, will likely contain error that are a relatively small fraction of the total distance moved. However, the major motivation of this effort is to provide the user with an indication of when a respondent moved back to a location that is relatively nearby one of their former addresses, signifying a return to a place where the respondent may have an existing network of contacts.

There are several caveats in using these data about which researchers should be aware.

In years 1984-1989 address information was in principle collected only for individuals who had changed addresses since the date of the previous interview. The raw data from those years show fewer moves from year to year than at any other time during the project. We believe moves are understated in these years. As a consequence the created variables between pairs of years that include any year 1984-1989 likely understate the degree of mobility that occurred or incorrectly assigning mobility to a later date when address data were collected with greater rigor.
The distance between a respondent's addresses in pairs of years is an imperfect proxy for whether the respondent ever moved between those years. There is a fair amount of return migration, and respondents may have experienced multiple, high frequency address changes and be located at the same address at the time of the two consecutive interviews despite having moved between interviews. It is possible to detect some of these interim moves from migration histories collected in selected survey years, but these moves are not represented in these data, which only deal with location at the date of interview.
The frequency of moves between all possible pairs of years, A>B, is higher than it is between adjacent interview years. Consider two individuals with complete data over a 10-year window. There are up to 9 possible moves between consecutive interviews and 45 pairs of years. If individual 1 moves once between consecutive years or 10% of the time between consecutive years, his mean of moving over all year pairs is 20% (assuming the move is in the interior of the interval). If individual 2 moves 5 times or 50% of the time between consecutive years, his mean of moves between all pairs of years is 78%. By similar logic one long distance move will generate indications of many long distance years among all possible pairs of years.
There have been changes over time in the FIPS (Federal Interagency Processing Standards) codes for some counties and county equivalents. In each round of data the state and county codes reflect the contemporaneous FIPS codes. In creating the distance based variables the changes in coding were reconciled. There are cases in which the FIPS codes are different across pairs of years but the change of address variable indicates that the respondent was located at the same address. That is, the distance moved variables we created will show no move whereas an examination of FIPS codes would suggest a move.
Archivists were able to identify respondents' state and county of residence even in cases where the address data were insufficient to locate the residence more precisely within the county. In some cases we could locate the respondent in a zipcode and we used the zipcode centroid as the respondent location. In other cases, we could not generate the respondent's latitude and longitude if the zipcode was not determined. As a result, there are numerous cases in which the pairwise distance variables are missing but state and county variables are available in both years.
For pairs of addresses within the same county, we reviewed addresses to determine whether what appeared to be different addresses were actually the same place but with differences in spelling or other minor errors that might lead to an address being put in a different location or treated as not translatable into latitude and longitude. For example, 126 USA Street and 126 USO Street may be the same place with a typographical error. We have made an effort to reconcile these differences, eliminating such false moves.

Because software packages that assign latitude and longitude to addresses have evolved over time and differ slightly among vendors, the same address can generate slightly different latitude and longitude based on variation in the software system. We have enforced matching coordinates for matching addresses based upon the presumption that geocoding software has seen a secular improvement so that more recently generated coordinates are most likely more reliable. When the same address generates different coordinates, we accept the more recent coordinates.

Programming for Migration Distance Variables

Variable Names in Program Variable names in Nlsy79 Data Release
dist_2020_&yra (1979-2018) distance_d20_[survey year] (1979-2018)
dist_collapsed_2020_&yra (1979-2018) distance_dt20_[survey year] (1979-2018)
dist_type_2020_&yra (1979-2018) distance_df20_[survey year] (1979-2018)
zip_changed_2020_&yra (1979-2018) distance_dzc20_[survey year] (1979-2018)

array rni (i) rni80-rni94 rni96 rni98 rni00 rni02 rni04 rni06 rni08 rni10 rni12 rni14 rni16 rni18;
array nonint (i) nonint1980-nonint1994 nonint1996 nonint1998 nonint2000 nonint2002 nonint2004 nonint2006 nonint2008 nonint2010 nonint2012 nonint2014 nonint2016 nonint2018;

do over rni;
if rni>=60 then nonint=1;
else nonint=0;
end;

nonint1979=0;

if curdate_y=-5 then nonint2020=1;
else if curdate_y>0 then nonint2020=0;
run;

data movematrix2020; merge r29.longlat79_20_edited rni8020;by norcid;

*calculate distances;
%macro survey_y(yra);
%if &yra < 2020 %then %do;
latA = lat&yra;
latB = lat2020;
longA = long&yra;
longB = long2020;
centrA = zip_centroid&yra;
centrB = zip_centroid2020;

if (latA ~= . and latB ~= .) then do;
if latA = latB and longA = longB then do;
dist = 0;
end;
else do;
* Convert to radians (multiply by pi/180);
latA = latA * 0.017453;
longA = longA * 0.017453;
latB = latB * 0.017453;
longB = longB * 0.017453;

dlat = latB - latA;
dlong = longB - longA;

a1 = (sin(dlat/2))**2;
a2 = cos(latA) * cos(latB) * ((sin(dlong/2))**2);
a = a1 + a2;
dist = 2.0 * 3963.0 * atan2( sqrt(a), sqrt(1-a) );

dist = round(dist * 100)/100;
end;

* collapsed variable;
if dist = 0 then dist_collapsed = 0;
else if dist < 0.189393939 then dist_collapsed = 1;* 1000 ft;
else if dist < 1 then dist_collapsed = 2;
else if dist < 5 then dist_collapsed = 3;
else if dist < 20 then dist_collapsed = 4;
else if dist < 50 then dist_collapsed = 5;
else if dist < 100 then dist_collapsed = 6;
else if dist < 500 then dist_collapsed = 7;
else if dist >=500 then dist_collapsed = 8;

/* Distance precission type depending on the zip-centroid flag */
if latA ~= . and latB ~= . then do;
if centrA = 0 and centrB = 0 then dist_type = 1;
else if centrA = 1 and centrB = 1 then dist_type = 3;
else dist_type = 2;
end;

dist_2020_&yra = dist;
dist_collapsed_2020_&yra = dist_collapsed;
dist_type_2020_&yra = dist_type;
end;

* Did the zipcode change ?;
if zip&yra = ' ' or zip2020 = ' ' then zip_changed = .;
else if zip&yra = zip2020 & latA~=. & latB~=. then zip_changed=0;
else if zip&yra ~= zip2020 & latA~=. & latB~=. then zip_changed=1;

if latA ~= . and latB ~= . then zip_changed_2020_&yra = zip_changed;
else zip_changed_2020_&yra = .;

* non-interview;
if dist_2020_&yra=. and (nonint&yra=1 or nonint2020=1) then dist_2020_&yra=-5;
if dist_collapsed_2020_&yra=. and (nonint&yra=1 or nonint2020=1) then dist_collapsed_2020_&yra=-5;
if dist_type_2020_&yra=. and (nonint&yra=1 or nonint2020=1) then dist_type_2020_&yra=-5;
if zip_changed_2020_&yra=. and (nonint&yra=1 or nonint2020=1) then zip_changed_2020_&yra=-5;

* invalid missing;
if dist_2020_&yra=. then dist_2020_&yra=-4;
if dist_collapsed_2020_&yra=. then dist_collapsed_2020_&yra=-4;
if dist_type_2020_&yra=. then dist_type_2020_&yra=-4;
if zip_changed_2020_&yra=. then zip_changed_2020_&yra=-4;

%end;
%mend;

%macro rd;
%do yra = 1979 %to 1994;
%survey_y(&yra);
%end;
%do yra = 1996 %to 2018 %by 2;
%survey_y(&yra);
%end;
%mend;

%rd;
run;

Read more about NLSY79 Appendix 22: Migration Distance Variables for Respondent Locations

NLSY79 Appendix 21

This appendix is obsolete. The content for Appendix 21 is now included in Appendix 25: Attitudinal Scale Scoring.

Read more about NLSY79 Appendix 21

NLSY79 Appendix 20: Round 20 (2002) Early Bird and Income Recall Experiments

Two experiments were implemented with the round 20 (2002) survey. Each is described in more detail below.

Early Bird Experiment
Income Recall and Estimation Experiment

Early Bird Experiment

The first experiment, called the Early Bird Experiment, sought to encourage early participation in the survey and to save resources on later locating and conversion efforts. A group of over 2800 respondents who have been friendly and cooperative in round 19 (2000) were assigned to an "Early Bird" sample of respondents. These respondents were further assigned randomly to one of 12 replicates which were fielded sequentially at regular intervals. A toll-free telephone line was established, staffed with interviewers working remotely around the country.

An initial advance letter was sent to the respondents in each replicate as their replicate was to be activated for interviewing. They were offered a higher participation fee (randomly assigned $60/$80) if they called into the toll-free line to schedule an interview within a four week window. Respondents who had not contacted the toll-free line in the first two weeks of their initial letter were sent a reminder postcard. Respondents who did not contact the toll-free line to complete their interview by the time their Early Bird window expired reverted to a $40 standard fee.

Income Recall and Estimation Experiment

The second experiment was aimed at determining the most effective way for respondents to estimate income and asset amounts. This experiment was implemented in two stages.

First, a select group of historically cooperative respondents were asked to recall their own income and, if applicable, their spouse/partner's income for the calendar year 1999. These respondents were assigned randomly to one of three types of questions and asked to estimate his/her and/or his/her spouse/partner's 1999 income. The three types of questions are described below.

Unfolding brackets: This involves asking the respondent first if the amount is above a certain amount, and based on that response whether it would be above a second amount. This procedure establishes a loose range for the amount.
Estimate to the nearest $10,000: The respondent is asked to estimate the amount to the nearest $10,000.
Self-reported ranges: The respondent is asked to report an upper and lower range for the amount. The intent of this type of question is to have the respondent to narrow the possible range in his or her own mind.

In the second stage of this experiment, these three types of questions were included in the instrument following selected income questions. Respondents who answered either "don't know" or "refuse" to the exact income amount were asked to estimate the amount using one of the three types of questions, depending upon the type of questions to which they were pre-assigned.

The results from this experiment were analyzed to determine which yielded 1) estimates of 1999 income that were closest to the actual amounts given in the 2000 interview; 2) estimates of income that most closely coincided with income reports in previous interviews and; 3) the method most successful in gaining income estimates from respondents who otherwise refuse to give such information. Users interested in obtaining the results of this analysis can request the report entitled "NLSY79 Income Experiment" (Aughinbaugh, Gardecki, 2003) by e-mailing NLS User Services.

Read more about NLSY79 Appendix 20: Round 20 (2002) Early Bird and Income Recall Experiments

Subscribe to NLSY79

NLSY79

Variable Description

Variable Creation

Introduction

Roster Construction

Employer Order

Roster Content

Roster Structure

Linking to Non-Roster Employer Variables

User Notes

User note: SYMBOL_ENTRY_[NAME]

User note: Household interview income recall experiment

User note: Asset section

Center for Epidemiologic Studies Depression (CES-D) Scale

References

Rosenberg Self-Esteem Scale

Pearlin Mastery Scale

References

Rotter Locus of Control Scale

Satisfaction with Life Scale (SWLS)

References

General Anxiety Disorder Scale (GAD-7)

Revised Asset and Debt Variables

Computed Net Wealth Variables

Programs creating Total Net Family Wealth variables

1985 TO 1987 TNFW_TRUNC Variable Creation

1988 TO 1993 TNFW_TRUNC Variable Creation

1994 TO 1998 TNFW_TRUNC Variable Creation

2000 TNFW_TRUNC Variable Creation

2004 TNFW_TRUNC Variable Creation

2008 TNFW_TRUNC Variable Creation

2012 TNFW_TRUNC Variable Creation

2016 TNFW_TRUNC Variable Creation

2020 TNFW_TRUNC Variable Creation

Data Notes and Variable Construction:

Programming for Migration Distance Variables

Early Bird Experiment

Income Recall and Estimation Experiment