Skip to main content

NLSY79

NLSY79 Appendix 5: Supplemental Fertility and Relationship Variables

File contents

The supplemental fertility data file, found in the "Fertility and Relationship History/Created" area of interest, contains a variety of constructed and edited variables based on the fertility and marriage histories of respondents, as well as the household record, from the 1979-2022 National Longitudinal Surveys of Youth 1979 cohort (NLSY79). These variables enable users to more easily access the wealth of demographic information provided by the surveys and improve the internal consistency of such data across survey years. The file contains dates of birth, sex, and usual living arrangements for all respondents' children based on a review of the longitudinal data record. Beginning in 1994, the two-digit IDs of the biological children of the female respondents were added to FERTILITY AND RELATIONSHIP HISTORY, as were separate edit flags for male and female respondents. Beginning in 2014, the two-digit IDs of the biological children of the interviewed males have been included and a single edit flag for both male and female respondents has been created. Also included are created variables that summarize dates of marriage(s), number and type of marriage and/or cohabiting relationships, number of live births and other pregnancy outcomes, spacing between births, spacing between first birth and first marriage, and age of the respondent at the time of the first marriage and key fertility events. The variables included in this file are based upon the youth fertility data as revised in a data cleanup program undertaken in 1982-1983 with additional editing provided at selected subsequent survey points.

Prior to 2008, the fertility and relationship variables have been produced only as cross-sectional variable sets for each round. Beginning with the 2008 release, a cross-round (XRND) version of these variables is also being released. XRND variables have been created for all respondents using the data from the last point at which the respondent was interviewed.  The XRND variables created include the dates of birth and sex of all biological children, as well as the pregnancy and marriage history variables.  Included in this variable set are some additional variables: the last known residence of each child as well as a year of last interview variable. The last known residence variables are intended to help users to easily identify children who are deceased or adopted out.  These last known residence variables in no way replace the year-specific residence variables, which are likely to be of interest to researchers considering residence trends across time. Users should be careful to note the year of last interview variable, as these XRND variables include data for members of the dropped oversamples as well as respondents who have not been interviewed for many rounds for other reasons. The traditional cross-sectional variables will continue to be available and created for each subsequent round, and the XRND variables will also continue to be updated.

1982 data quality check and 1986-1990 revisions

Many of the inputs into these fertility variables (specifically month and year of child's birth) were revised in 1982 in order to maximize internal consistency across years. All of the fertility-related variables in the current file are based on these "revised" data items, with the exception of those variables created directly from the respondent's household record. The variable R08988.01 (Consistency of Fertility Data 79-82) specifies for each case whether, after revision, any discrepancy in the fertility history from 1979 to 1982 still remains. In general, when a respondent was interviewed each year from 1979 to 1982, the revised 1982 variables give an accurate picture of the respondent's fertility history as of 1982. However, some inconsistencies in the data over the period were irresolvable. In such cases, the original 1982 data were left intact and a code was assigned to indicate the nature of the remaining inconsistency. A code of "1" means that the 1982 data are consistent with previous survey years, "2" indicates that a dating error remains, and "3" means that an error in the number of children still remains as of 1982. When an error on dating and on number of children occurred simultaneously, the respondent was coded as having an error on number of children since this type of misreport was considered to be more serious.

Further edits to children's dates of births for female respondents occurred in 1986 as a result of preparation for the first round of the new child-mother data tape, and in 1987 for male respondents. In 1989, attention was given to correcting subsequent inconsistencies for both males and females. With each successive survey round, an effort is made to fill in previously missing values on children's birth dates and to include children the respondent has previously failed to report. Since 1990, additional information collected on the children of the female NLSY79 respondents and released on the "Children/Young Adults of the NLSY79" file, has been used to help reconcile inconsistent information for those respondents in the Fertility and Relationship History file. In general, the quality of the fertility record for the female respondents is superior to that reported for the male respondents. 

1994 data quality check

Beginning in 1994, the supplemental fertility file includes several variables not available for earlier years. For each child of a female respondent, there is now a two-digit identification number variable, which will allow users to more accurately link data from the fertility file with data from the NLSY79 Child file. There is also a comprehensive edit flag for female respondents, allowing users to know which female respondents have had changes made to their fertility record for each survey year compared to previous data releases and what the nature of the change is. Detailed information about the coding categories is provided in the last section of this document. For male respondents, three types of edit flags are provided: two which show the extent of discrepancies between the most recent fertility record available and the current CRF data, and one which indicates cases edited to correct birth order.

As part of the preparation of the 1994 Fertility and Relationship History file, a major data reconciliation was undertaken, comparing the birth records of the female NLSY79 respondents across years. As a result, users may notice discrepancies in these variables across time. It is important for the user to understand that when a date of birth is corrected, we do not change the data for earlier points in time. Thus, there may be inconsistencies in the dates of birth and ages of specific children between the 1994 data and earlier or subsequent reports.

1993 variable construction

Although NLSY79 respondents were interviewed in 1993, the Fertility and Relationship History area of interest originally did not contain constructed variables for the 1993 survey year. Data collected in 1993 were used in the 1994 data reconciliation, and some information, such as dates of birth and death, were incorporated into the 1994 or later variables where appropriate. As part of the data work for the NLSY79 2000-2002 data releases, however, these 1993 variables were added to the Fertility and Relationship History area of interest.

The set of variables constructed for 1993 is similar to the sets created for other years in which the full battery of pre- and post-natal questions were not asked, such as 1989 or 1991, in that the pregnancy history variables were not created. Dates of birth, sex, and usual residence are constructed for all children, and 2-digit IDs are provided for the children of female respondents. As with the 1994 data, information for the male respondents was not examined as closely as was the information for female respondents. There is a detailed edit flag for the female respondents, as well as the three edit flags for the male respondents. The marriage history variables were also constructed for 1993.

Although the pattern of data evaluation and the creation of edit flags follow that of the 1994 data reconciliation, data comparisons were done only with data from the 1992 survey and earlier. Because of this approach to the data reconciliation and variable construction, the transition from 1993 to 1994 will not be seamless. Users are always advised to use Fertility and Relationship History data from the most recent survey in which a respondent was interviewed.

1979-2022 Relationship History variables

As an outgrowth of research funded by the National Institute of Child Health and Human Development (NICHD), a series of cross-sectional relationship history variables has been added to the Fertility and Relationship History area of interest. Survey staff carefully examined the names and relationships of household members as reported in the household roster, as well as in the marriage history information collected in various rounds. An attempt was made to identify all cohabiting partners listed in the household record at any point and to combine this information with the marriage data reported by respondents. In this way, the number of spouse/partners reported across survey years was identified.

Two variables per survey year have been constructed for all interviews through 2022. For each survey, the first variable (NUMSPPTR##) indicates the total number of spouses/partners a respondent has ever been known to have. The second variable (RELSPPTR##) reports the respondent's relationship to the current spouse/partner. Respondents with no current spouse/partner will have a value of zero on this variable, even if they have reported a spouse/partner in previous rounds. The possible relationship codes are spouse (1), opposite-sex partner (33), same-sex partner (75) or other (36); respondents with no known spouses or partners are coded -999. The code of "other" is used for cases where someone is listed in the household record of a given survey as, for example, an "other non-relative" but is listed as either a partner or a spouse in the preceding or subsequent survey.

These two variables can be used in conjunction to establish a numeric ID for the current or most recent spouse/partner for any given year. The value of the first variable (0-9 as of 2004) is the first digit of the ID, and the value of the second variable (1, 33, or 36) is the remainder. The resulting number indicates the sequential order of the spouse/partner in the respondent's relationship history and the respondent's relationship to that person.

Users should note that the total count of spouses and partners may be understated, because these variables are based on information reported on the interview date. A spouse or partner may have appeared between survey rounds but not have been present at any survey point. Early examination suggests that this applies to only a modest proportion of cases. In some instances, identification of spouses who were present only between rounds may be possible by using the NLSY79 marriage history, as well as the marriage transition information available at each survey point.

2012 expansion of marital transition variables

Prior to the 2012 data release, the supplemental fertility file included constructed variables for dates of marital transition up through the beginning of the third marriage. In order to provide users with the full range of dates of marital transition, survey staff carefully examined all of the marital transition data collected in the NLSY79 to identify marriage transitions beyond the beginning of the third marriage. Beginning with the 2012 data release, constructed variables are available for marital transitions up through the beginning of the seventh marriage. These data will continue to be updated and expanded as needed.

2014 data quality check

As part of the preparation of the 2014 Fertility and Relationship History file, a major data reconciliation was undertaken, comparing the birth records of the male NLSY79 respondents who were interviewed in R26 across previous interview years. As a result, users may notice discrepancies in these variables across time. It is important for the user to understand that when a date of birth is corrected, we do not change the data for earlier points in time. Thus, there may be inconsistencies in the dates of birth and ages of specific children between the 2014 data and earlier or subsequent reports.

There is a comprehensive edit flag for all respondents, allowing users to know which respondents have had changes made to their fertility record for each survey year compared to previous data releases and what the nature of the change is. Detailed information about the coding categories is provided in the last section of this document.

2016 historical reconciliation for females

Prior to the 2016 data release, survey staff carefully examined all of the data collected about children ever born in the NLSY79 for females last interviewed before 1993 and compared these data with the date of birth data in the NLSY79 Child and Young Adult data file. This historic reconciliation resulted in some changes to the dates of birth on a small number of children as well as the addition of a small number of previously missed children.

2018 historical reconciliation for males

As part of the preparation of the 2018 Fertility and Relationship History file, a major data reconciliation was undertaken, comparing the birth records of the male NLSY79 respondents who were interviewed in R28 or had been last interviewed before R26 (2014). As a result, users may notice discrepancies in these variables across time. This historic reconciliation resulted in some changes to the dates of birth on a small number of children as well as the removal of a small number of children determined to be non-biological children.

It is important for the user to understand that when a date of birth is corrected, we do not change the data for earlier points in time. Thus, there may be inconsistencies in the dates of birth and ages of specific children between the cross-round variables and later data and earlier reports.

The supplemental fertility file now includes the two-digit ID for each child of both female and male respondents. Users should exercise caution when using the two-digit IDs of the children of male respondents to connect data from past rounds, as there is greater inconsistency in these than in the IDs of the children of female respondents. 

Published reports

Since 1982, the NLSY79 fertility data have been collected with the support of funding from the National Institute of Child Health and Human Development (NICHD). The 1982 data quality check was also completed under the auspices of NICHD. A comprehensive description of the evaluation procedures used in revising the data, as well as a variety of tabular and multivariate analyses, can be found in the reports entitled "Fertility-Related Data in the 1982 National Longitudinal Survey of Work Experience of Youth: An Evaluation of Data Quality and Some Preliminary Analytical Results" and "Evaluation of Fertility Data and Preliminary Analytical Results from the 1983 (5th round) Survey of the National Longitudinal Surveys of Work Experience of Youth," both prepared by Frank L. Mott, Center for Human Resource Research. The latter report also includes a detailed evaluation of the NLSY79 abortion data. Additional tables referencing the 1986 data can also be found in "Selected Tables: National Longitudinal Surveys of Youth Cohort, May 1987." Evaluations of the marital history data are provided in R. Jean Haurin, "Inconsistencies in the NLSY Marital History Data - 1986 Supplemental Fertility File" and "Marriage and Childbearing of Adults: An Evaluation of the 1992 National Longitudinal Survey of Youth." These reports are available from NLS User Services.

Questions regarding the nature of the fertility data should be directed to Canada Keck, who can be reached via email at canada.keck@chrr.osu.edu.

Data description

The current Fertility and Relationship History file includes a small set of fertility and relationship items for all respondents for 1979-1981 and a more extensive set of variables for 1982-2022, as well as cross-round (XRND) versions of key variables. These variables include the marriage, relationship and fertility histories of both male and female respondents and the pregnancy histories of the females. The 2022 Fertility and Relationship History file, along with the XRND variables, contains what we believe to be the most accurate information for the female respondents as of that survey point.

Click below to view the program code.

Construction of number of kids and age youngest in HH (2022 and XRND)

PUBLIC RELEASE VARIABLE NAME     PROGRAM VARIABLE NAMES
  HHI_FINAL_AGE.01_2022                age01    
  HHI_FINAL_AGE.02_2022                age02    
  HHI_FINAL_AGE.03_2022                age03    
  HHI_FINAL_AGE.04_2022                age04    
  HHI_FINAL_AGE.05_2022                age05    
  HHI_FINAL_AGE.06_2022                age06    
  HHI_FINAL_AGE.07_2022                age07    
  HHI_FINAL_AGE.08_2022                age08    
  HHI_FINAL_AGE.09_2022                age09    
  HHI_FINAL_AGE.10_2022                age10    
  HHI_FINAL_AGE.11_2022                age11    
  HHI_FINAL_RELCODE.01_2022            rel01    
  HHI_FINAL_RELCODE.02_2022            rel02    
  HHI_FINAL_RELCODE.03_2022            rel03    
  HHI_FINAL_RELCODE.04_2022            rel04    
  HHI_FINAL_RELCODE.05_2022            rel05    
  HHI_FINAL_RELCODE.06_2022            rel06    
  HHI_FINAL_RELCODE.07_2022            rel07    
  HHI_FINAL_RELCODE.08_2022            rel08    
  HHI_FINAL_RELCODE.09_2022            rel09    
  HHI_FINAL_RELCODE.10_2022            rel10    
  HHI_FINAL_RELCODE.11_2022            rel11  
******************************************************
!   begin creation of household record variables for !
!   2022 supplemental fertility file.  These         !
!   variables include number of own children in      !
!   household and age of youngest child in household.!
******************************************************;
******************************************************
!  initialize array for relationship variables       !
******************************************************;
array  rels  rel01 rel02 rel03 rel04 rel05
            rel06 rel07 rel10 rel09 rel10
            rel11;
*******************************************************
!   initialize array for age of household member.     !
*******************************************************;
array  ages  age01 age02 age03 age04 age05
            age06 age07 age10 age09 age10
            age11;
********************************************************
!   create number of own children in household         !
********************************************************;
numch22=0;
do i=1 to dim(rels);
 if rels[i]=2 or rels[i]=3 or rels[i]=20 or rels[i]=21
    or rels[i]=70 or rels[i]=72 then numch22=numch22 + 1;
end;
if rel01=-5  then numch22=-5;
**********************************************************
!   create age of youngest child in household            !
**********************************************************;
ageych22=99;
do i=1 to dim(ages);
 if (rels[i]=2 or rels[i]=3 or rels[i]=20 or rels[i]=21 or rels[i]=70 or rels[i]=72)
     and ages[i]<ageych22  then ageych22=ages[i];
end;
if ageych22>=-3 and ageych22<=-1  then ageych22=-3;
if numch22=0                      then ageych22=-4;
if rel01=-5                      then ageych22=-5;

Construction of age at 1st marriage and mos between 1st marriage and first birth (2022 and XRND)

PUBLIC RELEASE VARIABLE NAMES           PROGRAM VARIABLE NAMES 
 Q1-3_A~M_1979           DOBMO79
 Q1-3_A~Y_1979           NDOBYR79
 C1DOB22~M_2022          C1MOB22
 C1DOB22~Y_2022          C1YOB22
 NUMKID22_2022           NUMKID22
 MOBG1M22_2022           MOBG1M22
 YRBG1M22_2022           YRBG1M22 
/*-----------------------------------*/
/****************************************************************/
/* The following steps create age at first marriage, months 
  between first marriage and first birth, and the flag to tell
  which came first.                                            */
/****************************************************************/
/*This constructs age at first marriage as of 2022*/
AGE1M22=.;
if MOBG1M22=-999 then AGE1M22=-999;
else if MOBG1M22=-5 then AGE1M22=-5;
if AGE1M22=. and MOBG1M22>0 and YRBG1M22>0 and DOBMO79>0 
  and NDOBYR79>0
  then do;
  if MOBG1M22<DOBMO79  then AGE1M22=YRBG1M22-NDOBYR79-1;
  if MOBG1M22>=DOBMO79 then AGE1M22=YRBG1M22-NDOBYR79;
end;
else if AGE1M22=. then do;
 if (MOBG1M22 in (-1 -2 -3)) or (YRBG1M22 in (-1 -2 -3)) then AGE1M22=-3;
end;
/*********************************************************************/
   /*Create months between first marriage and first birth
  MO1M1B  ABSOLUTE VALUE OF MONTHS BETWEEN 1ST MARRIAGE & 1ST
            BIRTH
          -999: MISSING DATE
          -998: NO CHILDREN
          -997: NEVER MARRIED
             0: SAME MONTH
  FL1M1B  FLAG TO INDICATE WHETHER 1ST MARRIAGE OCCURRED BEFORE
            1ST BIRTH
          -999: MISSING DATE
          -998: NO CHILDREN
          -997: NEVER MARRIED    */
/*********************************************************************/
MO1M1B=.;
if C1MOB22>0 and C1YOB22>0 and MOBG1M22>0 and YRBG1M22>0 then 
  MO1M1B=(C1YOB22-YRBG1M22)*12 + (C1MOB22-MOBG1M22);
FL1M1B22=.;
if MO1M1B>=0 then FL1M1B22=1;
if (MO1M1B^=. and MO1M1B<0) then FL1M1B22=0;
MO1M1B22=.;
if MO1M1B>=0 then MO1M1B22=MO1M1B;
if MO1M1B<0 then MO1M1B22=MO1M1B*(-1);
if MO1M1B22=. then do;
if C1YOB22=-5 then MO1M1B22=-5;
else if numkid22=0 then MO1M1B22=-998;
else if YRBG1M22=-999 then MO1M1B22=-997;
else if MO1M1B22=. then MO1M1B22=-999;
end;
if FL1M1B22=. then do;
if C1YOB22=-5 then FL1M1B22=-5;
else if numkid22=0 then FL1M1B22=-998;
else if YRBG1M22=-999 then FL1M1B22=-997;
else if FL1M1B22=. then FL1M1B22=-999;
end;

Construction of Marital History variables (2022 and XRND)

PUBLIC RELEASE VARIABLE NAMES           PROGRAM VARIABLE NAMES 
   CURDATE~Y_2022            CURDATEY   
   Q2-1_2022                 Q2_1       
   Q2-2_2022                 Q2_2       
   Q2-3-0A_2022              NEEDDATE   
   Q2-3-0B~M_2022            MO_MSINCORR
   Q2-3-0B~Y_2022            YR_MSINCORR
   Q2-3A_2022                Q2_3A      
   Q2-4AC_2022               CURMARNOCHG
   Q2-4A_2022                CURMARCHG  
   Q2-5A1B.01_2022           LSTMARREPL1
   Q2-5A1B.02_2022           LSTMARREPL2
   Q2-5A1B.03_2022           LSTMARREPL2
   Q2-5A1.01_2022            CHGL1_SDW  
   Q2-5A1.02_2022            CHGL2_SDW  
   Q2-5A1.03_2022            CHGL3_DRW  
   Q2-5A1_A.01_2022          CHGL1_DRW  
   Q2-5A1_A.02_2022          CHGL2_DRW  
   Q2-5B1.01~M_2022          MOCHG1A    
   Q2-5B1.01~Y_2022          YRCHG1A    
   Q2-5B2.01~M_2022          MOCHG1B    
   Q2-5B2.01~Y_2022          YRCHG1B    
   Q2-5B2.02~M_2022          MOCHG2B    
   Q2-5B2.02~Y_2022          YRCHG2B    
   Q2-5B2.03~M_2022          MOCHG3B    
   Q2-5B2.03~Y_2022          YRCHG3B    
   Q2-5B3.01~M_2022          MOCHG1C    
   Q2-5B3.01~Y_2022          YRCHG1C    
   Q2-5B3.02~M_2022          MOCHG2C    
   Q2-5B3.02~Y_2022          YRCHG2C    
   Q2-5B3.03~M_2022          MOCHG3C    
   Q2-5B3.03~Y_2022          YRCHG3C    
   Q2-5C1.01_2022            ANYCHGAFT1 
   Q2-5C1.02_2022            ANYCHGAFT2 
   Q2-5C1.03_2022            ANYCHGAFT3 
   Q2-5C1BB.01_2022          MSAFTC1    
   Q2-5C1BB.02_2022          MSAFTC2    
   Q2-5C1BB.03_2022          MSAFTC3    
   Q2-5E_2022                Q2_5E      
   Q2-5F_2022                Q2_5F      
   SYMBOL_MARCODE_2022       MARCODE    
   SYMBOL_OLDMARCODE_2022    OLDMARCODE 
   SYMBOL_MARCODEDLI_2022    MARCODEDLI             
   MOBG1M_XRND               MOBG1MMR
   YRBG1M_XRND               YRBG1MMR
   MOEN1M_XRND               MOEN1MMR
   YREN1M_XRND               YREN1MMR
   MOBG2M_XRND               MOBG2MMR
   YRBG2M_XRND               YRBG2MMR
   MOEN2M_XRND               MOEN2MMR
   YREN2M_XRND               YREN2MMR
   MOBG3M_XRND               MOBG3MMR
   YRBG3M_XRND               YRBG3MMR
   MOEN3M_XRND               MOEN3MMR
   YREN3M_XRND               YREN3MMR
   MOBG4M_XRND               MOBG4MMR
   YRBG4M_XRND               YRBG4MMR
   MOEN4M_XRND               MOEN4MMR
   YREN4M_XRND               YREN4MMR
   MOBG5M_XRND               MOBG5MMR
   YRBG5M_XRND               YRBG5MMR
   MOEN5M_XRND               MOEN5MMR
   YREN5M_XRND               YREN5MMR
   MOBG6M_XRND               MOBG6MMR
   YRBG6M_XRND               YRBG6MMR
   MOEN6M_XRND               MOEN6MMR
   YREN6M_XRND               YREN6MMR
   MOBG7M_XRND               MOBG7MMR
   YRBG7M_XRND               YRBG7MMR
   MOEN7M_XRND               MOEN7MMR
   YREN7M_XRND               YREN7MMR
intv2022=1;
if CURDATEY=-5 then intv2022=0;
/*********************************************************/
/* This step initializes variables for the 2022 marriage
  history variables in the FERTILE record.              */
/*********************************************************/
MOBG1M22=.; YRBG1M22=.; MOEN1M22=.; YREN1M22=.; MOBG2M22=.; YRBG2M22=.; MOEN2M22=.;
YREN2M22=.; MOBG3M22=.; YRBG3M22=.; MOEN3M22=.; YREN3M22=.; MOBG4M22=.; YRBG4M22=.; 
MOEN4M22=.; YREN4M22=.; MOBG5M22=.; YRBG5M22=.; MOEN5M22=.; YREN5M22=.; MOBG6M22=.; 
YRBG6M22=.; MOEN6M22=.; YREN6M22=.; MOBG7M22=.; YRBG7M22=.; MOEN7M22=.; YREN7M22=.;
AGE1M22=.;
array marrvars  MOBG1M22 YRBG1M22 MOEN1M22 YREN1M22 MOBG2M22 YRBG2M22 MOEN2M22
               YREN2M22 MOBG3M22 YRBG3M22 MOEN3M22 YREN3M22 MOBG4M22 YRBG4M22 
               MOEN4M22 YREN4M22 MOBG5M22 YRBG5M22 MOEN5M22 YREN5M22 MOBG6M22 
               YRBG6M22 MOEN6M22 YREN6M22 MOBG7M22 YRBG7M22 MOEN7M22 YREN7M22
               AGE1M22;  
do i = 1 to dim(marrvars);
 if intv2022=0 then marrvars[i]=-5;
end;
/*********************************************************/
/* This step sets a no-change flag, and for people with
  no changes sets their 2022 marriage history variables 
  to the values from the historical marriage file.      */
/*********************************************************/
/*Sets a flag equal to one if R says marstat DLI is correct and there have been no changes*/
nochange=0;
if intv2022=0 then nochange=-5;
else if intv2022=1 and Q2_1=1 and Q2_3A=0 then nochange=1;
if nochange=1 then do;
 MOBG1M22=MOBG1MMR; 
 YRBG1M22=YRBG1MMR; 
 MOEN1M22=MOEN1MMR; 
 YREN1M22=YREN1MMR; 
 MOBG2M22=MOBG2MMR; 
 YRBG2M22=YRBG2MMR; 
 MOEN2M22=MOEN2MMR;
 YREN2M22=YREN2MMR; 
 MOBG3M22=MOBG3MMR; 
 YRBG3M22=YRBG3MMR; 
 MOEN3M22=MOEN3MMR; 
 YREN3M22=YREN3MMR; 
 MOBG4M22=MOBG4MMR; 
 YRBG4M22=YRBG4MMR; 
 MOEN4M22=MOEN4MMR; 
 YREN4M22=YREN4MMR; 
 MOBG5M22=MOBG5MMR; 
 YRBG5M22=YRBG5MMR; 
 MOEN5M22=MOEN5MMR; 
 YREN5M22=YREN5MMR; 
 MOBG6M22=MOBG6MMR; 
 YRBG6M22=YRBG6MMR; 
 MOEN6M22=MOEN6MMR; 
 YREN6M22=YREN6MMR; 
 MOBG7M22=MOBG7MMR; 
 YRBG7M22=YRBG7MMR;
 MOEN7M22=MOEN7MMR; 
 YREN7M22=YREN7MMR; 
end;
/*********************************************************/
/* This step creates flags for types of changes made     */
/*********************************************************/
/*Sets a flag equal to one if R says marstat DLI is incorrect but there have been no
 changes after correcting marital status*/
erroronly=0;
if intv2022=0 then erroronly=-5;
else if intv2022=1 and Q2_1=0 and Q2_3A=0 then erroronly=1;
/*Sets a flag equal to one if R says marstat DLi is correct but there have been changes*/
changeonly=0;
if intv2022=0 then changeonly=-5;
else if intv2022=1 and Q2_1=1 and Q2_3A=1 then changeonly=1;
/*Sets a flag equal to one if R says marstat DLI is incorrect and that there have been 
 changes after correcting marital status*/
errorandchange=0;
if intv2022=0 then errorandchange=-5;
else if intv2022=1 and Q2_1=0 and Q2_3A=1 then errorandchange=1;
/*This is just a check to make sure the universes are unique and no one got flagged twice*/
total=-5;
if intv2022=1 then total=erroronly+changeonly+errorandchange;
/*******************************************************************/
/* This step creates flag for where changes should be slotted. 
  Values for flag are as follows:
  1 = never married
  2 = beginning of 1st marriage
  3 = end of 1st marriage
  4 = beginning of 2nd marriage
  5 = end of 2nd marriage
  6 = beginning of 3rd marriage
  7 = end of 3rd marriage  
  8 = beginning of 4th marriage
  9 = end of 4th marriage  
 10 = beginning of 5th marriage
 11 = end of 5th marriage  
 12 = beginning of 6th marriage
 13 = end of 6th marriage  
 14 = beginning of 7th marriage                                   */
/*******************************************************************/
msli22=0;
if intv2022=0 then msli22=-5;
else if nochange=1 then msli22=-4;
else if total=1 then do;
 if MOBG7MMR=-999 then msli22=1;
 else if MOBG7MMR=-998 then msli22=2;
 else if MOBG7MMR=-997 then msli22=3;
 else if MOBG7MMR=-996 then msli22=4;
 else if MOBG7MMR=-995 then msli22=5;
 else if MOBG7MMR=-994 then msli22=6;
 else if MOBG7MMR=-993 then msli22=7;
 else if MOBG7MMR=-992 then msli22=8;
 else if MOBG7MMR=-991 then msli22= 9;
 else if MOBG7MMR=-990 then msli22=10;
 else if MOBG7MMR=-989 then msli22=11;
 else if MOBG7MMR=-988 then msli22=12;
 else if MOBG7MMR=-987 then msli22=13;
 else if MOBG7MMR>-4 then msli22=14;
end;
/********************************************************************/
/* This step sets up a count variable of number of changes made.    */
/********************************************************************/
numchange=0;
if intv2022=0 then numchange=-5;
array changes  MARRCHG122 MARRCHG222 MARRCHG322;
do i = 1 to 3;
 if changes[i]>=-2 then numchange=numchange+1;
end;
/********************************************************************/
/* This step creates 2022 marital history variables for respondents
  who were never married at dli and who report only changes.       */
/********************************************************************/
if msli22=1 and changeonly=1 then do;
  if numchange=1 then do;
     MOBG1M22=MARRCHG1MO; 
     YRBG1M22=MARRCHG1YR; 
     MOEN1M22=-998; 
     YREN1M22=-998; 
     MOBG2M22=-998; 
     YRBG2M22=-998; 
     MOEN2M22=-998;
     YREN2M22=-998; 
     MOBG3M22=-998; 
     YRBG3M22=-998; 
     MOEN3M22=-998; 
     YREN3M22=-998; 
     MOBG4M22=-998; 
     YRBG4M22=-998; 
     MOEN4M22=-998; 
     YREN4M22=-998; 
     MOBG5M22=-998; 
     YRBG5M22=-998; 
     MOEN5M22=-998; 
     YREN5M22=-998; 
     MOBG6M22=-998; 
     YRBG6M22=-998; 
     MOEN6M22=-998; 
     YREN6M22=-998; 
     MOBG7M22=-998; 
     YRBG7M22=-998;
     MOEN7M22=-998; 
     YREN7M22=-998; 
  end;
  else if numchange=2 then do;
     MOBG1M22=MARRCHG1MO; 
     YRBG1M22=MARRCHG1YR; 
     MOEN1M22=MARRCHG2MO; 
     YREN1M22=MARRCHG2YR; 
     MOBG2M22=-997; 
     YRBG2M22=-997; 
     MOEN2M22=-997;
     YREN2M22=-997; 
     MOBG3M22=-997; 
     YRBG3M22=-997; 
     MOEN3M22=-997; 
     YREN3M22=-997; 
     MOBG4M22=-997; 
     YRBG4M22=-997; 
     MOEN4M22=-997; 
     YREN4M22=-997; 
     MOBG5M22=-997; 
     YRBG5M22=-997; 
     MOEN5M22=-997; 
     YREN5M22=-997; 
     MOBG6M22=-997; 
     YRBG6M22=-997; 
     MOEN6M22=-997; 
     YREN6M22=-997; 
     MOBG7M22=-997; 
     YRBG7M22=-997;
     MOEN7M22=-997; 
     YREN7M22=-997; 
  end;
  else if numchange=3 then do;
     MOBG1M22=MARRCHG1MO; 
     YRBG1M22=MARRCHG1YR; 
     MOEN1M22=MARRCHG2MO; 
     YREN1M22=MARRCHG2YR; 
     MOBG2M22=MARRCHG3MO; 
     YRBG2M22=MARRCHG3YR; 
     MOEN2M22=-996;
     YREN2M22=-996; 
     MOBG3M22=-996; 
     YRBG3M22=-996; 
     MOEN3M22=-996; 
     YREN3M22=-996; 
     MOBG4M22=-996; 
     YRBG4M22=-996; 
     MOEN4M22=-996; 
     YREN4M22=-996; 
     MOBG5M22=-996; 
     YRBG5M22=-996; 
     MOEN5M22=-996; 
     YREN5M22=-996; 
     MOBG6M22=-996; 
     YRBG6M22=-996; 
     MOEN6M22=-996; 
     YREN6M22=-996; 
     MOBG7M22=-996; 
     YRBG7M22=-996;
     MOEN7M22=-996; 
     YREN7M22=-996; 
  end;
end;
/********************************************************************/
/* This step creates 2022 marital history variables for respondents
  who were in their first marriage at dli and who report only 
  changes.                                                         */
/********************************************************************/
if msli22=2 and changeonly=1 then do;
  if numchange=1 then do;
     if MARRCHG122 in (2 4) then do; /*Separated or reunited*/
        MOBG1M22=MOBG1MMR; 
        YRBG1M22=YRBG1MMR; 
        MOEN1M22=MOEN1MMR; 
        YREN1M22=YREN1MMR; 
        MOBG2M22=MOBG2MMR; 
        YRBG2M22=YRBG2MMR; 
        MOEN2M22=MOEN2MMR;
        YREN2M22=YREN2MMR; 
        MOBG3M22=MOBG3MMR; 
        YRBG3M22=YRBG3MMR; 
        MOEN3M22=MOEN3MMR; 
        YREN3M22=YREN3MMR; 
        MOBG4M22=MOBG4MMR; 
        YRBG4M22=YRBG4MMR; 
        MOEN4M22=MOEN4MMR; 
        YREN4M22=YREN4MMR; 
        MOBG5M22=MOBG5MMR; 
        YRBG5M22=YRBG5MMR; 
        MOEN5M22=MOEN5MMR; 
        YREN5M22=YREN5MMR; 
        MOBG6M22=MOBG6MMR; 
        YRBG6M22=YRBG6MMR; 
        MOEN6M22=MOEN6MMR; 
        YREN6M22=YREN6MMR; 
        MOBG7M22=MOBG7MMR; 
        YRBG7M22=YRBG7MMR;
        MOEN7M22=MOEN7MMR; 
        YREN7M22=YREN7MMR; 
     end;
     else if MARRCHG122 in (3 6) then do; /*Divorced or widowed*/
        MOBG1M22=MOBG1MMR; 
        YRBG1M22=YRBG1MMR; 
        MOEN1M22=MARRCHG1MO; 
        YREN1M22=MARRCHG1YR; 
        MOBG2M22=-997; 
        YRBG2M22=-997; 
        MOEN2M22=-997;
        YREN2M22=-997; 
        MOBG3M22=-997; 
        YRBG3M22=-997; 
        MOEN3M22=-997; 
        YREN3M22=-997; 
        MOBG4M22=-997; 
        YRBG4M22=-997; 
        MOEN4M22=-997; 
        YREN4M22=-997; 
        MOBG5M22=-997; 
        YRBG5M22=-997; 
        MOEN5M22=-997; 
        YREN5M22=-997; 
        MOBG6M22=-997; 
        YRBG6M22=-997; 
        MOEN6M22=-997; 
        YREN6M22=-997; 
        MOBG7M22=-997; 
        YRBG7M22=-997;
        MOEN7M22=-997; 
        YREN7M22=-997; 
     end;
  end;
  else if numchange=2 then do;
     if (MARRCHG122=2 or MARRCHG122=4) and (MARRCHG222=2 or MARRCHG222=4)  
     then do; /*Separated or reunited to separated or reunited*/
        MOBG1M22=MOBG1MMR; 
        YRBG1M22=YRBG1MMR; 
        MOEN1M22=MOEN1MMR; 
        YREN1M22=YREN1MMR; 
        MOBG2M22=MOBG2MMR; 
        YRBG2M22=YRBG2MMR; 
        MOEN2M22=MOEN2MMR;
        YREN2M22=YREN2MMR; 
        MOBG3M22=MOBG3MMR; 
        YRBG3M22=YRBG3MMR; 
        MOEN3M22=MOEN3MMR; 
        YREN3M22=YREN3MMR; 
        MOBG4M22=MOBG4MMR; 
        YRBG4M22=YRBG4MMR; 
        MOEN4M22=MOEN4MMR; 
        YREN4M22=YREN4MMR; 
        MOBG5M22=MOBG5MMR; 
        YRBG5M22=YRBG5MMR; 
        MOEN5M22=MOEN5MMR; 
        YREN5M22=YREN5MMR; 
        MOBG6M22=MOBG6MMR; 
        YRBG6M22=YRBG6MMR; 
        MOEN6M22=MOEN6MMR; 
        YREN6M22=YREN6MMR; 
        MOBG7M22=MOBG7MMR; 
        YRBG7M22=YRBG7MMR;
        MOEN7M22=MOEN7MMR; 
        YREN7M22=YREN7MMR; 
     end;
     else if (MARRCHG122=2 or MARRCHG122=4) and (MARRCHG222=3 or MARRCHG222=6)
     then do; /*Separated or reunited to divorced or widowed*/
        MOBG1M22=MOBG1MMR; 
        YRBG1M22=YRBG1MMR; 
        MOEN1M22=MARRCHG2MO; 
        YREN1M22=MARRCHG2YR; 
        MOBG2M22=-997; 
        YRBG2M22=-997; 
        MOEN2M22=-997;
        YREN2M22=-997; 
        MOBG3M22=-997; 
        YRBG3M22=-997; 
        MOEN3M22=-997; 
        YREN3M22=-997; 
        MOBG4M22=-997; 
        YRBG4M22=-997; 
        MOEN4M22=-997; 
        YREN4M22=-997; 
        MOBG5M22=-997; 
        YRBG5M22=-997; 
        MOEN5M22=-997; 
        YREN5M22=-997; 
        MOBG6M22=-997; 
        YRBG6M22=-997; 
        MOEN6M22=-997; 
        YREN6M22=-997; 
        MOBG7M22=-997; 
        YRBG7M22=-997;
        MOEN7M22=-997; 
        YREN7M22=-997; 
     end;
     else if (MARRCHG122=3 or MARRCHG122=6) and (MARRCHG222=5)
     then do; /*Divorced or widowed to remarried*/
        MOBG1M22=MOBG1MMR; 
        YRBG1M22=YRBG1MMR; 
        MOEN1M22=MARRCHG1MO; 
        YREN1M22=MARRCHG1YR; 
        MOBG2M22=MARRCHG2MO; 
        YRBG2M22=MARRCHG2YR; 
        MOEN2M22=-996;
        YREN2M22=-996; 
        MOBG3M22=-996; 
        YRBG3M22=-996; 
        MOEN3M22=-996; 
        YREN3M22=-996; 
        MOBG4M22=-996; 
        YRBG4M22=-996; 
        MOEN4M22=-996; 
        YREN4M22=-996; 
        MOBG5M22=-996; 
        YRBG5M22=-996; 
        MOEN5M22=-996; 
        YREN5M22=-996; 
        MOBG6M22=-996; 
        YRBG6M22=-996; 
        MOEN6M22=-996; 
        YREN6M22=-996; 
        MOBG7M22=-996; 
        YRBG7M22=-996;
        MOEN7M22=-996; 
        YREN7M22=-996; 
     end;
  end;
end;      
/********************************************************************/
/* This step creates 2022 marital history variables for respondents
  who were at the end of their first marriage at dli and who report 
  only changes.                                                    */
/********************************************************************/
if msli22=3 and changeonly=1 then do;
  if numchange=1 then do;
     if MARRCHG122=5 or MARRCHG122=1 then do; /*Remarried/married*/
        MOBG1M22=MOBG1MMR;                    
        YRBG1M22=YRBG1MMR; 
        MOEN1M22=MOEN1MMR; 
        YREN1M22=YREN1MMR; 
        MOBG2M22=MARRCHG1MO; 
        YRBG2M22=MARRCHG1YR; 
        MOEN2M22=-996;
        YREN2M22=-996; 
        MOBG3M22=-996; 
        YRBG3M22=-996; 
        MOEN3M22=-996; 
        YREN3M22=-996; 
        MOBG4M22=-996; 
        YRBG4M22=-996; 
        MOEN4M22=-996; 
        YREN4M22=-996; 
        MOBG5M22=-996; 
        YRBG5M22=-996; 
        MOEN5M22=-996; 
        YREN5M22=-996; 
        MOBG6M22=-996; 
        YRBG6M22=-996; 
        MOEN6M22=-996; 
        YREN6M22=-996; 
        MOBG7M22=-996; 
        YRBG7M22=-996;
        MOEN7M22=-996; 
        YREN7M22=-996; 
     end;
  end;
  else if numchange=2 then do;
     if (MARRCHG122=5 or MARRCHG122=1) and MARRCHG222=2 then do; /*Remarried/married to separated*/
        MOBG1M22=MOBG1MMR; 
        YRBG1M22=YRBG1MMR; 
        MOEN1M22=MOEN1MMR; 
        YREN1M22=YREN1MMR; 
        MOBG2M22=MARRCHG1MO; 
        YRBG2M22=MARRCHG1YR; 
        MOEN2M22=-996;
        YREN2M22=-996; 
        MOBG3M22=-996; 
        YRBG3M22=-996; 
        MOEN3M22=-996; 
        YREN3M22=-996; 
        MOBG4M22=-996; 
        YRBG4M22=-996; 
        MOEN4M22=-996; 
        YREN4M22=-996; 
        MOBG5M22=-996; 
        YRBG5M22=-996; 
        MOEN5M22=-996; 
        YREN5M22=-996; 
        MOBG6M22=-996; 
        YRBG6M22=-996; 
        MOEN6M22=-996; 
        YREN6M22=-996; 
        MOBG7M22=-996; 
        YRBG7M22=-996;
        MOEN7M22=-996; 
        YREN7M22=-996; 
      end;
     if (MARRCHG122=5 or MARRCHG122=1) and MARRCHG222=3 then do; /*Remarried/married to divorced*/
        MOBG1M22=MOBG1MMR; 
        YRBG1M22=YRBG1MMR; 
        MOEN1M22=MOEN1MMR; 
        YREN1M22=YREN1MMR; 
        MOBG2M22=MARRCHG1MO; 
        YRBG2M22=MARRCHG1YR; 
        MOEN2M22=MARRCHG2MO;
        YREN2M22=MARRCHG2YR; 
        MOBG3M22=-995; 
        YRBG3M22=-995; 
        MOEN3M22=-995; 
        YREN3M22=-995; 
        MOBG4M22=-995; 
        YRBG4M22=-995; 
        MOEN4M22=-995; 
        YREN4M22=-995; 
        MOBG5M22=-995; 
        YRBG5M22=-995; 
        MOEN5M22=-995; 
        YREN5M22=-995; 
        MOBG6M22=-995; 
        YRBG6M22=-995; 
        MOEN6M22=-995; 
        YREN6M22=-995; 
        MOBG7M22=-995; 
        YRBG7M22=-995;
        MOEN7M22=-995; 
        YREN7M22=-995; 
      end;
  end;
end;
/********************************************************************/
/* This step creates 2022 marital history variables for respondents
  who were in their second marriage at dli and who report only 
  changes.                                                         */
/********************************************************************/
if msli22=4 and changeonly=1 then do;
  if numchange=1 then do;
     if MARRCHG122 in (2 4) then do; /*Separated or reunited - nothing really changed*/
        MOBG1M22=MOBG1MMR; 
        YRBG1M22=YRBG1MMR; 
        MOEN1M22=MOEN1MMR; 
        YREN1M22=YREN1MMR; 
        MOBG2M22=MOBG2MMR; 
        YRBG2M22=YRBG2MMR; 
        MOEN2M22=MOEN2MMR;
        YREN2M22=YREN2MMR; 
        MOBG3M22=MOBG3MMR; 
        YRBG3M22=YRBG3MMR; 
        MOEN3M22=MOEN3MMR; 
        YREN3M22=YREN3MMR; 
        MOBG4M22=MOBG4MMR; 
        YRBG4M22=YRBG4MMR; 
        MOEN4M22=MOEN4MMR; 
        YREN4M22=YREN4MMR; 
        MOBG5M22=MOBG5MMR; 
        YRBG5M22=YRBG5MMR; 
        MOEN5M22=MOEN5MMR; 
        YREN5M22=YREN5MMR; 
        MOBG6M22=MOBG6MMR; 
        YRBG6M22=YRBG6MMR; 
        MOEN6M22=MOEN6MMR; 
        YREN6M22=YREN6MMR; 
        MOBG7M22=MOBG7MMR; 
        YRBG7M22=YRBG7MMR;
        MOEN7M22=MOEN7MMR; 
        YREN7M22=YREN7MMR; 
     end;
     else if MARRCHG122 in (3 6) then do; /*Divorced or widowed*/
        MOBG1M22=MOBG1MMR; 
        YRBG1M22=YRBG1MMR; 
        MOEN1M22=MOEN1MMR; 
        YREN1M22=YREN1MMR; 
        MOBG2M22=MOBG2MMR; 
        YRBG2M22=YRBG2MMR; 
        MOEN2M22=MARRCHG1MO;
        YREN2M22=MARRCHG1YR; 
        MOBG3M22=-995; 
        YRBG3M22=-995; 
        MOEN3M22=-995; 
        YREN3M22=-995; 
        MOBG4M22=-995; 
        YRBG4M22=-995; 
        MOEN4M22=-995; 
        YREN4M22=-995; 
        MOBG5M22=-995; 
        YRBG5M22=-995; 
        MOEN5M22=-995; 
        YREN5M22=-995; 
        MOBG6M22=-995; 
        YRBG6M22=-995; 
        MOEN6M22=-995; 
        YREN6M22=-995; 
        MOBG7M22=-995; 
        YRBG7M22=-995;
        MOEN7M22=-995; 
        YREN7M22=-995;
     end;
   end;
   else if numchange=2 then do;
     if (MARRCHG122=2 or MARRCHG122=4) and (MARRCHG222=3 or MARRCHG222=6)
     then do; /*Separated or reunited to divorced or widowed*/
        MOBG1M22=MOBG1MMR; 
        YRBG1M22=YRBG1MMR; 
        MOEN1M22=MOEN1MMR; 
        YREN1M22=YREN1MMR; 
        MOBG2M22=MOBG2MMR; 
        YRBG2M22=YRBG2MMR; 
        MOEN2M22=MARRCHG2MO;
        YREN2M22=MARRCHG2YR; 
        MOBG3M22=-995; 
        YRBG3M22=-995; 
        MOEN3M22=-995; 
        YREN3M22=-995; 
        MOBG4M22=-995; 
        YRBG4M22=-995; 
        MOEN4M22=-995; 
        YREN4M22=-995; 
        MOBG5M22=-995; 
        YRBG5M22=-995; 
        MOEN5M22=-995; 
        YREN5M22=-995; 
        MOBG6M22=-995; 
        YRBG6M22=-995; 
        MOEN6M22=-995; 
        YREN6M22=-995; 
        MOBG7M22=-995; 
        YRBG7M22=-995;
        MOEN7M22=-995; 
        YREN7M22=-995;
     end;
     else if (MARRCHG122=3 or MARRCHG122=6) and (MARRCHG222=5)
     then do; /*Divorced or widowed to remarried*/
        MOBG1M22=MOBG1MMR; 
        YRBG1M22=YRBG1MMR; 
        MOEN1M22=MOEN1MMR; 
        YREN1M22=YREN1MMR; 
        MOBG2M22=MOBG2MMR; 
        YRBG2M22=YRBG2MMR; 
        MOEN2M22=MARRCHG1MO;
        YREN2M22=MARRCHG1YR; 
        MOBG3M22=MARRCHG2MO; 
        YRBG3M22=MARRCHG2YR; 
        MOEN3M22=-994; 
        YREN3M22=-994; 
        MOBG4M22=-994; 
        YRBG4M22=-994; 
        MOEN4M22=-994; 
        YREN4M22=-994; 
        MOBG5M22=-994; 
        YRBG5M22=-994; 
        MOEN5M22=-994; 
        YREN5M22=-994; 
        MOBG6M22=-994; 
        YRBG6M22=-994; 
        MOEN6M22=-994; 
        YREN6M22=-994; 
        MOBG7M22=-994; 
        YRBG7M22=-994;
        MOEN7M22=-994; 
        YREN7M22=-994;
     end;
   end;
end;
/********************************************************************/
/* This step creates 2022 marital history variables for respondents
  who were at the end of their second marriage at dli and who  
  report only changes.                                             */
/********************************************************************/
if msli22=5 and changeonly=1 then do;
  if numchange=1 then do;
     if MARRCHG122=5 or MARRCHG122=1 then do; /*Remarried/married */
        MOBG1M22=MOBG1MMR;                    
        YRBG1M22=YRBG1MMR; 
        MOEN1M22=MOEN1MMR; 
        YREN1M22=YREN1MMR; 
        MOBG2M22=MOBG2MMR;
        YRBG2M22=YRBG2MMR;
        MOEN2M22=MOEN2MMR;
        YREN2M22=YREN2MMR; 
        MOBG3M22=MARRCHG1MO; 
        YRBG3M22=MARRCHG1YR; 
        MOEN3M22=-994; 
        YREN3M22=-994; 
        MOBG4M22=-994; 
        YRBG4M22=-994; 
        MOEN4M22=-994; 
        YREN4M22=-994; 
        MOBG5M22=-994; 
        YRBG5M22=-994; 
        MOEN5M22=-994; 
        YREN5M22=-994; 
        MOBG6M22=-994; 
        YRBG6M22=-994; 
        MOEN6M22=-994; 
        YREN6M22=-994; 
        MOBG7M22=-994; 
        YRBG7M22=-994;
        MOEN7M22=-994; 
        YREN7M22=-994;
     end;
  end;
  else if numchange=2 then do;
     if (MARRCHG122=5 or MARRCHG122=1) and MARRCHG222=2 then do; /*Remarried/married to separated*/
        MOBG1M22=MOBG1MMR;                    
        YRBG1M22=YRBG1MMR; 
        MOEN1M22=MOEN1MMR; 
        YREN1M22=YREN1MMR; 
        MOBG2M22=MOBG2MMR;
        YRBG2M22=YRBG2MMR;
        MOEN2M22=MOEN2MMR;
        YREN2M22=YREN2MMR; 
        MOBG3M22=MARRCHG1MO; 
        YRBG3M22=MARRCHG1YR; 
        MOEN3M22=-994; 
        YREN3M22=-994; 
        MOBG4M22=-994; 
        YRBG4M22=-994; 
        MOEN4M22=-994; 
        YREN4M22=-994; 
        MOBG5M22=-994; 
        YRBG5M22=-994; 
        MOEN5M22=-994; 
        YREN5M22=-994; 
        MOBG6M22=-994; 
        YRBG6M22=-994; 
        MOEN6M22=-994; 
        YREN6M22=-994; 
        MOBG7M22=-994; 
        YRBG7M22=-994;
        MOEN7M22=-994; 
        YREN7M22=-994;
     end;
     if (MARRCHG122=5 or MARRCHG122=1) and MARRCHG222=3 then do; /*Remarried/married to divorced*/
        MOBG1M22=MOBG1MMR;                    
        YRBG1M22=YRBG1MMR; 
        MOEN1M22=MOEN1MMR; 
        YREN1M22=YREN1MMR; 
        MOBG2M22=MOBG2MMR;
        YRBG2M22=YRBG2MMR;
        MOEN2M22=MOEN2MMR;
        YREN2M22=YREN2MMR; 
        MOBG3M22=MARRCHG1MO; 
        YRBG3M22=MARRCHG1YR; 
        MOEN3M22=MARRCHG2MO; 
        YREN3M22=MARRCHG2YR; 
        MOBG4M22=-993; 
        YRBG4M22=-993; 
        MOEN4M22=-993; 
        YREN4M22=-993; 
        MOBG5M22=-993; 
        YRBG5M22=-993; 
        MOEN5M22=-993; 
        YREN5M22=-993; 
        MOBG6M22=-993; 
        YRBG6M22=-993; 
        MOEN6M22=-993; 
        YREN6M22=-993; 
        MOBG7M22=-993; 
        YRBG7M22=-993;
        MOEN7M22=-993; 
        YREN7M22=-993;
     end;
  end;
end;
/********************************************************************/
/* This step creates 2022 marital history variables for respondents
  who were in their third marriage at dli and who report only 
  changes.                                                         */
/********************************************************************/
if msli22=6 and changeonly=1 then do;
  if numchange=1 then do;
     if MARRCHG122 in (2 4) then do; /*Separated or reunited - nothing really changed*/
        MOBG1M22=MOBG1MMR; 
        YRBG1M22=YRBG1MMR; 
        MOEN1M22=MOEN1MMR; 
        YREN1M22=YREN1MMR; 
        MOBG2M22=MOBG2MMR; 
        YRBG2M22=YRBG2MMR; 
        MOEN2M22=MOEN2MMR;
        YREN2M22=YREN2MMR; 
        MOBG3M22=MOBG3MMR; 
        YRBG3M22=YRBG3MMR; 
        MOEN3M22=MOEN3MMR; 
        YREN3M22=YREN3MMR; 
        MOBG4M22=MOBG4MMR; 
        YRBG4M22=YRBG4MMR; 
        MOEN4M22=MOEN4MMR; 
        YREN4M22=YREN4MMR; 
        MOBG5M22=MOBG5MMR; 
        YRBG5M22=YRBG5MMR; 
        MOEN5M22=MOEN5MMR; 
        YREN5M22=YREN5MMR; 
        MOBG6M22=MOBG6MMR; 
        YRBG6M22=YRBG6MMR; 
        MOEN6M22=MOEN6MMR; 
        YREN6M22=YREN6MMR; 
        MOBG7M22=MOBG7MMR; 
        YRBG7M22=YRBG7MMR;
        MOEN7M22=MOEN7MMR; 
        YREN7M22=YREN7MMR; 
     end;
     else if MARRCHG122 in (3 6) then do; /*Divorced or widowed*/
        MOBG1M22=MOBG1MMR; 
        YRBG1M22=YRBG1MMR; 
        MOEN1M22=MOEN1MMR; 
        YREN1M22=YREN1MMR; 
        MOBG2M22=MOBG2MMR; 
        YRBG2M22=YRBG2MMR; 
        MOEN2M22=MOEN2MMR;
        YREN2M22=YREN2MMR;
        MOBG3M22=MOBG3MMR; 
        YRBG3M22=YRBG3MMR; 
        MOEN3M22=MARRCHG1MO; 
        YREN3M22=MARRCHG1YR; 
        MOBG4M22=-993; 
        YRBG4M22=-993; 
        MOEN4M22=-993; 
        YREN4M22=-993; 
        MOBG5M22=-993; 
        YRBG5M22=-993; 
        MOEN5M22=-993; 
        YREN5M22=-993; 
        MOBG6M22=-993; 
        YRBG6M22=-993; 
        MOEN6M22=-993; 
        YREN6M22=-993; 
        MOBG7M22=-993; 
        YRBG7M22=-993;
        MOEN7M22=-993; 
        YREN7M22=-993;
     end;
   end;
   else if numchange=2 then do;
     if (MARRCHG122=2 or MARRCHG122=4) and (MARRCHG222=3 or MARRCHG222=6)
     then do; /*Separated or reunited to divorced or widowed*/
        MOBG1M22=MOBG1MMR; 
        YRBG1M22=YRBG1MMR; 
        MOEN1M22=MOEN1MMR; 
        YREN1M22=YREN1MMR; 
        MOBG2M22=MOBG2MMR; 
        YRBG2M22=YRBG2MMR; 
        MOEN2M22=MOEN2MMR;
        YREN2M22=YREN2MMR;
        MOBG3M22=MOBG3MMR; 
        YRBG3M22=YRBG3MMR; 
        MOEN3M22=MARRCHG1MO; 
        YREN3M22=MARRCHG1YR; 
        MOBG4M22=-993; 
        YRBG4M22=-993; 
        MOEN4M22=-993; 
        YREN4M22=-993; 
        MOBG5M22=-993; 
        YRBG5M22=-993; 
        MOEN5M22=-993; 
        YREN5M22=-993; 
        MOBG6M22=-993; 
        YRBG6M22=-993; 
        MOEN6M22=-993; 
        YREN6M22=-993; 
        MOBG7M22=-993; 
        YRBG7M22=-993;
        MOEN7M22=-993; 
        YREN7M22=-993;
     end;
     else if (MARRCHG122=3 or MARRCHG122=6) and (MARRCHG222=5)
     then do; /*Divorced or widowed to remarried*/
        MOBG1M22=MOBG1MMR; 
        YRBG1M22=YRBG1MMR; 
        MOEN1M22=MOEN1MMR; 
        YREN1M22=YREN1MMR; 
        MOBG2M22=MOBG2MMR; 
        YRBG2M22=YRBG2MMR; 
        MOEN2M22=MOEN2MMR;
        YREN2M22=YREN2MMR; 
        MOBG3M22=MOBG3MMR; 
        YRBG3M22=YRBG3MMR; 
        MOEN3M22=MARRCHG1MO; 
        YREN3M22=MARRCHG1YR; 
        MOBG4M22=MARRCHG2MO; 
        YRBG4M22=MARRCHG2YR; 
        MOEN4M22=-992; 
        YREN4M22=-992; 
        MOBG5M22=-992; 
        YRBG5M22=-992; 
        MOEN5M22=-992; 
        YREN5M22=-992; 
        MOBG6M22=-992; 
        YRBG6M22=-992; 
        MOEN6M22=-992; 
        YREN6M22=-992; 
        MOBG7M22=-992; 
        YRBG7M22=-992;
        MOEN7M22=-992; 
        YREN7M22=-992;
     end;
   end;
end;
/********************************************************************/
/* This step creates 2022 marital history variables for respondents
  who were at the end of their third marriage at dli and who  
  report only changes.                                             */
/********************************************************************/
if msli22=7 and changeonly=1 then do;
  if numchange=1 then do;
     if MARRCHG122=5 or MARRCHG122=1 then do; /*Remarried/married */
        MOBG1M22=MOBG1MMR;                   
        YRBG1M22=YRBG1MMR; 
        MOEN1M22=MOEN1MMR; 
        YREN1M22=YREN1MMR; 
        MOBG2M22=MOBG2MMR; 
        YRBG2M22=YRBG2MMR; 
        MOEN2M22=MOEN2MMR;
        YREN2M22=YREN2MMR;
        MOBG3M22=MOBG3MMR; 
        YRBG3M22=YRBG3MMR; 
        MOEN3M22=MOEN3MMR; 
        YREN3M22=YREN3MMR; 
        MOBG4M22=MARRCHG1MO; 
        YRBG4M22=MARRCHG1YR; 
        MOEN4M22=-992; 
        YREN4M22=-992; 
        MOBG5M22=-992; 
        YRBG5M22=-992; 
        MOEN5M22=-992; 
        YREN5M22=-992; 
        MOBG6M22=-992; 
        YRBG6M22=-992; 
        MOEN6M22=-992; 
        YREN6M22=-992; 
        MOBG7M22=-992; 
        YRBG7M22=-992;
        MOEN7M22=-992; 
        YREN7M22=-992;
     end;
  end;
  else if numchange=2 then do; 
     if (MARRCHG122=5 or MARRCHG122=1) and (MARRCHG222=3 or MARRCHG222=6)
     then do; /*Remarried/married to divorced/widowed*/
        MOBG1M22=MOBG1MMR;                   
        YRBG1M22=YRBG1MMR; 
        MOEN1M22=MOEN1MMR; 
        YREN1M22=YREN1MMR; 
        MOBG2M22=MOBG2MMR; 
        YRBG2M22=YRBG2MMR; 
        MOEN2M22=MOEN2MMR;
        YREN2M22=YREN2MMR;
        MOBG3M22=MOBG3MMR; 
        YRBG3M22=YRBG3MMR; 
        MOEN3M22=MOEN3MMR; 
        YREN3M22=YREN3MMR; 
        MOBG4M22=MARRCHG1MO; 
        YRBG4M22=MARRCHG1YR; 
        MOEN4M22=MARRCHG2MO; 
        YREN4M22=MARRCHG2YR; 
        MOBG5M22=-991; 
        YRBG5M22=-991; 
        MOEN5M22=-991; 
        YREN5M22=-991; 
        MOBG6M22=-991; 
        YRBG6M22=-991; 
        MOEN6M22=-991; 
        YREN6M22=-991; 
        MOBG7M22=-991; 
        YRBG7M22=-991;
        MOEN7M22=-991; 
        YREN7M22=-991;
     end;
  end;
end;
/********************************************************************/
/* This step creates 2022 marital history variables for respondents
  who were in their fourth marriage at dli and who report only 
  changes.                                                         */
/********************************************************************/
if msli22=8 and changeonly=1 then do;
  if numchange=1 then do;
     if MARRCHG122 in (2 4) then do; /*separated/reunited - nothing changed*/
        MOBG1M22=MOBG1MMR;                   
        YRBG1M22=YRBG1MMR; 
        MOEN1M22=MOEN1MMR; 
        YREN1M22=YREN1MMR; 
        MOBG2M22=MOBG2MMR; 
        YRBG2M22=YRBG2MMR; 
        MOEN2M22=MOEN2MMR;
        YREN2M22=YREN2MMR;
        MOBG3M22=MOBG3MMR; 
        YRBG3M22=YRBG3MMR; 
        MOEN3M22=MOEN3MMR; 
        YREN3M22=YREN3MMR; 
        MOBG4M22=MOBG4MMR; 
        YRBG4M22=YRBG4MMR; 
        MOEN4M22=-992; 
        YREN4M22=-992; 
        MOBG5M22=-992; 
        YRBG5M22=-992; 
        MOEN5M22=-992; 
        YREN5M22=-992; 
        MOBG6M22=-992; 
        YRBG6M22=-992; 
        MOEN6M22=-992; 
        YREN6M22=-992; 
        MOBG7M22=-992; 
        YRBG7M22=-992;
        MOEN7M22=-992; 
        YREN7M22=-992;
     end;
     else if MARRCHG122 in (3 6) then do; /*Divorced or widowed*/
        MOBG1M22=MOBG1MMR;                   
        YRBG1M22=YRBG1MMR; 
        MOEN1M22=MOEN1MMR; 
        YREN1M22=YREN1MMR; 
        MOBG2M22=MOBG2MMR; 
        YRBG2M22=YRBG2MMR; 
        MOEN2M22=MOEN2MMR;
        YREN2M22=YREN2MMR;
        MOBG3M22=MOBG3MMR; 
        YRBG3M22=YRBG3MMR; 
        MOEN3M22=MOEN3MMR; 
        YREN3M22=YREN3MMR; 
        MOBG4M22=MOBG4MMR; 
        YRBG4M22=YRBG4MMR; 
        MOEN4M22=MARRCHG1MO; 
        YREN4M22=MARRCHG1YR; 
        MOBG5M22=-991; 
        YRBG5M22=-991; 
        MOEN5M22=-991; 
        YREN5M22=-991; 
        MOBG6M22=-991; 
        YRBG6M22=-991; 
        MOEN6M22=-991; 
        YREN6M22=-991; 
        MOBG7M22=-991; 
        YRBG7M22=-991;
        MOEN7M22=-991; 
        YREN7M22=-991;
     end;
  end;
  else if numchange=2 then do;
     if MARRCHG122 in (3 6) and MARRCHG222 in (5) then do; /*Divorced or widowed to remarried*/
        MOBG1M22=MOBG1MMR;                   
        YRBG1M22=YRBG1MMR; 
        MOEN1M22=MOEN1MMR; 
        YREN1M22=YREN1MMR; 
        MOBG2M22=MOBG2MMR; 
        YRBG2M22=YRBG2MMR; 
        MOEN2M22=MOEN2MMR;
        YREN2M22=YREN2MMR;
        MOBG3M22=MOBG3MMR; 
        YRBG3M22=YRBG3MMR; 
        MOEN3M22=MOEN3MMR; 
        YREN3M22=YREN3MMR; 
        MOBG4M22=MOBG4MMR; 
        YRBG4M22=YRBG4MMR; 
        MOEN4M22=MARRCHG1MO; 
        YREN4M22=MARRCHG1YR; 
        MOBG5M22=MARRCHG2MO; 
        YRBG5M22=MARRCHG2YR; 
        MOEN5M22=-990; 
        YREN5M22=-990; 
        MOBG6M22=-990; 
        YRBG6M22=-990; 
        MOEN6M22=-990; 
        YREN6M22=-990; 
        MOBG7M22=-990; 
        YRBG7M22=-990;
        MOEN7M22=-990; 
        YREN7M22=-990;
     end;
  end;
end;
/********************************************************************/
/* This step creates 2022 marital history variables for respondents
  who were at the end of their fourth marriage at dli and who 
  report only changes.                                             */
/********************************************************************/
if msli22=9 and changeonly=1 then do;
  if numchange=1 then do;
     if MARRCHG122 in (5) then do; /*Remarried*/
        MOBG1M22=MOBG1MMR;                   
        YRBG1M22=YRBG1MMR; 
        MOEN1M22=MOEN1MMR; 
        YREN1M22=YREN1MMR; 
        MOBG2M22=MOBG2MMR; 
        YRBG2M22=YRBG2MMR; 
        MOEN2M22=MOEN2MMR;
        YREN2M22=YREN2MMR;
        MOBG3M22=MOBG3MMR; 
        YRBG3M22=YRBG3MMR; 
        MOEN3M22=MOEN3MMR; 
        YREN3M22=YREN3MMR; 
        MOBG4M22=MOBG4MMR; 
        YRBG4M22=YRBG4MMR; 
        MOEN4M22=MOEN4MMR; 
        YREN4M22=YREN4MMR; 
        MOBG5M22=MARRCHG1MO; 
        YRBG5M22=MARRCHG1YR; 
        MOEN5M22=-990; 
        YREN5M22=-990; 
        MOBG6M22=-990; 
        YRBG6M22=-990; 
        MOEN6M22=-990; 
        YREN6M22=-990; 
        MOBG7M22=-990; 
        YRBG7M22=-990;
        MOEN7M22=-990; 
        YREN7M22=-990;
     end;
  end;
end;
/********************************************************************/
/* This step creates 2022 marital history variables for respondents
  who were at the beginning of their 5th marriage at dli and who 
  report only changes.                                             */
/********************************************************************/
if msli22=10 and changeonly=1 then do;
  if numchange=1 then do;
     if MARRCHG122 in (2 4) then do; /*separated/reunited - nothing changed*/
        MOBG1M22=MOBG1MMR;                   
        YRBG1M22=YRBG1MMR; 
        MOEN1M22=MOEN1MMR; 
        YREN1M22=YREN1MMR; 
        MOBG2M22=MOBG2MMR; 
        YRBG2M22=YRBG2MMR; 
        MOEN2M22=MOEN2MMR;
        YREN2M22=YREN2MMR;
        MOBG3M22=MOBG3MMR; 
        YRBG3M22=YRBG3MMR; 
        MOEN3M22=MOEN3MMR; 
        YREN3M22=YREN3MMR; 
        MOBG4M22=MOBG4MMR; 
        YRBG4M22=YRBG4MMR; 
        MOEN4M22=MOEN4MMR; 
        YREN4M22=YREN4MMR; 
        MOBG5M22=MOBG5MMR; 
        YRBG5M22=YRBG5MMR; 
        MOEN5M22=-992; 
        YREN5M22=-992; 
        MOBG6M22=-992; 
        YRBG6M22=-992; 
        MOEN6M22=-992; 
        YREN6M22=-992; 
        MOBG7M22=-992; 
        YRBG7M22=-992;
        MOEN7M22=-992; 
        YREN7M22=-992;
     end;
     else if MARRCHG122 in (3 6) then do; /*Divorced or widowed*/
        MOBG1M22=MOBG1MMR;                   
        YRBG1M22=YRBG1MMR; 
        MOEN1M22=MOEN1MMR; 
        YREN1M22=YREN1MMR; 
        MOBG2M22=MOBG2MMR; 
        YRBG2M22=YRBG2MMR; 
        MOEN2M22=MOEN2MMR;
        YREN2M22=YREN2MMR;
        MOBG3M22=MOBG3MMR; 
        YRBG3M22=YRBG3MMR; 
        MOEN3M22=MOEN3MMR; 
        YREN3M22=YREN3MMR; 
        MOBG4M22=MOBG4MMR; 
        YRBG4M22=YRBG4MMR; 
        MOEN4M22=MOEN4MMR; 
        YREN4M22=YREN4MMR; 
        MOBG5M22=MOBG5MMR;
        YRBG5M22=YRBG5MMR;
        MOEN5M22=MARRCHG1MO; 
        YREN5M22=MARRCHG1YR; 
        MOBG6M22=-989; 
        YRBG6M22=-989; 
        MOEN6M22=-989; 
        YREN6M22=-989; 
        MOBG7M22=-989; 
        YRBG7M22=-989;
        MOEN7M22=-989; 
        YREN7M22=-989;
     end;
  end;
end;

Construction of Relationship History variables (XRND)

PUBLIC RELEASE VARIABLE NAMES                     PROGRAM VARIABLE NAMES 
 SAMPLE_SEX_1979                  RSEX       
 HHI_FINAL_GENCODE.01_2022        HH1GENCODE 
 HHI_FINAL_GENCODE.02_2022        HH2GENCODE 
 HHI_FINAL_GENCODE.03_2022        HH3GENCODE 
 HHI_FINAL_GENCODE.04_2022        HH4GENCODE 
 HHI_FINAL_GENCODE.05_2022        HH5GENCODE 
 HHI_FINAL_GENCODE.06_2022        HH6GENCODE 
 HHI_FINAL_GENCODE.07_2022        HH7GENCODE 
 HHI_FINAL_GENCODE.08_2022        HH8GENCODE 
 HHI_FINAL_GENCODE.09_2022        HH9GENCODE 
 HHI_FINAL_GENCODE.10_2022        HH10GENCODE
 HHI_FINAL_GENCODE.11_2022        HH11GENCODE
 HHI_FINAL_AGE.01_2022            HH1AGE     
 HHI_FINAL_AGE.02_2022            HH2AGE     
 HHI_FINAL_AGE.03_2022            HH3AGE     
 HHI_FINAL_AGE.04_2022            HH4AGE     
 HHI_FINAL_AGE.05_2022            HH5AGE     
 HHI_FINAL_AGE.06_2022            HH6AGE     
 HHI_FINAL_AGE.07_2022            HH7AGE     
 HHI_FINAL_AGE.08_2022            HH8AGE     
 HHI_FINAL_AGE.09_2022            HH9AGE     
 HHI_FINAL_AGE.10_2022            HH10AGE    
 HHI_FINAL_AGE.11_2022            HH11AGE    
 HHI_FINAL_RELCODE.01_2022        HH1RELCODE 
 HHI_FINAL_RELCODE.02_2022        HH2RELCODE 
 HHI_FINAL_RELCODE.03_2022        HH3RELCODE 
 HHI_FINAL_RELCODE.04_2022        HH4RELCODE 
 HHI_FINAL_RELCODE.05_2022        HH5RELCODE 
 HHI_FINAL_RELCODE.06_2022        HH6RELCODE 
 HHI_FINAL_RELCODE.07_2022        HH7RELCODE 
 HHI_FINAL_RELCODE.08_2022        HH8RELCODE 
 HHI_FINAL_RELCODE.09_2022        HH9RELCODE 
 HHI_FINAL_RELCODE.10_2022        HH10RELCODE
 HHI_FINAL_RELCODE.11_2022        HH11RELCODE
/*---------------------------------------------------*/
/* Additional variables used:
  PASAMESEX=flag indicating respondent has a same
  sex partner in 2022
   
  NUMSPPTRDLI=the number of spouse/partners as of the 
  respondent's date of last interview
  
  RELSPPTRDLI=the relationship code from the 
  respondent's date of last interview 
  
  LASTINT=year of respondent's last interview 
  prior to 2022
  
  All spouse/partner names from all survey rounds   */
/*---------------------------------------------------*/
/*****************************************************/
/* Code to create flags for variable creation        */
/*****************************************************/
array relc  HH1RELCODE HH2RELCODE HH3RELCODE HH4RELCODE HH5RELCODE  
           HH6RELCODE HH7RELCODE HH8RELCODE HH9RELCODE HH10RELCODE
           HH11RELCODE HH12RELCODE HH13RELCODE HH14RELCODE;
           
array names  HH1NAME HH2NAME HH3NAME HH4NAME HH5NAME HH6NAME HH7NAME  
            HH8NAME HH9NAME HH10NAME HH11NAME HH12NAME HH13NAME
            HH14NAME;
numspouse=0;
do i=1 to dim(relc);
  if relc[i]=1 then numspouse=numspouse+1;
end;            
numptr=0;
do i=1 to dim(relc);
  if relc[i]=33 then numptr=numptr+1;
end;            
haszeros=0;
do i = 1 to dim(relc);
 if relc[i]=0 then haszeros=1;
end;
length spptrname $40;
hasspptr=0;
spptrtype=0;
slotnum3=0;
do i = 1 to dim(relc);
 if relc[i] in (1 33) then do;
    hasspptr=hasspptr+1;
    spptrtype=relc[i];
    slotnum3=i;
    spptrname=names[i];
 end;
end;
hasononrel=0;
slotnum2=0;
do i = 1 to dim(relc);
 if relc[i]=36 then do;
    hasononrel=hasononrel+1;
    slotnum2=i;
 end;
end;
haspossible=0;
slotnum=0;
do i = 1 to dim(relc);
 if relc[i] in (57 58) then do;
   haspossible=haspossible+1;
   slotnum=i;
 end;
end;
spptrname=UPCASE(spptrname);
if intv2022=0 then do;
  hasspptr=-5; 
  spptrtype=-5;
  hasononrel=-5;
end;
if spptrtype=33 and PASAMESEX=1 then spptrtype=75;
/**************************************************/
/* Begin construction of spouse/partner variables */
/**************************************************/
NUMSPPTR22=.;
RELSPPTR22=.;
/*Set noninterviews to valid skips*/
if intv2022=0 then do;
  NUMSPPTR22=-4;
  RELSPPTR22=-4;
end;
/*Set people with no current spouse/partner in 2022 and at DLI to have same data as DLI*/ 
if NUMSPPTR22=. and hasspptr=0 and RELSPPTRDLI in (-999 0) then do;
  NUMSPPTR22=NUMSPPTRDLI;
  RELSPPTR22=RELSPPTRDLI;
end;
/*Set people with no current spouse/partner but who had one DLI*/
if NUMSPPTR22=. and hasspptr=0 and RELSPPTRDLI in (1 33 36) then do;
  NUMSPPTR22=NUMSPPTRDLI;
  RELSPPTR22=0;
end;
/*Set variables for people reporting first spouse/partner*/
if NUMSPPTR22=. and hasspptr=1 and RELSPPTRDLI=-999 then do;
  NUMSPPTR22=1;
  RELSPPTR22=spptrtype;
end;
/*********************************************************************/
/*Flags for constructing remaining universes for those whose DLI=2020*/
/*********************************************************************/
samecode20=0;
samename20=0;
if LASTINT=2020 then do;
  if spptrtype=RELSPPTRDLI then samecode20=1;
  if spptrname=name20 then samename20=1;
end;
/*Set variables for people who have same code and same spouse/partner name in 2020 and 2022*/
if NUMSPPTR22=. and LASTINT=2020 and samecode20=1 and samename20=1 then do;
  NUMSPPTR22=NUMSPPTRDLI;
  RELSPPTR22=RELSPPTRDLI;
end;
/*Set variables for people who have different code and same spouse/partner name in 2020 and 2022*/
if NUMSPPTR22=. and LASTINT=2020 and samecode20=0 and samename20=1 then do;
  NUMSPPTR22=NUMSPPTRDLI;
  RELSPPTR22=spptrtype;
end;
/*********************************************************************/
/*Flags for constructing remaining universes for those whose DLI=2018*/
/*********************************************************************/
samecode18=0;
samename18=0;
if LASTINT=2018 then do;
  if spptrtype=RELSPPTRDLI then samecode18=1;
  if spptrname=name18 then samename18=1;
end;
/*Set variables for people who have same code and same spouse/partner name in 2018 and 2022*/
if NUMSPPTR22=. and LASTINT=2018 and samecode18=1 and samename18=1 then do;
  NUMSPPTR22=NUMSPPTRDLI;
  RELSPPTR22=RELSPPTRDLI;
end;
/*Set variables for people who have different code and same spouse/partner name in 2018 and 2022*/
if NUMSPPTR22=. and LASTINT=2018 and samecode18=0 and samename18=1 then do;
  NUMSPPTR22=NUMSPPTRDLI;
  RELSPPTR22=spptrtype;
end;
/*********************************************************************/
/*Flags for constructing remaining universes for those whose DLI=2016*/
/*********************************************************************/
samecode16=0;
samename16=0;
if LASTINT=2016 then do;
  if spptrtype=RELSPPTRDLI then samecode16=1;
  if spptrname=name16 then samename16=1;
end;
/*Set variables for people who have same code and same spouse/partner name in 2016 and 2022*/
if NUMSPPTR22=. and LASTINT=2016 and samecode16=1 and samename16=1 then do;
  NUMSPPTR22=NUMSPPTRDLI;
  RELSPPTR22=RELSPPTRDLI;
end;
/*Set variables for people who have different code and same spouse/partner name in 2016 and 2022*/
if NUMSPPTR22=. and LASTINT=2016 and samecode16=0 and samename16=1 then do;
  NUMSPPTR22=NUMSPPTRDLI;
  RELSPPTR22=spptrtype;
end;
/*********************************************************************/
/*Flags for constructing remaining universes for those whose DLI=2014*/
/*********************************************************************/
samecode14=0;
samename14=0;
if LASTINT=2014 then do;
  if spptrtype=RELSPPTRDLI then samecode14=1;
  if spptrname=name14 then samename14=1;
end;
/*Set variables for people who have same code and same spouse/partner name in 2014 and 2022*/
if NUMSPPTR22=. and LASTINT=2014 and samecode14=1 and samename14=1 then do;
  NUMSPPTR22=NUMSPPTRDLI;
  RELSPPTR22=RELSPPTRDLI;
end;
/*Set variables for people who have different code and same spouse/partner name in 2014 and 2022*/
if NUMSPPTR22=. and LASTINT=2014 and samecode14=0 and samename14=1 then do;
  NUMSPPTR22=NUMSPPTRDLI;
  RELSPPTR22=spptrtype;
end;
/*********************************************************************/
/*Flags for constructing remaining universes for those whose DLI=2012*/
/*********************************************************************/
samecode12=0;
samename12=0;
if LASTINT=2012 then do;
  if spptrtype=RELSPPTRDLI then samecode12=1;
  if spptrname=name12 then samename12=1;
end;
/*Set variables for people who have same code and same spouse/partner name in 2012 and 2022*/
if NUMSPPTR22=. and LASTINT=2012 and samecode12=1 and samename12=1 then do;
  NUMSPPTR22=NUMSPPTRDLI;
  RELSPPTR22=RELSPPTRDLI;
end;
/*Set variables for people who have different code and same spouse/partner name in 2012 and 2022*/
if NUMSPPTR22=. and LASTINT=2012 and samecode12=0 and samename12=1 then do;
  NUMSPPTR22=NUMSPPTRDLI;
  RELSPPTR22=spptrtype;
end;
/*********************************************************************/
/*Flags for constructing remaining universes for those whose DLI=2010*/
/*********************************************************************/
samecode10=0;
samename10=0;
if LASTINT=2010 then do;
  if spptrtype=RELSPPTRDLI then samecode10=1;
  if spptrname=name10 then samename10=1;
end;
/*Set variables for people who have same code and same spouse/partner name in 2010 and 2022*/
if NUMSPPTR22=. and LASTINT=2010 and samecode10=1 and samename10=1 then do;
  NUMSPPTR22=NUMSPPTRDLI;
  RELSPPTR22=RELSPPTRDLI;
end;
/*Set variables for people who have different code and same spouse/partner name in 2010 and 2022*/
if NUMSPPTR22=. and LASTINT=2010 and samecode10=0 and samename10=1 then do;
  NUMSPPTR22=NUMSPPTRDLI;
  RELSPPTR22=spptrtype;
end;
/*********************************************************************/
/*Flags for constructing remaining universes for those whose DLI=2008*/
/*********************************************************************/
samecode08=0;
samename08=0;
if LASTINT=2008 then do;
  if spptrtype=RELSPPTRDLI then samecode08=1;
  if spptrname=name08 then samename08=1;
end;
/*Set variables for people who have same code and same spouse/partner name in 2008 and 2022*/
if NUMSPPTR22=. and LASTINT=2008 and samecode08=1 and samename08=1 then do;
  NUMSPPTR22=NUMSPPTRDLI;
  RELSPPTR22=RELSPPTRDLI;
end;
/*Set variables for people who have different code and same spouse/partner name in 2008 and 2022*/
if NUMSPPTR22=. and LASTINT=2008 and samecode08=0 and samename08=1 then do;
  NUMSPPTR22=NUMSPPTRDLI;
  RELSPPTR22=spptrtype;
end;
/*********************************************************************/
/*Flags for constructing remaining universes for those whose DLI=2006*/
/*********************************************************************/
samecode06=0;
samename06=0;
if LASTINT=2006 then do;
  if spptrtype=RELSPPTRDLI then samecode06=1;
  if spptrname=name06 then samename06=1;
end;
/*Set variables for people who have same code and same spouse/partner name in 2006 and 2022*/
if NUMSPPTR22=. and LASTINT=2006 and samecode06=1 and samename06=1 then do;
  NUMSPPTR22=NUMSPPTRDLI;
  RELSPPTR22=RELSPPTRDLI;
end;
/*Set variables for people who have different code and same spouse/partner name in 2006 and 2022*/
if NUMSPPTR22=. and LASTINT=2006 and samecode06=0 and samename06=1 then do;
  NUMSPPTR22=NUMSPPTRDLI;
  RELSPPTR22=spptrtype;
end;
/*********************************************************************/
/*Flags for constructing remaining universes for those whose DLI=2004*/
/*********************************************************************/
samecode04=0;
samename04=0;
if LASTINT=2004 then do;
  if spptrtype=RELSPPTRDLI then samecode04=1;
  if spptrname=name04 then samename04=1;
end;
/*Set variables for people who have same code and same spouse/partner name in 2004 and 2022*/
if NUMSPPTR22=. and LASTINT=2004 and samecode04=1 and samename04=1 then do;
  NUMSPPTR22=NUMSPPTRDLI;
  RELSPPTR22=RELSPPTRDLI;
end;
/*Set variables for people who have different code and same spouse/partner name in 2004 and 2022*/
if NUMSPPTR22=. and LASTINT=2004 and samecode04=0 and samename04=1 then do;
  NUMSPPTR22=NUMSPPTRDLI;
  RELSPPTR22=spptrtype;
end;
/*********************************************************************/
/*Flags for constructing remaining universes for those whose DLI=2002*/
/*********************************************************************/
samecode02=0;
samename02=0;
if LASTINT=2002 then do;
  if spptrtype=RELSPPTRDLI then samecode02=1;
  if spptrname=name02 then samename02=1;
end;
/*Set variables for people who have same code and same spouse/partner name in 2002 and 2022*/
if NUMSPPTR22=. and LASTINT=2002 and samecode02=1 and samename02=1 then do;
  NUMSPPTR22=NUMSPPTRDLI;
  RELSPPTR22=RELSPPTRDLI;
end;
/*Set variables for people who have different code and same spouse/partner name in 2002 and 2022*/
if NUMSPPTR22=. and LASTINT=2002 and samecode02=0 and samename02=1 then do;
  NUMSPPTR22=NUMSPPTRDLI;
  RELSPPTR22=spptrtype;
end;
/*********************************************************************/
/*Flags for constructing remaining universes for those whose DLI=2000*/
/*********************************************************************/
samecode00=0;
samename00=0;
if LASTINT=2000 then do;
  if spptrtype=RELSPPTRDLI then samecode00=1;
  if spptrname=name00 then samename00=1;
end;
/*Set variables for people who have same code and same spouse/partner name in 2000 and 2022*/
if NUMSPPTR22=. and LASTINT=2000 and samecode00=1 and samename00=1 then do;
  NUMSPPTR22=NUMSPPTRDLI;
  RELSPPTR22=RELSPPTRDLI;
end;
/*Set variables for people who have different code and same spouse/partner name in 2000 and 2022*/
if NUMSPPTR22=. and LASTINT=2000 and samecode00=0 and samename00=1 then do;
  NUMSPPTR22=NUMSPPTRDLI;
  RELSPPTR22=spptrtype;
end;
/*********************************************************************/
/*Construction for remaining universes for those whose DLI<=1998     */
/*********************************************************************/
/*Construction for people who are with the same spouse/partner as DLI
 based on checking names/types*/
if NUMSPPTR22=. and LASTINT<2000 and samecode98=1 and samename98=1 then do;
  NUMSPPTR22=NUMSPPTRDLI;
  RELSPPTR22=spptrtype;
end;
/*Construction for people who are with a new spouse/partner since DLI
 based on checking names/types*/
if NUMSPPTR22=. and LASTINT<2000 and samecode98=0 and samename98=1 then do;
  NUMSPPTR22=NUMSPPTRDLI+1;
  RELSPPTR22=spptrtype;
end;

Construction of ages at birth and months between births (2022 and XRND)

PUBLIC RELEASE VARIABLE NAME     PROGRAM VARIABLE NAMES
  Q1-3_A~M_1979                     DOBMO79
  Q1-3_A~Y_1979                     NDOBYR79
  C1DOB22~M_2022                    C1MOB22
  C1DOB22~Y_2022                    C1YOB22
  C2DOB22~M_2022                    C2MOB22
  C2DOB22~Y_2022                    C2YOB22
  C3DOB22~M_2022                    C3MOB22
  C3DOB22~Y_2022                    C3YOB22
  NUMKID22_2022                     NUMKID22
/*------------------------------------------------*/
/**********************************************************************/
/*   create age at first, second and third births for female          
    respondents.                                                     */
/**********************************************************************/
age1b22=-3;  age2b22=-3;  age3b22=-3;
if MONTHRB>0 and NYEARRB>0 and C1YOB22>0 and C1MOB22>0  then do;
 if MONTHRB>C1MOB22  then age1b22=C1YOB22-NYEARRB-1;
 else age1b22=C1YOB22-NYEARRB;  
end;  
if MONTHRB>0 and NYEARRB>0 and C2YOB22>0 and C2MOB22>0  then do;
 if MONTHRB>C2MOB22  then age2b22=C2YOB22-NYEARRB-1;
 else age2b22=C2YOB22-NYEARRB;  
end;  
if MONTHRB>0 and NYEARRB>0 and C3YOB22>0 and C3MOB22>0  then do;
 if MONTHRB>C3MOB22  then age3b22=C3YOB22-NYEARRB-1;
 else age3b22=C3YOB22-NYEARRB;  
end;  
if NUMKID22=0  then do;
 age1b22=-998;  age2b22=-998;  age3b22=-998;
end;
if NUMKID22=1  then do;
 age2b22=-997;  age3b22=-997;
end;
if NUMKID22=2  then age3b22=-996;
if INTV22 = 0 then do;
 age1b22=-5;  age2b22=-5;  age3b22=-5;
end;
/*********************************************************************/
/*   create months between first and second births and months       
    between second and third births                                 */
/*********************************************************************/
mo1b2b22=-3;  mo2b3b22=-3;
if C1MOB22>0 and C1YOB22>0 and C2MOB22>0 and C2YOB22>0  then mo1b2b22=
 (C2YOB22-C1YOB22)*22 + (C2MOB22-C1MOB22);
if NUMKID22=0  then mo1b2b22=-998;
if NUMKID22=1  then mo1b2b22=-997;  
if C2MOB22>0 and C2YOB22>0 and C3MOB22>0 and C3YOB22>0  then mo2b3b22=
 (C3YOB22-C2YOB22)*22 + (C3MOB22-C2MOB22);
if NUMKID22=0  then mo2b3b22=-998;
if NUMKID22=1  then mo2b3b22=-997;  
if NUMKID22=2  then mo2b3b22=-996;
if INTV22 = 0 then
do;
 mo1b2b22=-5;  mo2b3b22=-5;
end;

Users should note several caveats with regard to the creation of specific variables:

  1. The fertility data of male respondents was typically less closely scrutinized than that of the female respondent. From 1993 to 2012, separate edit flags for males and females were added to the Fertility and Relationship History record. Beginning in 2014, the fertility data of the males were reconciled, and only one edit flag is provided for both male and female respondent. In 2022, no edit flag is included, as respondents were asked only about new children since the date of last interview.
  2. Users may notice discrepancies in dates of birth or sex variables across time. These discrepancies arise as part of the data reconciliation process. Occasionally, a child who is initially reported as a biological child has been later found to be a stillbirth or a non-biological child and removed from the fertility record. It is important for the user to understand that when a date of birth or other information is corrected, we do not change the data for earlier points in time. Thus, there may be inconsistencies in the dates of birth and ages of specific children, or the total number of children, between the current fertility record and earlier reports.
  3. Variables indicating the number of children or the age of the youngest child in the household refer to the respondent's biological, adopted, or step-children present in the household at the time of the interview. These variables are created by cycling through the household record for the given survey year. The variable titles and labels were historically adjusted for the 1998 data release to make this distinction more apparent.
  4. Variables relating to the female pregnancy histories such as number of pregnancies, number of miscarriages/stillbirths, month and year began first pregnancy, age began first pregnancy, and outcome of first pregnancy have valid values only for female respondents interviewed at the survey year in question and who were also interviewed at the time of the 1982 and 1983 surveys when full retrospective pregnancy histories were collected. All male respondents as well as female respondents not interviewed in both 1982 and 1983 are coded as a "-4" on these variables since a complete pregnancy profile is unavailable. Beginning with 1992, miscarriages and stillbirths are collapsed into a single code ("2") on the variable "Outcome of First Pregnancy."
    Confidential abortion reports were collected in 1984, 1986, 1988, 1990, 1992, 1994, 1996, 1998, 2000, 2002, 2004, 2006, 2008, 2010, and 2012. This information has been incorporated into the creation of the pregnancy-related variables. For that small subset of female respondents for whom full pregnancy histories are unavailable, some will have full abortion data if they were interviewed in 1984. Thus, there are smaller numbers of respondents with a code of "-4" on the variable for number of abortions than on the other pregnancy variables. Current pregnancies are included in the count of the number of pregnancies as of a given survey date, and twins/triplets represent a single pregnancy. Where questionnaire items for the beginning date of the first pregnancy are unavailable and the outcome was a live birth, 9 months are subtracted from the child's birth date to obtain the beginning date of the first pregnancy. Where the outcome of the first pregnancy was an abortion reported only in one of the confidential reports, 3 months are subtracted.
  5. Beginning with the release of the 1985 marriage variables, an effort has been made to reconcile marriage dates with the key variables for current marital status made available in the "Key Variables" area of interest. For approximately 100 cases there are inconsistencies in the marriage histories over time, with some respondents changing their marital status from ever-married to never-married or vice-versa based on the marital status change item provided on the information sheet. Also, where the change was made very early in the longitudinal record and the respondent continued to verify the changed status in subsequent surveys, the marriage variables for 1985 and subsequent years have been altered accordingly and will differ from the marriage variables provided earlier. Where a change is recorded from never-married to ever-married using the information sheet item only, marriage dates were not collected and thus the respondent is missing information (or coded "-3") on the date of marriage. For all survey years, a marriage is considered to have ended only if the respondent reports a change to widowhood or divorce. Beginning with the 2012 release, the constructed dates of marriage variables have been expanded to include all reported marriages by NLSY79 respondents.
  6. All age variables referenced to events are constructed with the original date of birth of the respondent provided at the 1979 survey (R00003., R00004. and R00005). These variables were used to define a respondent's eligibility to be included in the NLSY79 sample.
  7. The variables indicating months between first marriage and first birth have traditionally ranged from negative to positive numbers, with specialized codes to indicate non-interview, no first child, no first marriage, and missing date information. Beginning with the 1998 data release, these data indicating months between first marriage and first birth for each FERTILE record 1982-2022 have been converted to all positive numbers. These variables are paired with a flag variable that indicates whether the first marriage occurred before or after the first birth. Both variables have been assigned new reference numbers. The specialized codes for non-interviews have been dropped; however, the other specialized codes have been retained. The original versions of these variables do not appear in the public release.
  8. The newly added relationship history variables help users track the number of spouse/partners identified through our data collection process. However, not all cohabiting partners may have been reported as such, and cohabiting partners could also have entered and exited households between survey rounds and thus be unavailable for identification.

Codebook categories

The following variables have special coding specifications that users need to be aware of when using the 1994-2018 supplemental fertility data.

  • R50882. Edit Flag for Female Respondents 1994 Survey
  • R51735. Edit Flag for Female Respondents 1996 Survey
  • R64871. Edit Flag for Female Respondents 1998 Survey
  • R70149. Edit Flag for Female Respondents 2000 Survey
  • R77125. Edit Flag for Female Respondents 2002 Survey
  • R85050. Edit Flag for Female Respondents 2004 Survey
  • T09861. Edit Flag for Female Respondents 2006 Survey
  • T22185. Edit Flag for Female Respondents 2008 Survey
  • T31165. Edit Flag for Female Respondents 2010 Survey
  • T41210. Edit Flag for Female Respondents 2012 Survey
  • T50322. Edit Flag for ALL Respondents 2014 Survey
  • T57804. Edit Flag for ALL Respondents 2016 Survey
  • T82275. Edit Flag for ALL Respondents 2018 Survey
  • T87968. Edit Flag for ALL Respondents 2020 Survey

This edit flag is a general code that indicates the status of the MOTHER'S fertility record, and the indicated changes do not specify which child was affected.

  • 0 = Consistent with previous supplemental fertility file records
  • 1 = A child made younger
  • 2 = A child made older
  • 3 = Corrected previously missing information
  • 4 = Information inconsistent with previous supplemental fertility; previous supplemental fertility information used
  • 5 = Information inconsistent with previous supplemental fertility; mother’s current information accepted reluctantly
  • 6 = IDs assigned out of birth order
  • 7 = Discrepancy between CRF and FERTILE; current FERTILE will be consistent with previous supplemental fertility, but CRF preserved for next survey round
  • 8 = Child removed from FERTILE; incorrectly recorded non-biological child
  • 9 = Child removed from FERTILE; incorrectly recorded pregnancy loss
  • 10 = IDs assigned out of birth order AND made a child younger
  • 11 = IDs assigned out of birth order AND made a child older
  • 12 = Sex changed from previous supplemental fertility
  • 13 = Data from mother inconsistent; one child deleted, another added
  • 14 = IDs out of birth order AND discrepancy between FERTILE and CRF (CRF preserved for next survey round)
  • 15 = Child removed from FERTILE; incorrectly recorded pregnancy loss AND changed sex on another child from previous FERTILE
  • 16 = Made current supplemental fertility consistent with current Child Supplement (new child)
  • 17 = Sex missing from current CRF (new child); used information from current CS
  • 18 = Child assessed in current round but inexplicably missing from current CRF; added to current supplemental fertility with residence information from HHR if possible
  • 19 = Hand edited date of death
  • 20 = Day of birth ONLY discrepancy between previous supplemental fertility and current CRF; unedited CRF day used
  • 21 = Child assessed in current survey round but mother is a noninterview
  • 22 = Mother added surprise older child; IDs out of birth order
  • 23 = Incorrect code of 99 (deleted) generated for deceased/adopted out child; information corrected
  • 24 = Duplicate date of birth of existing child on CRF; edited to reflect previous supplemental fertility
  • 25 = Non-biological child not previously on FERTILE deleted from current CRF
  • 26 = Incorrect code of 99 (deleted) generated for live child; status corrected and residence taken from HHR if possible
  • 27 = Incorrect HH flag generated by CAPI for deceased/adopted out child; information corrected (New code in 1996)
  • 28 = Residence missing from CRF; information from fertility section and/or HHR used (New code in 1996)
  • 29 = Partial interview; used previous supplemental fertility file; residence coded from HH record if possible (New code in 1998)
  • 30 = Incorrect code of 8 (deceased) generated for live child; status corrected and residence taken from HHR if possible (new code in 1998)
  • 31 = Information corrected based on YA respondent correcting birth, age not affected
  • 32 = Information corrected based on YA respondent correcting birth, age made older
  • 33 = Information corrected based on YA respondent correcting birth, age made younger
  • 34 = Child removed from FERTILE, added through interviewer error but not caught previously
  • 35 = Residence coded based on information from HHR
  • 36 = Residence coded from YA interview
  • 37 = Year of birth corrected based on information from HHR
  • 38 = Duplicate child removed from CRF, not previously in FERTILE
  • 39 = Sex and day of birth changed from previous supplemental fertility
  • 40 = One or more children made older and one or more younger, and IDs out of birth order
  • 41 = One or more children made older and one or more children younger
  • 42 = Child made older and missing child added
  • 43 = Removed duplicate caused by interviewer error and made one child younger
  • 44 = Corrected interviewer error that led to child missing from CRF
  • 45 = Edited to resolve historical FERTILE/CRF inconsistencies
  • 46 = Information inconsistent with previous supplemental fertility; respondent’s current information accepted reluctantly and non-biological child not previously on FERTILE deleted from current CRF
  • 47 = Removed duplicate caused by interviewer error and made one child older
  • 48 = Removed both duplicate child and nonbiological child
  • 49 = Removed nonbiological child and made one child younger
  • 50 = Removed nonbiological child and IDs out of birth order

There are three edit flags for MALE respondents for 1993-2012. The coding scheme for these flags appears in the codebook.

NLSY79 Appendix 4: Job Characteristics Index 1979-1982

Included in the 1979 and 1982 surveys is a measure of perceived job characteristics developed by Sims, Szilagyi, and Keller.Ref 1 This scale, the Job Characteristics Index (JCI), is an extension of the work first begun by Turner and Lawrence in 1965.Ref 2 The JCI was preceded by an instrument developed by Hackman and Oldham known as the Job Diagnostic Survey (JDS),Ref 3 whose dimensions are also incorporated in the JCI, but in a simpler format.

Comparisons of the JCI and JDS by Dunham et al.Ref 4, Ref 5 have shown that both scales tend to collapse to a one-dimensional scale measuring job-complexity. Therefore, the JCI was shortened by selecting one scale item which loaded strongly on each of the dimensions of job complexity shown to be important in earlier research. In their 1976 article, Sims et al. reported the necessary factor analysis scores used to obtain the abbreviated scale. The seven questionnaire items that comprise the shortened JCI scale are in Section 8, question 23, sub-questions 1-5, and questions 24A and C (Reference numbers 481.-486. and 488.) for 1979; for 1982, the items are in Section 5, question 36, sub-questions 1-5, and questions 36B and 36D (Reference numbers R7054.-R7059. and R7061.).

References

Ref 1 Sims, Henry R., Szilagyi, Andrew, And Keller, Robert. "The Measurement of Job Characteristics," Academy of Management Journal 26,2 (June, 1976): 195-212.

Ref 2 Turner, A.N. and Lawrence, P.R. Industrial Jobs and the Workers: An Investigation of Responses to Task Attributes. Boston: Harvard University Press, 1965.

Ref 3 Hackman, J.R. and Oldham, J.R. "Development of the Job Diagnostic Survey," Journal of Applied Psychology 60 (1975): 159-170.

Ref 4 Dunham, Randall, B., Aldag, Ramon, and Brief, Arthur P. "Dimensionality of Task Design as Measured by the Job Diagnostic Survey," Academy of Management Journal 20,2 (June, 1977): 209-223.

Ref 5 Pierce, Jon L. and Dunham, Randall B. "The Measurement of Perceived Job Characteristics: The Job Diagnostic Survey vs. the Job Characteristics Inventory, Academy of Management Journal 21,1 (March, 1978): 123-128.

NLSY79 Appendix 3: Job Satisfaction Measures

Included in the 1979 through 1982 NLSY79 is a measure of job satisfaction with econometric properties that make it better than the global job satisfaction measure also included in the surveys. The job satisfaction measure is a seven-item scale that has greater variance than the global satisfaction measure. The scale has been tested previously on broad cross-sections of national data.

The following is a list of the reference numbers for the job satisfaction scale variables and the global satisfaction variables for all of the current survey years in which it was used.

Survey Year Reference Numbers for Scale Items Reference Number for Global Satisfaction

1979

  • R00489.
  • R00490.
  • R00494.
  • R00496.
  • R00497.
  • R00506.

R00508.

1980

  • R02659.
  • R02660.
  • R02664.
  • R02666.
  • R02667.
  • R02676.

R02678.

1981

  • R04473.
  • R04474.
  • R04478.
  • R04480.
  • R04481.
  • R04490.

R04492.

1982

  • R07034.
  • R07035.
  • R07039.
  • R07041.
  • R07042.
  • R07052.

R07065.

1988

  • R25296.
  • R25297.
  • R25302.
  • R25304.
  • R25305.

R25329.

This scale is a shortened form of the job satisfaction scales perfected for use in the University of Michigan's Quality of Employment Surveys of 1969, 1973, and 1977. Short forms were developed and documented by Robert Quinn.[Ref 1] The Quality of Employment Survey scale was chosen for inclusion in the NLS because it has been analyzed for its reliability across a broad cross-section of workers. It is also much easier to administer for a large multi-purpose survey than are many of the other job satisfaction scales that exist.[Ref 2]

To construct the full seven-item scale, raw scores for each item should be converted to z scores for each respondent. The scores can then be multiplied by 100 to remove decimals and combined to obtain an unweighted average of the seven z scores. The resulting scores for the satisfaction index are either positive or negative numbers that can be interpreted as deviations from the mean for the total sample of respondents in the survey.

References

[Ref 1]Quinn, R.B. and Mangione, T.W. "Jobsat '72 and Its Kinfolk - A Brief Manual." Chapter 5 in The 1969-1970 Survey of Working Conditions: Chronicles of an Unfinished Enterprise. Ann Arbor: Survey Research Center, Institute for Social Research, University of Michigan, 1973.

[Ref 2]Data on the validities of the job satisfaction measures in the Quality of Employment Survey are reported in Mangione, T., "The Validity of Job Satisfaction." Doctoral dissertation, The University of Michigan, 1973. For a review of job satisfaction indicators, see Seashore, S. and Taber, T., "Job Satisfaction Indicators and Their Correlates." American Behavioral Scientist 18 (1975), 333-368.

NLSY79 Appendix 2: Total Net Family Income and Poverty Data

Click below to view programming code.

VARIABLE NAMES IN PUBLIC RELEASE        VARIABLE NAMES IN PROGRAM
CASEID_2022                              NORCID
FAMSIZE_2022                             FAMSIZE
SYMBOL_SPFLAG_2022                       SPFLAG
SYMBOL_PAFLAG_2022                       PAFLAG
HHI_FINAL_RELCODE.01_2022                REL01
HHI_FINAL_RELCODE.02_2022                REL02
HHI_FINAL_RELCODE.03_2022                REL03
HHI_FINAL_RELCODE.04_2022                REL04
HHI_FINAL_RELCODE.05_2022                REL05
HHI_FINAL_RELCODE.06_2022                REL06
HHI_FINAL_RELCODE.07_2022                REL07
HHI_FINAL_RELCODE.08_2022                REL08
HHI_FINAL_RELCODE.09_2022                REL09
HHI_FINAL_RELCODE.10_2022                REL10
UNEMPR-TOTAL-2021_XRND                   ucr121
UNEMPSP-TOTAL-2021_XRND                  ucsp121
AFDC-TOTAL-2021_XRND                     afdc121
FDSTMPS-TOTAL-2021_XRND                  fdst121
SSB_TOTAL_2021_XRND                      SSB121
SSB_TOTAL_2022_XRND                      SSB122
UNEMPR-TOTAL-2022_XRND                   ucr122
UNEMPSP-TOTAL-2022_XRND                  ucsp122
AFDC-TOTAL-2022_XRND                     afdc122
FDSTMPS-TOTAL-2022_XRND                  fdst122
Q13-5_2022                               Q13_5
Q13-9_2022                               q13_9
RETINCR-PENSIONS-1_2022                  RR_pen1
RETINCR-PENSIONS-2_2022                  RR_pen2
RETINCR-ANNUITIES-1_2022                 RR_anu1
RETINCR-ANNUITIES-2_2022                 RR_anu2
RETINCR-IRA-1_2022                       RR_ira1
RETINCR-IRA-3_2022                       RR_ira3
RETINCR-IRA-4_2022                       RR_ira4
RETINCR-SOCSEC-1_2022                    RR_SS
Q13-69_SS_2022                           Q69_SS
Q13-70A_SS_2022                          q70a_ss
Q13-70_SS_2022                           q70_ss
Q13-70A_DIS.01_2022                      q70a_dis1
Q13-70A_DIS.02_2022                      q70a_dis2
Q13-70_DIS.01_2022                       q70_dis1
Q13-70_DIS.02_2022                       q70_dis2
Q13-31A_2022                             q13_31a
Q13-31B_2022                             q13_31b
Q13-70A_VET_2022                         q70a_vet
Q13-70_VET_2022                          q70_vet
Q13-18_2022                              q13_18
Q13-24_2022                              q13_24
RETINCSP-PENSIONS-1_2022                 RS_pen1
RETINCSP-PENSIONS-2_2022                 RS_pen2
RETINCSP-ANNUITIES-1_2022                RS_anu1
RETINCSP-ANNUITIES-2_2022                RS_anu2
RETINCSP-IRA-1_2022                      RS_ira1
RETINCSP-IRA-3_2022                      RS_ira3
RETINCSP-IRA-4_2022                      RS_ira4
RETINCSP-SOCSEC-1_2022                   RS_SS    
Q13-69_SS-SP_2022                        q69_SS_SP
Q13-70A_SS-SP_2022                       q70a_ss_sp
Q13-70_SS-SP_2022                        q70_ss_sp
Q13-70A_DIS-SP.01_2022                   q70a_dis1_sp
Q13-70A_DIS-SP.02_2022                   q70a_dis2_sp
Q13-70_DIS-SP.01_2022                    q70_dis1_sp
Q13-70_DIS-SP.02_2022                    q70_dis2_sp
Q13-31A-SP_2022                          q13_31a_sp
Q13-31B-SP_2022                          q13_31b_sp
Q13-70A-SP_VET_2022                      q70a_vet_sp
Q13-70_VET-SP_2022                       q70_vet_sp
Q13-71_2022                              q13_71
Q13-73A_2022                             q13_73a
Q13-74_2022                              q13_74
Q13-75_2022                              q13_75
Q13-80-NEW_2022                          q13_80
Q13-81-NEW_2022                          q13_81
CURDATE~D_2022                           curday   
CURDATE~M_2022                           curmo 
CURDATE~Y_2022                           curyr 
Q13-10_2022                              q10
if FAMSIZE ~= -5;
paflaga = paflag;
if (rel01 = 33 | rel02 = 33 | rel03 = 33 | rel04 = 33 | rel05 = 33
   | rel06 = 33 | rel07 = 33 | rel08 = 33 | rel09 = 33 | rel10 = 33)
   then paflaga=1;
spflaga = spflag; 
if (rel01 = 1 | rel02 = 1 | rel03 = 1 | rel04 = 1 | rel05 = 1
   | rel06 = 1 | rel07 = 1 | rel08 = 1 | rel09 = 1 | rel10 = 1)
   then spflaga=1;
    
***** respondent (and dependent children) income;
* wager--wage;
wager=-4;
if q13_5=-4 then wager=0;
else wager=q13_5;
* farmr--income from farm or business;
farmr=-4;
if q13_9=-4 then farmr=0;
else farmr=q13_9;
* penr--income from retirement pension; 
penr=-4;
if RR_pen2 in (-4 0) then penr=0;
else penr=RR_pen2;
* anur--income from retirement annuity; 
anur=-4;
if RR_anu2 in (-4 0) then anur=0;
else anur=RR_anu2;
* irar--withdraw from IRA;
irar=-4;
if RR_ira4 in (-4 0) then irar=0;
else irar=RR_ira4;
* ssr--income from social security;
ssr=-4;
if q70_ss=-4 then ssr=0;
else if q70a_ss in (-1 -2 -3) or q70_ss in (-1 -2 -3) then ssr=-3;
else if q70a_ss>=0 and q70_ss>=0 then ssr=q70a_ss * q70_ss;
* dis1r--veteran disability;
dis1r=-4;
if q70_dis1=-4 then dis1r=0;
else if q70a_dis1 in (-1 -2 -3) or q70_dis1 in (-1 -2 -3) then dis1r=-3;
else if q70a_dis1>=0 and q70_dis1>=0 then dis1r=q70a_dis1 * q70_dis1;
* dis2r--other disability;
dis2r=-4;
if q70_dis2=-4 then dis2r=0;
else if q70a_dis2 in (-1 -2 -3) or q70_dis2 in (-1 -2 -3) then dis2r=-3;
else if q70a_dis2>=0 and q70_dis2>=0 then dis2r=q70a_dis2 * q70_dis2;
* wcmpr--worker comp;
wcmpr=-4;
if q13_31b in (-4, 0) then wcmpr=0;
else wcmpr=q13_31b;
* vetr--other veteran benefit;
vetr=-4;
if q70_vet=-4 then vetr=0;
else if q70a_vet in (-1 -2 -3) or q70_vet in (-1 -2 -3) then vetr=-3;
else if q70a_vet>=0 and q70_vet>=0 then vetr=q70a_vet * q70_vet;
* respondent UC;
ucr=-3;
if curyr=2022 then ucr=ucr121;
else if curyr=2023 then ucr=ucr122;
if ucr in (. -4) then ucr=0;
if ucr in (-1 -2) then ucr=-3;
***** Spouse/partner income;
* wages--spouse wage;
wages=-4;
if paflaga=1 or q13_18=-4 then wages=0;
else wages=q13_18;
* farms--spouse income from farm or business;
farms=-4;
if paflaga=1 or q13_24=-4 then farms=0;
else farms=q13_24;
* pensp--spouse/partner income from retirement pension; 
pensp=-4;
if RS_pen2 in (-4 0) then pensp=0;
else pensp=RS_pen2;
* anusp--spouse/partner income from retirement annuity; 
anusp=-4;
if RS_anu2 in (-4 0) then anusp=0;
else anusp=RS_anu2;
* irasp--spouse/partner withdraw from IRA;
irasp=-4;
if RS_ira4 in (-4 0) then irasp=0;
else irasp=RS_ira4;
* sssp--spouse/partner income from social security;
sssp=-4;
if q70_ss_sp=-4 then sssp=0;
else if q70a_ss_sp in (-1 -2 -3) or q70_ss_sp in (-1 -2 -3) then sssp=-3;
else if q70a_ss_sp>=0 and q70_ss_sp>=0 then sssp=q70a_ss_sp * q70_ss_sp;
* dis1sp--spouse/partner veteran disability;
dis1sp=-4;
if q70_dis1_sp=-4 then dis1sp=0;
else if q70a_dis1_sp in (-1 -2 -3) or q70_dis1_sp in (-1 -2 -3) then dis1sp=-3;
else if q70a_dis1_sp>=0 and q70_dis1_sp>=0 then dis1sp=q70a_dis1_sp * q70_dis1_sp;
* dis2sp--spouse/partner other disability;
dis2sp=-4;
if q70_dis2_sp=-4 then dis2sp=0;
else if q70a_dis2_sp in (-1 -2 -3) or q70_dis2_sp in (-1 -2 -3) then dis2sp=-3;
else if q70a_dis2_sp>=0 and q70_dis2_sp>=0 then dis2sp=q70a_dis2_sp * q70_dis2_sp;
* wcmpsp--spouse/partner worker comp;
wcmpsp=-4;
if q13_31b_sp in (-4, 0) then wcmpsp=0;
else wcmpsp=q13_31b_sp;
* vetsp--spouse/partner other veteran benefit;
vetsp=-4;
if q70_vet_sp=-4 then vetsp=0;
else if q70a_vet_sp in (-1 -2 -3) or q70_vet_sp in (-1 -2 -3) then vetsp=-3;
else if q70a_vet_sp>=0 and q70_vet_sp>=0 then vetsp=q70a_vet_sp * q70_vet_sp;
* spouse UC;
ucs=-3;
if curyr=2022 then ucs=ucsp121;
else if curyr=2023 then ucs=ucsp122;
if paflaga=1 or ucs in (. -4) then ucs=0;
else if ucs in (-1 -2) then ucs=-3;
***** R and spouse/partner;
* afdc;
afdc=-3;
if curyr=2022 then afdc=afdc121;
else if curyr=2023 then afdc=afdc122;
if afdc in (-4 .) then afdc=0;
else if afdc in (-1 -2) then afdc=-3;
* food stamps;
fdst=-3;
if curyr=2022 then fdst=fdst121;
else if curyr=2023 then fdst=fdst122;
if fdst in (-4 .) then fdst=0;
else if fdst in (-1 -2) then fdst=-3;
* ssi + ssdi;
ssb=-3;
if curyr=2022 then ssb=ssb121;
else if curyr=2023 then ssb=ssb122;
if ssb in (-4 .) then ssb=0;
else if ssb in (-1 -2) then ssb=-3;
*estates/trusts/inheritances;
trst=-4;
if q13_73a in (-4 0) then trst=0;
else trst=q13_73a;
*income from other sources;
othrs=-4; 
if q13_75 in (-4 0) then othrs=0;
else othrs=q13_75;
*income from other family memeber in the house;
othrp=-4; 
if q13_81 in (-4 0) then othrp=0;
else othrp=q13_81;
***** total family income;
array comp (*) wager farmr penr anur irar ssr dis1r dis2r wcmpr vetr ucr
               wages farms pensp anusp irasp sssp dis1sp dis2sp wcmpsp vetsp ucs
               afdc fdst ssb othrs othrp;    
                           
tnfi=0;
do j=1 to dim(comp);
if comp(j) in (-1 -2 -3) then do; tnfi=-3; j=dim(comp); end;
else if tnfi>=0 & comp(j)>=0 then tnfi=tnfi + comp(j);
end;
***** Poverty level;
* Federal Poverty Guidelines;
* https://aspe.hhs.gov/2021-poverty-guidelines;
* https://aspe.hhs.gov/sites/default/files/documents/4b515876c4674466423975826ac57583/Guidelines-2022.pdf;
if curyr=2022 then do;
    if famsize > 0 then level= table21 + (tbl21_inc * (famsize-1));*interviewed in 2022 using 2021 guideline;
end;
else if curyr=2023 then do;
    if famsize > 0 then level= table22 + (tbl22_inc * (famsize-1));*interviewed in 2023 using 2022 guideline;
end;
if (tnfi > level) then cps_cur=0;
else if (tnfi >= 0 & tnfi <= level) then cps_cur=1;
else cps_cur=-3;
*****  top coding;
tnfi_trunc =  tnfi;
if (tnfi >= tnfi_98) then tnfi_trunc = tnfi_mean;                                                                                                                                                     
tnfi_trunc  = round(tnfi_trunc);

Family Poverty Status and Family Poverty Level variables

Introduction

The Family Poverty Status variable is calculated using a combination of reported family income, the number of family members in the respondent's household, and the national Poverty Income Guidelines, which are updated yearly by the U.S. Department of Health and Human Services. The Poverty Income Guidelines are based on family size; the poverty guidelines set a base amount for smallest family size of one person and increases by a standard amount for each additional family member living in the household.

An NLSY79 respondent is determined to be in poverty if total net family income for the last calendar year is below the Poverty Income Guidelines given their family size.

Poverty income guideline tables

The national Poverty Income Guidelines used in creating the family poverty status variable are shown below.

Questions about the use of the poverty guidelines in one of the outlying jurisdictions (Puerto Rico, the U.S. Virgin Islands, American Samoa, Guam, the Marshall Islands, the Federated States of Micronesia, the Commonwealth of the North Marianas, and Palau) by a Federal program serving any of those jurisdictions should be referred to the Federal office responsible for the individual program involved.

Table 1. Poverty income guidelines by NLSY79 survey year
Survey Year Poverty Income Guidelines Year First Person Each Additional Person Four-person Family
1979 1978 $3,140 $1,020 $6,200
1980 1979 $3,400 $1,100 $6,700
1981 1980 $3,790 $1,220 $7,450
1982 1981 $4,310 $1,380 $8,450
1983 1982 $4,680 $1,540 $9,300
1984 1983 $4,860 $1,680 $9,900
1985 1984 $4,980 $1,740 $10,200
1986 1985 $5,250 $1,800 $10,650
1987 1986 $5,360 $1,880 $11,000
1988 1987 $5,500 $1,900 $11,200
1989 1988 $5,770 $1,960 $11,650
1990 1989 $5,980 $2,040 $12,100
1991 1990 $6,280 $2,140 $12,700
1992 1991 $6,620 $2,260 $13,400
1993 1992 $6,810 $2,380 $13,950
1994 1993 $6,970 $2,460 $14,350
1996 1995 $7,470 $2,560 $15,150
1998 1997 $7,890 $2,720 $16,050
2000 1999 $8,240 $2,820 $16,700
2002 2001 $8,590 $3,020 $17,650
2004 2003 $8,980 $3,140 $18,400
2006 2005 $9,570 $3,260 $19,350
2008 2007 $10,210 $3,480 $20,650
2010 2009 $10,830 $3,740 $22,050
2012 2011 $10,890 $3,820 $22,350
2014 2013 $11,670 $4,060 $23,850
2016 2015 (2016 interview date) $11,770 $4,160 $24,250
2016 2016 (2017 interview date) $11,880 $4,140 $24,300
2018 2017 (2018 interview date) $12,060 $4,180 $24,600
2018 2018 (2019 interview date) $12,140 $4,320 $25,100
2020 2019 (2020 interview date) $12,490 $4,420 $25,750
2020 2020 (2021 interview date) $12,760 $4,480 $26,200
2022 2022 (2022 interview date) $12,880 $4,540 $26,500
2022 2022 (2023 interview date) $13,590 $4,720 $27,750

Users interested in information on the variables created using the old poverty guideline standards should refer to the Prior HHS Poverty Guidelines and Federal Register References webpage.

NLSY79 Appendix 1: Employment Status Recode Variables (1979-1998 and 2006)

Employment Status Recode (ESR) is a standard measure of the respondent's main labor force activity during the survey week (Sunday through Saturday preceding the interview date). What follows is a PL/I adaptation of a Fortran program used by the Census Bureau to create ESR for 1979-1993, for 1994 through 1998, an SPSS adaptation of the decision rules provided by the Census Bureau to create MLR using the new CAPI-generated CPS data, and for 2006, a SAS adaptation of these rules. Note that ESR was not created in 2000-2004 or 2008-present because the CPS section on activity in the week before the survey was not included in those rounds.

Click a topic below to view programming code.

DCL 1 ESR_VARIABLES(5),
      5 ABSENT,
      5 ANYWK,
      5 DO4WKS,
      5 DOING,
      5 EMPLOY,
      5 EMPTYP,
      5 ESR,
      5 ESRC,
      5 HRSWK,
      5 INDTYP,
      5 LOOK,
      5 MILITARY,
      5 NEWJOB,
      5 OCCTYP,
      5 WEEKS,
      5 WEIGHT,
      5 WHYNOT,
      5 WHYOFF;

DOING(1)=R(434.);
         IF R(434.)<1 ! R(434.)>7 THEN DOING(1)=NA;
         ANYWK(1)=R(435.);
         IF R(435.)<0 ! R(435.)>1 THEN ANYWK(1)=NA;
         HRSWK(1)=R(436.);
         IF R(436.)<1 ! R(436.)>96 THEN HRSWK(1)=NA;
         IF R(444.)>0 THEN HRSWK(1)=R(444.);
         IF R(450.)>0 THEN HRSWK(1)=R(450.);
         HRANGE(1)=R(437.);
         IF R(437.)<1 ! R(437.)>3 THEN HRANGE(1)=NA;
         HRS35(1)=R(438.);
         IF R(438.)<0 ! R(438.)>1 THEN HRS35(1)=NA;
         REAS35(1)=R(439.);
         IF R(439.)<1 ! R(439.)>19 THEN REAS35(1)=NA;
         IF R(440.)>0 THEN REAS35(1)=R(440.);
         IF R(445.)=1 THEN HRANGE(1)=R(445.);
         IF R(446.)>0 THEN REAS35(1)=R(446.);
         OFFWORK(1)=R(441.);
         IF R(441.)<0 ! R(441.)>1 THEN OFFWORK(1)=NA;
         OTIME(1)=R(447.);
         IF R(447.)<0 ! R(447.)>1 THEN OTIME(1)=NA;
         ABSENT(1)=R(452.);
         IF R(452.)<0 ! R(452.)>1 THEN ABSENT(1)=NA;
         WHYOFF(1)=R(453.);
         IF R(453.)<1 R(453.)>9 THEN WHYOFF(1)=NA;
         SALARY(1)=R(459.);
         IF R(459.)<0 ! R(459.)>3 THEN SALARY(1)=NA;
         WORK35(1)=R(460.);
         IF R(460.)<0 ! R(460.)>1 THEN WORK35(1)=NA;
         LOOK(1)=R(511.);
         IF R(511.)<0 ! R(511.)>1 THEN LOOK(1)=NA;
         DO4WKS(1)=R(512.);
         WHYLK(1)=R(517.);
         IF R(517.)<1 ! R(517.)>11 THEN WHYLK(1)=NA;
         WEEKS(1)=R(457.);
         IF R(457.)<1 ! R(457.)>96 THEN WEEKS(1)=NA;
         IF R(519.)>0 THEN WEEKS(1)=R(519.);
         IF R(523.)>0 THEN WEEKS(1)=R(523.);
         WKTIME(1)=R(458.);
         IF R(458.)<1 ! R(458.)>2 THEN WKTIME(1)=NA;
         IF R(520.)>0 THEN WKTIME(1)=R(520.);
         IF R(524.)>0 THEN WKTIME(1)=R(524.);
         WHYNOT(1)=R(522.);
         IF R(522.)<1 ! R(522.)>5 THEN WHYNOT(1)=NA;
         IF R(521.)=0 THEN WHYNOT(1)=R(521.);
         IF R(525.)=0 THEN WHYNOT(1)=R(525.);
         IF R(526.)>0 THEN WHYNOT(1)=R(526.);
         INDTYP(1)=R(463.);
         IF R(463.)<0 ! R(463.)>998 THEN INDTYP(1)=NA;
         EMPTYP(1)=R(468.);
         IF R(468.)<0 ! R(468.)>4 THEN EMPTYP(1)=NA;
         OCCTYP(1)=R(464.);
         IF R(464.)<0 ! R(464.)>994 THEN OCCTYP(1)=NA;
         IF R(512.)>0 ! R(513.)>0 ! R(514.)>0 ! 
            R(515.)>0 ! R(516.)>0 THEN DO;
         IF R(512.)>1 ! R(513.)>1 ! R(514.)>1 ! 
            R(515.)>1 ! R(516.)>1 THEN DO;
         DO I=512. TO 516.;
            IF R(I)=1 THEN R(I)=-3;
            END;
            IF DO4WKS(1)<2 THEN DO4WKS(1)=10;
            END;
            IF (R(512.)=1 ! R(513.)=1 ! R(514.)=1 ! R(515.)=1 ! R(516.)=1) &
               DO4WKS(1)^=1 THEN DO4WKS(1)=1;
         END;
         ELSE DO4WKS(1)=NA;
         IF INDTYP(1)^=NA ! EMPTYP(1)^=NA ! OCCTYP(1)^=NA THEN EMPLOY(1)=1;
         ELSE EMPLOY(1)=0;
         IF R(433.)=1 THEN MILITARY(1)=1;
         ELSE MILITARY(1)=NA;
         WEIGHT(1)=R(2161.);

DOING(2)=R(2604.);
         IF R(2604.)<1 ! R(2604.)>7 THEN DOING(2)=NA;
         ANYWK(2)=R(2605.);
         IF R(2605.)<0 ! R(2605.)>1 THEN ANYWK(2)=NA;
         HRSWK(2)=R(2606.);
         IF R(2606.)<1 ! R(2606.)>96 THEN HRSWK(2)=NA;
         IF R(2614.)>0 THEN HRSWK(2)=R(2614.);
         IF R(2620.)>0 THEN HRSWK(2)=R(2640.);
         HRANGE(2)=R(2607.);
         IF R(2607.)<1 ! R(2607.)>3 THEN HRANGE(2)=NA;
         HRS35(2)=R(2608.);
         IF R(2608.)<0 ! R(2608.)>1 THEN HRS35(2)=NA;
         REAS35(2)=R(2609.);
         IF R(2609.)<1 ! R(2609.)>19 THEN REAS35(2)=NA;
         IF R(2610.)>0 THEN REAS(2)=R(2610.);
         IF R(2615.)=1 THEN HRANGE(2)=R(2615.);
         IF R(2616.)>0 THEN REAS35(2)=R(2616.);
         OFFWRK(2)=R(2611.);
         IF R(2611.)<0 ! R(2611.)>1 THEN OFFWRK(2)=NA;
         OTIME(2)=R(2617.);
         IF R(2617.)<0 ! R(2617.)>1 THEN OTIME(2)=NA;
         ABSENT(2)=R(2622.);
         IF R(2622.)<0 ! R(2622.)>1 THEN ABSENT(2)=NA;
         WHYOFF(2)=R(2623.);
         IF R(2623.)<1 ! R(2623.)>9 THEN WHYOFF(2)=NA;
         SALARY(2)=R(2629.);
         IF R(2629.)<0 ! R(2629.)>3 THEN SALARY(2)=NA;
         WORK35(2)=R(2630.);
         IF R(2630.)<0 ! R(2630.)>1 THEN WORK35(2)=NA;
         LOOK(2)=R(2681.);
         IF R(2681.)<0 ! R(2681.)>1 THEN LOOK(2)=NA;
         DO4WKS(2)=NA;
         IF R(2682.)=1 THEN DO4WKS(2)=1;
         ELSE IF R(2683.)>0 THEN DO4WKS(2)=2;
         ELSE IF R(2684.)>0 THEN DO4WKS(2)=3;
         ELSE IF R(2685.)>0 THEN DO4WKS(2)=4;
         ELSE IF R(2686.)>0 THEN DO4WKS(2)=5;
         ELSE IF R(2687.)>0 THEN DO4WKS(2)=6;
         ELSE IF R(2688.)>0 THEN DO4WKS(2)=7;
         ELSE IF R(2689.)>0 THEN DO4WKS(2)=8;
         ELSE IF R(2690.)>0 THEN DO4WKS(2)=9;
         WHYLK(2)=R(2691.);
         IF R(2691.)<1 ! R(2691.)>11 THEN WHYLK(2)=NA;
         WEEKS(2)=R(2627.);
         IF R(2627.)<1 ! R(2627.)>96 THEN WEEKS(2)=NA;
         IF R(2693.)>0 THEN WEEKS(2)=R(2693.);
         IF R(2697.)>0 THEN WEEKS(2)=R(2697.);
         WKTIME(2)=R(2628.);
         IF R(2628.)<1 ! R(2628.)>2 THEN WKTIME(2)=NA;
         IF R(2694.)>0 THEN WKTIME(2)=R(2694.);
         IF R(2698.)>0 THEN WKTIME(2)=R(2698.);
         WHYNOT(2)=R(2696.);
         IF R(2696.)<1 ! R(2696.)>5 THEN WHYNOT(2)=NA;
         IF R(2695.)=0 THEN WHYNOT(2)=R(2695.);
         IF R(2699.)=0 THEN WHYNOT(2)=R(2699.);
         IF R(2700.)>0 THEN WHYNOT(2)=R(2700.);
         INDTYP(2)=R(2633.);
         IF R(2633.)<0 ! R(2633.)>998 THEN INDTYP(2)=NA;
         EMPTYP(2)=R(2635.);
         IF R(2635.)<0 ! R(2635.)>4 THEN EMPTYP(2)=NA;
         OCCTYP(2)=R(2634.);
         IF R(2634.)<0 ! R(2634.)>994 THEN OCCTYP(2)=NA;
         IF R(2682.)>0 ! R(2683.)>0 ! R(2684.)>0 ! R(2685.)>0 ! R(2686.)>0 !
            R(2687.)>0 ! R(2688.)>0 ! R(2689.)>0 ! R(2690.)>0 THEN DO;
            IF R(2682.)>1 ! R(2683.)>1 ! R(2684.)>1 ! 
               R(2685.)>1 ! R(2686.)>1 !
               R(2687.)>1 ! R(2688.)>1 ! R(2689.)>1 ! R(2690.)>1 THEN DO;
               IF R(2682.)=1 THEN R(2682.)=-3;
               IF DO4WKS(2)<2 THEN DO4WKS(2)=10;
            END;
            IF R(2682.)=1 & DO4WKS(2)^=1 THEN DO4WKS(2)=1;
         END;
         ELSE DO4WKS(2)=NA;
         IF INDTYP(2)^=NA ! EMPTYP(2)^=NA ! OCCTYP(2)^=NA THEN EMPLOY(2)=1;
         ELSE EMPLOY(2)=0;
         IF R(2624.)<1 ! R(2624.)>2 THEN NEWJOB(2)=NA;
         ELSE NEWJOB(2)=R(2624.);
         WEIGHT(2)=R(4052.);
         IF R(2603.)=1 THEN MILITARY(2)=1;
         ELSE MILITARY(2)=NA;

		 IF R(4434.)<1 THEN DOING(3)=NA;
         ELSE DOING(3)=R(4434.);
         IF R(4435.)<0 THEN ANYWK(3)=NA;
         ELSE ANYWK(3)=R(4435.);
         IF R(4436.)<1 THEN HRSWK(3)=NA;
         ELSE HRSWK(3)=R(4436.);
         IF R(4444.)>0 THEN HRSWK(3)=R(4444.);
         IF R(4450.)>0 THEN HRSWK(3)=R(4450.);
         IF R(4452.)<0 THEN ABSENT(3)=NA;
         ELSE ABSENT(3)=R(4452.);
         IF R(4453.)<1 THEN WHYOFF(3)=NA;
         ELSE WHYOFF(3)=R(4453.);
         IF R(4495.)<0 THEN LOOK(3)=NA;
         ELSE LOOK(3)=R(4495.);
         DO4WKS(3)=NA;
         IF R(4496.)=1 THEN DO4WKS(3)=1;
         IF R(4497.)>0 ! R(4498.)>0 ! R(4499.)>0 ! R(4500.)>0 ! R(4501.)>0 !
            R(4502.)>0 ! R(4503.)>0 ! R(4504.)>0 THEN DO4WKS(3)=2;
         IF R(4457.)<1 THEN WEEKS(3)=NA;
         ELSE WEEKS(3)=R(4457.);
         IF R(4507.)>0 THEN WEEKS(3)=R(4507.);
         IF R(4511.)>0 THEN WEEKS(3)=R(4511.);
         IF R(4510.)<1 THEN WHYNOT(3)=NA;
         ELSE WHYNOT(3)=R(4510.);
         IF R(4509.)=0 ! R(4513.)=0 THEN WHYNOT(3)=0;
         IF R(4514.)>0 THEN WHYNOT(3)=R(4514.);
         IF R(4463.)<0 ! R(4463.)>998 THEN INDTYP(3)=NA;
         ELSE INDTYP(3)=R(4463.);
         IF R(4464.)<0 ! R(4464.)>994 THEN OCCTYP(3)=NA;
         ELSE OCCTYP(3)=R(4464.);
         IF R(4466.)<0 THEN EMPTYP(3)=NA;
         ELSE EMPTY(3)=R(4466.);
         IF R(4454.)<1 ! R(4454.)>2 THEN NEWJOB(3)=NA;
         ELSE NEWJOB(3)=R(4454.);
         IF INDTYP(3)^=NA ! OCCTYP(3)^=NA ! EMPTYP(3)^=NA THEN EMPLOY(3)=1;
         ELSE EMPLOY(3)=0;
         WEIGHT(3)=R(6146.);
         IF R(4433.)=1 THEN MILITARY(3)=1;
         ELSE MILITARY(3)=NA;

		 IF R(6935.)<1 THEN DOING(4)=NA;
         ELSE DOING(4)=R(6935.);
         IF R(6936.)<0 THEN ANYWK(4)=NA;
         ELSE ANYWK(4)=R(6936.);
         IF R(6937.)<1 THEN HRSWK(4)=NA;
         ELSE HRSWK(4)=R(6937.);
         IF R(6945.)>0 THEN HRSWK(4)=R(6945.);
         IF R(6951.)>0 THEN HRSWK(4)=R(6951.);
         IF R(6953.)<0 THEN ABSENT(4)=NA;
         ELSE ABSENT(4)=R(6953.);
         IF R(6954.)<1 THEN WHYOFF(4)=NA;
         ELSE WHYOFF(4)=R(6954.);
         IF R(6963.)<0 THEN LOOK(4)=NA;
         ELSE LOOK(4)=R(6963.);
         DO4WKS(4)=NA;
         IF R(6964.)=1 THEN DO4WKS(4)=1;
         IF R(6965.)>0 ! R(6966.)>0 ! R(6967.)>0 ! R(6968.)>0 ! R(6969.)>0 !
            R(6970.)>0 ! R(6971.)>0 ! R(6972.)>0 THEN DO4WKS(4)=2;
         IF R(6958.)<1 THEN WEEKS(4)=NA;
         ELSE WEEKS(4)=R(6958.);
         IF R(6975.)>0 THEN WEEKS(4)=R(6975.);
         IF R(6979.)>0 THEN WEEKS(4)=R(6979.);
         IF R(6978.)<1 THEN WHYNOT(4)=NA;
         ELSE WHYNOT(4)=R(6978.);
         IF R(6977.)=0 ! R(6981.)=0 THEN WHYNOT(4)=0;
         IF R(6982.)>0 THEN WHYNOT(4)=R(6982.);
         IF R(7020.)<0 ! R(7020.)>998 THEN INDTYP(4)=NA;
         ELSE INDTYP(4)=R(7020.);
         IF R(7021.)<0 ! R(7021.)>994 THEN OCCTYP(4)=NA;
         ELSE OCCTYP(4)=R(7021.);
         IF R(7023.)<0 THEN EMPTYP(4)=NA;
         ELSE EMPTYP(4)=R(7023.);
         IF R(6955.)<1 ! R(6955.)>2 THEN NEWJOB(4)=NA;
         ELSE NEWJOB(4)=R(6955.);
         IF (INDTYP(4)^=NA ! OCCTYP(4)^=NA ! EMPTYP(4)^=NA) & R(6983.)^=1 &
            R(7009.)^=1 THEN EMPLOY(4)=1;
         ELSE EMPLOY(4)=0;
         WEIGHT(4)=R(8967.);
         IF R(6934.)=1 THEN MILITARY(4)=1;
         ELSE MILITARY(4)=NA;

		 IF R(9365.)<1 THEN DOING(5)=NA;
         ELSE DOING(5)=R(9365.);
         IF R(9366.)<0 THEN ANYWK(5)=NA;
         ELSE ANYWK(5)=R(9366.);
         IF R(9367.)<1 THEN HRSWK(5)=NA;
         ELSE HRSWK(5)=R(9367.);
         IF R(9375.)>0 THEN HRSWK(5)=R(9375.);
         IF R(9381.)>0 THEN HRSWK(5)=R(9381.);
         IF R(9383.)<0 THEN ABSENT(5)=NA;
         ELSE ABSENT(5)=R(9383.);
         IF R(9384.)<1 THEN WHYOFF(5)=NA;
         ELSE WHYOFF(5)=R(9384.);
         IF R(9393.)<0 THEN LOOK(5)=NA;
         ELSE LOOK(5)=R(9393.);
         DO4WKS(5)=NA;
         IF R(9394.)=1 THEN DO4WKS(5)=1;
         IF R(9395.)>0 ! R(9396.)>0 ! R(9397.)>0 ! R(9398.)>0 ! R(9399.)>0 !
            R(9400.)>0 ! R(9401.)>0 ! R(9402.)>0 THEN DO4WKS(5)=2;
         IF R(9388.)<1 THEN WEEKS(5)=NA;
         ELSE WEEKS(5)=R(9388.);
         IF R(9405.)>0 THEN WEEKS(5)=R(9405.);
         IF R(9408.)>0 THEN WEEKS(5)=R(9408.);
         IF R(9407.)=0 ! R(9410.)=0 THEN WHYNOT(5)=0;
         IF R(9411.)>0 THEN WHYNOT(5)=R(9411.);
         IF R(9449.)<0 ! R(9449.)>998 THEN INDTYP(5)=NA;
         ELSE INDTYP(5)=R(9449.);
         IF R(9450.)<0 ! R(9450.)>994 THEN OCCTYP(5)=NA;
         ELSE OCCTYP(5)=R(9450.);
         IF R(9454.)<0 THEN EMPTYP(5)=NA;
         ELSE EMPTYP(5)=R(9454.);
         IF R(9385.)<1 ! R(9385.)>2 THEN NEWJOB(5)=NA;
         ELSE NEWJOB(5)=R(9385.);
         IF (INDTYP(5)^=NA ! OCCTYP(5)^=NA ! EMPTYP(5)^=NA) & R(9412.)^=1 &
            R(9439.)^=1 THEN EMPLOY(5)=1;
         ELSE EMPLOY(5)=0;
         WEIGHT(5)=R(11444.);
         IF R(9364.)=1 THEN MILITARY(5)=1;
         ELSE MILITARY(5)=NA;
         DO I=1 TO 5;
            IF MILITARY(I)=1 THEN DO;
               ESR(I)=8;
               GO TO FIN;
            END;
            IF I=1 & R(1.)=6435 THEN DO;
               ESR(1)=-3;
               GO TO FIN;
            END;
            IF WEIGHT(I)=0 THEN DO;
               ESR(I)=-5;
               GO TO FIN;
            END;
            ESR(I)=7;
            IF DOING(I)^=1 THEN GO TO P6;
            IF HRSWK(I)=NA THEN GO TO P4;
            IF HRSWK(I)>=15 ! EMPTYP(I)^=4 THEN ESR(I)=1;
            GO TO P20000;
            P4: IF EMPLOY(I)=1 THEN ESR(I)=1;
            GO TO P20000;
            P6: ESR(I)=1;
            IF ANYWK(I)^=1 THEN GO TO P11;
            IF HRSWK(I)=NA THEN GO TO P9;
            IF HRSWK(I)<15 & EMPTYP(I)=4 THEN GO TO P61;
            GO TO P62;
            P9: IF EMPLOY(I)=0 THEN GO TO P61;
            GO TO P62;
            P11: IF HRSWK(I)=NA THEN GO TO P15;
            IF EMPLOY(I)=0 THEN GO TO P61;
            IF HRSWK(I)<15 & EMPTYP(I)=4 THEN GO TO P61;
            GO TO P62;
            P15: ESR(I)=7;
            IF DOING(I)=2 THEN GO TO ESR237;
            IF DOING(I)=3 THEN GO TO P21;
            GO TO P37;
            P21: IF ABSENT(I)^=1 THEN GO TO P27;
            GO TO ESR237;
            P27: IF WHYOFF(I)=NA THEN GO TO P32;
            IF WHYOFF(I)=6 ! WHYOFF(I)=7 THEN GO TO P29;
            IF EMPLOY(I)^=0 & EMPTYP(I)^=4 THEN ESR(I)=2;
            GO TO P20000;
            P29: IF WHYNOT(I)<3 THEN ESR(I)=3;
            GO TO P20000;
            P32: IF DO4WKS(I)=1 THEN GO TO P20000;
            IF WHYNOT(I)>2 THEN GO TO P20000;
            IF WEEKS(I)=NA THEN GO TO P33;
            ESR(I)=3;
            GO TO P20000;
            P33: IF DO4WKS(I)>1 ! WHYNOT(I)^=NA THEN ESR(I)=3;
            GO TO P20000;
            P37: ESR(I)=2;
            IF ABSENT(I)^=1 THEN GO TO P43;
            IF WHYOFF(I)=NA THEN GO TO P41;
            IF WHYOFF(I)=6 ! WHYOFF(I)=7 THEN GO TO P39;
            IF EMPTYP(I)=4 THEN GO TO P61;
            GO TO P62;
            P39: IF WHYNOT(I)>2 THEN GO TO P61;
            ESR(I)=3;
            GO TO P62;
            P41: IF EMPLOY(I)=0 ! EMPTYP(I)=4 THEN GO TO P61;
            GO TO P62;
            P43: IF WHYOFF(I)=NA THEN GO TO P48;
            IF WHYOFF(I)=6 ! WHYOFF(I)=7 THEN GO TO P45;
            IF EMPLOY(I)=0 ! EMPTYP(I)=4 THEN GO TO P61;
            GO TO P62;
            P45: IF WEEKS(I)=NA & WHYNOT(I)=NA THEN GO TO P61;
            IF WHYNOT(I)>2 THEN GO TO P61;
            ESR(I)=3;
            GO TO P62;
            P48: ESR(I)=3;
            IF LOOK(I)^=1 THEN GO TO P53;
            IF DO4WKS(I)=1 THEN GO TO P61;
            IF WHYNOT(I)>2 THEN GO TO P61;
            IF DO4WKS(I)^=NA  ! WEEKS(I)^=NA THEN GO TO P62;
            IF WHYNOT(I)=NA THEN GO TO P61;
            GO TO P62;
            P53: IF DO4WKS(I)=1 THEN GO TO P61;
            IF WHYNOT(I)>2 THEN GO TO P61;
            IF DO4WKS(I)=NA THEN GO TO P56;
            IF WEEKS(I)^=NA ! WHYNOT(I)^=NA THEN GO TO P62;
            GO TO P61;
            P56: IF WEEKS(I)=NA ! WHYNOT(I)=NA THEN GO TO P61;
            GO TO P62;
            P61: IF DOING(I)<4 ! DOING(I)>6 THEN GO TO P610;
            ESR(I)=DOING(I);
            GO TO P20000;
            P610: ESR(I)=7;
            GO TO P20000;
            P62: IF DOING(I)=6 THEN DOING(I)=7;
            P20000: GO TO FIN;
            ESR237: IF WHYOFF(I)=NA THEN GO TO P5019;
            IF WHYOFF(I)=6 ! WHYOFF(I)=7 THEN GO TO P5017;
            IF EMPTYP(I)^=-4 THEN ESR(I)=2;
            GO TO FIN;
            P5017: IF WHYNOT(I)>2 THEN GO TO FIN;
            ESR(I)=3;
            GO TO FIN;
            P5019: IF EMPLOY(I)=1 & EMPTYP(I)^=4 THEN ESR(I)=2;
            FIN:;

IF ESR(I)=-5 THEN ESRC(I)=-5;
 ELSE IF ESR(I)=1 | ESR(I)=2 THEN ESRC(I)=1;
 ELSE IF ESR(I)=3 THEN ESRC(I)=2;
 ELSE IF ESR(I)>=4 & ESR(I)<=7 THEN ESRC(I)=3;
 ELSE IF ESR(I)=8 THEN ESRC(I)=4;
 ELSE ESRC(I)=ESR(I);
END;
         R(2149.)=ESR(1);
         R(4063.)=ESR(2);
         R(6188.)=ESR(3);
         R(8985.)=ESR(4);
         R(11447.)=ESR(5);
         R(2149.01)=ESRC(1);
         R(4063.01)=ESRC(2);
         R(6188.01)=ESRC(3);
         R(8985.01)=ESRC(4);
         R(11447.01)=ESRC(5);

		5 ABSENT,
        5 ANYWK,
        5 DO4WKS,
        5 DOING,
        5 EMPLOY,
        5 EMPTYP,
        5 ESR,
        5 ESRC,
        5 HRSWK,
        5 INDTYP,
        5 LOOK,
        5 MILITARY,
        5 NEWJOB,
        5 OCCTYP,
        5 WEEKS,
        5 WEIGHT,
        5 WHYNOT,
        5 WHYOFF;

ESR84=-4;
         IF R(12468.)<1 THEN DOING(6)=NA;
         ELSE DOING(6)=R(12468.);
         IF R(12469.)<0 THEN ANYWK(6)=NA;
         ELSE ANYWK(6)=R(12469.);
         IF R(12470.)<1 THEN HRSWK(6)=NA;
         ELSE HRSWK(6)=R(12470.);
         IF R(12478.)>0 THEN HRSWK(6)=R(12478.);
         IF R(12484.)>0 THEN HRSWK(6)=R(12484.);
         IF R(12486.)<0 THEN ABSENT(6)=NA;
         ELSE ABSENT(6)=R(12486.);
         IF R(12487.)<1 THEN WHYOFF(6)=NA;
         ELSE WHYOFF(6)=R(12487.);
         IF R(12496.)<0 THEN LOOK(6)=NA;
         ELSE LOOK(6)=R(12496.);
         DO4WKS(6)=NA;
         IF R(12497.)=1 THEN DO4WKS(6)=1;
         IF R(12498.)>0 ! R(12499.)>0 ! R(12500.)>0 ! R(12501.)>0 !
             R(12502.)>0 ! R(12503.)>0 ! R(12504.)>0 ! R(12505.)>0
            THEN DO4WKS(6)=2;
         IF R(12491.)<1 THEN WEEKS(6)=NA;
         ELSE WEEKS(6)=R(12491.);
         IF R(12508.)>0 THEN WEEKS(6)=R(12508.);
         IF R(12512.)>0 THEN WEEKS(6)=R(12512.);
         IF R(12510.)=0 ! R(12514.)=0 THEN WHYNOT(6)=0;
         IF R(12515.)>0 THEN WHYNOT(6)=R(12515.);
         IF R(12553.)<0 ! R(12553.)>998 THEN INDTYP(6)=NA;
         ELSE INDTYP(6)=R(12553.);
         IF R(12554.)<0 ! R(12554.)>994 THEN OCCTYP(6)=NA;
         ELSE OCCTYP(6)=R(12554.);
         IF R(12558.)<0 THEN EMPTYP(6)=NA;
         ELSE EMPTYP(6)=R(12558.);
         IF R(12488.)<1 ! R(12488.)>2 THEN NEWJOB(6)=NA;
         ELSE NEWJOB(6)=R(12488.);
         IF (INDTYP(6)^=NA ! OCCTYP(6)^=NA ! EMPTYP(6)^=NA) & R(12516.)^=1 &
            R(12543.)^=1 THEN EMPLOY(6)=1;
         ELSE EMPLOY(6)=0;
         WEIGHT(6)=R(15196.);
         IF R(12467.)=1 THEN MILITARY(6)=1;
         ELSE MILITARY(6)=NA;

		 IF R(16420.)<1 THEN DOING(7)=NA;
         ELSE DOING(7)=R(16420.);
         IF R(16421.)<0 THEN ANYWK(7)=NA;
         ELSE ANYWK(7)=R(16421.);
         IF R(16422.)<1 THEN HRSWK(7)=NA;
         ELSE HRSWK(7)=R(16422.);
         IF R(16430.)>0 THEN HRSWK(7)=R(16430.);
         IF R(16436.)>0 THEN HRSWK(7)=R(16436.);
         IF R(16438.)<0 THEN ABSENT(7)=NA;
         ELSE ABSENT(7)=R(16438.);
         IF R(16439.)<1 THEN WHYOFF(7)=NA;
         ELSE WHYOFF(7)=R(16439.);
         IF R(16448.)<0 THEN LOOK(7)=NA;
         ELSE LOOK(7)=R(16448.);
         DO4WKS(7)=NA;
         IF R(16449.)=1 THEN DO4WKS(7)=1;
         IF R(16450.)>0 ! R(16451.)>0 ! R(16452.)>0 ! R(16453.)>0 !
            R(16454.)>0 ! R(16455.)>0 ! R(16456.)>0 ! R(16457.)>0
            THEN DO4WKS(7)=2;
         IF R(16443.)<1 THEN WEEKS(7)=NA;
         ELSE WEEKS(7)=R(16443.);
         IF R(16460.)>0 THEN WEEKS(7)=R(16460.);
         IF R(16464.)>0 THEN WEEKS(7)=R(16464.);
         IF R(16462.)=0 ! R(16466.)=0 THEN WHYNOT(7)=0;
         IF R(16467.)>0 THEN WHYNOT(7)=R(16467.);
         IF R(16501.)<0 ! R(16501.)>998 THEN INDTYP(7)=NA;
         ELSE INDTYP(7)=R(16501.);
         IF R(16502.)<0 ! R(16502.)>994 THEN OCCTYP(7)=NA;
         ELSE OCCTYP(7)=R(16502.);
         IF R(16506.)<0 THEN EMPTYP(7)=NA;
         ELSE EMPTYP(7)=R(16506.);
         IF R(16440.)<1 ! R(16440.)>2 THEN NEWJOB(7)=NA;
         ELSE NEWJOB(7)=R(16440.);
         IF (INDTYP(7)^=NA ! OCCTYP(7)^=NA ! EMPTYP(7)^=NA) & R(16468.)^=1 &
            R(16493.)^=1 THEN EMPLOY(7)=1;
         ELSE EMPLOY(7)=0;
         WEIGHT(7)=R(18902.);
         IF R(16419.)=1 THEN MILITARY(7)=1;
         ELSE MILITARY(7)=NA;

		 IF R(19146.)<1 THEN DOING(8)=NA;
         ELSE DOING(8)=R(19146.);
         IF R(19147.)<0 THEN ANYWK(8)=NA;
         ELSE ANYWK(8)=R(19147.);
         IF R(19148.)<1 THEN HRSWK(8)=NA;
         ELSE HRSWK(8)=R(19148.);
         IF R(19156.)>0 THEN HRSWK(8)=R(19156.);
         IF R(19162.)>0 THEN HRSWK(8)=R(19162.);
         IF R(19164.)<0 THEN ABSENT(8)=NA;
         ELSE ABSENT(8)=R(19164.);
         IF R(19165.)<1 THEN WHYOFF(8)=NA;
         ELSE WHYOFF(8)=R(19165.);
         IF R(19174.)<0 THEN LOOK(8)=NA;
         ELSE LOOK(8)=R(19174.);
         DO4WKS(8)=NA;
         IF R(19175.)=1 THEN DO4WKS(8)=1;
         IF R(19176.)>0 ! R(19177.)>0 ! R(19178.)>0 ! R(19179.)>0 !
            R(19180.)>0 ! R(19181.)>0 ! R(19182.)>0 ! R(19183.)>0
            THEN DO4WKS(8)=2;
         IF R(19169.)<1 THEN WEEKS(8)=NA;
         ELSE WEEKS(8)=R(19169.);
         IF R(19186.)>0 THEN WEEKS(8)=R(19186.);
         IF R(19190.)>0 THEN WEEKS(8)=R(19190.);
         IF R(19188.)=0 ! R(19192.)=0 THEN WHYNOT(8)=0;
         IF R(19193.)>0 THEN WHYNOT(8)=R(19193.);
         IF R(19227.)<0 ! R(19227.)>998 THEN INDTYP(8)=NA;
         ELSE INDTYP(8)=R(19227.);
         IF R(19228.)<0 ! R(19228.)>994 THEN OCCTYP(8)=NA;
         ELSE OCCTYP(8)=R(19228.);
         IF R(19232.)<0 THEN EMPTYP(8)=NA;
         ELSE EMPTYP(8)=R(19232.);
         IF R(19166.)<1 ! R(19166.)>2 THEN NEWJOB(8)=NA;
         ELSE NEWJOB(8)=R(19166.);
         IF (INDTYP(8)^=NA ! OCCTYP(8)^=NA ! EMPTYP(8)^=NA) & R(19194.)^=1 &
            R(19219.)^=1 THEN EMPLOY(8)=1;
         ELSE EMPLOY(8)=0;
         WEIGHT(8)=R(22573.);
         MILCUR=R(19115.);
         IF R(19141.)>=0 THEN MILCUR=R(19141.);
         IF MILCUR=1 THEN MILITARY(8)=1;
         ELSE MILTARY(8)=NA;

		 IF R(23107.)<1 THEN DOING(9)=NA;
         ELSE DOING(9)=R(23107.);
         IF R(23108.)<0 THEN ANYWK(9)=NA;
         ELSE ANYWK(9)=R(23108.);
         IF R(23109.)<1 THEN HRSWK(9)=NA;
         ELSE HRSWK(9)=R(23109.);
         IF R(23117.)>0 THEN HRSWK(9)=R(23117.);
         IF R(23123.)>0 THEN HRSWK(9)=R(23123.);
         IF R(23125.)<0 THEN ABSENT(9)=NA;
         ELSE ABSENT(9)=R(23125.);
         IF R(23126.)<1 THEN WHYOFF(9)=NA;
         ELSE WHYOFF(9)=R(23126.);
         IF R(23135.)<0 THEN LOOK(9)=NA;
         ELSE LOOK(9)=R(23135.);
         DO4WKS(9)=NA;
         IF R(23136.)=1 THEN DO4WKS(9)=1;
         IF R(23137.)>0 ! R(23138.)>0 ! R(23139.)>0 ! R(23140.)>0 !
            R(23141.)>0 ! R(23142.)>0 ! R(23143.)>0 ! R(23144.)>0
            THEN DO4WKS(9)=2;
         IF R(23130.)<1 THEN WEEKS(9)=NA;
         ELSE WEEKS(9)=R(23130.);
         IF R(23147.)>0 THEN WEEKS(9)=R(23147.);
         IF R(23151.)>0 THEN WEEKS(9)=R(23151.);
         IF R(23149.)=0 ! R(23153.)=0 THEN WHYNOT(9)=0;
         ELSE IF R(23154.)>0 THEN WHYNOT(9) =R(23154.);
         ELSE IF R(23150.)>0 THEN WHYNOT(9)=R(23150.);
         ELSE WHYNOT(9)=NA;
         IF R(23175.)<0 ! R(23175.)>998 THEN INDTYP(9)=NA;
         ELSE INDTYP(9)=R(23175.);
         IF R(23176.)<0 ! R(23176.)>994 THEN OCCTYP(9)=NA;
         ELSE OCCTYP(9)=R(23176.);
         IF R(23180.)<0 THEN EMPTYP(9)=NA;
         ELSE EMPTYP(9)=R(23180.);
         IF R(23127.)<1 ! R(23127.)>2 THEN NEWJOB(9)=NA;
         ELSE NEWJOB(9)=R(23127.);
         IF (INDTYP(9)^=NA ! OCCTYP(9)^=NA ! EMPTYP(9)^=NA) & R(23155.)^=1 &
            R(23174.)^=1 THEN EMPLOY(9)=1;
         ELSE EMPLOY(9)=0;
                       WEIGHT(9)=R(24445.);
         MILCUR=R(23075.);
         IF R(23102.)>=0 THEN MILCUR=R(23102.);
         IF MILCUR=1 THEN MILITARY(9)=1;
         ELSE MILITARY(9)=NA;

		 IF R(25186.)<1 THEN DOING(10)=NA;
         ELSE DOING(10)=R(25186.);
         IF R(25187.)<0 THEN ANYWK(10)=NA;
         ELSE ANYWK(10)=R(25187.);
         IF R(25188.)<1 THEN HRSWK(10)=NA;
         ELSE HRSWK(10)=R(25188.);
         IF R(25196.)>0 THEN HRSWK(10)=R(25196.);
         IF R(25202.)>0 THEN HRSWK(10)=R(25202.);
         IF R(25204.)<0 THEN ABSENT(10)=NA;
         ELSE ABSENT(10)=R(25204.);
         IF R(25205.)<1 THEN WHYOFF(10)=NA;
         ELSE WHYOFF(10)=R(25205.);
         IF R(25214.)<0 THEN LOOK(10)=NA;
         ELSE LOOK(10)=R(25214.);
         DO4WKS(10)=NA;
         IF R(25215.)=1 THEN DO4WKS(10)=1;
         IF R(25216.)>0 ! R(25217.)>0 ! R(25218.)>0 ! R(25219.)>0 !
            R(25220.)>0 ! R(25221.)>0 ! R(25222.)A>0 ! R(25223.)>0
            THEN DO4WKS(10)=2;
         IF R(25209.)<1 THEN WEEKS(10)=NA;
         ELSE WEEKS(10)=R(25209.);
         IF R(25226.)>0 THEN WEEKS(10)=R(25226.);
         IF R(25230.)>0 THEN WEEKS(10)=R(25230.);
         IF R(25228.)=0 ! R(25232.)=0 THEN WHYNOT(10)=0;
         ELSE IF R(25233.)>0 THEN WHYNOT(10)=R(25233.);
         ELSE IF R(25229.)>0 THEN WHYNOT(10)=R(25229.);
         ELSE WHYNOT(10)=NA;
         IF R(25253.)<0 ! R(25253.)>998 THEN INDTYP(10)=NA;
         ELSE INDTYP(10)=R(25253.);
         IF R(25254.)<0 ! R(25254.)>994 THEN OCCTYP(10)=NA;
         ELSE OCCTYP(10)=R(25254.);
         IF R(25258.)<0 THEN EMPTYP(10)=NA;
         ELSE EMPTYP(10)=R(25258.);
         IF R(25206.)<1 ! R(25206.)>2 THEN NEWJOB(10)=NA;
         ELSE NEWJOB(10)=R(25206.);
         IF (INDTYP(10)^=NA ! OCCTYP(10)^=NA ! EMPTYP(10)^=NA) & R(25234.)^=1
            & R(25252.)^=1 THEN EMPLOY(10)=1;
         ELSE EMPLOY(10)=0;
         WEIGHT(10)=R(28700.);
         MILCUR=R(25154.);
         IF R(25181.)>=0 THEN MILCUR=R(25181.);
         IF MILCUR=1 THEN MILITARY(10)=1;
         ELSE MILITARY(10)=NA;

		 IF R(29175.)<1 THEN DOING(11)=NA;
         ELSE DOING(11)=R(29175.);
         IF R(29176.)<0 THEN ANYWK(11)=NA;
         ELSE ANYWK(11)=R(29176.);
         IF R(29177.)<1 THEN HRSWK(11)=NA;
         ELSE HRSWK(11)=R(29177.);
         IF R(29185.)>0 THEN HRSWK(11)=R(29185.);
         IF R(29191.)>0 THEN HRSWK(11)=R(29191.);
         IF R(29193.)<0 THEN ABSENT(11)=NA;
         ELSE ABSENT(11)=R(29193.);
         IF R(29194.)<1 THEN WHYOFF(11)=NA;
         ELSE WHYOFF(11)=R(29194.);
         IF R(29203.)<0 THEN LOOK(11)=NA;
         ELSE LOOK(11)=R(29203.);
         DO4WKS(11)=NA;
         IF R(29204.)=1 THEN DO4WKS(11)=1;
         IF R(29205.)>0 ! R(29206.)>0 ! R(29207.)>0 ! R(29208.)>0 ! R(29209.)>0 !
            R(29210.)>0 ! R(29211.)>0 ! R(29212.)>0 THEN DO4WKS(11)=2;
         IF R(29198.)<1 THEN WEEKS(11)=NA;
         ELSE WEEKS(11)=R(29198.);
         IF R(29215.)>0 THEN WEEKS(11)=R(29215.);
         IF R(29219.)>0 THEN WEEKS(11)=R(29219.);
         IF R(29217.)=0 ! R(29221.)=0 THEN WHYNOT(11)=0;
         ELSE IF R(29222.)>0 THEN WHYNOT(11) =R(29222.);
         ELSE IF R(29218.)>0 THEN WHYNOT(11)=R(29218.);
         ELSE WHYNOT(11)=NA;
         IF R(29243.)<0 ! R(29243.)>998 THEN INDTYP(11)=NA;
         ELSE INDTYP(11)=R(29243.);
         IF R(29244.)<0 ! R(29244.)>994 THEN OCCTYP(11)=NA;
         ELSE OCCTYP(11)=R(29244.);
         IF R(29248.)<0 THEN EMPTYP(11)=NA;
         ELSE EMPTYP(11)=R(29248.);
         IF R(29195.)<1 ! R(29195.)>2 THEN NEWJOB(11)=NA;
         ELSE NEWJOB(11)=R(29195.);
         IF (INDTYP(11)^=NA ! OCCTYP(11)^=NA ! EMPTYP(11)^=NA) & R(29223.)^=1 &
            R(29242.)^=1 THEN EMPLOY(11)=1;
         ELSE EMPLOY(11)=0;
         WEIGHT(11)=R(30738.);
         MILCUR=R(29143.);
         IF R(29170.)>=0 THEN MILCUR=R(29170.);
         IF MILCUR=1 THEN MILITARY(11)=1;
         ELSE MILITARY(11)=NA;

		 WEIGHT(12)=R(34002.);
         IF R(31197.)<1 THEN DOING(12)=NA;
         ELSE DOING(12)=R(31197.);
         IF R(31198.)<0 THEN ANYWK(12)=NA;
         ELSE ANYWK(12)=R(31198.);
         IF R(31199.)<1 THEN HRSWK(12)=NA;
         ELSE HRSWK(12)=R(31199.);
         IF R(31207.)>0 THEN HRSWK(12)=R(31207.);
         IF R(31213.)>0 THEN HRSWK(12)=R(31213.);
         IF R(31220.)<0 THEN ABSENT(12)=NA;
         ELSE ABSENT(12)=R(31220.);
         IF R(31221.)<1 THEN WHYOFF(12)=NA;
         ELSE WHYOFF(12)=R(31221.);
         IF R(31230.)<0 THEN LOOK(12)=NA;
         ELSE LOOK(12)=R(31230.);
         DO4WKS(12)=NA;
         IF R(31231.)=1 THEN DO4WKS(12)=1;
         IF R(31232.)>0 ! R(31233.)>0 ! R(31234.)>0 ! R(31235.)>0 ! R(31236.)>0 !
            R(31237.)>0 ! R(31238.)>0 ! R(31239.)>0 THEN DO4WKS(12)=2;
         IF R(31225.)<1 THEN WEEKS(12)=NA;
         ELSE WEEKS(12)=R(31225.);
         IF R(31242.)>0 THEN WEEKS(12)=R(31242.);
         IF R(31246.)>0 THEN WEEKS(12)=R(31246.);
         IF R(31244.)=0 ! R(31248.)=0 THEN WHYNOT(12)=0;
         ELSE IF R(31249.)>0 THEN WHYNOT(12) =R(31249.);
         ELSE IF R(31245.)>0 THEN WHYNOT(12)=R(31245.);
         ELSE WHYNOT(12)=NA;
         IF R(31270.)<0 ! R(31270.)>998 THEN INDTYP(12)=NA;
         ELSE INDTYP(12)=R(31270.);
         IF R(31271.)<0 ! R(31271.)>994 THEN OCCTYP(12)=NA;
         ELSE OCCTYP(12)=R(31271.);
         IF R(31275.)<0 THEN EMPTYP(12)=NA;
         ELSE EMPTYP(12)=R(31275.);
         IF R(31222.)<1 ! R(31222.)>2 THEN NEWJOB(12)=NA;
         ELSE NEWJOB(12)=R(31222.);
         IF (INDTYP(12)^=NA ! OCCTYP(12)^=NA ! EMPTYP(12)^=NA) & R(31250.)^=1 &
            R(31271.)^=1 THEN EMPLOY(12)=1;
         ELSE EMPLOY(12)=0;
         MILCUR=R(31165.);
         IF R(31192.)>=0 THEN MILCUR=R(31192.);
         IF MILCUR=1 THEN MILITARY(12)=1;
         ELSE MILITARY(12)=NA;

		 WEIGHT(13)=R(36558.);
         IF R(35154.)<1 THEN DOING(13)=NA;
         ELSE DOING(13)=R(35154.);
         IF R(35155.)<0 THEN ANYWK(13)=NA;
         ELSE ANYWK(13)=R(35155.);
         IF R(35156.)<1 THEN HRSWK(13)=NA;
         ELSE HRSWK(13)=R(35156.);
         IF R(35164.)>0 THEN HRSWK(13)=R(35164.);
         IF R(35170.)>0 THEN HRSWK(13)=R(35170.);
         IF R(35177.)<0 THEN ABSENT(13)=NA;
         ELSE ABSENT(13)=R(35177.);
         IF R(35178.)<1 THEN WHYOFF(13)=NA;
         ELSE WHYOFF(13)=R(35178.);
         IF R(35187.)<0 THEN LOOK(13)=NA;
         ELSE LOOK(13)=R(35187.);
         DO4WKS(13)=NA;
         IF R(35188.)=1 THEN DO4WKS(13)=1;
         IF R(35189.)>0 ! R(35190.)>0 ! R(35191.)>0 ! R(35192.)>0 ! R(35193.)>0 !
            R(35194.)>0 ! R(35195.)>0 ! R(35196.)>0 THEN DO4WKS(13)=2;
         IF R(35182.)<1 THEN WEEKS(13)=NA;
         ELSE WEEKS(13)=R(35182.);
         IF R(35199.)>0 THEN WEEKS(13)=R(35199.);
         IF R(35203.)>0 THEN WEEKS(13)=R(35203.);
         IF R(35201.)=0 ! R(35205.)=0 THEN WHYNOT(13)=0;
         ELSE IF R(35206.)>0 THEN WHYNOT(13) =R(35206.);
         ELSE IF R(35202.)>0 THEN WHYNOT(13)=R(35202.);
         ELSE WHYNOT(13)=NA;
         IF R(35227.)<0 ! R(35227.)>998 THEN INDTYP(13)=NA;
         ELSE INDTYP(13)=R(35227.);
         IF R(35228.)<0 ! R(35228.)>994 THEN OCCTYP(13)=NA;
         ELSE OCCTYP(13)=R(35228.);
         IF R(35232.)<0 THEN EMPTYP(13)=NA;
         ELSE EMPTYP(13)=R(35232.);
         IF R(35179.)<1 ! R(35179.)>2 THEN NEWJOB(13)=NA;
         ELSE NEWJOB(13)=R(35179.);
         IF (INDTYP(13)^=NA ! OCCTYP(13)^=NA ! EMPTYP(13)^=NA) & R(35207.)^=1 &
            R(35228.)^=1 THEN EMPLOY(13)=1;
         ELSE EMPLOY(13)=0;
         MILCUR=R(35119.);
         IF R(35149.)>=0 THEN MILCUR=R(35149.);
         IF MILCUR=1 THEN MILITARY(13)=1;
         ELSE MILITARY(13)=NA;

		 WEIGHT(14)=R(40063.);
         IF R(37203.)<1 THEN DOING(14)=NA;
         ELSE DOING(14)=R(37203.);
         IF R(37204.)<0 THEN ANYWK(14)=NA;
         ELSE ANYWK(14)=R(37204.);
         IF R(37205.)<1 THEN HRSWK(14)=NA;
         ELSE HRSWK(14)=R(37205.);
         IF R(37213.)>0 THEN HRSWK(14)=R(37213.);
         IF R(37219.)>0 THEN HRSWK(14)=R(37219.);
         IF R(37226.)<0 THEN ABSENT(14)=NA;
         ELSE ABSENT(14)=R(37226.);
         IF R(37227.)<1 THEN WHYOFF(14)=NA;
         ELSE WHYOFF(14)=R(37227.);
         IF R(37236.)<0 THEN LOOK(14)=NA;
         ELSE LOOK(14)=R(37236.);
         DO4WKS(14)=NA;
         IF R(37237.)=1 THEN DO4WKS(14)=1;
         IF R(37238.)>0 ! R(37239.)>0 ! R(37240.)>0 ! R(37241.)>0 ! R(37242.)>0 !
            R(37243.)>0 ! R(37244.)>0 ! R(37245.)>0 THEN DO4WKS(14)=2;
         IF R(37231.)<1 THEN WEEKS(14)=NA;
         ELSE WEEKS(14)=R(37231.);
         IF R(37248.)>0 THEN WEEKS(14)=R(37248.);
         IF R(37252.)>0 THEN WEEKS(14)=R(37252.);
         IF R(37250.)=0 ! R(37254.)=0 THEN WHYNOT(14)=0;
         ELSE IF R(37255.)>0 THEN WHYNOT(14) =R(37255.);
         ELSE IF R(37251.)>0 THEN WHYNOT(14)=R(37251.);
         ELSE WHYNOT(14)=NA;
         IF R(37277.)<0 ! R(37277.)>998 THEN INDTYP(14)=NA;
         ELSE INDTYP(14)=R(37277.);
         IF R(37278.)<0 ! R(37278.)>994 THEN OCCTYP(14)=NA;
         ELSE OCCTYP(14)=R(37278.);
         IF R(37282.)<0 THEN EMPTYP(14)=NA;
         ELSE EMPTYP(14)=R(37282.);
         IF R(37228.)<1 ! R(37228.)>2 THEN NEWJOB(14)=NA;
         ELSE NEWJOB(14)=R(37228.);
         IF (INDTYP(14)^=NA ! OCCTYP(14)^=NA ! EMPTYP(14)^=NA) & R(37256.)^=1 &
            R(37278.)^=1 THEN EMPLOY(14)=1;
         ELSE EMPLOY(14)=0;
         MILCUR=R(37168.);
         IF R(37198.)>=0 THEN MILCUR=R(37198.);
         IF MILCUR=1 THEN MILITARY(14)=1;
         ELSE MILITARY(14)=NA;

/* IF KEY0002 = -4 THEN */
         WEIGHT(15)=1; /* ELSE WEIGHT(15)=0; */
         ABSENT(15)=-4;
         ANYWK(15)=-4;
         DO4WKS(15)=-4;
         DOING(15)=-4;
         EMPLOY(15)=-4;
         EMPTYP(15)=-4;
         ESR(15)=-4;
         ESRC(15)=-4;
         HRSWK(15)=-4;
         INDTYP(15)=-4;
         LOOK(15)=-4;
         MILITARY(15)=-4;
         NEWJOB(15)=-4;
         OCCTYP(15)=-4;
         WEEKS(15)=-4;
         WHYNOT(15)=-4;
         WHYOFF(15)=-4;
         IF R(41718.)<1 THEN DOING(15)=NA;
         ELSE DOING(15)=R(41718.);
         IF R(41719.)<0 THEN ANYWK(15)=NA;
         ELSE ANYWK(15)=R(41719.);
         IF R(41720.)<1 THEN HRSWK(15)=NA;
         ELSE HRSWK(15)=R(41720.);
         IF R(41727.)>0 THEN HRSWK(15)=R(41727.);
         IF R(41732.)>0 THEN HRSWK(15)=R(41732.);
         IF R(41741.)<0 THEN ABSENT(15)=NA;
         ELSE ABSENT(15)=R(41741.);
         IF R(41742.)<1 THEN WHYOFF(15)=NA;
         ELSE WHYOFF(15)=R(41742.);
         IF R(41751.)<0 THEN LOOK(15)=NA;
         ELSE LOOK(15)=R(41751.);
         DO4WKS(15)=NA;
         IF R(41752.)=1 THEN DO4WKS(15)=1;
         IF R(41763.)>0 THEN DO4WKS(15)=2;
         IF R(41746.)<1 THEN WEEKS(15)=NA;
         ELSE WEEKS(15)=R(41746.);
         IF R(41766.)>0 THEN WEEKS(15)=R(41766.);
         IF R(41770.)>0 THEN WEEKS(15)=R(41770.);
         IF R(41768.)=0 ! R(41772.)=0 THEN WHYNOT(15)=0;
         ELSE IF R(41773.)>0 THEN WHYNOT(15) =R(41773.);
         ELSE IF R(41769.)>0 THEN WHYNOT(15)=R(41769.);
         ELSE WHYNOT(15)=NA;
         IF R(41820.)<0 ! R(41820.)>998 THEN INDTYP(15)=NA;
         ELSE INDTYP(15)=R(41820.);
         IF R(41821.)<0 ! R(41821.)>994 THEN OCCTYP(15)=NA;
         ELSE OCCTYP(15)=R(41821.);
         IF R(41823.)<0 THEN EMPTYP(15)=NA;
         ELSE EMPTYP(15)=R(41823.);
         IF R(41743.)<1 ! R(41743.)>2 THEN NEWJOB(15)=NA;
         ELSE NEWJOB(15)=R(41743.);
         IF (INDTYP(15)^=NA ! OCCTYP(15)^=NA ! EMPTYP(15)^=NA) & R(41774.)^=1 &
            R(41821.)^=1 THEN EMPLOY(15)=1;
         ELSE EMPLOY(15)=0;
         MILCUR=R(41449.);
         IF R(41448.)>=0 THEN MILCUR=R(41448.);
         IF R(41460.)>=0 THEN MILCUR=R(41460.);
         IF MILCUR=1 THEN MILITARY(15)=1;
         ELSE MILITARY(15)=NA;
         DO I=1 TO 15;
            IF MILITARY(I)=1 THEN DO;
               ESR(I)=8;
               GO TO FIN;
            END;
            IF WEIGHT(I)=0 THEN DO;
               ESR(I)=-5;
               GO TO FIN;
            END;
            ESR(I)=7;
            IF DOING(I)^=1 THEN GO TO P6;
            IF HRSWK(I)=NA THEN GO TO P4;
            IF HRSWK(I)>=15 ! EMPTYP(I)^=4 THEN ESR(I)=1;
            GO TO P20000;
            P4: IF EMPLOY(I)=1 THEN ESR(I)=1;
            GO TO P20000;
            P6: ESR(I)=1;
            IF ANYWK(I)^=1 THEN GO TO P11;
            IF HRSWK(I)=NA THEN GO TO P9;
            IF HRSWK(I)<15 & EMPTYP(I)=4 THEN GO TO P61;
            GO TO P62;
            P9: IF EMPLOY(I)=0 THEN GO TO P61;
            GO TO P62;
            P11: IF HRSWK(I)=NA THEN GO TO P15;
            IF EMPLOY(I)=0 THEN GO TO P61;
            IF HRSWK(I)<15 & EMPTYP(I)=4 THEN GO TO P61;
            GO TO P62;
            P15: ESR(I)=7;
            IF DOING(I)=2 THEN GO TO ESR237;
            IF DOING(I)=3 THEN GO TO P21;
            GO TO P37;
            P21: IF ABSENT(I)^=1 THEN GO TO P27;
            GO TO ESR237;
            P27: IF WHYOFF(I)=NA THEN GO TO P32;
            IF WHYOFF(I)=6 ! WHYOFF(I)=7 THEN GO TO P29;
            IF EMPLOY(I)^=0 & EMPTYP(I)^=4 THEN ESR(I)=2;
            GO TO P20000;
            P29: IF WHYNOT(I)<3 THEN ESR(I)=3;
            GO TO P20000;
            P32: IF DO4WKS(I)=1 THEN GO TO P20000;
            IF WHYNOT(I)>2 THEN GO TO P20000;
            IF WEEKS(I)=NA THEN GO TO P33;
            ESR(I)=3;
            GO TO P20000;
            P33: IF DO4WKS(I)>1 ! WHYNOT(I)^=NA THEN ESR(I)=3;
            GO TO P20000;
            P37: ESR(I)=2;
            IF ABSENT(I)^=1 THEN GO TO P43;
            IF WHYOFF(I)=NA THEN GO TO P41;
            IF WHYOFF(I)=6 ! WHYOFF(I)=7 THEN GO TO P39;
            IF EMPTYP(I)=4 THEN GO TO P61;
            GO TO P62;
            P39: IF WHYNOT(I)>2 THEN GO TO P61;
            ESR(I)=3;
            GO TO P62;
            P41: IF EMPLOY(I)=0 ! EMPTYP(I)=4 THEN GO TO P61;
            GO TO P62;
            P43: IF WHYOFF(I)=NA THEN GO TO P48;
            IF WHYOFF(I)=6 ! WHYOFF(I)=7 THEN GO TO P45;
            IF EMPLOY(I)=0 ! EMPTYP(I)=4 THEN GO TO P61;
            GO TO P62;
            P45: IF WEEKS(I)=NA & WHYNOT(I)=NA THEN GO TO P61;
            IF WHYNOT(I)>2 THEN GO TO P61;
            ESR(I)=3;
            GO TO P62;
            P48: ESR(I)=3;
            IF LOOK(I)^=1 THEN GO TO P53;
            IF DO4WKS(I)=1 THEN GO TO P61;
            IF WHYNOT(I)>2 THEN GO TO P61;
            IF DO4WKS(I)^=NA  ! WEEKS(I)^=NA THEN GO TO P62;
            IF WHYNOT(I)=NA THEN GO TO P61;
            GO TO P62;
            P53: IF DO4WKS(I)=1 THEN GO TO P61;
            IF WHYNOT(I)>2 THEN GO TO P61;
            IF DO4WKS(I)=NA THEN GO TO P56;
            IF WEEKS(I)^=NA ! WHYNOT(I)^=NA THEN GO TO P62;
            GO TO P61;
            P56: IF WEEKS(I)=NA ! WHYNOT(I)=NA THEN GO TO P61;
            GO TO P62;
            P61: IF DOING(I)<4 ! DOING(I)>6 THEN GO TO P610;
            ESR(I)=DOING(I);
            GO TO P20000;
            P610: ESR(I)=7;
            GO TO P20000;
            P62: IF DOING(I)=6 THEN DOING(I)=7;
            P20000: GO TO FIN;
            ESR237: IF WHYOFF(I)=NA THEN GO TO P5019;
            IF WHYOFF(I)=6 ! WHYOFF(I)=7 THEN GO TO P5017;
            IF EMPTYP(I)^=-4 THEN ESR(I)=2;
            GO TO FIN;
            P5017: IF WHYNOT(I)>2 THEN GO TO FIN;
            ESR(I)=3;
            GO TO FIN;
            P5019: IF EMPLOY(I)=1 & EMPTYP(I)^=4 THEN ESR(I)=2;
            FIN:;

IF ESR(I)=-5 THEN ESRC(I)=-5;
            ELSE IF ESR(I)=1 | ESR(I)=2 THEN ESRC(I)=1;
            ELSE IF ESR(I)=3 THEN ESRC(I)=2;
            ELSE IF ESR(I)>=4 & ESR(I)<=7 THEN ESRC(I)=3;
            ELSE IF ESR(I)=8 THEN ESRC(I)=4;
            ELSE ESRC(I)=ESR(I);
END;

Note: Users should be aware that the CPS section, on which the creation of Employment Status Recode (ESR) is based, was significantly revised in 1994-96. Hence the 1994-96 ESR variables are created using a different formula than variables in previous years (1979-1993). The formula for the 1994 ESR variable was modeled after that used to compute the MLS (Monthly Labor Status) from the actual Current Population Survey (CPS). The programs for both 1994 and 1996 are included below in their entirety. Those variables identified by reference numbers (R#####.) are those which are included on the 1979-1996 Youth CD-ROM. These are in general, questions answered by or containing valid data for, at least one respondent. The questions identified by question name (Q5????), are those not included on the CD-ROM. These are in general, questions containing no valid data for any respondents. They remain in the formula to have it represented completely. However, the lack of valid data in those variables means that they would have virtually no effect in the formula or on the final value of ESR.

/* The programming for the new 1994 ESR variables is done in SPSS */
/* the following lines create the var AGE */
COMPUTE AGE=37
/* the following lines construct the var HRACT1 */
DO IF (Q5B2_40A EQ -4)
COMPUTE HRACT1=-4
ELSE IF (Q5B2_41A EQ -1 OR Q5B2_41B EQ -1 OR Q5B2_41C EQ -1 OR Q5B2_41D EQ -1 OR 
                   Q5B2_41A EQ -2 OR Q5B2_41B EQ -2 OR Q5B2_41C EQ -2 OR Q5B2_41D EQ -2)
COMPUTE HRACT1=-2
ELSE IF (Q5B2_41A EQ 995 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ 995 OR Q5B2_41D EQ 995)
COMPUTE HRACT1=995
ELSE IF (Q5B2_40B EQ 1 AND Q5B2_41A NE -4)
COMPUTE HRACT1=Q5B2_41A
ELSE IF (Q5B2_40C EQ 1 AND Q5B2_41B NE -4)
COMPUTE HRACT1=Q5B2_41B
ELSE IF (Q5B2_40D EQ 1 AND Q5B2_41C NE -4)
COMPUTE HRACT1=Q5B2_41C
ELSE IF (Q5B2_40E EQ 1 OR Q5B2_40E EQ 0)
COMPUTE HRACT1=Q5B2_41D
ELSE IF (Q5B_40A EQ -4)
COMPUTE HRACT1=-4
ELSE IF (Q5B_41A EQ -1 OR Q5B_41B EQ -1 OR Q5B_41C EQ -1 OR Q5B_41D EQ -1 OR Q5B_41A EQ -2 OR 
                   Q5B_41B EQ -2 OR Q5B_41C EQ -2 OR Q5B_41D EQ -2)
COMPUTE HRACT1=-2
ELSE IF (Q5B_41A EQ 995 OR Q5B_41B EQ 995 OR Q5B_41C EQ 995 OR Q5B_41D EQ 995)
COMPUTE HRACT1=995
ELSE IF (R(45594.) EQ 1 AND Q5B_41A NE -4)
COMPUTE HRACT1=Q5B_41A
ELSE IF (R(45595.) EQ 1 AND Q5B_41B NE -4)
COMPUTE HRACT1=Q5B_41B
ELSE IF (R(45596.) EQ 1 AND Q5B_41C NE -4)
COMPUTE HRACT1=Q5B_41C
ELSE IF (Q5B_40E EQ 1 OR Q5B_40E EQ 0)
COMPUTE HRACT1=Q5B_41D
ELSE IF (R(45443.) EQ -4)
COMPUTE HRACT1=-4
ELSE IF (R(45448.) EQ -1 OR R(45449.) EQ -1 OR R(45450.) EQ -1 OR R(45451.) EQ -1 OR R(45448.) EQ -2 OR 
                   R(45449.) EQ -2 OR R(45450.) EQ -2 OR R(45451.) EQ -2)
COMPUTE HRACT1=-2
ELSE IF (R(45448.) EQ 995 OR R(45449.) EQ 995 OR R(45450.) EQ 995 OR               R(45451.) EQ 995)
COMPUTE HRACT1=995
ELSE IF (R(45444.) EQ 1 AND R(45448.) NE -4)
COMPUTE HRACT1=R(45448.)
ELSE IF (R(45445.) EQ 1 AND R(45449.) NE -4)
COMPUTE HRACT1=R(45449.)
ELSE IF (R(45446.) EQ 1 AND R(45450.) NE -4)
COMPUTE HRACT1=R(45450.)
ELSE IF (R(45447.) EQ 1 OR R(45447.) EQ 0)
COMPUTE HRACT1=R(45451.)
ELSE
COMPUTE HRACT1=-3
END IF
/* the following lines construct the var HRACT2 */
DO IF (Q5B2_42 EQ -4 OR Q5B2_42 EQ 0)
COMPUTE HRACT2=-4
ELSE IF (Q5B2_43A EQ -1 OR Q5B2_43B EQ -1OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2)
COMPUTE HRACT2=-2
ELSE IF (Q5B2_43A EQ 995 OR Q5B2_43B EQ 995)
COMPUTE HRACT2=995
ELSE IF (Q5B2_43 EQ 1)
COMPUTE HRACT2=Q5B2_43A
ELSE IF (Q5B2_42 EQ 1 AND Q5B2_43 EQ 0)
COMPUTE HRACT2=Q5B2_43B
ELSE IF (Q5B_42 EQ -4 OR Q5B_42 EQ 0)
COMPUTE HRACT2=-4
ELSE IF (Q5B_43A EQ -1 OR Q5B_43B EQ -1 OR Q5B_43A EQ -2 OR Q5B_43B EQ -2)
COMPUTE HRACT2=-2
ELSE IF (Q5B_43A EQ 995 OR Q5B_43B EQ 995)
COMPUTE HRACT2=995
ELSE IF (Q5B_43 EQ 1)
COMPUTE HRACT2=Q5B_43A
ELSE IF (Q5B_42 EQ 1 AND Q5B_43 EQ 0)
COMPUTE HRACT2=Q5B_43B
ELSE IF (R(45452.) EQ -4 OR R(45452.) EQ 0)
COMPUTE HRACT2=-4
ELSE IF (R(45454.) EQ -1 OR R(45455.) EQ -1 OR R(45454.) EQ -2 OR R(45455.) EQ -2)
COMPUTE HRACT2=-2
ELSE IF (R(45454.) EQ 995 OR R(45455.) EQ 995)
COMPUTE HRACT2=995
ELSE IF (R(45453.) EQ 1)
COMPUTE HRACT2=R(45454.)
ELSE IF (R(45452.) EQ 1 AND R(45453.) EQ 0)
COMPUTE HRACT2=R(45455.)
ELSE 
COMPUTE HRACT2=-3
END IF
/* the following lines create the var HRACTT */
DO IF (Q5B2_40A EQ -4)
COMPUTE HRACTT=-4
ELSE IF ((Q5B2_41A EQ -1 OR Q5B2_41B EQ -1 OR Q5B2_41C EQ -1 OR Q5B2_41D EQ -1 OR 
                   Q5B2_41A EQ -2 OR Q5B2_41B EQ -2 OR Q5B2_41C EQ -2 OR Q5B2_41D EQ -2) AND 
                   (Q5B2_43A EQ -1 OR Q5B2_43B EQ -1 OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2))
COMPUTE HRACTT=-2
ELSE IF ((Q5B2_41A EQ 995 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ 995 OR Q5B2_41D EQ 995) AND 
                   (Q5B2_43A EQ 995 OR Q5B2_43B EQ 995))
COMPUTE HRACTT=995
ELSE IF ((Q5B2_41A EQ -1 OR Q5B2_41B EQ -1 OR Q5B2_41C EQ -1 OR Q5B2_41D EQ -1 OR 
                   Q5B2_41A EQ -2 OR Q5B2_41B EQ -2 OR Q5B2_41C EQ -2 OR Q5B2_41D EQ -2) AND 
                   (Q5B2_43A EQ 995 OR Q5B2_43B EQ 995))
COMPUTE HRACTT=995
ELSE IF ((Q5B2_41A EQ 995 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ 995 OR Q5B2_41D EQ 995 OR 
                   Q5B2_41A EQ 995 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ 995 OR Q5B2_41D EQ 995) AND 
                   (Q5B2_43A EQ -1 OR Q5B2_43B EQ -1 OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2))
COMPUTE HRACTT=995
ELSE IF ((Q5B2_41A NE -4 AND Q5B2_41A NE -1 AND Q5B2_41A NE -2 AND Q5B2_41A NE 995) AND 
                   (Q5B2_43A EQ -1 OR Q5B2_43B EQ -1 OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2 OR 
                   Q5B2_43A EQ 995 OR Q5B2_43B EQ 995))
COMPUTE HRACTT=Q5B2_41A
ELSE IF ((Q5B2_41B NE -4 AND Q5B2_41B NE -1 AND Q5B2_41B NE -2 AND Q5B2_41B NE 995) AND 
                   (Q5B2_43A EQ -1 OR Q5B2_43B EQ -1 OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2 OR 
                   Q5B2_43A EQ 995 OR Q5B2_43B EQ 995))
COMPUTE HRACTT=Q5B2_41B
ELSE IF ((Q5B2_41C NE -4 AND Q5B2_41C NE -1 AND Q5B2_41C NE -2 AND Q5B2_41C NE 995) AND 
                   (Q5B2_43A EQ -1 OR Q5B2_43B EQ -1 OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2 OR 
                   Q5B2_43A EQ 995 OR Q5B2_43B EQ 995))
COMPUTE HRACTT=Q5B2_41C
ELSE IF ((Q5B2_41D NE -4 AND Q5B2_41D NE -1 AND Q5B2_41D NE -2 AND Q5B2_41D NE 995) AND 
                   (Q5B2_43A EQ -1 OR Q5B2_43B EQ -1 OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2 OR 
                   Q5B2_43A EQ 995 OR Q5B2_43B EQ 995))
COMPUTE HRACTT=Q5B2_41D
ELSE IF ((Q5B2_43A NE -4 AND Q5B2_43A NE -1 AND Q5B2_43A NE -2 AND Q5B2_43A NE 995) AND 
                   (Q5B2_41A EQ -1 OR Q5B2_41A EQ -2 OR Q5B2_41A EQ 995 OR Q5B2_41B EQ -1 OR 
                   Q5B2_41B EQ -2 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ -1 OR Q5B2_41C EQ -2 OR 
                   Q5B2_41C EQ 995 OR Q5B2_41D EQ -1 OR Q5B2_41D EQ -2 OR Q5B2_41D EQ 995))
COMPUTE HRACTT=Q5B2_43A
ELSE IF ((Q5B2_43B NE -4 AND Q5B2_43B NE -1 AND Q5B2_43B NE -2 AND Q5B2_43B NE 995) AND 
                   (Q5B2_41A EQ -1 OR Q5B2_41A EQ -2 OR Q5B2_41A EQ 995 OR Q5B2_41B EQ -1 OR 
                   Q5B2_41B EQ -2 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ -1 OR Q5B2_41C EQ -2 OR 
                   Q5B2_41C EQ 995 OR Q5B2_41D EQ -1 OR Q5B2_41D EQ -2 OR Q5B2_41D EQ 995))
COMPUTE HRACTT=Q5B2_43B
ELSE IF ((Q5B2_41A NE -4 AND Q5B2_41A NE -1 AND Q5B2_41A NE -2 AND Q5B2_41A NE 995) AND 
                   (Q5B2_43A NE -1 AND Q5B2_43A NE -2 AND Q5B2_43A NE 995 AND Q5B2_43A NE -4)) 
COMPUTE HRACTT=Q5B2_41A+Q5B2_43A
ELSE IF ((Q5B2_41A NE -4 AND Q5B2_41A NE -1 AND Q5B2_41A NE -2 AND Q5B2_41A NE 995) AND 
                   (Q5B2_43B NE -1 AND Q5B2_43B NE -2 AND Q5B2_43B NE 995 AND Q5B2_43B NE -4)) 
COMPUTE HRACTT=Q5B2_41A+Q5B2_43B
ELSE IF ((Q5B2_41B NE -4 AND Q5B2_41B NE -1 AND Q5B2_41B NE -2 AND Q5B2_41B NE 995) AND 
                   (Q5B2_43A NE -1 AND Q5B2_43A NE -2 AND Q5B2_43A NE 995 AND Q5B2_43A NE -4)) 
COMPUTE HRACTT=Q5B2_41B+Q5B2_43A
ELSE IF ((Q5B2_41B NE -4 AND Q5B2_41B NE -1 AND Q5B2_41B NE -2 AND Q5B2_41B NE 995) AND 
                   (Q5B2_43B NE -1 AND Q5B2_43B NE -2 AND Q5B2_43B NE 995 AND Q5B2_43B NE -4)) 
COMPUTE HRACTT=Q5B2_41B+Q5B2_43B
ELSE IF ((Q5B2_41C NE -4 AND Q5B2_41C NE -1 AND Q5B2_41C NE -2 AND Q5B2_41C NE 995) AND 
                   (Q5B2_43A NE -1 AND Q5B2_43A NE -2 AND Q5B2_43A NE 995 AND Q5B2_43A NE -4)) 
COMPUTE HRACTT=Q5B2_41C+Q5B2_43A
ELSE IF ((Q5B2_41C NE -4 AND Q5B2_41C NE -1 AND Q5B2_41C NE -2 AND Q5B2_41C NE 995) AND 
                   (Q5B2_43B NE -1 AND Q5B2_43B NE -2 AND Q5B2_43B NE 995 AND Q5B2_43B NE -4)) 
COMPUTE HRACTT=Q5B2_41C+Q5B2_43B
ELSE IF ((Q5B2_41D NE -4 AND Q5B2_41D NE -1 AND Q5B2_41D NE -2 AND Q5B2_41D NE 995) AND 
                   (Q5B2_43A NE -1 AND Q5B2_43A NE -2 AND Q5B2_43A NE 995 AND Q5B2_43A NE -4)) 
COMPUTE HRACTT=Q5B2_41D+Q5B2_43A
ELSE IF ((Q5B2_41D NE -4 AND Q5B2_41D NE -1 AND Q5B2_41D NE -2 AND Q5B2_41D NE 995) AND 
                   (Q5B2_43B NE -1 AND Q5B2_43B NE -2 AND Q5B2_43B NE 995 AND Q5B2_43B NE -4)) 
COMPUTE HRACTT=Q5B2_41D+Q5B2_43B
ELSE IF ((Q5B2_41A NE -4 AND Q5B2_41A NE -1 AND Q5B2_41A NE -2 AND Q5B2_41A NE 995) AND 
                   Q5B2_43A EQ -4 AND Q5B2_43B EQ -4)
COMPUTE HRACTT=Q5B2_41A
ELSE IF ((Q5B2_41B NE -4 AND Q5B2_41B NE -1 AND Q5B2_41B NE -2 AND Q5B2_41B NE 995) AND 
                   Q5B2_43A EQ -4 AND Q5B2_43B EQ -4)
COMPUTE HRACTT=Q5B2_41B
ELSE IF ((Q5B2_41C NE -4 AND Q5B2_41C NE -1 AND Q5B2_41C NE -2 AND Q5B2_41C NE 995) AND 
                   Q5B2_43A EQ -4 AND Q5B2_43B EQ -4)
COMPUTE HRACTT=Q5B2_41C
ELSE IF ((Q5B2_41D NE -4 AND Q5B2_41D NE -1 AND Q5B2_41D NE -2 AND Q5B2_41D NE 995) AND 
                   Q5B2_43A EQ -4 AND Q5B2_43B EQ -4)
COMPUTE HRACTT=Q5B2_41D
ELSE IF ((Q5B2_41A EQ -1 OR Q5B2_41A EQ -2 OR Q5B2_41B EQ -1 OR Q5B2_41B EQ -2 OR 
                   Q5B2_41C EQ -1 OR Q5B2_41C EQ -2 OR Q5B2_41D EQ -1 OR Q5B2_41D EQ -2) AND 
                   Q5B2_43A EQ -4 AND Q5B2_43B EQ -4)
COMPUTE HRACTT=-2
ELSE IF ((Q5B2_41A EQ 995 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ 995 OR Q5B2_41D EQ 995) AND 
                   Q5B2_43A EQ -4 AND Q5B2_43B EQ -4)
COMPUTE HRACTT=995
ELSE IF (Q5B_40A EQ -4)
COMPUTE HRACTT=-4
ELSE IF ((Q5B_41A EQ -1 OR Q5B_41B EQ -1 OR Q5B_41C EQ -1 OR Q5B_41D EQ -1 OR Q5B_41A EQ -2 OR 
                   Q5B_41B EQ -2 OR Q5B_41C EQ -2 OR Q5B_41D EQ -2) AND (Q5B_43A EQ -1 OR 
                   Q5B_43B EQ -1 OR Q5B_43A EQ -2 OR Q5B_43B EQ -2))
COMPUTE HRACTT=-2
ELSE IF ((Q5B_41A EQ 995 OR Q5B_41B EQ 995 OR Q5B_41C EQ 995 OR Q5B_41D EQ 995) AND 
                   (Q5B_43A EQ 995 OR Q5B_43B EQ 995))
COMPUTE HRACTT=995
ELSE IF ((Q5B_41A EQ -1 OR Q5B_41B EQ -1 OR Q5B_41C EQ -1 OR Q5B_41D EQ -1 OR Q5B_41A EQ -2 OR 
                   Q5B_41B EQ -2 OR Q5B_41C EQ -2 OR Q5B_41D EQ -2) AND (Q5B_43A EQ 995 OR 
                   Q5B_43B EQ 995))
COMPUTE HRACTT=995
ELSE IF ((Q5B_41A EQ 995 OR Q5B_41B EQ 995 OR Q5B_41C EQ 995 OR Q5B_41D EQ 995 OR 
                   Q5B_41A EQ 995 OR Q5B_41B EQ 995 OR Q5B_41C EQ 995 OR Q5B_41D EQ 995) AND 
                   (Q5B_43A EQ -1 OR Q5B_43B EQ -1 OR Q5B_43A EQ -2 OR Q5B_43B EQ -2))
COMPUTE HRACTT=995
ELSE IF ((Q5B_41A NE -4 AND Q5B_41A NE -1 AND Q5B_41A NE -2 AND Q5B_41A NE 995) AND 
                   (Q5B_43A EQ -1 OR Q5B_43B EQ -1 OR Q5B_43A EQ -2 OR Q5B_43B EQ -2 OR Q5B_43A EQ 995 OR 
                   Q5B_43B EQ 995))
COMPUTE HRACTT=Q5B_41A
ELSE IF ((Q5B_41B NE -4 AND Q5B_41B NE -1 AND Q5B_41B NE -2 AND Q5B_41B NE 995) AND 
                   (Q5B_43A EQ -1 OR Q5B_43B EQ -1 OR Q5B_43A EQ -2 OR Q5B_43B EQ -2 OR Q5B_43A EQ 995 OR 
                   Q5B_43B EQ 995))
COMPUTE HRACTT=Q5B_41B
ELSE IF ((Q5B_41C NE -4 AND Q5B_41C NE -1 AND Q5B_41C NE -2 AND Q5B_41C NE 995) AND 
                   (Q5B_43A EQ -1 OR Q5B_43B EQ -1 OR Q5B_43A EQ -2 OR Q5B_43B EQ -2 OR Q5B_43A EQ 995 OR
                   Q5B_43B EQ 995))
COMPUTE HRACTT=Q5B_41C
ELSE IF ((Q5B_41D NE -4 AND Q5B_41D NE -1 AND Q5B_41D NE -2 AND Q5B_41D NE 995) AND 
                   (Q5B_43A EQ -1 OR Q5B_43B EQ -1 OR Q5B_43A EQ -2 OR Q5B_43B EQ -2 OR Q5B_43A EQ 995 OR 
                   Q5B_43B EQ 995))
COMPUTE HRACTT=Q5B_41D
ELSE IF ((Q5B_43A NE -4 AND Q5B_43A NE -1 AND Q5B_43A NE -2 AND Q5B_43A NE 995) AND 
                   (Q5B_41A EQ -1 OR Q5B_41A EQ -2 OR Q5B_41A EQ 995 OR Q5B_41B EQ -1 OR Q5B_41B EQ -2 OR 
                   Q5B_41B EQ 995 OR Q5B_41C EQ -1 OR Q5B_41C EQ -2 OR Q5B_41C EQ 995 OR 
                   Q5B_41D EQ -1 OR Q5B_41D EQ -2 OR Q5B_41D EQ 995))
COMPUTE HRACTT=Q5B_43A
ELSE IF ((Q5B_43B NE -4 AND Q5B_43B NE -1 AND Q5B_43B NE -2 AND Q5B_43B NE 995) AND 
                   (Q5B_41A EQ -1 OR Q5B_41A EQ -2 OR Q5B_41A EQ 995 OR Q5B_41B EQ -1 OR Q5B_41B EQ -2 OR 
                   Q5B_41B EQ 995 OR Q5B_41C EQ -1 OR Q5B_41C EQ -2 OR Q5B_41C EQ 995 OR 
                   Q5B_41D EQ -1 OR Q5B_41D EQ -2 OR Q5B_41D EQ 995))
COMPUTE HRACTT=Q5B_43B
ELSE IF ((Q5B_41A NE -4 AND Q5B_41A NE -1 AND Q5B_41A NE -2 AND Q5B_41A NE 995) AND 
                   (Q5B_43A NE -1 AND Q5B_43A NE -2 AND Q5B_43A NE 995 AND Q5B_43A NE -4)) 
COMPUTE HRACTT=Q5B_41A+Q5B_43A
ELSE IF ((Q5B_41A NE -4 AND Q5B_41A NE -1 AND Q5B_41A NE -2 AND Q5B_41A NE 995) AND 
                   (Q5B_43B NE -1 AND Q5B_43B NE -2 AND Q5B_43B NE 995 AND Q5B_43B NE -4)) 
COMPUTE HRACTT=Q5B_41A+Q5B_43B
ELSE IF ((Q5B_41B NE -4 AND Q5B_41B NE -1 AND Q5B_41B NE -2 AND Q5B_41B NE 995) AND 
                   (Q5B_43A NE -1 AND Q5B_43A NE -2 AND Q5B_43A NE 995 AND Q5B_43A NE -4)) 
COMPUTE HRACTT=Q5B_41B+Q5B_43A
ELSE IF ((Q5B_41B NE -4 AND Q5B_41B NE -1 AND Q5B_41B NE -2 AND Q5B_41B NE 995) AND 
                   (Q5B_43B NE -1 AND Q5B_43B NE -2 AND Q5B_43B NE 995 AND Q5B_43B NE -4)) 
COMPUTE HRACTT=Q5B_41B+Q5B_43B
ELSE IF ((Q5B_41C NE -4 AND Q5B_41C NE -1 AND Q5B_41C NE -2 AND Q5B_41C NE 995) AND 
                   (Q5B_43A NE -1 AND Q5B_43A NE -2 AND Q5B_43A NE 995 AND Q5B_43A NE -4)) 
COMPUTE HRACTT=Q5B_41C+Q5B_43A
ELSE IF ((Q5B_41C NE -4 AND Q5B_41C NE -1 AND Q5B_41C NE -2 AND Q5B_41C NE 995) AND 
                   (Q5B_43B NE -1 AND Q5B_43B NE -2 AND Q5B_43B NE 995 AND Q5B_43B NE -4)) 
COMPUTE HRACTT=Q5B_41C+Q5B_43B
ELSE IF ((Q5B_41D NE -4 AND Q5B_41D NE -1 AND Q5B_41D NE -2 AND Q5B_41D NE 995) AND 
                   (Q5B_43A NE -1 AND Q5B_43A NE -2 AND Q5B_43A NE 995 AND Q5B_43A NE -4)) 
COMPUTE HRACTT=Q5B_41D+Q5B_43A
ELSE IF ((Q5B_41D NE -4 AND Q5B_41D NE -1 AND Q5B_41D NE -2 AND Q5B_41D NE 995) AND 
                   (Q5B_43B NE -1 AND Q5B_43B NE -2 AND Q5B_43B NE 995 AND Q5B_43B NE -4)) 
COMPUTE HRACTT=Q5B_41D+Q5B_43B
ELSE IF ((Q5B_41A NE -4 AND Q5B_41A NE -1 AND Q5B_41A NE -2 AND Q5B_41A NE 995) AND 
                   Q5B_43A EQ -4 AND Q5B_43B EQ -4)
COMPUTE HRACTT=Q5B_41A
ELSE IF ((Q5B_41B NE -4 AND Q5B_41B NE -1 AND Q5B_41B NE -2 AND Q5B_41B NE 995) AND 
                   Q5B_43A EQ -4 AND Q5B_43B EQ -4)
COMPUTE HRACTT=Q5B_41B
ELSE IF ((Q5B_41C NE -4 AND Q5B_41C NE -1 AND Q5B_41C NE -2 AND Q5B_41C NE 995) AND 
                   Q5B_43A EQ -4 AND Q5B_43B EQ -4)
COMPUTE HRACTT=Q5B_41C
ELSE IF ((Q5B_41D NE -4 AND Q5B_41D NE -1 AND Q5B_41D NE -2 AND Q5B_41D NE 995) AND 
                   Q5B_43A EQ -4 AND Q5B_43B EQ -4)
COMPUTE HRACTT=Q5B_41D
ELSE IF ((Q5B_41A EQ -1 OR Q5B_41A EQ -2 OR Q5B_41B EQ -1 OR Q5B_41B EQ -2 OR Q5B_41C EQ -1 OR
                   Q5B_41C EQ -2 OR Q5B_41D EQ -1 OR Q5B_41D EQ -2) AND Q5B_43A EQ -4 AND Q5B_43B EQ -4)
COMPUTE HRACTT=-2
ELSE IF ((Q5B_41A EQ 995 OR Q5B_41B EQ 995 OR Q5B_41C EQ 995 OR Q5B_41D EQ 995) AND 
                   Q5B_43A EQ -4 AND Q5B_43B EQ -4)
COMPUTE HRACTT=995
ELSE IF (R(45443.) EQ -4)
COMPUTE HRACTT=-4
ELSE IF ((R(45448.) EQ -1 OR R(45449.) EQ -1 OR R(45450.) EQ -1 OR R(45451.) EQ -1 OR R(45448.) EQ -2 OR 
                   R(45449.) EQ -2 OR R(45450.) EQ -2 OR R(45451.) EQ -2) AND (R(45454.) EQ -1 OR 
                   R(45455.) EQ -1 OR R(45454.) EQ -2 OR R(45455.) EQ -2))
COMPUTE HRACTT=-2
ELSE IF ((R(45448.) EQ 995 OR R(45449.) EQ 995 OR R(45450.) EQ 995 OR R(45451.) EQ 995) AND 
                   (R(45454.) EQ 995 OR R(45455.) EQ 995))
COMPUTE HRACTT=995
ELSE IF ((R(45448.) EQ -1 OR R(45449.) EQ -1 OR R(45450.) EQ -1 OR R(45451.) EQ -1 OR R(45448.) EQ -2 OR 
                   R(45449.) EQ -2 OR R(45450.) EQ -2 OR R(45451.) EQ -2) AND (R(45454.) EQ 995 OR 
                   R(45455.) EQ 995))
COMPUTE HRACTT=995
ELSE IF ((R(45448.) EQ 995 OR R(45449.) EQ 995 OR R(45450.) EQ 995 OR R(45451.) EQ 995 OR 
                   R(45448.) EQ 995 OR R(45449.) EQ 995 OR R(45450.) EQ 995 OR R(45451.) EQ 995) AND 
                   (R(45454.) EQ -1 OR R(45455.) EQ -1 OR R(45454.) EQ -2 OR R(45455.) EQ -2))
COMPUTE HRACTT=995
ELSE IF ((R(45448.) NE -4 AND R(45448.) NE -1 AND R(45448.) NE -2 AND R(45448.) NE 995) AND 
                   (R(45454.) EQ -1 OR R(45455.) EQ -1 OR R(45454.) EQ -2 OR R(45455.) EQ -2 OR 
                   R(45454.) EQ 995 OR R(45455.) EQ 995))
COMPUTE HRACTT=R(45448.)
ELSE IF ((R(45449.) NE -4 AND R(45449.) NE -1 AND R(45449.) NE -2 AND R(45449.) NE 995) AND 
                   (R(45454.) EQ -1 OR R(45455.) EQ -1 OR R(45454.) EQ -2 OR R(45455.) EQ -2 OR 
                   R(45454.) EQ 995 OR R(45455.) EQ 995))
COMPUTE HRACTT=R(45449.)
ELSE IF ((R(45450.) NE -4 AND R(45450.) NE -1 AND R(45450.) NE -2 AND R(45450.) NE 995) AND 
                   (R(45454.) EQ -1 OR R(45455.) EQ -1 OR R(45454.) EQ -2 OR R(45455.) EQ -2 OR 
                   R(45454.) EQ 995 OR R(45455.) EQ 995))
COMPUTE HRACTT=R(45450.)
ELSE IF ((R(45451.) NE -4 AND R(45451.) NE -1 AND R(45451.) NE -2 AND R(45451.) NE 995) AND 
                   (R(45454.) EQ -1 OR R(45455.) EQ -1 OR R(45454.) EQ -2 OR R(45455.) EQ -2 OR 
                   R(45454.) EQ 995 OR R(45455.) EQ 995))
COMPUTE HRACTT=R(45451.)
ELSE IF ((R(45454.) NE -4 AND R(45454.) NE -1 AND R(45454.) NE -2 AND R(45454.) NE 995) AND 
                   (R(45448.) EQ -1 OR R(45448.) EQ -2 OR R(45448.) EQ 995 OR R(45449.) EQ -1 OR 
                   R(45449.) EQ -2 OR R(45449.) EQ 995 OR R(45450.) EQ -1 OR R(45450.) EQ -2 OR 
                   R(45450.) EQ 995 OR R(45451.) EQ -1 OR R(45451.) EQ -2 OR R(45451.) EQ 995))
COMPUTE HRACTT=R(45454.)
ELSE IF ((R(45455.) NE -4 AND R(45455.) NE -1 AND R(45455.) NE -2 AND R(45455.) NE 995) AND 
                   R(45448.) EQ -1 OR R(45448.) EQ -2 OR R(45448.) EQ 995 OR R(45449.) EQ -1 OR R(45449.) EQ -2 OR 
                   R(45449.) EQ 995 OR R(45450.) EQ -1 OR R(45450.) EQ -2 OR R(45450.) EQ 995 OR 
                   R(45451.) EQ -1 OR R(45451.) EQ -2 OR R(45451.) EQ 995))
COMPUTE HRACTT=R(45455.)
ELSE IF ((R(45448.) NE -4 AND R(45448.) NE -1 AND R(45448.) NE -2 AND R(45448.) NE 995) AND 
                   (R(45454.) NE -1 AND R(45454.) NE -2 AND R(45454.) NE 995 AND R(45454.) NE -4)) 
COMPUTE HRACTT=R(45448.)+R(45454.)
ELSE IF ((R(45448.) NE -4 AND R(45448.) NE -1 AND R(45448.) NE -2 AND R(45448.) NE 995) AND 
                   (R(45455.) NE -1 AND R(45455.) NE -2 AND R(45455.) NE 995 AND R(45455.) NE -4)) 
COMPUTE HRACTT=R(45448.)+R(45455.)
ELSE IF ((R(45449.) NE -4 AND R(45449.) NE -1 AND R(45449.) NE -2 AND R(45449.) NE 995) AND 
                   (R(45454.) NE -1 AND R(45454.) NE -2 AND R(45454.) NE 995 AND R(45454.) NE -4)) 
COMPUTE HRACTT=R(45449.)+R(45454.)
ELSE IF ((R(45449.) NE -4 AND R(45449.) NE -1 AND R(45449.) NE -2 AND R(45449.) NE 995) AND 
                   (R(45455.) NE -1 AND R(45455.) NE -2 AND R(45455.) NE 995 AND R(45455.) NE -4)) 
COMPUTE HRACTT=R(45449.)+R(45455.)
ELSE IF ((R(45450.) NE -4 AND R(45450.) NE -1 AND R(45450.) NE -2 AND R(45450.) NE 995) AND 
                   (R(45454.) NE -1 AND R(45454.) NE -2 AND R(45454.) NE 995 AND R(45454.) NE -4)) 
COMPUTE HRACTT=R(45450.)+R(45454.)
ELSE IF ((R(45450.) NE -4 AND R(45450.) NE -1 AND R(45450.) NE -2 AND R(45450.) NE 995) AND 
                   (R(45455.) NE -1 AND R(45455.) NE -2 AND R(45455.) NE 995 AND R(45455.) NE -4)) 
COMPUTE HRACTT=R(45450.)+R(45455.)
ELSE IF ((R(45451.) NE -4 AND R(45451.) NE -1 AND R(45451.) NE -2 AND R(45451.) NE 995) AND 
                   (R(45454.) NE -1 AND R(45454.) NE -2 AND R(45454.) NE 995 AND R(45454.) NE -4)) 
COMPUTE HRACTT=R(45451.)+R(45454.)
ELSE IF ((R(45451.) NE -4 AND R(45451.) NE -1 AND R(45451.) NE -2 AND R(45451.) NE 995) AND 
                   (R(45455.) NE -1 AND R(45455.) NE -2 AND R(45455.) NE 995 AND R(45455.) NE -4)) 
COMPUTE HRACTT=R(45451.)+R(45455.)
ELSE IF ((R(45448.) NE -4 AND R(45448.) NE -1 AND R(45448.) NE -2 AND R(45448.) NE 995) AND 
                   R(45454.) EQ -4 AND R(45455.) EQ -4)
COMPUTE HRACTT=R(45448.)
ELSE IF ((R(45449.) NE -4 AND R(45449.) NE -1 AND R(45449.) NE -2 AND R(45449.) NE 995) AND 
                   R(45454.) EQ -4 AND R(45455.) EQ -4)
COMPUTE HRACTT=R(45449.)
ELSE IF ((R(45450.) NE -4 AND R(45450.) NE -1 AND R(45450.) NE -2 AND R(45450.) NE 995) AND 
                   R(45454.) EQ -4 AND R(45455.) EQ -4)
COMPUTE HRACTT=R(45450.)
ELSE IF ((R(45451.) NE -4 AND R(45451.) NE -1 AND R(45451.) NE -2 AND R(45451.) NE 995) AND 
                   R(45454.) EQ -4 AND R(45455.) EQ -4)
COMPUTE HRACTT=R(45451.)
ELSE IF ((R(45448.) EQ -1 OR R(45448.) EQ -2 OR R(45449.) EQ -1 OR R(45449.) EQ -2 OR R(45450.) EQ -1 OR
                    R(45450.) EQ -2 OR R(45451.) EQ -1 OR R(45451.) EQ -2) AND R(45454.) EQ -4 AND R(45455.) EQ -4)
COMPUTE HRACTT=-2
ELSE IF ((R(45448.) EQ 995 OR R(45449.) EQ 995 OR R(45450.) EQ 995 OR R(45451.) EQ 995) AND 
                   R(45454.) EQ -4 AND R(45455.) EQ -4)
COMPUTE HRACTT=995
ELSE 
COMPUTE HRACTT=-3
END IF
/* the following lines creates the var BUS2 */
DO IF (R(45368.) EQ -4)
COMPUTE BUS2=-4
ELSE IF (R(45368.) EQ -1)
COMPUTE BUS2=-1
ELSE IF (R(45368.) EQ -2)
COMPUTE BUS2=-2
ELSE IF (R(45369.) EQ -1 OR R(45370.) EQ -1)
COMPUTE BUS2=-1
ELSE IF (R(45369.) EQ -2 OR R(45370.) EQ -2)
COMPUTE BUS2=-2
ELSE IF (R(45369.) EQ 1 OR R(45370.) EQ 1)
COMPUTE BUS2=1
ELSE IF (R(45370.) EQ 0)
COMPUTE BUS2=2  /* this should normally be 0 */
ELSE 
COMPUTE BUS2=-3
END IF
/* the following lines create the var HRUSL1 */
DO IF (R(45665.) EQ -4)
COMPUTE HRUSL1=-4
ELSE IF (R(45666.) EQ -1 OR R(45667.) EQ -1 OR R(45666.) EQ -2 OR R(45667.) EQ -2)
COMPUTE HRUSL1=-2
ELSE IF (R(45666.) EQ 995 OR R(45667.) EQ 995)
COMPUTE HRUSL1=995
ELSE IF (R(45666.) EQ 1)
COMPUTE HRUSL1=Q5B2_26B
ELSE IF (R(45667.) EQ 1)
COMPUTE HRUSL1=Q5B2_26D
ELSE IF (R(45582.) EQ -4)
COMPUTE HRUSL1=-4
ELSE IF (Q5B_26A EQ -1 OR R(45583.) EQ -1 OR Q5B_26A EQ -2 OR R(45583.) EQ -2)
COMPUTE HRUSL1=-2
ELSE IF (Q5B_26A EQ 995 OR R(45583.) EQ 995)
COMPUTE HRUSL1=995
ELSE IF (Q5B_26A EQ 1)
COMPUTE HRUSL1=Q5B_26B
ELSE IF (R(45583.) EQ 1)
COMPUTE HRUSL1=R(45584.)
ELSE IF (R(45399.) EQ -4)
COMPUTE HRUSL1=-4
ELSE IF (R(45400.) EQ -1 OR R(45402.) EQ -1 OR R(45400.) EQ -2 OR R(45402.) EQ -2)
COMPUTE HRUSL1=-2
ELSE IF (R(45400.) EQ 995 OR R(45402.) EQ 995)
COMPUTE HRUSL1=995
ELSE IF (R(45400.) EQ 1)
COMPUTE HRUSL1=R(45401.)
ELSE IF (R(45402.) EQ 1)
COMPUTE HRUSL1=R(45403.)
ELSE 
COMPUTE HRUSL1=-3
END IF
/* the following lines create the var HRUSL2 */
DO IF (Q5B2_28A EQ -4)
COMPUTE HRUSL2=-4
ELSE IF (Q5B2_28B EQ -1 OR Q5B2_28D EQ -1 OR Q5B2_28B EQ -2 OR Q5B2_28D EQ -2)
COMPUTE HRUSL2=-2
ELSE IF (Q5B2_28B EQ 995 OR Q5B2_28D EQ 995)
COMPUTE HRUSL2=995
ELSE IF (Q5B2_28B EQ 1)
COMPUTE HRUSL2=Q5B2_28C
ELSE IF (Q5B2_28D EQ 1)
COMPUTE HRUSL2=Q5B2_28E
ELSE IF (Q5B_28A EQ -4)
COMPUTE HRUSL2=-4
ELSE IF (Q5B_28B EQ -1 OR Q5B_28D EQ -1 OR Q5B_28B EQ -2 OR Q5B_28D EQ -2)
COMPUTE HRUSL2=-2
ELSE IF (Q5B_28B EQ 995 OR Q5B_28D EQ 995)
COMPUTE HRUSL2=995
ELSE IF (Q5B_28B EQ 1)
COMPUTE HRUSL2=Q5B_28C
ELSE IF (Q5B_28D EQ 1)
COMPUTE HRUSL2=Q5B_28E
ELSE IF (R(45405.) EQ -4)
COMPUTE HRUSL2=-4
ELSE IF (R(45406.) EQ -1 OR R(45408.) EQ -1 OR R(45406.) EQ -2 OR R(45408.) EQ -2)
COMPUTE HRUSL2=-2
ELSE IF (R(45406.) EQ 995 OR R(45408.) EQ 995)
COMPUTE HRUSL2=995
ELSE IF (R(45406.) EQ 1)
COMPUTE HRUSL2=Q5_28C
ELSE IF (R(45408.) EQ 1)
COMPUTE HRUSL2=Q5_28E
ELSE 
COMPUTE HRUSL2=-3
END IF 
/* the following lines create the var HRUSLT */
DO IF (R(45665.) EQ -4)
COMPUTE HRUSLT=-4
ELSE IF ((R(45666.) EQ -1 OR R(45667.) EQ -1 OR R(45666.) EQ -2 OR R(45667.) EQ -2) AND 
                   (Q5B2_28B EQ -1 OR Q5B2_28D EQ -1 OR Q5B2_28B EQ -2 OR Q5B2_28D EQ -2))
COMPUTE HRUSLT=-2
ELSE IF ((R(45666.) EQ 995 OR R(45667.) EQ 995) AND (Q5B2_28B EQ 995 OR Q5B2_28D EQ 995))
COMPUTE HRUSLT=995
ELSE IF ((R(45666.) EQ -1 OR R(45667.) EQ -1 OR R(45666.) EQ -2 OR R(45667.) EQ -2) AND 
                   (Q5B2_28B EQ 995 OR Q5B2_28D EQ 995))
COMPUTE HRUSLT=995
ELSE IF ((R(45666.) EQ 995 OR R(45667.) EQ 995) AND (Q5B2_28B EQ -1 OR Q5B2_28D EQ -1 OR 
                   Q5B2_28B EQ -2 OR Q5B2_28D EQ -2))
COMPUTE HRUSLT=995
ELSE IF ((R(45666.) EQ 995 OR R(45667.) EQ 995) AND Q5B2_27 NE 1)
COMPUTE HRUSLT=995
ELSE IF ((R(45666.) EQ -1 OR R(45667.) EQ -1 OR R(45666.) EQ -2 OR R(45667.) EQ -2) AND Q5B2_27 NE 1)
COMPUTE HRUSLT=-2
ELSE IF (R(45666.) EQ 1 AND (Q5B2_28B EQ -1 OR Q5B2_28B EQ -2 OR Q5B2_28B EQ 995 OR 
                   Q5B2_28D EQ -1 OR Q5B2_28D EQ -2 OR Q5B2_28D EQ 995))
COMPUTE HRUSLT=Q5B2_26B
ELSE IF (R(45667.) EQ 1 AND (Q5B2_28B EQ -1 OR Q5B2_28B EQ -2 OR Q5B2_28B EQ 995 OR 
                   Q5B2_28D EQ -1 OR Q5B2_28D EQ -2 OR Q5B2_28D EQ 995))
COMPUTE HRUSLT=Q5B2_26D
ELSE IF (Q5B2_28B EQ 1 AND (R(45666.) EQ -1 OR R(45666.) EQ -2 OR R(45666.) EQ 995 OR 
                   R(45667.) EQ -1 OR R(45667.) EQ -2 OR R(45667.) EQ 995))
COMPUTE HRUSLT=Q5B2_28C
ELSE IF (Q5B2_28D EQ 1 AND (R(45666.) EQ -1 OR R(45666.) EQ -2 OR R(45666.) EQ 995 OR 
                   R(45667.) EQ -1 OR R(45667.) EQ -2 OR R(45667.) EQ 995))
COMPUTE HRUSLT=Q5B2_28E
ELSE IF (R(45666.) EQ 1 AND Q5B2_27 NE 1)
COMPUTE HRUSLT=Q5B2_26B
ELSE IF (R(45667.) EQ 1 AND Q5B2_27 NE 1)
COMPUTE HRUSLT=Q5B2_26D
ELSE IF (R(45666.) EQ 1 AND Q5B2_28B EQ 1)
COMPUTE HRUSLT=Q5B2_26B+Q5B2_28C
ELSE IF (R(45666.) EQ 1 AND Q5B2_28D EQ 1)
COMPUTE HRUSLT=Q5B2_26B+Q5B2_28E
ELSE IF (R(45667.) EQ 1 AND Q5B2_28B EQ 1)
COMPUTE HRUSLT=Q5B2_26D+Q5B2_28C
ELSE IF (R(45667.) EQ 1 AND Q5B2_28D EQ 1)
COMPUTE HRUSLT=R(45667.)+Q5B2_28E
ELSE IF (R(45582.) EQ -4)
COMPUTE HRUSLT=-4
ELSE IF ((Q5B_26A EQ -1 OR R(45583.) EQ -1 OR Q5B_26A EQ -2 OR R(45583.) EQ -2) AND 
                   (Q5B_28B EQ -1 OR Q5B_28D EQ -1 OR Q5B_28B EQ -2 OR Q5B_28D EQ -2))
COMPUTE HRUSLT=-2
ELSE IF ((Q5B_26A EQ 995 OR R(45583.) EQ 995) AND (Q5B_28B EQ 995 OR Q5B_28D EQ 995))
COMPUTE HRUSLT=995
ELSE IF ((Q5B_26A EQ -1 OR R(45583.) EQ -1 OR Q5B_26A EQ -2 OR R(45583.) EQ -2) AND 
                   (Q5B_28B EQ 995 OR Q5B_28D EQ 995))
COMPUTE HRUSLT=995
ELSE IF ((Q5B_26A EQ 995 OR R(45583.) EQ 995) AND (Q5B_28B EQ -1 OR Q5B_28D EQ -1 OR 
                   Q5B_28B EQ -2 OR Q5B_28D EQ -2))
COMPUTE HRUSLT=995
ELSE IF ((Q5B_26A EQ 995 OR R(45583.) EQ 995) AND R(45585.) NE 1)
COMPUTE HRUSLT=995
ELSE IF ((Q5B_26A EQ -1 OR R(45583.) EQ -1 OR Q5B_26A EQ -2 OR R(45583.) EQ -2) AND R(45585.) NE 1)
COMPUTE HRUSLT=-2
ELSE IF (Q5B_26A EQ 1 AND (Q5B_28B EQ -1 OR Q5B_28B EQ -2 OR Q5B_28B EQ 995 OR 
                   Q5B_28D EQ -1 OR Q5B_28D EQ -2 OR Q5B_28D EQ 995))
COMPUTE HRUSLT=Q5B_26B
ELSE IF (R(45583.) EQ 1 AND (Q5B_28B EQ -1 OR Q5B_28B EQ -2 OR Q5B_28B EQ 995 OR 
                   Q5B_28D EQ -1 OR Q5B_28D EQ -2 OR Q5B_28D EQ 995))
COMPUTE HRUSLT=R(45584.)
ELSE IF (Q5B_28B EQ 1 AND (Q5B_26A EQ -1 OR Q5B_26A EQ -2 OR Q5B_26A EQ 995 OR 
                   R(45583.) EQ -1 OR R(45583.) EQ -2 OR R(45583.) EQ 995))
COMPUTE HRUSLT=Q5B_28C
ELSE IF (Q5B_28D EQ 1 AND (Q5B_26A EQ -1 OR Q5B_26A EQ -2 OR Q5B_26A EQ 995 OR 
                   R(45583.) EQ -1 OR R(45583.) EQ -2 OR R(45583.) EQ 995))
COMPUTE HRUSLT=Q5B_28E
ELSE IF (Q5B_26A EQ 1 AND R(45585.) NE 1)
COMPUTE HRUSLT=Q5B_26B
ELSE IF (R(45583.) EQ 1 AND R(45585.) NE 1)
COMPUTE HRUSLT=R(45584.)
ELSE IF (Q5B_26A EQ 1 AND Q5B_28B EQ 1)
COMPUTE HRUSLT=Q5B_26B+Q5B_28C
ELSE IF (Q5B_26A EQ 1 AND Q5B_28D EQ 1)
COMPUTE HRUSLT=Q5B_26B+Q5B_28E
ELSE IF (R(45583.) EQ 1 AND Q5B_28B EQ 1)
COMPUTE HRUSLT=R(45584.)+Q5B_28C
ELSE IF (R(45583.) EQ 1 AND Q5B_28D EQ 1)
COMPUTE HRUSLT=R(45583.)+Q5B_28E
ELSE IF (R(45399.) EQ -4)
COMPUTE HRUSLT=-4
ELSE IF ((R(45400.) EQ -1 OR R(45402.) EQ -1 OR R(45400.) EQ -2 OR R(45402.) EQ -2) AND 
                   (R(45406.) EQ -1 OR R(45408.) EQ -1 OR R(45406.) EQ -2 OR R(45408.) EQ -2))
COMPUTE HRUSLT=-2
ELSE IF ((R(45400.) EQ 995 OR R(45402.) EQ 995) AND (R(45406.) EQ 995 OR R(45408.) EQ 995))
COMPUTE HRUSLT=995
ELSE IF ((R(45400.) EQ -1 OR R(45402.) EQ -1 OR R(45400.) EQ -2 OR R(45402.) EQ -2) AND 
                   (R(45406.) EQ 995 OR R(45408.) EQ 995))
COMPUTE HRUSLT=995
ELSE IF ((R(45400.) EQ 995 OR R(45402.) EQ 995) AND (R(45406.) EQ -1 OR R(45408.) EQ -1 OR 
                   R(45406.) EQ -2 OR R(45408.) EQ -2))
COMPUTE HRUSLT=995
ELSE IF ((R(45400.) EQ 995 OR R(45402.) EQ 995) AND R(45404.) NE 1)
COMPUTE HRUSLT=995
ELSE IF ((R(45400.) EQ -1 OR R(45402.) EQ -1 OR R(45400.) EQ -2 OR R(45402.) EQ -2) AND R(45404.) NE 1)
COMPUTE HRUSLT=-2
ELSE IF (R(45400.) EQ 1 AND (R(45406.) EQ -1 OR R(45406.) EQ -2 OR R(45406.) EQ 995 OR 
                   R(45408.) EQ -1 OR R(45408.) EQ -2 OR R(45408.) EQ 995))
COMPUTE HRUSLT=R(45401.)
ELSE IF (R(45402.) EQ 1 AND (R(45406.) EQ -1 OR R(45406.) EQ -2 OR R(45406.) EQ 995 OR 
                   R(45408.) EQ -1 OR R(45408.) EQ -2 OR R(45408.) EQ 995))
COMPUTE HRUSLT=R(45403.)
ELSE IF (R(45406.) EQ 1 AND (R(45400.) EQ -1 OR R(45400.) EQ -2 OR R(45400.) EQ 995 OR 
                   R(45402.) EQ -1 OR R(45402.) EQ -2 OR R(45402.) EQ 995))
COMPUTE HRUSLT=R(45407.)
ELSE IF (R(45408.) EQ 1 AND (R(45400.) EQ -1 OR R(45400.) EQ -2 OR R(45400.) EQ 995 OR 
                   R(45402.) EQ -1 OR R(45402.) EQ -2 OR R(45402.) EQ 995))
COMPUTE HRUSLT=R(45409.)
ELSE IF (R(45400.) EQ 1 AND R(45404.) NE 1)
COMPUTE HRUSLT=R(45401.)
ELSE IF (R(45402.) EQ 1 AND R(45404.) NE 1)
COMPUTE HRUSLT=R(45403.)
ELSE IF (R(45400.) EQ 1 AND R(45406.) EQ 1)
COMPUTE HRUSLT=R(45401.)+R(45407.)
ELSE IF (R(45400.) EQ 1 AND R(45408.) EQ 1)
COMPUTE HRUSLT=R(45401.)+R(45409.)
ELSE IF (R(45402.) EQ 1 AND R(45406.) EQ 1)
COMPUTE HRUSLT=R(45403.)+R(45407.)
ELSE IF (R(45402.) EQ 1 AND R(45408.) EQ 1)
COMPUTE HRUSLT=R(45402.)+R(45409.)
ELSE 
COMPUTE HRUSLT=-3
END IF
/* the following lines create the var HRFTPT */
DO IF (Q5B2_30C EQ -4)
COMPUTE HRFTPT=-4
ELSE IF (Q5B2_30F EQ -1 OR Q5B2_30G EQ -1 OR Q5B2_30H EQ -1 OR Q5B2_30I EQ -1)
COMPUTE HRFTPT=-1
ELSE IF (Q5B2_30F EQ -2 OR Q5B2_30G EQ -2 OR Q5B2_30H EQ -2 OR Q5B2_30I EQ -2)
COMPUTE HRFTPT=-2
ELSE IF (Q5B2_30F NE -4)
COMPUTE HRFTPT=Q5B2_30F
ELSE IF (Q5B2_30G NE -4)
COMPUTE HRFTPT=Q5B2_30G
ELSE IF (Q5B2_30H NE -4)
COMPUTE HRFTPT=Q5B2_30H
ELSE IF (Q5B2_30I NE -4)
COMPUTE HRFTPT=Q5B2_30I
ELSE IF (Q5B_30C EQ -4)
COMPUTE HRFTPT=-4
ELSE IF (Q5B_30F EQ -1 OR Q5B_30G EQ -1 OR Q5B_30H EQ -1 OR Q5B_30I EQ -1)
COMPUTE HRFTPT=-1
ELSE IF (Q5B_30F EQ -2 OR Q5B_30G EQ -2 OR Q5B_30H EQ -2 OR Q5B_30I EQ -2)
COMPUTE HRFTPT=-2
ELSE IF (Q5B_30F NE -4)
COMPUTE HRFTPT=Q5B_30F
ELSE IF (Q5B_30G NE -4)
COMPUTE HRFTPT=Q5B_30G
ELSE IF (Q5B_30H NE -4)
COMPUTE HRFTPT=Q5B_30H
ELSE IF (Q5B_30I NE -4)
COMPUTE HRFTPT=Q5B_30I
ELSE IF (R(45420.) EQ -4)
COMPUTE HRFTPT=-4
ELSE IF (Q5_30F EQ -1 OR R(45423.) EQ -1 OR R(45424.) EQ -1 OR R(45425.) EQ -1)
COMPUTE HRFTPT=-1
ELSE IF (Q5_30F EQ -2 OR R(45423.) EQ -2 OR R(45424.) EQ -2 OR R(45425.) EQ -2)
COMPUTE HRFTPT=-2
ELSE IF (Q5_30F NE -4)
COMPUTE HRFTPT=Q5_30F
ELSE IF (R(45423.) NE -4)
COMPUTE HRFTPT=R(45423.)
ELSE IF (R(45424.) NE -4)
COMPUTE HRFTPT=R(45424.)
ELSE IF (R(45425.) NE -4)
COMPUTE HRFTPT=R(45425.)
ELSE
COMPUTE HRFTPT=-3
END IF 
/* the following lines create the var HRWANT */
DO IF (Q5B2_33 NE -4)
COMPUTE HRWANT=Q5B2_33
ELSE IF (Q5B_33 NE -4)
COMPUTE HRWANT=Q5B_33
ELSE 
COMPUTE HRWANT=R(45436.)
END IF
/* the following lines create the var HRRSN1 */
DO IF (Q5B2_34 NE -4)
COMPUTE HRRSN1=Q5B2_34
ELSE IF (Q5B_34 NE -4)
COMPUTE HRRSN1=Q5B_34
ELSE
COMPUTE HRRSN1=R(45437.)
END IF
/* the following lines create the var HRCK7 */
COMPUTE HRCK7=-4
DO IF ((BUS2 EQ 2 OR BUS2 EQ -2 OR BUS2 EQ -1) AND (HRACT1 LT 15 OR HRACT1 EQ -2))
COMPUTE HRCK7=1
ELSE IF ((BUS2 EQ 2 OR BUS2 EQ -2 OR BUS2 EQ -1) AND HRACT1 GE 15)
COMPUTE HRCK7=2
ELSE IF ((HRUSLT GE 35 OR HRFTPT EQ 1) AND HRACTT LT 35 AND (HRACT1 NE -1 OR 
                   HRACT1 NE -2 OR HRACT2 NE -1 OR HRACT2 NE -2)) 
COMPUTE HRCK7=3
ELSE IF (HRWANT EQ 1 AND HRACTT LT 35 AND (HRRSN1 EQ 1 OR HRRSN1 EQ 2 OR HRRSN1 EQ 3))
COMPUTE HRCK7=4
ELSE 
COMPUTE HRCK7=5
END IF 
/* the following lines create the var ABSOT */
DO IF (HRACT1 EQ 0 AND HRACT2 EQ 0)
COMPUTE ABSOT=1
ELSE
COMPUTE ABSOT=0
END IF
/* the following lines create the var HRCK6 */
COMPUTE HRCK6=-4
DO IF ((HRACT1 EQ 0 AND HRACT2 EQ 0) AND (BUS2 EQ 2 OR BUS2 EQ -1 OR BUS2 EQ -2))
COMPUTE HRCK6=1
ELSE IF (ABSOT EQ 1)
COMPUTE HRCK6=2
ELSE 
COMPUTE HRCK6=3
END IF
/* the following lines create the var WK */
COMPUTE WK=-4
DO IF (R(45364.) NE -4)
COMPUTE WK=R(45364.)
ELSE IF (R(45365.) NE -4)
COMPUTE WK=R(45365.)
END IF
/* the following lines create the var RETOT */
DO IF (WK EQ 3)
COMPUTE RETOT=1
ELSE
COMPUTE RETOT=0
END IF
/* the following lines rename the vars */
COMPUTE BUS1=R(45367.)
COMPUTE RET1=R(45374.)
COMPUTE IO1COW=R(45360.)
COMPUTE NLFACT=R(45737.)
/* the following lines create additional variables */
DO IF (Q5B2_22 NE -4)
COMPUTE ABSPD=Q5B2_22
ELSE IF (R(45577.) NE -4)
COMPUTE ABSPD=R(45577.)
ELSE
COMPUTE ABSPD=R(45393.)
END IF
DO IF (Q5B2_65 NE -4)
COMPUTE LKAVL=Q5B2_65
ELSE IF (R(45647.) NE -4)
COMPUTE LKAVL=R(45647.)
ELSE
COMPUTE LKAVL=R(45539.)
END IF
DO IF (Q5B2_51 NE -4)
COMPUTE LAYAVL=Q5B2_51
ELSE IF (Q5B_51 NE -4)
COMPUTE LAYAVL=Q5B_51
ELSE
COMPUTE LAYAVL=R(45470.)
END IF
DO IF (Q5B2_66 NE -4)
COMPUTE LKAVR=Q5B2_66
ELSE IF (Q5B_66 NE -4)
COMPUTE LKAVR=Q5B_66
ELSE
COMPUTE LKAVR=R(45540.)
END IF
DO IF (Q5B2_52 NE -4)
COMPUTE LAYAVR=Q5B2_52
ELSE IF (Q5B_52 NE -4)
COMPUTE LAYAVR=Q5B_52
ELSE
COMPUTE LAYAVR=R(45471.)
END IF
DO IF (Q5B2_60 NE -4)
COMPUTE LK=Q5B2_60
ELSE IF (R(45600.) NE -4)
COMPUTE LK=R(45600.)
ELSE
COMPUTE LK=R(45480.)
END IF
DO IF (Q5B2_11 NE -4)
COMPUTE DIS1=Q5B2_11
ELSE IF (R(45562.) NE -4)
COMPUTE DIS1=R(45562.)
ELSE
COMPUTE DIS1=R(45375.)
END IF
DO IF (Q5B2_12 NE -4)
COMPUTE DIS2=Q5B2_12
ELSE IF (R(45563.) NE -4)
COMPUTE DIS2=R(45563.)
ELSE
COMPUTE DIS2=R(45376.)
END IF
/* the following lines create the var DWWNTO */
DO IF (RET1 EQ 1)
COMPUTE DWWNTO=1
ELSE IF (Q5B2_78 EQ 1)
COMPUTE DWWNTO=1
ELSE IF (Q5B2_78 EQ 0)
COMPUTE DWWNTO=2
ELSE IF (Q5B2_78 EQ -2)
COMPUTE DWWNTO=-2
ELSE IF (Q5B2_78 EQ -1)
COMPUTE DWWNTO=-1
ELSE IF (Q5B2_78 EQ 3)
COMPUTE DWWNTO=3
ELSE IF (Q5B2_78 EQ 4)
COMPUTE DWWNTO=4
ELSE IF (R(45662.) EQ 1)
COMPUTE DWWNTO=1
ELSE IF (R(45662.) EQ 0)
COMPUTE DWWNTO=2
ELSE IF (R(45662.) EQ -2)
COMPUTE DWWNTO=-2
ELSE IF (R(45662.) EQ -1)
COMPUTE DWWNTO=-1
ELSE IF (R(45662.) EQ 3)
COMPUTE DWWNTO=3
ELSE IF (R(45662.) EQ 4)
COMPUTE DWWNTO=4
ELSE IF (R(45558.) EQ 1)
COMPUTE DWWNTO=1
ELSE IF (R(45558.) EQ 0)
COMPUTE DWWNTO=2
ELSE IF (R(45558.) EQ -2)
COMPUTE DWWNTO=-2
ELSE IF (R(45558.) EQ -1)
COMPUTE DWWNTO=-1
ELSE IF (R(45558.) EQ 3)
COMPUTE DWWNTO=3
ELSE IF (R(45558.) EQ 4)
COMPUTE DWWNTO=4
ELSE
COMPUTE DWWNTO=-3
END IF
/* the following lines create the var DIS */
DO IF (Q5_9A4 EQ -4)
COMPUTE DIS=-4
ELSE IF (Q5_9D EQ -1 OR Q5_9E EQ -1 OR Q5_9F EQ -1 OR Q5_9G EQ -1) OR (Q5_9D EQ -2 OR 
                   Q5_9E EQ -2 OR Q5_9F EQ -2 OR Q5_9G EQ -2)
COMPUTE DIS=-2
ELSE IF (Q5_9A4 EQ 1 AND Q5_9D EQ 1)
COMPUTE DIS=1
ELSE IF (Q5_9D EQ 0)
COMPUTE DIS=0
ELSE IF (Q5_9A5 EQ 1 AND Q5_9E EQ 1)
COMPUTE DIS=1
ELSE IF (Q5_9E EQ 0)
COMPUTE DIS=0
ELSE IF (Q5_9A6 EQ 1 AND Q5_9F EQ 1)
COMPUTE DIS=1
ELSE IF (Q5_9F EQ 0)
COMPUTE DIS=0
ELSE IF (Q5_9A7 EQ 1 AND Q5_9G EQ 1)
COMPUTE DIS=1
ELSE IF (Q5_9G EQ 0)
COMPUTE DIS=0
ELSE 
COMPUTE DIS=-3
END IF
/* the following lines create IO1COW */
DO IF (R(45360.) EQ 1)
COMPUTE IO1COW=8
ELSE
COMPUTE IO1COW=0
END IF
/* the following lines create the ESR var approximating MLR */
DO IF ((WK EQ 1 AND (HRCK6 EQ 3 OR HRCK6 EQ -4 OR HRCK6 EQ 99 OR HRCK6 EQ 999)) OR 
                   (BUS1 EQ 1 AND (HRCK7 EQ 2 OR HRCK7 EQ 3 OR HRCK7 EQ 4 OR HRCK7 EQ 5 OR 
                   HRCK7 EQ -4)))
COMPUTE ESR=1
ELSE IF (ABSPD EQ 1 OR ABSPD EQ 0 OR ABSPD EQ -1 OR ABSPD EQ -2)
COMPUTE ESR=2
ELSE IF ((LAYAVL EQ 1 OR LAYAVL EQ -1 OR LAYAVL EQ -2) OR LAYAVR EQ 1)
COMPUTE ESR=3
ELSE IF ((LKAVL EQ 1 OR LKAVL EQ -1 OR LKAVL EQ -2) OR (LKAVR EQ 1 OR LKAVR EQ 2))
COMPUTE ESR=4
ELSE IF ((WK EQ 3 AND AGE GE 50 AND RET1 EQ 1 AND LK EQ 1 AND LKAVL EQ 0 AND 
                   (LKAVR EQ 3 OR LKAVR EQ 4 OR LKAVR EQ -1 OR LKAVR EQ -2)) OR             (RET1 EQ 0 OR 
                   LK EQ 3 OR DWWNTO EQ 3) OR NLFACT EQ 5 OR RETOT EQ 1) 
COMPUTE ESR=5
ELSE IF (DIS1 EQ 1 OR DIS2 EQ 1 OR DIS EQ 1)
COMPUTE ESR=6
ELSE IF (R(45360.) EQ 1)
COMPUTE ESR=8
ELSE
COMPUTE ESR=7
END IF 
         ESR(6)=R(15199.);
         ESR(7)=R(18906.);
         ESR(8)=R(22577.);
         ESR(9)=R(24451.);
         ESR(10)=R(28706.);
         ESR(11)=R(30743.);
         ESR(12)=R(34010.);
         ESR(13)=R(36564.);
         ESR(14)=R(40069.);
         ESR(15)=R(44180.);
         ESR(16)=R(50810.);
         ESRC(6)=R(15199.01);
         ESRC(7)=R(18906.01);
         ESRC(8)=R(22577.01);
         ESRC(9)=R(24451.01);
         ESRC(10)=R(28707.);
         ESRC(11)=R(30744.);
         ESRC(12)=R(34011.);
         EARC(13)=R(36565.);
         EARC(14)=R(40070.);
         ESRC(15)=R(44181.);
    ESRC(16)=R(50811.);

/* The programming for the new 1996 ESR variables is done in SPSS */
/* the following lines create the var AGE */
COMPUTE AGE=37
/* the following lines construct the var HRACT1 */
DO IF (Q5B2_40A EQ -4)
COMPUTE HRACT1=-4
ELSE IF (Q5B2_41A EQ -1 OR Q5B2_41B EQ -1 OR Q5B2_41C EQ -1 OR Q5B2_41D EQ -1 OR 
                   Q5B2_41A EQ -2 OR Q5B2_41B EQ -2 OR Q5B2_41C EQ -2 OR Q5B2_41D EQ -2)
COMPUTE HRACT1=-2
ELSE IF (Q5B2_41A EQ 995 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ 995 OR Q5B2_41D EQ 995)
COMPUTE HRACT1=995
ELSE IF (Q5B2_40B EQ 1 AND Q5B2_41A NE -4)
COMPUTE HRACT1=Q5B2_41A
ELSE IF (Q5B2_40C EQ 1 AND Q5B2_41B NE -4)
COMPUTE HRACT1=Q5B2_41B
ELSE IF (Q5B2_40D EQ 1 AND Q5B2_41C NE -4)
COMPUTE HRACT1=Q5B2_41C
ELSE IF (Q5B2_40E EQ 1 OR Q5B2_40E EQ 0)
COMPUTE HRACT1=Q5B2_41D
ELSE IF (Q5B_40A EQ -4)
COMPUTE HRACT1=-4
ELSE IF (Q5B_41A EQ -1 OR Q5B_41B EQ -1 OR Q5B_41C EQ -1 OR Q5B_41D EQ -1 OR Q5B_41A EQ -2 OR 
                   Q5B_41B EQ -2 OR Q5B_41C EQ -2 OR Q5B_41D EQ -2)
COMPUTE HRACT1=-2
ELSE IF (Q5B_41A EQ 995 OR Q5B_41B EQ 995 OR Q5B_41C EQ 995 OR Q5B_41D EQ 995)
COMPUTE HRACT1=995
ELSE IF (Q5BCK_40B EQ 1 AND Q5B_41A NE -4)
COMPUTE HRACT1=Q5B_41A
ELSE IF (Q5BCK_40C EQ 1 AND Q5B_41B NE -4)
COMPUTE HRACT1=Q5B_41B
ELSE IF (Q5BCK_40D EQ 1 AND Q5B_41C NE -4)
COMPUTE HRACT1=Q5B_41C
ELSE IF (Q5B_40E EQ 1 OR Q5B_40E EQ 0)
COMPUTE HRACT1=Q5B_41D
ELSE IF (R(52404.) EQ -4)
COMPUTE HRACT1=-4
ELSE IF (Q5_41A EQ -1 OR Q5_41B EQ -1 OR Q5_41C EQ -1 OR Q5_41D EQ -1 OR Q5_41A EQ -2 OR 
                   Q5_41B EQ -2 OR Q5_41C EQ -2 OR Q5_41D EQ -2)
COMPUTE HRACT1=-2
ELSE IF (Q5_41A EQ 995 OR Q5_41B EQ 995 OR Q5_41C EQ 995 OR Q5_41D EQ 995)
COMPUTE HRACT1=995
ELSE IF (Q5_40B EQ 1 AND Q5_41A NE -4)
COMPUTE HRACT1= Q5_41A
ELSE IF (Q5_40C EQ 1 AND Q5_41B NE -4)
COMPUTE HRACT1= Q5_41B
ELSE IF (Q5_40D EQ 1 AND Q5_41C NE -4)
COMPUTE HRACT1= Q5_41C
ELSE IF (Q5_40E EQ 1 OR Q5_4OE EQ 0)
COMPUTE HRACT1= Q5_41D
ELSE
COMPUTE HRACT1=-3
END IF
/* the following lines construct the var HRACT2 */
DO IF (Q5B2_42 EQ -4 OR Q5B2_42 EQ 0)
COMPUTE HRACT2=-4
ELSE IF (Q5B2_43A EQ -1 OR Q5B2_43B EQ -1OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2)
COMPUTE HRACT2=-2
ELSE IF (Q5B2_43A EQ 995 OR Q5B2_43B EQ 995)
COMPUTE HRACT2=995
ELSE IF (Q5B2_43 EQ 1)
COMPUTE HRACT2=Q5B2_43A
ELSE IF (Q5B2_42 EQ 1 AND Q5B2_43 EQ 0)
COMPUTE HRACT2=Q5B2_43B
ELSE IF (Q5B_42 EQ -4 OR Q5B_42 EQ 0)
COMPUTE HRACT2=-4
ELSE IF (Q5B_43A EQ -1 OR Q5B_43B EQ -1 OR Q5B_43A EQ -2 OR Q5B_43B EQ -2)
COMPUTE HRACT2=-2
ELSE IF (Q5B_43A EQ 995 OR Q5B_43B EQ 995)
COMPUTE HRACT2=995
ELSE IF (Q5B_43 EQ 1)
COMPUTE HRACT2=Q5B_43A
ELSE IF (Q5B_42 EQ 1 AND Q5B_43 EQ 0)
COMPUTE HRACT2=Q5B_43B
ELSE IF (Q5_42 EQ -4 OR Q5_42 EQ 0)
COMPUTE HRACT2=-4
ELSE IF (Q5_43A EQ -1 OR Q5_43B EQ -1 OR Q5_43A EQ -2 OR Q5_43B EQ -2)
COMPUTE HRACT2=-2
ELSE IF (Q5_43A EQ 995 OR Q5_43B EQ 995)
COMPUTE HRACT2=995
ELSE IF (Q5_43 EQ 1)
COMPUTE HRACT2= Q5_43A
ELSE IF (Q5_42 EQ 1 AND Q5_43 EQ 0)
COMPUTE HRACT2= Q5_43B
ELSE 
COMPUTE HRACT2=-3
END IF
/* the following lines create the var HRACTT */
DO IF (Q5B2_40A EQ -4)
COMPUTE HRACTT=-4
ELSE IF ((Q5B2_41A EQ -1 OR Q5B2_41B EQ -1 OR Q5B2_41C EQ -1 OR Q5B2_41D EQ -1 OR 
                   Q5B2_41A EQ -2 OR Q5B2_41B EQ -2 OR Q5B2_41C EQ -2 OR Q5B2_41D EQ -2) AND 
                   (Q5B2_43A EQ -1 OR Q5B2_43B EQ -1 OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2))
COMPUTE HRACTT=-2
ELSE IF ((Q5B2_41A EQ 995 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ 995 OR Q5B2_41D EQ 995) AND 
                   (Q5B2_43A EQ 995 OR Q5B2_43B EQ 995))
COMPUTE HRACTT=995
ELSE IF ((Q5B2_41A EQ -1 OR Q5B2_41B EQ -1 OR Q5B2_41C EQ -1 OR Q5B2_41D EQ -1 OR 
                   Q5B2_41A EQ -2 OR Q5B2_41B EQ -2 OR Q5B2_41C EQ -2 OR Q5B2_41D EQ -2) AND 
                   (Q5B2_43A EQ 995 OR Q5B2_43B EQ 995))
COMPUTE HRACTT=995
ELSE IF ((Q5B2_41A EQ 995 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ 995 OR Q5B2_41D EQ 995 OR 
                   Q5B2_41A EQ 995 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ 995 OR Q5B2_41D EQ 995) AND 
                   (Q5B2_43A EQ -1 OR Q5B2_43B EQ -1 OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2))
COMPUTE HRACTT=995
ELSE IF ((Q5B2_41A NE -4 AND Q5B2_41A NE -1 AND Q5B2_41A NE -2 AND Q5B2_41A NE 995) AND 
                   (Q5B2_43A EQ -1 OR Q5B2_43B EQ -1 OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2 OR 
                   Q5B2_43A EQ 995 OR Q5B2_43B EQ 995))
COMPUTE HRACTT=Q5B2_41A
ELSE IF ((Q5B2_41B NE -4 AND Q5B2_41B NE -1 AND Q5B2_41B NE -2 AND Q5B2_41B NE 995) AND 
                   (Q5B2_43A EQ -1 OR Q5B2_43B EQ -1 OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2 OR 
                   Q5B2_43A EQ 995 OR Q5B2_43B EQ 995))
COMPUTE HRACTT=Q5B2_41B
ELSE IF ((Q5B2_41C NE -4 AND Q5B2_41C NE -1 AND Q5B2_41C NE -2 AND Q5B2_41C NE 995) AND 
                   (Q5B2_43A EQ -1 OR Q5B2_43B EQ -1 OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2 OR 
                   Q5B2_43A EQ 995 OR Q5B2_43B EQ 995))
COMPUTE HRACTT=Q5B2_41C
ELSE IF ((Q5B2_41D NE -4 AND Q5B2_41D NE -1 AND Q5B2_41D NE -2 AND Q5B2_41D NE 995) AND 
                   (Q5B2_43A EQ -1 OR Q5B2_43B EQ -1 OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2 OR 
                   Q5B2_43A EQ 995 OR Q5B2_43B EQ 995))
COMPUTE HRACTT=Q5B2_41D
ELSE IF ((Q5B2_43A NE -4 AND Q5B2_43A NE -1 AND Q5B2_43A NE -2 AND Q5B2_43A NE 995) AND 
                   (Q5B2_41A EQ -1 OR Q5B2_41A EQ -2 OR Q5B2_41A EQ 995 OR Q5B2_41B EQ -1 OR 
                   Q5B2_41B EQ -2 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ -1 OR Q5B2_41C EQ -2 OR 
                   Q5B2_41C EQ 995 OR Q5B2_41D EQ -1 OR Q5B2_41D EQ -2 OR Q5B2_41D EQ 995))
COMPUTE HRACTT=Q5B2_43A
ELSE IF ((Q5B2_43B NE -4 AND Q5B2_43B NE -1 AND Q5B2_43B NE -2 AND Q5B2_43B NE 995) AND 
                   (Q5B2_41A EQ -1 OR Q5B2_41A EQ -2 OR Q5B2_41A EQ 995 OR Q5B2_41B EQ -1 OR 
                   Q5B2_41B EQ -2 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ -1 OR Q5B2_41C EQ -2 OR 
                   Q5B2_41C EQ 995 OR Q5B2_41D EQ -1 OR Q5B2_41D EQ -2 OR Q5B2_41D EQ 995))
COMPUTE HRACTT=Q5B2_43B
ELSE IF ((Q5B2_41A NE -4 AND Q5B2_41A NE -1 AND Q5B2_41A NE -2 AND Q5B2_41A NE 995) AND 
                   (Q5B2_43A NE -1 AND Q5B2_43A NE -2 AND Q5B2_43A NE 995 AND Q5B2_43A NE -4)) 
COMPUTE HRACTT=Q5B2_41A+Q5B2_43A
ELSE IF ((Q5B2_41A NE -4 AND Q5B2_41A NE -1 AND Q5B2_41A NE -2 AND Q5B2_41A NE 995) AND 
                   (Q5B2_43B NE -1 AND Q5B2_43B NE -2 AND Q5B2_43B NE 995 AND Q5B2_43B NE -4)) 
COMPUTE HRACTT=Q5B2_41A+Q5B2_43B
ELSE IF ((Q5B2_41B NE -4 AND Q5B2_41B NE -1 AND Q5B2_41B NE -2 AND Q5B2_41B NE 995) AND 
                   (Q5B2_43A NE -1 AND Q5B2_43A NE -2 AND Q5B2_43A NE 995 AND Q5B2_43A NE -4)) 
COMPUTE HRACTT=Q5B2_41B+Q5B2_43A
ELSE IF ((Q5B2_41B NE -4 AND Q5B2_41B NE -1 AND Q5B2_41B NE -2 AND Q5B2_41B NE 995) AND 
                   (Q5B2_43B NE -1 AND Q5B2_43B NE -2 AND Q5B2_43B NE 995 AND Q5B2_43B NE -4)) 
COMPUTE HRACTT=Q5B2_41B+Q5B2_43B
ELSE IF ((Q5B2_41C NE -4 AND Q5B2_41C NE -1 AND Q5B2_41C NE -2 AND Q5B2_41C NE 995) AND 
                   (Q5B2_43A NE -1 AND Q5B2_43A NE -2 AND Q5B2_43A NE 995 AND Q5B2_43A NE -4)) 
COMPUTE HRACTT=Q5B2_41C+Q5B2_43A
ELSE IF ((Q5B2_41C NE -4 AND Q5B2_41C NE -1 AND Q5B2_41C NE -2 AND Q5B2_41C NE 995) AND 
                   (Q5B2_43B NE -1 AND Q5B2_43B NE -2 AND Q5B2_43B NE 995 AND Q5B2_43B NE -4)) 
COMPUTE HRACTT=Q5B2_41C+Q5B2_43B
ELSE IF ((Q5B2_41D NE -4 AND Q5B2_41D NE -1 AND Q5B2_41D NE -2 AND Q5B2_41D NE 995) AND 
                   (Q5B2_43A NE -1 AND Q5B2_43A NE -2 AND Q5B2_43A NE 995 AND Q5B2_43A NE -4)) 
COMPUTE HRACTT=Q5B2_41D+Q5B2_43A
ELSE IF ((Q5B2_41D NE -4 AND Q5B2_41D NE -1 AND Q5B2_41D NE -2 AND Q5B2_41D NE 995) AND 
                   (Q5B2_43B NE -1 AND Q5B2_43B NE -2 AND Q5B2_43B NE 995 AND Q5B2_43B NE -4)) 
COMPUTE HRACTT=Q5B2_41D+Q5B2_43B
ELSE IF ((Q5B2_41A NE -4 AND Q5B2_41A NE -1 AND Q5B2_41A NE -2 AND Q5B2_41A NE 995) AND 
                   Q5B2_43A EQ -4 AND Q5B2_43B EQ -4)
COMPUTE HRACTT=Q5B2_41A
ELSE IF ((Q5B2_41B NE -4 AND Q5B2_41B NE -1 AND Q5B2_41B NE -2 AND Q5B2_41B NE 995) AND 
                   Q5B2_43A EQ -4 AND Q5B2_43B EQ -4)
COMPUTE HRACTT=Q5B2_41B
ELSE IF ((Q5B2_41C NE -4 AND Q5B2_41C NE -1 AND Q5B2_41C NE -2 AND Q5B2_41C NE 995) AND 
                   Q5B2_43A EQ -4 AND Q5B2_43B EQ -4)
COMPUTE HRACTT=Q5B2_41C
ELSE IF ((Q5B2_41D NE -4 AND Q5B2_41D NE -1 AND Q5B2_41D NE -2 AND Q5B2_41D NE 995) AND 
                   Q5B2_43A EQ -4 AND Q5B2_43B EQ -4)
COMPUTE HRACTT=Q5B2_41D
ELSE IF ((Q5B2_41A EQ -1 OR Q5B2_41A EQ -2 OR Q5B2_41B EQ -1 OR Q5B2_41B EQ -2 OR 
                   Q5B2_41C EQ -1 OR Q5B2_41C EQ -2 OR Q5B2_41D EQ -1 OR Q5B2_41D EQ -2) AND 
                   Q5B2_43A EQ -4 AND Q5B2_43B EQ -4)
COMPUTE HRACTT=-2
ELSE IF ((Q5B2_41A EQ 995 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ 995 OR Q5B2_41D EQ 995) AND 
                   Q5B2_43A EQ -4 AND Q5B2_43B EQ -4)
COMPUTE HRACTT=995
ELSE IF (Q5B_40A EQ -4)
COMPUTE HRACTT=-4
ELSE IF ((Q5B_41A EQ -1 OR Q5B_41B EQ -1 OR Q5B_41C EQ -1 OR Q5B_41D EQ -1 OR Q5B_41A EQ -2 OR 
                   Q5B_41B EQ -2 OR Q5B_41C EQ -2 OR Q5B_41D EQ -2) AND (Q5B_43A EQ -1 OR 
                   Q5B_43B EQ -1 OR Q5B_43A EQ -2 OR Q5B_43B EQ -2))
COMPUTE HRACTT=-2
ELSE IF ((Q5B_41A EQ 995 OR Q5B_41B EQ 995 OR Q5B_41C EQ 995 OR Q5B_41D EQ 995) AND 
                   (Q5B_43A EQ 995 OR Q5B_43B EQ 995))
COMPUTE HRACTT=995
ELSE IF ((Q5B_41A EQ -1 OR Q5B_41B EQ -1 OR Q5B_41C EQ -1 OR Q5B_41D EQ -1 OR Q5B_41A EQ -2 OR 
                   Q5B_41B EQ -2 OR Q5B_41C EQ -2 OR Q5B_41D EQ -2) AND (Q5B_43A EQ 995 OR 
                   Q5B_43B EQ 995))
COMPUTE HRACTT=995
ELSE IF ((Q5B_41A EQ 995 OR Q5B_41B EQ 995 OR Q5B_41C EQ 995 OR Q5B_41D EQ 995 OR 
                   Q5B_41A EQ 995 OR Q5B_41B EQ 995 OR Q5B_41C EQ 995 OR Q5B_41D EQ 995) AND 
                   (Q5B_43A EQ -1 OR Q5B_43B EQ -1 OR Q5B_43A EQ -2 OR Q5B_43B EQ -2))
COMPUTE HRACTT=995
ELSE IF ((Q5B_41A NE -4 AND Q5B_41A NE -1 AND Q5B_41A NE -2 AND Q5B_41A NE 995) AND 
                   (Q5B_43A EQ -1 OR Q5B_43B EQ -1 OR Q5B_43A EQ -2 OR Q5B_43B EQ -2 OR Q5B_43A EQ 995 OR 
                   Q5B_43B EQ 995))
COMPUTE HRACTT=Q5B_41A
ELSE IF ((Q5B_41B NE -4 AND Q5B_41B NE -1 AND Q5B_41B NE -2 AND Q5B_41B NE 995) AND 
                   (Q5B_43A EQ -1 OR Q5B_43B EQ -1 OR Q5B_43A EQ -2 OR Q5B_43B EQ -2 OR Q5B_43A EQ 995 OR 
                   Q5B_43B EQ 995))
COMPUTE HRACTT=Q5B_41B
ELSE IF ((Q5B_41C NE -4 AND Q5B_41C NE -1 AND Q5B_41C NE -2 AND Q5B_41C NE 995) AND 
                   (Q5B_43A EQ -1 OR Q5B_43B EQ -1 OR Q5B_43A EQ -2 OR Q5B_43B EQ -2 OR Q5B_43A EQ 995 OR
                   Q5B_43B EQ 995))
COMPUTE HRACTT=Q5B_41C
ELSE IF ((Q5B_41D NE -4 AND Q5B_41D NE -1 AND Q5B_41D NE -2 AND Q5B_41D NE 995) AND 
                   (Q5B_43A EQ -1 OR Q5B_43B EQ -1 OR Q5B_43A EQ -2 OR Q5B_43B EQ -2 OR Q5B_43A EQ 995 OR 
                   Q5B_43B EQ 995))
COMPUTE HRACTT=Q5B_41D
ELSE IF ((Q5B_43A NE -4 AND Q5B_43A NE -1 AND Q5B_43A NE -2 AND Q5B_43A NE 995) AND 
                   (Q5B_41A EQ -1 OR Q5B_41A EQ -2 OR Q5B_41A EQ 995 OR Q5B_41B EQ -1 OR Q5B_41B EQ -2 OR 
                   Q5B_41B EQ 995 OR Q5B_41C EQ -1 OR Q5B_41C EQ -2 OR Q5B_41C EQ 995 OR 
                   Q5B_41D EQ -1 OR Q5B_41D EQ -2 OR Q5B_41D EQ 995))
COMPUTE HRACTT=Q5B_43A
ELSE IF ((Q5B_43B NE -4 AND Q5B_43B NE -1 AND Q5B_43B NE -2 AND Q5B_43B NE 995) AND 
                   (Q5B_41A EQ -1 OR Q5B_41A EQ -2 OR Q5B_41A EQ 995 OR Q5B_41B EQ -1 OR Q5B_41B EQ -2 OR 
                   Q5B_41B EQ 995 OR Q5B_41C EQ -1 OR Q5B_41C EQ -2 OR Q5B_41C EQ 995 OR 
                   Q5B_41D EQ -1 OR Q5B_41D EQ -2 OR Q5B_41D EQ 995))
COMPUTE HRACTT=Q5B_43B
ELSE IF ((Q5B_41A NE -4 AND Q5B_41A NE -1 AND Q5B_41A NE -2 AND Q5B_41A NE 995) AND 
                   (Q5B_43A NE -1 AND Q5B_43A NE -2 AND Q5B_43A NE 995 AND Q5B_43A NE -4)) 
COMPUTE HRACTT=Q5B_41A+Q5B_43A
ELSE IF ((Q5B_41A NE -4 AND Q5B_41A NE -1 AND Q5B_41A NE -2 AND Q5B_41A NE 995) AND 
                   (Q5B_43B NE -1 AND Q5B_43B NE -2 AND Q5B_43B NE 995 AND Q5B_43B NE -4)) 
COMPUTE HRACTT=Q5B_41A+Q5B_43B
ELSE IF ((Q5B_41B NE -4 AND Q5B_41B NE -1 AND Q5B_41B NE -2 AND Q5B_41B NE 995) AND 
                   (Q5B_43A NE -1 AND Q5B_43A NE -2 AND Q5B_43A NE 995 AND Q5B_43A NE -4)) 
COMPUTE HRACTT=Q5B_41B+Q5B_43A
ELSE IF ((Q5B_41B NE -4 AND Q5B_41B NE -1 AND Q5B_41B NE -2 AND Q5B_41B NE 995) AND 
                   (Q5B_43B NE -1 AND Q5B_43B NE -2 AND Q5B_43B NE 995 AND Q5B_43B NE -4)) 
COMPUTE HRACTT=Q5B_41B+Q5B_43B
ELSE IF ((Q5B_41C NE -4 AND Q5B_41C NE -1 AND Q5B_41C NE -2 AND Q5B_41C NE 995) AND 
                   (Q5B_43A NE -1 AND Q5B_43A NE -2 AND Q5B_43A NE 995 AND Q5B_43A NE -4)) 
COMPUTE HRACTT=Q5B_41C+Q5B_43A
ELSE IF ((Q5B_41C NE -4 AND Q5B_41C NE -1 AND Q5B_41C NE -2 AND Q5B_41C NE 995) AND 
                   (Q5B_43B NE -1 AND Q5B_43B NE -2 AND Q5B_43B NE 995 AND Q5B_43B NE -4)) 
COMPUTE HRACTT=Q5B_41C+Q5B_43B
ELSE IF ((Q5B_41D NE -4 AND Q5B_41D NE -1 AND Q5B_41D NE -2 AND Q5B_41D NE 995) AND 
                   (Q5B_43A NE -1 AND Q5B_43A NE -2 AND Q5B_43A NE 995 AND Q5B_43A NE -4)) 
COMPUTE HRACTT=Q5B_41D+Q5B_43A
ELSE IF ((Q5B_41D NE -4 AND Q5B_41D NE -1 AND Q5B_41D NE -2 AND Q5B_41D NE 995) AND 
                   (Q5B_43B NE -1 AND Q5B_43B NE -2 AND Q5B_43B NE 995 AND Q5B_43B NE -4)) 
COMPUTE HRACTT=Q5B_41D+Q5B_43B
ELSE IF ((Q5B_41A NE -4 AND Q5B_41A NE -1 AND Q5B_41A NE -2 AND Q5B_41A NE 995) AND 
                   Q5B_43A EQ -4 AND Q5B_43B EQ -4)
COMPUTE HRACTT=Q5B_41A
ELSE IF ((Q5B_41B NE -4 AND Q5B_41B NE -1 AND Q5B_41B NE -2 AND Q5B_41B NE 995) AND 
                   Q5B_43A EQ -4 AND Q5B_43B EQ -4)
COMPUTE HRACTT=Q5B_41B
ELSE IF ((Q5B_41C NE -4 AND Q5B_41C NE -1 AND Q5B_41C NE -2 AND Q5B_41C NE 995) AND 
                   Q5B_43A EQ -4 AND Q5B_43B EQ -4)
COMPUTE HRACTT=Q5B_41C
ELSE IF ((Q5B_41D NE -4 AND Q5B_41D NE -1 AND Q5B_41D NE -2 AND Q5B_41D NE 995) AND 
                   Q5B_43A EQ -4 AND Q5B_43B EQ -4)
COMPUTE HRACTT=Q5B_41D
ELSE IF ((Q5B_41A EQ -1 OR Q5B_41A EQ -2 OR Q5B_41B EQ -1 OR Q5B_41B EQ -2 OR Q5B_41C EQ -1 OR
                   Q5B_41C EQ -2 OR Q5B_41D EQ -1 OR Q5B_41D EQ -2) AND Q5B_43A EQ -4 AND Q5B_43B EQ -4)
COMPUTE HRACTT=-2
ELSE IF ((Q5B_41A EQ 995 OR Q5B_41B EQ 995 OR Q5B_41C EQ 995 OR Q5B_41D EQ 995) AND 
                   Q5B_43A EQ -4 AND Q5B_43B EQ -4)
COMPUTE HRACTT=995
ELSE IF (R(52404.) EQ -4)
COMPUTE HRACTT=-4
ELSE IF ((Q5_41A EQ -1 OR Q5_41B EQ -1 OR Q5_41C EQ -1 OR Q5_41D EQ -1 OR Q5_41A EQ -2 OR 
                   Q5_41B EQ -2 OR Q5_41C EQ -2 OR Q5_41D EQ -2) AND (Q5_43A EQ -1 OR 
                   Q5_43B EQ -1 OR Q5_43A EQ -2 OR Q5_43B EQ -2))
COMPUTE HRACTT=-2
ELSE IF ((Q5_41A EQ 995 OR Q5_41B EQ 995 OR Q5_41C EQ 995 OR Q5_41D EQ 995) AND 
                   (Q5_43A EQ 995 OR Q5_43B EQ 995))
COMPUTE HRACTT=995
ELSE IF ((Q5_41A EQ -1 OR Q5_41B EQ -1 OR Q5_41C EQ -1 OR Q5_41D EQ -1 OR Q5_41A EQ -2 OR 
                   Q5_41B EQ -2 OR Q5_41C EQ -2 OR Q5_41D EQ -2) AND (Q5_43A EQ 995 OR 
                   Q5_43B EQ 995))
COMPUTE HRACTT=995
ELSE IF ((Q5_41A EQ 995 OR Q5_41B EQ 995 OR Q5_41C EQ 995 OR Q5_41D EQ 995 OR 
                   Q5_41A EQ 995 OR Q5_41B EQ 995 OR Q5_41C EQ 995 OR Q5_41D EQ 995) AND 
                   (Q5_43A EQ -1 OR Q5_43B EQ -1 OR Q5_43A EQ -2 OR Q5_43B EQ -2))
COMPUTE HRACTT=995
ELSE IF ((Q5_41A NE -4 AND Q5_41A NE -1 AND Q5_41A NE -2 AND Q5_41A NE 995) AND 
                   (Q5_43A EQ -1 OR Q5_43B EQ -1 OR Q5_43A EQ -2 OR Q5_43B EQ -2 OR 
                   Q5_43A EQ 995 OR Q5_43B EQ 995))
COMPUTE HRACTT= Q5_41A
ELSE IF ((Q5_41B NE -4 AND Q5_41B NE -1 AND Q5_41B NE -2 AND Q5_41B NE 995) AND 
                   (Q5_43A EQ -1 OR Q5_43B EQ -1 OR Q5_43A EQ -2 OR Q5_43B EQ -2 OR 
                   Q5_43A EQ 995 OR Q5_43B EQ 995))
COMPUTE HRACTT= Q5_41B
ELSE IF ((Q5_41C NE -4 AND Q5_41C NE -1 AND Q5_41C NE -2 AND Q5_41C NE 995) AND 
                   (Q5_43A EQ -1 OR Q5_43B EQ -1 OR Q5_43A EQ -2 OR Q5_43B EQ -2 OR 
                   Q5_43A EQ 995 OR Q5_43B EQ 995))
COMPUTE HRACTT= Q5_41C
ELSE IF ((Q5_41D NE -4 AND Q5_41D NE -1 AND Q5_41D NE -2 AND Q5_41D NE 995) AND 
                   (Q5_43A EQ -1 OR Q5_43B EQ -1 OR Q5_43A EQ -2 OR Q5_43B EQ -2 OR 
                   Q5_43A EQ 995 OR Q5_43B EQ 995))
COMPUTE HRACTT= Q5_41D
ELSE IF ((Q5_43A NE -4 AND Q5_43A NE -1 AND Q5_43A NE -2 AND Q5_43A NE 995) AND 
                   (Q5_41A EQ -1 OR Q5_41A EQ -2 OR Q5_41A EQ 995 OR Q5_41B EQ -1 OR 
                   Q5_41B EQ -2 OR Q5_41B EQ 995 OR Q5_41C EQ -1 OR Q5_41C EQ -2 OR 
                   Q5_41C EQ 995 OR Q5_41D EQ -1 OR Q5_41D EQ -2 OR Q5_41D EQ 995))
COMPUTE HRACTT= Q5_43A
ELSE IF ((Q5_43B NE -4 AND Q5_43B NE -1 AND Q5_43B NE -2 AND Q5_43B NE 995) AND 
                   Q5_41A EQ -1 OR Q5_41A EQ -2 OR Q5_41A EQ 995 OR Q5_41B EQ -1 OR Q5_41B EQ -2 OR 
                   Q5_41B EQ 995 OR Q5_41C EQ -1 OR Q5_41C EQ -2 OR Q5_41C EQ 995 OR 
                   Q5_41D EQ -1 OR Q5_41D EQ -2 OR Q5_41D EQ 995))
COMPUTE HRACTT= Q5_43B
ELSE IF ((Q5_41A NE -4 AND Q5_41A NE -1 AND Q5_41A NE -2 AND Q5_41A NE 995) AND 
                   (Q5_43A NE -1 AND Q5_43A NE -2 AND Q5_43A NE 995 AND Q5_43A NE -4)) 
COMPUTE HRACTT= Q5_41A+Q5_43A
ELSE IF ((Q5_41A NE -4 AND Q5_41A NE -1 AND Q5_41A NE -2 AND Q5_41A NE 995) AND 
                   (Q5_43B NE -1 AND Q5_43B NE -2 AND Q5_43B NE 995 AND Q5_43B NE -4)) 
COMPUTE HRACTT= Q5_41A+Q5_43B
ELSE IF ((Q5_41B NE -4 AND Q5_41B NE -1 AND Q5_41B NE -2 AND Q5_41B NE 995) AND 
                   (Q5_43A NE -1 AND Q5_43A NE -2 AND Q5_43A NE 995 AND Q5_43A NE -4)) 
COMPUTE HRACTT= Q5_41B+ Q5_43A
ELSE IF ((Q5_41B NE -4 AND Q5_41B NE -1 AND Q5_41B NE -2 AND Q5_41B NE 995) AND 
                   (Q5_43B NE -1 AND Q5_43B NE -2 AND Q5_43B NE 995 AND Q5_43B NE -4)) 
COMPUTE HRACTT= Q5_41B+ Q5_43B
ELSE IF ((Q5_41C NE -4 AND Q5_41C NE -1 AND Q5_41C NE -2 AND Q5_41C NE 995) AND 
                   (Q5_43A NE -1 AND Q5_43A NE -2 AND Q5_43A NE 995 AND Q5_43A NE -4)) 
COMPUTE HRACTT= Q5_41C+ Q5_43A
ELSE IF ((Q5_41C NE -4 AND Q5_41C NE -1 AND Q5_41C NE -2 AND Q5_41C NE 995) AND 
                   (Q5_43B NE -1 AND Q5_43B NE -2 AND Q5_43B NE 995 AND Q5_43B NE -4)) 
COMPUTE HRACTT= Q5_41C Q5_43B
ELSE IF ((Q5_41D NE -4 AND Q5_41D NE -1 AND Q5_41D NE -2 AND Q5_41D NE 995) AND 
                   (Q5_43A NE -1 AND Q5_43A NE -2 AND Q5_43A NE 995 AND Q5_43A NE -4)) 
COMPUTE HRACTT= Q5_41D+ Q5_43A
ELSE IF ((Q5_41D NE -4 AND Q5_41D NE -1 AND Q5_41D NE -2 AND Q5_41D NE 995) AND 
                   (Q5_43B NE -1 AND Q5_43B NE -2 AND Q5_43B NE 995 AND Q5_43B NE -4)) 
COMPUTE HRACTT= Q5_41D+ Q5_43B
ELSE IF ((Q5_41A NE -4 AND Q5_41A NE -1 AND Q5_41A NE -2 AND Q5_41A NE 995) AND 
                   Q5_43A EQ -4 AND Q5_43B EQ -4)
COMPUTE HRACTT= Q5_41A
ELSE IF ((Q5_41B NE -4 AND Q5_41B NE -1 AND Q5_41B NE -2 AND Q5_41B NE 995) AND 
                   Q5_43A EQ -4 AND Q5_43B EQ -4)
COMPUTE HRACTT= Q5_41B
ELSE IF ((Q5_41C NE -4 AND Q5_41C NE -1 AND Q5_41C NE -2 AND Q5_41C NE 995) AND 
                   Q5_43A EQ -4 AND Q5_43B EQ -4)
COMPUTE HRACTT= Q5_41C
ELSE IF ((Q5_41D NE -4 AND Q5_41D NE -1 AND Q5_41D NE -2 AND Q5_41D NE 995) AND 
                   Q5_43A EQ -4 AND Q5_43B EQ -4)
COMPUTE HRACTT= Q5_41D
ELSE IF ((Q5_41A EQ -1 OR Q5_41A EQ -2 OR Q5_41B EQ -1 OR Q5_41B EQ -2 OR Q5_41C EQ -1 OR
                   Q5_41C EQ -2 OR Q5_41D EQ -1 OR Q5_41D EQ -2) AND Q5_43A EQ -4 AND Q5_43B EQ -4)
COMPUTE HRACTT=-2
ELSE IF ((Q5_41A EQ 995 OR Q5_41B EQ 995 OR Q5_41C EQ 995 OR Q5_41D EQ 995) AND 
                   Q5_43A EQ -4 AND Q5_43B EQ -4)
COMPUTE HRACTT=995
ELSE 
COMPUTE HRACTT=-3
END IF
/* the following lines creates the var BUS2 */
DO IF (R(52322.) EQ -4)
COMPUTE BUS2=-4
ELSE IF (R(52322.) EQ -1)
COMPUTE BUS2=-1
ELSE IF (R(52322.) EQ -2)
COMPUTE BUS2=-2
ELSE IF (R(52323.) EQ -1 OR R(52324.) EQ -1)
COMPUTE BUS2=-1
ELSE IF (R(52323.) EQ -2 OR R(52324.) EQ -2)
COMPUTE BUS2=-2
ELSE IF (R(52323.) EQ 1 OR R(52324.) EQ 1)
COMPUTE BUS2=1
ELSE IF (R(52324.) EQ 0)
COMPUTE BUS2=2  /* this should normally be 0 */
ELSE 
COMPUTE BUS2=-3
END IF
/* the following lines create the var HRUSL1 */
DO IF (Q5BCK2_25 EQ -4)
COMPUTE HRUSL1=-4
ELSE IF (Q5BCK2_26A EQ -1 OR Q5BCK2_26C EQ -1 OR Q5BCK2_26A EQ -2 OR Q5BCK2_26C EQ -2)
COMPUTE HRUSL1=-2
ELSE IF (Q5BCK2_26A EQ 995 OR Q5BCK2_26C EQ 995)
COMPUTE HRUSL1=995
ELSE IF (Q5BCK2_26A EQ 1)
COMPUTE HRUSL1=Q5B2_26B
ELSE IF (Q5BCK2_26C EQ 1)
COMPUTE HRUSL1=Q5B2_26D
ELSE IF (R(52486.) EQ -4)
COMPUTE HRUSL1=-4
ELSE IF (Q5B_26A EQ -1 OR R(52487.) EQ -1 OR Q5B_26A EQ -2 OR R(52487.) EQ -2)
COMPUTE HRUSL1=-2
ELSE IF (Q5B_26A EQ 995 OR R(52487.) EQ 995)
COMPUTE HRUSL1=995
ELSE IF (Q5B_26A EQ 1)
COMPUTE HRUSL1=Q5B_26B
ELSE IF (R(52487.) EQ 1)
COMPUTE HRUSL1=R(52488.)
ELSE IF (R(52360.) EQ -4)
COMPUTE HRUSL1=-4
ELSE IF (R(52361.) EQ -1 OR R(52363.) EQ -1 OR R(52361.) EQ -2 OR R(52363.) EQ -2)
COMPUTE HRUSL1=-2
ELSE IF (R(52361.) EQ 995 OR R(52363.) EQ 995)
COMPUTE HRUSL1=995
ELSE IF (R(52361.) EQ 1)
COMPUTE HRUSL1=R(52362.)
ELSE IF (R(52363.) EQ 1)
COMPUTE HRUSL1=R(52364.)
ELSE 
COMPUTE HRUSL1=-3
END IF
/* the following lines create the var HRUSL2 */
DO IF (Q5B2_28A EQ -4)
COMPUTE HRUSL2=-4
ELSE IF (Q5B2_28B EQ -1 OR Q5B2_28D EQ -1 OR Q5B2_28B EQ -2 OR Q5B2_28D EQ -2)
COMPUTE HRUSL2=-2
ELSE IF (Q5B2_28B EQ 995 OR Q5B2_28D EQ 995)
COMPUTE HRUSL2=995
ELSE IF (Q5B2_28B EQ 1)
COMPUTE HRUSL2=Q5B2_28C
ELSE IF (Q5B2_28D EQ 1)
COMPUTE HRUSL2=Q5B2_28E
ELSE IF (Q5B_28A EQ -4)
COMPUTE HRUSL2=-4
ELSE IF (Q5B_28B EQ -1 OR Q5B_28D EQ -1 OR Q5B_28B EQ -2 OR Q5B_28D EQ -2)
COMPUTE HRUSL2=-2
ELSE IF (Q5B_28B EQ 995 OR Q5B_28D EQ 995)
COMPUTE HRUSL2=995
ELSE IF (Q5B_28B EQ 1)
COMPUTE HRUSL2=Q5B_28C
ELSE IF (Q5B_28D EQ 1)
COMPUTE HRUSL2=Q5B_28E
ELSE IF (R(52366.) EQ -4)
COMPUTE HRUSL2=-4
ELSE IF (R(52367.) EQ -1 OR R(52369.) EQ -1 OR R(52367.) EQ -2 OR R(52369.) EQ -2)
COMPUTE HRUSL2=-2
ELSE IF (R(52367.) EQ 995 OR R(52369.) EQ 995)
COMPUTE HRUSL2=995
ELSE IF (R(52367.) EQ 1)
COMPUTE HRUSL2=Q5_28C
ELSE IF (R(52369.) EQ 1)
COMPUTE HRUSL2=Q5_28E
ELSE 
COMPUTE HRUSL2=-3
END IF 
/* the following lines create the var HRUSLT */
DO IF (Q5BCK2_25 EQ -4)
COMPUTE HRUSLT=-4
ELSE IF ((Q5BCK2_26A EQ -1 OR Q5BCK2_26C EQ -1 OR Q5BCK2_26A EQ -2 OR Q5BCK2_26C EQ -2) AND 
                   (Q5B2_28B EQ -1 OR Q5B2_28D EQ -1 OR Q5B2_28B EQ -2 OR Q5B2_28D EQ -2))
COMPUTE HRUSLT=-2
ELSE IF ((Q5BCK2_26A EQ 995 OR Q5BCK2_26C EQ 995) AND (Q5B2_28B EQ 995 OR Q5B2_28D EQ 995))
COMPUTE HRUSLT=995
ELSE IF ((Q5BCK2_26A EQ -1 OR Q5BCK2_26C EQ -1 OR Q5BCK2_26A EQ -2 OR Q5BCK2_26C EQ -2) AND 
                   (Q5B2_28B EQ 995 OR Q5B2_28D EQ 995))
COMPUTE HRUSLT=995
ELSE IF ((Q5BCK2_26A EQ 995 OR Q5BCK2_26C EQ 995) AND (Q5B2_28B EQ -1 OR Q5B2_28D EQ -1 OR 
                   Q5B2_28B EQ -2 OR Q5B2_28D EQ -2))
COMPUTE HRUSLT=995
ELSE IF ((Q5BCK2_26A EQ 995 OR Q5BCK2_26C EQ 995) AND Q5B2_27 NE 1)
COMPUTE HRUSLT=995
ELSE IF ((Q5BCK2_26A EQ -1 OR Q5BCK2_26C EQ -1 OR Q5BCK2_26A EQ -2 OR Q5BCK2_26C EQ -2) AND Q5B2_27 NE 1)
COMPUTE HRUSLT=-2
ELSE IF (Q5BCK2_26A EQ 1 AND (Q5B2_28B EQ -1 OR Q5B2_28B EQ -2 OR Q5B2_28B EQ 995 OR 
                   Q5B2_28D EQ -1 OR Q5B2_28D EQ -2 OR Q5B2_28D EQ 995))
COMPUTE HRUSLT=Q5B2_26B
ELSE IF (Q5BCK2_26C EQ 1 AND (Q5B2_28B EQ -1 OR Q5B2_28B EQ -2 OR Q5B2_28B EQ 995 OR 
                   Q5B2_28D EQ -1 OR Q5B2_28D EQ -2 OR Q5B2_28D EQ 995))
COMPUTE HRUSLT=Q5B2_26D
ELSE IF (Q5B2_28B EQ 1 AND (Q5BCK2_26A EQ -1 OR Q5BCK2_26A EQ -2 OR Q5BCK2_26A EQ 995 OR 
                   Q5BCK2_26C EQ -1 OR Q5BCK2_26C EQ -2 OR Q5BCK2_26C EQ 995))
COMPUTE HRUSLT=Q5B2_28C
ELSE IF (Q5B2_28D EQ 1 AND (Q5BCK2_26A EQ -1 OR Q5BCK2_26A EQ -2 OR Q5BCK2_26A EQ 995 OR 
                   Q5BCK2_26C EQ -1 OR Q5BCK2_26C EQ -2 OR Q5BCK2_26C EQ 995))
COMPUTE HRUSLT=Q5B2_28E
ELSE IF (Q5BCK2_26A EQ 1 AND Q5B2_27 NE 1)
COMPUTE HRUSLT=Q5B2_26B
ELSE IF (Q5BCK2_26C EQ 1 AND Q5B2_27 NE 1)
COMPUTE HRUSLT=Q5B2_26D
ELSE IF (Q5BCK2_26A EQ 1 AND Q5B2_28B EQ 1)
COMPUTE HRUSLT=Q5B2_26B+Q5B2_28C
ELSE IF (Q5BCK2_26A EQ 1 AND Q5B2_28D EQ 1)
COMPUTE HRUSLT=Q5B2_26B+Q5B2_28E
ELSE IF (Q5BCK2_26C EQ 1 AND Q5B2_28B EQ 1)
COMPUTE HRUSLT=Q5B2_26D+Q5B2_28C
ELSE IF (Q5BCK2_26C EQ 1 AND Q5B2_28D EQ 1)
COMPUTE HRUSLT= Q5BCK2_26C+Q5B2_28E
ELSE IF (R(52486.) EQ -4)
COMPUTE HRUSLT=-4
ELSE IF ((Q5B_26A EQ -1 OR R(52487.) EQ -1 OR Q5B_26A EQ -2 OR R(52487.) EQ -2) AND 
                   (Q5B_28B EQ -1 OR Q5B_28D EQ -1 OR Q5B_28B EQ -2 OR Q5B_28D EQ -2))
COMPUTE HRUSLT=-2
ELSE IF ((Q5B_26A EQ 995 OR R(52487.) EQ 995) AND (Q5B_28B EQ 995 OR Q5B_28D EQ 995))
COMPUTE HRUSLT=995
ELSE IF ((Q5B_26A EQ -1 OR R(52487.) EQ -1 OR Q5B_26A EQ -2 OR R(52489.) EQ -2) AND 
                   (Q5B_28B EQ 995 OR Q5B_28D EQ 995))
COMPUTE HRUSLT=995
ELSE IF ((Q5B_26A EQ 995 OR R(52487.) EQ 995) AND (Q5B_28B EQ -1 OR Q5B_28D EQ -1 OR 
                   Q5B_28B EQ -2 OR Q5B_28D EQ -2))
COMPUTE HRUSLT=995
ELSE IF ((Q5B_26A EQ 995 OR R(52487.) EQ 995) AND R(52489.) NE 1)
COMPUTE HRUSLT=995
ELSE IF ((Q5B_26A EQ -1 OR R(52487.) EQ -1 OR Q5B_26A EQ -2 OR R(52487.) EQ -2) AND R(52489.) NE 1)
COMPUTE HRUSLT=-2
ELSE IF (Q5B_26A EQ 1 AND (Q5B_28B EQ -1 OR Q5B_28B EQ -2 OR Q5B_28B EQ 995 OR 
                   Q5B_28D EQ -1 OR Q5B_28D EQ -2 OR Q5B_28D EQ 995))
COMPUTE HRUSLT=Q5B_26B
ELSE IF (R(52487.) EQ 1 AND (Q5B_28B EQ -1 OR Q5B_28B EQ -2 OR Q5B_28B EQ 995 OR 
                   Q5B_28D EQ -1 OR Q5B_28D EQ -2 OR Q5B_28D EQ 995))
COMPUTE HRUSLT=R(52488.)
ELSE IF (Q5B_28B EQ 1 AND (Q5B_26A EQ -1 OR Q5B_26A EQ -2 OR Q5B_26A EQ 995 OR 
                   R(52487.) EQ -1 OR R(52487.) EQ -2 OR R(52487.) EQ 995))
COMPUTE HRUSLT=Q5B_28C
ELSE IF (Q5B_28D EQ 1 AND (Q5B_26A EQ -1 OR Q5B_26A EQ -2 OR Q5B_26A EQ 995 OR 
                   R(52487.) EQ -1 OR R(52487.) EQ -2 OR R(52487.) EQ 995))
COMPUTE HRUSLT=Q5B_28E
ELSE IF (Q5B_26A EQ 1 AND R(52489.) NE 1)
COMPUTE HRUSLT=Q5B_26B
ELSE IF (R(52487.) EQ 1 AND R(52489.) NE 1)
COMPUTE HRUSLT=R(52488.)
ELSE IF (Q5B_26A EQ 1 AND Q5B_28B EQ 1)
COMPUTE HRUSLT=Q5B_26B+Q5B_28C
ELSE IF (Q5B_26A EQ 1 AND Q5B_28D EQ 1)
COMPUTE HRUSLT=Q5B_26B+Q5B_28E
ELSE IF (R(52487.) EQ 1 AND Q5B_28B EQ 1)
COMPUTE HRUSLT=R(52488.)+Q5B_28C
ELSE IF (R(52487.) EQ 1 AND Q5B_28D EQ 1)
COMPUTE HRUSLT=R(52487.)+Q5B_28E
ELSE IF (R(52360.) EQ -4)
COMPUTE HRUSLT=-4
ELSE IF ((R(52361.) EQ -1 OR R(52363.) EQ -1 OR R(52361.) EQ -2 OR R(52363.) EQ -2) AND 
                   (R(52367.) EQ -1 OR R(52369.) EQ -1 OR R(52367.) EQ -2 OR R(52369.) EQ -2))
COMPUTE HRUSLT=-2
ELSE IF ((R(52361.) EQ 995 OR R(52363.) EQ 995) AND (R(52367.) EQ 995 OR R(52369.) EQ 995))
COMPUTE HRUSLT=995
ELSE IF ((R(52361.) EQ -1 OR R(52363.) EQ -1 OR R(52361.) EQ -2 OR R(52363.) EQ -2) AND 
                   (R(52367.) EQ 995 OR R(52369.) EQ 995))
COMPUTE HRUSLT=995
ELSE IF ((R(52361.) EQ 995 OR R(52363.) EQ 995) AND (R(52367.) EQ -1 OR R(52369.) EQ -1 OR 
                   R(52367.) EQ -2 OR R(52369.) EQ -2))
COMPUTE HRUSLT=995
ELSE IF ((R(52361.) EQ 995 OR R(52363.) EQ 995) AND R(52365.) NE 1)
COMPUTE HRUSLT=995
ELSE IF ((R(52361.) EQ -1 OR R(52363.) EQ -1 OR R(52361.) EQ -2 OR R(52363.) EQ -2) AND R(52365.) NE 1)
COMPUTE HRUSLT=-2
ELSE IF (R(52361.) EQ 1 AND (R(52367.) EQ -1 OR R(52367.) EQ -2 OR R(52367.) EQ 995 OR 
                   R(52369.) EQ -1 OR R(52369.) EQ -2 OR R(52369.) EQ 995))
COMPUTE HRUSLT=R(52362.)
ELSE IF (R(52363.) EQ 1 AND (R(52367.) EQ -1 OR R(52367.) EQ -2 OR R(52367.) EQ 995 OR 
                   R(52369.) EQ -1 OR R(52369.) EQ -2 OR R(52369.) EQ 995))
COMPUTE HRUSLT=R(52364.)
ELSE IF (R(52367.) EQ 1 AND (R(52361.) EQ -1 OR R(52361.) EQ -2 OR R(52361.) EQ 995 OR 
                   R(52363.) EQ -1 OR R(52363.) EQ -2 OR R(52363.) EQ 995))
COMPUTE HRUSLT=R(52368.)
ELSE IF (R(52369.) EQ 1 AND (R(52361.) EQ -1 OR R(52361.) EQ -2 OR R(52361.) EQ 995 OR 
                   R(52363.) EQ -1 OR R(52363.) EQ -2 OR R(52363.) EQ 995))
COMPUTE HRUSLT=R(52370.)
ELSE IF (R(52361.) EQ 1 AND R(52365.) NE 1)
COMPUTE HRUSLT=R(52362.)
ELSE IF (R(52363.) EQ 1 AND R(52365.) NE 1)
COMPUTE HRUSLT=R(52364.)
ELSE IF (R(52361.) EQ 1 AND R(52367.) EQ 1)
COMPUTE HRUSLT=R(52362.)+R(52368.)
ELSE IF (R(52361.) EQ 1 AND R(52369.) EQ 1)
COMPUTE HRUSLT=R(52362.)+R(52370.)
ELSE IF (R(52363.) EQ 1 AND R(52367.) EQ 1)
COMPUTE HRUSLT=R(52364.)+R(52368.)
ELSE IF (R(52363.) EQ 1 AND R(52369.) EQ 1)
COMPUTE HRUSLT=R(52363.)+R(52370.)
ELSE 
COMPUTE HRUSLT=-3
END IF
/* the following lines create the var HRFTPT */
DO IF (Q5B2_30C EQ -4)
COMPUTE HRFTPT=-4
ELSE IF (Q5B2_30F EQ -1 OR Q5B2_30G EQ -1 OR Q5B2_30H EQ -1 OR Q5B2_30I EQ -1)
COMPUTE HRFTPT=-1
ELSE IF (Q5B2_30F EQ -2 OR Q5B2_30G EQ -2 OR Q5B2_30H EQ -2 OR Q5B2_30I EQ -2)
COMPUTE HRFTPT=-2
ELSE IF (Q5B2_30F NE -4)
COMPUTE HRFTPT=Q5B2_30F
ELSE IF (Q5B2_30G NE -4)
COMPUTE HRFTPT=Q5B2_30G
ELSE IF (Q5B2_30H NE -4)
COMPUTE HRFTPT=Q5B2_30H
ELSE IF (Q5B2_30I NE -4)
COMPUTE HRFTPT=Q5B2_30I
ELSE IF (Q5B_30C EQ -4)
COMPUTE HRFTPT=-4
ELSE IF (Q5B_30F EQ -1 OR Q5B_30G EQ -1 OR Q5B_30H EQ -1 OR Q5B_30I EQ -1)
COMPUTE HRFTPT=-1
ELSE IF (Q5B_30F EQ -2 OR Q5B_30G EQ -2 OR Q5B_30H EQ -2 OR Q5B_30I EQ -2)
COMPUTE HRFTPT=-2
ELSE IF (Q5B_30F NE -4)
COMPUTE HRFTPT=Q5B_30F
ELSE IF (Q5B_30G NE -4)
COMPUTE HRFTPT=Q5B_30G
ELSE IF (Q5B_30H NE -4)
COMPUTE HRFTPT=Q5B_30H
ELSE IF (Q5B_30I NE -4)
COMPUTE HRFTPT=Q5B_30I
ELSE IF (R(52381.) EQ -4)
COMPUTE HRFTPT=-4
ELSE IF (Q5_30F EQ -1 OR R(52384.) EQ -1 OR R(52385.) EQ -1 OR R(52386.) EQ -1)
COMPUTE HRFTPT=-1
ELSE IF (Q5_30F EQ -2 OR R(52384.) EQ -2 OR R(52385.) EQ -2 OR R(52386.) EQ -2)
COMPUTE HRFTPT=-2
ELSE IF (Q5_30F NE -4)
COMPUTE HRFTPT=Q5_30F
ELSE IF (R(52384.) NE -4)
COMPUTE HRFTPT=R(52384.)
ELSE IF (R(52385.) NE -4)
COMPUTE HRFTPT=R(52385.)
ELSE IF (R(52386.) NE -4)
COMPUTE HRFTPT=R(52386.)
ELSE
COMPUTE HRFTPT=-3
END IF 
/* the following lines create the var HRWANT */
DO IF (Q5B2_33 NE -4)
COMPUTE HRWANT=Q5B2_33
ELSE IF (Q5B_33 NE -4)
COMPUTE HRWANT=Q5B_33
ELSE 
COMPUTE HRWANT=R(52397.)
END IF
/* the following lines create the var HRRSN1 */
DO IF (Q5B2_34 NE -4)
COMPUTE HRRSN1=Q5B2_34
ELSE IF (Q5B_34 NE -4)
COMPUTE HRRSN1=Q5B_34
ELSE
COMPUTE HRRSN1=R(52398.)
END IF
/* the following lines create the var HRCK7 */
COMPUTE HRCK7=-4
DO IF ((BUS2 EQ 2 OR BUS2 EQ -2 OR BUS2 EQ -1) AND (HRACT1 LT 15 OR HRACT1 EQ -2))
COMPUTE HRCK7=1
ELSE IF ((BUS2 EQ 2 OR BUS2 EQ -2 OR BUS2 EQ -1) AND HRACT1 GE 15)
COMPUTE HRCK7=2
ELSE IF ((HRUSLT GE 35 OR HRFTPT EQ 1) AND HRACTT LT 35 AND (HRACT1 NE -1 OR 
                   HRACT1 NE -2 OR HRACT2 NE -1 OR HRACT2 NE -2)) 
COMPUTE HRCK7=3
ELSE IF (HRWANT EQ 1 AND HRACTT LT 35 AND (HRRSN1 EQ 1 OR HRRSN1 EQ 2 OR HRRSN1 EQ 3))
COMPUTE HRCK7=4
ELSE 
COMPUTE HRCK7=5
END IF 
/* the following lines create the var ABSOT */
DO IF (HRACT1 EQ 0 AND HRACT2 EQ 0)
COMPUTE ABSOT=1
ELSE
COMPUTE ABSOT=0
END IF
/* the following lines create the var HRCK6 */
COMPUTE HRCK6=-4
DO IF ((HRACT1 EQ 0 AND HRACT2 EQ 0) AND (BUS2 EQ 2 OR BUS2 EQ -1 OR BUS2 EQ -2))
COMPUTE HRCK6=1
ELSE IF (ABSOT EQ 1)
COMPUTE HRCK6=2
ELSE 
COMPUTE HRCK6=3
END IF
/* the following lines create the var WK */
COMPUTE WK=-4
DO IF (R(52318.) NE -4)
COMPUTE WK=R(52318.)
ELSE IF (R(52319.) NE -4)
COMPUTE WK=R(52319.)
END IF
/* the following lines create the var RETOT */
DO IF (WK EQ 3)
COMPUTE RETOT=1
ELSE
COMPUTE RETOT=0
END IF
/* the following lines rename the vars */
COMPUTE BUS1=R(52321.)
COMPUTE RET1=R(52335.)
COMPUTE IO1COW=R(52314.)
COMPUTE NLFACT=R(52578.)
/* the following lines create additional variables */
DO IF (Q5B2_22 NE -4)
COMPUTE ABSPD=Q5B2_22
ELSE IF (R(52481.) NE -4)
COMPUTE ABSPD=R(52481.)
ELSE
COMPUTE ABSPD=R(52354.)
END IF
DO IF (Q5B2_65 NE -4)
COMPUTE LKAVL=Q5B2_65
ELSE IF (R(52515.) NE -4)
COMPUTE LKAVL=R(52515.)
ELSE
COMPUTE LKAVL=R(52437.)
END IF
DO IF (Q5B2_51 NE -4)
COMPUTE LAYAVL=Q5B2_51
ELSE IF (Q5B_51 NE -4)
COMPUTE LAYAVL=Q5B_51
ELSE
COMPUTE LAYAVL=R(52410.)
END IF
DO IF (Q5B2_66 NE -4)
COMPUTE LKAVR=Q5B2_66
ELSE IF (Q5B_66 NE -4)
COMPUTE LKAVR=Q5B_66
ELSE
COMPUTE LKAVR=R(45540.)
END IF
DO IF (Q5B2_52 NE -4)
COMPUTE LAYAVR=Q5B2_52
ELSE IF (Q5B_52 NE -4)
COMPUTE LAYAVR=Q5B_52
ELSE
COMPUTE LAYAVR=R(52411.)
END IF
DO IF (Q5B2_60 NE -4)
COMPUTE LK=Q5B2_60
ELSE IF (R(52503.) NE -4)
COMPUTE LK=R(52503.)
ELSE
COMPUTE LK=R(52420.)
END IF
DO IF (Q5B2_11 NE -4)
COMPUTE DIS1=Q5B2_11
ELSE IF (R(52455.) NE -4)
COMPUTE DIS1=R(52455.)
ELSE
COMPUTE DIS1=R(52336.)
END IF
DO IF (Q5B2_12 NE -4)
COMPUTE DIS2=Q5B2_12
ELSE IF (R(52456.) NE -4)
COMPUTE DIS2=R(52456.)
ELSE
COMPUTE DIS2=R(52337.)
END IF
/* the following lines create the var DWWNTO */
DO IF (RET1 EQ 1)
COMPUTE DWWNTO=1
ELSE IF (Q5B2_78 EQ 1)
COMPUTE DWWNTO=1
ELSE IF (Q5B2_78 EQ 0)
COMPUTE DWWNTO=2
ELSE IF (Q5B2_78 EQ -2)
COMPUTE DWWNTO=-2
ELSE IF (Q5B2_78 EQ -1)
COMPUTE DWWNTO=-1
ELSE IF (Q5B2_78 EQ 3)
COMPUTE DWWNTO=3
ELSE IF (Q5B2_78 EQ 4)
COMPUTE DWWNTO=4
ELSE IF (Q5BCK_78 EQ 1)
COMPUTE DWWNTO=1
ELSE IF (Q5BCK_78 EQ 0)
COMPUTE DWWNTO=2
ELSE IF (Q5BCK_78 EQ -2)
COMPUTE DWWNTO=-2
ELSE IF (Q5BCK_78 EQ -1)
COMPUTE DWWNTO=-1
ELSE IF (Q5BCK_78 EQ 3)
COMPUTE DWWNTO=3
ELSE IF (Q5BCK_78 EQ 4)
COMPUTE DWWNTO=4
ELSE IF (Q5_78 EQ 1)
COMPUTE DWWNTO=1
ELSE IF (Q5_78 EQ 0)
COMPUTE DWWNTO=2
ELSE IF (Q5_78 EQ -2)
COMPUTE DWWNTO=-2
ELSE IF (Q5_78 EQ -1)
COMPUTE DWWNTO=-1
ELSE IF (Q5_78 EQ 3)
COMPUTE DWWNTO=3
ELSE IF (Q5_78 EQ 4)
COMPUTE DWWNTO=4
ELSE
COMPUTE DWWNTO=-3
END IF
/* the following lines create the var DIS */
DO IF (Q5_9A4 EQ -4)
COMPUTE DIS=-4
ELSE IF (Q5_9D EQ -1 OR Q5_9E EQ -1 OR Q5_9F EQ -1 OR Q5_9G EQ -1) OR (Q5_9D EQ -2 OR 
                   Q5_9E EQ -2 OR Q5_9F EQ -2 OR Q5_9G EQ -2)
COMPUTE DIS=-2
ELSE IF (Q5_9A4 EQ 1 AND Q5_9D EQ 1)
COMPUTE DIS=1
ELSE IF (Q5_9D EQ 0)
COMPUTE DIS=0
ELSE IF (Q5_9A5 EQ 1 AND Q5_9E EQ 1)
COMPUTE DIS=1
ELSE IF (Q5_9E EQ 0)
COMPUTE DIS=0
ELSE IF (Q5_9A6 EQ 1 AND Q5_9F EQ 1)
COMPUTE DIS=1
ELSE IF (Q5_9F EQ 0)
COMPUTE DIS=0
ELSE IF (Q5_9A7 EQ 1 AND Q5_9G EQ 1)
COMPUTE DIS=1
ELSE IF (Q5_9G EQ 0)
COMPUTE DIS=0
ELSE 
COMPUTE DIS=-3
END IF
/* the following lines create IO1COW */
DO IF (R(52314.) EQ 1)
COMPUTE IO1COW=8
ELSE
COMPUTE IO1COW=0
END IF
/* the following lines create the ESR var approximating MLR */
DO IF ((WK EQ 1 AND (HRCK6 EQ 3 OR HRCK6 EQ -4 OR HRCK6 EQ 99 OR HRCK6 EQ 999)) OR 
                   (BUS1 EQ 1 AND (HRCK7 EQ 2 OR HRCK7 EQ 3 OR HRCK7 EQ 4 OR HRCK7 EQ 5 OR 
                   HRCK7 EQ -4)))
COMPUTE ESR=1
ELSE IF (ABSPD EQ 1 OR ABSPD EQ 0 OR ABSPD EQ -1 OR ABSPD EQ -2)
COMPUTE ESR=2
ELSE IF ((LAYAVL EQ 1 OR LAYAVL EQ -1 OR LAYAVL EQ -2) OR LAYAVR EQ 1)
COMPUTE ESR=3
ELSE IF ((LKAVL EQ 1 OR LKAVL EQ -1 OR LKAVL EQ -2) OR (LKAVR EQ 1 OR LKAVR EQ 2))
COMPUTE ESR=4
ELSE IF ((WK EQ 3 AND AGE GE 50 AND RET1 EQ 1 AND LK EQ 1 AND LKAVL EQ 0 AND 
                   (LKAVR EQ 3 OR LKAVR EQ 4 OR LKAVR EQ -1 OR LKAVR EQ -2)) OR             (RET1 EQ 0 OR 
                   LK EQ 3 OR DWWNTO EQ 3) OR NLFACT EQ 5 OR RETOT EQ 1) 
COMPUTE ESR=5
ELSE IF (DIS1 EQ 1 OR DIS2 EQ 1 OR DIS EQ 1)
COMPUTE ESR=6
ELSE IF (R(52314.) EQ 1)
COMPUTE ESR=8
ELSE
COMPUTE ESR=7
END IF 
         ESR(6)=R(15199.);
         ESR(7)=R(18906.);
         ESR(8)=R(22577.);
         ESR(9)=R(24451.);
         ESR(10)=R(28706.);
         ESR(11)=R(30743.);
         ESR(12)=R(34010.);
         ESR(13)=R(36564.);
         ESR(14)=R(40069.);
         ESR(15)=R(44180.);
         ESR(16)=R(50810.);
         ESR(17)=R(51663.);
         ESRC(6)=R(15199.01);
         ESRC(7)=R(18906.01);
         ESRC(8)=R(22577.01);
         ESRC(9)=R(24451.01);
         ESRC(10)=R(28707.);
         ESRC(11)=R(30744.);
         ESRC(12)=R(34011.);
         EARC(13)=R(36565.);
         EARC(14)=R(40070.);
         ESRC(15)=R(44181.);
         ESRC(16)=R(50811.);
         ESRC(17)=R(51664.);

/* The programming for the new 1998 ESR variables is done in SPSS */
/* the following lines create the var AGE */
COMPUTE AGE=41
/* the following lines construct the var HRACT1 */
DO IF (Q5B2_40A EQ -4)
COMPUTE HRACT1=-4
ELSE IF (Q5B2_41A EQ -1 OR Q5B2_41B EQ -1 OR Q5B2_41C EQ -1 OR Q5B2_41D EQ -1
                    OR Q5B2_41A EQ -2 OR Q5B2_41B EQ -2 OR Q5B2_41C EQ -2 OR 
        Q5B2_41D EQ -2)
COMPUTE HRACT1=-2
ELSE IF (Q5B2_41A EQ 995 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ 995 OR 
        Q5B2_41D EQ 995)
COMPUTE HRACT1=995
ELSE IF (Q5B2_40B EQ 1 AND Q5B2_41A NE -4)
COMPUTE HRACT1=Q5B2_41A
ELSE IF (Q5B2_40C EQ 1 AND Q5B2_41B NE -4)
COMPUTE HRACT1=Q5B2_41B
ELSE IF (Q5B2_40D EQ 1 AND Q5B2_41C NE -4)
COMPUTE HRACT1=Q5B2_41C
ELSE IF (Q5B2_40E EQ 1 OR Q5B2_40E EQ 0)
COMPUTE HRACT1=Q5B2_41D
ELSE IF (Q5B_40A EQ -4)
COMPUTE HRACT1=-4
ELSE IF (Q5B_41A EQ -1 OR Q5B_41B EQ -1 OR Q5B_41C EQ -1 OR Q5B_41D EQ -1
                    OR Q5B_41A EQ -2 OR Q5B_41B EQ -2 OR Q5B_41C EQ -2 OR 
        Q5B_41D EQ -2)
COMPUTE HRACT1=-2
ELSE IF (Q5B_41A EQ 995 OR Q5B_41B EQ 995 OR Q5B_41C EQ 995 OR 
        Q5B_41D EQ 995)
COMPUTE HRACT1=995
ELSE IF (Q5B_40B EQ 1 AND Q5B_41A NE -4)
COMPUTE HRACT1=Q5B_41A
ELSE IF (Q5B_40C EQ 1 AND Q5B_41B NE -4)
COMPUTE HRACT1=Q5B_41B
ELSE IF (Q5B_40D EQ 1 AND Q5B_41C NE -4)
COMPUTE HRACT1=Q5B_41C
ELSE IF (Q5B_40E EQ 1 OR Q5B_40E EQ 0)
COMPUTE HRACT1=Q5B_41D
ELSE IF (Q5_40A EQ -4)
COMPUTE HRACT1=-4
ELSE IF (Q5_41A EQ -1 OR Q5_41B EQ -1 OR Q5_41C EQ -1 OR Q5_41D EQ -1
                    OR Q5_41A EQ -2 OR Q5_41B EQ -2 OR Q5_41C EQ -2 OR Q5_41D EQ -2)
COMPUTE HRACT1=-2
ELSE IF (Q5_41A EQ 995 OR Q5_41B EQ 995 OR Q5_41C EQ 995 OR Q5_41D EQ 995)
COMPUTE HRACT1=995
ELSE IF (Q5_40B EQ 1 AND Q5_41A NE -4)
COMPUTE HRACT1=Q5_41A
ELSE IF (Q5_40C EQ 1 AND Q5_41B NE -4)
COMPUTE HRACT1=Q5_41B
ELSE IF (Q5_40D EQ 1 AND Q5_41C NE -4)
COMPUTE HRACT1=Q5_41C
ELSE IF (Q5_40E EQ 1 OR Q5_40E EQ 0)
COMPUTE HRACT1=Q5_41D
ELSE
COMPUTE HRACT1=-3
END IF
/* the following lines construct the var HRACT2 */
DO IF (Q5B2_42 EQ -4 OR Q5B2_42 EQ 0)
COMPUTE HRACT2=-4
ELSE IF (Q5B2_43A EQ -1 OR Q5B2_43B EQ -1
                   OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2)
COMPUTE HRACT2=-2
ELSE IF (Q5B2_43A EQ 995 OR Q5B2_43B EQ 995)
COMPUTE HRACT2=995
ELSE IF (Q5B2_43 EQ 1)
COMPUTE HRACT2=Q5B2_43A
ELSE IF (Q5B2_42 EQ 1 AND Q5B2_43 EQ 0)
COMPUTE HRACT2=Q5B2_43B
ELSE IF (Q5B_42 EQ -4 OR Q5B_42 EQ 0)
COMPUTE HRACT2=-4
ELSE IF (Q5B_43A EQ -1 OR Q5B_43B EQ -1
                   OR Q5B_43A EQ -2 OR Q5B_43B EQ -2)
COMPUTE HRACT2=-2
ELSE IF (Q5B_43A EQ 995 OR Q5B_43B EQ 995)
COMPUTE HRACT2=995
ELSE IF (Q5B_43 EQ 1)
COMPUTE HRACT2=Q5B_43A
ELSE IF (Q5B_42 EQ 1 AND Q5B_43 EQ 0)
COMPUTE HRACT2=Q5B_43B
ELSE IF (Q5_42 EQ -4 OR Q5_42 EQ 0)
COMPUTE HRACT2=-4
ELSE IF (Q5_43A EQ -1 OR Q5_43B EQ -1
                   OR Q5_43A EQ -2 OR Q5_43B EQ -2)
COMPUTE HRACT2=-2
ELSE IF (Q5_43A EQ 995 OR Q5_43B EQ 995)
COMPUTE HRACT2=995
ELSE IF (Q5_43 EQ 1)
COMPUTE HRACT2=Q5_43A
ELSE IF (Q5_42 EQ 1 AND Q5_43 EQ 0)
COMPUTE HRACT2=Q5_43B
ELSE 
COMPUTE HRACT2=-3
END IF
/* the following lines create the var HRACTT */
DO IF (Q5B2_40A EQ -4)
COMPUTE HRACTT=-4
ELSE IF ((Q5B2_41A EQ -1 OR Q5B2_41B EQ -1 OR Q5B2_41C EQ -1 OR 
       Q5B2_41D EQ -1 OR Q5B2_41A EQ -2 OR Q5B2_41B EQ -2 OR 
       Q5B2_41C EQ -2 OR Q5B2_41D EQ -2) AND (Q5B2_43A EQ -1 OR 
       Q5B2_43B EQ -1 OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2))
COMPUTE HRACTT=-2
ELSE IF ((Q5B2_41A EQ 995 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ 995 OR 
       Q5B2_41D EQ 995) AND (Q5B2_43A EQ 995 OR Q5B2_43B EQ 995))
COMPUTE HRACTT=995
ELSE IF ((Q5B2_41A EQ -1 OR Q5B2_41B EQ -1 OR Q5B2_41C EQ -1 OR 
       Q5B2_41D EQ -1 OR Q5B2_41A EQ -2 OR Q5B2_41B EQ -2 OR 
       Q5B2_41C EQ -2 OR Q5B2_41D EQ -2) AND (Q5B2_43A EQ 995 OR 
       Q5B2_43B EQ 995))
COMPUTE HRACTT=995
ELSE IF ((Q5B2_41A EQ 995 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ 995 OR 
       Q5B2_41D EQ 995 OR Q5B2_41A EQ 995 OR Q5B2_41B EQ 995 OR 
       Q5B2_41C EQ 995 OR Q5B2_41D EQ 995) AND (Q5B2_43A EQ -1 OR 
       Q5B2_43B EQ -1 OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2))
COMPUTE HRACTT=995
ELSE IF ((Q5B2_41A NE -4 AND Q5B2_41A NE -1 AND Q5B2_41A NE -2 AND 
       Q5B2_41A NE 995) AND (Q5B2_43A EQ -1 OR Q5B2_43B EQ -1 OR 
       Q5B2_43A EQ -2 OR Q5B2_43B EQ -2 OR Q5B2_43A EQ 995 OR 
       Q5B2_43B EQ 995))
COMPUTE HRACTT=Q5B2_41A
ELSE IF ((Q5B2_41B NE -4 AND Q5B2_41B NE -1 AND Q5B2_41B NE -2 AND 
       Q5B2_41B NE 995) AND (Q5B2_43A EQ -1 OR Q5B2_43B EQ -1 OR 
       Q5B2_43A EQ -2 OR Q5B2_43B EQ -2 OR Q5B2_43A EQ 995 OR 
       Q5B2_43B EQ 995))
COMPUTE HRACTT=Q5B2_41B
ELSE IF ((Q5B2_41C NE -4 AND Q5B2_41C NE -1 AND Q5B2_41C NE -2 AND 
       Q5B2_41C NE 995) AND (Q5B2_43A EQ -1 OR Q5B2_43B EQ -1 OR 
       Q5B2_43A EQ -2 OR Q5B2_43B EQ -2 OR Q5B2_43A EQ 995 OR 
       Q5B2_43B EQ 995))
COMPUTE HRACTT=Q5B2_41C
ELSE IF ((Q5B2_41D NE -4 AND Q5B2_41D NE -1 AND Q5B2_41D NE -2 AND 
       Q5B2_41D NE 995) AND (Q5B2_43A EQ -1 OR Q5B2_43B EQ -1 OR 
       Q5B2_43A EQ -2 OR Q5B2_43B EQ -2 OR Q5B2_43A EQ 995 OR 
       Q5B2_43B EQ 995))
COMPUTE HRACTT=Q5B2_41D
ELSE IF ((Q5B2_43B NE -4 AND Q5B2_43A NE -1 AND Q5B2_43A NE -2 AND 
       Q5B2_43A NE 995) AND (Q5B2_41A EQ -1 OR Q5B2_41A EQ -2 OR 
       Q5B2_41A EQ 995 OR Q5B2_41B EQ -1 OR Q5B2_41B EQ -2 OR 
       Q5B2_41B EQ 995 OR Q5B2_41C EQ -1 OR Q5B2_41C EQ -2 OR 
       Q5B2_41C EQ 995 OR Q5B2_41D EQ -1 OR Q5B2_41D EQ -2 OR 
       Q5B2_41D EQ 995))
COMPUTE HRACTT=Q5B2_43A
ELSE IF ((Q5B2_43A NE -4 AND Q5B2_43B NE -1 AND Q5B2_43B NE -2 AND 
       Q5B2_43B NE 995) AND (Q5B2_41A EQ -1 OR Q5B2_41A EQ -2 OR 
       Q5B2_41A EQ 995 OR Q5B2_41B EQ -1 OR Q5B2_41B EQ -2 OR 
       Q5B2_41B EQ 995 OR Q5B2_41C EQ -1 OR Q5B2_41C EQ -2 OR 
       Q5B2_41C EQ 995 OR Q5B2_41D EQ -1 OR Q5B2_41D EQ -2 OR 
       Q5B2_41D EQ 995))
COMPUTE HRACTT=Q5B2_43B
ELSE IF ((Q5B2_41A NE -4 AND Q5B2_41A NE -1 AND Q5B2_41A NE -2 AND 
       Q5B2_41A NE 995) AND (Q5B2_43A NE -1 AND Q5B2_43A NE -2 AND 
       Q5B2_43A NE 995 AND Q5B2_43A NE -4)) 
COMPUTE HRACTT=Q5B2_41A+Q5B2_43A
ELSE IF ((Q5B2_41A NE -4 AND Q5B2_41A NE -1 AND Q5B2_41A NE -2 AND 
       Q5B2_41A NE 995) AND (Q5B2_43B NE -1 AND Q5B2_43B NE -2 AND 
       Q5B2_43B NE 995 AND Q5B2_43B NE -4)) 
COMPUTE HRACTT=Q5B2_41A+Q5B2_43B
ELSE IF ((Q5B2_41B NE -4 AND Q5B2_41B NE -1 AND Q5B2_41B NE -2 AND 
       Q5B2_41B NE 995) AND (Q5B2_43A NE -1 AND Q5B2_43A NE -2 AND 
       Q5B2_43A NE 995 AND Q5B2_43A NE -4)) 
COMPUTE HRACTT=Q5B2_41B+Q5B2_43A
ELSE IF ((Q5B2_41B NE -4 AND Q5B2_41B NE -1 AND Q5B2_41B NE -2 AND 
       Q5B2_41B NE 995) AND (Q5B2_43B NE -1 AND Q5B2_43B NE -2 AND 
       Q5B2_43B NE 995 AND Q5B2_43B NE -4)) 
COMPUTE HRACTT=Q5B2_41B+Q5B2_43B
ELSE IF ((Q5B2_41C NE -4 AND Q5B2_41C NE -1 AND Q5B2_41C NE -2 AND 
       Q5B2_41C NE 995) AND (Q5B2_43A NE -1 AND Q5B2_43A NE -2 AND 
       Q5B2_43A NE 995 AND Q5B2_43A NE -4)) 
COMPUTE HRACTT=Q5B2_41C+Q5B2_43A
ELSE IF ((Q5B2_41C NE -4 AND Q5B2_41C NE -1 AND Q5B2_41C NE -2 AND 
       Q5B2_41C NE 995) AND (Q5B2_43B NE -1 AND Q5B2_43B NE -2 AND 
       Q5B2_43B NE 995 AND Q5B2_43B NE -4)) 
COMPUTE HRACTT=Q5B2_41C+Q5B2_43B
ELSE IF ((Q5B2_41D NE -4 AND Q5B2_41D NE -1 AND Q5B2_41D NE -2 AND 
       Q5B2_41D NE 995) AND (Q5B2_43A NE -1 AND Q5B2_43A NE -2 AND 
       Q5B2_43A NE 995 AND Q5B2_43A NE -4)) 
COMPUTE HRACTT=Q5B2_41D+Q5B2_43A
ELSE IF ((Q5B2_41D NE -4 AND Q5B2_41D NE -1 AND Q5B2_41D NE -2 AND 
       Q5B2_41D NE 995) AND (Q5B2_43B NE -1 AND Q5B2_43B NE -2 AND 
       Q5B2_43B NE 995 AND Q5B2_43B NE -4)) 
COMPUTE HRACTT=Q5B2_41D+Q5B2_43B
ELSE IF ((Q5B2_41A NE -4 AND Q5B2_41A NE -1 AND Q5B2_41A NE -2 AND 
       Q5B2_41A NE 995) AND Q5B2_43A EQ -4 AND Q5B2_43B EQ -4)
COMPUTE HRACTT=Q5B2_41A
ELSE IF ((Q5B2_41B NE -4 AND Q5B2_41B NE -1 AND Q5B2_41B NE -2 AND 
       Q5B2_41B NE 995) AND Q5B2_43A EQ -4 AND Q5B2_43B EQ -4)
COMPUTE HRACTT=Q5B2_41B
ELSE IF ((Q5B2_41C NE -4 AND Q5B2_41C NE -1 AND Q5B2_41C NE -2 AND 
       Q5B2_41C NE 995) AND Q5B2_43A EQ -4 AND Q5B2_43B EQ -4)
COMPUTE HRACTT=Q5B2_41C
ELSE IF ((Q5B2_41D NE -4 AND Q5B2_41D NE -1 AND Q5B2_41D NE -2 AND 
       Q5B2_41D NE 995) AND Q5B2_43A EQ -4 AND Q5B2_43B EQ -4)
COMPUTE HRACTT=Q5B2_41D
ELSE IF ((Q5B2_41A EQ -1 OR Q5B2_41A EQ -2 OR Q5B2_41B EQ -1 OR Q5B2_41B EQ -2
                   OR Q5B2_41C EQ -1 OR Q5B2_41C EQ -2 OR Q5B2_41D EQ -1 OR 
       Q5B2_41D EQ -2) AND Q5B2_43A EQ -4 AND Q5B2_43B EQ -4)
COMPUTE HRACTT=-2
ELSE IF ((Q5B2_41A EQ 995 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ 995 OR 
       Q5B2_41D EQ 995) AND Q5B2_43A EQ -4 AND Q5B2_43B EQ -4)
COMPUTE HRACTT=995
ELSE IF (Q5B_40A EQ -4)
COMPUTE HRACTT=-4
ELSE IF ((Q5B_41A EQ -1 OR Q5B_41B EQ -1 OR Q5B_41C EQ -1 OR 
       Q5B_41D EQ -1 OR Q5B_41A EQ -2 OR Q5B_41B EQ -2 OR 
       Q5B_41C EQ -2 OR Q5B_41D EQ -2) AND (Q5B_43A EQ -1 OR 
       Q5B_43B EQ -1 OR Q5B_43A EQ -2 OR Q5B_43B EQ -2))
COMPUTE HRACTT=-2
ELSE IF ((Q5B_41A EQ 995 OR Q5B_41B EQ 995 OR Q5B_41C EQ 995 OR 
       Q5B_41D EQ 995) AND (Q5B_43A EQ 995 OR Q5B_43B EQ 995))
COMPUTE HRACTT=995
ELSE IF ((Q5B_41A EQ -1 OR Q5B_41B EQ -1 OR Q5B_41C EQ -1 OR 
       Q5B_41D EQ -1 OR Q5B_41A EQ -2 OR Q5B_41B EQ -2 OR 
       Q5B_41C EQ -2 OR Q5B_41D EQ -2) AND (Q5B_43A EQ 995 OR 
       Q5B_43B EQ 995))
COMPUTE HRACTT=995
ELSE IF ((Q5B_41A EQ 995 OR Q5B_41B EQ 995 OR Q5B_41C EQ 995 OR 
       Q5B_41D EQ 995 OR Q5B_41A EQ 995 OR Q5B_41B EQ 995 OR 
       Q5B_41C EQ 995 OR Q5B_41D EQ 995) AND (Q5B_43A EQ -1 OR 
       Q5B_43B EQ -1 OR Q5B_43A EQ -2 OR Q5B_43B EQ -2))
COMPUTE HRACTT=995
ELSE IF ((Q5B_41A NE -4 AND Q5B_41A NE -1 AND Q5B_41A NE -2 AND 
       Q5B_41A NE 995) AND (Q5B_43A EQ -1 OR Q5B_43B EQ -1 OR 
       Q5B_43A EQ -2 OR Q5B_43B EQ -2 OR Q5B_43A EQ 995 OR 
       Q5B_43B EQ 995))
COMPUTE HRACTT=Q5B_41A
ELSE IF ((Q5B_41B NE -4 AND Q5B_41B NE -1 AND Q5B_41B NE -2 AND 
       Q5B_41B NE 995) AND (Q5B_43A EQ -1 OR Q5B_43B EQ -1 OR 
       Q5B_43A EQ -2 OR Q5B_43B EQ -2 OR Q5B_43A EQ 995 OR 
       Q5B_43B EQ 995))
COMPUTE HRACTT=Q5B_41B
ELSE IF ((Q5B_41C NE -4 AND Q5B_41C NE -1 AND Q5B_41C NE -2 AND 
       Q5B_41C NE 995) AND (Q5B_43A EQ -1 OR Q5B_43B EQ -1 OR 
       Q5B_43A EQ -2 OR Q5B_43B EQ -2 OR Q5B_43A EQ 995 OR 
       Q5B_43B EQ 995))
COMPUTE HRACTT=Q5B_41C
ELSE IF ((Q5B_41D NE -4 AND Q5B_41D NE -1 AND Q5B_41D NE -2 AND 
       Q5B_41D NE 995) AND (Q5B_43A EQ -1 OR Q5B_43B EQ -1 OR 
       Q5B_43A EQ -2 OR Q5B_43B EQ -2 OR Q5B_43A EQ 995 OR 
       Q5B_43B EQ 995))
COMPUTE HRACTT=Q5B_41D
ELSE IF ((Q5B_43B NE -4 AND Q5B_43A NE -1 AND Q5B_43A NE -2 AND 
       Q5B_43A NE 995) AND (Q5B_41A EQ -1 OR Q5B_41A EQ -2 OR 
       Q5B_41A EQ 995 OR Q5B_41B EQ -1 OR Q5B_41B EQ -2 OR 
       Q5B_41B EQ 995 OR Q5B_41C EQ -1 OR Q5B_41C EQ -2 OR 
       Q5B_41C EQ 995 OR Q5B_41D EQ -1 OR Q5B_41D EQ -2 OR 
       Q5B_41D EQ 995))
COMPUTE HRACTT=Q5B_43A
ELSE IF ((Q5B_43A NE -4 AND Q5B_43B NE -1 AND Q5B_43B NE -2 AND 
       Q5B_43B NE 995) AND (Q5B_41A EQ -1 OR Q5B_41A EQ -2 OR 
       Q5B_41A EQ 995 OR Q5B_41B EQ -1 OR Q5B_41B EQ -2 OR 
       Q5B_41B EQ 995 OR Q5B_41C EQ -1 OR Q5B_41C EQ -2 OR 
       Q5B_41C EQ 995 OR Q5B_41D EQ -1 OR Q5B_41D EQ -2 OR 
       Q5B_41D EQ 995))
COMPUTE HRACTT=Q5B_43B
ELSE IF ((Q5B_41A NE -4 AND Q5B_41A NE -1 AND Q5B_41A NE -2 AND 
       Q5B_41A NE 995) AND (Q5B_43A NE -1 AND Q5B_43A NE -2 AND 
       Q5B_43A NE 995 AND Q5B_43A NE -4)) 
COMPUTE HRACTT=Q5B_41A+Q5B_43A
ELSE IF ((Q5B_41A NE -4 AND Q5B_41A NE -1 AND Q5B_41A NE -2 AND 
       Q5B_41A NE 995) AND (Q5B_43B NE -1 AND Q5B_43B NE -2 AND 
       Q5B_43B NE 995 AND Q5B_43B NE -4)) 
COMPUTE HRACTT=Q5B_41A+Q5B_43B
ELSE IF ((Q5B_41B NE -4 AND Q5B_41B NE -1 AND Q5B_41B NE -2 AND 
       Q5B_41B NE 995) AND (Q5B_43A NE -1 AND Q5B_43A NE -2 AND 
       Q5B_43A NE 995 AND Q5B_43A NE -4)) 
COMPUTE HRACTT=Q5B_41B+Q5B_43A
ELSE IF ((Q5B_41B NE -4 AND Q5B_41B NE -1 AND Q5B_41B NE -2 AND 
       Q5B_41B NE 995) AND (Q5B_43B NE -1 AND Q5B_43B NE -2 AND 
       Q5B_43B NE 995 AND Q5B_43B NE -4)) 
COMPUTE HRACTT=Q5B_41B+Q5B_43B
ELSE IF ((Q5B_41C NE -4 AND Q5B_41C NE -1 AND Q5B_41C NE -2 AND 
       Q5B_41C NE 995) AND (Q5B_43A NE -1 AND Q5B_43A NE -2 AND 
       Q5B_43A NE 995 AND Q5B_43A NE -4)) 
COMPUTE HRACTT=Q5B_41C+Q5B_43A
ELSE IF ((Q5B_41C NE -4 AND Q5B_41C NE -1 AND Q5B_41C NE -2 AND 
       Q5B_41C NE 995) AND (Q5B_43B NE -1 AND Q5B_43B NE -2 AND 
       Q5B_43B NE 995 AND Q5B_43B NE -4)) 
COMPUTE HRACTT=Q5B_41C+Q5B_43B
ELSE IF ((Q5B_41D NE -4 AND Q5B_41D NE -1 AND Q5B_41D NE -2 AND 
       Q5B_41D NE 995) AND (Q5B_43A NE -1 AND Q5B_43A NE -2 AND 
       Q5B_43A NE 995 AND Q5B_43A NE -4)) 
COMPUTE HRACTT=Q5B_41D+Q5B_43A
ELSE IF ((Q5B_41D NE -4 AND Q5B_41D NE -1 AND Q5B_41D NE -2 AND 
       Q5B_41D NE 995) AND (Q5B_43B NE -1 AND Q5B_43B NE -2 AND 
       Q5B_43B NE 995 AND Q5B_43B NE -4)) 
COMPUTE HRACTT=Q5B_41D+Q5B_43B
ELSE IF ((Q5B_41A NE -4 AND Q5B_41A NE -1 AND Q5B_41A NE -2 AND 
       Q5B_41A NE 995) AND Q5B_43A EQ -4 AND Q5B_43B EQ -4)
COMPUTE HRACTT=Q5B_41A
ELSE IF ((Q5B_41B NE -4 AND Q5B_41B NE -1 AND Q5B_41B NE -2 AND 
       Q5B_41B NE 995) AND Q5B_43A EQ -4 AND Q5B_43B EQ -4)
COMPUTE HRACTT=Q5B_41B
ELSE IF ((Q5B_41C NE -4 AND Q5B_41C NE -1 AND Q5B_41C NE -2 AND 
       Q5B_41C NE 995) AND Q5B_43A EQ -4 AND Q5B_43B EQ -4)
COMPUTE HRACTT=Q5B_41C
ELSE IF ((Q5B_41D NE -4 AND Q5B_41D NE -1 AND Q5B_41D NE -2 AND 
       Q5B_41D NE 995) AND Q5B_43A EQ -4 AND Q5B_43B EQ -4)
COMPUTE HRACTT=Q5B_41D
ELSE IF ((Q5B_41A EQ -1 OR Q5B_41A EQ -2 OR Q5B_41B EQ -1 OR Q5B_41B EQ -2
                   OR Q5B_41C EQ -1 OR Q5B_41C EQ -2 OR Q5B_41D EQ -1 OR 
       Q5B_41D EQ -2) AND Q5B_43A EQ -4 AND Q5B_43B EQ -4)
COMPUTE HRACTT=-2
ELSE IF ((Q5B_41A EQ 995 OR Q5B_41B EQ 995 OR Q5B_41C EQ 995 OR 
       Q5B_41D EQ 995) AND Q5B_43A EQ -4 AND Q5B_43B EQ -4)
COMPUTE HRACTT=995
ELSE IF (Q5_40A EQ -4)
COMPUTE HRACTT=-4
ELSE IF ((Q5_41A EQ -1 OR Q5_41B EQ -1 OR Q5_41C EQ -1 OR Q5_41D EQ -1 OR
                   Q5_41A EQ -2 OR Q5_41B EQ -2 OR Q5_41C EQ -2 OR Q5_41D EQ -2) AND
                   (Q5_43A EQ -1 OR Q5_43B EQ -1 OR Q5_43A EQ -2 OR Q5_43B EQ -2))
COMPUTE HRACTT=-2
ELSE IF ((Q5_41A EQ 995 OR Q5_41B EQ 995 OR Q5_41C EQ 995 OR Q5_41D EQ 995)
                   AND (Q5_43A EQ 995 OR Q5_43B EQ 995))
COMPUTE HRACTT=995
ELSE IF ((Q5_41A EQ -1 OR Q5_41B EQ -1 OR Q5_41C EQ -1 OR Q5_41D EQ -1 OR
                   Q5_41A EQ -2 OR Q5_41B EQ -2 OR Q5_41C EQ -2 OR Q5_41D EQ -2) AND
                   (Q5_43A EQ 995 OR Q5_43B EQ 995))
COMPUTE HRACTT=995
ELSE IF ((Q5_41A EQ 995 OR Q5_41B EQ 995 OR Q5_41C EQ 995 OR Q5_41D EQ 995 OR
                   Q5_41A EQ 995 OR Q5_41B EQ 995 OR Q5_41C EQ 995 OR Q5_41D EQ 995) AND
                   (Q5_43A EQ -1 OR Q5_43B EQ -1 OR Q5_43A EQ -2 OR Q5_43B EQ -2))
COMPUTE HRACTT=995
ELSE IF ((Q5_41A NE -4 AND Q5_41A NE -1 AND Q5_41A NE -2 AND Q5_41A NE 995)
                    AND (Q5_43A EQ -1 OR Q5_43B EQ -1 OR Q5_43A EQ -2 OR Q5_43B EQ -2 
                   OR Q5_43A EQ 995 OR Q5_43B EQ 995))
COMPUTE HRACTT=Q5_41A
ELSE IF ((Q5_41B NE -4 AND Q5_41B NE -1 AND Q5_41B NE -2 AND Q5_41B NE 995) 
                   AND (Q5_43A EQ -1 OR Q5_43B EQ -1 OR Q5_43A EQ -2 OR Q5_43B EQ -2 
                   OR Q5_43A EQ 995 OR Q5_43B EQ 995))
COMPUTE HRACTT=Q5_41B
ELSE IF ((Q5_41C NE -4 AND Q5_41C NE -1 AND Q5_41C NE -2 AND Q5_41C NE 995) 
                   AND (Q5_43A EQ -1 OR Q5_43B EQ -1 OR Q5_43A EQ -2 OR Q5_43B EQ -2 
                   OR Q5_43A EQ 995 OR Q5_43B EQ 995))
COMPUTE HRACTT=Q5_41C
ELSE IF ((Q5_41D NE -4 AND Q5_41D NE -1 AND Q5_41D NE -2 AND Q5_41D NE 995) 
                   AND (Q5_43A EQ -1 OR Q5_43B EQ -1 OR Q5_43A EQ -2 OR Q5_43B EQ -2 
                   OR Q5_43A EQ 995 OR Q5_43B EQ 995))
COMPUTE HRACTT=Q5_41D
ELSE IF ((Q5_43B NE -4 AND Q5_43A NE -1 AND Q5_43A NE -2 AND Q5_43A NE 995) 
                   AND (Q5_41A EQ -1 OR Q5_41A EQ -2 OR Q5_41A EQ 995 OR Q5_41B EQ -1 
                   OR Q5_41B EQ -2 OR Q5_41B EQ 995 OR 
                   Q5_41C EQ -1 OR Q5_41C EQ -2 OR Q5_41C EQ 995 OR Q5_41D EQ -1 
                   OR Q5_41D EQ -2 OR Q5_41D EQ 995))
COMPUTE HRACTT=Q5_43A
ELSE IF ((Q5_43A NE -4 AND Q5_43B NE -1 AND Q5_43B NE -2 AND Q5_43B NE 995) 
                   AND (Q5_41A EQ -1 OR Q5_41A EQ -2 OR Q5_41A EQ 995 OR Q5_41B EQ -1 
                   OR Q5_41B EQ -2 OR Q5_41B EQ 995 OR 
                   Q5_41C EQ -1 OR Q5_41C EQ -2 OR Q5_41C EQ 995 OR Q5_41D EQ -1 
                   OR Q5_41D EQ -2 OR Q5_41D EQ 995))
COMPUTE HRACTT=Q5_43B
ELSE IF ((Q5_41A NE -4 AND Q5_41A NE -1 AND Q5_41A NE -2 AND Q5_41A NE 995) 
                   AND (Q5_43A NE -1 AND Q5_43A NE -2 AND Q5_43A NE 995 AND Q5_43A NE -4)) 
COMPUTE HRACTT=Q5_41A+Q5_43A
ELSE IF ((Q5_41A NE -4 AND Q5_41A NE -1 AND Q5_41A NE -2 AND Q5_41A NE 995) 
                   AND (Q5_43B NE -1 AND Q5_43B NE -2 AND Q5_43B NE 995 AND Q5_43B NE -4)) 
COMPUTE HRACTT=Q5_41A+Q5_43B
ELSE IF ((Q5_41B NE -4 AND Q5_41B NE -1 AND Q5_41B NE -2 AND Q5_41B NE 995) 
                   AND (Q5_43A NE -1 AND Q5_43A NE -2 AND Q5_43A NE 995 AND Q5_43A NE -4)) 
COMPUTE HRACTT=Q5_41B+Q5_43A
ELSE IF ((Q5_41B NE -4 AND Q5_41B NE -1 AND Q5_41B NE -2 AND Q5_41B NE 995) 
                   AND (Q5_43B NE -1 AND Q5_43B NE -2 AND Q5_43B NE 995 AND Q5_43B NE -4)) 
COMPUTE HRACTT=Q5_41B+Q5_43B
ELSE IF ((Q5_41C NE -4 AND Q5_41C NE -1 AND Q5_41C NE -2 AND Q5_41C NE 995) 
                   AND (Q5_43A NE -1 AND Q5_43A NE -2 AND Q5_43A NE 995 AND Q5_43A NE -4)) 
COMPUTE HRACTT=Q5_41C+Q5_43A
ELSE IF ((Q5_41C NE -4 AND Q5_41C NE -1 AND Q5_41C NE -2 AND Q5_41C NE 995) 
                   AND (Q5_43B NE -1 AND Q5_43B NE -2 AND Q5_43B NE 995 AND Q5_43B NE -4)) 
COMPUTE HRACTT=Q5_41C+Q5_43B
ELSE IF ((Q5_41D NE -4 AND Q5_41D NE -1 AND Q5_41D NE -2 AND Q5_41D NE 995) 
                   AND (Q5_43A NE -1 AND Q5_43A NE -2 AND Q5_43A NE 995 AND Q5_43A NE -4)) 
COMPUTE HRACTT=Q5_41D+Q5_43A
ELSE IF ((Q5_41D NE -4 AND Q5_41D NE -1 AND Q5_41D NE -2 AND Q5_41D NE 995) 
                   AND (Q5_43B NE -1 AND Q5_43B NE -2 AND Q5_43B NE 995 AND Q5_43B NE -4)) 
COMPUTE HRACTT=Q5_41D+Q5_43B
ELSE IF ((Q5_41A NE -4 AND Q5_41A NE -1 AND Q5_41A NE -2 AND Q5_41A NE 995) 
                   AND Q5_43A EQ -4 AND Q5_43B EQ -4)
COMPUTE HRACTT=Q5_41A
ELSE IF ((Q5_41B NE -4 AND Q5_41B NE -1 AND Q5_41B NE -2 AND Q5_41B NE 995) 
                   AND Q5_43A EQ -4 AND Q5_43B EQ -4)
COMPUTE HRACTT=Q5_41B
ELSE IF ((Q5_41C NE -4 AND Q5_41C NE -1 AND Q5_41C NE -2 AND Q5_41C NE 995) 
                   AND Q5_43A EQ -4 AND Q5_43B EQ -4)
COMPUTE HRACTT=Q5_41C
ELSE IF ((Q5_41D NE -4 AND Q5_41D NE -1 AND Q5_41D NE -2 AND Q5_41D NE 995) 
                   AND Q5_43A EQ -4 AND Q5_43B EQ -4)
COMPUTE HRACTT=Q5_41D
ELSE IF ((Q5_41A EQ -1 OR Q5_41A EQ -2 OR Q5_41B EQ -1 OR Q5_41B EQ -2
                   OR Q5_41C EQ -1 OR Q5_41C EQ -2 OR Q5_41D EQ -1 OR Q5_41D EQ -2) 
                   AND Q5_43A EQ -4 AND Q5_43B EQ -4)
COMPUTE HRACTT=-2
ELSE IF ((Q5_41A EQ 995 OR Q5_41B EQ 995 OR Q5_41C EQ 995 OR Q5_41D EQ 995)
                   AND Q5_43A EQ -4 AND Q5_43B EQ -4)
COMPUTE HRACTT=995
ELSE 
COMPUTE HRACTT=-3
END IF
/* the following lines creates the var BUS2 */
DO IF (Q5_6 EQ -4)
COMPUTE BUS2=-4
ELSE IF (Q5_6 EQ -1)
COMPUTE BUS2=-1
ELSE IF (Q5_6 EQ -2)
COMPUTE BUS2=-2
ELSE IF (Q5_7 EQ -1 OR Q5_8 EQ -1)
COMPUTE BUS2=-1
ELSE IF (Q5_7 EQ -2 OR Q5_8 EQ -2)
COMPUTE BUS2=-2
ELSE IF (Q5_7 EQ 1 OR Q5_8 EQ 1)
COMPUTE BUS2=1
ELSE IF (Q5_8 EQ 0)
COMPUTE BUS2=2  /* this should normally be 0 */
ELSE 
COMPUTE BUS2=-3
END IF
/* the following lines create the var HRUSL1 */
DO IF (Q5B2_25 EQ -4)
COMPUTE HRUSL1=-4
ELSE IF (Q5B2_26A EQ -1 OR Q5B2_26C EQ -1 OR Q5B2_26A EQ -2 OR Q5B2_26C EQ -2)
COMPUTE HRUSL1=-2
ELSE IF (Q5B2_26A EQ 995 OR Q5B2_26C EQ 995)
COMPUTE HRUSL1=995
ELSE IF (Q5B2_26A EQ 1)
COMPUTE HRUSL1=Q5B2_26B
ELSE IF (Q5B2_26C EQ 1)
COMPUTE HRUSL1=Q5B2_26D
ELSE IF (Q5B_25 EQ -4)
COMPUTE HRUSL1=-4
ELSE IF (Q5B_26A EQ -1 OR Q5B_26C EQ -1 OR Q5B_26A EQ -2 OR Q5B_26C EQ -2)
COMPUTE HRUSL1=-2
ELSE IF (Q5B_26A EQ 995 OR Q5B_26C EQ 995)
COMPUTE HRUSL1=995
ELSE IF (Q5B_26A EQ 1)
COMPUTE HRUSL1=Q5B_26B
ELSE IF (Q5B_26C EQ 1)
COMPUTE HRUSL1=Q5B_26D
ELSE IF (Q5_25 EQ -4)
COMPUTE HRUSL1=-4
ELSE IF (Q5_26A EQ -1 OR Q5_26C EQ -1 OR Q5_26A EQ -2 OR Q5_26C EQ -2)
COMPUTE HRUSL1=-2
ELSE IF (Q5_26A EQ 995 OR Q5_26C EQ 995)
COMPUTE HRUSL1=995
ELSE IF (Q5_26A EQ 1)
COMPUTE HRUSL1=Q5_26B
ELSE IF (Q5_26C EQ 1)
COMPUTE HRUSL1=Q5_26D
ELSE 
COMPUTE HRUSL1=-3
END IF
/* the following lines create the var HRUSL2 */
DO IF (Q5B2_28A EQ -4)
COMPUTE HRUSL2=-4
ELSE IF (Q5B2_28B EQ -1 OR Q5B2_28D EQ -1 OR Q5B2_28B EQ -2 OR Q5B2_28D EQ -2)
COMPUTE HRUSL2=-2
ELSE IF (Q5B2_28B EQ 995 OR Q5B2_28D EQ 995)
COMPUTE HRUSL2=995
ELSE IF (Q5B2_28B EQ 1)
COMPUTE HRUSL2=Q5B2_28C
ELSE IF (Q5B2_28D EQ 1)
COMPUTE HRUSL2=Q5B2_28E
ELSE IF (Q5B_28A EQ -4)
COMPUTE HRUSL2=-4
ELSE IF (Q5B_28B EQ -1 OR Q5B_28D EQ -1 OR Q5B_28B EQ -2 OR Q5B_28D EQ -2)
COMPUTE HRUSL2=-2
ELSE IF (Q5B_28B EQ 995 OR Q5B_28D EQ 995)
COMPUTE HRUSL2=995
ELSE IF (Q5B_28B EQ 1)
COMPUTE HRUSL2=Q5B_28C
ELSE IF (Q5B_28D EQ 1)
COMPUTE HRUSL2=Q5B_28E
ELSE IF (Q5_28A EQ -4)
COMPUTE HRUSL2=-4
ELSE IF (Q5_28B EQ -1 OR Q5_28D EQ -1 OR Q5_28B EQ -2 OR Q5_28D EQ -2)
COMPUTE HRUSL2=-2
ELSE IF (Q5_28B EQ 995 OR Q5_28D EQ 995)
COMPUTE HRUSL2=995
ELSE IF (Q5_28B EQ 1)
COMPUTE HRUSL2=Q5_28C
ELSE IF (Q5_28D EQ 1)
COMPUTE HRUSL2=Q5_28E
ELSE 
COMPUTE HRUSL2=-3
END IF 
/* the following lines create the var HRUSLT */
DO IF (Q5B2_25 EQ -4)
COMPUTE HRUSLT=-4
ELSE IF ((Q5B2_26A EQ -1 OR Q5B2_26C EQ -1 OR Q5B2_26A EQ -2 OR 
       Q5B2_26C EQ -2) AND (Q5B2_28B EQ -1 OR Q5B2_28D EQ -1 OR 
       Q5B2_28B EQ -2 OR Q5B2_28D EQ -2))
COMPUTE HRUSLT=-2
ELSE IF ((Q5B2_26A EQ 995 OR Q5B2_26C EQ 995) AND (Q5B2_28B EQ 995 OR 
       Q5B2_28D EQ 995))
COMPUTE HRUSLT=995
ELSE IF ((Q5B2_26A EQ -1 OR Q5B2_26C EQ -1 OR Q5B2_26A EQ -2 OR 
       Q5B2_26C EQ -2) AND (Q5B2_28B EQ 995 OR Q5B2_28D EQ 995))
COMPUTE HRUSLT=995
ELSE IF ((Q5B2_26A EQ 995 OR Q5B2_26C EQ 995) AND
                   (Q5B2_28B EQ -1 OR Q5B2_28D EQ -1 OR Q5B2_28B EQ -2 OR Q5B2_28D EQ -2))
COMPUTE HRUSLT=995
ELSE IF ((Q5B2_26A EQ 995 OR Q5B2_26C EQ 995) AND Q5B2_27 NE 1)
COMPUTE HRUSLT=995
ELSE IF ((Q5B2_26A EQ -1 OR Q5B2_26C EQ -1 OR Q5B2_26A EQ -2 OR 
       Q5B2_26C EQ -2) AND Q5B2_27 NE 1)
COMPUTE HRUSLT=-2
ELSE IF (Q5B2_26A EQ 1 AND (Q5B2_28B EQ -1 OR Q5B2_28B EQ -2 OR 
       Q5B2_28B EQ 995 OR Q5B2_28D EQ -1 OR Q5B2_28D EQ -2 OR 
       Q5B2_28D EQ 995))
COMPUTE HRUSLT=Q5B2_26B
ELSE IF (Q5B2_26C EQ 1 AND (Q5B2_28B EQ -1 OR Q5B2_28B EQ -2 OR 
       Q5B2_28B EQ 995 OR Q5B2_28D EQ -1 OR Q5B2_28D EQ -2 OR Q5B2_28D EQ 995))
COMPUTE HRUSLT=Q5B2_26D
ELSE IF (Q5B2_28B EQ 1 AND (Q5B2_26A EQ -1 OR Q5B2_26A EQ -2 OR 
       Q5B2_26A EQ 995 OR Q5B2_26C EQ -1 OR Q5B2_26C EQ -2 OR Q5B2_26C EQ 995))
COMPUTE HRUSLT=Q5B2_28C
ELSE IF (Q5B2_28D EQ 1 AND (Q5B2_26A EQ -1 OR Q5B2_26A EQ -2 OR 
       Q5B2_26A EQ 995 OR Q5B2_26C EQ -1 OR Q5B2_26C EQ -2 OR Q5B2_26C EQ 995))
COMPUTE HRUSLT=Q5B2_28E
ELSE IF (Q5B2_26A EQ 1 AND Q5B2_27 NE 1)
COMPUTE HRUSLT=Q5B2_26B
ELSE IF (Q5B2_26C EQ 1 AND Q5B2_27 NE 1)
COMPUTE HRUSLT=Q5B2_26D
ELSE IF (Q5B2_26A EQ 1 AND Q5B2_28B EQ 1)
COMPUTE HRUSLT=Q5B2_26B+Q5B2_28C
ELSE IF (Q5B2_26A EQ 1 AND Q5B2_28D EQ 1)
COMPUTE HRUSLT=Q5B2_26B+Q5B2_28E
ELSE IF (Q5B2_26C EQ 1 AND Q5B2_28B EQ 1)
COMPUTE HRUSLT=Q5B2_26D+Q5B2_28C
ELSE IF (Q5B2_26C EQ 1 AND Q5B2_28D EQ 1)
COMPUTE HRUSLT=Q5B2_26C+Q5B2_28E
ELSE IF (Q5B_25 EQ -4)
COMPUTE HRUSLT=-4
ELSE IF ((Q5B_26A EQ -1 OR Q5B_26C EQ -1 OR Q5B_26A EQ -2 OR 
       Q5B_26C EQ -2) AND (Q5B_28B EQ -1 OR Q5B_28D EQ -1 OR 
       Q5B_28B EQ -2 OR Q5B_28D EQ -2))
COMPUTE HRUSLT=-2
ELSE IF ((Q5B_26A EQ 995 OR Q5B_26C EQ 995) AND (Q5B_28B EQ 995 OR 
       Q5B_28D EQ 995))
COMPUTE HRUSLT=995
ELSE IF ((Q5B_26A EQ -1 OR Q5B_26C EQ -1 OR Q5B_26A EQ -2 OR 
       Q5B_26C EQ -2) AND (Q5B_28B EQ 995 OR Q5B_28D EQ 995))
COMPUTE HRUSLT=995
ELSE IF ((Q5B_26A EQ 995 OR Q5B_26C EQ 995) AND
                   (Q5B_28B EQ -1 OR Q5B_28D EQ -1 OR Q5B_28B EQ -2 OR Q5B_28D EQ -2))
COMPUTE HRUSLT=995
ELSE IF ((Q5B_26A EQ 995 OR Q5B_26C EQ 995) AND Q5B_27 NE 1)
COMPUTE HRUSLT=995
ELSE IF ((Q5B_26A EQ -1 OR Q5B_26C EQ -1 OR Q5B_26A EQ -2 OR 
       Q5B_26C EQ -2) AND Q5B_27 NE 1)
COMPUTE HRUSLT=-2
ELSE IF (Q5B_26A EQ 1 AND (Q5B_28B EQ -1 OR Q5B_28B EQ -2 OR 
       Q5B_28B EQ 995 OR Q5B_28D EQ -1 OR Q5B_28D EQ -2 OR 
       Q5B_28D EQ 995))
COMPUTE HRUSLT=Q5B_26B
ELSE IF (Q5B_26C EQ 1 AND (Q5B_28B EQ -1 OR Q5B_28B EQ -2 OR 
       Q5B_28B EQ 995 OR Q5B_28D EQ -1 OR Q5B_28D EQ -2 OR Q5B_28D EQ 995))
COMPUTE HRUSLT=Q5B_26D
ELSE IF (Q5B_28B EQ 1 AND (Q5B_26A EQ -1 OR Q5B_26A EQ -2 OR 
       Q5B_26A EQ 995 OR Q5B_26C EQ -1 OR Q5B_26C EQ -2 OR Q5B_26C EQ 995))
COMPUTE HRUSLT=Q5B_28C
ELSE IF (Q5B_28D EQ 1 AND (Q5B_26A EQ -1 OR Q5B_26A EQ -2 OR 
       Q5B_26A EQ 995 OR Q5B_26C EQ -1 OR Q5B_26C EQ -2 OR Q5B_26C EQ 995))
COMPUTE HRUSLT=Q5B_28E
ELSE IF (Q5B_26A EQ 1 AND Q5B_27 NE 1)
COMPUTE HRUSLT=Q5B_26B
ELSE IF (Q5B_26C EQ 1 AND Q5B_27 NE 1)
COMPUTE HRUSLT=Q5B_26D
ELSE IF (Q5B_26A EQ 1 AND Q5B_28B EQ 1)
COMPUTE HRUSLT=Q5B_26B+Q5B_28C
ELSE IF (Q5B_26A EQ 1 AND Q5B_28D EQ 1)
COMPUTE HRUSLT=Q5B_26B+Q5B_28E
ELSE IF (Q5B_26C EQ 1 AND Q5B_28B EQ 1)
COMPUTE HRUSLT=Q5B_26D+Q5B_28C
ELSE IF (Q5B_26C EQ 1 AND Q5B_28D EQ 1)
COMPUTE HRUSLT=Q5B_26C+Q5B_28E
ELSE IF (Q5_25 EQ -4)
COMPUTE HRUSLT=-4
ELSE IF ((Q5_26A EQ -1 OR Q5_26C EQ -1 OR Q5_26A EQ -2 OR Q5_26C EQ -2) AND
                   (Q5_28B EQ -1 OR Q5_28D EQ -1 OR Q5_28B EQ -2 OR Q5_28D EQ -2))
COMPUTE HRUSLT=-2
ELSE IF ((Q5_26A EQ 995 OR Q5_26C EQ 995) AND (Q5_28B EQ 995 OR Q5_28D EQ 995))
COMPUTE HRUSLT=995
ELSE IF ((Q5_26A EQ -1 OR Q5_26C EQ -1 OR Q5_26A EQ -2 OR Q5_26C EQ -2) AND
                   (Q5_28B EQ 995 OR Q5_28D EQ 995))
COMPUTE HRUSLT=995
ELSE IF ((Q5_26A EQ 995 OR Q5_26C EQ 995) AND
                   (Q5_28B EQ -1 OR Q5_28D EQ -1 OR Q5_28B EQ -2 OR Q5_28D EQ -2))
COMPUTE HRUSLT=995
ELSE IF ((Q5_26A EQ 995 OR Q5_26C EQ 995) AND Q5_27 NE 1)
COMPUTE HRUSLT=995
ELSE IF ((Q5_26A EQ -1 OR Q5_26C EQ -1 OR Q5_26A EQ -2 OR Q5_26C EQ -2) AND 
                   Q5_27 NE 1)
COMPUTE HRUSLT=-2
ELSE IF (Q5_26A EQ 1 AND (Q5_28B EQ -1 OR Q5_28B EQ -2 OR Q5_28B EQ 995 OR
                   Q5_28D EQ -1 OR Q5_28D EQ -2 OR Q5_28D EQ 995))
COMPUTE HRUSLT=Q5_26B
ELSE IF (Q5_26C EQ 1 AND (Q5_28B EQ -1 OR Q5_28B EQ -2 OR Q5_28B EQ 995 OR
                   Q5_28D EQ -1 OR Q5_28D EQ -2 OR Q5_28D EQ 995))
COMPUTE HRUSLT=Q5_26D
ELSE IF (Q5_28B EQ 1 AND (Q5_26A EQ -1 OR Q5_26A EQ -2 OR Q5_26A EQ 995 OR
                   Q5_26C EQ -1 OR Q5_26C EQ -2 OR Q5_26C EQ 995))
COMPUTE HRUSLT=Q5_28C
ELSE IF (Q5_28D EQ 1 AND (Q5_26A EQ -1 OR Q5_26A EQ -2 OR Q5_26A EQ 995 OR
                   Q5_26C EQ -1 OR Q5_26C EQ -2 OR Q5_26C EQ 995))
COMPUTE HRUSLT=Q5_28E
ELSE IF (Q5_26A EQ 1 AND Q5_27 NE 1)
COMPUTE HRUSLT=Q5_26B
ELSE IF (Q5_26C EQ 1 AND Q5_27 NE 1)
COMPUTE HRUSLT=Q5_26D
ELSE IF (Q5_26A EQ 1 AND Q5_28B EQ 1)
COMPUTE HRUSLT=Q5_26B+Q5_28C
ELSE IF (Q5_26A EQ 1 AND Q5_28D EQ 1)
COMPUTE HRUSLT=Q5_26B+Q5_28E
ELSE IF (Q5_26C EQ 1 AND Q5_28B EQ 1)
COMPUTE HRUSLT=Q5_26D+Q5_28C
ELSE IF (Q5_26C EQ 1 AND Q5_28D EQ 1)
COMPUTE HRUSLT=Q5_26C+Q5_28E
ELSE 
COMPUTE HRUSLT=-3
END IF
/* the following lines create the var HRFTPT */
DO IF (Q5B2_30C EQ -4)
COMPUTE HRFTPT=-4
ELSE IF (Q5B2_30F EQ -1 OR Q5B2_30G EQ -1 OR Q5B2_30H EQ -1 OR Q5B2_30I EQ -1)
COMPUTE HRFTPT=-1
ELSE IF (Q5B2_30F EQ -2 OR Q5B2_30G EQ -2 OR Q5B2_30H EQ -2 OR Q5B2_30I EQ -2)
COMPUTE HRFTPT=-2
ELSE IF (Q5B2_30F NE -4)
COMPUTE HRFTPT=Q5B2_30F
ELSE IF (Q5B2_30G NE -4)
COMPUTE HRFTPT=Q5B2_30G
ELSE IF (Q5B2_30H NE -4)
COMPUTE HRFTPT=Q5B2_30H
ELSE IF (Q5B2_30I NE -4)
COMPUTE HRFTPT=Q5B2_30I
ELSE IF (Q5B_30C EQ -4)
COMPUTE HRFTPT=-4
ELSE IF (Q5B_30F EQ -1 OR Q5B_30G EQ -1 OR Q5B_30H EQ -1 OR Q5B_30I EQ -1)
COMPUTE HRFTPT=-1
ELSE IF (Q5B_30F EQ -2 OR Q5B_30G EQ -2 OR Q5B_30H EQ -2 OR Q5B_30I EQ -2)
COMPUTE HRFTPT=-2
ELSE IF (Q5B_30F NE -4)
COMPUTE HRFTPT=Q5B_30F
ELSE IF (Q5B_30G NE -4)
COMPUTE HRFTPT=Q5B_30G
ELSE IF (Q5B_30H NE -4)
COMPUTE HRFTPT=Q5B_30H
ELSE IF (Q5B_30I NE -4)
COMPUTE HRFTPT=Q5B_30I
ELSE IF (Q5_30C EQ -4)
COMPUTE HRFTPT=-4
ELSE IF (Q5_30F EQ -1 OR Q5_30G EQ -1 OR Q5_30H EQ -1 OR Q5_30I EQ -1)
COMPUTE HRFTPT=-1
ELSE IF (Q5_30F EQ -2 OR Q5_30G EQ -2 OR Q5_30H EQ -2 OR Q5_30I EQ -2)
COMPUTE HRFTPT=-2
ELSE IF (Q5_30F NE -4)
COMPUTE HRFTPT=Q5_30F
ELSE IF (Q5_30G NE -4)
COMPUTE HRFTPT=Q5_30G
ELSE IF (Q5_30H NE -4)
COMPUTE HRFTPT=Q5_30H
ELSE IF (Q5_30I NE -4)
COMPUTE HRFTPT=Q5_30I
ELSE
COMPUTE HRFTPT=-3
END IF 
/* the following lines create the var HRWANT */
DO IF (Q5B2_33 NE -4)
COMPUTE HRWANT=Q5B2_33
ELSE IF (Q5B_33 NE -4)
COMPUTE HRWANT=Q5B_33
ELSE 
COMPUTE HRWANT=Q5_33
END IF
/* the following lines create the var HRRSN1 */
DO IF (Q5B2_34 NE -4)
COMPUTE HRRSN1=Q5B2_34
ELSE IF (Q5B_34 NE -4)
COMPUTE HRRSN1=Q5B_34
ELSE
COMPUTE HRRSN1=Q5_34
END IF
/* the following lines create the var HRCK7 */
COMPUTE HRCK7=-4
DO IF ((BUS2 EQ 2 OR BUS2 EQ -2 OR BUS2 EQ -1) AND (HRACT1 LT 15 
                   OR HRACT1 EQ -2))
COMPUTE HRCK7=1
ELSE IF ((BUS2 EQ 2 OR BUS2 EQ -2 OR BUS2 EQ -1) AND HRACT1 GE 15)
COMPUTE HRCK7=2
ELSE IF ((HRUSLT GE 35 OR HRFTPT EQ 1) AND HRACTT LT 35 AND (HRACT1 NE -1
                   OR HRACT1 NE -2 OR HRACT2 NE -1 OR HRACT2 NE -2)) 
COMPUTE HRCK7=3
ELSE IF (HRWANT EQ 1 AND HRACTT LT 35 AND (HRRSN1 EQ 1 OR HRRSN1 EQ 2
                   OR HRRSN1 EQ 3))
COMPUTE HRCK7=4
ELSE 
COMPUTE HRCK7=5
END IF 
/* the following lines create the var ABSOT */
DO IF (HRACT1 EQ 0 AND HRACT2 EQ 0)
COMPUTE ABSOT=1
ELSE
COMPUTE ABSOT=0
END IF
/* the following lines create the var HRCK6 */
COMPUTE HRCK6=-4
DO IF ((HRACT1 EQ 0 AND HRACT2 EQ 0) AND (BUS2 EQ 2 OR BUS2 EQ -1 
                   OR BUS2 EQ -2))
COMPUTE HRCK6=1
ELSE IF (ABSOT EQ 1)
COMPUTE HRCK6=2
ELSE 
COMPUTE HRCK6=3
END IF
/* the following lines create the var WK */
COMPUTE WK=-4
DO IF (Q5_2 NE -4)
COMPUTE WK=Q5_2
ELSE IF (Q5_3 NE -4)
COMPUTE WK=Q5_3
END IF
/* the following lines create the var RETOT */
DO IF (WK EQ 2)
COMPUTE RETOT=1
ELSE
COMPUTE RETOT=0
END IF
/* the following lines rename the vars */
COMPUTE BUS1=Q5_5
COMPUTE RET1=Q5_10
COMPUTE IO1COW=Q5_JUMP
COMPUTE NLFACT=Q5_93
/* the following lines create additional variables */
DO IF (Q5B2_22 NE -4)
COMPUTE ABSPD=Q5B2_22
ELSE IF (Q5B_22 NE -4)
COMPUTE ABSPD=Q5B_22
ELSE
COMPUTE ABSPD=Q5_22
END IF
DO IF (Q5B2_65 NE -4)
COMPUTE LKAVL=Q5B2_65
ELSE IF (Q5B_65 NE -4)
COMPUTE LKAVL=Q5B_65
ELSE
COMPUTE LKAVL=Q5_65
END IF
DO IF (Q5B2_51 NE -4)
COMPUTE LAYAVL=Q5B2_51
ELSE IF (Q5B_51 NE -4)
COMPUTE LAYAVL=Q5B_51
ELSE
COMPUTE LAYAVL=Q5_51
END IF
DO IF (Q5B2_66 NE -4)
COMPUTE LKAVR=Q5B2_66
ELSE IF (Q5B_66 NE -4)
COMPUTE LKAVR=Q5B_66
ELSE
COMPUTE LKAVR=Q5_66
END IF
DO IF (Q5B2_52 NE -4)
COMPUTE LAYAVR=Q5B2_52
ELSE IF (Q5B_52 NE -4)
COMPUTE LAYAVR=Q5B_52
ELSE
COMPUTE LAYAVR=Q5_52
END IF
DO IF (Q5B2_60 NE -4)
COMPUTE LK=Q5B2_60
ELSE IF (Q5B_60 NE -4)
COMPUTE LK=Q5B_60
ELSE
COMPUTE LK=Q5_60
END IF
DO IF (Q5B2_11 NE -4)
COMPUTE DIS1=Q5B2_11
ELSE IF (Q5B_11 NE -4)
COMPUTE DIS1=Q5B_11
ELSE
COMPUTE DIS1=Q5_11
END IF
DO IF (Q5B2_12 NE -4)
COMPUTE DIS2=Q5B2_12
ELSE IF (Q5B_12 NE -4)
COMPUTE DIS2=Q5B_12
ELSE
COMPUTE DIS2=Q5_12
END IF
/* the following lines create the var DWWNTO */
DO IF (RET1 EQ 1)
COMPUTE DWWNTO=1
ELSE IF (Q5B2_78 EQ 1)
COMPUTE DWWNTO=1
ELSE IF (Q5B2_78 EQ 0)
COMPUTE DWWNTO=2
ELSE IF (Q5B2_78 EQ -2)
COMPUTE DWWNTO=-2
ELSE IF (Q5B2_78 EQ -1)
COMPUTE DWWNTO=-1
ELSE IF (Q5B2_78 EQ 3)
COMPUTE DWWNTO=3
ELSE IF (Q5B2_78 EQ 4)
COMPUTE DWWNTO=4
ELSE IF (Q5B_78 EQ 1)
COMPUTE DWWNTO=1
ELSE IF (Q5B_78 EQ 0)
COMPUTE DWWNTO=2
ELSE IF (Q5B_78 EQ -2)
COMPUTE DWWNTO=-2
ELSE IF (Q5B_78 EQ -1)
COMPUTE DWWNTO=-1
ELSE IF (Q5B_78 EQ 3)
COMPUTE DWWNTO=3
ELSE IF (Q5B_78 EQ 4)
COMPUTE DWWNTO=4
ELSE IF (Q5_78 EQ 1)
COMPUTE DWWNTO=1
ELSE IF (Q5_78 EQ 0)
COMPUTE DWWNTO=2
ELSE IF (Q5_78 EQ -2)
COMPUTE DWWNTO=-2
ELSE IF (Q5_78 EQ -1)
COMPUTE DWWNTO=-1
ELSE IF (Q5_78 EQ 3)
COMPUTE DWWNTO=3
ELSE IF (Q5_78 EQ 4)
COMPUTE DWWNTO=4
ELSE
COMPUTE DWWNTO=-3
END IF
/* the following lines create the var DIS */
DO IF (Q5_9A4 EQ -4)
COMPUTE DIS=-4
ELSE IF (Q5_9D EQ -1 OR Q5_9E EQ -1 OR Q5_9F EQ -1 OR Q5_9G EQ -1)
                   OR (Q5_9D EQ -2 OR Q5_9E EQ -2 OR Q5_9F EQ -2 OR Q5_9G EQ -2)
COMPUTE DIS=-2
ELSE IF (Q5_9A4 EQ 1 AND Q5_9D EQ 1)
COMPUTE DIS=1
ELSE IF (Q5_9D EQ 0)
COMPUTE DIS=0
ELSE IF (Q5_9A5 EQ 1 AND Q5_9E EQ 1)
COMPUTE DIS=1
ELSE IF (Q5_9E EQ 0)
COMPUTE DIS=0
ELSE IF (Q5_9A6 EQ 1 AND Q5_9F EQ 1)
COMPUTE DIS=1
ELSE IF (Q5_9F EQ 0)
COMPUTE DIS=0
ELSE IF (Q5_9A7 EQ 1 AND Q5_9G EQ 1)
COMPUTE DIS=1
ELSE IF (Q5_9G EQ 0)
COMPUTE DIS=0
ELSE 
COMPUTE DIS=-3
END IF
/* the following lines create IO1COW */
DO IF (Q5_JUMP EQ 1)
COMPUTE IO1COW=8
ELSE
COMPUTE IO1COW=0
END IF
/* the following lines create the ESR var approximating MLR */
DO IF ((WK EQ 1 AND (HRCK6 EQ 3 OR HRCK6 EQ -4 OR HRCK6 EQ 99 OR 
       HRCK6 EQ 999)) OR 
      (BUS1 EQ 1 AND (HRCK7 EQ 2 OR HRCK7 EQ 3 OR HRCK7 EQ 4 OR 
       HRCK7 EQ 5 OR HRCK7 EQ -4)))
COMPUTE ESR=1
ELSE IF (ABSPD EQ 1 OR ABSPD EQ 0 OR ABSPD EQ -1 OR ABSPD EQ -2)
COMPUTE ESR=2
ELSE IF ((LAYAVL EQ 1 OR LAYAVL EQ -1 OR LAYAVL EQ -2) OR LAYAVR EQ 1)
COMPUTE ESR=3
ELSE IF ((LKAVL EQ 1 OR LKAVL EQ -1 OR LKAVL EQ -2) OR (LKAVR EQ 1 OR 
                   LKAVR EQ 2))
COMPUTE ESR=4
ELSE IF ((WK EQ 3 AND AGE GE 50 AND RET1 EQ 1 AND LK EQ 1 AND LKAVL EQ 0 AND
                   (LKAVR EQ 3 OR LKAVR EQ 4 OR LKAVR EQ -1 OR LKAVR EQ -2)) OR
                   (RET1 EQ 0 OR LK EQ 3 OR DWWNTO EQ 3) OR NLFACT EQ 5 OR RETOT EQ 1) 
COMPUTE ESR=5
ELSE IF (DIS1 EQ 1 OR DIS2 EQ 1 OR DIS EQ 1)
COMPUTE ESR=6
ELSE IF (Q5_JUMP EQ 1)
COMPUTE ESR=8
/* ELSE IF (IO1COW EQ 8) */
/* COMPUTE ESR=7 */
ELSE
COMPUTE ESR=7
END IF 
/*COLLAPSED EMPLOYMENT STATUS RECODE 1998*/
DO IF (ESR = -5)
COMPUTE ESRC=-5
ELSE IF (ESR = 1 OR ESR = 2)
COMPUTE ESRC=1
ELSE IF (ESR = 3 OR ESR = 4)
COMPUTE ESRC=2
ELSE IF (ESR >= 4 AND ESR <= 7)
COMPUTE ESRC=3
ELSE 
COMPUTE ESRC=ESR
END IF
IF (Q5_JUMP = 1) ESRC=4

/*this section computes hract1, hract2, & hractt*/
hract1=-4;
array q540a (i) Q5_40A_02 Q5_40A_01;*WAS Q5-36 ANSWERED:DID RESPONDENT LOSE OR TAKE OFF HOURS LAST WEEK?;
array q540b (i) Q5_40B_02 Q5_40B_01;*R ANSWERED Q5-36 AND DID HAVE MORE THAN ONE JOB/BUSINESS LAST WEEK.;
array q540c (i) Q5_40C_02 Q5_40C_01;*R DID NOT ANSWER Q5-36 AND DID HAVE MORE THAN ONE JOB/BUSINESS LAST WEEK.;
array q540d (i) Q5_40D_02 Q5_40D_01;*R ANSWERED Q5-36 BUT DID NOT HAVE MORE THAN ONE JOB/BUSINESS LAST WEEK;
array q540e (i) Q5_40E_02 Q5_40E_01;*R DID NOT ANSWER Q5-36 AND DID NOT HAVE MORE THAN ONE JOB/BUSINESS LAST WEEK;
array q541a (i) Q5_41A_02 Q5_41A_01;*NUMBER OF HOURS R ACTUALLY WORKED AT MAIN JOB LAST WEEK;
array q541b (i) Q5_41B_02 Q5_41B_01;*NUMBER OF HOURS R ACTUALLY WORKED AT MAIN JOB LAST WEEK;
array q541c (i) Q5_41C_02 Q5_41C_01;*NUMBER OF HOURS R ACTUALLY WORKED AT JOB LAST WEEK;
array q541d (i) Q5_41D_02 Q5_41D_01;*NUMBER OF HOURS R ACTUALLY WORKED AT JOB LAST WEEK;
do i=1 to 2;
if hract1=-4 then do;
if missing(q540a) then hract1=-4;
else if ((q541a=-1 | q541b=-1 | q541c=-1 | q541d=-1) |
(q541a=-2 | q541b=-2 | q541c=-2 | q541d=-2)) then hract1=-2;
else if (q540b=1 & not missing(q541a)) then hract1= q541a;
else if (q540c=1 & not missing(q541b)) then hract1= q541b;
else if (q540d=1 & not missing(q541c)) then hract1= q541c;
else if (q540e=1 | q540e=0) then hract1= q541d;
end;
end;
hract2=-4;
array q542 (i) Q5_42_02 Q5_42_01;*DOES R HAVE MORE THAN ONE JOB?;
array q543 (i) Q5_43_02 Q5_43_01;*RESPONDENT HAS AT LEAST 3 JOBS;
array q543b (i) Q5_43B_02 Q5_43B_01;*NUMBER OF HOURS RESPONDENT ACTUALLY WORKED AT OTHER JOB LAST WEEK;
do i=1 to 2;
if hract2=-4 then do;
if (missing(q542)| q542=0) then hract2=-4;
else if (q543b=-1 | q543b=-2) then hract2=-2;
else if (q543=1) then hract2=q543b;*How about if q542=1???, line 93;
end;
end;
hractt=-4;
do i=1 to 2;
if hractt=-4 then do;
if missing(q540a) then hractt=-4;
else if ((hract1=-2) & (hract2=-2) | (missing(q543b))) then hractt=-2;
else if (hract1=-2 | hract2=-2) then hractt=995;
else if q543b=-4 then hractt=995;
else if ((q541a>0 & q541a~=995) & ((hract2=-2 | hract2=995)|missing(q543b)))
then hractt=q541a;
else if ((q541b>0 & q541b~=995) & ((hract2=-2 | hract2=995)|missing(q543b)))
then hractt=q541b;
else if ((q541c>0 & q541c~=995) & ((hract2=-2 | hract2=995)|missing(q543b)))
then hractt=q541c;
else if ((q541d>0 & q541d~=995) & ((hract2=-2 | hract2=995)|missing(q543b)))
then hractt=q541d;
else if ((q543b>0 & q543b~=995) & (hract1=-2 | hract1=995))
then hractt=q543b;
else if (q541a>0 & q541a~=995) then hractt=q541a;*total hours worked,last week;
else if ((q541a>0 & q541a~=995) & (q543b>0 & q543b~=995)) then hractt=q541a + q543b;
else if (q541b>0 & q541b~=995) then hractt=q541b;
else if ((q541b>0 & q541b~=995) & (q543b>0 & q543b~=995)) then hractt=q541b + q543b;
else if (q541c>0 & q541c~=995) then hractt=q541c;
else if ((q541c>0 & q541c~=995) & (q543b>0 & q543b~=995)) then hractt=q541c + q543b;
else if (q541a>0 & q541d~=995)then hractt=q541d;
else if ((q541a>0 & q541d~=995) & (q543b>0 & q543b~=995)) then hractt=q541d + q543b;
else hractt=-3;
end;
end;
/*business variables*/
bus2=0;
if missing(Q5_6) then bus2=-4; *DOES R OWN BUSINESS OR FARM?;
else if (Q5_6=-1 | Q5_8=-1) then bus2=-1;*NO Q5-7;
else if (Q5_6=-2 | Q5_8=-2) then bus2=-2;
else if (Q5_8=1) then bus2=1;*Q5-8: DOES R RECEIVES INCOME BUSINESS OR FARM (R DOES NOT OWN BUSINESS/FARM);
else if Q5_8=0 then bus2=0;
else bus2=-3;
/*set hours worked variables*/
hrusl1=-4;
array q525 (i) Q5_25_02 Q5_25_01;*R REPORTS MORE THAN ONE JOB OR BUSINESS;
array q526a (i) Q5_26A_02 Q5_26A_01;*NUMBER OF HOURS RESPONDENT USUALLY WORKS AT MAIN JOB;
array q526b (i) Q5_26B_02 Q5_26B_01;*NUMBER OF HOURS R USUALLY WORKS AT MAIN JOB;
array q526c (i) Q5_26C_02 Q5_26C_01;*NUMBER OF HOURS PER WEEK RESPONDENT USUALLY WORKS AT JOB;
array q526d (i) Q5_26D_02 Q5_26D_01;*NUMBER OF HOURS PER WEEK RESPONDENT USUALLY WORKS AT JOB;
do i=1 to 2;
if hrusl1=-4 then do;
if missing(q525) then hrusl=-4;
else if (q526a=-1 | q526c=-1 | q526a=-2 | q526c=-2)
then hrusl1=-2;
else if (q526a=995 | q526c=995) then hrusl1=995;
else if q526a=1 then hrusl1=q526b;
else if q526c=1 then hrusl1=q526d;
end;
end;
hrusl2=-4;
array q528a (i) Q5_28A_02 Q5_28A_01;*R REPORTS AT LEAST 3 OTHER JOBS;
array q528b (i) Q5_28B_02 Q5_28B_01;*NUMBER OF HOURS PER WEEK RESPONDENT USUALLY WORKS AT OTHER JOB;
array q528c (i) Q5_28C_02 Q5_28C_01;*NUMBER OF HOURS R USUALLY WORKS AT OTHER JOB;
array q528d (i) Q5_28D_02 Q5_28D_01;*NUMBER OF HOURS PER WEEK RESPONDENT USUALLY WORKS AT OTHER JOBS;
array q528e (i) Q5_28E_02 Q5_28E_01;*NUMBER OF HOURS PER WEEK R USUALLY WORKS AT OTHER JOBS;
do i= 1 to 2;
if hrusl2=-4 then do;
if missing(q528a) then hrusl2=-4;
else if (q528b=-1| q528d=-1 | q528b=-2 | q528d=-2) then hrusl2=-2;
else if (q528b=1) then hrusl2=q528c;
else if (q528d=1) then hrusl2=q528e;
else hrusl2=-3;
end;
end;
hruslt=-4;
array q527 (i) Q5_27_02 Q5_27_01;*R REPORTS MORE THAN ONE JOB;
do i=1 to 2;
if hruslt=-4 then do;
if missing(q525) then hruslt=-4;
else if ((hrusl1=-2 & hrusl2=-2) | (hrusl1=-2 & q527~=1)) then hruslt=-2;
else if ((hrusl1=995 & hrusl2=995) | (hrusl1=-2 & hrusl2=995) |
(hrusl1=995 & hrusl2=-2) | (hrusl1=-2 & q527~=1)) then hurslt=995;
else if (hrusl1=q526b & (hrusl2=-2 | hrusl2=995)) then hruslt= hrusl1;
else if (hrusl1=q526d & (hrusl2=-2 | hrusl2=995)) then hruslt= hrusl1;
else if (q528b=1 & (hrusl1=-2 | hrusl1=995)) then hruslt= hrusl2;
else if (q528d=1 & (hrusl1=-2 | hrusl1=995)) then hruslt= hrusl2;
else if (q526a=1 & q527~=1) then hruslt=q526b;
else if (q526c=1 & q527~=1) then hruslt=q526d;
else if (q526a=1 & q528b=1)then hruslt= (q526b + q528c);*total hours worked, usually;
else if (q526a=1 & q528d=1)then hruslt= (q526b + q528e);
else if (q526c=1 & q528b=1)then hruslt= (q526d + q528c);
else if (q526c=1 & q528d=1)then hruslt= (q526d + q528e);
else hruslt=-3;
end;
end;
hrftpt=-4;
array q530c (i) Q5_30C_02 Q5_30C_01;*R HAS MORE THAN ONE JOB AND DID UNPAID WORK FOR FAMILY LAST WEEK;
array q530g (i) Q5_30G_02 Q5_30G_01;*RESPONDENT USUALLY WORKS 35 HOURS OR MORE PER WEEK IN FAMILY BUSINESS OR FARM;
array q530i (i) Q5_30I_02 Q5_30I_01;*DOES R USUALLY WORK 35 HOURS OR MORE PER WEEK AT JOB?;
do i= 1 to 2;
if hrftpt=-4 then do;
if missing(q530c) then hrftpt=-4;
else if (q530g=-1 | q530i=-1) then hrftpt=-1;
else if (q530g=-2 | q530i=-2) then hrftpt=-2;
else if not missing(q530g) then hrftpt=q530g;
else if not missing(q530i) then hrftpt=q530i;
else hrftpt=-3;
end;
end;
hrwant=-4;
hrwant=Q5_33_01; *DOES RESPONDENT WANT TO WORK FULL TIME?;
hrrsn1=-4;
hrrsn1=Q5_34_01; *MAIN REASON RESPONDENT WORKS PART-TIME;
hrck7=-4;
if ((bus2=-2 | bus2=-1) & (hract1<15 | hract1=-2)) then hrck7=1;*bus2=2???;
else if ((bus2=-2 | bus2=-1) & (hract1>15)) then hrck7=2;
else if ((hruslt>35 or hrftpt=1) & (hractt<35) & (hract1~=-2 | hract2~=-2)) then hrck7=2;
else if ((hrwant=1) & (hractt<35) & (hrrsn1=1 | hrrsn1=2 | hrrsn1=3)) then hrck7=4;
else hrck7=5;
absot=0;
if (hract1=0 & hract2=0) then absot=1;
hrck6=-4;
if ((hract1=0 & hract2=0) & (bus2=-2 | bus2=-1)) then hrck6=1;
else if absot=1 then hrck6=2;
else hrck6=3;
wk=-4;
if not missing(Q5_2) then wk=Q5_2;*R DO ANY WORK FOR PAY LAST WEEK? (R DOES NOT OWN BUS/FARM);
else if not missing(Q5_3) then wk=Q5_3;*R DO ANY WORK LAST WEEK FOR PAY/PROFIT?;
retot=0;
if wk=2 then retot=1;
bus1=Q5_5;*R DO ANY UNPAID WORK IN FAMILY BUSINESS OR FARM LAST WEEK?;
ret1=Q5_10;*DOES R CURRENTLY WANT A JOB (FULL OR PART TIME)? ;
io1cow=Q5_JUMP;*IS R IN ACTIVE MILITARY?;
nlfact=Q5_93;*BEST DESCRIPTION OF RESPONDENT JOB SITUATION;
/*set out of work variables*/
abspd=-4;
if not missing(Q5_22_02) then abspd=Q5_22_02;*IS RESPONDENT BEING PAID BY EMPLOYER FOR TIME OFF LAST WEEK;
else if not missing(Q5_22_01) then abspd=Q5_22_01;*IS RESPONDENT BEING PAID BY EMPLOYER FOR TIME OFF LAST WEEK;
lkavl=-4;
if not missing(Q5_65_02) then lkavl=Q5_65_02;*COULD R HAVE STARTED A JOB LAST WEEK;
else if not missing(Q5_65_01) then lkavl=Q5_65_01;*COULD R HAVE STARTED A JOB LAST WEEK;
layavl=-4;
if not missing(Q5_51_02) then layavl=Q5_51_02;*COULD R HAVE RETURNED TO WORK LAST WEEK IF CALLED?;
else if not missing(Q5_51_01) then layavl=Q5_51_01;*COULD R HAVE RETURNED TO WORK LAST WEEK IF CALLED?;
lkavr=-4;
if not missing(Q5_66_02) then lkavr=Q5_66_02;*REASON FOR NOT BEING ABLE TO TAKE A JOB LAST WEEK;
else if not missing(Q5_66_01) then lkavr=Q5_66_01;*REASON FOR NOT BEING ABLE TO TAKE A JOB LAST WEEK;
layavr=-4;
if not missing(Q5_52_01) then layavr=Q5_52_01;*REASON FOR NOT BEING ABLE TO WORK LAST WEEK IF CALLED;
lk=-4;
if not missing(Q5_60_02) then lk=Q5_60_02;
else if not missing(Q5_60_01) then lk=Q5_60_01;*HAS R DONE ANYTHING TO FIND WORK DURING THE LAST 4 WEEKS;
dis1=-4;
if not missing(Q5_11_02) then dis1=Q5_11_02;*could not find the question;
else if not missing(Q5_11_01) then dis1=Q5_11_01;*DOES DISABILITY PREVENT R FROM ACCEPTING WORK IN NEXT 6 MONTHS;
dis2=-4;
if not missing(Q5_12_02) then dis2=Q5_12_02;*DOES R HAVE A DISABILITY THAT PREVENT R FROM WORKING IN NEXT 6 MONTHS;
else if not missing(Q5_12_01) then dis2=Q5_12_01; *DOES R HAVE A DISABILITY THAT PREVENT R FROM WORKING IN NEXT 6 MONTHS;
dwwnto=-4;
array q578 (i) Q5_78_02 Q5_78_01;*DOES R CURRENTLY WANT A FULL-TIME OR PART-TIME JOB?;
do i= 1 to 2;
if ret1=1 then dwwnto=1;
else if dwwnto=-4 then do;
if q578=1 then dwwnto=1;
else if q578=0 then dwwnto=2;
else if missing(q578) then dwwnto=-4;
else if q578=-2 then dwwnto=-2;
else if q578=-1 then dwwnto=-1;
else if q578=3 then dwwnto=3;
else if q578=4 then dwwnto=4;
else dwwnto=-3;
end;
end;
io1cow=0;
if Q5_JUMP=1 then io1cow=8;
/* sets esr code*/
esr_key=-4;
if ((wk=1 & (hrck6=3 | hrck6=-4 )) | (bus1=1 AND (hrck7=2 | hrck7=3 | hrck7=4 |
hrck7=5 | hrck7=-4))) then esr_key=1;
else if (abspd=1 | abspd=0 | abspd=-1 | abspd=-2) then esr_key=2;
else if ((layavl=1 | layavl=-1 | layavl=-2) | layavr=1) then esr_key=3;
else if ((lkavl=1 | lkavl=-1 | lkavl=-2) | (lkavr=1 | lkavr=2)) then esr_key=4;
else if ((wk=3 & intage >=50 & ret1=1 & lk=1 & lkavl=0 & (lkavr=3 | lkavr=4 | lkavr=-1 | lkavr=-2)) |
ret1=0 | (lk=3 & intage>=50) | (dwwnto=3 & intage>=50) | nlfact=5 | retot=1) then esr_key=5;
else if (dis1=1 | dis2=1 | (lk=3 & intage<50) | (dwwnto=3 & intage<50)) then esr_key=6;
else if (Q5_JUMP=1) then esr_key=8;*IS R IN ACTIVE MILITARY?;
else if not missing(CURDATE_M) then esr_key=7;
else esr_key=-5;
/*collapsed esr*/
esr_col=0;
if (esr_key=-5) then esr_col=-5;
else if (esr_key=1 | esr_key=2) then esr_col=1;
else if (esr_key=3 | esr_key=4) then esr_col=2;
else if (esr_key>=4 and esr_key<=7) then esr_col=3;
else if Q5_JUMP=1 then esr_col=4;
else esr_col=esr_key;run;

NLSY79 Attachment 106: Profiles of American Youth (ASVAB Data/AFQT Scores)

Information about the administration of the Armed Services Vocational Aptitude Battery (ASVAB) to NLSY79 respondents is available in PDF format. This documentation also includes information about the creation of the associated Armed Forces Qualification Test (AFQT) scores. Information includes:

Part 1: General & Technical Information (PDF)

  • Background and General Information (page 2)
  • Data Quality Analysis with Item Response Curve Models (page 5)
  • Annotated Bibliography of DoD Related Publications (page 25)
  • Addendum to Attachment 106 (page 34) -- describing additional subtest standard scores and the creation of revised AFQT scores in 1990

Part 2: Respondent Materials (PDF)

  • Two brochures given to NLSY79 respondents about their participation in the ASVAB testing and interpretation of their scores

NLSY79 Attachment 103: Religion Codes


Religion codes

  • 0 None
  • 1 Protestant, etc.
  • 2 Baptist
  • 3 Episcopalian
  • 4 Lutheran
  • 5 Methodist
  • 6 Presbyterian
  • 7 Roman Catholic
  • 8 Jewish
  • 101 Armenian Church
  • 102 Baha'i
  • 103 Buddhist
  • 104 Confucian
  • 105 Eastern Orthodox
  • 106 Greek Orthodox
  • 107 Hindu
  • 108 Moslem
  • 109 Muslim
  • 110 Russian Orthodox
  • 111 Shinto
  • 112 Sikh
  • 113 Taoist
  • 201 Advent Christian
  • 202 African Methodist
  • 203 African Methodist Episcopal
  • 204 African Methodist Episcopal-Zion
  • 205 Apostolic
  • 206 Apostolic Faith
  • 207 Apostolic Pentecostal
  • 208 Assembly of God
  • 209 Bible Church, Independent
  • 210 Brethren Church
  • 211 Christadelphian
  • 212 Christ in Christian Union
  • 213 Christian, Disciples of Christ
  • 214 Christian and Missionary Alliance
  • 215 Christian Catholic
  • 216 Christian Methodist-Episcopal
  • 217 Christian Reformed
  • 218 Christian Science
  • 219 Church of Christ
  • 220 Church of God
  • 221 Church of God in Christ
  • 222 Church of the Living God
  • 223 Congregational
  • 224 Conservative Baptist
  • 225 Evangelical
  • 226 Evangelical Reformed
  • 227 Evangelical Congregational
  • 228 Evangelical Mission Covenant
  • 229 Evangelical Friends
  • 230 Evangelical United Brethren
  • 231 Foursquare Gospel
  • 232 Free Christian Zion
  • 233 Free Will Baptist
  • 234 Friends, Quaker
  • 235 Full Gospel
  • 236 Fundamental
  • 237 Church of Holiness
  • 238 Jehovah's Witness
  • 239 Latter Day Saints, Mormon
  • 240 Latter Day Saints Reorganized
  • 241 Mennonite
  • 242 Mennonite Reformed
  • 243 Missionary
  • 244 Moravian
  • 245 Nazarene
  • 246 New Apostolic
  • 247 Northern Baptist
  • 248 Open Bible
  • 249 Pentecostal
  • 250 Pentecostal Assembly of God
  • 251 Pentecostal Church of God
  • 252 Pentecostal Free Will Baptist
  • 253 Pentecostal Holiness
  • 254 Pilgrim Holiness
  • 255 Plymouth Brethren
  • 256 Primitive Baptist
  • 257 Dutch Reformed
  • 258 Reformed Church of Christ
  • 259 Reformed United Church of Christ
  • 260 Salvation Army
  • 261 Seventh Day Adventist
  • 262 Southern Baptist
  • 263 Spiritualist
  • 264 Swedish Mission
  • 265 Triumph the Church of the Kingdom
  • 266 Unitarian Universalist
  • 267 United Brethren in Christ
  • 268 United Church of Christ
  • 269 United Holiness
  • 270 Wesleyan
  • 271 Wesleyan Methodist
  • 272 Witness Holiness
  • 273 Zion Union
  • 274 Zion Union Apostolic
  • 275 Zion Union Apostolic Reformed
  • 300 Other Protestant
  • 301 Other Non-Christian

Protestant denomination codes for R6558., R6583., R6586., R6613., R6616.

  • 01 Hungarian Reformed
  • 02 Evangelical Congregational
  • 03 Ind Bible, Bible, Bible Fellowship
  • 04 Eckankar
  • 05 Church of Prophecy
  • 06 New Testament Christian
  • 07 Church of God, Saint, & Christ
  • 08 Moravian
  • 09 Christian & Missionary Alliances
  • 10 Advent Christian
  • 11 Spiritualist
  • 12 Assembly of God
  • 13 Free Methodist
  • 14 Apostolic Faith
  • 15 African Methodist
  • 16 Free Will Baptist
  • 17 Eden Evangelist
  • 18 Holiness (Nazarene)
  • 19 Baptist (Northern)
  • 20 Brethren Church, Brethren
  • 21 Witness Holiness
  • 22 Brethren, Plymouth
  • 23 United Brethren, United Brethren in Christ
  • 24 Independent
  • 25 Christian Disciples
  • 26 Christ in Christian Union
  • 27 Open Bible
  • 28 Christian Catholic
  • 29 Christ Church Unity
  • 30 Christ Adelphians
  • 31 Christian; Central Christian
  • 32 Christian Reform
  • 33 Christian Scientist
  • 34 Church of Christ, Evangelical
  • 35 Church of Christ
  • 36 Churches of God (Except with Christ and Holiness)
  • 37 Church of God in Christ
  • 38 Church of God in Christ Holiness
  • 39 Church of the Living God
  • 40 Congregationalist, First Congregation
  • 41 Community Church
  • 42 Covenant
  • 43 Dutch Reform
  • 44 Disciplines of Christ
  • 45 Evangelical, Evangelist
  • 46 Evangelical Reformed
  • 47 Evangelist Free Church
  • 48 First Church
  • 49 First Christian Disciples of Christ
  • 50 First Reformed
  • 51 First Christian
  • 52 Full Gospel
  • 53 Four Square Gospel
  • 54 Friends
  • 55 Holy Roller
  • 56 Holiness; Church of Holiness
  • 57 Pilgrim Holiness
  • 58 Jehovah's Witness
  • 59 LDS
  • 60 LDS--Mormon
  • 61 LDS--Reorganized
  • 62 LDS--Jesus Christ; Church of Jesus LDS
  • 63 Mennonite
  • 64 Mormon
  • 65 Nazarene
  • 66 Pentecostal Assembly of God
  • 67 Pentecostal Church of God
  • 68 Pentecostal
  • 69 Pentecostal Holiness, Holiness Pentecostal
  • 70 Quaker
  • 71 Reformed
  • 72 Reformed United Church of Christ
  • 73 Reformed Church of Christ
  • 74 Religious Science
  • 75 Mind Science
  • 76 Salvation Army
  • 77 7th Day Adventist
  • 78 Sanctified, Sanctification
  • 79 United Holiness
  • 80 Unitarian, Universalist
  • 81 United Church of Christ
  • 82 United Church, Unity Church
  • 83 Wesleyan
  • 84 Wesleyan Methodist--Pilgrim
  • 85 Zion Union
  • 86 Zion Union Apostolic
  • 87 Zion Union Apostolic--Reformed
  • 88 Disciples of God
  • 89 Grace Reformed
  • 90 Holiness Church of God
  • 91 Evangelical Covenant
  • 92 Mission Covenant
  • 93 Missionary Baptist
  • 94 Swedish Mission
  • 95 Unity
  • 96 United Church of Christianity
  • 00 Other Fundamentalist

NLSY79 Attachment 100: Geographic Regions

Table: States by region

Region 1: 'Northeast'

Region 2: 'North Central'

Region 3: 'South'

Region 4: 'West'

  • Connecticut
  • Maine
  • Massachusetts
  • New Hampshire
  • New Jersey
  • New York
  • Pennsylvania
  • Rhode Island
  • Vermont
  • Illinois
  • Indiana
  • Iowa
  • Kansas
  • Michigan
  • Minnesota
  • Missouri
  • Nebraska
  • North Dakota
  • Ohio
  • South Dakota
  • Wisconsin
  • Alabama
  • Arkansas
  • Delaware
  • District of Columbia
  • Florida
  • Georgia
  • Kentucky
  • Louisiana
  • Maryland
  • Mississippi
  • North Carolina
  • Oklahoma
  • South Carolina
  • Tennessee
  • Texas
  • Virginia
  • West Virginia
  • Alaska
  • Arizona
  • California
  • Colorado
  • Hawaii
  • Idaho
  • Montana
  • Nevada
  • New Mexico
  • Oregon
  • Utah
  • Washington
  • Wyoming

NLSY79 Attachment 8: Health Codes

General information on health codes

Health conditions related to work limitations (1979-2000)

The health sections of the NLSY79 surveys for most interview years between 1979-2000 elicited reports of health problems that limited the amount or kind of work the respondent could do. These health problems are coded using a modified version of the International Classification of Diseases (ICD-9) codes taken from the World Health Organization, International Classification of Diseases, Ninth Revision, 2 vols., WHO, Geneva, 1977 (vol. 1) and 1978 (vol. 2).

The health consolidation codes present in 1979, 1981 and 1982 represent the most complete description possible of the respondent's main cause of limitation in work gathered from a reading of the whole health section. They were also coded using the modified ICD-9 codes after the rest of the health section has been coded. The health consolidation codes, thus, represent the (proximal) description of the respondent's main cause of limitation in work, and not an underlying cause (remote) preceding the current complaint.

As originally coded, the untruncated NLSY79 health codes corresponded to the ICD-9 codes with the decimal point deleted, except for the supplemental V and E ICD-9 codes. The supplemental ICD-9 codes were modified by dropping the alpha code and adding the remaining numeric portion of the supplemental codes to a larger number. The following numeric conversion was made for the supplemental codes: V codes = 10000+ and E codes = 11000+. (Zero (0) means no health problem). The changes were necessary because alphas are not used as variable values in the NLSY79 data. These ICD-9 codes have then been collapsed further by truncating them by one digit.

A link to the ICD-9 is included below. The NLSY79 modified codes can be tracked back to general disease classifications in the ICD-9 scheme. The supplemental E and V codes and the medical terms associated with them appear in Tables 2-3 below. For more detail, see the International Classification of Diseases, Ninth Revision.

40+, 50+ and 60+ biological parent and respondent health conditions (1998-2022)

With the addition of the 40+ Health Module in 1998, questions collecting health conditions for the biological parents of respondents have been asked of the appropriate cohort each round. This has continued with the subsequent 50+ and 60+ Health Modules. In the 50+ and 60+ Health Modules, respondents also have had the opportunity to report any other information they wanted to about their own health.

The major health conditions of respondents’ biological parents collected in the 40+, 50+ and 60+ Health Modules are coded using the CDC, National Vital Statistics System 113 List, contained in Table 1 below. These are taken from the National Vital Statistics Reports, Volume 65, no 2 (2/16/2016), and can be found online on the CDC website.

Parts of body affected by work-limiting health conditions and reported cancer (1979-2022)

A set of numeric codes for parts of the body was developed by NORC for the 1979-1981 health sections. These codes are contained in Table 4. They have been used to code parts of the body affected by work-related injuries/illnesses mentioned above. Additionally, respondents have been asked to report cancer diagnoses and parts of the body affected by these cancers in the 40+, 50+ and 60+ Health Modules. The same codes have been applied to parts of the body affected by cancer.

Table 1. CDC – National Vital Statistics System 113 List (A conversion crosswalk from the ICD-10 health codes and the National Vital Statistics System 113 List codes can be accessed in the file ICD-10 to National Vital Statistics 113 List Crosswalk (XLSX).

Table 1. CDC – National Vital Statistics System 113 list
Code Description
1 Salmonella infections
2 Shigellosis and amebiasis
3 Certain other intestinal infections
4 Tuberculosis: Respiratory tuberculosis
5 Tuberculosis: Other tuberculosis
6 Whooping cough
7 Scarlet fever and erysipelas
8 Meningococcal infection
9 Septicemia
10 Syphilis
11 Acute poliomyelitis
12 Arthropod-borne viral encephalitis
13 Measles
14 Viral hepatitis
15 Human immunodeficiency virus (HIV) disease
16 Malaria
17 Other and unspecified infectious and parasitic diseases and their sequelae
18 Malignant neoplasms: Malignant neoplasms of lip, oral cavity and pharynx
19 Malignant neoplasms: Malignant neoplasm of esophagus
20 Malignant neoplasms: Malignant neoplasm of stomach
21 Malignant neoplasms: Malignant neoplasms of colon, rectum and anus
22 Malignant neoplasms: Malignant neoplasms of liver and intrahepatic bile ducts
23 Malignant neoplasms: Malignant neoplasm of pancreas
24 Malignant neoplasms: Malignant neoplasm of larynx
25 Malignant neoplasms: Malignant neoplasms of trachea, bronchus and lung
26 Malignant neoplasms: Malignant melanoma of skin
27 Malignant neoplasms: Malignant neoplasm of breast
28 Malignant neoplasms: Malignant neoplasm of cervix uteri
29 Malignant neoplasms: Malignant neoplasms of corpus uteri and uterus, part unspecified
30 Malignant neoplasms: Malignant neoplasm of ovary
31 Malignant neoplasms: Malignant neoplasm of prostate
32 Malignant neoplasms: Malignant neoplasms of kidney and renal pelvis
33 Malignant neoplasms: Malignant neoplasm of bladder
34 Malignant neoplasms: Malignant neoplasms of meninges, brain and other parts of central nervous system
35 Malignant neoplasms: Malignant neoplasms of lymphoid, hematopoietic and related tissue: Hodgkin’s disease
36 Malignant neoplasms: Malignant neoplasms of lymphoid, hematopoietic and related tissue:Non-Hodgkin’s lymphoma
37 Malignant neoplasms: Malignant neoplasms of lymphoid, hematopoietic and related tissue:Leukemia
38 Malignant neoplasms: Malignant neoplasms of lymphoid, hematopoietic and related tissue:Multiple myeloma and immunoproliferative neoplasms
39 Malignant neoplasms: Malignant neoplasms of lymphoid, hematopoietic and related tissue:Other and unspecified malignant neoplasms of lymphois, hematopoietic and related tissue
40 All other and unspecified malignant neoplasms
41 In situ neoplasms, benign neoplasms and neoplasms of uncertain or unknown behavior
42 Anemias
43 Diabetes mellitus
44 Nutritional deficiencies: Malnutrition
45 Nutritional deficiencies: Other nutritional deficiencies
46 Meningitis
47 Parkinson’s disease
48 Alzheimer’s disease
49 Major cardiovascular diseases: Diseases of heart: Acute rheumatic fever and chronic rheumatic heart disease
50 Major cardiovascular diseases: Diseases of heart: Hypertensive heart and disease
51 Major cardiovascular diseases: Diseases of heart: Hypertensive heart and renal disease
52 Major cardiovascular diseases: Ischemic heart diseases: Acute myocardial infarction
53 Major cardiovascular diseases: Ischemic heart diseases: Other acute ischemic heart diseases
54 Major cardiovascular diseases: Ischemic heart diseases: Other forms of chronic ischemic heart diseases: Atherosclerotic cardiovascular disease, so described
55 Major cardiovascular diseases: Ischemic heart diseases: Other forms of chronic ischemic heart diseases: All other forms of chronic ischemic heart disease
56 Major cardiovascular diseases: Other heart diseases: Acute and subacute endocarditis
57 Major cardiovascular diseases: Other heart diseases: Diseases of pericardium and acute myocarditis
58 Major cardiovascular diseases: Other heart diseases: Heart failure
59 Major cardiovascular diseases: Other heart diseases: All other forms of heart disease
60 Essential hypertension and hypertensive renal disease
61 Cerebrovascular diseases
62 Atherosclerosis
63 Other diseases of circulatory system: Aortic aneurysm and dissection
64 Other diseases of circulatory system: Other diseases of arteries, arterioles and capillaries
65 Other disorders of circulatory system
66 Influenza and pneumonia: Influenza
67 Influenza and pneumonia: Pneumonia
68 Other acute lower respiratory infections: Acute bronchitis and bronchiolitis
69 Other acute lower respiratory infections: Other and unspecified acute lower respiratory infections
70 Chronic lower respiratory diseases: Bronchitis, chronic and unspecified
71 Chronic lower respiratory diseases: Emphysema
72 Chronic lower respiratory diseases: Asthma
73 Chronic lower respiratory diseases: Other chronic lower respiratory diseases
74 Pneumoconioses and chemical effects
75 Pneumonitis due to solids and liquids
76 Other diseases of respiratory system
77 Peptic ulcer
78 Diseases of appendix
79 Hemia
80 Chronic liver disease and cirrhosis: Alcoholic liver disease
81 Chronic liver disease and cirrhosis: Other chronic liver disease and cirrhosis
82 Cholelithiasis and other disorders of gallbladder
83 Nephritis, nephrotic syndrome and nephrosis: Acute and rapidly progressive nephritic and nephrotic syndrome
84 Nephritis, nephrotic syndrome and nephrosis: Chronic glomerulonephritis, nephritis and nephropathy not specified as acute or chronic and renal sclerosis unspecified
85 Nephritis, nephrotic syndrome and nephrosis: Renal failure
86 Nephritis, nephrotic syndrome and nephrosis: Other disorders of kidney
87 Infections of kidney
88 Hyperplasia of prostate
89 Inflammatory diseases of female pelvic organs
90 Pregnancy, childbirth and the puerperium: Pregnancy with abortive outcome
91 Pregnancy, childbirth and the puerperium: Other complications of pregnancy, childbirth and the puerperium
92 Certain conditions originating in the perinatal period
93 Congenital malformations, deformations and chromosomal abnormalities
94 Symptoms, signs and abnormal clinical and laboratory findings, not elsewhere classified
95 All other diseases
96 Accidents (unintentional injuries): Transport accidents: Motor vehicle accidents
97 Accidents (unintentional injuries): Transport accidents: Other land transport accidents
98 Accidents (unintentional injuries): Transport accidents: Water, air and space, and other and unspecified transport accidents and their sequelae
99 Accidents (unintentional injuries): Nontransport accidents: Falls
100 Accidents (unintentional injuries): Nontransport accidents: Accidental discharge of firearms
101 Accidents (unintentional injuries): Nontransport accidents: Accidental drowning and submersion
102 Accidents (unintentional injuries): Nontransport accidents: Accidental exposure to smoke, fire and flames
103 Accidents (unintentional injuries): Nontransport accidents: Accidental poisoning and exposure to noxious substances
104 Accidents (unintentional injuries): Nontransport accidents: Other and unspecified nontransport accidents and their sequelae
105 Intentional self-harm (suicide): Intentional self-harm (suicide) by discharge of firearms
106 Intentional self-harm (suicide): Intentional self-harm (suicide) by other and unspecified means the their sequelae
107 Assault (homicide): Assault (homicide) by discharge of firearms
108 Assault (homicide): Assault (homicide) by other and unspecified means the their sequelae
109 Legal Intervention
110 Events of undetermined intent: Discharge of firearms, undetermined intent
111 Events of undetermined intent: Other and unspecified events of undetermined intent and their sequelae
112 Operations of war and their sequelae
113 Complications of medical and surgical care

Modified ICD-9 codes

The ICD-9 can be found on the CDC website as well as through many other online resources.  With the exception of the E and V codes (see tables below), the truncated codes contained in the NLSY79 data for health conditions affecting ability to work map directly to general disease classifications in the ICD-9 codes.

Table 2. Modified V codes: Supplementary classification of factors influencing health status and contact with health services

Codes

Description
1001 - 1007 Persons with potential health hazards related to communicable diseases
1010 - 1019 Persons with potential health hazards related to personal and family history
1020 - 1028 Persons encountering health services in circumstances related to reproduction and development
1030 - 1039 Healthy liveborn infants according to birth type
1040 - 1049 Persons with a condition influencing their health status
1050 - 1059 Persons encountering health services for specific procedures and aftercare
1060 - 1068 Persons encountering health services in other circumstances
1070 - 1082 Persons without reported diagnosis encountered during examination and investigation of individuals and populations
Table 3. Modified E codes: Supplementary classification of external causes of injury and poisoning

Codes

Description
1180 - 1180 Railway accidents
1181 - 1181 Motor vehicle traffic accidents
1182 - 1182 Motor vehicle nontraffic accidents
1182 - 1182 Other road vehicle accidents
1183 - 1183 Water transport accidents
1184 - 1184 Air and space transport accidents
1184 - 1184 Vehicle accidents not elsewhere classifiable
1185 - 1185 Accidental poisoning by drugs, medicaments and biologicals
1186 - 1186 Accidental poisoning by other solid and liquid substances, gases and vapours
1187 - 1187 Misadventures to patients during surgical and medical care
1187 - 1187 Surgical and medical procedures as the cause of abnormal reaction of patient or later complication
1188 - 1188 Accidental falls
1189 - 1189 Accidents caused by fire and flames
1190 - 1190 Accidents due to natural and environmental factors
1191 - 1191 Accidents caused by submersion, suffocation and foreign bodies
1191 - 1192 Other accidents and late effects of accidental injury
1193 - 1194 Drugs, medicaments and biological substances causing adverse effects in therapeutic use
1195 - 1195 Suicide and self-inflicted injury
1196 - 1196 Homicide and injury purposely inflicted by other persons
1197 - 1197 Legal intervention
1198 - 1198 Injury undetermined whether accidentally or purposely inflicted
1199 - 1199 Injury resulting from operations of war
Table 4. Codes for parts of body in health section
Code Description
01 Brain, CNS, spinal cord
02 Peripheral nervous system
03 Emotions, "nerves"
04 Heart
05 Blood, spleen
06 Vascular system
07 Lymphatic system, lymph glands
08 Pituitary gland
09 Thyroid gland
10 Adrenal gland
11 Other endocrine glands; endocrine system; pineal gland; parathyroid gland; thymus
12 Eye
13 Vision
14 Lacrimal gland and duct
15 Eyelid
16 Ear (inner and outer)
17 Hearing
18 Nose
19 Smell
20 Tonsils and adenoids
21 Sinus
22 Vocal cords, larynx
23 Speech
24 Throat, pharynx
25 Lung, trachea and bronchi
26 Breathing
27 Mouth and tongue
28 Gums
29 Teeth
30 Esophagus
31 Stomach
32 Upper digestive tract
33 Liver
34 Biliary tract
35 Gallbladder
36 Pancreas
37 Abdomen
38 Upper abdomen
39 Lower abdomen
40 Intestine and colon
41 Rectum
42 Anus
43 Lower digestive tract
44 Digestive system
45 Kidneys
46 Bladder
47 Prostate
48 Other genitourinary tract; urethra; ureter
49 Penis
50 Other male reproductive system; scrotum; vas deferens; testes
51 Breast, nipple
52 Vulva, clitoris
53 Vagina, cervix, uterus
54 Other female reproductive system; fallopian tubes; ovaries
55 Menstruation
56 Skin
57 Hair
58 Scalp
59 Nails
60 Head, skull
61 Face, forehead, lips
62 Jaw
63 Chin
64 Neck, cervical vertebrae
65 Back, dorsal spine
66 Low back, lumbar spine
67 Trunk
68 Chest
69 Chest wall, external chest; axilla
70 Collarbone
71 Ribs
72 Side, flank
73 Shoulder
74 Arm
75 Upper arm
76 Elbow
77 Lower arm
78 Wrist
79 Hand (palm)
81 Fingers
82 Pelvis
83 Groin
84 Buttocks
85 Hip
86 Leg
87  Upper leg, thigh
88 Knee, kneecap
89 Lower leg
90 Ankle
91 Foot
92 Toes
93 Muscles, tendons, ligaments NOS (not otherwise specified)
94 Bone(s) NOS (not otherwise specified)
95 Joints NOS (not otherwise specified)
96 "Entire body"
80 Other NOS (not otherwise specified)

National Death Index (NDI) data

The current 1979-2022 NLSY79 data release contains information regarding cause, dates and location of death for deceased respondents for whom a matching death certificate was returned from an NDI search. Most of these variables are limited to the geocode and zipcode releases. Data for a subset of NLSY79 respondents was submitted for an NDI search. The subset included respondents identified as deceased during survey field periods and respondents who have proven difficult to locate or have not been interviewed for a period of time with no confirmation of their status. In order to maximize the possibility of an NDI death certificate match, multiple submissions were made for individual respondents whenever possible. These multiple submissions could include elements such as maiden names, different married names, nicknames and various multiple ethnicities reported by the respondent, any of which might appear in various combinations on a death certificate. Individual respondent records, interviewer notes and administrative data were examined in conjunction with NDI search results to determine those for which valid matches could be established. Related variables are found in the NDI VERIFICATION area of interest. Table 1 depicts the coding scheme used for the underlying cause of death, found on the current data release. See also the Health section for information on NDI-related variables.

NLSY79 Attachment 7: Other Certificate Codes

Section 14, Q.08, 1979


Codes 001-025

  • 001 Associate's Degree
  • 002 Bachelor's Degree
  • 003 Master's Degree
  • 004 Other Degree/Certificate not elsewhere classified
  • 005 Seaman
  • 006 Practical Nurse
  • 007 Nurse's Aide
  • 008 Waitress Diploma
  • 009 Secretarial
  • 010 Medical Assistant
  • 011 Real Estate
  • 012 Pharmacist (Extern License)
  • 013 Modelling
  • 014 Boat License (100 Ton)
  • 015 Welding
  • 016 Roentgenology
  • 017 Department of Mines Apprenticeship
  • 018 Fashion Merchandising & Retail Business
  • 019 Apprentice Construction Carpenter
  • 020 Water Safety Instructor
  • 021 Red Cross First Aid
  • 022 Auto Body Repair
  • 023 Restaurant Management
  • 024 Keypunch
  • 025 Cashier

Codes 026-050

  • 026 Cosmetology (Beauty Certificate & License)
  • 027 Small Engine Repair Certificate
  • 028 Diversified Health
  • 029 Lift Truck Operator
  • 030 Masonry
  • 031 Lifeguard
  • 032 Liquified Petroleum Gas Test Certificate
  • 033 Business Skills
  • 034 Sales Clerk Certificate
  • 035 Tool Room Clerk Certificate
  • 036 Machinist Certificate
  • 037 Supply Clerk 038 Refrigeration, Air Conditioning
  • 039 American Collector's Association Certificate
  • 040 Pharmacology (Practical Nurse)
  • 041 Graphics Certificate
  • 042 Horsetraining
  • 043 Mechanic's Certificate
  • 044 Automotive
  • 045 Broadcasting License
  • 046 Cardio-pulmonary Resuscitation
  • 047 Medical Technology Certificate
  • 048 Medical Office Procedures Certificate
  • 049 Food Service Certificate
  • 050 Dance Teachers Association Certificate

Codes 051-075

  • 051 Piano Guild Certificate
  • 052 Medical Secretary
  • 053 Wire Technician
  • 054 Clerical
  • 055 Bank Teller
  • 056 Upward Bound
  • 057 Retail Shop
  • 058 Heavy Equipment Operation Certificate
  • 059 Forestry Certificate
  • 060 Fork Lift Operator's License
  • 061 Truck Driving
  • 062 Camp Horsemanship Association Instructors Certificate
  • 063 Certified Music Union
  • 064 Health Assistant Certificate
  • 065 Food Occupations II Certificate
  • 066 Electrical
  • 067 Direct Current
  • 068 Boiler Maintenance License
  • 069 Student Teacher's Card - Piano Lessons
  • 070 Association of Sales & Marketing Management Certificate
  • 071 Private Helicopter Pilot License
  • 072 Drawing Certificate
  • 073 Language Certificate
  • 074 Service Station Attendant Certificate
  • 075 Commercial Truck Driver's Certificate

Codes 076-100

  • 076 Fashion Designer
  • 077 Travel Training
  • 078 Bookkeeping
  • 079 Riding Instructor
  • 080 Resale License
  • 081 3rd Class Engineer
  • 082 High Pressure Boiler Operator
  • 083 Low Pressure Boiler Operator
  • 084 Preschool Teaching
  • 085 Jeweler's Certificate
  • 086 Accounting
  • 087 Chauffeur's License
  • 088 X-Ray Technician
  • 089 International Open Water Diver Qualification
  • 090 Hospital Housekeeping Certificate
  • 091 Life Saving Instructor
  • 092 Ministerial Certificate
  • 093 Ironworker
  • 094 Honda Mechanics
  • 095 _______ County Career Education Center
  • 096 Cardiac Arrest License
  • 097 Diesel Mechanic Diploma
  • 098 is not documented. They should be considered code 4, OTHER.
  • 099 Varsity Certificate
  • 100 Electronics Technician Certificate

Codes 101-125

  • 101 Law Enforcement Certificate
  • 102 Senior Life Saving Certificate
  • 103 Computer Programming
  • 104 Typing
  • 105 Respiratory Therapy
  • 106 Printing
  • 107 Photography
  • 108 Gymnastics Judge
  • 109 Barber's Certificate
  • 110 Small Appliance Repair Certificate
  • 111 Communications License
  • 112 Time Study Methods
  • 113 FFA (Agriculture)
  • 114 Emergency Medical Technician
  • 115 Scuba Diving
  • 116 Soccer
  • 117 Water Superintendent License
  • 118 Traffic Safety Certificate
  • 119 Dental Assistant
  • 120 Executive Secretary
  • 121 Trainman's Card
  • 122 Food Handler's Certificate
  • 123 Teacher of Mentally Retarded (volunteer) Certificate
  • 124 Charm School Certificate
  • 125 Certificate for Data Processing

Codes 126-150

  • 126 Food Preparation Certificate
  • 127 Advanced Amateur Radio License
  • 128 Scale Repair 129 Construction Worker Certificate
  • 130 Elementary Teaching in Special Education Certificate
  • 131 Blueprint Reading
  • 132 Draftsman - Certificate of Achievement
  • 133 Chef - Commercial Foods Certificate
  • 134 Sewing Course Certificate
  • 135 Cooking Certificate
  • 136 Child Development Certificate
  • 137 Recreation Work
  • 138 Child Careers
  • 139 Model Office
  • 140 Medical Insurance Clerk
  • 141 U.S. Steelworker's Card
  • 142 Water Works of America
  • 143 Newspaper Carrier
  • 144 Tool & Die
  • 145 Vocational Diploma
  • 146 10-Key Adding Machine
  • 147 Office Machines Certificate
  • 148 Airplane Pilot License
  • 149 CCD - Christian Teaching Certificate
  • 150 Pool Operator Certificate

Codes 151-175

  • 151 Food Handler's Certificate
  • 152 Ski Instructor
  • 153 FAA Power Plant License
  • 154 FAA Airframe License
  • 155 Taxidermist
  • 156 Babysitting Certificate
  • 157 Nursing Diploma - Registered Nurse
  • 158 Telephone Installer
  • 159 Driver's Certificate Award
  • 160 Business Secretary Diploma
  • 161 Radio Operator's License
  • 162 is not documented. They should be considered code 4, OTHER.
  • 163 Xerox Operator Certificate
  • 164 Security Officer
  • 165 Medical Ward Clerk
  • 166 Developmental Assistant (Work with Retarded People)
  • 167 Construction
  • 168 Merchant Marine
  • 169 Bartender
  • 170 Legal Secretary
  • 171 Lathe Operator
  • 172 Marketing Technology
  • 173 Airline Hostess
  • 174 Math Course
  • 175 Microwave Technician

Codes 176-200

  • 176 Pediatric Nurse
  • 177 Tutoring
  • 178 Aircraft Mechanic
  • 179 Upholstery
  • 180 Air Conditioning-Refrigeration Apprentice
  • 181 Survival Weaponry Certificate
  • 182 Military Police
  • 183 Military Police Science
  • 184 Computer Operations
  • 185 Basic Boating
  • 186 Lab Technician
  • 187 Helicopter Mechanic
  • 188 Air Cargo Specialist
  • 189 Micro-welding
  • 190 Fire Extinguisher Certificate
  • 191 Lab Technician
  • 192 Security Batton Certificate
  • 193 Tear Gas Certificate
  • 194 Firearms Certificate
  • 195 National Twirling Teachers Association
  • 196 Pesticide Application License
  • 197 Red Cross Life Saving
  • 198 Camp Counselor
  • 199 Heavy Equipment Operator
  • 200 Firefighting Certificate

Codes 201-225

  • 201 Vehicle Waterproofing
  • 202 U.S. Army Military Police School
  • 203 Nuclear, Biological, Chemical Defense Safety Certificate
  • 204 Rehabilitation Administration
  • 205 Generator Operator
  • 206 Dental Assistant
  • 207 Landscaping License
  • 208 150 Kilowatt Generator Maintenance
  • 209 Training in Aircraft Arrest Systems
  • 210 Apprentice Fire Protection 211 Fire Protection Specialist
  • 212 Florist - Floral Design
  • 213 Social Service
  • 214 Public Information - Journalism Certificate
  • 215 Sports Official - Referee
  • 216 Field Sanitation
  • 217 Mail Clerk
  • 218 Daughters of American Revolution
  • 219 Freight Handler Certificate
  • 220 Ebony Junior Miss Pageant Certificate
  • 221 Military Driver's License
  • 222 National Rifle Association
  • 223 Hospital Corps
  • 224 E.M.T.I.
  • 25 Breathalizer Operator

Codes 226-250

  • 226 Commercial Artist Certificate
  • 227 Administration Certificate
  • 228 Air Traffic Controller Certificate
  • 229 A School Diploma
  • 230 Airplane Captain Certificate
  • 231 Electronic Model Repair
  • 232 Certificate for Driving Explosives
  • 233 Artificial Insemination for Animals
  • 234 Chemistry Specialist
  • 235 Licensed Practical Nurse Certificate
  • 236 Jet Engine Mechanic Certificate
  • 237 Small Weapons Repair Certificate
  • 238 Camp ____ ITF Certificate
  • 239 Patrol Dog Certificate
  • 240 Explosive Dog Certificate
  • 241 Early Childhood Education
  • 242 Insurance License
  • 243 Labor Training
  • 244 Instructional Program for Teaching at School for Deaf
  • 245 Aerospace Ground Equipment Mechanic
  • 246 Electronic Weather Equipment Repair
  • 247 Machinist's Mate
  • 248 Snow Hawk Fledgling Certificate
  • 249 Basic Training Certificate
  • 250 Certificate of Training in Communications

Codes 251-269

  • 251 Weapons Mechanic
  • 252 Air Force Certificate in Traffic Management
  • 253 Materials Supply Specialist Certificate
  • 254 Certificate for Electric Power Production
  • 255 National Science Foundation Program
  • 256 Aerographer's Mate
  • 257 Leadership School Certificate
  • 258 Technical School Certificate
  • 259 Crew Chief Certificate
  • 260 Track Vehicle Mechanic
  • 261 Karate Certificate
  • 262 Carpenter Certificate
  • 263 H.M.A. Certificate
  • 264 Intravenous Therapy
  • 265 Hull Technician (Navy)
  • 266 Vehicle Operator Certificate
  • 267 Leadership in the Military
  • 268 General Office Occupations Certificate
  • 269 Hydraulics Certificate

Codes 270-290

  • 270-290 are not documented. They should be considered code 4, OTHER.
Subscribe to NLSY79