/****************************************************************************** COR713.SAS March 2000 This module, when passed 1970-basis Occupation, Industry, and Class-of-Worker codes, can return up to 10 different mappings of these occupations: Major Industry, Major Occupation, Duncan SEI, Siegel Prestige, MSEI2, TSEI2, Occupational Education Score, Occupational Income Score, Started Logit of Occupational Education Score, and Started Logit of Occupational Income Score. It will assign missing-data codes codes, differentiating between WLS Wave 1 and Wave 2/3 data. It can be used with other datasets as well. See SPECIAL FLAGS section below. ****************************************************************************** ***** IMPORTANT!! PLEASE READ SECTION ON HANDLING MISSING DATA BELOW!! ***** ****************************************************************************** This file requires three input variables: 1. 1970-Basis Census Industry code (called "IND" below) 2. 1970-Basis Census Occupation code (called "OCC" below) 3. 1970-Basis Census Class-of-Worker code (called "COW" below) ************************************************ ** Class of Worker: ** ** 1=WAGE/SALARY WORKER IN A PRIVATE COMPANY ** ** 2=GOVERNMENT ** ** 3=SELF EMPLOYED, INCORPORATED ** ** 4=SELF-EMPLOYED, NOT INCORPORATED ** ** 5=UNPAID FAMILY WORKER ** ** 6=FAMILY WORKER, NOT FURTHER SPECIFIED ** ************************************************ *** If your data do NOT contain all three of these 1970 codes, see the *** MISSING DATA section below. Using these three input variables, this module can provide any of the following ten mappings (variable names of mappings and of link module name are in parentheses): 1. Major Industry (MAJIND,MANIND70): 12 Category Classification from 1970 Census. 2. Major Occupation (MAJOCC,MAJOCC70): 17 Category Classification from Blau and Duncan 1967. 3. Duncan SEI (DUNC,DUNCAN70): 1970-Basis Duncan SEI score. From Featherman, Sobel and Dickens 1975. 4. Siegel Prestige (SIEG,SIEGEL70): 1970-Basis Siegel Prestige score. From Featherman, Sobel and Dickens 1975. 5. MSEI (MSEI,MSEI270): 1970-Basis, updated SEI score based on 1970 MALE ECLF. From Stevens and Featherman 1981. 6. TSEI (TSEI,TSEI270): 1970-Basis, updated SEI score based on 1970 TOTAL ECLF. From Stevens and Featherman 1981. 7. Occupational Education Score (OCCED,OCCED): Percentage in each 1970 Detailed Occupation/Industry/Class-of-Worker category who completed one or more years of college. From the Nam-Powers special tabulation of 1970 Census Long Form. 8. Occupational Income Score (OCCINC,OCCINC): Percentage in each 1970 Detailed Occupation/Industry/Class-of-Worker category who earned $10,000 or more in 1969. From the Nam-Powers special tabulation of 1970 Census Long Form. 9. Started Logit of Occupational Education Score (OCCEDSL,OCCEDSL): Preferred transformation of Occupational Education Score for use in statistical analyses. See Hauser and Warren 1998. 10. Started Logit of Occupational Income Score (OCCINCSL,OCCINCSL): Preferred transformation of Occupational Income Score for use in statistical analyses. See Hauser and Warren 1998. Use this code in SAS programs by implementing a LINK statement, one for each possible mapping. If your Occupation variable is called 'occ70', your Industry variable is called 'ind70', and your Class-of-Worker variable is called 'cow70', then do the following to get mappings for Major Industry (majorind), Major Occupation (majorocc), Duncan SEI (duncsei), Siegel Prestige (prestige), MSEI (sfmsei2), TSEI (sftsei2), Occupational Education Score (occeduc), Occupational Income Score (occincme), Started Logit of Occupational Education Score (occed_sl), and Started Logit of Occupation Income Score (occin_sl), where the names in parentheses are your variable names (example is for Wave 2 variables): ************************* * IND=ind70; * * OCC=occ70; * * COW=cow70; * * WAVE1=0; * * LINK MAJIND70; * * majorind=MAJIND; * * LINK MAJOCC70; * * majorocc=MAJOCC; * * LINK DUNCAN70; * * duncsei =DUNC; * * LINK SIEGEL70; * * prestige=SIEG; * * LINK MSEI270; * * sfmsei2 =MSEI ; * * LINK TSEI270; * * sftsei2 =TSEI; * * LINK OCCED; * * occeduc =OCCED; * * occed_sl=OCCEDSL; * * LINK OCCINC; * * occincme=OCCINC; * * occin_sl=OCCINCSL; * ************************* Put this module (COR713.SAS) right before your RUN statement, at the end of your DATA step. ****************************************************************************** ***** IMPORTANT NOTE ABOUT MISSING DATA HANDLING!!! ***** ****************************************************************************** ***** ***** ***** There are two different types of missing data to contend with, ***** ***** and different status scores for DUNC, SIEG, OCCED, OCCINC, ***** ***** OCCEDSL, and OCCINCSL are assigned depending on which type of ***** ***** missing data there is. Also, MAJOCC depends on the type of ***** ***** missing data. ***** ***** ***** ***** Recall that many status scales, and also the 17-category Major ***** ***** Occupation categories, are split depending on Industry and/or ***** ***** Class-of-Worker designation. ***** ***** TYPE 1: If Industry and/or Class-of-Worker is NOT MEASURED for ***** ***** an Occupation variable (as often occurs for occupational ***** ***** aspirations), then an AVERAGE for the entire Occupation ***** ***** category should be assigned. ***** ***** TYPE 2: If an individual OBSERVATION happens to have a missing ***** ***** Industry and/or Class-of-Worker code (as occurs when a ***** ***** respondent doesn't know or refuses the questions) then ***** ***** they should receive the default score for their occupa- ***** ***** tion split line. ***** ***** Details regarding the differences between these two types of ***** ***** missing data can be found in COR713 and MEMO133. ***** ***** ***** ***** To differentiate between individual missing data (TYPE 2) and ***** ***** missing variables (TYPE 1), please do the following. If an ***** ***** ENTIRE Industry variable is missing, set IND=-9 before linking to ***** ***** this module. If an ENTIRE Class-of-Worker variable is missing, ***** ***** set COW=-9 before linking to this module. This will ensure that ***** ***** AVERAGES for the entire split occupation category are used to ***** ***** assign scores, rather than default lines. The IND and COW for ***** ***** observations with missing data can be set to any other out-of- ***** ***** range code (for example, COW=9 or COW=. or IND=999 or IND=997 or ***** ***** IND=.). ***** ***** ***** ***** To be absolutely clear, in the WLS there are four sets of ***** ***** variables that are missing both Industry and Class-of-Worker. ***** ***** OCASSK, OCEXSK, SPJOBEN1, and SPOCASP1 have ONLY the 1970- ***** ***** basis Occupation code. Industry and Class-of-Worker was not ***** ***** measured. To get MAJOCC, DUNC, SIEG, OCCED, OCCINC, OCCEDSL, ***** ***** and OCCINCSL for these four variables, do the following (using ***** ***** OCASSK as an example): ***** ***** OCC = OCASSK; ***** ***** IND = -9; ***** ***** COW = -9; ***** ***** WAVE1= 1; ***** ***** link COR713; ***** ***** majorocc=MAJOCC; ***** ***** (etc.) ***** ***** ***** ***** Again in the WLS, there are three variables which have a 1970- ***** ***** basis Occupation and Industry code, but are missing the Class-of- ***** ***** Worker score because it was not measured. These variables are ***** ***** INZU/OCZU, XINZ/XOCZ, and INDNXYR1/OCNXYR1. To assign MAJOCC, ***** ***** DUNC, SIEG, OCCED, OCCINC, OCCEDSL, and OCCINCSL for these ***** ***** variables, do the following (using INZU/OCZU as an example): ***** ***** OCC = OCZU; ***** ***** IND = INZU; ***** ***** COW = -9; ***** ***** WAVE1= 1; ***** ***** link COR713; ***** ***** majorocc=MAJOCC; ***** ***** (etc.) ***** ****************************************************************************** ****************************************************************************** ***** SPECIAL FLAGS ***** ****************************************************************************** ***** ***** ***** Two FLAG variables can be set when using this module, to modify ***** ***** the missing data codes (WAVE1), or to use with other datasets ***** ***** that define the occupation allocation codes as the Census does ***** ***** (CENSUS). If these flags are not set to '1', then missing data ***** ***** will be handled as in the WLS Wave2 and Wave3 data, and ***** ***** Occupation allocation codes will be treated as they are used in ***** ***** the WLS data, by default. ***** ***** ***** ***** WAVE1: Before linking this module, set a flag WAVE1=1 to get the ***** ***** missing data patterns used by the WLS data. The ***** ***** differences are mainly in the codes used for "Don't Know" ***** ***** and "Inapplicable" nonresponse categories. ***** ***** ***** ***** CENSUS: If you are using this module with data OTHER THAN the ***** ***** WLS, then you should know about 1970-basis Allocated ***** ***** Occupation and Industry codes. ***** ***** ***** ***** In the following mappings, the meaning of 1970-basis ***** ***** "Allocation" codes are those used *IN THE WLS DATA*--NOT ***** ***** the Census definitions. In the WLS, Allocation codes have***** ***** been used to indicate an Industry and/or Occupation that ***** ***** could not be coded any higher than the Major Occupation ***** ***** level. It stands for the entire Major Category, and ***** ***** therefore we assign a weighted average of scores within ***** ***** that Major Category for people with Allocated Occupation ***** ***** and/or Industry codes. The Census uses the Allocation ***** ***** categories to impute data for cases of missing data. The ***** ***** people who fall into the Allocation categories using the ***** ***** Census definition are therefore quite different than those***** ***** in the WLS sample. We have decided to NOT use any status ***** ***** scores for Allocation codes (particularly for Occupational***** ***** Education and Income scores) unless they are the computed ***** ***** weighted averages for the Major Occupation category. ***** ***** Please see COR713 and MEMO133 for more information ***** ***** regarding the WLS's use of Allocated Occupation and ***** ***** Industry categories. ***** ***** ***** ***** If you wish to use the Census-definition Allocation ***** ***** categories, then your scores for MSEI, TSEI, Occupational **** ***** Education, and Occupational Income scores will change. ***** ***** Set a flag CENSUS=1 before linking to those four modules, ***** ***** and the proper scoreses will be set for the 12 Allocated ***** ***** Occupation categories. ***** ****************************************************************************** ; */ MAJIND70: ***************************************************************************** *** 1 9 7 0 M A J O R I N D U S T R Y *** *****************************************************************************; MAJIND=.; if OCC >= 970 and OCC <= 974 then MAJIND = 11; *Military ; else if IND >= 17 and IND <= 29 then MAJIND = 1; *Agr, Forestry & Fish ; else if IND >= 47 and IND <= 58 then MAJIND = 2; *Mining ; else if IND >= 67 and IND <= 78 then MAJIND = 3; *Construction ; else if IND >= 107 and IND <= 399 then MAJIND = 4; *Manufacturing ; else if IND >= 407 and IND <= 499 then MAJIND = 5; *Trans.,Comm.,Util. ; else if IND >= 507 and IND <= 699 then MAJIND = 6; *Wsle & Retail Trade ; else if IND >= 707 and IND <= 719 then MAJIND = 7; *FIRE ; else if IND >= 727 and IND <= 767 then MAJIND = 8; *Bus. & Repair Srv. ; else if IND >= 769 and IND <= 799 then MAJIND = 9; *Personal Services ; else if IND >= 807 and IND <= 826 then MAJIND = 10; *Entertain.& Rec. Srv.; else if IND >= 907 and IND <= 947 then MAJIND = 11; *Public Administration; else if IND >= 827 and IND <= 899 then MAJIND = 12; *Prof. & Related Srv. ; if MAJIND = . and Wave1 = 1 then do; if IND = 997 then MAJIND = 77; *Don't know ; else if IND = 998 then MAJIND = 88; *Inapp ; else if IND = 999 then MAJIND = 99; *Refuse ; else if OCC = 985 then MAJIND = 88; *Housework-Inapp ; else if IND = 768 then MAJIND = 88; *Housework-Inapp ; else if IND >= 991 and IND <= 996 then MAJIND = 88; *Other-Inapp ; end; else if MAJIND = . and Wave1 ^= 1 then do; if IND = 997 then MAJIND = 97; *Don't know ; else if IND = 998 then MAJIND = 98; *Inapp ; else if IND = 999 then MAJIND = 99; *Refuse ; else if OCC = 985 then MAJIND = 98; *Housework-Inapp ; else if IND = 768 then MAJIND = 98; *Housework-Inapp ; else if IND >= 991 and IND <= 996 then MAJIND = 98; *Other-Inapp ; end; RETURN; MAJOCC70: ***************************************************************************** *** 1 9 7 0 M A J O R O C C U P A T I O N *** *****************************************************************************; MAJOCC = .; if (OCC >= 1 and OCC <= 196) then do; *Prof., Tech., & Kindred; if (COW =-9 or IND = -9) then MAJOCC = 1; *No COW/IND ; else if (COW >= 3 and COW <= 6) then MAJOCC = 1; *Self-Employed ; else if (COW < 3 or COW > 6) then MAJOCC = 2; *Salaried ; end; else if (OCC >= 201 and OCC <= 246) then do; *Manager ; if (COW =-9 or IND = -9) then MAJOCC = 2; *No COW/IND ; else if (COW >= 3 and COW <= 6) then MAJOCC = 4; *Self-Employed ; else if (COW < 3 or COW > 6) then MAJOCC = 3; *Salaried ; end; else if (OCC >= 260 and OCC <= 296) then do; *Sales ; if (COW =-9 or IND = -9) then MAJOCC = 3; *No COW/IND ; else if (IND >=607 and IND <= 699) then MAJOCC = 6; *Retail ; else if (IND < 607 or IND > 699) then MAJOCC = 5; *Non-Retail ; end; else if (OCC >= 301 and OCC <= 396) then do; *Clerical ; if (COW = -9 or IND = -9) then MAJOCC = 4; *No COW/IND ; else MAJOCC = 7; end; else if (OCC >= 401 and OCC <= 586) then do; *Crafts ; if (COW = -9 or IND = -9) then MAJOCC = 5; *No COW/IND ; else if (IND >=107 and IND <= 398) then MAJOCC = 8; *Manufacturing ; else if (IND >= 67 and IND <= 78) then MAJOCC = 9; *Construction ; else if ((IND < 67) or (IND> 78 and IND < 107) or (IND> 398)) then MAJOCC = 10; *Other ; end; else if (OCC >= 601 and OCC <= 726) then do; *Operatives + Transport ; if (COW = -9 or IND = -9) then do; *No COW/IND ; if (OCC <= 699) then MAJOCC = 6; *Operatives; else if (OCC > 699) then MAJOCC = 7; *Transport ; end; else if (IND >=107 and IND <= 398) then MAJOCC = 11; *Manufacturing ; else if (IND < 107 or IND > 398) then MAJOCC = 12; *Other ; end; else if (OCC >= 901 and OCC <= 965) then do; *Service ; if (COW = -9 or IND = -9) then do; *No COW/IND ; if (OCC <= 965) then MAJOCC = 11; *Service ; end; else MAJOCC = 13; end; else if (OCC >= 976 and OCC <= 984) then do; *Service ; if (COW = -9 or IND = -9) then do; *No COW/IND ; if (OCC <= 976) then MAJOCC = 11; *Service ; else if (OCC > 976) then MAJOCC = 12; *Private HH; end; else MAJOCC = 13; end; else if (OCC >= 986 and OCC <= 986) then do; *Service ; if (COW = -9 or IND = -9) then do; *No COW/IND ; if (OCC <= 986) then MAJOCC = 12; *Private HH; end; else MAJOCC = 13; end; else if (OCC >= 740 and OCC <= 796) then do; *Laborers ; if (COW = -9 or IND = -9) then MAJOCC = 8; *No COW/IND ; else if (IND >=107 and IND <= 398) then MAJOCC = 14; *Manufacturing ; else if (IND < 107 or IND > 398) then MAJOCC = 15; *Other ; end; else if (OCC >= 801 and OCC <= 806) then do; *Farmers ; if (COW = -9 or IND = -9) then MAJOCC = 9; *No COW/IND ; else MAJOCC = 16; end; else if (OCC >= 821 and OCC <= 846) then do; *Farm Laborers ; if (COW = -9 or IND = -9) then MAJOCC = 10; *No COW/IND ; else MAJOCC = 17; end; if MAJOCC=. and WAVE1=1 then do; if OCC = 997 then MAJOCC = 99; *DK--Should be ; *77, but not ; *worth it to change; else if OCC = 998 then MAJOCC = 88; *Inapp ; else if OCC = 999 then MAJOCC = 99; *Refuse ; else if OCC>= 970 and OCC<=974 then MAJOCC = 99; *Military ; else if OCC = 985 then MAJOCC = 88; *Housework ; else if OCC>= 991 and OCC<=996 then MAJOCC = 88; *Other ; end; else if MAJOCC=. and WAVE1^=1 then do; if OCC = 997 then MAJOCC = 97; *Don't know ; else if OCC = 998 then MAJOCC = 98; *Inapp ; else if OCC = 999 then MAJOCC = 99; *Refuse ; else if OCC>= 970 and OCC<=974 then MAJOCC = 98; *Military ; else if OCC = 985 then MAJOCC = 98; *Housework ; else if OCC>= 991 and OCC<=996 then MAJOCC = 98; *Other ; end; RETURN; DUNCAN70: ***************************************************************************** *** 1 9 7 0 D U N C A N S E I S C O R E *** *****************************************************************************; DUNC = .; if OCC = 001 then DUNC = 768; else if OCC = 002 then DUNC = 852; else if OCC = 003 then DUNC = 650; else if OCC = 004 then DUNC = 650; else if OCC = 005 then DUNC = 650; else if OCC = 006 then DUNC = 870; else if OCC = 010 then DUNC = 899; else if OCC = 011 then DUNC = 840; else if OCC = 012 then DUNC = 840; else if OCC = 013 then DUNC = 855; else if OCC = 014 then DUNC = 802; else if OCC = 015 then DUNC = 831; else if OCC = 020 then DUNC = 850; else if OCC = 021 then DUNC = 810; else if OCC = 022 then DUNC = 870; else if OCC = 023 then DUNC = 869; else if OCC = 024 then DUNC = 830; else if OCC = 025 then DUNC = 480; else if OCC = 026 then DUNC = 830; else if OCC = 030 then DUNC = 930; else if OCC = 031 then DUNC = 923; else if OCC = 032 then DUNC = 600; else if OCC = 033 then DUNC = 746; else if OCC = 034 then DUNC = 810; else if OCC = 035 then DUNC = 800; else if OCC = 036 then DUNC = 810; else if OCC = 042 then DUNC = 800; else if OCC = 043 then DUNC = 620; else if OCC = 044 then DUNC = 800; else if OCC = 045 then DUNC = 794; else if OCC = 051 then DUNC = 800; else if OCC = 052 then DUNC = 800; else if OCC = 053 then DUNC = 800; else if OCC = 054 then DUNC = 772; else if OCC = 055 then DUNC = 657; else if OCC = 056 then DUNC = 836; else if OCC = 061 then DUNC = 750; else if OCC = 062 then DUNC = 960; else if OCC = 063 then DUNC = 790; else if OCC = 064 then DUNC = 813; else if OCC = 065 then DUNC = 921; else if OCC = 071 then DUNC = 580; else if OCC = 072 then DUNC = 780; else if OCC = 073 then DUNC = 580; else if OCC = 074 then DUNC = 390; else if OCC = 075 then DUNC = 443; else if OCC = 076 then DUNC = 599; else if OCC = 080 then DUNC = 480; else if OCC = 081 then DUNC = 480; else if OCC = 082 then DUNC = 600; else if OCC = 083 then DUNC = 480; else if OCC = 084 then DUNC = 480; else if OCC = 085 then DUNC = 522; else if OCC = 086 then DUNC = 520; else if OCC = 090 then DUNC = 567; else if OCC = 091 then DUNC = 744; else if OCC = 092 then DUNC = 810; else if OCC = 093 then DUNC = 810; else if OCC = 094 then DUNC = 810; else if OCC = 095 then DUNC = 650; else if OCC = 096 then DUNC = 810; else if OCC = 100 then DUNC = 640; else if OCC = 101 then DUNC = 670; else if OCC = 102 then DUNC = 840; else if OCC = 103 then DUNC = 840; else if OCC = 104 then DUNC = 840; else if OCC = 105 then DUNC = 840; else if OCC = 110 then DUNC = 840; else if OCC = 111 then DUNC = 840; else if OCC = 112 then DUNC = 840; else if OCC = 113 then DUNC = 840; else if OCC = 114 then DUNC = 840; else if OCC = 115 then DUNC = 840; else if OCC = 116 then DUNC = 840; else if OCC = 120 then DUNC = 840; else if OCC = 121 then DUNC = 840; else if OCC = 122 then DUNC = 840; else if OCC = 123 then DUNC = 532; else if OCC = 124 then DUNC = 640; else if OCC = 125 then DUNC = 840; else if OCC = 126 then DUNC = 840; else if OCC = 130 then DUNC = 840; else if OCC = 131 then DUNC = 840; else if OCC = 132 then DUNC = 840; else if OCC = 133 then DUNC = 840; else if OCC = 134 then DUNC = 840; else if OCC = 135 then DUNC = 840; else if OCC = 140 then DUNC = 840; else if OCC = 141 then DUNC = 613; else if OCC = 142 then DUNC = 712; else if OCC = 143 then DUNC = 720; else if OCC = 144 then DUNC = 702; else if OCC = 145 then DUNC = 623; else if OCC = 150 then DUNC = 620; else if OCC = 151 then DUNC = 620; else if OCC = 152 then DUNC = 670; else if OCC = 153 then DUNC = 620; else if OCC = 154 then DUNC = 641; else if OCC = 155 then DUNC = 620; else if OCC = 156 then DUNC = 620; else if OCC = 161 then DUNC = 484; else if OCC = 162 then DUNC = 620; else if OCC = 163 then DUNC = 790; else if OCC = 164 then DUNC = 690; else if OCC = 165 then DUNC = 608; else if OCC = 170 then DUNC = 480; else if OCC = 171 then DUNC = 690; else if OCC = 172 then DUNC = 620; else if OCC = 173 then DUNC = 620; else if OCC = 174 then DUNC = 650; else if OCC = 175 then DUNC = 600; else if OCC = 180 then DUNC = 594; else if OCC = 181 then DUNC = 760; else if OCC = 182 then DUNC = 450; else if OCC = 183 then DUNC = 705; else if OCC = 184 then DUNC = 820; else if OCC = 185 then DUNC = 520; else if OCC = 190 then DUNC = 670; else if OCC = 191 then DUNC = 500; else if OCC = 192 then DUNC = 820; else if OCC = 193 then DUNC = 650; else if OCC = 194 then DUNC = 402; else if OCC = 195 then DUNC = 650; else if OCC = 196 then DUNC = 750; else if OCC = 201 then DUNC = 612; else if OCC = 202 then DUNC = 795; else if OCC = 203 then DUNC = 505; else if OCC = 205 then DUNC = 721; else if OCC = 210 then DUNC = 740; else if OCC = 211 then DUNC = 590; else if OCC = 212 then DUNC = 741; else if OCC = 213 then DUNC = 576; else if OCC = 215 then do; *INSPECTORS, PUBLIC ADMIN ; if (IND = -9) then DUNC = 667; *No IND ; else if ( IND <= 899) then DUNC = 630; *OTHER INDUSTRIES ; else if (IND >= 907 and IND <= 917) then DUNC = 720; *Fed Public Admin+PO; else if (IND >= 927 and IND <= 927) then DUNC = 540; *State Public Admin ; else if (IND >= 937 and IND <= 937) then DUNC = 560; *Local Public Admin ; else if (IND >= 947 and IND <= 947) then DUNC = 630; *ALLOC-PUBLIC ADMIN ; else if (IND > 947) then DUNC = 630; *OTHER INDUSTRIES ; end; else if OCC = 216 then DUNC = 320; else if OCC = 220 then DUNC = 751; else if OCC = 221 then DUNC = 499; else if OCC = 222 then do; *OFFICIALS & ADMIN., PUBLIC ; if (IND = -9) then DUNC = 673; *No IND ; else if ( IND <= 899) then DUNC = 660; *OTHER INDUSTRIES ; else if (IND >= 907 and IND <= 917) then DUNC = 840; *Fed Public Admin+PO; else if (IND >= 927 and IND <= 927) then DUNC = 660; *State Public Admin ; else if (IND >= 937 and IND <= 937) then DUNC = 540; *Local Public Admin ; else if (IND >= 947 and IND <= 947) then DUNC = 660; *ALLOC-PUBLIC ADMIN ; else if (IND > 947) then DUNC = 660; *OTHER INDUSTRIES ; end; else if OCC = 223 then DUNC = 598; else if OCC = 224 then DUNC = 613; else if OCC = 225 then DUNC = 747; else if OCC = 226 then DUNC = 582; else if OCC = 230 then DUNC = 376; else if OCC = 231 then DUNC = 706; else if OCC = 233 then DUNC = 747; else if OCC = 235 then DUNC = 779; else if OCC = 240 then DUNC = 717; else if OCC = 245 then do; *MANAGERS N.E.C. ; if (IND=-9) then do; *No IND ; if (COW=-9) then DUNC = 564; *No COW ; else if (COW>=4 and COW<=6) then DUNC = 480; *Self-Employed; else if (COW< 4 or COW> 6) then DUNC = 680; *Salaried ; end; else if (IND <= 058) then do; *OTHER INDUSTRIES ; if (COW=-9) then DUNC = 566; *No COW ; else if (COW>=4 and COW<=6) then DUNC = 490; *Self-Employed; else if (COW< 4 or COW> 6) then DUNC = 620; *Salaried ; end; else if (IND >= 067 and IND <= 078) then do; *Construction ; if (COW=-9) then DUNC = 537; *No COW ; else if (COW>=4 and COW<=6) then DUNC = 510; *Self-Employed; else if (COW< 4 or COW> 6) then DUNC = 600; *Salaried ; end; else if (IND >= 107 and IND <= 399) then do; *Manufacturing ; if (COW=-9) then DUNC = 724; *No COW ; else if (COW>=4 and COW<=6) then DUNC = 610; *Self-Employed; else if (COW< 4 or COW> 6) then DUNC = 790; *Salaried ; end; else if (IND >= 407 and IND <= 429) then do; *Transportation ; if (COW=-9) then DUNC = 613; *No COW ; else if (COW>=4 and COW<=6) then DUNC = 430; *Self-Employed; else if (COW< 4 or COW> 6) then DUNC = 710; *Salaried ; end; else if (IND >= 447 and IND <= 479) then do; *Comm, Util, Sanitary ; if (COW=-9) then DUNC = 731; *No COW ; else if (COW>=4 and COW<=6) then DUNC = 440; *Self-Employed; else if (COW< 4 or COW> 6) then DUNC = 760; *Salaried ; end; else if (IND >= 499 and IND <= 499) then do; *ALLOC-TRANS,COMM,UTIL; if (COW=-9) then DUNC = 648; *No COW ; else if (COW>=4 and COW<=6) then DUNC = 431; *Self-Employed; else if (COW< 4 or COW> 6) then DUNC = 729; *Salaried ; end; else if (IND >= 507 and IND <= 599) then do; *Wholesale Trade ; if (COW=-9) then DUNC = 641; *No COW ; else if (COW>=4 and COW<=6) then DUNC = 590; *Self-Employed; else if (COW< 4 or COW> 6) then DUNC = 700; *Salaried ; end; else if (IND >= 607 and IND <= 608) then do; *Lumber & Hardware ; if (COW=-9) then DUNC = 620; *No COW ; else if (COW>=4 and COW<=6) then DUNC = 610; *Self-Employed; else if (COW< 4 or COW> 6) then DUNC = 640; *Salaried ; end; else if (IND >= 609 and IND <= 627) then do; *General Merchandise ; if (COW=-9) then DUNC = 570; *No COW ; else if (COW>=4 and COW<=6) then DUNC = 470; *Self-Employed; else if (COW< 4 or COW> 6) then DUNC = 680; *Salaried ; end; else if (IND >= 628 and IND <= 638) then do; *Food Stores ; if (COW=-9) then DUNC = 367; *No COW ; else if (COW>=4 and COW<=6) then DUNC = 330; *Self-Employed; else if (COW< 4 or COW> 6) then DUNC = 500; *Salaried ; end; else if (IND >= 639 and IND <= 647) then do; *Car + Access. Dealers; if (COW=-9) then DUNC = 676; *No COW ; else if (COW>=4 and COW<=6) then DUNC = 700; *Self-Employed; else if (COW< 4 or COW> 6) then DUNC = 650; *Salaried ; end; else if (IND >= 648 and IND <= 648) then do; *Gas Stations ; if (COW=-9) then DUNC = 326; *No COW ; else if (COW>=4 and COW<=6) then DUNC = 330; *Self-Employed; else if (COW< 4 or COW> 6) then DUNC = 310; *Salaried ; end; else if (IND >= 649 and IND <= 649) then do; *Misc. Vehicle Dealers; if (COW=-9) then DUNC = 676; *No COW ; else if (COW>=4 and COW<=6) then DUNC = 700; *Self-Employed; else if (COW< 4 or COW> 6) then DUNC = 650; *Salaried ; end; else if (IND >= 657 and IND <= 658) then do; *Apparel & Shoe Stores; if (COW=-9) then DUNC = 663; *No COW ; else if (COW>=4 and COW<=6) then DUNC = 650; *Self-Employed; else if (COW< 4 or COW> 6) then DUNC = 690; *Salaried ; end; else if (IND >= 667 and IND <= 668) then do; *Furniture & HH Stores; if (COW=-9) then DUNC = 616; *No COW ; else if (COW>=4 and COW<=6) then DUNC = 590; *Self-Employed; else if (COW< 4 or COW> 6) then DUNC = 680; *Salaried ; end; else if (IND >= 669 and IND <= 669) then do; *Eating & Drinking Est; if (COW=-9) then DUNC = 374; *No COW ; else if (COW>=4 and COW<=6) then DUNC = 370; *Self-Employed; else if (COW< 4 or COW> 6) then DUNC = 390; *Salaried ; end; else if (IND >= 677 and IND <= 698) then do; *OTHER RETAIL TRADE ; if (COW=-9) then DUNC = 517; *No COW ; else if (COW>=4 and COW<=6) then DUNC = 490; *Self-Employed; else if (COW< 4 or COW> 6) then DUNC = 590; *Salaried ; end; else if (IND >= 699 and IND <= 699) then do; *ALLOC-RETAIL TRADE ; if (COW=-9) then DUNC = 465; *No COW ; else if (COW>=4 and COW<=6) then DUNC = 430; *Self-Employed; else if (COW< 4 or COW> 6) then DUNC = 560; *Salaried ; end; else if (IND >= 707 and IND <= 709) then do; *Banking + Securities ; if (COW=-9) then DUNC = 850; *No COW ; else if (COW>=4 and COW<=6) then DUNC = 850; *Self-Employed; else if (COW< 4 or COW> 6) then DUNC = 850; *Salaried ; end; else if (IND >= 717 and IND <= 718) then do; *Insurance + Real Est.; if (COW=-9) then DUNC = 808; *No COW ; else if (COW>=4 and COW<=6) then DUNC = 760; *Self-Employed; else if (COW< 4 or COW> 6) then DUNC = 840; *Salaried ; end; else if (IND >= 719 and IND <= 719) then do; *ALLOC-FIRE ; if (COW=-9) then DUNC = 832; *No COW ; else if (COW>=4 and COW<=6) then DUNC = 791; *Self-Employed; else if (COW< 4 or COW> 6) then DUNC = 846; *Salaried ; end; else if (IND >= 727 and IND <= 748) then do; *Business Services ; if (COW=-9) then DUNC = 727; *No COW ; else if (COW>=4 and COW<=6) then DUNC = 670; *Self-Employed; else if (COW< 4 or COW> 6) then DUNC = 800; *Salaried ; end; else if (IND >= 749 and IND <= 757) then do; *Automobile Services ; if (COW=-9) then DUNC = 391; *No COW ; else if (COW>=4 and COW<=6) then DUNC = 360; *Self-Employed; else if (COW< 4 or COW> 6) then DUNC = 470; *Salaried ; end; else if (IND >= 758 and IND <= 759) then do; *Repair Services ; if (COW=-9) then DUNC = 364; *No COW ; else if (COW>=4 and COW<=6) then DUNC = 340; *Self-Employed; else if (COW< 4 or COW> 6) then DUNC = 530; *Salaried ; end; else if (IND >= 767 and IND <= 767) then do; *ALLOC-BUSINESS+REPAIR; if (COW=-9) then DUNC = 491; *No COW ; else if (COW>=4 and COW<=6) then DUNC = 433; *Self-Employed; else if (COW< 4 or COW> 6) then DUNC = 624; *Salaried ; end; else if (IND >= 769 and IND <= 799) then do; *Personal Services ; if (COW=-9) then DUNC = 437; *No COW ; else if (COW>=4 and COW<=6) then DUNC = 410; *Self-Employed; else if (COW< 4 or COW> 6) then DUNC = 500; *Salaried ; end; else if (IND >= 807) then do; *OTHER INDUSTRIES ; if (COW=-9) then DUNC = 566; *No COW ; else if (COW>=4 and COW<=6) then DUNC = 490; *Self-Employed; else if (COW< 4 or COW> 6) then DUNC = 620; *Salaried ; end; end; else if OCC = 246 then DUNC = 570; else if OCC = 260 then DUNC = 661; else if OCC = 261 then DUNC = 400; else if OCC = 262 then DUNC = 350; else if OCC = 264 then DUNC = 088; else if OCC = 265 then DUNC = 660; else if OCC = 266 then DUNC = 270; else if OCC = 270 then DUNC = 620; else if OCC = 271 then DUNC = 723; else if OCC = 280 then DUNC = 494; else if OCC = 281 then DUNC = 650; else if OCC = 282 then DUNC = 609; else if OCC = 283 then DUNC = 390; else if OCC = 284 then DUNC = 390; else if OCC = 285 then DUNC = 527; else if OCC = 296 then DUNC = 490; else if OCC = 301 then DUNC = 520; else if OCC = 303 then DUNC = 440; else if OCC = 305 then DUNC = 508; else if OCC = 310 then DUNC = 440; else if OCC = 311 then DUNC = 440; else if OCC = 312 then DUNC = 436; else if OCC = 313 then DUNC = 433; else if OCC = 314 then DUNC = 440; else if OCC = 315 then DUNC = 399; else if OCC = 320 then DUNC = 440; else if OCC = 321 then DUNC = 592; else if OCC = 323 then DUNC = 437; else if OCC = 325 then DUNC = 440; else if OCC = 326 then DUNC = 621; else if OCC = 330 then DUNC = 440; else if OCC = 331 then DUNC = 530; else if OCC = 332 then DUNC = 430; else if OCC = 333 then DUNC = 282; else if OCC = 334 then DUNC = 440; else if OCC = 341 then DUNC = 449; else if OCC = 342 then DUNC = 450; else if OCC = 343 then DUNC = 450; else if OCC = 344 then DUNC = 450; else if OCC = 345 then DUNC = 450; else if OCC = 350 then DUNC = 450; else if OCC = 355 then DUNC = 450; else if OCC = 360 then DUNC = 440; else if OCC = 361 then DUNC = 447; else if OCC = 362 then DUNC = 440; else if OCC = 363 then DUNC = 678; else if OCC = 364 then DUNC = 440; else if OCC = 370 then DUNC = 610; else if OCC = 371 then DUNC = 610; else if OCC = 372 then DUNC = 619; else if OCC = 374 then DUNC = 242; else if OCC = 375 then DUNC = 437; else if OCC = 376 then DUNC = 610; else if OCC = 381 then DUNC = 440; else if OCC = 382 then DUNC = 632; else if OCC = 383 then DUNC = 220; else if OCC = 384 then DUNC = 470; else if OCC = 385 then DUNC = 450; else if OCC = 390 then DUNC = 598; else if OCC = 391 then DUNC = 610; else if OCC = 392 then DUNC = 419; else if OCC = 394 then DUNC = 437; else if OCC = 395 then DUNC = 440; else if OCC = 396 then DUNC = 450; else if OCC = 401 then DUNC = 216; else if OCC = 402 then DUNC = 219; else if OCC = 403 then DUNC = 160; else if OCC = 404 then DUNC = 326; else if OCC = 405 then DUNC = 390; else if OCC = 410 then DUNC = 270; else if OCC = 411 then DUNC = 320; else if OCC = 412 then DUNC = 197; else if OCC = 413 then DUNC = 223; else if OCC = 415 then DUNC = 189; else if OCC = 416 then DUNC = 310; else if OCC = 420 then DUNC = 120; else if OCC = 421 then DUNC = 190; else if OCC = 422 then DUNC = 520; else if OCC = 423 then DUNC = 400; else if OCC = 424 then DUNC = 210; else if OCC = 425 then DUNC = 400; else if OCC = 426 then DUNC = 480; else if OCC = 430 then DUNC = 440; else if OCC = 431 then DUNC = 370; else if OCC = 433 then DUNC = 490; else if OCC = 434 then DUNC = 550; else if OCC = 435 then DUNC = 470; else if OCC = 436 then DUNC = 228; else if OCC = 440 then DUNC = 173; else if OCC = 441 then do; * FOREMEN, N.E.C. ; if (IND = -9) then DUNC = 497; *No IND ; else if ( IND <= 058) then DUNC = 440; *OTHER INDUSTRIES ; else if (IND >= 067 and IND <= 078) then DUNC = 400; *Construction ; else if (IND >= 107 and IND <= 138) then DUNC = 410; *OTHER DURABLE ; else if (IND >= 139 and IND <= 169) then DUNC = 540; *Metal Industries ; else if (IND >= 177 and IND <= 209) then DUNC = 600; *Machinery ; else if (IND >= 219 and IND <= 238) then DUNC = 660; *Transportation Eqp.; else if (IND >= 239 and IND <= 257) then DUNC = 410; *OTHER DURABLE ; else if (IND >= 258 and IND <= 258) then DUNC = 540; *Metal Industries ; else if (IND >= 259 and IND <= 259) then DUNC = 410; *OTHER DURABLE ; else if (IND >= 267 and IND <= 267) then DUNC = 545; *ALLOC-DURABLE MFG ; else if (IND >= 268 and IND <= 299) then DUNC = 530; *OTHER NONDURABLE ; else if (IND >= 307 and IND <= 327) then DUNC = 390; *Textile + Apparel ; else if (IND >= 328 and IND <= 398) then DUNC = 530; *OTHER NONDURABLE ; else if (IND >= 399 and IND <= 399) then DUNC = 493; *ALLOC-NONDURABLE MF; else if (IND >= 407 and IND <= 407) then DUNC = 360; *Railroad ; else if (IND >= 408 and IND <= 429) then DUNC = 450; *OTHER TRANSPORTATIO; else if (IND >= 447 and IND <= 479) then DUNC = 560; *Comm. + Utilities ; else if (IND >= 499 and IND <= 499) then DUNC = 445; *ALLOC-TRANS,COMM,UT; else if (IND >= 507) then DUNC = 440; *OTHER INDUSTRIES ; end; else if OCC = 442 then DUNC = 230; else if OCC = 443 then DUNC = 178; else if OCC = 444 then DUNC = 395; else if OCC = 445 then DUNC = 252; else if OCC = 446 then DUNC = 217; else if OCC = 450 then DUNC = 224; else if OCC = 452 then do; * INSPECTORS, N.E.C. ; if (IND = -9) then DUNC = 412; *No IND ; else if ( IND <= 058) then DUNC = 380; *OTHER INDUSTRIES ; else if (IND >= 067 and IND <= 078) then DUNC = 460; *Construction ; else if (IND >= 107 and IND <= 399) then DUNC = 380; *OTHER INDUSTRIES ; else if (IND >= 407 and IND <= 407) then DUNC = 410; *Railroad ; else if (IND >= 408 and IND <= 479) then DUNC = 450; *OTHER TRANS,COMM,UT; else if (IND >= 499 and IND <= 499) then DUNC = 420; *ALLOC-TRANS,COMM,UT; else if (IND >= 507) then DUNC = 380; *OTHER INDUSTRIES ; end; else if OCC = 453 then DUNC = 364; else if OCC = 454 then DUNC = 335; else if OCC = 455 then DUNC = 578; else if OCC = 456 then DUNC = 450; else if OCC = 461 then DUNC = 329; else if OCC = 462 then DUNC = 410; else if OCC = 470 then DUNC = 270; else if OCC = 471 then DUNC = 480; else if OCC = 472 then DUNC = 190; else if OCC = 473 then DUNC = 190; else if OCC = 474 then DUNC = 250; else if OCC = 475 then DUNC = 360; else if OCC = 480 then DUNC = 270; else if OCC = 481 then DUNC = 266; else if OCC = 482 then DUNC = 270; else if OCC = 483 then DUNC = 100; else if OCC = 484 then DUNC = 359; else if OCC = 485 then DUNC = 360; else if OCC = 486 then DUNC = 205; else if OCC = 491 then DUNC = 340; else if OCC = 492 then DUNC = 265; else if OCC = 495 then DUNC = 270; else if OCC = 501 then DUNC = 190; else if OCC = 502 then DUNC = 310; else if OCC = 503 then DUNC = 120; else if OCC = 504 then DUNC = 330; else if OCC = 505 then DUNC = 430; else if OCC = 506 then DUNC = 390; else if OCC = 510 then DUNC = 164; else if OCC = 511 then DUNC = 290; else if OCC = 512 then DUNC = 137; else if OCC = 514 then DUNC = 430; else if OCC = 515 then DUNC = 630; else if OCC = 516 then DUNC = 380; else if OCC = 520 then DUNC = 250; else if OCC = 521 then DUNC = 290; else if OCC = 522 then DUNC = 340; else if OCC = 523 then DUNC = 330; else if OCC = 525 then DUNC = 500; else if OCC = 530 then DUNC = 463; else if OCC = 531 then DUNC = 400; else if OCC = 533 then DUNC = 220; else if OCC = 534 then DUNC = 151; else if OCC = 535 then DUNC = 330; else if OCC = 536 then DUNC = 330; else if OCC = 540 then DUNC = 340; else if OCC = 542 then DUNC = 120; else if OCC = 543 then DUNC = 169; else if OCC = 545 then DUNC = 452; else if OCC = 546 then DUNC = 240; else if OCC = 550 then DUNC = 337; else if OCC = 551 then DUNC = 220; else if OCC = 552 then DUNC = 488; else if OCC = 554 then DUNC = 490; else if OCC = 560 then DUNC = 282; else if OCC = 561 then DUNC = 492; else if OCC = 562 then DUNC = 410; else if OCC = 563 then DUNC = 210; else if OCC = 571 then DUNC = 345; else if OCC = 572 then DUNC = 390; else if OCC = 575 then DUNC = 257; else if OCC = 580 then DUNC = 999; else if OCC = 586 then DUNC = 310; else if OCC = 601 then DUNC = 320; else if OCC = 602 then DUNC = 172; else if OCC = 603 then DUNC = 110; else if OCC = 604 then DUNC = 184; else if OCC = 605 then DUNC = 250; else if OCC = 610 then DUNC = 192; else if OCC = 611 then DUNC = 178; else if OCC = 612 then DUNC = 188; else if OCC = 613 then DUNC = 230; else if OCC = 614 then DUNC = 216; else if OCC = 615 then DUNC = 245; else if OCC = 620 then DUNC = 120; else if OCC = 621 then DUNC = 187; else if OCC = 622 then DUNC = 181; else if OCC = 623 then DUNC = 179; else if OCC = 624 then DUNC = 170; else if OCC = 625 then DUNC = 122; else if OCC = 626 then DUNC = 290; else if OCC = 630 then DUNC = 150; else if OCC = 631 then DUNC = 288; else if OCC = 633 then DUNC = 164; else if OCC = 634 then DUNC = 180; else if OCC = 635 then DUNC = 198; else if OCC = 636 then DUNC = 460; else if OCC = 640 then do; * MINE OPERATIVES, N.E.C. ; if (IND = -9) then DUNC = 165; *No IND ; else if ( IND <= 029) then DUNC = 100; *OTHER INDUSTRIES ; else if (IND >= 047 and IND <= 047) then DUNC = 120; *OTHER MINING ; else if (IND >= 048 and IND <= 048) then DUNC = 020; *Coal Mining ; else if (IND >= 049 and IND <= 049) then DUNC = 380; *Oil and Natural Gas; else if (IND >= 057 and IND <= 057) then DUNC = 120; *OTHER MINING ; else if (IND >= 058 and IND <= 058) then DUNC = 100; *ALLOC-MINING ; else if (IND >= 067) then DUNC = 100; *OTHER INDUSTRIES ; end; else if OCC = 641 then DUNC = 176; else if OCC = 642 then DUNC = 150; else if OCC = 643 then DUNC = 180; else if OCC = 644 then DUNC = 181; else if OCC = 645 then DUNC = 421; else if OCC = 650 then DUNC = 218; else if OCC = 651 then DUNC = 219; else if OCC = 652 then DUNC = 215; else if OCC = 653 then DUNC = 210; else if OCC = 656 then DUNC = 194; else if OCC = 660 then DUNC = 201; else if OCC = 661 then DUNC = 160; else if OCC = 662 then DUNC = 049; else if OCC = 663 then DUNC = 182; else if OCC = 664 then DUNC = 092; else if OCC = 665 then DUNC = 238; else if OCC = 666 then DUNC = 166; else if OCC = 670 then DUNC = 031; else if OCC = 671 then DUNC = 210; else if OCC = 672 then DUNC = 038; else if OCC = 673 then DUNC = 059; else if OCC = 674 then DUNC = 061; else if OCC = 680 then DUNC = 240; else if OCC = 681 then DUNC = 196; else if OCC = 690 then do; * MACHINE OPERATIVES, MISC SP ; if (IND = -9) then DUNC = 190; *No IND ; else if ( IND <= 058) then DUNC = 200; *OTHER INDUSTRIES ; else if (IND >= 067 and IND <= 078) then DUNC = 180; *Construction ; else if (IND >= 107 and IND <= 108) then DUNC = 070; *Sawmills ; else if (IND >= 109 and IND <= 109) then DUNC = 090; *Misc Wood Products ; else if (IND >= 118 and IND <= 118) then DUNC = 090; *Furniture ; else if (IND >= 119 and IND <= 119) then DUNC = 230; *Glass ; else if (IND >= 127 and IND <= 128) then DUNC = 100; *Cement + Clay ; else if (IND >= 137 and IND <= 137) then DUNC = 210; *Pottery ; else if (IND >= 138 and IND <= 138) then DUNC = 150; *Misc. Stone ; else if (IND >= 139 and IND <= 139) then DUNC = 170; *Blast Furnaces ; else if (IND >= 147 and IND <= 147) then DUNC = 120; *Other Primary Metal; else if (IND >= 148 and IND <= 149) then DUNC = 150; *OTHER PRIM. NONFERR; else if (IND >= 157 and IND <= 158) then DUNC = 160; *Fabricated Metal ; else if (IND >= 159 and IND <= 159) then DUNC = 150; *Screw Machine ; else if (IND >= 167 and IND <= 168) then DUNC = 150; *Misc. Fabric. Metal; else if (IND >= 169 and IND <= 169) then DUNC = 140; *NS Metal Inds. ; else if (IND >= 177 and IND <= 177) then DUNC = 220; *OTHER MACHINERY ; else if (IND >= 178 and IND <= 178) then DUNC = 210; *Farm Machinery ; else if (IND >= 179 and IND <= 179) then DUNC = 220; *Construction Mach. ; else if (IND >= 187 and IND <= 187) then DUNC = 220; *Metalworking Mach. ; else if (IND >= 188 and IND <= 189) then DUNC = 310; *Office+Comput.Mach.; else if (IND >= 197 and IND <= 198) then DUNC = 220; *OTHER MACHINERY ; else if (IND >= 199 and IND <= 209) then DUNC = 260; *Electrical Machiner; else if (IND >= 219 and IND <= 219) then DUNC = 210; *Car+Car Equipment ; else if (IND >= 227 and IND <= 227) then DUNC = 340; *Aircraft and Parts ; else if (IND >= 228 and IND <= 228) then DUNC = 160; *Ship and Boat ; else if (IND >= 229 and IND <= 238) then DUNC = 230; *OTHER TRANS. EQUIP.; else if (IND >= 239 and IND <= 239) then DUNC = 230; *Scientific Equip. ; else if (IND >= 247 and IND <= 247) then DUNC = 230; *Optical+Health Equp; else if (IND >= 248 and IND <= 248) then DUNC = 400; *Photo Equip. ; else if (IND >= 249 and IND <= 249) then DUNC = 280; *Watches, Clocks ; else if (IND >= 257 and IND <= 257) then DUNC = 230; *NS Prof. Equip. ; else if (IND >= 258 and IND <= 258) then DUNC = 150; *Ordnance ; else if (IND >= 259 and IND <= 259) then DUNC = 160; *Misc. Manuf. Inds. ; else if (IND >= 267 and IND <= 267) then DUNC = 184; *ALLOC-DURABLE MFG ; else if (IND >= 268 and IND <= 268) then DUNC = 160; *Meat Products ; else if (IND >= 269 and IND <= 269) then DUNC = 220; *Dairy Products ; else if (IND >= 278 and IND <= 278) then DUNC = 090; *Canning ; else if (IND >= 279 and IND <= 279) then DUNC = 140; *Grain-Mill Products; else if (IND >= 287 and IND <= 287) then DUNC = 150; *Bakery Products ; else if (IND >= 288 and IND <= 288) then DUNC = 120; *Confectionery ; else if (IND >= 289 and IND <= 289) then DUNC = 190; *Beverage Industry ; else if (IND >= 297 and IND <= 297) then DUNC = 110; *Misc Food ; else if (IND >= 298 and IND <= 298) then DUNC = 190; *NS Food ; else if (IND >= 299 and IND <= 299) then DUNC = 020; *Tobacco Manuf. ; else if (IND >= 307 and IND <= 307) then DUNC = 210; *Knitting Mills ; else if (IND >= 308 and IND <= 308) then DUNC = 080; *Dyeing Textile ; else if (IND >= 309 and IND <= 309) then DUNC = 140; *Floor Coverings ; else if (IND >= 317 and IND <= 317) then DUNC = 020; *Yarn, Thread ; else if (IND >= 318 and IND <= 318) then DUNC = 100; *Misc. Textile Mill ; else if (IND >= 319 and IND <= 319) then DUNC = 220; *Apparel and Access.; else if (IND >= 327 and IND <= 327) then DUNC = 170; *Misc. Fabric. Text.; else if (IND >= 328 and IND <= 329) then DUNC = 190; *Pulp+Misc. Paper ; else if (IND >= 337 and IND <= 337) then DUNC = 170; *Paperboard Boxes ; else if (IND >= 338 and IND <= 339) then DUNC = 310; *Printing+Publish. ; else if (IND >= 347 and IND <= 348) then DUNC = 230; *OTHER CHEMICALS ; else if (IND >= 349 and IND <= 349) then DUNC = 090; *Synthetic Fibers ; else if (IND >= 357 and IND <= 357) then DUNC = 260; *Drugs+Medicines ; else if (IND >= 358 and IND <= 358) then DUNC = 230; *OTHER CHEMICALS ; else if (IND >= 359 and IND <= 359) then DUNC = 150; *Paints ; else if (IND >= 367 and IND <= 369) then DUNC = 230; *OTHER CHEMICALS ; else if (IND >= 377 and IND <= 377) then DUNC = 560; *Petroleum Refining ; else if (IND >= 378 and IND <= 378) then DUNC = 140; *Misc. Oil and Coal ; else if (IND >= 379 and IND <= 379) then DUNC = 220; *Rubber Products ; else if (IND >= 387 and IND <= 387) then DUNC = 220; *Misc. Plastic ; else if (IND >= 388 and IND <= 388) then DUNC = 100; *Tanned Leather ; else if (IND >= 389 and IND <= 389) then DUNC = 090; *Leather Footwear ; else if (IND >= 397 and IND <= 397) then DUNC = 140; *Other Leather Prods; else if (IND >= 398 and IND <= 398) then DUNC = 160; *NS Manuf. Ind. ; else if (IND >= 399 and IND <= 399) then DUNC = 163; *ALLOC-NONDURABLE MF; else if (IND >= 407 and IND <= 407) then DUNC = 150; *Railroads ; else if (IND >= 408 and IND <= 429) then DUNC = 230; *OTHER TRANSPORTATIO; else if (IND >= 447 and IND <= 479) then DUNC = 210; *Comm, Util, Sanitar; else if (IND >= 499 and IND <= 499) then DUNC = 181; *ALLOC-TRANS,COMM,UT; else if (IND >= 507 and IND <= 699) then DUNC = 170; *Wsle + Retail Trade; else if (IND >= 707 and IND <= 719) then DUNC = 200; *OTHER INDUSTRIES ; else if (IND >= 727 and IND <= 767) then DUNC = 190; *Bus. + Repair Srvs ; else if (IND >= 769 and IND <= 799) then DUNC = 110; *Personal Services ; else if (IND >= 807 and IND <= 899) then DUNC = 200; *OTHER INDUSTRIES ; else if (IND >= 907 and IND <= 947) then DUNC = 170; *Public Administrat ; else if (IND > 947) then DUNC = 200; *OTHER INDUSTRIES ; end; else if OCC = 692 then do; * MACHINE OPERATIVES, NOT SPEC; if (IND = -9) then DUNC = 193; *No IND ; else if ( IND <= 058) then DUNC = 200; *OTHER INDUSTRIES ; else if (IND >= 067 and IND <= 078) then DUNC = 180; *Construction ; else if (IND >= 107 and IND <= 108) then DUNC = 070; *Sawmills ; else if (IND >= 109 and IND <= 109) then DUNC = 090; *Misc Wood Products ; else if (IND >= 118 and IND <= 118) then DUNC = 090; *Furniture ; else if (IND >= 119 and IND <= 119) then DUNC = 230; *Glass ; else if (IND >= 127 and IND <= 128) then DUNC = 100; *Cement + Clay ; else if (IND >= 137 and IND <= 137) then DUNC = 210; *Pottery ; else if (IND >= 138 and IND <= 138) then DUNC = 150; *Misc. Stone ; else if (IND >= 139 and IND <= 139) then DUNC = 170; *Blast Furnaces ; else if (IND >= 147 and IND <= 147) then DUNC = 120; *Other Primary Metal; else if (IND >= 148 and IND <= 149) then DUNC = 150; *OTHER PRIM. NONFERR; else if (IND >= 157 and IND <= 158) then DUNC = 160; *Fabricated Metal ; else if (IND >= 159 and IND <= 159) then DUNC = 150; *Screw Machine ; else if (IND >= 167 and IND <= 168) then DUNC = 150; *Misc. Fabric. Metal; else if (IND >= 169 and IND <= 169) then DUNC = 140; *NS Metal Inds. ; else if (IND >= 177 and IND <= 177) then DUNC = 220; *OTHER MACHINERY ; else if (IND >= 178 and IND <= 178) then DUNC = 210; *Farm Machinery ; else if (IND >= 179 and IND <= 179) then DUNC = 220; *Construction Mach. ; else if (IND >= 187 and IND <= 187) then DUNC = 220; *Metalworking Mach. ; else if (IND >= 188 and IND <= 189) then DUNC = 310; *Office+Comput.Mach.; else if (IND >= 197 and IND <= 198) then DUNC = 220; *OTHER MACHINERY ; else if (IND >= 199 and IND <= 209) then DUNC = 260; *Electrical Machiner; else if (IND >= 219 and IND <= 219) then DUNC = 210; *Car+Car Equipment ; else if (IND >= 227 and IND <= 227) then DUNC = 340; *Aircraft and Parts ; else if (IND >= 228 and IND <= 228) then DUNC = 160; *Ship and Boat ; else if (IND >= 229 and IND <= 238) then DUNC = 230; *OTHER TRANS. EQUIP.; else if (IND >= 239 and IND <= 239) then DUNC = 230; *Scientific Equip. ; else if (IND >= 247 and IND <= 247) then DUNC = 230; *Optical+Health Equp; else if (IND >= 248 and IND <= 248) then DUNC = 400; *Photo Equip. ; else if (IND >= 249 and IND <= 249) then DUNC = 280; *Watches, Clocks ; else if (IND >= 257 and IND <= 257) then DUNC = 230; *NS Prof. Equip. ; else if (IND >= 258 and IND <= 258) then DUNC = 150; *Ordnance ; else if (IND >= 259 and IND <= 259) then DUNC = 160; *Misc. Manuf. Inds. ; else if (IND >= 267 and IND <= 267) then DUNC = 184; *ALLOC-DURABLE MFG ; else if (IND >= 268 and IND <= 268) then DUNC = 160; *Meat Products ; else if (IND >= 269 and IND <= 269) then DUNC = 220; *Dairy Products ; else if (IND >= 278 and IND <= 278) then DUNC = 090; *Canning ; else if (IND >= 279 and IND <= 279) then DUNC = 140; *Grain-Mill Products; else if (IND >= 287 and IND <= 287) then DUNC = 150; *Bakery Products ; else if (IND >= 288 and IND <= 288) then DUNC = 120; *Confectionery ; else if (IND >= 289 and IND <= 289) then DUNC = 190; *Beverage Industry ; else if (IND >= 297 and IND <= 297) then DUNC = 110; *Misc Food ; else if (IND >= 298 and IND <= 298) then DUNC = 190; *NS Food ; else if (IND >= 299 and IND <= 299) then DUNC = 020; *Tobacco Manuf. ; else if (IND >= 307 and IND <= 307) then DUNC = 210; *Knitting Mills ; else if (IND >= 308 and IND <= 308) then DUNC = 080; *Dyeing Textile ; else if (IND >= 309 and IND <= 309) then DUNC = 140; *Floor Coverings ; else if (IND >= 317 and IND <= 317) then DUNC = 020; *Yarn, Thread ; else if (IND >= 318 and IND <= 318) then DUNC = 100; *Misc. Textile Mill ; else if (IND >= 319 and IND <= 319) then DUNC = 220; *Apparel and Access.; else if (IND >= 327 and IND <= 327) then DUNC = 170; *Misc. Fabric. Text.; else if (IND >= 328 and IND <= 329) then DUNC = 190; *Pulp+Misc. Paper ; else if (IND >= 337 and IND <= 337) then DUNC = 170; *Paperboard Boxes ; else if (IND >= 338 and IND <= 339) then DUNC = 310; *Printing+Publish. ; else if (IND >= 347 and IND <= 348) then DUNC = 230; *OTHER CHEMICALS ; else if (IND >= 349 and IND <= 349) then DUNC = 090; *Synthetic Fibers ; else if (IND >= 357 and IND <= 357) then DUNC = 260; *Drugs+Medicines ; else if (IND >= 358 and IND <= 358) then DUNC = 230; *OTHER CHEMICALS ; else if (IND >= 359 and IND <= 359) then DUNC = 150; *Paints ; else if (IND >= 367 and IND <= 369) then DUNC = 230; *OTHER CHEMICALS ; else if (IND >= 377 and IND <= 377) then DUNC = 560; *Petroleum Refining ; else if (IND >= 378 and IND <= 378) then DUNC = 140; *Misc. Oil and Coal ; else if (IND >= 379 and IND <= 379) then DUNC = 220; *Rubber Products ; else if (IND >= 387 and IND <= 387) then DUNC = 220; *Misc. Plastic ; else if (IND >= 388 and IND <= 388) then DUNC = 100; *Tanned Leather ; else if (IND >= 389 and IND <= 389) then DUNC = 090; *Leather Footwear ; else if (IND >= 397 and IND <= 397) then DUNC = 140; *Other Leather Prods; else if (IND >= 398 and IND <= 398) then DUNC = 160; *NS Manuf. Ind. ; else if (IND >= 399 and IND <= 399) then DUNC = 163; *ALLOC-NONDURABLE MF; else if (IND >= 407 and IND <= 407) then DUNC = 150; *Railroads ; else if (IND >= 408 and IND <= 429) then DUNC = 230; *OTHER TRANSPORTATIO; else if (IND >= 447 and IND <= 479) then DUNC = 210; *Comm, Util, Sanitar; else if (IND >= 499 and IND <= 499) then DUNC = 181; *ALLOC-TRANS,COMM,UT; else if (IND >= 507 and IND <= 699) then DUNC = 170; *Wsle + Retail Trade; else if (IND >= 707 and IND <= 719) then DUNC = 200; *OTHER INDUSTRIES ; else if (IND >= 727 and IND <= 767) then DUNC = 190; *Bus. + Repair Srvs ; else if (IND >= 769 and IND <= 799) then DUNC = 110; *Personal Services ; else if (IND >= 807 and IND <= 899) then DUNC = 200; *OTHER INDUSTRIES ; else if (IND >= 907 and IND <= 947) then DUNC = 170; *Public Administrat ; else if (IND > 947) then DUNC = 200; *OTHER INDUSTRIES ; end; else if OCC = 694 then do; * MISCELLANEOUS OPERATIVES ; if (IND = -9) then DUNC = 192; *No IND ; else if ( IND <= 058) then DUNC = 200; *OTHER INDUSTRIES ; else if (IND >= 067 and IND <= 078) then DUNC = 180; *Construction ; else if (IND >= 107 and IND <= 108) then DUNC = 070; *Sawmills ; else if (IND >= 109 and IND <= 109) then DUNC = 090; *Misc Wood Products ; else if (IND >= 118 and IND <= 118) then DUNC = 090; *Furniture ; else if (IND >= 119 and IND <= 119) then DUNC = 230; *Glass ; else if (IND >= 127 and IND <= 128) then DUNC = 100; *Cement + Clay ; else if (IND >= 137 and IND <= 137) then DUNC = 210; *Pottery ; else if (IND >= 138 and IND <= 138) then DUNC = 150; *Misc. Stone ; else if (IND >= 139 and IND <= 139) then DUNC = 170; *Blast Furnaces ; else if (IND >= 147 and IND <= 147) then DUNC = 120; *Other Primary Metal; else if (IND >= 148 and IND <= 149) then DUNC = 150; *OTHER PRIM. NONFERR; else if (IND >= 157 and IND <= 158) then DUNC = 160; *Fabricated Metal ; else if (IND >= 159 and IND <= 159) then DUNC = 150; *Screw Machine ; else if (IND >= 167 and IND <= 168) then DUNC = 150; *Misc. Fabric. Metal; else if (IND >= 169 and IND <= 169) then DUNC = 140; *NS Metal Inds. ; else if (IND >= 177 and IND <= 177) then DUNC = 220; *OTHER MACHINERY ; else if (IND >= 178 and IND <= 178) then DUNC = 210; *Farm Machinery ; else if (IND >= 179 and IND <= 179) then DUNC = 220; *Construction Mach. ; else if (IND >= 187 and IND <= 187) then DUNC = 220; *Metalworking Mach. ; else if (IND >= 188 and IND <= 189) then DUNC = 310; *Office+Comput.Mach.; else if (IND >= 197 and IND <= 198) then DUNC = 220; *OTHER MACHINERY ; else if (IND >= 199 and IND <= 209) then DUNC = 260; *Electrical Machiner; else if (IND >= 219 and IND <= 219) then DUNC = 210; *Car+Car Equipment ; else if (IND >= 227 and IND <= 227) then DUNC = 340; *Aircraft and Parts ; else if (IND >= 228 and IND <= 228) then DUNC = 160; *Ship and Boat ; else if (IND >= 229 and IND <= 238) then DUNC = 230; *OTHER TRANS. EQUIP.; else if (IND >= 239 and IND <= 239) then DUNC = 230; *Scientific Equip. ; else if (IND >= 247 and IND <= 247) then DUNC = 230; *Optical+Health Equp; else if (IND >= 248 and IND <= 248) then DUNC = 400; *Photo Equip. ; else if (IND >= 249 and IND <= 249) then DUNC = 280; *Watches, Clocks ; else if (IND >= 257 and IND <= 257) then DUNC = 230; *NS Prof. Equip. ; else if (IND >= 258 and IND <= 258) then DUNC = 150; *Ordnance ; else if (IND >= 259 and IND <= 259) then DUNC = 160; *Misc. Manuf. Inds. ; else if (IND >= 267 and IND <= 267) then DUNC = 184; *ALLOC-DURABLE MFG ; else if (IND >= 268 and IND <= 268) then DUNC = 160; *Meat Products ; else if (IND >= 269 and IND <= 269) then DUNC = 220; *Dairy Products ; else if (IND >= 278 and IND <= 278) then DUNC = 090; *Canning ; else if (IND >= 279 and IND <= 279) then DUNC = 140; *Grain-Mill Products; else if (IND >= 287 and IND <= 287) then DUNC = 150; *Bakery Products ; else if (IND >= 288 and IND <= 288) then DUNC = 120; *Confectionery ; else if (IND >= 289 and IND <= 289) then DUNC = 190; *Beverage Industry ; else if (IND >= 297 and IND <= 297) then DUNC = 110; *Misc Food ; else if (IND >= 298 and IND <= 298) then DUNC = 190; *NS Food ; else if (IND >= 299 and IND <= 299) then DUNC = 020; *Tobacco Manuf. ; else if (IND >= 307 and IND <= 307) then DUNC = 210; *Knitting Mills ; else if (IND >= 308 and IND <= 308) then DUNC = 080; *Dyeing Textile ; else if (IND >= 309 and IND <= 309) then DUNC = 140; *Floor Coverings ; else if (IND >= 317 and IND <= 317) then DUNC = 020; *Yarn, Thread ; else if (IND >= 318 and IND <= 318) then DUNC = 100; *Misc. Textile Mill ; else if (IND >= 319 and IND <= 319) then DUNC = 220; *Apparel and Access.; else if (IND >= 327 and IND <= 327) then DUNC = 170; *Misc. Fabric. Text.; else if (IND >= 328 and IND <= 329) then DUNC = 190; *Pulp+Misc. Paper ; else if (IND >= 337 and IND <= 337) then DUNC = 170; *Paperboard Boxes ; else if (IND >= 338 and IND <= 339) then DUNC = 310; *Printing+Publish. ; else if (IND >= 347 and IND <= 348) then DUNC = 230; *OTHER CHEMICALS ; else if (IND >= 349 and IND <= 349) then DUNC = 090; *Synthetic Fibers ; else if (IND >= 357 and IND <= 357) then DUNC = 260; *Drugs+Medicines ; else if (IND >= 358 and IND <= 358) then DUNC = 230; *OTHER CHEMICALS ; else if (IND >= 359 and IND <= 359) then DUNC = 150; *Paints ; else if (IND >= 367 and IND <= 369) then DUNC = 230; *OTHER CHEMICALS ; else if (IND >= 377 and IND <= 377) then DUNC = 560; *Petroleum Refining ; else if (IND >= 378 and IND <= 378) then DUNC = 140; *Misc. Oil and Coal ; else if (IND >= 379 and IND <= 379) then DUNC = 220; *Rubber Products ; else if (IND >= 387 and IND <= 387) then DUNC = 220; *Misc. Plastic ; else if (IND >= 388 and IND <= 388) then DUNC = 100; *Tanned Leather ; else if (IND >= 389 and IND <= 389) then DUNC = 090; *Leather Footwear ; else if (IND >= 397 and IND <= 397) then DUNC = 140; *Other Leather Prods; else if (IND >= 398 and IND <= 398) then DUNC = 160; *NS Manuf. Ind. ; else if (IND >= 399 and IND <= 399) then DUNC = 163; *ALLOC-NONDURABLE MF; else if (IND >= 407 and IND <= 407) then DUNC = 150; *Railroads ; else if (IND >= 408 and IND <= 429) then DUNC = 230; *OTHER TRANSPORTATIO; else if (IND >= 447 and IND <= 479) then DUNC = 210; *Comm, Util, Sanitar; else if (IND >= 499 and IND <= 499) then DUNC = 181; *ALLOC-TRANS,COMM,UT; else if (IND >= 507 and IND <= 699) then DUNC = 170; *Wsle + Retail Trade; else if (IND >= 707 and IND <= 719) then DUNC = 200; *OTHER INDUSTRIES ; else if (IND >= 727 and IND <= 767) then DUNC = 190; *Bus. + Repair Srvs ; else if (IND >= 769 and IND <= 799) then DUNC = 110; *Personal Services ; else if (IND >= 807 and IND <= 899) then DUNC = 200; *OTHER INDUSTRIES ; else if (IND >= 907 and IND <= 947) then DUNC = 170; *Public Administrat ; else if (IND > 947) then DUNC = 200; *OTHER INDUSTRIES ; end; else if OCC = 695 then do; * NOT SPECIFIED OPERATIVES ; if (IND = -9) then DUNC = 192; *No IND ; else if ( IND <= 058) then DUNC = 200; *OTHER INDUSTRIES ; else if (IND >= 067 and IND <= 078) then DUNC = 180; *Construction ; else if (IND >= 107 and IND <= 108) then DUNC = 070; *Sawmills ; else if (IND >= 109 and IND <= 109) then DUNC = 090; *Misc Wood Products ; else if (IND >= 118 and IND <= 118) then DUNC = 090; *Furniture ; else if (IND >= 119 and IND <= 119) then DUNC = 230; *Glass ; else if (IND >= 127 and IND <= 128) then DUNC = 100; *Cement + Clay ; else if (IND >= 137 and IND <= 137) then DUNC = 210; *Pottery ; else if (IND >= 138 and IND <= 138) then DUNC = 150; *Misc. Stone ; else if (IND >= 139 and IND <= 139) then DUNC = 170; *Blast Furnaces ; else if (IND >= 147 and IND <= 147) then DUNC = 120; *Other Primary Metal; else if (IND >= 148 and IND <= 149) then DUNC = 150; *OTHER PRIM. NONFERR; else if (IND >= 157 and IND <= 158) then DUNC = 160; *Fabricated Metal ; else if (IND >= 159 and IND <= 159) then DUNC = 150; *Screw Machine ; else if (IND >= 167 and IND <= 168) then DUNC = 150; *Misc. Fabric. Metal; else if (IND >= 169 and IND <= 169) then DUNC = 140; *NS Metal Inds. ; else if (IND >= 177 and IND <= 177) then DUNC = 220; *OTHER MACHINERY ; else if (IND >= 178 and IND <= 178) then DUNC = 210; *Farm Machinery ; else if (IND >= 179 and IND <= 179) then DUNC = 220; *Construction Mach. ; else if (IND >= 187 and IND <= 187) then DUNC = 220; *Metalworking Mach. ; else if (IND >= 188 and IND <= 189) then DUNC = 310; *Office+Comput.Mach.; else if (IND >= 197 and IND <= 198) then DUNC = 220; *OTHER MACHINERY ; else if (IND >= 199 and IND <= 209) then DUNC = 260; *Electrical Machiner; else if (IND >= 219 and IND <= 219) then DUNC = 210; *Car+Car Equipment ; else if (IND >= 227 and IND <= 227) then DUNC = 340; *Aircraft and Parts ; else if (IND >= 228 and IND <= 228) then DUNC = 160; *Ship and Boat ; else if (IND >= 229 and IND <= 238) then DUNC = 230; *OTHER TRANS. EQUIP.; else if (IND >= 239 and IND <= 239) then DUNC = 230; *Scientific Equip. ; else if (IND >= 247 and IND <= 247) then DUNC = 230; *Optical+Health Equp; else if (IND >= 248 and IND <= 248) then DUNC = 400; *Photo Equip. ; else if (IND >= 249 and IND <= 249) then DUNC = 280; *Watches, Clocks ; else if (IND >= 257 and IND <= 257) then DUNC = 230; *NS Prof. Equip. ; else if (IND >= 258 and IND <= 258) then DUNC = 150; *Ordnance ; else if (IND >= 259 and IND <= 259) then DUNC = 160; *Misc. Manuf. Inds. ; else if (IND >= 267 and IND <= 267) then DUNC = 184; *ALLOC-DURABLE MFG ; else if (IND >= 268 and IND <= 268) then DUNC = 160; *Meat Products ; else if (IND >= 269 and IND <= 269) then DUNC = 220; *Dairy Products ; else if (IND >= 278 and IND <= 278) then DUNC = 090; *Canning ; else if (IND >= 279 and IND <= 279) then DUNC = 140; *Grain-Mill Products; else if (IND >= 287 and IND <= 287) then DUNC = 150; *Bakery Products ; else if (IND >= 288 and IND <= 288) then DUNC = 120; *Confectionery ; else if (IND >= 289 and IND <= 289) then DUNC = 190; *Beverage Industry ; else if (IND >= 297 and IND <= 297) then DUNC = 110; *Misc Food ; else if (IND >= 298 and IND <= 298) then DUNC = 190; *NS Food ; else if (IND >= 299 and IND <= 299) then DUNC = 020; *Tobacco Manuf. ; else if (IND >= 307 and IND <= 307) then DUNC = 210; *Knitting Mills ; else if (IND >= 308 and IND <= 308) then DUNC = 080; *Dyeing Textile ; else if (IND >= 309 and IND <= 309) then DUNC = 140; *Floor Coverings ; else if (IND >= 317 and IND <= 317) then DUNC = 020; *Yarn, Thread ; else if (IND >= 318 and IND <= 318) then DUNC = 100; *Misc. Textile Mill ; else if (IND >= 319 and IND <= 319) then DUNC = 220; *Apparel and Access.; else if (IND >= 327 and IND <= 327) then DUNC = 170; *Misc. Fabric. Text.; else if (IND >= 328 and IND <= 329) then DUNC = 190; *Pulp+Misc. Paper ; else if (IND >= 337 and IND <= 337) then DUNC = 170; *Paperboard Boxes ; else if (IND >= 338 and IND <= 339) then DUNC = 310; *Printing+Publish. ; else if (IND >= 347 and IND <= 348) then DUNC = 230; *OTHER CHEMICALS ; else if (IND >= 349 and IND <= 349) then DUNC = 090; *Synthetic Fibers ; else if (IND >= 357 and IND <= 357) then DUNC = 260; *Drugs+Medicines ; else if (IND >= 358 and IND <= 358) then DUNC = 230; *OTHER CHEMICALS ; else if (IND >= 359 and IND <= 359) then DUNC = 150; *Paints ; else if (IND >= 367 and IND <= 369) then DUNC = 230; *OTHER CHEMICALS ; else if (IND >= 377 and IND <= 377) then DUNC = 560; *Petroleum Refining ; else if (IND >= 378 and IND <= 378) then DUNC = 140; *Misc. Oil and Coal ; else if (IND >= 379 and IND <= 379) then DUNC = 220; *Rubber Products ; else if (IND >= 387 and IND <= 387) then DUNC = 220; *Misc. Plastic ; else if (IND >= 388 and IND <= 388) then DUNC = 100; *Tanned Leather ; else if (IND >= 389 and IND <= 389) then DUNC = 090; *Leather Footwear ; else if (IND >= 397 and IND <= 397) then DUNC = 140; *Other Leather Prods; else if (IND >= 398 and IND <= 398) then DUNC = 160; *NS Manuf. Ind. ; else if (IND >= 399 and IND <= 399) then DUNC = 163; *ALLOC-NONDURABLE MF; else if (IND >= 407 and IND <= 407) then DUNC = 150; *Railroads ; else if (IND >= 408 and IND <= 429) then DUNC = 230; *OTHER TRANSPORTATIO; else if (IND >= 447 and IND <= 479) then DUNC = 210; *Comm, Util, Sanitar; else if (IND >= 499 and IND <= 499) then DUNC = 181; *ALLOC-TRANS,COMM,UT; else if (IND >= 507 and IND <= 699) then DUNC = 170; *Wsle + Retail Trade; else if (IND >= 707 and IND <= 719) then DUNC = 200; *OTHER INDUSTRIES ; else if (IND >= 727 and IND <= 767) then DUNC = 190; *Bus. + Repair Srvs ; else if (IND >= 769 and IND <= 799) then DUNC = 110; *Personal Services ; else if (IND >= 807 and IND <= 899) then DUNC = 200; *OTHER INDUSTRIES ; else if (IND >= 907 and IND <= 947) then DUNC = 170; *Public Administrat ; else if (IND > 947) then DUNC = 200; *OTHER INDUSTRIES ; end; else if OCC = 696 then DUNC = 180; else if OCC = 701 then DUNC = 240; else if OCC = 703 then DUNC = 240; else if OCC = 704 then DUNC = 325; else if OCC = 705 then DUNC = 310; else if OCC = 706 then DUNC = 168; else if OCC = 710 then DUNC = 030; else if OCC = 711 then DUNC = 188; else if OCC = 712 then DUNC = 420; else if OCC = 713 then DUNC = 440; else if OCC = 714 then DUNC = 100; else if OCC = 715 then DUNC = 151; else if OCC = 726 then DUNC = 180; else if OCC = 740 then DUNC = 169; else if OCC = 750 then DUNC = 072; else if OCC = 751 then DUNC = 071; else if OCC = 752 then DUNC = 106; else if OCC = 753 then DUNC = 087; else if OCC = 754 then DUNC = 060; else if OCC = 755 then DUNC = 109; else if OCC = 760 then DUNC = 110; else if OCC = 761 then DUNC = 041; else if OCC = 762 then DUNC = 167; else if OCC = 763 then DUNC = 080; else if OCC = 764 then DUNC = 076; else if OCC = 770 then DUNC = 083; else if OCC = 780 then do; * MISCELLANEOUS LABORERS ; if (IND = -9) then DUNC = 082; *No IND ; else if ( IND <= 058) then DUNC = 060; *OTHER INDUSTRIES ; else if (IND >= 067 and IND <= 078) then DUNC = 070; *Construction ; else if (IND >= 107 and IND <= 108) then DUNC = 030; *Sawmills ; else if (IND >= 109 and IND <= 109) then DUNC = 020; *Misc Wood Products ; else if (IND >= 118 and IND <= 118) then DUNC = 050; *Furniture ; else if (IND >= 119 and IND <= 119) then DUNC = 140; *Glass ; else if (IND >= 127 and IND <= 128) then DUNC = 050; *Cement + Clay ; else if (IND >= 137 and IND <= 137) then DUNC = 070; *Pottery ; else if (IND >= 138 and IND <= 138) then DUNC = 050; *Misc. Stone ; else if (IND >= 139 and IND <= 139) then DUNC = 090; *Blast Furnaces ; else if (IND >= 147 and IND <= 147) then DUNC = 040; *Other Primary Metal; else if (IND >= 148 and IND <= 149) then DUNC = 060; *OTHER PRIM. NONFERR; else if (IND >= 157 and IND <= 158) then DUNC = 070; *Fabricated Metal ; else if (IND >= 159 and IND <= 159) then DUNC = 100; *Screw Machine ; else if (IND >= 167 and IND <= 168) then DUNC = 100; *Misc. Fabric. Metal; else if (IND >= 169 and IND <= 169) then DUNC = 090; *NS Metal Inds. ; else if (IND >= 177 and IND <= 177) then DUNC = 100; *OTHER MACHINERY ; else if (IND >= 178 and IND <= 178) then DUNC = 140; *Farm Machinery ; else if (IND >= 179 and IND <= 179) then DUNC = 100; *Construction Mach. ; else if (IND >= 187 and IND <= 187) then DUNC = 100; *Metalworking Mach. ; else if (IND >= 188 and IND <= 189) then DUNC = 170; *Office+Comput.Mach.; else if (IND >= 197 and IND <= 198) then DUNC = 100; *OTHER MACHINERY ; else if (IND >= 199 and IND <= 209) then DUNC = 140; *Electrical Machiner; else if (IND >= 219 and IND <= 219) then DUNC = 130; *Car+Car Equipment ; else if (IND >= 227 and IND <= 227) then DUNC = 150; *Aircraft and Parts ; else if (IND >= 228 and IND <= 228) then DUNC = 020; *Ship and Boat ; else if (IND >= 229 and IND <= 238) then DUNC = 080; *OTHER TRANS. EQUIP.; else if (IND >= 239 and IND <= 239) then DUNC = 100; *Scientific Equip. ; else if (IND >= 247 and IND <= 247) then DUNC = 100; *Optical+Health Equp; else if (IND >= 248 and IND <= 248) then DUNC = 160; *Photo Equip. ; else if (IND >= 249 and IND <= 249) then DUNC = 110; *Watches, Clocks ; else if (IND >= 257 and IND <= 257) then DUNC = 100; *NS Prof. Equip. ; else if (IND >= 258 and IND <= 258) then DUNC = 100; *Ordnance ; else if (IND >= 259 and IND <= 259) then DUNC = 120; *Misc. Manuf. Inds. ; else if (IND >= 267 and IND <= 267) then DUNC = 072; *ALLOC-DURABLE MFG ; else if (IND >= 268 and IND <= 268) then DUNC = 080; *Meat Products ; else if (IND >= 269 and IND <= 269) then DUNC = 130; *Dairy Products ; else if (IND >= 278 and IND <= 278) then DUNC = 060; *Canning ; else if (IND >= 279 and IND <= 279) then DUNC = 060; *Grain-Mill Products; else if (IND >= 287 and IND <= 287) then DUNC = 100; *Bakery Products ; else if (IND >= 288 and IND <= 288) then DUNC = 100; *Confectionery ; else if (IND >= 289 and IND <= 289) then DUNC = 160; *Beverage Industry ; else if (IND >= 297 and IND <= 297) then DUNC = 050; *Misc Food ; else if (IND >= 298 and IND <= 298) then DUNC = 140; *NS Food ; else if (IND >= 299 and IND <= 299) then DUNC = 000; *Tobacco Manuf. ; else if (IND >= 307 and IND <= 307) then DUNC = 040; *Knitting Mills ; else if (IND >= 308 and IND <= 308) then DUNC = 090; *Dyeing Textile ; else if (IND >= 309 and IND <= 309) then DUNC = 140; *Floor Coverings ; else if (IND >= 317 and IND <= 317) then DUNC = 010; *Yarn, Thread ; else if (IND >= 318 and IND <= 318) then DUNC = 060; *Misc. Textile Mill ; else if (IND >= 319 and IND <= 319) then DUNC = 110; *Apparel and Access.; else if (IND >= 327 and IND <= 327) then DUNC = 060; *Misc. Fabric. Text.; else if (IND >= 328 and IND <= 328) then DUNC = 060; *Pulp and Paper ; else if (IND >= 329 and IND <= 329) then DUNC = 080; *Misc. Paper ; else if (IND >= 337 and IND <= 337) then DUNC = 100; *Paperboard Boxes ; else if (IND >= 338 and IND <= 339) then DUNC = 230; *Printing+Publish. ; else if (IND >= 347 and IND <= 348) then DUNC = 080; *OTHER CHEMICALS ; else if (IND >= 349 and IND <= 349) then DUNC = 040; *Synthetic Fibers ; else if (IND >= 357 and IND <= 357) then DUNC = 220; *Drugs+Medicines ; else if (IND >= 358 and IND <= 358) then DUNC = 080; *OTHER CHEMICALS ; else if (IND >= 359 and IND <= 359) then DUNC = 080; *Paints ; else if (IND >= 367 and IND <= 369) then DUNC = 080; *OTHER CHEMICALS ; else if (IND >= 377 and IND <= 377) then DUNC = 260; *Petroleum Refining ; else if (IND >= 378 and IND <= 378) then DUNC = 030; *Misc. Oil and Coal ; else if (IND >= 379 and IND <= 379) then DUNC = 120; *Rubber Products ; else if (IND >= 387 and IND <= 387) then DUNC = 120; *Misc. Plastic ; else if (IND >= 388 and IND <= 388) then DUNC = 020; *Tanned Leather ; else if (IND >= 389 and IND <= 389) then DUNC = 100; *Leather Footwear ; else if (IND >= 397 and IND <= 397) then DUNC = 120; *Other Leather Prods; else if (IND >= 398 and IND <= 398) then DUNC = 080; *NS Manuf. Ind. ; else if (IND >= 399 and IND <= 399) then DUNC = 091; *ALLOC-NONDURABLE MF; else if (IND >= 407 and IND <= 407) then DUNC = 030; *Railroads ; else if (IND >= 408 and IND <= 429) then DUNC = 090; *OTHER TRANSPORTATIO; else if (IND >= 447 and IND <= 479) then DUNC = 060; *Comm, Util, Sanitar; else if (IND >= 499 and IND <= 499) then DUNC = 050; *ALLOC-TRANS,COMM,UT; else if (IND >= 507 and IND <= 699) then DUNC = 120; *Wsle + Retail Trade; else if (IND >= 707 and IND <= 719) then DUNC = 060; *OTHER INDUSTRIES ; else if (IND >= 727 and IND <= 767) then DUNC = 090; *Bus. + Repair Srvs ; else if (IND >= 769 and IND <= 799) then DUNC = 050; *Personal Services ; else if (IND >= 807 and IND <= 899) then DUNC = 060; *OTHER INDUSTRIES ; else if (IND >= 907 and IND <= 947) then DUNC = 070; *Public Administrat ; else if (IND > 947) then DUNC = 060; *OTHER INDUSTRIES ; end; else if OCC = 785 then do; * NOT SPECIFIED LABORERS ; if (IND = -9) then DUNC = 083; *No IND ; else if ( IND <= 058) then DUNC = 060; *OTHER INDUSTRIES ; else if (IND >= 067 and IND <= 078) then DUNC = 070; *Construction ; else if (IND >= 107 and IND <= 108) then DUNC = 030; *Sawmills ; else if (IND >= 109 and IND <= 109) then DUNC = 020; *Misc Wood Products ; else if (IND >= 118 and IND <= 118) then DUNC = 050; *Furniture ; else if (IND >= 119 and IND <= 119) then DUNC = 140; *Glass ; else if (IND >= 127 and IND <= 128) then DUNC = 050; *Cement + Clay ; else if (IND >= 137 and IND <= 137) then DUNC = 070; *Pottery ; else if (IND >= 138 and IND <= 138) then DUNC = 050; *Misc. Stone ; else if (IND >= 139 and IND <= 139) then DUNC = 090; *Blast Furnaces ; else if (IND >= 147 and IND <= 147) then DUNC = 040; *Other Primary Metal; else if (IND >= 148 and IND <= 149) then DUNC = 060; *OTHER PRIM. NONFERR; else if (IND >= 157 and IND <= 158) then DUNC = 070; *Fabricated Metal ; else if (IND >= 159 and IND <= 159) then DUNC = 100; *Screw Machine ; else if (IND >= 167 and IND <= 168) then DUNC = 100; *Misc. Fabric. Metal; else if (IND >= 169 and IND <= 169) then DUNC = 090; *NS Metal Inds. ; else if (IND >= 177 and IND <= 177) then DUNC = 100; *OTHER MACHINERY ; else if (IND >= 178 and IND <= 178) then DUNC = 140; *Farm Machinery ; else if (IND >= 179 and IND <= 179) then DUNC = 100; *Construction Mach. ; else if (IND >= 187 and IND <= 187) then DUNC = 100; *Metalworking Mach. ; else if (IND >= 188 and IND <= 189) then DUNC = 170; *Office+Comput.Mach.; else if (IND >= 197 and IND <= 198) then DUNC = 100; *OTHER MACHINERY ; else if (IND >= 199 and IND <= 209) then DUNC = 140; *Electrical Machiner; else if (IND >= 219 and IND <= 219) then DUNC = 130; *Car+Car Equipment ; else if (IND >= 227 and IND <= 227) then DUNC = 150; *Aircraft and Parts ; else if (IND >= 228 and IND <= 228) then DUNC = 020; *Ship and Boat ; else if (IND >= 229 and IND <= 238) then DUNC = 080; *OTHER TRANS. EQUIP.; else if (IND >= 239 and IND <= 239) then DUNC = 100; *Scientific Equip. ; else if (IND >= 247 and IND <= 247) then DUNC = 100; *Optical+Health Equp; else if (IND >= 248 and IND <= 248) then DUNC = 160; *Photo Equip. ; else if (IND >= 249 and IND <= 249) then DUNC = 110; *Watches, Clocks ; else if (IND >= 257 and IND <= 257) then DUNC = 100; *NS Prof. Equip. ; else if (IND >= 258 and IND <= 258) then DUNC = 100; *Ordnance ; else if (IND >= 259 and IND <= 259) then DUNC = 120; *Misc. Manuf. Inds. ; else if (IND >= 267 and IND <= 267) then DUNC = 072; *ALLOC-DURABLE MFG ; else if (IND >= 268 and IND <= 268) then DUNC = 080; *Meat Products ; else if (IND >= 269 and IND <= 269) then DUNC = 130; *Dairy Products ; else if (IND >= 278 and IND <= 278) then DUNC = 060; *Canning ; else if (IND >= 279 and IND <= 279) then DUNC = 060; *Grain-Mill Products; else if (IND >= 287 and IND <= 287) then DUNC = 100; *Bakery Products ; else if (IND >= 288 and IND <= 288) then DUNC = 100; *Confectionery ; else if (IND >= 289 and IND <= 289) then DUNC = 160; *Beverage Industry ; else if (IND >= 297 and IND <= 297) then DUNC = 050; *Misc Food ; else if (IND >= 298 and IND <= 298) then DUNC = 140; *NS Food ; else if (IND >= 299 and IND <= 299) then DUNC = 000; *Tobacco Manuf. ; else if (IND >= 307 and IND <= 307) then DUNC = 040; *Knitting Mills ; else if (IND >= 308 and IND <= 308) then DUNC = 090; *Dyeing Textile ; else if (IND >= 309 and IND <= 309) then DUNC = 140; *Floor Coverings ; else if (IND >= 317 and IND <= 317) then DUNC = 010; *Yarn, Thread ; else if (IND >= 318 and IND <= 318) then DUNC = 060; *Misc. Textile Mill ; else if (IND >= 319 and IND <= 319) then DUNC = 110; *Apparel and Access.; else if (IND >= 327 and IND <= 327) then DUNC = 060; *Misc. Fabric. Text.; else if (IND >= 328 and IND <= 328) then DUNC = 060; *Pulp and Paper ; else if (IND >= 329 and IND <= 329) then DUNC = 080; *Misc. Paper ; else if (IND >= 337 and IND <= 337) then DUNC = 100; *Paperboard Boxes ; else if (IND >= 338 and IND <= 339) then DUNC = 230; *Printing+Publish. ; else if (IND >= 347 and IND <= 348) then DUNC = 080; *OTHER CHEMICALS ; else if (IND >= 349 and IND <= 349) then DUNC = 040; *Synthetic Fibers ; else if (IND >= 357 and IND <= 357) then DUNC = 220; *Drugs+Medicines ; else if (IND >= 358 and IND <= 358) then DUNC = 080; *OTHER CHEMICALS ; else if (IND >= 359 and IND <= 359) then DUNC = 080; *Paints ; else if (IND >= 367 and IND <= 369) then DUNC = 080; *OTHER CHEMICALS ; else if (IND >= 377 and IND <= 377) then DUNC = 260; *Petroleum Refining ; else if (IND >= 378 and IND <= 378) then DUNC = 030; *Misc. Oil and Coal ; else if (IND >= 379 and IND <= 379) then DUNC = 120; *Rubber Products ; else if (IND >= 387 and IND <= 387) then DUNC = 120; *Misc. Plastic ; else if (IND >= 388 and IND <= 388) then DUNC = 020; *Tanned Leather ; else if (IND >= 389 and IND <= 389) then DUNC = 100; *Leather Footwear ; else if (IND >= 397 and IND <= 397) then DUNC = 120; *Other Leather Prods; else if (IND >= 398 and IND <= 398) then DUNC = 080; *NS Manuf. Ind. ; else if (IND >= 399 and IND <= 399) then DUNC = 091; *ALLOC-NONDURABLE MF; else if (IND >= 407 and IND <= 407) then DUNC = 030; *Railroads ; else if (IND >= 408 and IND <= 429) then DUNC = 090; *OTHER TRANSPORTATIO; else if (IND >= 447 and IND <= 479) then DUNC = 060; *Comm, Util, Sanitar; else if (IND >= 499 and IND <= 499) then DUNC = 050; *ALLOC-TRANS,COMM,UT; else if (IND >= 507 and IND <= 699) then DUNC = 120; *Wsle + Retail Trade; else if (IND >= 707 and IND <= 719) then DUNC = 060; *OTHER INDUSTRIES ; else if (IND >= 727 and IND <= 767) then DUNC = 090; *Bus. + Repair Srvs ; else if (IND >= 769 and IND <= 799) then DUNC = 050; *Personal Services ; else if (IND >= 807 and IND <= 899) then DUNC = 060; *OTHER INDUSTRIES ; else if (IND >= 907 and IND <= 947) then DUNC = 070; *Public Administrat ; else if (IND > 947) then DUNC = 060; *OTHER INDUSTRIES ; end; else if OCC = 796 then DUNC = 070; else if OCC = 801 then DUNC = 140; else if OCC = 802 then DUNC = 360; else if OCC = 806 then DUNC = 140; else if OCC = 821 then DUNC = 200; else if OCC = 822 then DUNC = 063; else if OCC = 823 then DUNC = 170; else if OCC = 824 then DUNC = 220; else if OCC = 846 then DUNC = 090; else if OCC = 901 then DUNC = 134; else if OCC = 902 then DUNC = 078; else if OCC = 903 then DUNC = 127; else if OCC = 910 then DUNC = 190; else if OCC = 911 then DUNC = 110; else if OCC = 912 then DUNC = 150; else if OCC = 913 then DUNC = 110; else if OCC = 914 then DUNC = 170; else if OCC = 915 then DUNC = 160; else if OCC = 916 then DUNC = 110; else if OCC = 921 then DUNC = 380; else if OCC = 922 then DUNC = 250; else if OCC = 923 then DUNC = 510; else if OCC = 924 then DUNC = 370; else if OCC = 925 then DUNC = 137; else if OCC = 926 then DUNC = 220; else if OCC = 931 then DUNC = 310; else if OCC = 932 then DUNC = 191; else if OCC = 933 then DUNC = 263; else if OCC = 934 then DUNC = 078; else if OCC = 935 then DUNC = 170; else if OCC = 940 then DUNC = 300; else if OCC = 941 then DUNC = 080; else if OCC = 942 then DUNC = 282; else if OCC = 943 then DUNC = 100; else if OCC = 944 then DUNC = 170; else if OCC = 945 then DUNC = 310; else if OCC = 950 then DUNC = 310; else if OCC = 952 then DUNC = 260; else if OCC = 953 then DUNC = 250; else if OCC = 954 then DUNC = 110; else if OCC = 960 then DUNC = 179; else if OCC = 961 then DUNC = 370; else if OCC = 962 then DUNC = 183; else if OCC = 963 then DUNC = 210; else if OCC = 964 then do; * POLICEMEN AND DETECTIVES ; if (COW =-9) then DUNC = 405; *No COW ; else if (COW = 2) then DUNC = 400; *Government ; else DUNC = 360; *Private ; end; else if OCC = 965 then DUNC = 340; else if OCC = 976 then DUNC = 170; else if OCC = 980 then DUNC = 070; else if OCC = 981 then DUNC = 070; else if OCC = 982 then DUNC = 107; else if OCC = 983 then DUNC = 120; else if OCC = 984 then DUNC = 070; else if OCC = 986 then DUNC = 080; if DUNC = . and WAVE1 = 1 then do; if OCC = 997 then DUNC = 997; *Don't Know ; else if OCC = 998 then DUNC = 998; *Inapp ; else if OCC = 999 then DUNC = 999; *Refuse ; else if OCC >= 970 and OCC <= 974 then DUNC = 999; *Military ; else if OCC = 985 then DUNC = 998; *Housewife ; else if OCC >= 991 and OCC <= 996 then DUNC = 998; *Other-Inapp; end; else if DUNC = . and WAVE1 ^= 1 then do; if OCC = 997 then DUNC = 997; *Don't Know ; else if OCC = 998 then DUNC = 998; *Inapp ; else if OCC = 999 then DUNC = 999; *Refuse ; else if OCC >= 970 and OCC <= 974 then DUNC = 998; *Military ; else if OCC = 985 then DUNC = 998; *Housewife ; else if OCC >= 991 and OCC <= 996 then DUNC = 998; *Other-Inapp; end; RETURN; SIEGEL70: ***************************************************************************** *** 1 9 7 0 S I E G E L P R E S T I G E S C O R E S *** *****************************************************************************; SIEG = .; if OCC = 001 then SIEG = 559; else if OCC = 002 then SIEG = 667; else if OCC = 003 then SIEG = 506; else if OCC = 004 then SIEG = 506; else if OCC = 005 then SIEG = 506; else if OCC = 006 then SIEG = 711; else if OCC = 010 then SIEG = 672; else if OCC = 011 then SIEG = 678; else if OCC = 012 then SIEG = 694; else if OCC = 013 then SIEG = 556; else if OCC = 014 then SIEG = 621; else if OCC = 015 then SIEG = 584; else if OCC = 020 then SIEG = 616; else if OCC = 021 then SIEG = 571; else if OCC = 022 then SIEG = 506; else if OCC = 023 then SIEG = 670; else if OCC = 024 then SIEG = 539; else if OCC = 025 then SIEG = 539; else if OCC = 026 then SIEG = 539; else if OCC = 030 then SIEG = 757; else if OCC = 031 then SIEG = 751; else if OCC = 032 then SIEG = 546; else if OCC = 033 then SIEG = 596; else if OCC = 034 then SIEG = 554; else if OCC = 035 then SIEG = 650; else if OCC = 036 then SIEG = 554; else if OCC = 042 then SIEG = 558; else if OCC = 043 then SIEG = 470; else if OCC = 044 then SIEG = 677; else if OCC = 045 then SIEG = 671; else if OCC = 051 then SIEG = 672; else if OCC = 052 then SIEG = 672; else if OCC = 053 then SIEG = 738; else if OCC = 054 then SIEG = 648; else if OCC = 055 then SIEG = 508; else if OCC = 056 then SIEG = 558; else if OCC = 061 then SIEG = 600; else if OCC = 062 then SIEG = 736; else if OCC = 063 then SIEG = 620; else if OCC = 064 then SIEG = 603; else if OCC = 065 then SIEG = 812; else if OCC = 071 then SIEG = 367; else if OCC = 072 then SIEG = 597; else if OCC = 073 then SIEG = 367; else if OCC = 074 then SIEG = 521; else if OCC = 075 then SIEG = 601; else if OCC = 076 then SIEG = 405; else if OCC = 080 then SIEG = 610; else if OCC = 081 then SIEG = 610; else if OCC = 082 then SIEG = 546; else if OCC = 083 then SIEG = 610; else if OCC = 084 then SIEG = 610; else if OCC = 085 then SIEG = 498; else if OCC = 086 then SIEG = 690; else if OCC = 090 then SIEG = 550; else if OCC = 091 then SIEG = 536; else if OCC = 092 then SIEG = 656; else if OCC = 093 then SIEG = 714; else if OCC = 094 then SIEG = 656; else if OCC = 095 then SIEG = 506; else if OCC = 096 then SIEG = 656; else if OCC = 100 then SIEG = 524; else if OCC = 101 then SIEG = 486; else if OCC = 102 then SIEG = 783; else if OCC = 103 then SIEG = 783; else if OCC = 104 then SIEG = 783; else if OCC = 105 then SIEG = 783; else if OCC = 110 then SIEG = 783; else if OCC = 111 then SIEG = 783; else if OCC = 112 then SIEG = 783; else if OCC = 113 then SIEG = 783; else if OCC = 114 then SIEG = 783; else if OCC = 115 then SIEG = 783; else if OCC = 116 then SIEG = 783; else if OCC = 120 then SIEG = 783; else if OCC = 121 then SIEG = 783; else if OCC = 122 then SIEG = 783; else if OCC = 123 then SIEG = 468; else if OCC = 124 then SIEG = 532; else if OCC = 125 then SIEG = 783; else if OCC = 126 then SIEG = 783; else if OCC = 130 then SIEG = 783; else if OCC = 131 then SIEG = 783; else if OCC = 132 then SIEG = 783; else if OCC = 133 then SIEG = 783; else if OCC = 134 then SIEG = 783; else if OCC = 135 then SIEG = 783; else if OCC = 140 then SIEG = 783; else if OCC = 141 then SIEG = 443; else if OCC = 142 then SIEG = 589; else if OCC = 143 then SIEG = 561; else if OCC = 144 then SIEG = 598; else if OCC = 145 then SIEG = 442; else if OCC = 150 then SIEG = 472; else if OCC = 151 then SIEG = 470; else if OCC = 152 then SIEG = 561; else if OCC = 153 then SIEG = 516; else if OCC = 154 then SIEG = 495; else if OCC = 155 then SIEG = 470; else if OCC = 156 then SIEG = 470; else if OCC = 161 then SIEG = 531; else if OCC = 162 then SIEG = 470; else if OCC = 163 then SIEG = 701; else if OCC = 164 then SIEG = 428; else if OCC = 165 then SIEG = 517; else if OCC = 170 then SIEG = 482; else if OCC = 171 then SIEG = 428; else if OCC = 172 then SIEG = 470; else if OCC = 173 then SIEG = 472; else if OCC = 174 then SIEG = 506; else if OCC = 175 then SIEG = 550; else if OCC = 180 then SIEG = 519; else if OCC = 181 then SIEG = 598; else if OCC = 182 then SIEG = 376; else if OCC = 183 then SIEG = 565; else if OCC = 184 then SIEG = 512; else if OCC = 185 then SIEG = 460; else if OCC = 190 then SIEG = 562; else if OCC = 191 then SIEG = 405; else if OCC = 192 then SIEG = 567; else if OCC = 193 then SIEG = 506; else if OCC = 194 then SIEG = 386; else if OCC = 195 then SIEG = 506; else if OCC = 196 then SIEG = 596; else if OCC = 201 then SIEG = 509; else if OCC = 202 then SIEG = 661; else if OCC = 203 then SIEG = 430; else if OCC = 205 then SIEG = 500; else if OCC = 210 then SIEG = 488; else if OCC = 211 then SIEG = 522; else if OCC = 212 then SIEG = 638; else if OCC = 213 then SIEG = 396; else if OCC = 215 then do; *INSPECTORS, PUBLIC ADMIN ; if (IND = -9) then SIEG = 423; *No IND ; else if ( IND <= 899) then SIEG = 406; *OTHER INDUSTRIES ; else if (IND >= 907 and IND <= 917) then SIEG = 433; *Fed Public Admin+PO; else if (IND >= 927 and IND <= 927) then SIEG = 416; *State Public Admin ; else if (IND >= 937 and IND <= 937) then SIEG = 384; *Local Public Admin ; else if (IND >= 947 and IND <= 947) then SIEG = 406; *ALLOC-PUBLIC ADMIN ; else if (IND > 947) then SIEG = 406; *OTHER INDUSTRIES ; end; else if OCC = 216 then SIEG = 383; else if OCC = 220 then SIEG = 576; else if OCC = 221 then SIEG = 567; else if OCC = 222 then do; *OFFICIALS & ADMIN., PUBLIC ; if (IND = -9) then SIEG = 607; *No IND ; else if ( IND <= 899) then SIEG = 606; *OTHER INDUSTRIES ; else if (IND >= 907 and IND <= 917) then SIEG = 645; *Fed Public Admin+PO; else if (IND >= 927 and IND <= 927) then SIEG = 620; *State Public Admin ; else if (IND >= 937 and IND <= 937) then SIEG = 598; *Local Public Admin ; else if (IND >= 947 and IND <= 947) then SIEG = 606; *ALLOC-PUBLIC ADMIN ; else if (IND > 947) then SIEG = 606; *OTHER INDUSTRIES ; end; else if OCC = 223 then SIEG = 484; else if OCC = 224 then SIEG = 584; else if OCC = 225 then SIEG = 464; else if OCC = 226 then SIEG = 409; else if OCC = 230 then SIEG = 387; else if OCC = 231 then SIEG = 485; else if OCC = 233 then SIEG = 542; else if OCC = 235 then SIEG = 706; else if OCC = 240 then SIEG = 617; else if OCC = 245 then do; *MANAGERS N.E.C. ; if (IND = -9) then SIEG = 508; *No IND ; else if ( IND <= 058) then SIEG = 503; *OTHER INDUSTRIES ; else if (IND >= 067 and IND <= 078) then SIEG = 549; *Construction ; else if (IND >= 107 and IND <= 399) then SIEG = 605; *Manufacturing ; else if (IND >= 407 and IND <= 499) then SIEG = 543; *Trans,Comm,Util ; else if (IND >= 507 and IND <= 599) then SIEG = 445; *Wholesale Trade ; else if (IND >= 607 and IND <= 608) then SIEG = 416; *Lumber & Hardware ; else if (IND >= 609 and IND <= 627) then SIEG = 412; *OTHER RETAIL TRADE ; else if (IND >= 628 and IND <= 638) then SIEG = 468; *Food Stores ; else if (IND >= 639 and IND <= 639) then SIEG = 435; *Car Dealers ; else if (IND >= 647 and IND <= 647) then SIEG = 435; *Car Accessory Dlrs ; else if (IND >= 648 and IND <= 648) then SIEG = 371; *Gas Stations ; else if (IND >= 649 and IND <= 649) then SIEG = 435; *Misc. Vehicle Deale; else if (IND >= 657 and IND <= 658) then SIEG = 412; *OTHER RETAIL TRADE ; else if (IND >= 667 and IND <= 668) then SIEG = 412; *OTHER RETAIL TRADE ; else if (IND >= 669 and IND <= 669) then SIEG = 386; *Eating & Drinking E; else if (IND >= 677 and IND <= 698) then SIEG = 412; *OTHER RETAIL TRADE; else if (IND >= 699 and IND <= 699) then SIEG = 416; *ALLOC-RETAIL TRADE ; else if (IND >= 707 and IND <= 709) then SIEG = 720; *Banking + Securitie; else if (IND >= 717 and IND <= 718) then SIEG = 532; *Insurance + Real Es; else if (IND >= 719 and IND <= 719) then SIEG = 637; *ALLOC-FIRE ; else if (IND >= 727 and IND <= 748) then SIEG = 526; *Business Services ; else if (IND >= 749 and IND <= 757) then SIEG = 392; *Automobile Services; else if (IND >= 758 and IND <= 759) then SIEG = 290; *Repair Services ; else if (IND >= 767 and IND <= 767) then SIEG = 443; *ALLOC BUSINESS+REPA; else if (IND >= 769 and IND <= 799) then SIEG = 526; *Personal Services ; else if (IND >= 807) then SIEG = 503; *OTHER INDUSTRIES ; end; else if OCC = 246 then SIEG = 504; else if OCC = 260 then SIEG = 424; else if OCC = 261 then SIEG = 319; else if OCC = 262 then SIEG = 283; else if OCC = 264 then SIEG = 186; else if OCC = 265 then SIEG = 468; else if OCC = 266 then SIEG = 154; else if OCC = 270 then SIEG = 440; else if OCC = 271 then SIEG = 512; else if OCC = 280 then SIEG = 354; else if OCC = 281 then SIEG = 491; else if OCC = 282 then SIEG = 399; else if OCC = 283 then SIEG = 287; else if OCC = 284 then SIEG = 286; else if OCC = 285 then SIEG = 358; else if OCC = 296 then SIEG = 336; else if OCC = 301 then SIEG = 495; else if OCC = 303 then SIEG = 362; else if OCC = 305 then SIEG = 473; else if OCC = 310 then SIEG = 314; else if OCC = 311 then SIEG = 314; else if OCC = 312 then SIEG = 358; else if OCC = 313 then SIEG = 284; else if OCC = 314 then SIEG = 362; else if OCC = 315 then SIEG = 333; else if OCC = 320 then SIEG = 362; else if OCC = 321 then SIEG = 429; else if OCC = 323 then SIEG = 360; else if OCC = 325 then SIEG = 314; else if OCC = 326 then SIEG = 476; else if OCC = 330 then SIEG = 404; else if OCC = 331 then SIEG = 423; else if OCC = 332 then SIEG = 351; else if OCC = 333 then SIEG = 194; else if OCC = 334 then SIEG = 362; else if OCC = 341 then SIEG = 437; else if OCC = 342 then SIEG = 449; else if OCC = 343 then SIEG = 449; else if OCC = 344 then SIEG = 449; else if OCC = 345 then SIEG = 449; else if OCC = 350 then SIEG = 449; else if OCC = 355 then SIEG = 449; else if OCC = 360 then SIEG = 412; else if OCC = 361 then SIEG = 423; else if OCC = 362 then SIEG = 362; else if OCC = 363 then SIEG = 430; else if OCC = 364 then SIEG = 371; else if OCC = 370 then SIEG = 458; else if OCC = 371 then SIEG = 458; else if OCC = 372 then SIEG = 465; else if OCC = 374 then SIEG = 299; else if OCC = 375 then SIEG = 358; else if OCC = 376 then SIEG = 433; else if OCC = 381 then SIEG = 250; else if OCC = 382 then SIEG = 493; else if OCC = 383 then SIEG = 298; else if OCC = 384 then SIEG = 435; else if OCC = 385 then SIEG = 404; else if OCC = 390 then SIEG = 354; else if OCC = 391 then SIEG = 413; else if OCC = 392 then SIEG = 355; else if OCC = 394 then SIEG = 362; else if OCC = 395 then SIEG = 362; else if OCC = 396 then SIEG = 394; else if OCC = 401 then SIEG = 325; else if OCC = 402 then SIEG = 340; else if OCC = 403 then SIEG = 355; else if OCC = 404 then SIEG = 306; else if OCC = 405 then SIEG = 313; else if OCC = 410 then SIEG = 357; else if OCC = 411 then SIEG = 408; else if OCC = 412 then SIEG = 323; else if OCC = 413 then SIEG = 381; else if OCC = 415 then SIEG = 397; else if OCC = 416 then SIEG = 408; else if OCC = 420 then SIEG = 328; else if OCC = 421 then SIEG = 316; else if OCC = 422 then SIEG = 380; else if OCC = 423 then SIEG = 408; else if OCC = 424 then SIEG = 387; else if OCC = 425 then SIEG = 374; else if OCC = 426 then SIEG = 610; else if OCC = 430 then SIEG = 492; else if OCC = 431 then SIEG = 408; else if OCC = 433 then SIEG = 392; else if OCC = 434 then SIEG = 380; else if OCC = 435 then SIEG = 412; else if OCC = 436 then SIEG = 315; else if OCC = 440 then SIEG = 314; else if OCC = 441 then do; * FOREMEN, N.E.C. ; if (IND = -9) then SIEG = 453; *No IND ; else if ( IND <= 058) then SIEG = 456; *OTHER INDUSTRIES ; else if (IND >= 067 and IND <= 078) then SIEG = 461; *Construction ; else if (IND >= 107 and IND <= 399) then SIEG = 451; *Manufacturing ; else if (IND >= 407) then SIEG = 456; *OTHER INDUSTRIES ; end; else if OCC = 442 then SIEG = 355; else if OCC = 443 then SIEG = 291; else if OCC = 444 then SIEG = 352; else if OCC = 445 then SIEG = 267; else if OCC = 446 then SIEG = 353; else if OCC = 450 then SIEG = 310; else if OCC = 452 then SIEG = 313; else if OCC = 453 then SIEG = 375; else if OCC = 454 then SIEG = 464; else if OCC = 455 then SIEG = 508; else if OCC = 456 then SIEG = 362; else if OCC = 461 then SIEG = 477; else if OCC = 462 then SIEG = 408; else if OCC = 470 then SIEG = 367; else if OCC = 471 then SIEG = 482; else if OCC = 472 then SIEG = 367; else if OCC = 473 then SIEG = 367; else if OCC = 474 then SIEG = 408; else if OCC = 475 then SIEG = 339; else if OCC = 480 then SIEG = 326; else if OCC = 481 then SIEG = 328; else if OCC = 482 then SIEG = 326; else if OCC = 483 then SIEG = 304; else if OCC = 484 then SIEG = 338; else if OCC = 485 then SIEG = 350; else if OCC = 486 then SIEG = 356; else if OCC = 491 then SIEG = 408; else if OCC = 492 then SIEG = 328; else if OCC = 495 then SIEG = 326; else if OCC = 501 then SIEG = 252; else if OCC = 502 then SIEG = 403; else if OCC = 503 then SIEG = 391; else if OCC = 504 then SIEG = 408; else if OCC = 505 then SIEG = 339; else if OCC = 506 then SIEG = 514; else if OCC = 510 then SIEG = 299; else if OCC = 511 then SIEG = 408; else if OCC = 512 then SIEG = 277; else if OCC = 514 then SIEG = 387; else if OCC = 515 then SIEG = 401; else if OCC = 516 then SIEG = 320; else if OCC = 520 then SIEG = 332; else if OCC = 521 then SIEG = 408; else if OCC = 522 then SIEG = 406; else if OCC = 523 then SIEG = 408; else if OCC = 525 then SIEG = 388; else if OCC = 530 then SIEG = 393; else if OCC = 531 then SIEG = 408; else if OCC = 533 then SIEG = 360; else if OCC = 534 then SIEG = 315; else if OCC = 535 then SIEG = 368; else if OCC = 536 then SIEG = 408; else if OCC = 540 then SIEG = 355; else if OCC = 542 then SIEG = 326; else if OCC = 543 then SIEG = 307; else if OCC = 545 then SIEG = 349; else if OCC = 546 then SIEG = 317; else if OCC = 550 then SIEG = 356; else if OCC = 551 then SIEG = 340; else if OCC = 552 then SIEG = 391; else if OCC = 554 then SIEG = 392; else if OCC = 560 then SIEG = 384; else if OCC = 561 then SIEG = 423; else if OCC = 562 then SIEG = 408; else if OCC = 563 then SIEG = 299; else if OCC = 571 then SIEG = 408; else if OCC = 572 then SIEG = 408; else if OCC = 575 then SIEG = 421; else if OCC = 580 then SIEG = 999; else if OCC = 586 then SIEG = 388; else if OCC = 601 then SIEG = 284; else if OCC = 602 then SIEG = 275; else if OCC = 603 then SIEG = 321; else if OCC = 604 then SIEG = 233; else if OCC = 605 then SIEG = 394; else if OCC = 610 then SIEG = 361; else if OCC = 611 then SIEG = 219; else if OCC = 612 then SIEG = 288; else if OCC = 613 then SIEG = 317; else if OCC = 614 then SIEG = 262; else if OCC = 615 then SIEG = 364; else if OCC = 620 then SIEG = 250; else if OCC = 621 then SIEG = 231; else if OCC = 622 then SIEG = 329; else if OCC = 623 then SIEG = 212; else if OCC = 624 then SIEG = 329; else if OCC = 625 then SIEG = 236; else if OCC = 626 then SIEG = 329; else if OCC = 630 then SIEG = 182; else if OCC = 631 then SIEG = 320; else if OCC = 633 then SIEG = 236; else if OCC = 634 then SIEG = 194; else if OCC = 635 then SIEG = 303; else if OCC = 636 then SIEG = 334; else if OCC = 640 then do; * MINE OPERATIVES, N.E.C. ; if (IND = -9) then SIEG = 264; *No IND ; else if ( IND <= 029) then SIEG = 263; *OTHER INDUSTRIES ; else if (IND >= 047 and IND <= 047) then SIEG = 258; *OTHER MINING ; else if (IND >= 048 and IND <= 048) then SIEG = 252; *Coal Mining ; else if (IND >= 049 and IND <= 049) then SIEG = 284; *Oil and Natural Gas; else if (IND >= 057 and IND <= 057) then SIEG = 258; *OTHER MINING ; else if (IND >= 058 and IND <= 058) then SIEG = 263; *ALLOC-MINING ; else if (IND >= 067) then SIEG = 263; *OTHER INDUSTRIES ; end; else if OCC = 641 then SIEG = 275; else if OCC = 642 then SIEG = 242; else if OCC = 643 then SIEG = 195; else if OCC = 644 then SIEG = 290; else if OCC = 645 then SIEG = 359; else if OCC = 650 then SIEG = 317; else if OCC = 651 then SIEG = 190; else if OCC = 652 then SIEG = 319; else if OCC = 653 then SIEG = 311; else if OCC = 656 then SIEG = 304; else if OCC = 660 then SIEG = 316; else if OCC = 661 then SIEG = 337; else if OCC = 662 then SIEG = 276; else if OCC = 663 then SIEG = 252; else if OCC = 664 then SIEG = 316; else if OCC = 665 then SIEG = 354; else if OCC = 666 then SIEG = 317; else if OCC = 670 then SIEG = 289; else if OCC = 671 then SIEG = 294; else if OCC = 672 then SIEG = 282; else if OCC = 673 then SIEG = 250; else if OCC = 674 then SIEG = 288; else if OCC = 680 then SIEG = 401; else if OCC = 681 then SIEG = 320; else if OCC = 690 then do; * MACHINE OPERATIVES, MISC SP ; if (IND = -9) then SIEG = 284; *No IND ; else if (IND <= 058 ) then SIEG = 323; *OTHER INDUSTRIES ; else if (IND >= 067 and IND <= 078) then SIEG = 274; *Construction ; else if (IND >= 107 and IND <= 109) then SIEG = 236; *Lumber and Wood ; else if (IND >= 118 and IND <= 118) then SIEG = 276; *Furniture ; else if (IND >= 119 and IND <= 138) then SIEG = 231; *Glass, Stone, Clay ; else if (IND >= 139 and IND <= 149) then SIEG = 347; *Primary Metal ; else if (IND >= 157 and IND <= 169) then SIEG = 250; *Fabricated Metal ; else if (IND >= 177 and IND <= 198) then SIEG = 304; *Machinery, exc. ele; else if (IND >= 199 and IND <= 209) then SIEG = 386; *Electrical Machines; else if (IND >= 219 and IND <= 219) then SIEG = 308; *Autos ; else if (IND >= 227 and IND <= 227) then SIEG = 419; *Aircraft and Parts ; else if (IND >= 228 and IND <= 228) then SIEG = 308; *Ship and Boat ; else if (IND >= 229 and IND <= 238) then SIEG = 249; *OTHER TRANS. EQUIP.; else if (IND >= 239 and IND <= 257) then SIEG = 303; *Prof. and Photo. ; else if (IND >= 258 and IND <= 258) then SIEG = 250; *Ordnance ; else if (IND >= 259 and IND <= 259) then SIEG = 316; *Misc. Manuf. Inds. ; else if (IND >= 267 and IND <= 267) then SIEG = 307; *ALLOC-DURABLE MFG ; else if (IND >= 268 and IND <= 298) then SIEG = 230; *Food and Kindred ; else if (IND >= 299 and IND <= 299) then SIEG = 248; *Tobacco ; else if (IND >= 307 and IND <= 318) then SIEG = 288; *Textile Mill ; else if (IND >= 319 and IND <= 319) then SIEG = 258; *Apparel and Access.; else if (IND >= 327 and IND <= 327) then SIEG = 258; *Misc. Fabric. Text.; else if (IND >= 328 and IND <= 337) then SIEG = 248; *Paper and Allied ; else if (IND >= 338 and IND <= 339) then SIEG = 331; *Printing, Publish ; else if (IND >= 347 and IND <= 369) then SIEG = 319; *Chemicals ; else if (IND >= 377 and IND <= 378) then SIEG = 306; *Oil and Coal ; else if (IND >= 379 and IND <= 387) then SIEG = 298; *Rubber, Plastic ; else if (IND >= 388 and IND <= 397) then SIEG = 316; *Leather ; else if (IND >= 398 and IND <= 398) then SIEG = 316; *Not Spec Manufactur; else if (IND >= 399 and IND <= 399) then SIEG = 275; *ALLOC-NONDURABLE MF; else if (IND >= 407 and IND <= 499) then SIEG = 331; *Trans,Comm,Utility ; else if (IND >= 507 and IND <= 699) then SIEG = 259; *Whsle & Retail Trad; else if (IND >= 707 and IND <= 719) then SIEG = 323; *OTHER INDUSTRIES ; else if (IND >= 727 and IND <= 767) then SIEG = 259; *Bus. & Repair Srvs ; else if (IND >= 769 and IND <= 799) then SIEG = 259; *Personal Services ; else if (IND >= 807 and IND <= 817) then SIEG = 323; *OTHER INDUSTRIES ; else if (IND >= 828 and IND <= 899) then SIEG = 323; *OTHER INDUSTRIES ; else if (IND >= 907 and IND <= 947) then SIEG = 334; *Public Adminis. ; else if (IND > 947) then SIEG = 323; *OTHER INDUSTRIES ; end; else if OCC = 692 then do; * MACHINE OPERATIVES, NOT SPEC; if (IND = -9) then SIEG = 293; *No IND ; else if (IND <= 058 ) then SIEG = 323; *OTHER INDUSTRIES ; else if (IND >= 067 and IND <= 078) then SIEG = 274; *Construction ; else if (IND >= 107 and IND <= 109) then SIEG = 236; *Lumber and Wood ; else if (IND >= 118 and IND <= 118) then SIEG = 276; *Furniture ; else if (IND >= 119 and IND <= 138) then SIEG = 231; *Glass, Stone, Clay ; else if (IND >= 139 and IND <= 149) then SIEG = 347; *Primary Metal ; else if (IND >= 157 and IND <= 169) then SIEG = 250; *Fabricated Metal ; else if (IND >= 177 and IND <= 198) then SIEG = 304; *Machinery, exc. ele; else if (IND >= 199 and IND <= 209) then SIEG = 386; *Electrical Machines; else if (IND >= 219 and IND <= 219) then SIEG = 308; *Autos ; else if (IND >= 227 and IND <= 227) then SIEG = 419; *Aircraft and Parts ; else if (IND >= 228 and IND <= 228) then SIEG = 308; *Ship and Boat ; else if (IND >= 229 and IND <= 238) then SIEG = 249; *OTHER TRANS. EQUIP.; else if (IND >= 239 and IND <= 257) then SIEG = 303; *Prof. and Photo. ; else if (IND >= 258 and IND <= 258) then SIEG = 250; *Ordnance ; else if (IND >= 259 and IND <= 259) then SIEG = 316; *Misc. Manuf. Inds. ; else if (IND >= 267 and IND <= 267) then SIEG = 307; *ALLOC-DURABLE MFG ; else if (IND >= 268 and IND <= 298) then SIEG = 230; *Food and Kindred ; else if (IND >= 299 and IND <= 299) then SIEG = 248; *Tobacco ; else if (IND >= 307 and IND <= 318) then SIEG = 288; *Textile Mill ; else if (IND >= 319 and IND <= 319) then SIEG = 258; *Apparel and Access.; else if (IND >= 327 and IND <= 327) then SIEG = 258; *Misc. Fabric. Text.; else if (IND >= 328 and IND <= 337) then SIEG = 248; *Paper and Allied ; else if (IND >= 338 and IND <= 339) then SIEG = 331; *Printing, Publish ; else if (IND >= 347 and IND <= 369) then SIEG = 319; *Chemicals ; else if (IND >= 377 and IND <= 378) then SIEG = 306; *Oil and Coal ; else if (IND >= 379 and IND <= 387) then SIEG = 298; *Rubber, Plastic ; else if (IND >= 388 and IND <= 397) then SIEG = 316; *Leather ; else if (IND >= 398 and IND <= 398) then SIEG = 316; *Not Spec Manufactur; else if (IND >= 399 and IND <= 399) then SIEG = 275; *ALLOC-NONDURABLE MF; else if (IND >= 407 and IND <= 499) then SIEG = 331; *Trans,Comm,Utility ; else if (IND >= 507 and IND <= 699) then SIEG = 259; *Whsle & Retail Trad; else if (IND >= 707 and IND <= 719) then SIEG = 323; *OTHER INDUSTRIES ; else if (IND >= 727 and IND <= 767) then SIEG = 259; *Bus. & Repair Srvs ; else if (IND >= 769 and IND <= 799) then SIEG = 259; *Personal Services ; else if (IND >= 807 and IND <= 817) then SIEG = 323; *OTHER INDUSTRIES ; else if (IND >= 828 and IND <= 899) then SIEG = 323; *OTHER INDUSTRIES ; else if (IND >= 907 and IND <= 947) then SIEG = 334; *Public Adminis. ; else if (IND > 947) then SIEG = 323; *OTHER INDUSTRIES ; end; else if OCC = 694 then do; * MISCELLANEOUS OPERATIVES ; if (IND = -9) then SIEG = 291; *No IND ; else if (IND <= 058 ) then SIEG = 323; *OTHER INDUSTRIES ; else if (IND >= 067 and IND <= 078) then SIEG = 274; *Construction ; else if (IND >= 107 and IND <= 109) then SIEG = 236; *Lumber and Wood ; else if (IND >= 118 and IND <= 118) then SIEG = 276; *Furniture ; else if (IND >= 119 and IND <= 138) then SIEG = 231; *Glass, Stone, Clay ; else if (IND >= 139 and IND <= 149) then SIEG = 347; *Primary Metal ; else if (IND >= 157 and IND <= 169) then SIEG = 250; *Fabricated Metal ; else if (IND >= 177 and IND <= 198) then SIEG = 304; *Machinery, exc. ele; else if (IND >= 199 and IND <= 209) then SIEG = 386; *Electrical Machines; else if (IND >= 219 and IND <= 219) then SIEG = 308; *Autos ; else if (IND >= 227 and IND <= 227) then SIEG = 419; *Aircraft and Parts ; else if (IND >= 228 and IND <= 228) then SIEG = 308; *Ship and Boat ; else if (IND >= 229 and IND <= 238) then SIEG = 249; *OTHER TRANS. EQUIP.; else if (IND >= 239 and IND <= 257) then SIEG = 303; *Prof. and Photo. ; else if (IND >= 258 and IND <= 258) then SIEG = 250; *Ordnance ; else if (IND >= 259 and IND <= 259) then SIEG = 316; *Misc. Manuf. Inds. ; else if (IND >= 267 and IND <= 267) then SIEG = 307; *ALLOC-DURABLE MFG ; else if (IND >= 268 and IND <= 298) then SIEG = 230; *Food and Kindred ; else if (IND >= 299 and IND <= 299) then SIEG = 248; *Tobacco ; else if (IND >= 307 and IND <= 318) then SIEG = 288; *Textile Mill ; else if (IND >= 319 and IND <= 319) then SIEG = 258; *Apparel and Access.; else if (IND >= 327 and IND <= 327) then SIEG = 258; *Misc. Fabric. Text.; else if (IND >= 328 and IND <= 337) then SIEG = 248; *Paper and Allied ; else if (IND >= 338 and IND <= 339) then SIEG = 331; *Printing, Publish ; else if (IND >= 347 and IND <= 369) then SIEG = 319; *Chemicals ; else if (IND >= 377 and IND <= 378) then SIEG = 306; *Oil and Coal ; else if (IND >= 379 and IND <= 387) then SIEG = 298; *Rubber, Plastic ; else if (IND >= 388 and IND <= 397) then SIEG = 316; *Leather ; else if (IND >= 398 and IND <= 398) then SIEG = 316; *Not Spec Manufactur; else if (IND >= 399 and IND <= 399) then SIEG = 275; *ALLOC-NONDURABLE MF; else if (IND >= 407 and IND <= 499) then SIEG = 331; *Trans,Comm,Utility ; else if (IND >= 507 and IND <= 699) then SIEG = 259; *Whsle & Retail Trad; else if (IND >= 707 and IND <= 719) then SIEG = 323; *OTHER INDUSTRIES ; else if (IND >= 727 and IND <= 767) then SIEG = 259; *Bus. & Repair Srvs ; else if (IND >= 769 and IND <= 799) then SIEG = 259; *Personal Services ; else if (IND >= 807 and IND <= 817) then SIEG = 323; *OTHER INDUSTRIES ; else if (IND >= 828 and IND <= 899) then SIEG = 323; *OTHER INDUSTRIES ; else if (IND >= 907 and IND <= 947) then SIEG = 334; *Public Adminis. ; else if (IND > 947) then SIEG = 323; *OTHER INDUSTRIES ; end; else if OCC = 695 then do; * NOT SPECIFIED OPERATIVES ; if (IND = -9) then SIEG = 291; *No IND ; else if (IND <= 058 ) then SIEG = 323; *OTHER INDUSTRIES ; else if (IND >= 067 and IND <= 078) then SIEG = 274; *Construction ; else if (IND >= 107 and IND <= 109) then SIEG = 236; *Lumber and Wood ; else if (IND >= 118 and IND <= 118) then SIEG = 276; *Furniture ; else if (IND >= 119 and IND <= 138) then SIEG = 231; *Glass, Stone, Clay ; else if (IND >= 139 and IND <= 149) then SIEG = 347; *Primary Metal ; else if (IND >= 157 and IND <= 169) then SIEG = 250; *Fabricated Metal ; else if (IND >= 177 and IND <= 198) then SIEG = 304; *Machinery, exc. ele; else if (IND >= 199 and IND <= 209) then SIEG = 386; *Electrical Machines; else if (IND >= 219 and IND <= 219) then SIEG = 308; *Autos ; else if (IND >= 227 and IND <= 227) then SIEG = 419; *Aircraft and Parts ; else if (IND >= 228 and IND <= 228) then SIEG = 308; *Ship and Boat ; else if (IND >= 229 and IND <= 238) then SIEG = 249; *OTHER TRANS. EQUIP.; else if (IND >= 239 and IND <= 257) then SIEG = 303; *Prof. and Photo. ; else if (IND >= 258 and IND <= 258) then SIEG = 250; *Ordnance ; else if (IND >= 259 and IND <= 259) then SIEG = 316; *Misc. Manuf. Inds. ; else if (IND >= 267 and IND <= 267) then SIEG = 307; *ALLOC-DURABLE MFG ; else if (IND >= 268 and IND <= 298) then SIEG = 230; *Food and Kindred ; else if (IND >= 299 and IND <= 299) then SIEG = 248; *Tobacco ; else if (IND >= 307 and IND <= 318) then SIEG = 288; *Textile Mill ; else if (IND >= 319 and IND <= 319) then SIEG = 258; *Apparel and Access.; else if (IND >= 327 and IND <= 327) then SIEG = 258; *Misc. Fabric. Text.; else if (IND >= 328 and IND <= 337) then SIEG = 248; *Paper and Allied ; else if (IND >= 338 and IND <= 339) then SIEG = 331; *Printing, Publish ; else if (IND >= 347 and IND <= 369) then SIEG = 319; *Chemicals ; else if (IND >= 377 and IND <= 378) then SIEG = 306; *Oil and Coal ; else if (IND >= 379 and IND <= 387) then SIEG = 298; *Rubber, Plastic ; else if (IND >= 388 and IND <= 397) then SIEG = 316; *Leather ; else if (IND >= 398 and IND <= 398) then SIEG = 316; *Not Spec Manufactur; else if (IND >= 399 and IND <= 399) then SIEG = 275; *ALLOC-NONDURABLE MF; else if (IND >= 407 and IND <= 499) then SIEG = 331; *Trans,Comm,Utility ; else if (IND >= 507 and IND <= 699) then SIEG = 259; *Whsle & Retail Trad; else if (IND >= 707 and IND <= 719) then SIEG = 323; *OTHER INDUSTRIES ; else if (IND >= 727 and IND <= 767) then SIEG = 259; *Bus. & Repair Srvs ; else if (IND >= 769 and IND <= 799) then SIEG = 259; *Personal Services ; else if (IND >= 807 and IND <= 817) then SIEG = 323; *OTHER INDUSTRIES ; else if (IND >= 828 and IND <= 899) then SIEG = 323; *OTHER INDUSTRIES ; else if (IND >= 907 and IND <= 947) then SIEG = 334; *Public Adminis. ; else if (IND > 947) then SIEG = 323; *OTHER INDUSTRIES ; end; else if OCC = 696 then SIEG = 287; else if OCC = 701 then SIEG = 368; else if OCC = 703 then SIEG = 324; else if OCC = 704 then SIEG = 280; else if OCC = 705 then SIEG = 282; else if OCC = 706 then SIEG = 284; else if OCC = 710 then SIEG = 272; else if OCC = 711 then SIEG = 215; else if OCC = 712 then SIEG = 347; else if OCC = 713 then SIEG = 328; else if OCC = 714 then SIEG = 220; else if OCC = 715 then SIEG = 321; else if OCC = 726 then SIEG = 287; else if OCC = 740 then SIEG = 287; else if OCC = 750 then SIEG = 230; else if OCC = 751 then SIEG = 174; else if OCC = 752 then SIEG = 303; else if OCC = 753 then SIEG = 188; else if OCC = 754 then SIEG = 173; else if OCC = 755 then SIEG = 221; else if OCC = 760 then SIEG = 244; else if OCC = 761 then SIEG = 259; else if OCC = 762 then SIEG = 206; else if OCC = 763 then SIEG = 122; else if OCC = 764 then SIEG = 175; else if OCC = 770 then SIEG = 203; else if OCC = 780 then SIEG = 191; else if OCC = 785 then SIEG = 175; else if OCC = 796 then SIEG = 184; else if OCC = 801 then SIEG = 407; else if OCC = 802 then SIEG = 437; else if OCC = 806 then SIEG = 407; else if OCC = 821 then SIEG = 350; else if OCC = 822 then SIEG = 189; else if OCC = 823 then SIEG = 184; else if OCC = 824 then SIEG = 268; else if OCC = 846 then SIEG = 187; else if OCC = 901 then SIEG = 166; else if OCC = 902 then SIEG = 184; else if OCC = 903 then SIEG = 195; else if OCC = 910 then SIEG = 199; else if OCC = 911 then SIEG = 144; else if OCC = 912 then SIEG = 264; else if OCC = 913 then SIEG = 218; else if OCC = 914 then SIEG = 154; else if OCC = 915 then SIEG = 203; else if OCC = 916 then SIEG = 209; else if OCC = 921 then SIEG = 478; else if OCC = 922 then SIEG = 263; else if OCC = 923 then SIEG = 451; else if OCC = 924 then SIEG = 233; else if OCC = 925 then SIEG = 368; else if OCC = 926 then SIEG = 419; else if OCC = 931 then SIEG = 364; else if OCC = 932 then SIEG = 156; else if OCC = 933 then SIEG = 217; else if OCC = 934 then SIEG = 175; else if OCC = 935 then SIEG = 379; else if OCC = 940 then SIEG = 221; else if OCC = 941 then SIEG = 093; else if OCC = 942 then SIEG = 240; else if OCC = 943 then SIEG = 209; else if OCC = 944 then SIEG = 332; else if OCC = 945 then SIEG = 408; else if OCC = 950 then SIEG = 364; else if OCC = 952 then SIEG = 141; else if OCC = 953 then SIEG = 149; else if OCC = 954 then SIEG = 144; else if OCC = 960 then SIEG = 253; else if OCC = 961 then SIEG = 438; else if OCC = 962 then SIEG = 222; else if OCC = 963 then SIEG = 458; else if OCC = 964 then SIEG = 477; else if OCC = 965 then SIEG = 550; else if OCC = 976 then SIEG = 252; else if OCC = 980 then SIEG = 226; else if OCC = 981 then SIEG = 180; else if OCC = 982 then SIEG = 201; else if OCC = 983 then SIEG = 176; else if OCC = 984 then SIEG = 180; else if OCC = 986 then SIEG = 196; if SIEG = . and WAVE1 = 1 then do; if OCC = 997 then SIEG = 997; *Don't know ; else if OCC = 998 then SIEG = 998; *Inapp ; else if OCC = 999 then SIEG = 999; *Refuse ; else if OCC >= 970 and OCC <= 974 then SIEG = 999; *Military ; else if OCC = 985 then SIEG = 998; *Housewife ; else if OCC >= 991 and OCC <= 996 then SIEG = 998; *Other-Inapp ; end; else if SIEG = . and WAVE1 ^= 1 then do; if OCC = 997 then SIEG = 997; *Don't know ; else if OCC = 998 then SIEG = 998; *Inapp ; else if OCC = 999 then SIEG = 999; *Refuse ; else if OCC >= 970 and OCC <= 974 then SIEG = 998; *Military ; else if OCC = 985 then SIEG = 998; *Housewife ; else if OCC >= 991 and OCC <= 996 then SIEG = 998; *Other-Inapp ; end; RETURN; TSEI270: ***************************************************************************** *** 1 9 7 0 T S E I 2 S C O R E S *** *****************************************************************************; TSEI = .; if OCC = 001 then TSEI = 6468; else if OCC = 002 then TSEI = 8011; else if OCC = 003 then TSEI = 6605; else if OCC = 004 then TSEI = 7410; else if OCC = 005 then TSEI = 7119; else if OCC = 006 then TSEI = 8353; else if OCC = 010 then TSEI = 8714; else if OCC = 011 then TSEI = 7679; else if OCC = 012 then TSEI = 7904; else if OCC = 013 then TSEI = 7202; else if OCC = 014 then TSEI = 7684; else if OCC = 015 then TSEI = 8034; else if OCC = 020 then TSEI = 7549; else if OCC = 021 then TSEI = 8232; else if OCC = 022 then TSEI = 7816; else if OCC = 023 then TSEI = 7636; else if OCC = 024 then TSEI = 8025; else if OCC = 025 then TSEI = 4957; else if OCC = 026 then TSEI = 6583; else if OCC = 030 then TSEI = 7968; else if OCC = 031 then TSEI = 8842; else if OCC = 032 then TSEI = 6546; else if OCC = 033 then TSEI = 6122; else if OCC = 034 then TSEI = 8037; else if OCC = 035 then TSEI = 8439; else if OCC = 036 then TSEI = 6512; else if OCC = 042 then TSEI = 6380; else if OCC = 043 then TSEI = 7458; else if OCC = 044 then TSEI = 7673; else if OCC = 045 then TSEI = 7776; else if OCC = 051 then TSEI = 8735; else if OCC = 052 then TSEI = 8248; else if OCC = 053 then TSEI = 8700; else if OCC = 054 then TSEI = 8005; else if OCC = 055 then TSEI = 6494; else if OCC = 056 then TSEI = 5988; else if OCC = 061 then TSEI = 8019; else if OCC = 062 then TSEI = 8957; else if OCC = 063 then TSEI = 8573; else if OCC = 064 then TSEI = 8110; else if OCC = 065 then TSEI = 8837; else if OCC = 071 then TSEI = 8289; else if OCC = 072 then TSEI = 8660; else if OCC = 073 then TSEI = 7166; else if OCC = 074 then TSEI = 4338; else if OCC = 075 then TSEI = 4641; else if OCC = 076 then TSEI = 5994; else if OCC = 080 then TSEI = 5496; else if OCC = 081 then TSEI = 6725; else if OCC = 082 then TSEI = 5075; else if OCC = 083 then TSEI = 3920; else if OCC = 084 then TSEI = 3637; else if OCC = 085 then TSEI = 4558; else if OCC = 086 then TSEI = 6603; else if OCC = 090 then TSEI = 5708; else if OCC = 091 then TSEI = 8070; else if OCC = 092 then TSEI = 8109; else if OCC = 093 then TSEI = 8248; else if OCC = 094 then TSEI = 7833; else if OCC = 095 then TSEI = 7963; else if OCC = 096 then TSEI = 7464; else if OCC = 100 then TSEI = 6614; else if OCC = 101 then TSEI = 5412; else if OCC = 102 then TSEI = 8571; else if OCC = 103 then TSEI = 8504; else if OCC = 104 then TSEI = 8380; else if OCC = 105 then TSEI = 8503; else if OCC = 110 then TSEI = 8422; else if OCC = 111 then TSEI = 8488; else if OCC = 112 then TSEI = 8246; else if OCC = 113 then TSEI = 8074; else if OCC = 114 then TSEI = 8553; else if OCC = 115 then TSEI = 8291; else if OCC = 116 then TSEI = 8711; else if OCC = 120 then TSEI = 8361; else if OCC = 121 then TSEI = 8228; else if OCC = 122 then TSEI = 8504; else if OCC = 123 then TSEI = 7974; else if OCC = 124 then TSEI = 8143; else if OCC = 125 then TSEI = 8620; else if OCC = 126 then TSEI = 8081; else if OCC = 130 then TSEI = 7897; else if OCC = 131 then TSEI = 7313; else if OCC = 132 then TSEI = 9045; else if OCC = 133 then TSEI = 8048; else if OCC = 134 then TSEI = 6884; else if OCC = 135 then TSEI = 8193; else if OCC = 140 then TSEI = 7713; else if OCC = 141 then TSEI = 5956; else if OCC = 142 then TSEI = 7088; else if OCC = 143 then TSEI = 5851; else if OCC = 144 then TSEI = 7514; else if OCC = 145 then TSEI = 5164; else if OCC = 150 then TSEI = 3910; else if OCC = 151 then TSEI = 4848; else if OCC = 152 then TSEI = 4848; else if OCC = 153 then TSEI = 4573; else if OCC = 154 then TSEI = 4377; else if OCC = 155 then TSEI = 4950; else if OCC = 156 then TSEI = 5739; else if OCC = 161 then TSEI = 3943; else if OCC = 162 then TSEI = 4532; else if OCC = 163 then TSEI = 6865; else if OCC = 164 then TSEI = 5011; else if OCC = 165 then TSEI = 5694; else if OCC = 170 then TSEI = 6145; else if OCC = 171 then TSEI = 3277; else if OCC = 172 then TSEI = 5860; else if OCC = 173 then TSEI = 4278; else if OCC = 174 then TSEI = 7781; else if OCC = 175 then TSEI = 5695; else if OCC = 180 then TSEI = 4516; else if OCC = 181 then TSEI = 7143; else if OCC = 182 then TSEI = 2982; else if OCC = 183 then TSEI = 6047; else if OCC = 184 then TSEI = 6736; else if OCC = 185 then TSEI = 4569; else if OCC = 190 then TSEI = 5468; else if OCC = 191 then TSEI = 4269; else if OCC = 192 then TSEI = 6743; else if OCC = 193 then TSEI = 5536; else if OCC = 194 then TSEI = 5569; else if OCC = 195 then TSEI = 7357; else if OCC = 196 then TSEI = 6665; else if OCC = 201 then TSEI = 3870; else if OCC = 202 then TSEI = 6213; else if OCC = 203 then TSEI = 3431; else if OCC = 205 then TSEI = 4580; else if OCC = 210 then TSEI = 5089; else if OCC = 211 then TSEI = 6047; else if OCC = 212 then TSEI = 6190; else if OCC = 213 then TSEI = 3963; else if OCC = 215 then TSEI = 4492; else if OCC = 216 then TSEI = 3843; else if OCC = 220 then TSEI = 4848; else if OCC = 221 then TSEI = 3528; else if OCC = 222 then TSEI = 5709; else if OCC = 223 then TSEI = 5247; else if OCC = 224 then TSEI = 3984; else if OCC = 225 then TSEI = 5452; else if OCC = 226 then TSEI = 3375; else if OCC = 230 then TSEI = 3251; else if OCC = 231 then TSEI = 4158; else if OCC = 233 then TSEI = 6809; else if OCC = 235 then TSEI = 7949; else if OCC = 240 then TSEI = 8339; else if OCC = 245 then TSEI = 4913; else if OCC = 246 then TSEI = 5064; else if OCC = 260 then TSEI = 5871; else if OCC = 261 then TSEI = 3440; else if OCC = 262 then TSEI = 2569; else if OCC = 264 then TSEI = 2564; else if OCC = 265 then TSEI = 5343; else if OCC = 266 then TSEI = 1940; else if OCC = 270 then TSEI = 5092; else if OCC = 271 then TSEI = 7193; else if OCC = 280 then TSEI = 4141; else if OCC = 281 then TSEI = 5696; else if OCC = 282 then TSEI = 4722; else if OCC = 283 then TSEI = 2537; else if OCC = 284 then TSEI = 3531; else if OCC = 285 then TSEI = 4221; else if OCC = 296 then TSEI = 3721; else if OCC = 301 then TSEI = 2738; else if OCC = 303 then TSEI = 2462; else if OCC = 305 then TSEI = 2965; else if OCC = 310 then TSEI = 2116; else if OCC = 311 then TSEI = 3475; else if OCC = 312 then TSEI = 4414; else if OCC = 313 then TSEI = 3586; else if OCC = 314 then TSEI = 2538; else if OCC = 315 then TSEI = 2892; else if OCC = 320 then TSEI = 3727; else if OCC = 321 then TSEI = 4615; else if OCC = 323 then TSEI = 3590; else if OCC = 325 then TSEI = 2485; else if OCC = 326 then TSEI = 5605; else if OCC = 330 then TSEI = 4510; else if OCC = 331 then TSEI = 2784; else if OCC = 332 then TSEI = 2616; else if OCC = 333 then TSEI = 2440; else if OCC = 334 then TSEI = 2388; else if OCC = 341 then TSEI = 2441; else if OCC = 342 then TSEI = 2205; else if OCC = 343 then TSEI = 3722; else if OCC = 344 then TSEI = 2640; else if OCC = 345 then TSEI = 2288; else if OCC = 350 then TSEI = 2805; else if OCC = 355 then TSEI = 2373; else if OCC = 360 then TSEI = 2738; else if OCC = 361 then TSEI = 3025; else if OCC = 362 then TSEI = 3525; else if OCC = 363 then TSEI = 6493; else if OCC = 364 then TSEI = 2900; else if OCC = 370 then TSEI = 3473; else if OCC = 371 then TSEI = 3557; else if OCC = 372 then TSEI = 3175; else if OCC = 374 then TSEI = 2193; else if OCC = 375 then TSEI = 3128; else if OCC = 376 then TSEI = 3002; else if OCC = 381 then TSEI = 2526; else if OCC = 382 then TSEI = 3156; else if OCC = 383 then TSEI = 2440; else if OCC = 384 then TSEI = 2848; else if OCC = 385 then TSEI = 2189; else if OCC = 390 then TSEI = 3928; else if OCC = 391 then TSEI = 2523; else if OCC = 392 then TSEI = 2033; else if OCC = 394 then TSEI = 3293; else if OCC = 395 then TSEI = 2774; else if OCC = 396 then TSEI = 2913; else if OCC = 401 then TSEI = 2203; else if OCC = 402 then TSEI = 1922; else if OCC = 403 then TSEI = 2072; else if OCC = 404 then TSEI = 2555; else if OCC = 405 then TSEI = 1988; else if OCC = 410 then TSEI = 2262; else if OCC = 411 then TSEI = 2363; else if OCC = 412 then TSEI = 1954; else if OCC = 413 then TSEI = 2089; else if OCC = 415 then TSEI = 2258; else if OCC = 416 then TSEI = 2131; else if OCC = 420 then TSEI = 2307; else if OCC = 421 then TSEI = 2110; else if OCC = 422 then TSEI = 2802; else if OCC = 423 then TSEI = 2206; else if OCC = 424 then TSEI = 2198; else if OCC = 425 then TSEI = 3222; else if OCC = 426 then TSEI = 3258; else if OCC = 430 then TSEI = 3104; else if OCC = 431 then TSEI = 2678; else if OCC = 433 then TSEI = 2814; else if OCC = 434 then TSEI = 3072; else if OCC = 435 then TSEI = 2347; else if OCC = 436 then TSEI = 2174; else if OCC = 440 then TSEI = 2313; else if OCC = 441 then TSEI = 3481; else if OCC = 442 then TSEI = 2227; else if OCC = 443 then TSEI = 1995; else if OCC = 444 then TSEI = 2422; else if OCC = 445 then TSEI = 2462; else if OCC = 446 then TSEI = 2208; else if OCC = 450 then TSEI = 2043; else if OCC = 452 then TSEI = 3083; else if OCC = 453 then TSEI = 2631; else if OCC = 454 then TSEI = 2272; else if OCC = 455 then TSEI = 3477; else if OCC = 456 then TSEI = 3052; else if OCC = 461 then TSEI = 2449; else if OCC = 462 then TSEI = 2369; else if OCC = 470 then TSEI = 2638; else if OCC = 471 then TSEI = 3183; else if OCC = 472 then TSEI = 2157; else if OCC = 473 then TSEI = 2095; else if OCC = 474 then TSEI = 1787; else if OCC = 475 then TSEI = 4908; else if OCC = 480 then TSEI = 1994; else if OCC = 481 then TSEI = 2364; else if OCC = 482 then TSEI = 2426; else if OCC = 483 then TSEI = 1388; else if OCC = 484 then TSEI = 3004; else if OCC = 485 then TSEI = 2936; else if OCC = 486 then TSEI = 1960; else if OCC = 491 then TSEI = 2483; else if OCC = 492 then TSEI = 2640; else if OCC = 495 then TSEI = 2687; else if OCC = 501 then TSEI = 1858; else if OCC = 502 then TSEI = 2758; else if OCC = 503 then TSEI = 1866; else if OCC = 504 then TSEI = 2390; else if OCC = 505 then TSEI = 3275; else if OCC = 506 then TSEI = 2921; else if OCC = 510 then TSEI = 2071; else if OCC = 511 then TSEI = 1891; else if OCC = 512 then TSEI = 2340; else if OCC = 514 then TSEI = 3149; else if OCC = 515 then TSEI = 3433; else if OCC = 516 then TSEI = 3312; else if OCC = 520 then TSEI = 2155; else if OCC = 521 then TSEI = 2028; else if OCC = 522 then TSEI = 2724; else if OCC = 523 then TSEI = 2442; else if OCC = 525 then TSEI = 3359; else if OCC = 530 then TSEI = 2570; else if OCC = 531 then TSEI = 2280; else if OCC = 533 then TSEI = 2387; else if OCC = 534 then TSEI = 1973; else if OCC = 535 then TSEI = 2612; else if OCC = 536 then TSEI = 2312; else if OCC = 540 then TSEI = 2321; else if OCC = 542 then TSEI = 1729; else if OCC = 543 then TSEI = 2580; else if OCC = 545 then TSEI = 2834; else if OCC = 546 then TSEI = 1963; else if OCC = 550 then TSEI = 2799; else if OCC = 551 then TSEI = 1913; else if OCC = 552 then TSEI = 3259; else if OCC = 554 then TSEI = 2812; else if OCC = 560 then TSEI = 2268; else if OCC = 561 then TSEI = 3261; else if OCC = 562 then TSEI = 2724; else if OCC = 563 then TSEI = 1789; else if OCC = 571 then TSEI = 2311; else if OCC = 572 then TSEI = 3900; else if OCC = 575 then TSEI = 2530; else if OCC = 580 then TSEI = 9999; else if OCC = 586 then TSEI = 2637; else if OCC = 601 then TSEI = 2801; else if OCC = 602 then TSEI = 1770; else if OCC = 603 then TSEI = 1955; else if OCC = 604 then TSEI = 1761; else if OCC = 605 then TSEI = 2710; else if OCC = 610 then TSEI = 2121; else if OCC = 611 then TSEI = 1474; else if OCC = 612 then TSEI = 1759; else if OCC = 613 then TSEI = 1841; else if OCC = 614 then TSEI = 2141; else if OCC = 615 then TSEI = 2374; else if OCC = 620 then TSEI = 1779; else if OCC = 621 then TSEI = 1751; else if OCC = 622 then TSEI = 2069; else if OCC = 623 then TSEI = 1973; else if OCC = 624 then TSEI = 1594; else if OCC = 625 then TSEI = 1528; else if OCC = 626 then TSEI = 2429; else if OCC = 630 then TSEI = 1691; else if OCC = 631 then TSEI = 2204; else if OCC = 633 then TSEI = 1836; else if OCC = 634 then TSEI = 1510; else if OCC = 635 then TSEI = 1994; else if OCC = 636 then TSEI = 1768; else if OCC = 640 then TSEI = 2024; else if OCC = 641 then TSEI = 1932; else if OCC = 642 then TSEI = 2000; else if OCC = 643 then TSEI = 1607; else if OCC = 644 then TSEI = 1799; else if OCC = 645 then TSEI = 2846; else if OCC = 650 then TSEI = 1825; else if OCC = 651 then TSEI = 2121; else if OCC = 652 then TSEI = 2216; else if OCC = 653 then TSEI = 2217; else if OCC = 656 then TSEI = 1754; else if OCC = 660 then TSEI = 1593; else if OCC = 661 then TSEI = 2171; else if OCC = 662 then TSEI = 1639; else if OCC = 663 then TSEI = 1448; else if OCC = 664 then TSEI = 1429; else if OCC = 665 then TSEI = 1590; else if OCC = 666 then TSEI = 2099; else if OCC = 670 then TSEI = 1412; else if OCC = 671 then TSEI = 1542; else if OCC = 672 then TSEI = 1398; else if OCC = 673 then TSEI = 1432; else if OCC = 674 then TSEI = 1476; else if OCC = 680 then TSEI = 2066; else if OCC = 681 then TSEI = 1717; else if OCC = 690 then TSEI = 1886; else if OCC = 692 then TSEI = 1863; else if OCC = 694 then TSEI = 1930; else if OCC = 695 then TSEI = 1943; else if OCC = 696 then TSEI = 1839; else if OCC = 701 then TSEI = 2309; else if OCC = 703 then TSEI = 2147; else if OCC = 704 then TSEI = 2512; else if OCC = 705 then TSEI = 2316; else if OCC = 706 then TSEI = 1794; else if OCC = 710 then TSEI = 1836; else if OCC = 711 then TSEI = 2311; else if OCC = 712 then TSEI = 2742; else if OCC = 713 then TSEI = 2509; else if OCC = 714 then TSEI = 2246; else if OCC = 715 then TSEI = 2110; else if OCC = 726 then TSEI = 2161; else if OCC = 740 then TSEI = 2318; else if OCC = 750 then TSEI = 1804; else if OCC = 751 then TSEI = 1850; else if OCC = 752 then TSEI = 2065; else if OCC = 753 then TSEI = 1959; else if OCC = 754 then TSEI = 1724; else if OCC = 755 then TSEI = 1924; else if OCC = 760 then TSEI = 2262; else if OCC = 761 then TSEI = 1769; else if OCC = 762 then TSEI = 1999; else if OCC = 763 then TSEI = 1773; else if OCC = 764 then TSEI = 1716; else if OCC = 770 then TSEI = 2196; else if OCC = 780 then TSEI = 1749; else if OCC = 785 then TSEI = 1777; else if OCC = 796 then TSEI = 1902; else if OCC = 801 then TSEI = 2381; else if OCC = 802 then TSEI = 3364; else if OCC = 806 then TSEI = 2425; else if OCC = 821 then TSEI = 2549; else if OCC = 822 then TSEI = 1677; else if OCC = 823 then TSEI = 1902; else if OCC = 824 then TSEI = 2204; else if OCC = 846 then TSEI = 1733; else if OCC = 901 then TSEI = 1524; else if OCC = 902 then TSEI = 1597; else if OCC = 903 then TSEI = 1851; else if OCC = 910 then TSEI = 2396; else if OCC = 911 then TSEI = 1904; else if OCC = 912 then TSEI = 1752; else if OCC = 913 then TSEI = 1903; else if OCC = 914 then TSEI = 2043; else if OCC = 915 then TSEI = 1888; else if OCC = 916 then TSEI = 1781; else if OCC = 921 then TSEI = 2715; else if OCC = 922 then TSEI = 2565; else if OCC = 923 then TSEI = 4549; else if OCC = 924 then TSEI = 2358; else if OCC = 925 then TSEI = 1952; else if OCC = 926 then TSEI = 2494; else if OCC = 931 then TSEI = 5151; else if OCC = 932 then TSEI = 2884; else if OCC = 933 then TSEI = 2709; else if OCC = 934 then TSEI = 2322; else if OCC = 935 then TSEI = 2045; else if OCC = 940 then TSEI = 2669; else if OCC = 941 then TSEI = 1491; else if OCC = 942 then TSEI = 2306; else if OCC = 943 then TSEI = 1678; else if OCC = 944 then TSEI = 1910; else if OCC = 945 then TSEI = 1599; else if OCC = 950 then TSEI = 2919; else if OCC = 952 then TSEI = 2608; else if OCC = 953 then TSEI = 2301; else if OCC = 954 then TSEI = 2848; else if OCC = 960 then TSEI = 1672; else if OCC = 961 then TSEI = 3235; else if OCC = 962 then TSEI = 2361; else if OCC = 963 then TSEI = 3312; else if OCC = 964 then TSEI = 3798; else if OCC = 965 then TSEI = 3333; else if OCC = 976 then TSEI = 2102; else if OCC = 980 then TSEI = 1798; else if OCC = 981 then TSEI = 1533; else if OCC = 982 then TSEI = 1538; else if OCC = 983 then TSEI = 1562; else if OCC = 984 then TSEI = 1471; else if OCC = 986 then TSEI = 1553; if CENSUS=1 then do; **** Use CENSUS Defn of Allocated Occs ****; if OCC = 196 then TSEI = 5675; *** Prof,Tech Alloc***; else if OCC = 246 then TSEI = 4007; *** Managers Alloc ***; else if OCC = 296 then TSEI = 2867; *** Sales Alloc ***; else if OCC = 396 then TSEI = 2719; *** Clerical Alloc ***; else if OCC = 586 then TSEI = 2388; *** Crafts Alloc ***; else if OCC = 696 then TSEI = 1797; *** Operatives Alloc**; else if OCC = 726 then TSEI = 1989; *** Trans.Equip.Alloc*; else if OCC = 796 then TSEI = 1906; *** Laborers Alloc ***; else if OCC = 806 then TSEI = 2352; *** Farmers Alloc ***; else if OCC = 846 then TSEI = 1741; *** Farm Laborer All**; else if OCC = 976 then TSEI = 1964; *** Service Alloc ***; else if OCC = 986 then TSEI = 1381; *** Pr.HH Alloc ***; end; if TSEI = . and WAVE1 = 1 then do; if OCC = 997 then TSEI = 9997; *Don't know ; else if OCC = 998 then TSEI = 9998; *Inapp ; else if OCC = 999 then TSEI = 9999; *Refused ; else if OCC >= 970 and OCC <= 974 then TSEI = 9999; *Military ; else if OCC = 985 then TSEI = 9998; *Housewife ; else if OCC >= 991 and OCC <= 996 then TSEI = 9998; *Other-Inapp; end; else if TSEI = . and WAVE1 ^= 1 then do; if OCC = 997 then TSEI = 9997; *Don't know ; else if OCC = 998 then TSEI = 9998; *Inapp ; else if OCC = 999 then TSEI = 9999; *Refused ; else if OCC >= 970 and OCC <= 974 then TSEI = 9998; *Military ; else if OCC = 985 then TSEI = 9998; *Housewife ; else if OCC >= 991 and OCC <= 996 then TSEI = 9998; *Other-Inapp; end; RETURN; MSEI270: ***************************************************************************** *** 1 9 7 0 M S E I 2 S C O R E S *** *****************************************************************************; MSEI = .; if OCC = 001 then MSEI = 7017; else if OCC = 002 then MSEI = 7816; else if OCC = 003 then MSEI = 6357; else if OCC = 004 then MSEI = 7539; else if OCC = 005 then MSEI = 7301; else if OCC = 006 then MSEI = 8321; else if OCC = 010 then MSEI = 8539; else if OCC = 011 then MSEI = 7533; else if OCC = 012 then MSEI = 7832; else if OCC = 013 then MSEI = 7162; else if OCC = 014 then MSEI = 7621; else if OCC = 015 then MSEI = 8192; else if OCC = 020 then MSEI = 7422; else if OCC = 021 then MSEI = 8055; else if OCC = 022 then MSEI = 7708; else if OCC = 023 then MSEI = 7527; else if OCC = 024 then MSEI = 7774; else if OCC = 025 then MSEI = 4748; else if OCC = 026 then MSEI = 4710; else if OCC = 030 then MSEI = 7987; else if OCC = 031 then MSEI = 8696; else if OCC = 032 then MSEI = 6523; else if OCC = 033 then MSEI = 5714; else if OCC = 034 then MSEI = 8437; else if OCC = 035 then MSEI = 8433; else if OCC = 036 then MSEI = 7145; else if OCC = 042 then MSEI = 6273; else if OCC = 043 then MSEI = 7770; else if OCC = 044 then MSEI = 7695; else if OCC = 045 then MSEI = 7556; else if OCC = 051 then MSEI = 8559; else if OCC = 052 then MSEI = 8072; else if OCC = 053 then MSEI = 8516; else if OCC = 054 then MSEI = 8172; else if OCC = 055 then MSEI = 6528; else if OCC = 056 then MSEI = 6621; else if OCC = 061 then MSEI = 7788; else if OCC = 062 then MSEI = 8849; else if OCC = 063 then MSEI = 8416; else if OCC = 064 then MSEI = 8035; else if OCC = 065 then MSEI = 8714; else if OCC = 071 then MSEI = 8194; else if OCC = 072 then MSEI = 8546; else if OCC = 073 then MSEI = 6790; else if OCC = 074 then MSEI = 3956; else if OCC = 075 then MSEI = 4662; else if OCC = 076 then MSEI = 5693; else if OCC = 080 then MSEI = 5299; else if OCC = 081 then MSEI = 5347; else if OCC = 082 then MSEI = 5347; else if OCC = 083 then MSEI = 4598; else if OCC = 084 then MSEI = 3966; else if OCC = 085 then MSEI = 5190; else if OCC = 086 then MSEI = 6210; else if OCC = 090 then MSEI = 5761; else if OCC = 091 then MSEI = 8102; else if OCC = 092 then MSEI = 8475; else if OCC = 093 then MSEI = 8106; else if OCC = 094 then MSEI = 7379; else if OCC = 095 then MSEI = 7721; else if OCC = 096 then MSEI = 7351; else if OCC = 100 then MSEI = 6439; else if OCC = 101 then MSEI = 5230; else if OCC = 102 then MSEI = 8258; else if OCC = 103 then MSEI = 8182; else if OCC = 104 then MSEI = 8167; else if OCC = 105 then MSEI = 8196; else if OCC = 110 then MSEI = 8041; else if OCC = 111 then MSEI = 8330; else if OCC = 112 then MSEI = 7943; else if OCC = 113 then MSEI = 8663; else if OCC = 114 then MSEI = 8420; else if OCC = 115 then MSEI = 8303; else if OCC = 116 then MSEI = 8410; else if OCC = 120 then MSEI = 8004; else if OCC = 121 then MSEI = 7915; else if OCC = 122 then MSEI = 8213; else if OCC = 123 then MSEI = 7842; else if OCC = 124 then MSEI = 7857; else if OCC = 125 then MSEI = 8534; else if OCC = 126 then MSEI = 7915; else if OCC = 130 then MSEI = 7774; else if OCC = 131 then MSEI = 7484; else if OCC = 132 then MSEI = 8865; else if OCC = 133 then MSEI = 7614; else if OCC = 134 then MSEI = 6690; else if OCC = 135 then MSEI = 7902; else if OCC = 140 then MSEI = 7522; else if OCC = 141 then MSEI = 5933; else if OCC = 142 then MSEI = 6899; else if OCC = 143 then MSEI = 5032; else if OCC = 144 then MSEI = 7302; else if OCC = 145 then MSEI = 4892; else if OCC = 150 then MSEI = 3765; else if OCC = 151 then MSEI = 4571; else if OCC = 152 then MSEI = 4626; else if OCC = 153 then MSEI = 4501; else if OCC = 154 then MSEI = 4346; else if OCC = 155 then MSEI = 4995; else if OCC = 156 then MSEI = 5479; else if OCC = 161 then MSEI = 3654; else if OCC = 162 then MSEI = 4347; else if OCC = 163 then MSEI = 6866; else if OCC = 164 then MSEI = 5262; else if OCC = 165 then MSEI = 5212; else if OCC = 170 then MSEI = 6208; else if OCC = 171 then MSEI = 3422; else if OCC = 172 then MSEI = 5776; else if OCC = 173 then MSEI = 4104; else if OCC = 174 then MSEI = 7557; else if OCC = 175 then MSEI = 5562; else if OCC = 180 then MSEI = 4306; else if OCC = 181 then MSEI = 7034; else if OCC = 182 then MSEI = 4120; else if OCC = 183 then MSEI = 6231; else if OCC = 184 then MSEI = 6951; else if OCC = 185 then MSEI = 4070; else if OCC = 190 then MSEI = 5458; else if OCC = 191 then MSEI = 4254; else if OCC = 192 then MSEI = 6909; else if OCC = 193 then MSEI = 5091; else if OCC = 194 then MSEI = 5567; else if OCC = 195 then MSEI = 7128; else if OCC = 196 then MSEI = 6853; else if OCC = 201 then MSEI = 4343; else if OCC = 202 then MSEI = 6648; else if OCC = 203 then MSEI = 3363; else if OCC = 205 then MSEI = 4870; else if OCC = 210 then MSEI = 5660; else if OCC = 211 then MSEI = 5833; else if OCC = 212 then MSEI = 6880; else if OCC = 213 then MSEI = 3891; else if OCC = 215 then MSEI = 4489; else if OCC = 216 then MSEI = 4074; else if OCC = 220 then MSEI = 5634; else if OCC = 221 then MSEI = 3665; else if OCC = 222 then MSEI = 5978; else if OCC = 223 then MSEI = 5317; else if OCC = 224 then MSEI = 4523; else if OCC = 225 then MSEI = 5673; else if OCC = 226 then MSEI = 3642; else if OCC = 230 then MSEI = 3680; else if OCC = 231 then MSEI = 4536; else if OCC = 233 then MSEI = 6925; else if OCC = 235 then MSEI = 8014; else if OCC = 240 then MSEI = 8498; else if OCC = 245 then MSEI = 5089; else if OCC = 246 then MSEI = 5310; else if OCC = 260 then MSEI = 6093; else if OCC = 261 then MSEI = 3594; else if OCC = 262 then MSEI = 4168; else if OCC = 264 then MSEI = 3279; else if OCC = 265 then MSEI = 5457; else if OCC = 266 then MSEI = 1643; else if OCC = 270 then MSEI = 5528; else if OCC = 271 then MSEI = 7253; else if OCC = 280 then MSEI = 4398; else if OCC = 281 then MSEI = 5850; else if OCC = 282 then MSEI = 4730; else if OCC = 283 then MSEI = 3006; else if OCC = 284 then MSEI = 3517; else if OCC = 285 then MSEI = 4886; else if OCC = 296 then MSEI = 4435; else if OCC = 301 then MSEI = 3346; else if OCC = 303 then MSEI = 2995; else if OCC = 305 then MSEI = 4079; else if OCC = 310 then MSEI = 2557; else if OCC = 311 then MSEI = 4235; else if OCC = 312 then MSEI = 5416; else if OCC = 313 then MSEI = 3628; else if OCC = 314 then MSEI = 2910; else if OCC = 315 then MSEI = 2911; else if OCC = 320 then MSEI = 4426; else if OCC = 321 then MSEI = 5382; else if OCC = 323 then MSEI = 3705; else if OCC = 325 then MSEI = 2830; else if OCC = 326 then MSEI = 5851; else if OCC = 330 then MSEI = 4371; else if OCC = 331 then MSEI = 2509; else if OCC = 332 then MSEI = 2550; else if OCC = 333 then MSEI = 2046; else if OCC = 334 then MSEI = 2084; else if OCC = 341 then MSEI = 3539; else if OCC = 342 then MSEI = 3692; else if OCC = 343 then MSEI = 3707; else if OCC = 344 then MSEI = 2596; else if OCC = 345 then MSEI = 3215; else if OCC = 350 then MSEI = 3027; else if OCC = 355 then MSEI = 2629; else if OCC = 360 then MSEI = 3341; else if OCC = 361 then MSEI = 2992; else if OCC = 362 then MSEI = 4371; else if OCC = 363 then MSEI = 6433; else if OCC = 364 then MSEI = 3733; else if OCC = 370 then MSEI = 4779; else if OCC = 371 then MSEI = 4421; else if OCC = 372 then MSEI = 4599; else if OCC = 374 then MSEI = 1949; else if OCC = 375 then MSEI = 3724; else if OCC = 376 then MSEI = 5066; else if OCC = 381 then MSEI = 2293; else if OCC = 382 then MSEI = 4085; else if OCC = 383 then MSEI = 2046; else if OCC = 384 then MSEI = 2902; else if OCC = 385 then MSEI = 3398; else if OCC = 390 then MSEI = 3804; else if OCC = 391 then MSEI = 2869; else if OCC = 392 then MSEI = 1915; else if OCC = 394 then MSEI = 4022; else if OCC = 395 then MSEI = 3413; else if OCC = 396 then MSEI = 3275; else if OCC = 401 then MSEI = 1981; else if OCC = 402 then MSEI = 1848; else if OCC = 403 then MSEI = 1935; else if OCC = 404 then MSEI = 2607; else if OCC = 405 then MSEI = 2465; else if OCC = 410 then MSEI = 2215; else if OCC = 411 then MSEI = 2151; else if OCC = 412 then MSEI = 1829; else if OCC = 413 then MSEI = 1904; else if OCC = 415 then MSEI = 2143; else if OCC = 416 then MSEI = 1774; else if OCC = 420 then MSEI = 2165; else if OCC = 421 then MSEI = 2008; else if OCC = 422 then MSEI = 2811; else if OCC = 423 then MSEI = 1834; else if OCC = 424 then MSEI = 2180; else if OCC = 425 then MSEI = 3318; else if OCC = 426 then MSEI = 3312; else if OCC = 430 then MSEI = 3194; else if OCC = 431 then MSEI = 2353; else if OCC = 433 then MSEI = 2894; else if OCC = 434 then MSEI = 3232; else if OCC = 435 then MSEI = 2362; else if OCC = 436 then MSEI = 2116; else if OCC = 440 then MSEI = 2253; else if OCC = 441 then MSEI = 3689; else if OCC = 442 then MSEI = 2232; else if OCC = 443 then MSEI = 1859; else if OCC = 444 then MSEI = 2414; else if OCC = 445 then MSEI = 2453; else if OCC = 446 then MSEI = 2144; else if OCC = 450 then MSEI = 1850; else if OCC = 452 then MSEI = 3028; else if OCC = 453 then MSEI = 2549; else if OCC = 454 then MSEI = 2268; else if OCC = 455 then MSEI = 3842; else if OCC = 456 then MSEI = 3136; else if OCC = 461 then MSEI = 2405; else if OCC = 462 then MSEI = 2027; else if OCC = 470 then MSEI = 2624; else if OCC = 471 then MSEI = 3218; else if OCC = 472 then MSEI = 2052; else if OCC = 473 then MSEI = 1919; else if OCC = 474 then MSEI = 1459; else if OCC = 475 then MSEI = 4870; else if OCC = 480 then MSEI = 1736; else if OCC = 481 then MSEI = 2303; else if OCC = 482 then MSEI = 2250; else if OCC = 483 then MSEI = 1113; else if OCC = 484 then MSEI = 2790; else if OCC = 485 then MSEI = 2754; else if OCC = 486 then MSEI = 1787; else if OCC = 491 then MSEI = 2443; else if OCC = 492 then MSEI = 2496; else if OCC = 495 then MSEI = 2571; else if OCC = 501 then MSEI = 1677; else if OCC = 502 then MSEI = 2917; else if OCC = 503 then MSEI = 1771; else if OCC = 504 then MSEI = 2082; else if OCC = 505 then MSEI = 2995; else if OCC = 506 then MSEI = 3028; else if OCC = 510 then MSEI = 1858; else if OCC = 511 then MSEI = 1538; else if OCC = 512 then MSEI = 2265; else if OCC = 514 then MSEI = 3374; else if OCC = 515 then MSEI = 3766; else if OCC = 516 then MSEI = 3011; else if OCC = 520 then MSEI = 2092; else if OCC = 521 then MSEI = 1792; else if OCC = 522 then MSEI = 2809; else if OCC = 523 then MSEI = 2144; else if OCC = 525 then MSEI = 3465; else if OCC = 530 then MSEI = 2616; else if OCC = 531 then MSEI = 1997; else if OCC = 533 then MSEI = 2516; else if OCC = 534 then MSEI = 1797; else if OCC = 535 then MSEI = 2654; else if OCC = 536 then MSEI = 1966; else if OCC = 540 then MSEI = 2230; else if OCC = 542 then MSEI = 1550; else if OCC = 543 then MSEI = 2372; else if OCC = 545 then MSEI = 2808; else if OCC = 546 then MSEI = 1750; else if OCC = 550 then MSEI = 2906; else if OCC = 551 then MSEI = 1852; else if OCC = 552 then MSEI = 3246; else if OCC = 554 then MSEI = 2685; else if OCC = 560 then MSEI = 2198; else if OCC = 561 then MSEI = 3464; else if OCC = 562 then MSEI = 2427; else if OCC = 563 then MSEI = 1623; else if OCC = 571 then MSEI = 2212; else if OCC = 572 then MSEI = 3900; else if OCC = 575 then MSEI = 2570; else if OCC = 580 then MSEI = 9999; else if OCC = 586 then MSEI = 2615; else if OCC = 601 then MSEI = 2922; else if OCC = 602 then MSEI = 1757; else if OCC = 603 then MSEI = 1791; else if OCC = 604 then MSEI = 1717; else if OCC = 605 then MSEI = 2319; else if OCC = 610 then MSEI = 2505; else if OCC = 611 then MSEI = 1402; else if OCC = 612 then MSEI = 1656; else if OCC = 613 then MSEI = 1874; else if OCC = 614 then MSEI = 2065; else if OCC = 615 then MSEI = 2365; else if OCC = 620 then MSEI = 1533; else if OCC = 621 then MSEI = 1612; else if OCC = 622 then MSEI = 1956; else if OCC = 623 then MSEI = 1627; else if OCC = 624 then MSEI = 1716; else if OCC = 625 then MSEI = 1465; else if OCC = 626 then MSEI = 2504; else if OCC = 630 then MSEI = 1759; else if OCC = 631 then MSEI = 2097; else if OCC = 633 then MSEI = 1848; else if OCC = 634 then MSEI = 1655; else if OCC = 635 then MSEI = 1818; else if OCC = 636 then MSEI = 2196; else if OCC = 640 then MSEI = 1816; else if OCC = 641 then MSEI = 1719; else if OCC = 642 then MSEI = 1869; else if OCC = 643 then MSEI = 1542; else if OCC = 644 then MSEI = 1633; else if OCC = 645 then MSEI = 3190; else if OCC = 650 then MSEI = 1710; else if OCC = 651 then MSEI = 2082; else if OCC = 652 then MSEI = 2128; else if OCC = 653 then MSEI = 2224; else if OCC = 656 then MSEI = 1707; else if OCC = 660 then MSEI = 1416; else if OCC = 661 then MSEI = 1991; else if OCC = 662 then MSEI = 1380; else if OCC = 663 then MSEI = 1478; else if OCC = 664 then MSEI = 1183; else if OCC = 665 then MSEI = 1663; else if OCC = 666 then MSEI = 2032; else if OCC = 670 then MSEI = 1144; else if OCC = 671 then MSEI = 1492; else if OCC = 672 then MSEI = 1180; else if OCC = 673 then MSEI = 1162; else if OCC = 674 then MSEI = 1267; else if OCC = 680 then MSEI = 1976; else if OCC = 681 then MSEI = 1832; else if OCC = 690 then MSEI = 1843; else if OCC = 692 then MSEI = 1800; else if OCC = 694 then MSEI = 1834; else if OCC = 695 then MSEI = 1893; else if OCC = 696 then MSEI = 1849; else if OCC = 701 then MSEI = 2202; else if OCC = 703 then MSEI = 2116; else if OCC = 704 then MSEI = 2460; else if OCC = 705 then MSEI = 2119; else if OCC = 706 then MSEI = 1565; else if OCC = 710 then MSEI = 1646; else if OCC = 711 then MSEI = 1917; else if OCC = 712 then MSEI = 2784; else if OCC = 713 then MSEI = 2386; else if OCC = 714 then MSEI = 1944; else if OCC = 715 then MSEI = 2009; else if OCC = 726 then MSEI = 2020; else if OCC = 740 then MSEI = 1925; else if OCC = 750 then MSEI = 1474; else if OCC = 751 then MSEI = 1590; else if OCC = 752 then MSEI = 1890; else if OCC = 753 then MSEI = 1702; else if OCC = 754 then MSEI = 1503; else if OCC = 755 then MSEI = 1606; else if OCC = 760 then MSEI = 2180; else if OCC = 761 then MSEI = 1536; else if OCC = 762 then MSEI = 1699; else if OCC = 763 then MSEI = 1547; else if OCC = 764 then MSEI = 1428; else if OCC = 770 then MSEI = 1898; else if OCC = 780 then MSEI = 1508; else if OCC = 785 then MSEI = 1484; else if OCC = 796 then MSEI = 1625; else if OCC = 801 then MSEI = 2219; else if OCC = 802 then MSEI = 3192; else if OCC = 806 then MSEI = 2263; else if OCC = 821 then MSEI = 2262; else if OCC = 822 then MSEI = 1379; else if OCC = 823 then MSEI = 1554; else if OCC = 824 then MSEI = 2046; else if OCC = 846 then MSEI = 1429; else if OCC = 901 then MSEI = 1574; else if OCC = 902 then MSEI = 1452; else if OCC = 903 then MSEI = 1580; else if OCC = 910 then MSEI = 2271; else if OCC = 911 then MSEI = 1523; else if OCC = 912 then MSEI = 1806; else if OCC = 913 then MSEI = 1635; else if OCC = 914 then MSEI = 1852; else if OCC = 915 then MSEI = 2238; else if OCC = 916 then MSEI = 1755; else if OCC = 921 then MSEI = 3422; else if OCC = 922 then MSEI = 2711; else if OCC = 923 then MSEI = 3395; else if OCC = 924 then MSEI = 2854; else if OCC = 925 then MSEI = 2109; else if OCC = 926 then MSEI = 2420; else if OCC = 931 then MSEI = 3517; else if OCC = 932 then MSEI = 2489; else if OCC = 933 then MSEI = 2337; else if OCC = 934 then MSEI = 1925; else if OCC = 935 then MSEI = 1819; else if OCC = 940 then MSEI = 3116; else if OCC = 941 then MSEI = 1156; else if OCC = 942 then MSEI = 2440; else if OCC = 943 then MSEI = 1423; else if OCC = 944 then MSEI = 2691; else if OCC = 945 then MSEI = 1318; else if OCC = 950 then MSEI = 3554; else if OCC = 952 then MSEI = 3567; else if OCC = 953 then MSEI = 1697; else if OCC = 954 then MSEI = 3660; else if OCC = 960 then MSEI = 1472; else if OCC = 961 then MSEI = 3273; else if OCC = 962 then MSEI = 2105; else if OCC = 963 then MSEI = 3138; else if OCC = 964 then MSEI = 3707; else if OCC = 965 then MSEI = 3102; else if OCC = 976 then MSEI = 2093; else if OCC = 980 then MSEI = 1309; else if OCC = 981 then MSEI = 1693; else if OCC = 982 then MSEI = 1651; else if OCC = 983 then MSEI = 1931; else if OCC = 984 then MSEI = 1344; else if OCC = 986 then MSEI = 1398; if CENSUS=1 then do; **** Use CENSUS Defn of Allocated Occs ****; if OCC = 196 then MSEI = 5671; *** Prof,Tech Alloc***; else if OCC = 246 then MSEI = 4107; *** Managers Alloc ***; else if OCC = 296 then MSEI = 3329; *** Sales Alloc ***; else if OCC = 396 then MSEI = 2965; *** Clerical Alloc ***; else if OCC = 586 then MSEI = 2249; *** Crafts Alloc ***; else if OCC = 696 then MSEI = 1801; *** Operatives Alloc**; else if OCC = 726 then MSEI = 1794; *** Trans.Equip.Alloc*; else if OCC = 796 then MSEI = 1637; *** Laborers Alloc ***; else if OCC = 806 then MSEI = 2160; *** Farmers Alloc ***; else if OCC = 846 then MSEI = 1441; *** Farm Laborer All**; else if OCC = 976 then MSEI = 1951; *** Service Alloc ***; else if OCC = 986 then MSEI = 1335; *** Pr.HH Alloc ***; end; if MSEI = . and WAVE1 = 1 then do; if OCC = 997 then MSEI = 9997; *Don't know ; else if OCC = 998 then MSEI = 9998; *Inapp ; else if OCC = 999 then MSEI = 9999; *Refused ; else if OCC >= 970 and OCC <= 974 then MSEI = 9999; *Military ; else if OCC = 985 then MSEI = 9998; *Housewife ; else if OCC >= 991 and OCC <= 996 then MSEI = 9998; *Other-Inapp; end; else if MSEI = . and WAVE1 ^= 1 then do; if OCC = 997 then MSEI = 9997; *Don't know ; else if OCC = 998 then MSEI = 9998; *Inapp ; else if OCC = 999 then MSEI = 9999; *Refused ; else if OCC >= 970 and OCC <= 974 then MSEI = 9998; *Military ; else if OCC = 985 then MSEI = 9998; *Housewife ; else if OCC >= 991 and OCC <= 996 then MSEI = 9998; *Other-Inapp; end; RETURN; OCCED: ****************************************************************************** *** 1 9 7 0 O C C U P A T I O N A L E D U C A T I O N S C O R E S *** ******************************************************************************; OCCED = .; if OCC = 001 then OCCED = 0.698; else if OCC = 002 then OCCED = 0.862; else if OCC = 003 then OCCED = 0.725; else if OCC = 004 then OCCED = 0.757; else if OCC = 005 then OCCED = 0.727; else if OCC = 006 then OCCED = 0.855; else if OCC = 010 then OCCED = 0.938; else if OCC = 011 then OCCED = 0.796; else if OCC = 012 then OCCED = 0.808; else if OCC = 013 then OCCED = 0.716; else if OCC = 014 then OCCED = 0.770; else if OCC = 015 then OCCED = 0.853; else if OCC = 020 then OCCED = 0.775; else if OCC = 021 then OCCED = 0.876; else if OCC = 022 then OCCED = 0.797; else if OCC = 023 then OCCED = 0.782; else if OCC = 024 then OCCED = 0.925; else if OCC = 025 then OCCED = 0.511; else if OCC = 026 then OCCED = 0.827; else if OCC = 030 then OCCED = 0.824; else if OCC = 031 then OCCED = 0.967; else if OCC = 032 then OCCED = 0.808; else if OCC = 033 then OCCED = 0.701; else if OCC = 034 then OCCED = 0.913; else if OCC = 035 then OCCED = 0.951; else if OCC = 036 then OCCED = 0.715; else if OCC = 042 then OCCED = 0.676; else if OCC = 043 then OCCED = 0.747; else if OCC = 044 then OCCED = 0.912; else if OCC = 045 then OCCED = 0.862; else if OCC = 051 then OCCED = 0.961; else if OCC = 052 then OCCED = 0.886; else if OCC = 053 then OCCED = 0.948; else if OCC = 054 then OCCED = 0.887; else if OCC = 055 then OCCED = 0.624; else if OCC = 056 then OCCED = 0.607; else if OCC = 061 then OCCED = 0.918; else if OCC = 062 then OCCED = 0.971; else if OCC = 063 then OCCED = 0.932; else if OCC = 064 then OCCED = 0.903; else if OCC = 065 then OCCED = 0.974; else if OCC = 071 then OCCED = 0.930; else if OCC = 072 then OCCED = 0.953; else if OCC = 073 then OCCED = 0.800; else if OCC = 074 then OCCED = 0.472; else if OCC = 075 then OCCED = 0.536; else if OCC = 076 then OCCED = 0.725; else if OCC = 080 then OCCED = 0.668; else if OCC = 081 then OCCED = 0.865; else if OCC = 082 then OCCED = 0.596; else if OCC = 083 then OCCED = 0.398; else if OCC = 084 then OCCED = 0.370; else if OCC = 085 then OCCED = 0.503; else if OCC = 086 then OCCED = 0.840; else if OCC = 090 then OCCED = 0.697; else if OCC = 091 then OCCED = 0.872; else if OCC = 092 then OCCED = 0.886; else if OCC = 093 then OCCED = 0.966; else if OCC = 094 then OCCED = 0.916; else if OCC = 095 then OCCED = 0.893; else if OCC = 096 then OCCED = 0.866; else if OCC = 100 then OCCED = 0.814; else if OCC = 101 then OCCED = 0.642; else if OCC = 102 then OCCED = 0.972; else if OCC = 103 then OCCED = 0.992; else if OCC = 104 then OCCED = 0.984; else if OCC = 105 then OCCED = 0.987; else if OCC = 110 then OCCED = 0.966; else if OCC = 111 then OCCED = 0.947; else if OCC = 112 then OCCED = 0.978; else if OCC = 113 then OCCED = 0.931; else if OCC = 114 then OCCED = 0.993; else if OCC = 115 then OCCED = 0.978; else if OCC = 116 then OCCED = 0.995; else if OCC = 120 then OCCED = 0.991; else if OCC = 121 then OCCED = 0.984; else if OCC = 122 then OCCED = 0.986; else if OCC = 123 then OCCED = 0.956; else if OCC = 124 then OCCED = 0.972; else if OCC = 125 then OCCED = 0.981; else if OCC = 126 then OCCED = 0.987; else if OCC = 130 then OCCED = 0.975; else if OCC = 131 then OCCED = 0.893; else if OCC = 132 then OCCED = 0.987; else if OCC = 133 then OCCED = 0.980; else if OCC = 134 then OCCED = 0.786; else if OCC = 135 then OCCED = 0.979; else if OCC = 140 then OCCED = 0.929; else if OCC = 141 then OCCED = 0.672; else if OCC = 142 then do; *ELEMENTARY SCHOOL TEACHERS ; if (COW = -9) then OCCED = 0.947; *No COW ; else if (COW = 2) then OCCED = 0.954; *Government ; else if (COW>= 1 and COW<= 6) then OCCED = 0.914; *OTHER COW ; else OCCED = 0.947; *OTHER COW ; end; else if OCC = 143 then do; *KINDERGARTEN TEACHERS ; if (COW = -9) then OCCED = 0.730; *No COW ; else if (COW = 2) then OCCED = 0.835; *Government ; else if (COW>= 1 and COW<= 6) then OCCED = 0.644; *OTHER COW ; else OCCED = 0.730; *OTHER COW ; end; else if OCC = 144 then do; *SECONDARY SCHOOL TEACHERS ; if (COW = -9) then OCCED = 0.968; *No COW ; else if (COW = 2) then OCCED = 0.972; *Government ; else if (COW>= 1 and COW<= 6) then OCCED = 0.952; *OTHER COW ; else OCCED = 0.968; *OTHER COW ; end; else if OCC = 145 then OCCED = 0.608; else if OCC = 150 then OCCED = 0.385; else if OCC = 151 then OCCED = 0.503; else if OCC = 152 then OCCED = 0.470; else if OCC = 153 then OCCED = 0.393; else if OCC = 154 then OCCED = 0.374; else if OCC = 155 then OCCED = 0.403; else if OCC = 156 then OCCED = 0.561; else if OCC = 161 then OCCED = 0.350; else if OCC = 162 then OCCED = 0.443; else if OCC = 163 then OCCED = 0.646; else if OCC = 164 then OCCED = 0.348; else if OCC = 165 then OCCED = 0.635; else if OCC = 170 then OCCED = 0.536; else if OCC = 171 then OCCED = 0.256; else if OCC = 172 then OCCED = 0.572; else if OCC = 173 then OCCED = 0.386; else if OCC = 174 then OCCED = 0.923; else if OCC = 175 then OCCED = 0.630; else if OCC = 180 then OCCED = 0.463; else if OCC = 181 then OCCED = 0.803; else if OCC = 182 then OCCED = 0.250; else if OCC = 183 then OCCED = 0.603; else if OCC = 184 then OCCED = 0.766; else if OCC = 185 then OCCED = 0.497; else if OCC = 190 then OCCED = 0.577; else if OCC = 191 then OCCED = 0.372; else if OCC = 192 then OCCED = 0.719; else if OCC = 193 then OCCED = 0.611; else if OCC = 194 then OCCED = 0.578; else if OCC = 195 then OCCED = 0.873; else if OCC = 196 then OCCED = 0.763; else if OCC = 201 then OCCED = 0.339; else if OCC = 202 then OCCED = 0.613; else if OCC = 203 then OCCED = 0.221; else if OCC = 205 then OCCED = 0.399; else if OCC = 210 then OCCED = 0.510; else if OCC = 211 then OCCED = 0.628; else if OCC = 212 then OCCED = 0.637; else if OCC = 213 then OCCED = 0.277; else if OCC = 215 then do; *INSPECTORS, EXC.CONST.,FED AD; if (IND = -9) then OCCED = 0.364; *No IND ; else if (IND>= 907 and IND <= 917) then OCCED = 0.383; *Federal + Post Offi; else if (IND = 927) then OCCED = 0.340; *State ; else if (IND = 937) then OCCED = 0.315; *Local ; else OCCED = 0.364; *OTHER IND ; end; else if OCC = 216 then OCCED = 0.317; else if OCC = 220 then OCCED = 0.449; else if OCC = 221 then OCCED = 0.166; else if OCC = 222 then do; *OFFICIALS & ADMIN., PUBLIC AD; if (IND = -9) then OCCED = 0.530; *No IND ; else if (IND>= 907 and IND <= 917) then OCCED = 0.595; *Federal + Post Offi; else if (IND = 927) then OCCED = 0.553; *State ; else if (IND = 937) then OCCED = 0.415; *Local ; else OCCED = 0.530; *OTHER IND ; end; else if OCC = 223 then OCCED = 0.449; else if OCC = 224 then OCCED = 0.292; else if OCC = 225 then OCCED = 0.496; else if OCC = 226 then OCCED = 0.112; else if OCC = 230 then OCCED = 0.224; else if OCC = 231 then OCCED = 0.342; else if OCC = 233 then OCCED = 0.629; else if OCC = 235 then OCCED = 0.872; else if OCC = 240 then OCCED = 0.929; else if OCC = 245 then do; *MANAGERS N.E.C. ; if (IND=-9) then do; *No IND ; if (COW=-9) then OCCED = 0.399; *No COW ; else if (COW>=4 and COW<=6) then OCCED = 0.251; *Self-Employed; else if (COW< 4 or COW> 6) then OCCED = 0.451; *Salaried ; end; else if (IND <= 058) then do; *OTHER INDUSTRIES ; if (COW=-9) then OCCED = 0.586; *No COW ; else if (COW>=4 and COW<=6) then OCCED = 0.367; *Self-Employed; else if (COW< 4 or COW> 6) then OCCED = 0.627; *Salaried ; end; else if (IND >= 067 and IND <= 078) then do; *Construction ; if (COW=-9) then OCCED = 0.273; *No COW ; else if (COW>=4 and COW<=6) then OCCED = 0.202; *Self-Employed; else if (COW< 4 or COW> 6) then OCCED = 0.315; *Salaried ; end; else if (IND >= 107 and IND <= 267) then do; *Manufacturing-Durable; if (COW=-9) then OCCED = 0.542; *No COW ; else if (COW>=4 and COW<=6) then OCCED = 0.267; *Self-Employed; else if (COW< 4 or COW> 6) then OCCED = 0.570; *Salaried ; end; else if (IND >= 268 and IND <= 399) then do; *Manufacturing-NonDura; if (COW=-9) then OCCED = 0.532; *No COW ; else if (COW>=4 and COW<=6) then OCCED = 0.381; *Self-Employed; else if (COW< 4 or COW> 6) then OCCED = 0.548; *Salaried ; end; else if (IND >= 407 and IND <= 429) then do; *Transportation ; if (COW=-9) then OCCED = 0.369; *No COW ; else if (COW>=4 and COW<=6) then OCCED = 0.232; *Self-Employed; else if (COW< 4 or COW> 6) then OCCED = 0.390; *Salaried ; end; else if (IND >= 447 and IND <= 479) then do; *Comm, Util, Sanitary ; if (COW=-9) then OCCED = 0.463; *No COW ; else if (COW>=4 and COW<=6) then OCCED = 0.236; *Self-Employed; else if (COW< 4 or COW> 6) then OCCED = 0.468; *Salaried ; end; else if (IND >= 499 and IND <= 499) then do; *ALLOC-TRANS,COMM,UTIL; if (COW=-9) then OCCED = 0.407; *No COW ; else if (COW>=4 and COW<=6) then OCCED = 0.233; *Self-Employed; else if (COW< 4 or COW> 6) then OCCED = 0.424; *Salaried ; end; else if (IND >= 507 and IND <= 599) then do; *Wholesale Trade ; if (COW=-9) then OCCED = 0.428; *No COW ; else if (COW>=4 and COW<=6) then OCCED = 0.312; *Self-Employed; else if (COW< 4 or COW> 6) then OCCED = 0.457; *Salaried ; end; else if (IND >= 607 and IND <= 608) then do; *Lumber & Hardware ; if (COW=-9) then OCCED = 0.353; *No COW ; else if (COW>=4 and COW<=6) then OCCED = 0.308; *Self-Employed; else if (COW< 4 or COW> 6) then OCCED = 0.379; *Salaried ; end; else if (IND >= 609 and IND <= 627) then do; *General Merchandise ; if (COW=-9) then OCCED = 0.376; *No COW ; else if (COW>=4 and COW<=6) then OCCED = 0.290; *Self-Employed; else if (COW< 4 or COW> 6) then OCCED = 0.397; *Salaried ; end; else if (IND >= 628 and IND <= 638) then do; *Food Stores ; if (COW=-9) then OCCED = 0.184; *No COW ; else if (COW>=4 and COW<=6) then OCCED = 0.137; *Self-Employed; else if (COW< 4 or COW> 6) then OCCED = 0.222; *Salaried ; end; else if (IND >= 639 and IND <= 647) then do; *Car + Access. Dealers; if (COW=-9) then OCCED = 0.298; *No COW ; else if (COW>=4 and COW<=6) then OCCED = 0.288; *Self-Employed; else if (COW< 4 or COW> 6) then OCCED = 0.300; *Salaried ; end; else if (IND >= 648 and IND <= 648) then do; *Gas Stations ; if (COW=-9) then OCCED = 0.134; *No COW ; else if (COW>=4 and COW<=6) then OCCED = 0.128; *Self-Employed; else if (COW< 4 or COW> 6) then OCCED = 0.144; *Salaried ; end; else if (IND >= 649 and IND <= 649) then do; *Misc. Vehicle Dealers; if (COW=-9) then OCCED = 0.298; *No COW ; else if (COW>=4 and COW<=6) then OCCED = 0.288; *Self-Employed; else if (COW< 4 or COW> 6) then OCCED = 0.300; *Salaried ; end; else if (IND >= 657 and IND <= 658) then do; *Apparel & Shoe Stores; if (COW=-9) then OCCED = 0.373; *No COW ; else if (COW>=4 and COW<=6) then OCCED = 0.331; *Self-Employed; else if (COW< 4 or COW> 6) then OCCED = 0.391; *Salaried ; end; else if (IND >= 667 and IND <= 668) then do; *Furniture & HH Stores; if (COW=-9) then OCCED = 0.364; *No COW ; else if (COW>=4 and COW<=6) then OCCED = 0.317; *Self-Employed; else if (COW< 4 or COW> 6) then OCCED = 0.397; *Salaried ; end; else if (IND >= 669 and IND <= 669) then do; *OTHER RETAIL TRADE ; if (COW=-9) then OCCED = 0.342; *No COW ; else if (COW>=4 and COW<=6) then OCCED = 0.297; *Self-Employed; else if (COW< 4 or COW> 6) then OCCED = 0.377; *Salaried ; end; else if (IND >= 677 and IND <= 698) then do; *OTHER RETAIL TRADE ; if (COW=-9) then OCCED = 0.342; *No COW ; else if (COW>=4 and COW<=6) then OCCED = 0.297; *Self-Employed; else if (COW< 4 or COW> 6) then OCCED = 0.377; *Salaried ; end; else if (IND >= 699 and IND <= 699) then do; *ALLOC-RETAIL TRADE ; if (COW=-9) then OCCED = 0.277; *No COW ; else if (COW>=4 and COW<=6) then OCCED = 0.218; *Self-Employed; else if (COW< 4 or COW> 6) then OCCED = 0.315; *Salaried ; end; else if (IND >= 707 and IND <= 719) then do; *FIRE ; if (COW=-9) then OCCED = 0.614; *No COW ; else if (COW>=4 and COW<=6) then OCCED = 0.603; *Self-Employed; else if (COW< 4 or COW> 6) then OCCED = 0.615; *Salaried ; end; else if (IND >= 727 and IND <= 767) then do; *Business & Repair Svs; if (COW=-9) then OCCED = 0.467; *No COW ; else if (COW>=4 and COW<=6) then OCCED = 0.318; *Self-Employed; else if (COW< 4 or COW> 6) then OCCED = 0.528; *Salaried ; end; else if (IND >= 769 and IND <= 799) then do; *Personal Services ; if (COW=-9) then OCCED = 0.259; *No COW ; else if (COW>=4 and COW<=6) then OCCED = 0.219; *Self-Employed; else if (COW< 4 or COW> 6) then OCCED = 0.290; *Salaried ; end; else if (IND >= 807) then do; *OTHER INDUSTRIES ; if (COW=-9) then OCCED = 0.586; *No COW ; else if (COW>=4 and COW<=6) then OCCED = 0.367; *Self-Employed; else if (COW< 4 or COW> 6) then OCCED = 0.627; *Salaried ; end; end; else if OCC = 246 then OCCED = 0.435; else if OCC = 260 then OCCED = 0.595; else if OCC = 261 then OCCED = 0.170; else if OCC = 262 then OCCED = 0.199; else if OCC = 264 then OCCED = 0.196; else if OCC = 265 then OCCED = 0.504; else if OCC = 266 then OCCED = 0.090; else if OCC = 270 then OCCED = 0.474; else if OCC = 271 then OCCED = 0.743; else if OCC = 280 then OCCED = 0.274; else if OCC = 281 then OCCED = 0.528; else if OCC = 282 then OCCED = 0.404; else if OCC = 283 then do; *SALES CLERKS, RETAIL TRADE ; if (IND = -9) then OCCED = 0.186; *No IND ; else if (IND < 609) then OCCED = 0.225; *OTHER INDUSTRIES ; else if (IND >= 609 and IND <= 627) then OCCED = 0.166; *General Merch. ; else if (IND >= 628 and IND <= 638) then OCCED = 0.110; *Food Stores ; else if (IND >= 657 and IND <= 658) then OCCED = 0.203; *Apparel and Access.; else if (IND = 699) then OCCED = 0.186; *ALLOC-RETAIL TRADE ; else if (IND >= 639) then OCCED = 0.225; *OTHER INDUSTRIES ; end; else if OCC = 284 then do; *SALESMEN, RETAIL TRADE ; if (IND = -9) then OCCED = 0.263; *No IND ; else if (IND < 639) then OCCED = 0.271; *OTHER INDUSTRIES ; else if (IND >= 639 and IND <= 639) then OCCED = 0.254; *Motor Vehicles ; else if (IND >= 647 and IND <= 647) then OCCED = 0.254; *Tire, Battery, Acc.; else if (IND >= 649 and IND <= 649) then OCCED = 0.254; *Misc. Vehicle ; else if (IND = 699) then OCCED = 0.263; *ALLOC-RETAIL TRADE ; else if (IND >= 648) then OCCED = 0.271; *OTHER INDUSTRIES ; end; else if OCC = 285 then OCCED = 0.378; else if OCC = 296 then OCCED = 0.313; else if OCC = 301 then OCCED = 0.240; else if OCC = 303 then OCCED = 0.188; else if OCC = 305 then OCCED = 0.258; else if OCC = 310 then OCCED = 0.136; else if OCC = 311 then OCCED = 0.346; else if OCC = 312 then OCCED = 0.371; else if OCC = 313 then OCCED = 0.347; else if OCC = 314 then OCCED = 0.196; else if OCC = 315 then OCCED = 0.178; else if OCC = 320 then OCCED = 0.396; else if OCC = 321 then OCCED = 0.434; else if OCC = 323 then OCCED = 0.284; else if OCC = 325 then OCCED = 0.195; else if OCC = 326 then OCCED = 0.612; else if OCC = 330 then OCCED = 0.535; else if OCC = 331 then OCCED = 0.199; else if OCC = 332 then OCCED = 0.201; else if OCC = 333 then OCCED = 0.179; else if OCC = 334 then OCCED = 0.150; else if OCC = 341 then OCCED = 0.186; else if OCC = 342 then OCCED = 0.145; else if OCC = 343 then OCCED = 0.351; else if OCC = 344 then OCCED = 0.215; else if OCC = 345 then OCCED = 0.159; else if OCC = 350 then OCCED = 0.235; else if OCC = 355 then OCCED = 0.168; else if OCC = 360 then OCCED = 0.211; else if OCC = 361 then OCCED = 0.235; else if OCC = 362 then OCCED = 0.332; else if OCC = 363 then OCCED = 0.651; else if OCC = 364 then OCCED = 0.269; else if OCC = 370 then OCCED = 0.354; else if OCC = 371 then OCCED = 0.379; else if OCC = 372 then OCCED = 0.307; else if OCC = 374 then OCCED = 0.120; else if OCC = 375 then OCCED = 0.267; else if OCC = 376 then OCCED = 0.265; else if OCC = 381 then OCCED = 0.174; else if OCC = 382 then OCCED = 0.314; else if OCC = 383 then OCCED = 0.179; else if OCC = 384 then OCCED = 0.190; else if OCC = 385 then OCCED = 0.142; else if OCC = 390 then OCCED = 0.373; else if OCC = 391 then OCCED = 0.205; else if OCC = 392 then OCCED = 0.089; else if OCC = 394 then do; *MISC. CLERICAL WORKERS ; if (IND = -9) then OCCED = 0.294; *No IND ; else if (IND < 107) then OCCED = 0.287; *OTHER INDUSTRIES ; else if (IND >= 107 and IND <= 399) then OCCED = 0.313; *Manufacturing ; else if (IND >= 407 and IND <= 499) then OCCED = 0.282; *Trans, Comm, & Util; else if (IND >= 507 and IND <= 699) then OCCED = 0.183; *Whlsle & Retail Tr.; else if (IND >= 707 and IND <= 719) then OCCED = 0.280; *FIRE ; else if (IND >= 727 and IND <= 817) then OCCED = 0.287; *OTHER INDUSTRIES ; else if (IND >= 828 and IND <= 899) then OCCED = 0.425; *Professional Srvcs.; else if (IND >= 907 and IND <= 947) then OCCED = 0.288; *Public Administrat.; else if (IND > 907) then OCCED = 0.287; *OTHER INDUSTRIES ; end; else if OCC = 395 then do; *NOT SPEC. CLERICAL WORKERS ; if (IND = -9) then OCCED = 0.231; *No IND ; else if (IND < 107) then OCCED = 0.219; *OTHER INDUSTRIES ; else if (IND >= 107 and IND <= 399) then OCCED = 0.201; *Manufacturing ; else if (IND >= 407 and IND <= 499) then OCCED = 0.208; *Trans, Comm, & Util; else if (IND >= 507 and IND <= 699) then OCCED = 0.183; *Whlsle & Retail Tr.; else if (IND >= 707 and IND <= 719) then OCCED = 0.221; *FIRE ; else if (IND >= 727 and IND <= 817) then OCCED = 0.219; *OTHER INDUSTRIES ; else if (IND >= 828 and IND <= 899) then OCCED = 0.346; *Professional Srvcs.; else if (IND >= 907 and IND <= 947) then OCCED = 0.257; *Public Administrat.; else if (IND > 907) then OCCED = 0.219; *OTHER INDUSTRIES ; end; else if OCC = 396 then OCCED = 0.249; else if OCC = 401 then OCCED = 0.107; else if OCC = 402 then OCCED = 0.065; else if OCC = 403 then OCCED = 0.061; else if OCC = 404 then OCCED = 0.065; else if OCC = 405 then OCCED = 0.072; else if OCC = 410 then OCCED = 0.056; else if OCC = 411 then OCCED = 0.120; else if OCC = 412 then OCCED = 0.037; else if OCC = 413 then OCCED = 0.077; else if OCC = 415 then OCCED = 0.074; else if OCC = 416 then OCCED = 0.129; else if OCC = 420 then OCCED = 0.076; else if OCC = 421 then OCCED = 0.053; else if OCC = 422 then OCCED = 0.148; else if OCC = 423 then OCCED = 0.137; else if OCC = 424 then OCCED = 0.040; else if OCC = 425 then OCCED = 0.286; else if OCC = 426 then OCCED = 0.228; else if OCC = 430 then OCCED = 0.132; else if OCC = 431 then OCCED = 0.192; else if OCC = 433 then OCCED = 0.093; else if OCC = 434 then OCCED = 0.114; else if OCC = 435 then OCCED = 0.116; else if OCC = 436 then OCCED = 0.047; else if OCC = 440 then OCCED = 0.070; else if OCC = 441 then do; * FOREMEN, N.E.C. ; if (IND = -9) then OCCED = 0.184; *No IND ; else if ( IND <= 058) then OCCED = 0.208; *OTHER INDUSTRIES ; else if (IND >= 067 and IND <= 078) then OCCED = 0.103; *Construction ; else if (IND >= 107 and IND <= 138) then OCCED = 0.161; *OTHER DURABLE ; else if (IND >= 139 and IND <= 169) then OCCED = 0.168; *Metal Industries ; else if (IND >= 177 and IND <= 198) then OCCED = 0.196; *Machinery, Exc. Ele; else if (IND >= 199 and IND <= 209) then OCCED = 0.267; *Elect. Machinery ; else if (IND >= 219 and IND <= 238) then OCCED = 0.236; *Transportation Eqp.; else if (IND >= 239 and IND <= 259) then OCCED = 0.161; *OTHER DURABLE ; else if (IND >= 267 and IND <= 267) then OCCED = 0.198; *ALLOC-DURABLE MFG ; else if (IND >= 268 and IND <= 298) then OCCED = 0.151; *Food and Kindred ; else if (IND >= 328 and IND <= 398) then OCCED = 0.214; *OTHER NONDURABLE ; else if (IND >= 307 and IND <= 327) then OCCED = 0.104; *Textile + Apparel ; else if (IND >= 328 and IND <= 398) then OCCED = 0.214; *OTHER NONDURABLE ; else if (IND >= 399 and IND <= 399) then OCCED = 0.173; *ALLOC-NONDURABLE MF; else if (IND >= 407 and IND <= 429) then OCCED = 0.145; *Transportation ; else if (IND >= 447 and IND <= 479) then OCCED = 0.215; *Comm. + Utilities ; else if (IND >= 499 and IND <= 499) then OCCED = 0.182; *ALLOC-TRANS,COMM,UT; else if (IND >= 507 and IND <= 699) then OCCED = 0.209; *Wlsle & Retail Trad; else if (IND >= 507) then OCCED = 0.208; *OTHER INDUSTRIES ; end; else if OCC = 442 then OCCED = 0.046; else if OCC = 443 then OCCED = 0.084; else if OCC = 444 then OCCED = 0.107; else if OCC = 445 then OCCED = 0.079; else if OCC = 446 then OCCED = 0.059; else if OCC = 450 then OCCED = 0.088; else if OCC = 452 then do; * INSPECTORS, N.E.C. ; if (IND = -9) then OCCED = 0.199; *No IND ; else if ( IND <= 058) then OCCED = 0.219; *OTHER INDUSTRIES ; else if (IND >= 067 and IND <= 078) then OCCED = 0.267; *Construction ; else if (IND >= 107 and IND <= 399) then OCCED = 0.219; *OTHER INDUSTRIES ; else if (IND >= 407 and IND <= 407) then OCCED = 0.077; *Railroad ; else if (IND > 407) then OCCED = 0.219; *OTHER INDUSTRIES ; end; else if OCC = 453 then OCCED = 0.144; else if OCC = 454 then OCCED = 0.048; else if OCC = 455 then OCCED = 0.098; else if OCC = 456 then OCCED = 0.122; else if OCC = 461 then OCCED = 0.087; else if OCC = 462 then OCCED = 0.157; else if OCC = 470 then OCCED = 0.106; else if OCC = 471 then OCCED = 0.163; else if OCC = 472 then OCCED = 0.058; else if OCC = 473 then OCCED = 0.070; else if OCC = 474 then OCCED = 0.075; else if OCC = 475 then OCCED = 0.413; else if OCC = 480 then OCCED = 0.079; else if OCC = 481 then OCCED = 0.073; else if OCC = 482 then OCCED = 0.117; else if OCC = 483 then OCCED = 0.006; else if OCC = 484 then OCCED = 0.203; else if OCC = 485 then OCCED = 0.193; else if OCC = 486 then OCCED = 0.051; else if OCC = 491 then do; * MECHANICS, EXC. AUTO APPREN.; if (IND = -9) then OCCED = 0.144; *No IND ; else if (IND < 107) then OCCED = 0.135; *OTHER INDUSTRIES ; else if (IND >= 107 and IND <= 399) then OCCED = 0.154; *Manufacturing ; else if (IND > 399) then OCCED = 0.135; *OTHER INDUSTRIES ; end; else if OCC = 492 then do; * MISC. MECHANICS & REPAIRMEN ; if (IND = -9) then OCCED = 0.142; *No IND ; else if (IND < 107) then OCCED = 0.140; *OTHER INDUSTRIES ; else if (IND >= 107 and IND <= 399) then OCCED = 0.147; *Manufacturing ; else if (IND > 399) then OCCED = 0.140; *OTHER INDUSTRIES ; end; else if OCC = 495 then do; * NS MECHANICS & REPAIRMEN ; if (IND = -9) then OCCED = 0.137; *No IND ; else if (IND < 107) then OCCED = 0.148; *OTHER INDUSTRIES ; else if (IND >= 107 and IND <= 399) then OCCED = 0.124; *Manufacturing ; else if (IND > 399) then OCCED = 0.148; *OTHER INDUSTRIES ; end; else if OCC = 501 then OCCED = 0.040; else if OCC = 502 then OCCED = 0.061; else if OCC = 503 then OCCED = 0.038; else if OCC = 504 then OCCED = 0.153; else if OCC = 505 then OCCED = 0.248; else if OCC = 506 then OCCED = 0.191; else if OCC = 510 then OCCED = 0.075; else if OCC = 511 then OCCED = 0.094; else if OCC = 512 then OCCED = 0.097; else if OCC = 514 then OCCED = 0.116; else if OCC = 515 then OCCED = 0.170; else if OCC = 516 then OCCED = 0.270; else if OCC = 520 then OCCED = 0.044; else if OCC = 521 then OCCED = 0.060; else if OCC = 522 then OCCED = 0.079; else if OCC = 523 then OCCED = 0.149; else if OCC = 525 then OCCED = 0.167; else if OCC = 530 then OCCED = 0.094; else if OCC = 531 then OCCED = 0.124; else if OCC = 533 then OCCED = 0.045; else if OCC = 534 then OCCED = 0.052; else if OCC = 535 then OCCED = 0.081; else if OCC = 536 then OCCED = 0.148; else if OCC = 540 then OCCED = 0.082; else if OCC = 542 then OCCED = 0.044; else if OCC = 543 then OCCED = 0.149; else if OCC = 545 then OCCED = 0.125; else if OCC = 546 then OCCED = 0.071; else if OCC = 550 then OCCED = 0.082; else if OCC = 551 then OCCED = 0.060; else if OCC = 552 then OCCED = 0.187; else if OCC = 554 then OCCED = 0.151; else if OCC = 560 then OCCED = 0.064; else if OCC = 561 then OCCED = 0.123; else if OCC = 562 then OCCED = 0.187; else if OCC = 563 then OCCED = 0.047; else if OCC = 571 then OCCED = 0.095; else if OCC = 572 then OCCED = 0.095; else if OCC = 575 then OCCED = 0.095; else if OCC = 580 then OCCED = .; else if OCC = 586 then OCCED = 0.111; else if OCC = 601 then OCCED = 0.085; else if OCC = 602 then OCCED = 0.060; else if OCC = 603 then OCCED = 0.058; else if OCC = 604 then OCCED = 0.055; else if OCC = 605 then OCCED = 0.214; else if OCC = 610 then OCCED = 0.094; else if OCC = 611 then OCCED = 0.025; else if OCC = 612 then OCCED = 0.046; else if OCC = 613 then OCCED = 0.089; else if OCC = 614 then OCCED = 0.063; else if OCC = 615 then OCCED = 0.059; else if OCC = 620 then OCCED = 0.051; else if OCC = 621 then OCCED = 0.041; else if OCC = 622 then OCCED = 0.055; else if OCC = 623 then OCCED = 0.103; else if OCC = 624 then OCCED = 0.040; else if OCC = 625 then OCCED = 0.038; else if OCC = 626 then OCCED = 0.043; else if OCC = 630 then OCCED = 0.055; else if OCC = 631 then OCCED = 0.077; else if OCC = 633 then OCCED = 0.038; else if OCC = 634 then OCCED = 0.035; else if OCC = 635 then OCCED = 0.070; else if OCC = 636 then OCCED = 0.063; else if OCC = 640 then do; * MINE OPERATIVES, N.E.C. ; if (IND = -9) then OCCED = 0.073; *No IND ; else if ( IND <= 029) then OCCED = 0.083; *OTHER INDUSTRIES ; else if (IND >= 047 and IND <= 047) then OCCED = 0.083; *OTHER MINING ; else if (IND >= 048 and IND <= 048) then OCCED = 0.027; *Coal Mining ; else if (IND >= 049 and IND <= 049) then OCCED = 0.099; *Oil and Natural Gas; else if (IND >= 057 and IND <= 057) then OCCED = 0.083; *OTHER MINING ; else if (IND >= 058 and IND <= 058) then OCCED = 0.073; *ALLOC-MINING ; else if (IND >= 067) then OCCED = 0.083; *OTHER INDUSTRIES ; end; else if OCC = 641 then OCCED = 0.064; else if OCC = 642 then OCCED = 0.051; else if OCC = 643 then OCCED = 0.046; else if OCC = 644 then OCCED = 0.044; else if OCC = 645 then OCCED = 0.211; else if OCC = 650 then OCCED = 0.051; else if OCC = 651 then OCCED = 0.049; else if OCC = 652 then OCCED = 0.074; else if OCC = 653 then OCCED = 0.064; else if OCC = 656 then OCCED = 0.042; else if OCC = 660 then OCCED = 0.039; else if OCC = 661 then OCCED = 0.082; else if OCC = 662 then OCCED = 0.039; else if OCC = 663 then OCCED = 0.025; else if OCC = 664 then OCCED = 0.021; else if OCC = 665 then OCCED = 0.042; else if OCC = 666 then OCCED = 0.059; else if OCC = 670 then OCCED = 0.017; else if OCC = 671 then OCCED = 0.031; else if OCC = 672 then OCCED = 0.016; else if OCC = 673 then OCCED = 0.021; else if OCC = 674 then OCCED = 0.025; else if OCC = 680 then OCCED = 0.054; else if OCC = 681 then OCCED = 0.039; else if OCC = 690 then do; * MACHINE OPERATIVES, MISC SP ; if (IND = -9) then OCCED = 0.058; *No IND ; else if ( IND <= 058) then OCCED = 0.131; *OTHER INDUSTRIES ; else if (IND >= 067 and IND <= 078) then OCCED = 0.058; *Construction ; else if (IND >= 107 and IND <= 109) then OCCED = 0.054; *Lumber and Wood ; else if (IND >= 118 and IND <= 118) then OCCED = 0.031; *Furniture ; else if (IND >= 119 and IND <= 119) then OCCED = 0.047; *Glass ; else if (IND >= 127 and IND <= 127) then OCCED = 0.050; *Cement, Concrete ; else if (IND >= 128 and IND <= 138) then OCCED = 0.054; *OTHER STONE,CLAY,GL; else if (IND >= 139 and IND <= 139) then OCCED = 0.037; *Blast Furnaces ; else if (IND >= 147 and IND <= 147) then OCCED = 0.031; *Other Primary Metal; else if (IND >= 148 and IND <= 149) then OCCED = 0.053; *OTHER PRIM. NONFERR; else if (IND >= 157 and IND <= 157) then OCCED = 0.027; *Cutlery, Hand Tools; else if (IND >= 158 and IND <= 158) then OCCED = 0.027; *Fabricated Metal ; else if (IND >= 159 and IND <= 167) then OCCED = 0.042; *Screw Machine ; else if (IND >= 168 and IND <= 169) then OCCED = 0.053; *MISC & NS METAL ; else if (IND >= 177 and IND <= 177) then OCCED = 0.056; *OTHER MACHINERY ; else if (IND >= 178 and IND <= 178) then OCCED = 0.044; *Farm Machinery ; else if (IND >= 179 and IND <= 179) then OCCED = 0.093; *Construction Mach. ; else if (IND >= 187 and IND <= 187) then OCCED = 0.068; *Metalworking Mach. ; else if (IND >= 188 and IND <= 189) then OCCED = 0.107; *Office+Comput.Mach.; else if (IND >= 197 and IND <= 198) then OCCED = 0.056; *OTHER MACHINERY ; else if (IND >= 199 and IND <= 199) then OCCED = 0.037; *HH Appliances ; else if (IND >= 207 and IND <= 207) then OCCED = 0.081; *Radio, TV ; else if (IND >= 208 and IND <= 208) then OCCED = 0.049; *Elect. Mach. n.e.c.; else if (IND >= 209 and IND <= 209) then OCCED = 0.094; *NS Elect. Mach. ; else if (IND >= 219 and IND <= 219) then OCCED = 0.048; *Car+Car Equipment ; else if (IND >= 227 and IND <= 227) then OCCED = 0.084; *Aircraft and Parts ; else if (IND >= 228 and IND <= 238) then OCCED = 0.046; *OTHER TRANS. EQUIP.; else if (IND >= 239 and IND <= 239) then OCCED = 0.057; *Scientific Equip. ; else if (IND >= 247 and IND <= 247) then OCCED = 0.057; *Optical+Health Equp; else if (IND >= 248 and IND <= 249) then OCCED = 0.072; *OTHER PROF. EQUIP. ; else if (IND >= 257 and IND <= 257) then OCCED = 0.057; *NS Prof. Equip. ; else if (IND >= 258 and IND <= 258) then OCCED = 0.047; *Ordnance ; else if (IND >= 259 and IND <= 259) then OCCED = 0.055; *Misc. Manuf. Inds. ; else if (IND >= 267 and IND <= 267) then OCCED = 0.052; *ALLOC-DURABLE MFG ; else if (IND >= 268 and IND <= 268) then OCCED = 0.053; *Meat Products ; else if (IND >= 269 and IND <= 269) then OCCED = 0.078; *Dairy Products ; else if (IND >= 278 and IND <= 278) then OCCED = 0.043; *Canning ; else if (IND >= 279 and IND <= 279) then OCCED = 0.057; *OTHER FOOD PRODUCTS; else if (IND >= 287 and IND <= 287) then OCCED = 0.056; *Bakery Products ; else if (IND >= 288 and IND <= 288) then OCCED = 0.057; *OTHER FOOD PRODUCTS; else if (IND >= 289 and IND <= 289) then OCCED = 0.035; *Beverage Industry ; else if (IND >= 297 and IND <= 298) then OCCED = 0.057; *OTHER FOOD PRODUCTS; else if (IND >= 299 and IND <= 299) then OCCED = 0.015; *Tobacco Manuf. ; else if (IND >= 307 and IND <= 318) then OCCED = 0.027; *OTHER TEXTILE ; else if (IND >= 319 and IND <= 319) then OCCED = 0.027; *Apparel and Access.; else if (IND >= 327 and IND <= 327) then OCCED = 0.027; *OTHER TEXTILE ; else if (IND >= 328 and IND <= 328) then OCCED = 0.054; *Pulp,Paper ; else if (IND >= 329 and IND <= 329) then OCCED = 0.052; *Misc.Paper and Pulp; else if (IND >= 337 and IND <= 337) then OCCED = 0.050; *Paperboard Boxes ; else if (IND >= 338 and IND <= 338) then OCCED = 0.145; *Newspapers ; else if (IND >= 339 and IND <= 339) then OCCED = 0.072; *Printing+Publish. ; else if (IND >= 347 and IND <= 347) then OCCED = 0.102; *Industrial Chemical; else if (IND >= 348 and IND <= 348) then OCCED = 0.085; *OTHER CHEMICALS ; else if (IND >= 349 and IND <= 349) then OCCED = 0.058; *Synthetic Fibers ; else if (IND >= 357 and IND <= 357) then OCCED = 0.085; *OTHER CHEMICALS ; else if (IND >= 358 and IND <= 358) then OCCED = 0.033; *Soaps+Cosmetics ; else if (IND >= 359 and IND <= 369) then OCCED = 0.085; *OTHER CHEMICALS ; else if (IND >= 377 and IND <= 378) then OCCED = 0.139; *Petroleum + Coal ; else if (IND >= 379 and IND <= 379) then OCCED = 0.060; *Rubber Products ; else if (IND >= 387 and IND <= 387) then OCCED = 0.046; *Misc. Plastic ; else if (IND >= 388 and IND <= 388) then OCCED = 0.019; *Tanned Leather ; else if (IND >= 389 and IND <= 389) then OCCED = 0.024; *Leather Footwear ; else if (IND >= 397 and IND <= 397) then OCCED = 0.031; *Other Leather Prods; else if (IND >= 398 and IND <= 398) then OCCED = 0.048; *NS Manuf. Ind. ; else if (IND >= 399 and IND <= 399) then OCCED = 0.059; *ALLOC-NONDURABLE MF; else if (IND >= 407 and IND <= 407) then OCCED = 0.054; *Railroads ; else if (IND >= 408 and IND <= 429) then OCCED = 0.099; *OTHER TRANSPORTATIO; else if (IND >= 447 and IND <= 479) then OCCED = 0.117; *Comm, Util, Sanitar; else if (IND >= 499 and IND <= 499) then OCCED = 0.105; *ALLOC-TRANS,COMM,UT; else if (IND >= 507 and IND <= 599) then OCCED = 0.065; *Wholesale Trade ; else if (IND >= 607 and IND <= 699) then OCCED = 0.067; *Retail Trade ; else if (IND >= 707 and IND <= 719) then OCCED = 0.131; *OTHER INDUSTRIES ; else if (IND >= 727 and IND <= 767) then OCCED = 0.074; *Bus. + Repair Srvs ; else if (IND >= 769 and IND <= 899) then OCCED = 0.131; *OTHER INDUSTRIES ; else if (IND >= 907 and IND <= 947) then OCCED = 0.120; *Public Administrat ; else if (IND > 947) then OCCED = 0.131; *OTHER INDUSTRIES ; end; else if OCC = 692 then do; * MACHINE OPERATIVES, NOT SPEC; if (IND = -9) then OCCED = 0.058; *No IND ; else if ( IND <= 058) then OCCED = 0.163; *OTHER INDUSTRIES ; else if (IND >= 067 and IND <= 078) then OCCED = 0.076; *Construction ; else if (IND >= 107 and IND <= 109) then OCCED = 0.043; *Lumber and Wood ; else if (IND >= 118 and IND <= 118) then OCCED = 0.034; *Furniture ; else if (IND >= 119 and IND <= 119) then OCCED = 0.042; *Glass ; else if (IND >= 127 and IND <= 127) then OCCED = 0.031; *Cement, Concrete ; else if (IND >= 128 and IND <= 138) then OCCED = 0.038; *OTHER STONE,CLAY,GL; else if (IND >= 139 and IND <= 139) then OCCED = 0.037; *Blast Furnaces ; else if (IND >= 147 and IND <= 147) then OCCED = 0.036; *Other Primary Metal; else if (IND >= 148 and IND <= 149) then OCCED = 0.049; *OTHER PRIM. NONFERR; else if (IND >= 157 and IND <= 157) then OCCED = 0.040; *Cutlery, Hand Tools; else if (IND >= 158 and IND <= 158) then OCCED = 0.038; *Fabricated Metal ; else if (IND >= 159 and IND <= 167) then OCCED = 0.033; *Screw Machine ; else if (IND >= 168 and IND <= 169) then OCCED = 0.063; *MISC & NS METAL ; else if (IND >= 177 and IND <= 177) then OCCED = 0.070; *OTHER MACHINERY ; else if (IND >= 178 and IND <= 178) then OCCED = 0.059; *Farm Machinery ; else if (IND >= 179 and IND <= 179) then OCCED = 0.084; *Construction Mach. ; else if (IND >= 187 and IND <= 187) then OCCED = 0.056; *Metalworking Mach. ; else if (IND >= 188 and IND <= 189) then OCCED = 0.081; *Office+Comput.Mach.; else if (IND >= 197 and IND <= 198) then OCCED = 0.070; *OTHER MACHINERY ; else if (IND >= 199 and IND <= 199) then OCCED = 0.041; *HH Appliances ; else if (IND >= 207 and IND <= 207) then OCCED = 0.056; *Radio, TV ; else if (IND >= 208 and IND <= 208) then OCCED = 0.052; *Elect. Mach. n.e.c.; else if (IND >= 209 and IND <= 209) then OCCED = 0.080; *NS Elect. Mach. ; else if (IND >= 219 and IND <= 219) then OCCED = 0.046; *Car+Car Equipment ; else if (IND >= 227 and IND <= 227) then OCCED = 0.076; *Aircraft and Parts ; else if (IND >= 228 and IND <= 238) then OCCED = 0.064; *OTHER TRANS. EQUIP.; else if (IND >= 239 and IND <= 239) then OCCED = 0.062; *Scientific Equip. ; else if (IND >= 247 and IND <= 247) then OCCED = 0.062; *Optical+Health Equp; else if (IND >= 248 and IND <= 249) then OCCED = 0.092; *OTHER PROF. EQUIP. ; else if (IND >= 257 and IND <= 257) then OCCED = 0.062; *NS Prof. Equip. ; else if (IND >= 258 and IND <= 258) then OCCED = 0.070; *Ordnance ; else if (IND >= 259 and IND <= 259) then OCCED = 0.038; *Misc. Manuf. Inds. ; else if (IND >= 267 and IND <= 267) then OCCED = 0.053; *ALLOC-DURABLE MFG ; else if (IND >= 268 and IND <= 268) then OCCED = 0.081; *Meat Products ; else if (IND >= 269 and IND <= 269) then OCCED = 0.067; *Dairy Products ; else if (IND >= 278 and IND <= 278) then OCCED = 0.071; *Canning ; else if (IND >= 279 and IND <= 279) then OCCED = 0.051; *OTHER FOOD PRODUCTS; else if (IND >= 287 and IND <= 287) then OCCED = 0.069; *Bakery Products ; else if (IND >= 288 and IND <= 288) then OCCED = 0.051; *OTHER FOOD PRODUCTS; else if (IND >= 289 and IND <= 289) then OCCED = 0.047; *Beverage Industry ; else if (IND >= 297 and IND <= 298) then OCCED = 0.051; *OTHER FOOD PRODUCTS; else if (IND >= 299 and IND <= 299) then OCCED = 0.029; *Tobacco Manuf. ; else if (IND >= 307 and IND <= 318) then OCCED = 0.025; *OTHER TEXTILE ; else if (IND >= 319 and IND <= 319) then OCCED = 0.008; *Apparel and Access.; else if (IND >= 327 and IND <= 327) then OCCED = 0.025; *OTHER TEXTILE ; else if (IND >= 328 and IND <= 328) then OCCED = 0.047; *Pulp,Paper ; else if (IND >= 329 and IND <= 329) then OCCED = 0.041; *Misc.Paper and Pulp; else if (IND >= 337 and IND <= 337) then OCCED = 0.036; *Paperboard Boxes ; else if (IND >= 338 and IND <= 338) then OCCED = 0.032; *Newspapers ; else if (IND >= 339 and IND <= 339) then OCCED = 0.061; *Printing+Publish. ; else if (IND >= 347 and IND <= 347) then OCCED = 0.113; *Industrial Chemical; else if (IND >= 348 and IND <= 348) then OCCED = 0.089; *OTHER CHEMICALS ; else if (IND >= 349 and IND <= 349) then OCCED = 0.106; *Synthetic Fibers ; else if (IND >= 357 and IND <= 357) then OCCED = 0.089; *OTHER CHEMICALS ; else if (IND >= 358 and IND <= 358) then OCCED = 0.027; *Soaps+Cosmetics ; else if (IND >= 359 and IND <= 369) then OCCED = 0.089; *OTHER CHEMICALS ; else if (IND >= 377 and IND <= 378) then OCCED = 0.130; *Petroleum + Coal ; else if (IND >= 379 and IND <= 379) then OCCED = 0.055; *Rubber Products ; else if (IND >= 387 and IND <= 387) then OCCED = 0.040; *Misc. Plastic ; else if (IND >= 388 and IND <= 388) then OCCED = 0.025; *Tanned Leather ; else if (IND >= 389 and IND <= 389) then OCCED = 0.015; *Leather Footwear ; else if (IND >= 397 and IND <= 397) then OCCED = 0.012; *Other Leather Prods; else if (IND >= 398 and IND <= 398) then OCCED = 0.045; *NS Manuf. Ind. ; else if (IND >= 399 and IND <= 399) then OCCED = 0.060; *ALLOC-NONDURABLE MF; else if (IND >= 407 and IND <= 407) then OCCED = 0.035; *Railroads ; else if (IND >= 408 and IND <= 429) then OCCED = 0.027; *OTHER TRANSPORTATIO; else if (IND >= 447 and IND <= 479) then OCCED = 0.080; *Comm, Util, Sanitar; else if (IND >= 499 and IND <= 499) then OCCED = 0.055; *ALLOC-TRANS,COMM,UT; else if (IND >= 507 and IND <= 599) then OCCED = 0.066; *Wholesale Trade ; else if (IND >= 607 and IND <= 699) then OCCED = 0.072; *Retail Trade ; else if (IND >= 707 and IND <= 719) then OCCED = 0.163; *OTHER INDUSTRIES ; else if (IND >= 727 and IND <= 767) then OCCED = 0.094; *Bus. + Repair Srvs ; else if (IND >= 769 and IND <= 899) then OCCED = 0.163; *OTHER INDUSTRIES ; else if (IND >= 907 and IND <= 947) then OCCED = 0.078; *Public Administrat ; else if (IND > 947) then OCCED = 0.163; *OTHER INDUSTRIES ; end; else if OCC = 694 then do; * MISCELLANEOUS OPERATIVES ; if (IND = -9) then OCCED = 0.075; *No IND ; else if ( IND <= 058) then OCCED = 0.283; *OTHER INDUSTRIES ; else if (IND >= 067 and IND <= 078) then OCCED = 0.059; *Construction ; else if (IND >= 107 and IND <= 109) then OCCED = 0.042; *Lumber and Wood ; else if (IND >= 118 and IND <= 118) then OCCED = 0.042; *Furniture ; else if (IND >= 119 and IND <= 119) then OCCED = 0.055; *Glass ; else if (IND >= 127 and IND <= 127) then OCCED = 0.066; *Cement, Concrete ; else if (IND >= 128 and IND <= 138) then OCCED = 0.032; *OTHER STONE,CLAY,GL; else if (IND >= 139 and IND <= 139) then OCCED = 0.051; *Blast Furnaces ; else if (IND >= 147 and IND <= 147) then OCCED = 0.038; *Other Primary Metal; else if (IND >= 148 and IND <= 149) then OCCED = 0.046; *OTHER PRIM. NONFERR; else if (IND >= 157 and IND <= 157) then OCCED = 0.104; *Cutlery, Hand Tools; else if (IND >= 158 and IND <= 158) then OCCED = 0.060; *Fabricated Metal ; else if (IND >= 159 and IND <= 167) then OCCED = 0.044; *Screw Machine ; else if (IND >= 168 and IND <= 169) then OCCED = 0.045; *MISC & NS METAL ; else if (IND >= 177 and IND <= 177) then OCCED = 0.063; *OTHER MACHINERY ; else if (IND >= 178 and IND <= 178) then OCCED = 0.067; *Farm Machinery ; else if (IND >= 179 and IND <= 179) then OCCED = 0.073; *Construction Mach. ; else if (IND >= 187 and IND <= 187) then OCCED = 0.064; *Metalworking Mach. ; else if (IND >= 188 and IND <= 189) then OCCED = 0.066; *Office+Comput.Mach.; else if (IND >= 197 and IND <= 198) then OCCED = 0.063; *OTHER MACHINERY ; else if (IND >= 199 and IND <= 199) then OCCED = 0.031; *HH Appliances ; else if (IND >= 207 and IND <= 207) then OCCED = 0.066; *Radio, TV ; else if (IND >= 208 and IND <= 208) then OCCED = 0.072; *Elect. Mach. n.e.c.; else if (IND >= 209 and IND <= 209) then OCCED = 0.100; *NS Elect. Mach. ; else if (IND >= 219 and IND <= 219) then OCCED = 0.059; *Car+Car Equipment ; else if (IND >= 227 and IND <= 227) then OCCED = 0.113; *Aircraft and Parts ; else if (IND >= 228 and IND <= 238) then OCCED = 0.051; *OTHER TRANS. EQUIP.; else if (IND >= 239 and IND <= 239) then OCCED = 0.075; *Scientific Equip. ; else if (IND >= 247 and IND <= 247) then OCCED = 0.075; *Optical+Health Equp; else if (IND >= 248 and IND <= 249) then OCCED = 0.064; *OTHER PROF. EQUIP. ; else if (IND >= 257 and IND <= 257) then OCCED = 0.075; *NS Prof. Equip. ; else if (IND >= 258 and IND <= 258) then OCCED = 0.089; *Ordnance ; else if (IND >= 259 and IND <= 259) then OCCED = 0.060; *Misc. Manuf. Inds. ; else if (IND >= 267 and IND <= 267) then OCCED = 0.059; *ALLOC-DURABLE MFG ; else if (IND >= 268 and IND <= 268) then OCCED = 0.031; *Meat Products ; else if (IND >= 269 and IND <= 269) then OCCED = 0.020; *Dairy Products ; else if (IND >= 278 and IND <= 278) then OCCED = 0.039; *Canning ; else if (IND >= 279 and IND <= 279) then OCCED = 0.067; *OTHER FOOD PRODUCTS; else if (IND >= 287 and IND <= 287) then OCCED = 0.079; *Bakery Products ; else if (IND >= 288 and IND <= 288) then OCCED = 0.067; *OTHER FOOD PRODUCTS; else if (IND >= 289 and IND <= 289) then OCCED = 0.048; *Beverage Industry ; else if (IND >= 297 and IND <= 298) then OCCED = 0.067; *OTHER FOOD PRODUCTS; else if (IND >= 299 and IND <= 299) then OCCED = 0.045; *Tobacco Manuf. ; else if (IND >= 307 and IND <= 318) then OCCED = 0.049; *OTHER TEXTILE ; else if (IND >= 319 and IND <= 319) then OCCED = 0.042; *Apparel and Access.; else if (IND >= 327 and IND <= 327) then OCCED = 0.049; *OTHER TEXTILE ; else if (IND >= 328 and IND <= 328) then OCCED = 0.055; *Pulp,Paper ; else if (IND >= 329 and IND <= 329) then OCCED = 0.030; *Misc.Paper and Pulp; else if (IND >= 337 and IND <= 337) then OCCED = 0.049; *Paperboard Boxes ; else if (IND >= 338 and IND <= 338) then OCCED = 0.133; *Newspapers ; else if (IND >= 339 and IND <= 339) then OCCED = 0.106; *Printing+Publish. ; else if (IND >= 347 and IND <= 347) then OCCED = 0.095; *Industrial Chemical; else if (IND >= 348 and IND <= 348) then OCCED = 0.079; *OTHER CHEMICALS ; else if (IND >= 349 and IND <= 349) then OCCED = 0.084; *Synthetic Fibers ; else if (IND >= 357 and IND <= 357) then OCCED = 0.079; *OTHER CHEMICALS ; else if (IND >= 358 and IND <= 358) then OCCED = 0.051; *Soaps+Cosmetics ; else if (IND >= 359 and IND <= 369) then OCCED = 0.079; *OTHER CHEMICALS ; else if (IND >= 377 and IND <= 378) then OCCED = 0.116; *Petroleum + Coal ; else if (IND >= 379 and IND <= 379) then OCCED = 0.060; *Rubber Products ; else if (IND >= 387 and IND <= 387) then OCCED = 0.062; *Misc. Plastic ; else if (IND >= 388 and IND <= 388) then OCCED = 0.051; *Tanned Leather ; else if (IND >= 389 and IND <= 389) then OCCED = 0.022; *Leather Footwear ; else if (IND >= 397 and IND <= 397) then OCCED = 0.047; *Other Leather Prods; else if (IND >= 398 and IND <= 398) then OCCED = 0.096; *NS Manuf. Ind. ; else if (IND >= 399 and IND <= 399) then OCCED = 0.058; *ALLOC-NONDURABLE MF; else if (IND >= 407 and IND <= 407) then OCCED = 0.051; *Railroads ; else if (IND >= 408 and IND <= 429) then OCCED = 0.156; *OTHER TRANSPORTATIO; else if (IND >= 447 and IND <= 479) then OCCED = 0.107; *Comm, Util, Sanitar; else if (IND >= 499 and IND <= 499) then OCCED = 0.124; *ALLOC-TRANS,COMM,UT; else if (IND >= 507 and IND <= 599) then OCCED = 0.061; *Wholesale Trade ; else if (IND >= 607 and IND <= 699) then OCCED = 0.070; *Retail Trade ; else if (IND >= 707 and IND <= 719) then OCCED = 0.283; *OTHER INDUSTRIES ; else if (IND >= 727 and IND <= 767) then OCCED = 0.102; *Bus. + Repair Srvs ; else if (IND >= 769 and IND <= 899) then OCCED = 0.283; *OTHER INDUSTRIES ; else if (IND >= 907 and IND <= 947) then OCCED = 0.104; *Public Administrat ; else if (IND > 947) then OCCED = 0.283; *OTHER INDUSTRIES ; end; else if OCC = 695 then do; * NOT SPECIFIED OPERATIVES ; if (IND = -9) then OCCED = 0.064; *No IND ; else if ( IND <= 058) then OCCED = 0.115; *OTHER INDUSTRIES ; else if (IND >= 067 and IND <= 078) then OCCED = 0.075; *Construction ; else if (IND >= 107 and IND <= 109) then OCCED = 0.045; *Lumber and Wood ; else if (IND >= 118 and IND <= 118) then OCCED = 0.034; *Furniture ; else if (IND >= 119 and IND <= 119) then OCCED = 0.060; *Glass ; else if (IND >= 127 and IND <= 127) then OCCED = 0.042; *Cement, Concrete ; else if (IND >= 128 and IND <= 138) then OCCED = 0.041; *OTHER STONE,CLAY,GL; else if (IND >= 139 and IND <= 139) then OCCED = 0.053; *Blast Furnaces ; else if (IND >= 147 and IND <= 147) then OCCED = 0.048; *Other Primary Metal; else if (IND >= 148 and IND <= 149) then OCCED = 0.045; *OTHER PRIM. NONFERR; else if (IND >= 157 and IND <= 157) then OCCED = 0.023; *Cutlery, Hand Tools; else if (IND >= 158 and IND <= 158) then OCCED = 0.035; *Fabricated Metal ; else if (IND >= 159 and IND <= 167) then OCCED = 0.019; *Screw Machine ; else if (IND >= 168 and IND <= 169) then OCCED = 0.038; *MISC & NS METAL ; else if (IND >= 177 and IND <= 177) then OCCED = 0.092; *OTHER MACHINERY ; else if (IND >= 178 and IND <= 178) then OCCED = 0.084; *Farm Machinery ; else if (IND >= 179 and IND <= 179) then OCCED = 0.052; *Construction Mach. ; else if (IND >= 187 and IND <= 187) then OCCED = 0.057; *Metalworking Mach. ; else if (IND >= 188 and IND <= 189) then OCCED = 0.109; *Office+Comput.Mach.; else if (IND >= 197 and IND <= 198) then OCCED = 0.092; *OTHER MACHINERY ; else if (IND >= 199 and IND <= 199) then OCCED = 0.044; *HH Appliances ; else if (IND >= 207 and IND <= 207) then OCCED = 0.053; *Radio, TV ; else if (IND >= 208 and IND <= 208) then OCCED = 0.052; *Elect. Mach. n.e.c.; else if (IND >= 209 and IND <= 209) then OCCED = 0.098; *NS Elect. Mach. ; else if (IND >= 219 and IND <= 219) then OCCED = 0.069; *Car+Car Equipment ; else if (IND >= 227 and IND <= 227) then OCCED = 0.094; *Aircraft and Parts ; else if (IND >= 228 and IND <= 238) then OCCED = 0.084; *OTHER TRANS. EQUIP.; else if (IND >= 239 and IND <= 239) then OCCED = 0.076; *Scientific Equip. ; else if (IND >= 247 and IND <= 247) then OCCED = 0.076; *Optical+Health Equp; else if (IND >= 248 and IND <= 249) then OCCED = 0.066; *OTHER PROF. EQUIP. ; else if (IND >= 257 and IND <= 257) then OCCED = 0.076; *NS Prof. Equip. ; else if (IND >= 258 and IND <= 258) then OCCED = 0.086; *Ordnance ; else if (IND >= 259 and IND <= 259) then OCCED = 0.057; *Misc. Manuf. Inds. ; else if (IND >= 267 and IND <= 267) then OCCED = 0.058; *ALLOC-DURABLE MFG ; else if (IND >= 268 and IND <= 268) then OCCED = 0.046; *Meat Products ; else if (IND >= 269 and IND <= 269) then OCCED = 0.142; *Dairy Products ; else if (IND >= 278 and IND <= 278) then OCCED = 0.019; *Canning ; else if (IND >= 279 and IND <= 279) then OCCED = 0.056; *OTHER FOOD PRODUCTS; else if (IND >= 287 and IND <= 287) then OCCED = 0.057; *Bakery Products ; else if (IND >= 288 and IND <= 288) then OCCED = 0.056; *OTHER FOOD PRODUCTS; else if (IND >= 289 and IND <= 289) then OCCED = 0.084; *Beverage Industry ; else if (IND >= 297 and IND <= 298) then OCCED = 0.056; *OTHER FOOD PRODUCTS; else if (IND >= 299 and IND <= 299) then OCCED = 0.015; *Tobacco Manuf. ; else if (IND >= 307 and IND <= 318) then OCCED = 0.017; *OTHER TEXTILE ; else if (IND >= 319 and IND <= 319) then OCCED = 0.027; *Apparel and Access.; else if (IND >= 327 and IND <= 327) then OCCED = 0.017; *OTHER TEXTILE ; else if (IND >= 328 and IND <= 328) then OCCED = 0.096; *Pulp,Paper ; else if (IND >= 329 and IND <= 329) then OCCED = 0.054; *Misc.Paper and Pulp; else if (IND >= 337 and IND <= 337) then OCCED = 0.053; *Paperboard Boxes ; else if (IND >= 338 and IND <= 338) then OCCED = 0.198; *Newspapers ; else if (IND >= 339 and IND <= 339) then OCCED = 0.045; *Printing+Publish. ; else if (IND >= 347 and IND <= 347) then OCCED = 0.112; *Industrial Chemical; else if (IND >= 348 and IND <= 348) then OCCED = 0.133; *OTHER CHEMICALS ; else if (IND >= 349 and IND <= 349) then OCCED = 0.071; *Synthetic Fibers ; else if (IND >= 357 and IND <= 357) then OCCED = 0.133; *OTHER CHEMICALS ; else if (IND >= 358 and IND <= 358) then OCCED = 0.044; *Soaps+Cosmetics ; else if (IND >= 359 and IND <= 369) then OCCED = 0.133; *OTHER CHEMICALS ; else if (IND >= 377 and IND <= 378) then OCCED = 0.144; *Petroleum + Coal ; else if (IND >= 379 and IND <= 379) then OCCED = 0.062; *Rubber Products ; else if (IND >= 387 and IND <= 387) then OCCED = 0.041; *Misc. Plastic ; else if (IND >= 388 and IND <= 388) then OCCED = 0.019; *Tanned Leather ; else if (IND >= 389 and IND <= 389) then OCCED = 0.042; *Leather Footwear ; else if (IND >= 397 and IND <= 397) then OCCED = 0.049; *Other Leather Prods; else if (IND >= 398 and IND <= 398) then OCCED = 0.048; *NS Manuf. Ind. ; else if (IND >= 399 and IND <= 399) then OCCED = 0.064; *ALLOC-NONDURABLE MF; else if (IND >= 407 and IND <= 407) then OCCED = 0.066; *Railroads ; else if (IND >= 408 and IND <= 429) then OCCED = 0.098; *OTHER TRANSPORTATIO; else if (IND >= 447 and IND <= 479) then OCCED = 0.139; *Comm, Util, Sanitar; else if (IND >= 499 and IND <= 499) then OCCED = 0.093; *ALLOC-TRANS,COMM,UT; else if (IND >= 507 and IND <= 599) then OCCED = 0.081; *Wholesale Trade ; else if (IND >= 607 and IND <= 699) then OCCED = 0.077; *Retail Trade ; else if (IND >= 707 and IND <= 719) then OCCED = 0.115; *OTHER INDUSTRIES ; else if (IND >= 727 and IND <= 767) then OCCED = 0.103; *Bus. + Repair Srvs ; else if (IND >= 769 and IND <= 899) then OCCED = 0.115; *OTHER INDUSTRIES ; else if (IND >= 907 and IND <= 947) then OCCED = 0.105; *Public Administrat ; else if (IND > 947) then OCCED = 0.115; *OTHER INDUSTRIES ; end; else if OCC = 696 then OCCED = 0.058; else if OCC = 701 then OCCED = 0.086; else if OCC = 703 then OCCED = 0.095; else if OCC = 704 then OCCED = 0.101; else if OCC = 705 then OCCED = 0.108; else if OCC = 706 then OCCED = 0.047; else if OCC = 710 then OCCED = 0.040; else if OCC = 711 then OCCED = 0.159; else if OCC = 712 then OCCED = 0.096; else if OCC = 713 then OCCED = 0.111; else if OCC = 714 then OCCED = 0.130; else if OCC = 715 then do; * TRUCK DRIVERS ; if (IND = -9) then OCCED = 0.051; *No IND ; else if ( IND <= 409) then OCCED = 0.051; *OTHER INDUSTRIES ; else if (IND >= 417 and IND <= 417) then OCCED = 0.052; *Trucking Service ; else if (IND >= 418) then OCCED = 0.051; *OTHER INDUSTRIES ; end; else if OCC = 726 then OCCED = 0.074; else if OCC = 740 then OCCED = 0.161; else if OCC = 750 then OCCED = 0.075; else if OCC = 751 then OCCED = 0.062; else if OCC = 752 then OCCED = 0.069; else if OCC = 753 then OCCED = 0.084; else if OCC = 754 then OCCED = 0.033; else if OCC = 755 then OCCED = 0.088; else if OCC = 760 then OCCED = 0.067; else if OCC = 761 then OCCED = 0.045; else if OCC = 762 then OCCED = 0.111; else if OCC = 763 then OCCED = 0.044; else if OCC = 764 then OCCED = 0.059; else if OCC = 770 then OCCED = 0.123; else if OCC = 780 then do; * MISCELLANEOUS LABORERS ; if (IND = -9) then OCCED = 0.051; *No IND ; else if ( IND <= 078) then OCCED = 0.077; *OTHER INDUSTRIES ; else if (IND >= 107 and IND <= 109) then OCCED = 0.042; *Lumber and Wood ; else if (IND >= 118 and IND <= 118) then OCCED = 0.057; *Furniture ; else if (IND >= 119 and IND <= 119) then OCCED = 0.028; *OTHER STONE,CLAY,GL; else if (IND >= 127 and IND <= 127) then OCCED = 0.013; *Cement, Concrete ; else if (IND >= 128 and IND <= 128) then OCCED = 0.017; *Structural clay ; else if (IND >= 137 and IND <= 138) then OCCED = 0.028; *OTHER STONE,CLAY,GL; else if (IND >= 139 and IND <= 139) then OCCED = 0.044; *Blast Furnaces ; else if (IND >= 147 and IND <= 147) then OCCED = 0.041; *Other Primary Metal; else if (IND >= 148 and IND <= 149) then OCCED = 0.088; *OTHER PRIM. NONFERR; else if (IND >= 157 and IND <= 157) then OCCED = 0.021; *OTHER FABRIC. METAL; else if (IND >= 158 and IND <= 158) then OCCED = 0.074; *Fabricated Metal ; else if (IND >= 159 and IND <= 169) then OCCED = 0.021; *OTHER FABRIC. METAL; else if (IND >= 177 and IND <= 198) then OCCED = 0.038; *MACHINERY, EXC. ELE; else if (IND >= 199 and IND <= 209) then OCCED = 0.050; *ELECTRICAL MACHINES; else if (IND >= 219 and IND <= 219) then OCCED = 0.058; *Car+Car Equipment ; else if (IND >= 227 and IND <= 227) then OCCED = 0.000; *OTHER TRANS. EQUIP.; else if (IND >= 228 and IND <= 228) then OCCED = 0.124; *Ship and Boat Build; else if (IND >= 229 and IND <= 238) then OCCED = 0.000; *OTHER TRANS. EQUIP.; else if (IND >= 239 and IND <= 257) then OCCED = 0.130; *PROF+PHOTO EQUIP. ; else if (IND >= 258 and IND <= 258) then OCCED = 0.068; *Ordnance ; else if (IND >= 259 and IND <= 259) then OCCED = 0.051; *Misc. Manuf. Inds. ; else if (IND >= 267 and IND <= 267) then OCCED = 0.046; *ALLOC-DURABLE MFG ; else if (IND >= 268 and IND <= 268) then OCCED = 0.046; *Meat Products ; else if (IND >= 269 and IND <= 269) then OCCED = 0.066; *Dairy Products ; else if (IND >= 278 and IND <= 278) then OCCED = 0.060; *Canning ; else if (IND >= 279 and IND <= 279) then OCCED = 0.051; *Grain-mill products; else if (IND >= 287 and IND <= 288) then OCCED = 0.016; *OTHER FOOD PRODUCTS; else if (IND >= 289 and IND <= 289) then OCCED = 0.088; *Beverage Industry ; else if (IND >= 297 and IND <= 298) then OCCED = 0.016; *OTHER FOOD PRODUCTS; else if (IND >= 299 and IND <= 299) then OCCED = 0.000; *Tobacco Manuf. ; else if (IND >= 307 and IND <= 309) then OCCED = 0.021; *OTHER TEXTILE ; else if (IND >= 317 and IND <= 317) then OCCED = 0.000; *Yarn, Thread,Fabric; else if (IND >= 318 and IND <= 318) then OCCED = 0.021; *OTHER TEXTILE ; else if (IND >= 319 and IND <= 327) then OCCED = 0.000; *APPAREL+FAB.TEXTILE; else if (IND >= 328 and IND <= 328) then OCCED = 0.025; *Pulp,Paper ; else if (IND >= 329 and IND <= 337) then OCCED = 0.045; *OTHER PAPER+PULP ; else if (IND >= 338 and IND <= 339) then OCCED = 0.087; *PRINTING+PUBLISHING; else if (IND >= 347 and IND <= 369) then OCCED = 0.032; *CHEMICAL AND ALLIED; else if (IND >= 377 and IND <= 378) then OCCED = 0.049; *PETROLEUM + COAL ; else if (IND >= 379 and IND <= 387) then OCCED = 0.070; *RUBBER+PLASTIC ; else if (IND >= 388 and IND <= 397) then OCCED = 0.055; *LEATHER PRODUCTS ; else if (IND >= 398 and IND <= 398) then OCCED = 0.208; *NS Manuf. Ind. ; else if (IND >= 399 and IND <= 399) then OCCED = 0.042; *ALLOC-NONDURABLE MF; else if (IND >= 407 and IND <= 407) then OCCED = 0.025; *Railroads ; else if (IND >= 408 and IND <= 429) then OCCED = 0.056; *OTHER TRANSPORTATIO; else if (IND >= 447 and IND <= 479) then OCCED = 0.050; *Comm, Util, Sanitar; else if (IND >= 499 and IND <= 499) then OCCED = 0.037; *ALLOC-TRANS,COMM,UT; else if (IND >= 507 and IND <= 599) then OCCED = 0.066; *Wholesale Trade ; else if (IND >= 607 and IND <= 699) then OCCED = 0.072; *Retail Trade ; else if (IND >= 707 and IND <= 719) then OCCED = 0.077; *OTHER INDUSTRIES ; else if (IND >= 727 and IND <= 767) then OCCED = 0.116; *Bus. + Repair Srvs ; else if (IND >= 769 and IND <= 769) then OCCED = 0.042; *Private Households ; else if (IND >= 777 and IND <= 798) then OCCED = 0.027; *OTHER SERVICE ; else if (IND >= 799 and IND <= 799) then OCCED = 0.033; *ALLOC-SERVICE ; else if (IND >= 807 and IND <= 899) then OCCED = 0.077; *OTHER INDUSTRIES ; else if (IND >= 907 and IND <= 947) then OCCED = 0.087; *Public Administrat ; else if (IND > 947) then OCCED = 0.077; *OTHER INDUSTRIES ; end; else if OCC = 785 then do; * NOT SPECIFIED LABORERS ; if (IND = -9) then OCCED = 0.070; *No IND ; else if ( IND <= 078) then OCCED = 0.127; *OTHER INDUSTRIES ; else if (IND >= 107 and IND <= 109) then OCCED = 0.055; *Lumber and Wood ; else if (IND >= 118 and IND <= 118) then OCCED = 0.039; *Furniture ; else if (IND >= 119 and IND <= 119) then OCCED = 0.078; *OTHER STONE,CLAY,GL; else if (IND >= 127 and IND <= 127) then OCCED = 0.034; *Cement, Concrete ; else if (IND >= 128 and IND <= 128) then OCCED = 0.052; *Structural clay ; else if (IND >= 137 and IND <= 138) then OCCED = 0.078; *OTHER STONE,CLAY,GL; else if (IND >= 139 and IND <= 139) then OCCED = 0.071; *Blast Furnaces ; else if (IND >= 147 and IND <= 147) then OCCED = 0.043; *Other Primary Metal; else if (IND >= 148 and IND <= 149) then OCCED = 0.093; *OTHER PRIM. NONFERR; else if (IND >= 157 and IND <= 157) then OCCED = 0.055; *OTHER FABRIC. METAL; else if (IND >= 158 and IND <= 158) then OCCED = 0.068; *Fabricated Metal ; else if (IND >= 159 and IND <= 169) then OCCED = 0.055; *OTHER FABRIC. METAL; else if (IND >= 177 and IND <= 198) then OCCED = 0.074; *MACHINERY, EXC. ELE; else if (IND >= 199 and IND <= 209) then OCCED = 0.045; *ELECTRICAL MACHINES; else if (IND >= 219 and IND <= 219) then OCCED = 0.051; *Car+Car Equipment ; else if (IND >= 227 and IND <= 227) then OCCED = 0.061; *OTHER TRANS. EQUIP.; else if (IND >= 228 and IND <= 228) then OCCED = 0.072; *Ship and Boat Build; else if (IND >= 229 and IND <= 238) then OCCED = 0.061; *OTHER TRANS. EQUIP.; else if (IND >= 239 and IND <= 257) then OCCED = 0.063; *PROF+PHOTO EQUIP. ; else if (IND >= 258 and IND <= 258) then OCCED = 0.019; *Ordnance ; else if (IND >= 259 and IND <= 259) then OCCED = 0.050; *Misc. Manuf. Inds. ; else if (IND >= 267 and IND <= 267) then OCCED = 0.059; *ALLOC-DURABLE MFG ; else if (IND >= 268 and IND <= 268) then OCCED = 0.047; *Meat Products ; else if (IND >= 269 and IND <= 269) then OCCED = 0.072; *Dairy Products ; else if (IND >= 278 and IND <= 278) then OCCED = 0.046; *Canning ; else if (IND >= 279 and IND <= 279) then OCCED = 0.056; *Grain-mill products; else if (IND >= 287 and IND <= 288) then OCCED = 0.047; *OTHER FOOD PRODUCTS; else if (IND >= 289 and IND <= 289) then OCCED = 0.085; *Beverage Industry ; else if (IND >= 297 and IND <= 298) then OCCED = 0.047; *OTHER FOOD PRODUCTS; else if (IND >= 299 and IND <= 299) then OCCED = 0.031; *Tobacco Manuf. ; else if (IND >= 307 and IND <= 309) then OCCED = 0.020; *OTHER TEXTILE ; else if (IND >= 317 and IND <= 317) then OCCED = 0.025; *Yarn, Thread,Fabric; else if (IND >= 318 and IND <= 318) then OCCED = 0.020; *OTHER TEXTILE ; else if (IND >= 319 and IND <= 327) then OCCED = 0.063; *APPAREL+FAB.TEXTILE; else if (IND >= 328 and IND <= 328) then OCCED = 0.082; *Pulp,Paper ; else if (IND >= 329 and IND <= 337) then OCCED = 0.044; *OTHER PAPER+PULP ; else if (IND >= 338 and IND <= 339) then OCCED = 0.098; *PRINTING+PUBLISHING; else if (IND >= 347 and IND <= 369) then OCCED = 0.074; *CHEMICAL AND ALLIED; else if (IND >= 377 and IND <= 378) then OCCED = 0.061; *PETROLEUM + COAL ; else if (IND >= 379 and IND <= 387) then OCCED = 0.079; *RUBBER+PLASTIC ; else if (IND >= 388 and IND <= 397) then OCCED = 0.045; *LEATHER PRODUCTS ; else if (IND >= 398 and IND <= 398) then OCCED = 0.008; *NS Manuf. Ind. ; else if (IND >= 399 and IND <= 399) then OCCED = 0.059; *ALLOC-NONDURABLE MF; else if (IND >= 407 and IND <= 407) then OCCED = 0.036; *Railroads ; else if (IND >= 408 and IND <= 429) then OCCED = 0.096; *OTHER TRANSPORTATIO; else if (IND >= 447 and IND <= 479) then OCCED = 0.057; *Comm, Util, Sanitar; else if (IND >= 499 and IND <= 499) then OCCED = 0.064; *ALLOC-TRANS,COMM,UT; else if (IND >= 507 and IND <= 599) then OCCED = 0.073; *Wholesale Trade ; else if (IND >= 607 and IND <= 699) then OCCED = 0.083; *Retail Trade ; else if (IND >= 707 and IND <= 719) then OCCED = 0.127; *OTHER INDUSTRIES ; else if (IND >= 727 and IND <= 767) then OCCED = 0.094; *Bus. + Repair Srvs ; else if (IND >= 769 and IND <= 769) then OCCED = 0.087; *Private Households ; else if (IND >= 777 and IND <= 798) then OCCED = 0.112; *OTHER SERVICE ; else if (IND >= 799 and IND <= 799) then OCCED = 0.094; *ALLOC-SERVICE ; else if (IND >= 807 and IND <= 899) then OCCED = 0.127; *OTHER INDUSTRIES ; else if (IND >= 907 and IND <= 947) then OCCED = 0.045; *Public Administrat ; else if (IND > 947) then OCCED = 0.127; *OTHER INDUSTRIES ; end; else if OCC = 796 then OCCED = 0.080; else if OCC = 801 then OCCED = 0.107; else if OCC = 802 then OCCED = 0.241; else if OCC = 806 then OCCED = 0.113; else if OCC = 821 then OCCED = 0.163; else if OCC = 822 then OCCED = 0.058; else if OCC = 823 then OCCED = 0.100; else if OCC = 824 then OCCED = 0.082; else if OCC = 846 then OCCED = 0.066; else if OCC = 901 then OCCED = 0.039; else if OCC = 902 then OCCED = 0.046; else if OCC = 903 then OCCED = 0.077; else if OCC = 910 then OCCED = 0.149; else if OCC = 911 then OCCED = 0.105; else if OCC = 912 then OCCED = 0.067; else if OCC = 913 then OCCED = 0.104; else if OCC = 914 then OCCED = 0.127; else if OCC = 915 then OCCED = 0.100; else if OCC = 916 then OCCED = 0.082; else if OCC = 921 then OCCED = 0.239; else if OCC = 922 then OCCED = 0.209; else if OCC = 923 then OCCED = 0.552; else if OCC = 924 then OCCED = 0.177; else if OCC = 925 then OCCED = 0.111; else if OCC = 926 then OCCED = 0.201; else if OCC = 931 then OCCED = 0.638; else if OCC = 932 then OCCED = 0.246; else if OCC = 933 then OCCED = 0.227; else if OCC = 934 then OCCED = 0.165; else if OCC = 935 then OCCED = 0.081; else if OCC = 940 then OCCED = 0.186; else if OCC = 941 then OCCED = 0.032; else if OCC = 942 then OCCED = 0.171; else if OCC = 943 then OCCED = 0.052; else if OCC = 944 then OCCED = 0.088; else if OCC = 945 then OCCED = 0.054; else if OCC = 950 then OCCED = 0.251; else if OCC = 952 then OCCED = 0.223; else if OCC = 953 then OCCED = 0.168; else if OCC = 954 then OCCED = 0.245; else if OCC = 960 then OCCED = 0.054; else if OCC = 961 then OCCED = 0.160; else if OCC = 962 then OCCED = 0.129; else if OCC = 963 then OCCED = 0.246; else if OCC = 964 then do; * POLICEMEN AND DETECTIVES ; if (COW =-9) then OCCED = 0.280; *No COW ; else if (COW = 2) then OCCED = 0.281; *Government ; else if (COW>=1 and COW<=6) then OCCED = 0.257; *OTHER COWs ; else OCCED = 0.280; *OTHER COWs ; end; else if OCC = 965 then OCCED = 0.253; else if OCC = 976 then OCCED = 0.116; else if OCC = 980 then OCCED = 0.087; else if OCC = 981 then OCCED = 0.041; else if OCC = 982 then OCCED = 0.042; else if OCC = 983 then OCCED = 0.045; else if OCC = 984 then OCCED = 0.031; else if OCC = 986 then OCCED = 0.045; if CENSUS=1 then do; **** Use CENSUS Defn of Allocated Occs ****; if OCC = 196 then OCCED = 0.640; *** Prof,Tech Alloc***; else if OCC = 246 then OCCED = 0.323; *** Managers Alloc ***; else if OCC = 296 then OCCED = 0.211; *** Sales Alloc ***; else if OCC = 396 then OCCED = 0.217; *** Clerical Alloc ***; else if OCC = 586 then OCCED = 0.087; *** Crafts Alloc ***; else if OCC = 696 then OCCED = 0.056; *** Operatives Alloc**; else if OCC = 726 then OCCED = 0.067; *** Trans.Equip.Alloc*; else if OCC = 796 then OCCED = 0.079; *** Laborers Alloc ***; else if OCC = 806 then OCCED = 0.121; *** Farmers Alloc ***; else if OCC = 846 then OCCED = 0.069; *** Farm Laborer All**; else if OCC = 976 then OCCED = 0.096; *** Service Alloc ***; else if OCC = 986 then OCCED = 0.015; *** Pr.HH Alloc ***; end; *** Transform to Started Logits & Multiply by 1000 ***; if OCCED^=. then do; OCCEDSL = LOG((OCCED*100+1)/(100-OCCED*100+1)); OCCEDSL = ROUND(OCCEDSL,.01); OCCEDSL = ROUND(OCCEDSL*100); OCCED = OCCED*1000; end; if OCCED = . and WAVE1 = 1 then do; if OCC = 997 then OCCED = 9997; *Don't know ; else if OCC = 998 then OCCED = 9998; *Inapp ; else if OCC = 999 then OCCED = 9999; *Refused ; else if OCC >= 970 and OCC <= 974 then OCCED = 9999; *Military ; else if OCC = 580 then OCCED = 9999; *Former Mil.; else if OCC = 985 then OCCED = 9998; *Housewife ; else if OCC >= 991 and OCC <= 996 then OCCED = 9998; *Other-Inapp; end; else if OCCED = . and WAVE1 ^= 1 then do; if OCC = 997 then OCCED = 9997; *Don't know ; else if OCC = 998 then OCCED = 9998; *Inapp ; else if OCC = 999 then OCCED = 9999; *Refused ; else if OCC >= 970 and OCC <= 974 then OCCED = 9998; *Military ; else if OCC = 580 then OCCED = 9999; *Former Mil.; else if OCC = 985 then OCCED = 9998; *Housewife ; else if OCC >= 991 and OCC <= 996 then OCCED = 9998; *Other-Inapp; end; RETURN; OCCINC: ***************************************************************************** *** 1 9 7 0 O C C U P A T I O N A L I N C O M E S C O R E S *** *****************************************************************************; OCCINC = .; if OCC = 001 then OCCINC = 0.464; else if OCC = 002 then OCCINC = 0.712; else if OCC = 003 then OCCINC = 0.455; else if OCC = 004 then OCCINC = 0.719; else if OCC = 005 then OCCINC = 0.672; else if OCC = 006 then OCCINC = 0.877; else if OCC = 010 then OCCINC = 0.821; else if OCC = 011 then OCCINC = 0.738; else if OCC = 012 then OCCINC = 0.803; else if OCC = 013 then OCCINC = 0.734; else if OCC = 014 then OCCINC = 0.805; else if OCC = 015 then OCCINC = 0.845; else if OCC = 020 then OCCINC = 0.734; else if OCC = 021 then OCCINC = 0.773; else if OCC = 022 then OCCINC = 0.792; else if OCC = 023 then OCCINC = 0.755; else if OCC = 024 then OCCINC = 0.558; else if OCC = 025 then OCCINC = 0.313; else if OCC = 026 then OCCINC = 0.185; else if OCC = 030 then OCCINC = 0.790; else if OCC = 031 then OCCINC = 0.804; else if OCC = 032 then OCCINC = 0.217; else if OCC = 033 then OCCINC = 0.307; else if OCC = 034 then OCCINC = 0.594; else if OCC = 035 then OCCINC = 0.670; else if OCC = 036 then OCCINC = 0.439; else if OCC = 042 then OCCINC = 0.481; else if OCC = 043 then OCCINC = 0.766; else if OCC = 044 then OCCINC = 0.439; else if OCC = 045 then OCCINC = 0.612; else if OCC = 051 then OCCINC = 0.774; else if OCC = 052 then OCCINC = 0.754; else if OCC = 053 then OCCINC = 0.790; else if OCC = 054 then OCCINC = 0.646; else if OCC = 055 then OCCINC = 0.664; else if OCC = 056 then OCCINC = 0.504; else if OCC = 061 then OCCINC = 0.572; else if OCC = 062 then OCCINC = 0.842; else if OCC = 063 then OCCINC = 0.777; else if OCC = 064 then OCCINC = 0.652; else if OCC = 065 then OCCINC = 0.784; else if OCC = 071 then OCCINC = 0.659; else if OCC = 072 then OCCINC = 0.761; else if OCC = 073 then OCCINC = 0.505; else if OCC = 074 then OCCINC = 0.119; else if OCC = 075 then OCCINC = 0.088; else if OCC = 076 then OCCINC = 0.192; else if OCC = 080 then OCCINC = 0.121; else if OCC = 081 then OCCINC = 0.149; else if OCC = 082 then OCCINC = 0.122; else if OCC = 083 then OCCINC = 0.128; else if OCC = 084 then OCCINC = 0.076; else if OCC = 085 then OCCINC = 0.136; else if OCC = 086 then OCCINC = 0.161; else if OCC = 090 then OCCINC = 0.139; else if OCC = 091 then OCCINC = 0.711; else if OCC = 092 then OCCINC = 0.694; else if OCC = 093 then OCCINC = 0.551; else if OCC = 094 then OCCINC = 0.497; else if OCC = 095 then OCCINC = 0.614; else if OCC = 096 then OCCINC = 0.466; else if OCC = 100 then OCCINC = 0.232; else if OCC = 101 then OCCINC = 0.150; else if OCC = 102 then OCCINC = 0.673; else if OCC = 103 then OCCINC = 0.596; else if OCC = 104 then OCCINC = 0.561; else if OCC = 105 then OCCINC = 0.607; else if OCC = 110 then OCCINC = 0.626; else if OCC = 111 then OCCINC = 0.703; else if OCC = 112 then OCCINC = 0.518; else if OCC = 113 then OCCINC = 0.565; else if OCC = 114 then OCCINC = 0.612; else if OCC = 115 then OCCINC = 0.540; else if OCC = 116 then OCCINC = 0.677; else if OCC = 120 then OCCINC = 0.535; else if OCC = 121 then OCCINC = 0.495; else if OCC = 122 then OCCINC = 0.609; else if OCC = 123 then OCCINC = 0.458; else if OCC = 124 then OCCINC = 0.491; else if OCC = 125 then OCCINC = 0.673; else if OCC = 126 then OCCINC = 0.426; else if OCC = 130 then OCCINC = 0.375; else if OCC = 131 then OCCINC = 0.332; else if OCC = 132 then OCCINC = 0.841; else if OCC = 133 then OCCINC = 0.428; else if OCC = 134 then OCCINC = 0.419; else if OCC = 135 then OCCINC = 0.493; else if OCC = 140 then OCCINC = 0.413; else if OCC = 141 then OCCINC = 0.308; else if OCC = 142 then do; *ELEMENTARY SCHOOL TEACHERS ; if (COW = -9) then OCCINC = 0.165; *No COW ; else if (COW = 2) then OCCINC = 0.183; *Government ; else if (COW>= 1 and COW<= 6) then OCCINC = 0.080; *OTHER COW ; else OCCINC = 0.165; *OTHER COW ; end; else if OCC = 143 then do; *KINDERGARTEN TEACHERS ; if (COW = -9) then OCCINC = 0.085; *No COW ; else if (COW = 2) then OCCINC = 0.158; *Government ; else if (COW>= 1 and COW<= 6) then OCCINC = 0.025; *OTHER COW ; else OCCINC = 0.085; *OTHER COW ; end; else if OCC = 144 then do; *SECONDARY SCHOOL TEACHERS ; if (COW = -9) then OCCINC = 0.290; *No COW ; else if (COW = 2) then OCCINC = 0.312; *Government ; else if (COW>= 1 and COW<= 6) then OCCINC = 0.176; *OTHER COW ; else OCCINC = 0.290; *OTHER COW ; end; else if OCC = 145 then OCCINC = 0.129; else if OCC = 150 then OCCINC = 0.155; else if OCC = 151 then OCCINC = 0.260; else if OCC = 152 then OCCINC = 0.345; else if OCC = 153 then OCCINC = 0.421; else if OCC = 154 then OCCINC = 0.385; else if OCC = 155 then OCCINC = 0.558; else if OCC = 156 then OCCINC = 0.497; else if OCC = 161 then OCCINC = 0.258; else if OCC = 162 then OCCINC = 0.276; else if OCC = 163 then OCCINC = 0.768; else if OCC = 164 then OCCINC = 0.725; else if OCC = 165 then OCCINC = 0.289; else if OCC = 170 then OCCINC = 0.736; else if OCC = 171 then OCCINC = 0.211; else if OCC = 172 then OCCINC = 0.521; else if OCC = 173 then OCCINC = 0.313; else if OCC = 174 then OCCINC = 0.459; else if OCC = 175 then OCCINC = 0.303; else if OCC = 180 then OCCINC = 0.219; else if OCC = 181 then OCCINC = 0.488; else if OCC = 182 then OCCINC = 0.099; else if OCC = 183 then OCCINC = 0.523; else if OCC = 184 then OCCINC = 0.408; else if OCC = 185 then OCCINC = 0.155; else if OCC = 190 then OCCINC = 0.340; else if OCC = 191 then OCCINC = 0.345; else if OCC = 192 then OCCINC = 0.530; else if OCC = 193 then OCCINC = 0.282; else if OCC = 194 then OCCINC = 0.381; else if OCC = 195 then OCCINC = 0.403; else if OCC = 196 then OCCINC = 0.397; else if OCC = 201 then OCCINC = 0.255; else if OCC = 202 then OCCINC = 0.571; else if OCC = 203 then OCCINC = 0.366; else if OCC = 205 then OCCINC = 0.409; else if OCC = 210 then OCCINC = 0.346; else if OCC = 211 then OCCINC = 0.460; else if OCC = 212 then OCCINC = 0.499; else if OCC = 213 then OCCINC = 0.452; else if OCC = 215 then do; *INSPECTORS, EXC.CONST.,FED AD; if (IND = -9) then OCCINC = 0.461; *No IND ; else if (IND>= 907 and IND <= 917) then OCCINC = 0.552; *Federal + Post Off; else if (IND = 927) then OCCINC = 0.310; *State ; else if (IND = 937) then OCCINC = 0.304; *Local ; else OCCINC = 0.461; *OTHER IND ; end; else if OCC = 216 then OCCINC = 0.250; else if OCC = 220 then OCCINC = 0.399; else if OCC = 221 then OCCINC = 0.547; else if OCC = 222 then do; *OFFICIALS & ADMIN., PUBLIC AD; if (IND = -9) then OCCINC = 0.563; *No IND ; else if (IND>= 907 and IND <= 917) then OCCINC = 0.709; *Federal + Post Off; else if (IND = 927) then OCCINC = 0.509; *State ; else if (IND = 937) then OCCINC = 0.368; *Local ; else OCCINC = 0.563; *OTHER IND ; end; else if OCC = 223 then OCCINC = 0.570; else if OCC = 224 then OCCINC = 0.425; else if OCC = 225 then OCCINC = 0.540; else if OCC = 226 then OCCINC = 0.619; else if OCC = 230 then OCCINC = 0.280; else if OCC = 231 then OCCINC = 0.371; else if OCC = 233 then OCCINC = 0.787; else if OCC = 235 then OCCINC = 0.660; else if OCC = 240 then OCCINC = 0.684; else if OCC = 245 then do; *MANAGERS N.E.C. ; if (IND=-9) then do; *No IND ; if (COW=-9) then OCCINC = 0.553; *No COW ; else if (COW>=4 and COW<=6) then OCCINC = 0.405; *Self-Employed; else if (COW< 4 or COW> 6) then OCCINC = 0.605; *Salaried ; end; else if (IND <= 058) then do; *OTHER INDUSTRIES ; if (COW=-9) then OCCINC = 0.542; *No COW ; else if (COW>=4 and COW<=6) then OCCINC = 0.422; *Self-Employed; else if (COW< 4 or COW> 6) then OCCINC = 0.564; *Salaried ; end; else if (IND >= 067 and IND <= 078) then do; *Construction ; if (COW=-9) then OCCINC = 0.629; *No COW ; else if (COW>=4 and COW<=6) then OCCINC = 0.499; *Self-Employed; else if (COW< 4 or COW> 6) then OCCINC = 0.705; *Salaried ; end; else if (IND >= 107 and IND <= 267) then do; *Manufacturing-Durable; if (COW=-9) then OCCINC = 0.772; *No COW ; else if (COW>=4 and COW<=6) then OCCINC = 0.482; *Self-Employed; else if (COW< 4 or COW> 6) then OCCINC = 0.802; *Salaried ; end; else if (IND >= 268 and IND <= 399) then do; *Manufacturing-NonDura; if (COW=-9) then OCCINC = 0.713; *No COW ; else if (COW>=4 and COW<=6) then OCCINC = 0.504; *Self-Employed; else if (COW< 4 or COW> 6) then OCCINC = 0.735; *Salaried ; end; else if (IND >= 407 and IND <= 429) then do; *Transportation ; if (COW=-9) then OCCINC = 0.596; *No COW ; else if (COW>=4 and COW<=6) then OCCINC = 0.460; *Self-Employed; else if (COW< 4 or COW> 6) then OCCINC = 0.617; *Salaried ; end; else if (IND >= 447 and IND <= 479) then do; *Comm, Util, Sanitary ; if (COW=-9) then OCCINC = 0.671; *No COW ; else if (COW>=4 and COW<=6) then OCCINC = 0.579; *Self-Employed; else if (COW< 4 or COW> 6) then OCCINC = 0.673; *Salaried ; end; else if (IND >= 499 and IND <= 499) then do; *ALLOC-TRANS,COMM,UTIL; if (COW=-9) then OCCINC = 0.626; *No COW ; else if (COW>=4 and COW<=6) then OCCINC = 0.472; *Self-Employed; else if (COW< 4 or COW> 6) then OCCINC = 0.641; *Salaried ; end; else if (IND >= 507 and IND <= 599) then do; *Wholesale Trade ; if (COW=-9) then OCCINC = 0.633; *No COW ; else if (COW>=4 and COW<=6) then OCCINC = 0.522; *Self-Employed; else if (COW< 4 or COW> 6) then OCCINC = 0.660; *Salaried ; end; else if (IND >= 607 and IND <= 608) then do; *Lumber & Hardware ; if (COW=-9) then OCCINC = 0.474; *No COW ; else if (COW>=4 and COW<=6) then OCCINC = 0.468; *Self-Employed; else if (COW< 4 or COW> 6) then OCCINC = 0.478; *Salaried ; end; else if (IND >= 609 and IND <= 627) then do; *General Merchandise ; if (COW=-9) then OCCINC = 0.365; *No COW ; else if (COW>=4 and COW<=6) then OCCINC = 0.325; *Self-Employed; else if (COW< 4 or COW> 6) then OCCINC = 0.374; *Salaried ; end; else if (IND >= 628 and IND <= 638) then do; *Food Stores ; if (COW=-9) then OCCINC = 0.319; *No COW ; else if (COW>=4 and COW<=6) then OCCINC = 0.245; *Self-Employed; else if (COW< 4 or COW> 6) then OCCINC = 0.381; *Salaried ; end; else if (IND >= 639 and IND <= 647) then do; *Car + Access. Dealers; if (COW=-9) then OCCINC = 0.512; *No COW ; else if (COW>=4 and COW<=6) then OCCINC = 0.506; *Self-Employed; else if (COW< 4 or COW> 6) then OCCINC = 0.514; *Salaried ; end; else if (IND >= 648 and IND <= 648) then do; *Gas Stations ; if (COW=-9) then OCCINC = 0.280; *No COW ; else if (COW>=4 and COW<=6) then OCCINC = 0.320; *Self-Employed; else if (COW< 4 or COW> 6) then OCCINC = 0.219; *Salaried ; end; else if (IND >= 649 and IND <= 649) then do; *Misc. Vehicle Dealers; if (COW=-9) then OCCINC = 0.512; *No COW ; else if (COW>=4 and COW<=6) then OCCINC = 0.506; *Self-Employed; else if (COW< 4 or COW> 6) then OCCINC = 0.514; *Salaried ; end; else if (IND >= 657 and IND <= 658) then do; *Apparel & Shoe Stores; if (COW=-9) then OCCINC = 0.408; *No COW ; else if (COW>=4 and COW<=6) then OCCINC = 0.424; *Self-Employed; else if (COW< 4 or COW> 6) then OCCINC = 0.401; *Salaried ; end; else if (IND >= 667 and IND <= 668) then do; *Furniture & HH Stores; if (COW=-9) then OCCINC = 0.524; *No COW ; else if (COW>=4 and COW<=6) then OCCINC = 0.452; *Self-Employed; else if (COW< 4 or COW> 6) then OCCINC = 0.573; *Salaried ; end; else if (IND >= 669 and IND <= 669) then do; *OTHER RETAIL TRADE ; if (COW=-9) then OCCINC = 0.381; *No COW ; else if (COW>=4 and COW<=6) then OCCINC = 0.329; *Self-Employed; else if (COW< 4 or COW> 6) then OCCINC = 0.422; *Salaried ; end; else if (IND >= 677 and IND <= 698) then do; *OTHER RETAIL TRADE ; if (COW=-9) then OCCINC = 0.381; *No COW ; else if (COW>=4 and COW<=6) then OCCINC = 0.329; *Self-Employed; else if (COW< 4 or COW> 6) then OCCINC = 0.422; *Salaried ; end; else if (IND >= 699 and IND <= 699) then do; *ALLOC-RETAIL TRADE ; if (COW=-9) then OCCINC = 0.382; *No COW ; else if (COW>=4 and COW<=6) then OCCINC = 0.337; *Self-Employed; else if (COW< 4 or COW> 6) then OCCINC = 0.411; *Salaried ; end; else if (IND >= 707 and IND <= 719) then do; *FIRE ; if (COW=-9) then OCCINC = 0.660; *No COW ; else if (COW>=4 and COW<=6) then OCCINC = 0.668; *Self-Employed; else if (COW< 4 or COW> 6) then OCCINC = 0.659; *Salaried ; end; else if (IND >= 727 and IND <= 767) then do; *Business & Repair Svs; if (COW=-9) then OCCINC = 0.566; *No COW ; else if (COW>=4 and COW<=6) then OCCINC = 0.458; *Self-Employed; else if (COW< 4 or COW> 6) then OCCINC = 0.611; *Salaried ; end; else if (IND >= 769 and IND <= 799) then do; *Personal Services ; if (COW=-9) then OCCINC = 0.313; *No COW ; else if (COW>=4 and COW<=6) then OCCINC = 0.313; *Self-Employed; else if (COW< 4 or COW> 6) then OCCINC = 0.313; *Salaried ; end; else if (IND >= 807) then do; *OTHER INDUSTRIES ; if (COW=-9) then OCCINC = 0.542; *No COW ; else if (COW>=4 and COW<=6) then OCCINC = 0.422; *Self-Employed; else if (COW< 4 or COW> 6) then OCCINC = 0.564; *Salaried ; end; end; else if OCC = 246 then OCCINC = 0.526; else if OCC = 260 then OCCINC = 0.467; else if OCC = 261 then OCCINC = 0.500; else if OCC = 262 then OCCINC = 0.050; else if OCC = 264 then OCCINC = 0.056; else if OCC = 265 then OCCINC = 0.471; else if OCC = 266 then OCCINC = 0.056; else if OCC = 270 then OCCINC = 0.439; else if OCC = 271 then OCCINC = 0.663; else if OCC = 280 then OCCINC = 0.221; else if OCC = 281 then OCCINC = 0.562; else if OCC = 282 then OCCINC = 0.457; else if OCC = 283 then do; *SALES CLERKS, RETAIL TRADE ; if (IND = -9) then OCCINC = 0.071; *No IND ; else if (IND < 609) then OCCINC = 0.115; *OTHER INDUSTRIES ; else if (IND >= 609 and IND <= 627) then OCCINC = 0.040; *General Merch. ; else if (IND >= 628 and IND <= 638) then OCCINC = 0.062; *Food Stores ; else if (IND >= 657 and IND <= 658) then OCCINC = 0.059; *Apparel and Access; else if (IND = 699) then OCCINC = 0.071; *ALLOC-RETAIL TRADE; else if (IND >= 639) then OCCINC = 0.115; *OTHER INDUSTRIES ; end; else if OCC = 284 then do; *SALESMEN, RETAIL TRADE ; if (IND = -9) then OCCINC = 0.303; *No IND ; else if (IND < 639) then OCCINC = 0.247; *OTHER INDUSTRIES ; else if (IND >= 639 and IND <= 639) then OCCINC = 0.367; *Motor Vehicles ; else if (IND >= 647 and IND <= 647) then OCCINC = 0.367; *Tire, Battery, Acc; else if (IND >= 649 and IND <= 649) then OCCINC = 0.367; *Misc. Vehicle ; else if (IND = 699) then OCCINC = 0.303; *ALLOC-RETAIL TRADE; else if (IND >= 648) then OCCINC = 0.247; *OTHER INDUSTRIES ; end; else if OCC = 285 then OCCINC = 0.308; else if OCC = 296 then OCCINC = 0.258; else if OCC = 301 then OCCINC = 0.020; else if OCC = 303 then OCCINC = 0.033; else if OCC = 305 then OCCINC = 0.072; else if OCC = 310 then OCCINC = 0.016; else if OCC = 311 then OCCINC = 0.067; else if OCC = 312 then OCCINC = 0.408; else if OCC = 313 then OCCINC = 0.114; else if OCC = 314 then OCCINC = 0.043; else if OCC = 315 then OCCINC = 0.243; else if OCC = 320 then OCCINC = 0.049; else if OCC = 321 then OCCINC = 0.336; else if OCC = 323 then OCCINC = 0.276; else if OCC = 325 then OCCINC = 0.024; else if OCC = 326 then OCCINC = 0.310; else if OCC = 330 then OCCINC = 0.032; else if OCC = 331 then OCCINC = 0.144; else if OCC = 332 then OCCINC = 0.065; else if OCC = 333 then OCCINC = 0.045; else if OCC = 334 then OCCINC = 0.097; else if OCC = 341 then OCCINC = 0.029; else if OCC = 342 then OCCINC = 0.030; else if OCC = 343 then OCCINC = 0.161; else if OCC = 344 then OCCINC = 0.040; else if OCC = 345 then OCCINC = 0.031; else if OCC = 350 then OCCINC = 0.060; else if OCC = 355 then OCCINC = 0.045; else if OCC = 360 then OCCINC = 0.093; else if OCC = 361 then OCCINC = 0.156; else if OCC = 362 then OCCINC = 0.125; else if OCC = 363 then OCCINC = 0.594; else if OCC = 364 then OCCINC = 0.016; else if OCC = 370 then OCCINC = 0.046; else if OCC = 371 then OCCINC = 0.019; else if OCC = 372 then OCCINC = 0.037; else if OCC = 374 then OCCINC = 0.089; else if OCC = 375 then OCCINC = 0.120; else if OCC = 376 then OCCINC = 0.070; else if OCC = 381 then OCCINC = 0.095; else if OCC = 382 then OCCINC = 0.010; else if OCC = 383 then OCCINC = 0.045; else if OCC = 384 then OCCINC = 0.195; else if OCC = 385 then OCCINC = 0.031; else if OCC = 390 then OCCINC = 0.195; else if OCC = 391 then OCCINC = 0.015; else if OCC = 392 then OCCINC = 0.100; else if OCC = 394 then do; *MISC. CLERICAL WORKERS ; if (IND = -9) then OCCINC = 0.120; *No IND ; else if (IND < 107) then OCCINC = 0.111; *OTHER INDUSTRIES ; else if (IND >= 107 and IND <= 399) then OCCINC = 0.245; *Manufacturing ; else if (IND >= 407 and IND <= 499) then OCCINC = 0.119; *Trans, Comm, & Uti; else if (IND >= 507 and IND <= 699) then OCCINC = 0.058; *Whlsle & Retail Tr; else if (IND >= 707 and IND <= 719) then OCCINC = 0.083; *FIRE ; else if (IND >= 727 and IND <= 817) then OCCINC = 0.111; *OTHER INDUSTRIES ; else if (IND >= 828 and IND <= 899) then OCCINC = 0.098; *Professional Srvcs; else if (IND >= 907 and IND <= 947) then OCCINC = 0.142; *Public Administrat; else if (IND > 907) then OCCINC = 0.111; *OTHER INDUSTRIES ; end; else if OCC = 395 then do; *NOT SPEC. CLERICAL WORKERS ; if (IND = -9) then OCCINC = 0.058; *No IND ; else if (IND < 107) then OCCINC = 0.060; *OTHER INDUSTRIES ; else if (IND >= 107 and IND <= 399) then OCCINC = 0.084; *Manufacturing ; else if (IND >= 407 and IND <= 499) then OCCINC = 0.094; *Trans, Comm, & Uti; else if (IND >= 507 and IND <= 699) then OCCINC = 0.038; *Whlsle & Retail Tr; else if (IND >= 707 and IND <= 719) then OCCINC = 0.044; *FIRE ; else if (IND >= 727 and IND <= 817) then OCCINC = 0.060; *OTHER INDUSTRIES ; else if (IND >= 828 and IND <= 899) then OCCINC = 0.021; *Professional Srvcs; else if (IND >= 907 and IND <= 947) then OCCINC = 0.083; *Public Administrat; else if (IND > 907) then OCCINC = 0.060; *OTHER INDUSTRIES ; end; else if OCC = 396 then OCCINC = 0.072; else if OCC = 401 then OCCINC = 0.127; else if OCC = 402 then OCCINC = 0.111; else if OCC = 403 then OCCINC = 0.186; else if OCC = 404 then OCCINC = 0.385; else if OCC = 405 then OCCINC = 0.122; else if OCC = 410 then OCCINC = 0.281; else if OCC = 411 then OCCINC = 0.178; else if OCC = 412 then OCCINC = 0.196; else if OCC = 413 then OCCINC = 0.152; else if OCC = 415 then OCCINC = 0.233; else if OCC = 416 then OCCINC = 0.039; else if OCC = 420 then OCCINC = 0.249; else if OCC = 421 then OCCINC = 0.225; else if OCC = 422 then OCCINC = 0.282; else if OCC = 423 then OCCINC = 0.051; else if OCC = 424 then OCCINC = 0.296; else if OCC = 425 then OCCINC = 0.111; else if OCC = 426 then OCCINC = 0.274; else if OCC = 430 then OCCINC = 0.452; else if OCC = 431 then OCCINC = 0.116; else if OCC = 433 then OCCINC = 0.425; else if OCC = 434 then OCCINC = 0.484; else if OCC = 435 then OCCINC = 0.165; else if OCC = 436 then OCCINC = 0.267; else if OCC = 440 then OCCINC = 0.268; else if OCC = 441 then do; * FOREMEN, N.E.C. ; if (IND = -9) then OCCINC = 0.483; *No IND ; else if ( IND <= 058) then OCCINC = 0.406; *OTHER INDUSTRIES ; else if (IND >= 067 and IND <= 078) then OCCINC = 0.510; *Construction ; else if (IND >= 107 and IND <= 138) then OCCINC = 0.407; *OTHER DURABLE ; else if (IND >= 139 and IND <= 169) then OCCINC = 0.605; *Metal Industries ; else if (IND >= 177 and IND <= 198) then OCCINC = 0.619; *Machinery, Exc. El; else if (IND >= 199 and IND <= 209) then OCCINC = 0.532; *Elect. Machinery ; else if (IND >= 219 and IND <= 238) then OCCINC = 0.734; *Transportation Eqp; else if (IND >= 239 and IND <= 259) then OCCINC = 0.407; *OTHER DURABLE ; else if (IND >= 267 and IND <= 267) then OCCINC = 0.573; *ALLOC-DURABLE MFG ; else if (IND >= 268 and IND <= 298) then OCCINC = 0.352; *Food and Kindred ; else if (IND >= 299 and IND <= 299) then OCCINC = 0.524; *OTHER NONDURABLE ; else if (IND >= 307 and IND <= 327) then OCCINC = 0.194; *Textile + Apparel ; else if (IND >= 328 and IND <= 398) then OCCINC = 0.524; *OTHER NONDURABLE ; else if (IND >= 399 and IND <= 399) then OCCINC = 0.405; *ALLOC-NONDURABLE M; else if (IND >= 407 and IND <= 429) then OCCINC = 0.438; *Transportation ; else if (IND >= 447 and IND <= 479) then OCCINC = 0.639; *Comm. + Utilities ; else if (IND >= 499 and IND <= 499) then OCCINC = 0.546; *ALLOC-TRANS,COMM,U; else if (IND >= 507 and IND <= 699) then OCCINC = 0.348; *Wlsle & Retail Tra; else if (IND >= 507) then OCCINC = 0.406; *OTHER INDUSTRIES ; end; else if OCC = 442 then OCCINC = 0.291; else if OCC = 443 then OCCINC = 0.094; else if OCC = 444 then OCCINC = 0.221; else if OCC = 445 then OCCINC = 0.308; else if OCC = 446 then OCCINC = 0.251; else if OCC = 450 then OCCINC = 0.107; else if OCC = 452 then do; * INSPECTORS, N.E.C. ; if (IND = -9) then OCCINC = 0.271; *No IND ; else if ( IND <= 058) then OCCINC = 0.291; *OTHER INDUSTRIES ; else if (IND >= 067 and IND <= 078) then OCCINC = 0.276; *Construction ; else if (IND >= 107 and IND <= 399) then OCCINC = 0.291; *OTHER INDUSTRIES ; else if (IND >= 407 and IND <= 407) then OCCINC = 0.206; *Railroad ; else if (IND > 407) then OCCINC = 0.291; *OTHER INDUSTRIES ; end; else if OCC = 453 then OCCINC = 0.218; else if OCC = 454 then OCCINC = 0.305; else if OCC = 455 then OCCINC = 0.699; else if OCC = 456 then OCCINC = 0.455; else if OCC = 461 then OCCINC = 0.283; else if OCC = 462 then OCCINC = 0.071; else if OCC = 470 then OCCINC = 0.316; else if OCC = 471 then OCCINC = 0.407; else if OCC = 472 then OCCINC = 0.230; else if OCC = 473 then OCCINC = 0.175; else if OCC = 474 then OCCINC = 0.029; else if OCC = 475 then OCCINC = 0.516; else if OCC = 480 then OCCINC = 0.108; else if OCC = 481 then OCCINC = 0.282; else if OCC = 482 then OCCINC = 0.196; else if OCC = 483 then OCCINC = 0.032; else if OCC = 484 then OCCINC = 0.228; else if OCC = 485 then OCCINC = 0.224; else if OCC = 486 then OCCINC = 0.164; else if OCC = 491 then do; * MECHANICS, EXC. AUTO APPREN.; if (IND = -9) then OCCINC = 0.152; *No IND ; else if (IND < 107) then OCCINC = 0.107; *OTHER INDUSTRIES ; else if (IND >= 107 and IND <= 399) then OCCINC = 0.199; *Manufacturing ; else if (IND > 399) then OCCINC = 0.107; *OTHER INDUSTRIES ; end; else if OCC = 492 then do; * MISC. MECHANICS & REPAIRMEN ; if (IND = -9) then OCCINC = 0.225; *No IND ; else if (IND < 107) then OCCINC = 0.193; *OTHER INDUSTRIES ; else if (IND >= 107 and IND <= 399) then OCCINC = 0.304; *Manufacturing ; else if (IND > 399) then OCCINC = 0.193; *OTHER INDUSTRIES ; end; else if OCC = 495 then do; * NS MECHANICS & REPAIRMEN ; if (IND = -9) then OCCINC = 0.258; *No IND ; else if (IND < 107) then OCCINC = 0.247; *OTHER INDUSTRIES ; else if (IND >= 107 and IND <= 399) then OCCINC = 0.272; *Manufacturing ; else if (IND > 399) then OCCINC = 0.247; *OTHER INDUSTRIES ; end; else if OCC = 501 then OCCINC = 0.147; else if OCC = 502 then OCCINC = 0.483; else if OCC = 503 then OCCINC = 0.155; else if OCC = 504 then OCCINC = 0.091; else if OCC = 505 then OCCINC = 0.231; else if OCC = 506 then OCCINC = 0.223; else if OCC = 510 then OCCINC = 0.151; else if OCC = 511 then OCCINC = 0.024; else if OCC = 512 then OCCINC = 0.210; else if OCC = 514 then OCCINC = 0.512; else if OCC = 515 then OCCINC = 0.497; else if OCC = 516 then OCCINC = 0.189; else if OCC = 520 then OCCINC = 0.265; else if OCC = 521 then OCCINC = 0.170; else if OCC = 522 then OCCINC = 0.422; else if OCC = 523 then OCCINC = 0.123; else if OCC = 525 then OCCINC = 0.472; else if OCC = 530 then OCCINC = 0.318; else if OCC = 531 then OCCINC = 0.118; else if OCC = 533 then OCCINC = 0.364; else if OCC = 534 then OCCINC = 0.166; else if OCC = 535 then OCCINC = 0.370; else if OCC = 536 then OCCINC = 0.068; else if OCC = 540 then OCCINC = 0.242; else if OCC = 542 then OCCINC = 0.081; else if OCC = 543 then OCCINC = 0.183; else if OCC = 545 then OCCINC = 0.352; else if OCC = 546 then OCCINC = 0.116; else if OCC = 550 then OCCINC = 0.446; else if OCC = 551 then OCCINC = 0.120; else if OCC = 552 then OCCINC = 0.380; else if OCC = 554 then OCCINC = 0.277; else if OCC = 560 then OCCINC = 0.263; else if OCC = 561 then OCCINC = 0.543; else if OCC = 562 then OCCINC = 0.148; else if OCC = 563 then OCCINC = 0.099; else if OCC = 571 then OCCINC = 0.203; else if OCC = 572 then OCCINC = 0.203; else if OCC = 575 then OCCINC = 0.203; else if OCC = 580 then OCCINC = .; else if OCC = 586 then OCCINC = 0.309; else if OCC = 601 then OCCINC = 0.439; else if OCC = 602 then OCCINC = 0.058; else if OCC = 603 then OCCINC = 0.144; else if OCC = 604 then OCCINC = 0.067; else if OCC = 605 then OCCINC = 0.073; else if OCC = 610 then OCCINC = 0.125; else if OCC = 611 then OCCINC = 0.022; else if OCC = 612 then OCCINC = 0.088; else if OCC = 613 then OCCINC = 0.016; else if OCC = 614 then OCCINC = 0.211; else if OCC = 615 then OCCINC = 0.321; else if OCC = 620 then OCCINC = 0.084; else if OCC = 621 then OCCINC = 0.099; else if OCC = 622 then OCCINC = 0.202; else if OCC = 623 then OCCINC = 0.037; else if OCC = 624 then OCCINC = 0.033; else if OCC = 625 then OCCINC = 0.011; else if OCC = 626 then OCCINC = 0.385; else if OCC = 630 then OCCINC = 0.037; else if OCC = 631 then OCCINC = 0.202; else if OCC = 633 then OCCINC = 0.143; else if OCC = 634 then OCCINC = 0.010; else if OCC = 635 then OCCINC = 0.131; else if OCC = 636 then OCCINC = 0.051; else if OCC = 640 then do; * MINE OPERATIVES, N.E.C. ; if (IND = -9) then OCCINC = 0.135; *No IND ; else if ( IND <= 029) then OCCINC = 0.116; *OTHER INDUSTRIES ; else if (IND >= 047 and IND <= 047) then OCCINC = 0.116; *OTHER MINING ; else if (IND >= 048 and IND <= 048) then OCCINC = 0.110; *Coal Mining ; else if (IND >= 049 and IND <= 049) then OCCINC = 0.164; *Oil & Natural Gas ; else if (IND >= 057 and IND <= 057) then OCCINC = 0.116; *OTHER MINING ; else if (IND >= 058 and IND <= 058) then OCCINC = 0.135; *ALLOC-MINING ; else if (IND >= 067) then OCCINC = 0.116; *OTHER INDUSTRIES ; end; else if OCC = 641 then OCCINC = 0.118; else if OCC = 642 then OCCINC = 0.180; else if OCC = 643 then OCCINC = 0.025; else if OCC = 644 then OCCINC = 0.113; else if OCC = 645 then OCCINC = 0.140; else if OCC = 650 then OCCINC = 0.105; else if OCC = 651 then OCCINC = 0.238; else if OCC = 652 then OCCINC = 0.216; else if OCC = 653 then OCCINC = 0.241; else if OCC = 656 then OCCINC = 0.098; else if OCC = 660 then OCCINC = 0.035; else if OCC = 661 then OCCINC = 0.177; else if OCC = 662 then OCCINC = 0.056; else if OCC = 663 then OCCINC = 0.008; else if OCC = 664 then OCCINC = 0.010; else if OCC = 665 then OCCINC = 0.025; else if OCC = 666 then OCCINC = 0.202; else if OCC = 670 then OCCINC = 0.015; else if OCC = 671 then OCCINC = 0.033; else if OCC = 672 then OCCINC = 0.010; else if OCC = 673 then OCCINC = 0.012; else if OCC = 674 then OCCINC = 0.022; else if OCC = 680 then OCCINC = 0.202; else if OCC = 681 then OCCINC = 0.089; else if OCC = 690 then do; * MISC. MACHINE OPERATIVES ; if (IND = -9) then OCCINC = 0.113; *No IND ; else if ( IND <= 058) then OCCINC = 0.057; *OTHER INDUSTRIES ; else if (IND >= 067 and IND <= 078) then OCCINC = 0.179; *Construction ; else if (IND >= 107 and IND <= 109) then OCCINC = 0.065; *Lumber and Wood ; else if (IND >= 118 and IND <= 118) then OCCINC = 0.043; *Furniture ; else if (IND >= 119 and IND <= 119) then OCCINC = 0.153; *Glass ; else if (IND >= 127 and IND <= 127) then OCCINC = 0.089; *Cement, Concrete ; else if (IND >= 128 and IND <= 138) then OCCINC = 0.072; *OTHER STONE,CLAY,G; else if (IND >= 139 and IND <= 139) then OCCINC = 0.240; *Blast Furnaces ; else if (IND >= 147 and IND <= 147) then OCCINC = 0.142; *Other Primary Meta; else if (IND >= 148 and IND <= 149) then OCCINC = 0.111; *OTHER PRIM. NONFER; else if (IND >= 157 and IND <= 157) then OCCINC = 0.068; *Cutlery, Hand Tool; else if (IND >= 158 and IND <= 158) then OCCINC = 0.081; *Fabricated Metal ; else if (IND >= 159 and IND <= 167) then OCCINC = 0.092; *Screw Machine ; else if (IND >= 168 and IND <= 169) then OCCINC = 0.099; *MISC & NS METAL ; else if (IND >= 177 and IND <= 177) then OCCINC = 0.108; *OTHER MACHINERY ; else if (IND >= 178 and IND <= 178) then OCCINC = 0.121; *Farm Machinery ; else if (IND >= 179 and IND <= 179) then OCCINC = 0.173; *Construction Mach.; else if (IND >= 187 and IND <= 187) then OCCINC = 0.213; *Metalworking Mach.; else if (IND >= 188 and IND <= 189) then OCCINC = 0.145; *Office+Comput.Mach; else if (IND >= 197 and IND <= 198) then OCCINC = 0.108; *OTHER MACHINERY ; else if (IND >= 199 and IND <= 199) then OCCINC = 0.059; *HH Appliances ; else if (IND >= 207 and IND <= 207) then OCCINC = 0.104; *Radio, TV ; else if (IND >= 208 and IND <= 208) then OCCINC = 0.052; *Elect. Mach. n.e.c; else if (IND >= 209 and IND <= 209) then OCCINC = 0.053; *NS Elect. Mach. ; else if (IND >= 219 and IND <= 219) then OCCINC = 0.147; *Car+Car Equipment ; else if (IND >= 227 and IND <= 227) then OCCINC = 0.157; *Aircraft and Parts; else if (IND >= 228 and IND <= 238) then OCCINC = 0.101; *OTHER TRANS. EQUIP; else if (IND >= 239 and IND <= 239) then OCCINC = 0.059; *Scientific Equip. ; else if (IND >= 247 and IND <= 247) then OCCINC = 0.059; *Optical+Health Equ; else if (IND >= 248 and IND <= 249) then OCCINC = 0.245; *OTHER PROF. EQUIP.; else if (IND >= 257 and IND <= 257) then OCCINC = 0.059; *NS Prof. Equip. ; else if (IND >= 258 and IND <= 258) then OCCINC = 0.089; *Ordnance ; else if (IND >= 259 and IND <= 259) then OCCINC = 0.054; *Misc. Manuf. Inds.; else if (IND >= 267 and IND <= 267) then OCCINC = 0.103; *ALLOC-DURABLE MFG ; else if (IND >= 268 and IND <= 268) then OCCINC = 0.138; *Meat Products ; else if (IND >= 269 and IND <= 269) then OCCINC = 0.114; *Dairy Products ; else if (IND >= 278 and IND <= 278) then OCCINC = 0.023; *Canning ; else if (IND >= 279 and IND <= 279) then OCCINC = 0.093; *OTHER FOOD PRODUCT; else if (IND >= 287 and IND <= 287) then OCCINC = 0.041; *Bakery Products ; else if (IND >= 288 and IND <= 288) then OCCINC = 0.093; *OTHER FOOD PRODUCT; else if (IND >= 289 and IND <= 289) then OCCINC = 0.164; *Beverage Industry ; else if (IND >= 297 and IND <= 298) then OCCINC = 0.093; *OTHER FOOD PRODUCT; else if (IND >= 299 and IND <= 299) then OCCINC = 0.012; *Tobacco Manuf. ; else if (IND >= 307 and IND <= 318) then OCCINC = 0.026; *OTHER TEXTILE ; else if (IND >= 319 and IND <= 319) then OCCINC = 0.008; *Apparel and Access; else if (IND >= 327 and IND <= 327) then OCCINC = 0.026; *OTHER TEXTILE ; else if (IND >= 328 and IND <= 328) then OCCINC = 0.241; *Pulp,Paper ; else if (IND >= 329 and IND <= 329) then OCCINC = 0.083; *Misc.Paper and Pul; else if (IND >= 337 and IND <= 337) then OCCINC = 0.062; *Paperboard Boxes ; else if (IND >= 338 and IND <= 338) then OCCINC = 0.207; *Newspapers ; else if (IND >= 339 and IND <= 339) then OCCINC = 0.140; *Printing+Publish. ; else if (IND >= 347 and IND <= 347) then OCCINC = 0.260; *Industrial Chemica; else if (IND >= 348 and IND <= 348) then OCCINC = 0.182; *OTHER CHEMICALS ; else if (IND >= 349 and IND <= 349) then OCCINC = 0.061; *Synthetic Fibers ; else if (IND >= 357 and IND <= 357) then OCCINC = 0.182; *OTHER CHEMICALS ; else if (IND >= 358 and IND <= 358) then OCCINC = 0.175; *Soaps+Cosmetics ; else if (IND >= 359 and IND <= 369) then OCCINC = 0.182; *OTHER CHEMICALS ; else if (IND >= 377 and IND <= 378) then OCCINC = 0.374; *Petroleum + Coal ; else if (IND >= 379 and IND <= 379) then OCCINC = 0.194; *Rubber Products ; else if (IND >= 387 and IND <= 387) then OCCINC = 0.036; *Misc. Plastic ; else if (IND >= 388 and IND <= 388) then OCCINC = 0.048; *Tanned Leather ; else if (IND >= 389 and IND <= 389) then OCCINC = 0.011; *Leather Footwear ; else if (IND >= 397 and IND <= 397) then OCCINC = 0.030; *Other Leather Prod; else if (IND >= 398 and IND <= 398) then OCCINC = 0.052; *NS Manuf. Ind. ; else if (IND >= 399 and IND <= 399) then OCCINC = 0.129; *ALLOC-NONDURABLE M; else if (IND >= 407 and IND <= 407) then OCCINC = 0.109; *Railroads ; else if (IND >= 408 and IND <= 429) then OCCINC = 0.159; *OTHER TRANSPORTATI; else if (IND >= 447 and IND <= 479) then OCCINC = 0.265; *Comm, Util, Sanita; else if (IND >= 499 and IND <= 499) then OCCINC = 0.215; *ALLOC-TRANS,COMM, ; else if (IND >= 507 and IND <= 599) then OCCINC = 0.078; *Wholesale Trade ; else if (IND >= 607 and IND <= 699) then OCCINC = 0.056; *Retail Trade ; else if (IND >= 707 and IND <= 719) then OCCINC = 0.057; *OTHER INDUSTRIES ; else if (IND >= 727 and IND <= 767) then OCCINC = 0.072; *Bus. + Repair Srvs; else if (IND >= 769 and IND <= 899) then OCCINC = 0.057; *OTHER INDUSTRIES ; else if (IND >= 907 and IND <= 947) then OCCINC = 0.128; *Public Administrat; else if (IND > 947) then OCCINC = 0.057; *OTHER INDUSTRIES ; end; else if OCC = 692 then do; * NS MACHINE OPERATIVES ; if (IND = -9) then OCCINC = 0.104; *No IND ; else if ( IND <= 058) then OCCINC = 0.065; *OTHER INDUSTRIES ; else if (IND >= 067 and IND <= 078) then OCCINC = 0.205; *Construction ; else if (IND >= 107 and IND <= 109) then OCCINC = 0.035; *Lumber and Wood ; else if (IND >= 118 and IND <= 118) then OCCINC = 0.024; *Furniture ; else if (IND >= 119 and IND <= 119) then OCCINC = 0.146; *Glass ; else if (IND >= 127 and IND <= 127) then OCCINC = 0.084; *Cement, Concrete ; else if (IND >= 128 and IND <= 138) then OCCINC = 0.083; *OTHER STONE,CLAY,G; else if (IND >= 139 and IND <= 139) then OCCINC = 0.176; *Blast Furnaces ; else if (IND >= 147 and IND <= 147) then OCCINC = 0.105; *Other Primary Meta; else if (IND >= 148 and IND <= 149) then OCCINC = 0.079; *OTHER PRIM. NONFER; else if (IND >= 157 and IND <= 157) then OCCINC = 0.062; *Cutlery, Hand Tool; else if (IND >= 158 and IND <= 158) then OCCINC = 0.063; *Fabricated Metal ; else if (IND >= 159 and IND <= 167) then OCCINC = 0.078; *Screw Machine ; else if (IND >= 168 and IND <= 169) then OCCINC = 0.051; *MISC & NS METAL ; else if (IND >= 177 and IND <= 177) then OCCINC = 0.151; *OTHER MACHINERY ; else if (IND >= 178 and IND <= 178) then OCCINC = 0.141; *Farm Machinery ; else if (IND >= 179 and IND <= 179) then OCCINC = 0.185; *Construction Mach.; else if (IND >= 187 and IND <= 187) then OCCINC = 0.193; *Metalworking Mach.; else if (IND >= 188 and IND <= 189) then OCCINC = 0.148; *Office+Comput.Mach; else if (IND >= 197 and IND <= 198) then OCCINC = 0.151; *OTHER MACHINERY ; else if (IND >= 199 and IND <= 199) then OCCINC = 0.060; *HH Appliances ; else if (IND >= 207 and IND <= 207) then OCCINC = 0.117; *Radio, TV ; else if (IND >= 208 and IND <= 208) then OCCINC = 0.058; *Elect. Mach. n.e.c; else if (IND >= 209 and IND <= 209) then OCCINC = 0.086; *NS Elect. Mach. ; else if (IND >= 219 and IND <= 219) then OCCINC = 0.169; *Car+Car Equipment ; else if (IND >= 227 and IND <= 227) then OCCINC = 0.193; *Aircraft and Parts; else if (IND >= 228 and IND <= 238) then OCCINC = 0.077; *OTHER TRANS. EQUIP; else if (IND >= 239 and IND <= 239) then OCCINC = 0.028; *Scientific Equip. ; else if (IND >= 247 and IND <= 247) then OCCINC = 0.028; *Optical+Health Equ; else if (IND >= 248 and IND <= 249) then OCCINC = 0.156; *OTHER PROF. EQUIP.; else if (IND >= 257 and IND <= 257) then OCCINC = 0.028; *NS Prof. Equip. ; else if (IND >= 258 and IND <= 258) then OCCINC = 0.064; *Ordnance ; else if (IND >= 259 and IND <= 259) then OCCINC = 0.028; *Misc. Manuf. Inds.; else if (IND >= 267 and IND <= 267) then OCCINC = 0.105; *ALLOC-DURABLE MFG ; else if (IND >= 268 and IND <= 268) then OCCINC = 0.086; *Meat Products ; else if (IND >= 269 and IND <= 269) then OCCINC = 0.052; *Dairy Products ; else if (IND >= 278 and IND <= 278) then OCCINC = 0.019; *Canning ; else if (IND >= 279 and IND <= 279) then OCCINC = 0.069; *OTHER FOOD PRODUCT; else if (IND >= 287 and IND <= 287) then OCCINC = 0.036; *Bakery Products ; else if (IND >= 288 and IND <= 288) then OCCINC = 0.069; *OTHER FOOD PRODUCT; else if (IND >= 289 and IND <= 289) then OCCINC = 0.079; *Beverage Industry ; else if (IND >= 297 and IND <= 298) then OCCINC = 0.069; *OTHER FOOD PRODUCT; else if (IND >= 299 and IND <= 299) then OCCINC = 0.025; *Tobacco Manuf. ; else if (IND >= 307 and IND <= 318) then OCCINC = 0.027; *OTHER TEXTILE ; else if (IND >= 319 and IND <= 319) then OCCINC = 0.016; *Apparel and Access; else if (IND >= 327 and IND <= 327) then OCCINC = 0.027; *OTHER TEXTILE ; else if (IND >= 328 and IND <= 328) then OCCINC = 0.190; *Pulp,Paper ; else if (IND >= 329 and IND <= 329) then OCCINC = 0.046; *Misc.Paper and Pul; else if (IND >= 337 and IND <= 337) then OCCINC = 0.055; *Paperboard Boxes ; else if (IND >= 338 and IND <= 338) then OCCINC = 0.098; *Newspapers ; else if (IND >= 339 and IND <= 339) then OCCINC = 0.060; *Printing+Publish. ; else if (IND >= 347 and IND <= 347) then OCCINC = 0.277; *Industrial Chemica; else if (IND >= 348 and IND <= 348) then OCCINC = 0.193; *OTHER CHEMICALS ; else if (IND >= 349 and IND <= 349) then OCCINC = 0.021; *Synthetic Fibers ; else if (IND >= 357 and IND <= 357) then OCCINC = 0.193; *OTHER CHEMICALS ; else if (IND >= 358 and IND <= 358) then OCCINC = 0.140; *Soaps+Cosmetics ; else if (IND >= 359 and IND <= 369) then OCCINC = 0.193; *OTHER CHEMICALS ; else if (IND >= 377 and IND <= 378) then OCCINC = 0.257; *Petroleum + Coal ; else if (IND >= 379 and IND <= 379) then OCCINC = 0.106; *Rubber Products ; else if (IND >= 387 and IND <= 387) then OCCINC = 0.025; *Misc. Plastic ; else if (IND >= 388 and IND <= 388) then OCCINC = 0.075; *Tanned Leather ; else if (IND >= 389 and IND <= 389) then OCCINC = 0.024; *Leather Footwear ; else if (IND >= 397 and IND <= 397) then OCCINC = 0.009; *Other Leather Prod; else if (IND >= 398 and IND <= 398) then OCCINC = 0.035; *NS Manuf. Ind. ; else if (IND >= 399 and IND <= 399) then OCCINC = 0.107; *ALLOC-NONDURABLE M; else if (IND >= 407 and IND <= 407) then OCCINC = 0.038; *Railroads ; else if (IND >= 408 and IND <= 429) then OCCINC = 0.191; *OTHER TRANSPORTATI; else if (IND >= 447 and IND <= 479) then OCCINC = 0.205; *Comm, Util, Sanita; else if (IND >= 499 and IND <= 499) then OCCINC = 0.144; *ALLOC-TRANS,COMM, ; else if (IND >= 507 and IND <= 599) then OCCINC = 0.077; *Wholesale Trade ; else if (IND >= 607 and IND <= 699) then OCCINC = 0.042; *Retail Trade ; else if (IND >= 707 and IND <= 719) then OCCINC = 0.065; *OTHER INDUSTRIES ; else if (IND >= 727 and IND <= 767) then OCCINC = 0.043; *Bus. + Repair Srvs; else if (IND >= 769 and IND <= 899) then OCCINC = 0.065; *OTHER INDUSTRIES ; else if (IND >= 907 and IND <= 947) then OCCINC = 0.090; *Public Administrat; else if (IND > 947) then OCCINC = 0.065; *OTHER INDUSTRIES ; end; else if OCC = 694 then do; * MISCELLANEOUS OPERATIVES ; if (IND = -9) then OCCINC = 0.089; *No IND ; else if ( IND <= 058) then OCCINC = 0.043; *OTHER INDUSTRIES ; else if (IND >= 067 and IND <= 078) then OCCINC = 0.130; *Construction ; else if (IND >= 107 and IND <= 109) then OCCINC = 0.073; *Lumber and Wood ; else if (IND >= 118 and IND <= 118) then OCCINC = 0.039; *Furniture ; else if (IND >= 119 and IND <= 119) then OCCINC = 0.100; *Glass ; else if (IND >= 127 and IND <= 127) then OCCINC = 0.097; *Cement, Concrete ; else if (IND >= 128 and IND <= 138) then OCCINC = 0.065; *OTHER STONE,CLAY,G; else if (IND >= 139 and IND <= 139) then OCCINC = 0.223; *Blast Furnaces ; else if (IND >= 147 and IND <= 147) then OCCINC = 0.145; *Other Primary Meta; else if (IND >= 148 and IND <= 149) then OCCINC = 0.106; *OTHER PRIM. NONFER; else if (IND >= 157 and IND <= 157) then OCCINC = 0.058; *Cutlery, Hand Tool; else if (IND >= 158 and IND <= 158) then OCCINC = 0.077; *Fabricated Metal ; else if (IND >= 159 and IND <= 167) then OCCINC = 0.175; *Screw Machine ; else if (IND >= 168 and IND <= 169) then OCCINC = 0.096; *MISC & NS METAL ; else if (IND >= 177 and IND <= 177) then OCCINC = 0.107; *OTHER MACHINERY ; else if (IND >= 178 and IND <= 178) then OCCINC = 0.074; *Farm Machinery ; else if (IND >= 179 and IND <= 179) then OCCINC = 0.118; *Construction Mach.; else if (IND >= 187 and IND <= 187) then OCCINC = 0.167; *Metalworking Mach.; else if (IND >= 188 and IND <= 189) then OCCINC = 0.134; *Office+Comput.Mach; else if (IND >= 197 and IND <= 198) then OCCINC = 0.107; *OTHER MACHINERY ; else if (IND >= 199 and IND <= 199) then OCCINC = 0.125; *HH Appliances ; else if (IND >= 207 and IND <= 207) then OCCINC = 0.079; *Radio, TV ; else if (IND >= 208 and IND <= 208) then OCCINC = 0.069; *Elect. Mach. n.e.c; else if (IND >= 209 and IND <= 209) then OCCINC = 0.054; *NS Elect. Mach. ; else if (IND >= 219 and IND <= 219) then OCCINC = 0.210; *Car+Car Equipment ; else if (IND >= 227 and IND <= 227) then OCCINC = 0.107; *Aircraft and Parts; else if (IND >= 228 and IND <= 238) then OCCINC = 0.111; *OTHER TRANS. EQUIP; else if (IND >= 239 and IND <= 239) then OCCINC = 0.048; *Scientific Equip. ; else if (IND >= 247 and IND <= 247) then OCCINC = 0.048; *Optical+Health Equ; else if (IND >= 248 and IND <= 249) then OCCINC = 0.185; *OTHER PROF. EQUIP.; else if (IND >= 257 and IND <= 257) then OCCINC = 0.048; *NS Prof. Equip. ; else if (IND >= 258 and IND <= 258) then OCCINC = 0.111; *Ordnance ; else if (IND >= 259 and IND <= 259) then OCCINC = 0.056; *Misc. Manuf. Inds.; else if (IND >= 267 and IND <= 267) then OCCINC = 0.103; *ALLOC-DURABLE MFG ; else if (IND >= 268 and IND <= 268) then OCCINC = 0.071; *Meat Products ; else if (IND >= 269 and IND <= 269) then OCCINC = 0.115; *Dairy Products ; else if (IND >= 278 and IND <= 278) then OCCINC = 0.013; *Canning ; else if (IND >= 279 and IND <= 279) then OCCINC = 0.106; *OTHER FOOD PRODUCT; else if (IND >= 287 and IND <= 287) then OCCINC = 0.023; *Bakery Products ; else if (IND >= 288 and IND <= 288) then OCCINC = 0.106; *OTHER FOOD PRODUCT; else if (IND >= 289 and IND <= 289) then OCCINC = 0.122; *Beverage Industry ; else if (IND >= 297 and IND <= 298) then OCCINC = 0.106; *OTHER FOOD PRODUCT; else if (IND >= 299 and IND <= 299) then OCCINC = 0.011; *Tobacco Manuf. ; else if (IND >= 307 and IND <= 318) then OCCINC = 0.031; *OTHER TEXTILE ; else if (IND >= 319 and IND <= 319) then OCCINC = 0.031; *Apparel and Access; else if (IND >= 327 and IND <= 327) then OCCINC = 0.031; *OTHER TEXTILE ; else if (IND >= 328 and IND <= 328) then OCCINC = 0.101; *Pulp,Paper ; else if (IND >= 329 and IND <= 329) then OCCINC = 0.039; *Misc.Paper and Pul; else if (IND >= 337 and IND <= 337) then OCCINC = 0.048; *Paperboard Boxes ; else if (IND >= 338 and IND <= 338) then OCCINC = 0.063; *Newspapers ; else if (IND >= 339 and IND <= 339) then OCCINC = 0.119; *Printing+Publish. ; else if (IND >= 347 and IND <= 347) then OCCINC = 0.168; *Industrial Chemica; else if (IND >= 348 and IND <= 348) then OCCINC = 0.131; *OTHER CHEMICALS ; else if (IND >= 349 and IND <= 349) then OCCINC = 0.041; *Synthetic Fibers ; else if (IND >= 357 and IND <= 357) then OCCINC = 0.131; *OTHER CHEMICALS ; else if (IND >= 358 and IND <= 358) then OCCINC = 0.112; *Soaps+Cosmetics ; else if (IND >= 359 and IND <= 369) then OCCINC = 0.131; *OTHER CHEMICALS ; else if (IND >= 377 and IND <= 378) then OCCINC = 0.289; *Petroleum + Coal ; else if (IND >= 379 and IND <= 379) then OCCINC = 0.176; *Rubber Products ; else if (IND >= 387 and IND <= 387) then OCCINC = 0.035; *Misc. Plastic ; else if (IND >= 388 and IND <= 388) then OCCINC = 0.072; *Tanned Leather ; else if (IND >= 389 and IND <= 389) then OCCINC = 0.006; *Leather Footwear ; else if (IND >= 397 and IND <= 397) then OCCINC = 0.017; *Other Leather Prod; else if (IND >= 398 and IND <= 398) then OCCINC = 0.071; *NS Manuf. Ind. ; else if (IND >= 399 and IND <= 399) then OCCINC = 0.075; *ALLOC-NONDURABLE M; else if (IND >= 407 and IND <= 407) then OCCINC = 0.041; *Railroads ; else if (IND >= 408 and IND <= 429) then OCCINC = 0.174; *OTHER TRANSPORTATI; else if (IND >= 447 and IND <= 479) then OCCINC = 0.115; *Comm, Util, Sanita; else if (IND >= 499 and IND <= 499) then OCCINC = 0.134; *ALLOC-TRANS,COMM, ; else if (IND >= 507 and IND <= 599) then OCCINC = 0.059; *Wholesale Trade ; else if (IND >= 607 and IND <= 699) then OCCINC = 0.019; *Retail Trade ; else if (IND >= 707 and IND <= 719) then OCCINC = 0.043; *OTHER INDUSTRIES ; else if (IND >= 727 and IND <= 767) then OCCINC = 0.102; *Bus. + Repair Srvs; else if (IND >= 769 and IND <= 899) then OCCINC = 0.043; *OTHER INDUSTRIES ; else if (IND >= 907 and IND <= 947) then OCCINC = 0.115; *Public Administrat; else if (IND > 947) then OCCINC = 0.043; *OTHER INDUSTRIES ; end; else if OCC = 695 then do; * NOT SPECIFIED OPERATIVES ; if (IND = -9) then OCCINC = 0.112; *No IND ; else if ( IND <= 058) then OCCINC = 0.083; *OTHER INDUSTRIES ; else if (IND >= 067 and IND <= 078) then OCCINC = 0.281; *Construction ; else if (IND >= 107 and IND <= 109) then OCCINC = 0.042; *Lumber and Wood ; else if (IND >= 118 and IND <= 118) then OCCINC = 0.032; *Furniture ; else if (IND >= 119 and IND <= 119) then OCCINC = 0.160; *Glass ; else if (IND >= 127 and IND <= 127) then OCCINC = 0.067; *Cement, Concrete ; else if (IND >= 128 and IND <= 138) then OCCINC = 0.111; *OTHER STONE,CLAY,G; else if (IND >= 139 and IND <= 139) then OCCINC = 0.241; *Blast Furnaces ; else if (IND >= 147 and IND <= 147) then OCCINC = 0.153; *Other Primary Meta; else if (IND >= 148 and IND <= 149) then OCCINC = 0.113; *OTHER PRIM. NONFER; else if (IND >= 157 and IND <= 157) then OCCINC = 0.097; *Cutlery, Hand Tool; else if (IND >= 158 and IND <= 158) then OCCINC = 0.104; *Fabricated Metal ; else if (IND >= 159 and IND <= 167) then OCCINC = 0.182; *Screw Machine ; else if (IND >= 168 and IND <= 169) then OCCINC = 0.115; *MISC & NS METAL ; else if (IND >= 177 and IND <= 177) then OCCINC = 0.129; *OTHER MACHINERY ; else if (IND >= 178 and IND <= 178) then OCCINC = 0.086; *Farm Machinery ; else if (IND >= 179 and IND <= 179) then OCCINC = 0.136; *Construction Mach.; else if (IND >= 187 and IND <= 187) then OCCINC = 0.289; *Metalworking Mach.; else if (IND >= 188 and IND <= 189) then OCCINC = 0.123; *Office+Comput.Mach; else if (IND >= 197 and IND <= 198) then OCCINC = 0.129; *OTHER MACHINERY ; else if (IND >= 199 and IND <= 199) then OCCINC = 0.096; *HH Appliances ; else if (IND >= 207 and IND <= 207) then OCCINC = 0.054; *Radio, TV ; else if (IND >= 208 and IND <= 208) then OCCINC = 0.078; *Elect. Mach. n.e.c; else if (IND >= 209 and IND <= 209) then OCCINC = 0.107; *NS Elect. Mach. ; else if (IND >= 219 and IND <= 219) then OCCINC = 0.173; *Car+Car Equipment ; else if (IND >= 227 and IND <= 227) then OCCINC = 0.282; *Aircraft and Parts; else if (IND >= 228 and IND <= 238) then OCCINC = 0.113; *OTHER TRANS. EQUIP; else if (IND >= 239 and IND <= 239) then OCCINC = 0.093; *Scientific Equip. ; else if (IND >= 247 and IND <= 247) then OCCINC = 0.093; *Optical+Health Equ; else if (IND >= 248 and IND <= 249) then OCCINC = 0.227; *OTHER PROF. EQUIP.; else if (IND >= 257 and IND <= 257) then OCCINC = 0.093; *NS Prof. Equip. ; else if (IND >= 258 and IND <= 258) then OCCINC = 0.143; *Ordnance ; else if (IND >= 259 and IND <= 259) then OCCINC = 0.052; *Misc. Manuf. Inds.; else if (IND >= 267 and IND <= 267) then OCCINC = 0.124; *ALLOC-DURABLE MFG ; else if (IND >= 268 and IND <= 268) then OCCINC = 0.071; *Meat Products ; else if (IND >= 269 and IND <= 269) then OCCINC = 0.174; *Dairy Products ; else if (IND >= 278 and IND <= 278) then OCCINC = 0.038; *Canning ; else if (IND >= 279 and IND <= 279) then OCCINC = 0.095; *OTHER FOOD PRODUCT; else if (IND >= 287 and IND <= 287) then OCCINC = 0.013; *Bakery Products ; else if (IND >= 288 and IND <= 288) then OCCINC = 0.095; *OTHER FOOD PRODUCT; else if (IND >= 289 and IND <= 289) then OCCINC = 0.191; *Beverage Industry ; else if (IND >= 297 and IND <= 298) then OCCINC = 0.095; *OTHER FOOD PRODUCT; else if (IND >= 299 and IND <= 299) then OCCINC = 0.021; *Tobacco Manuf. ; else if (IND >= 307 and IND <= 318) then OCCINC = 0.015; *OTHER TEXTILE ; else if (IND >= 319 and IND <= 319) then OCCINC = 0.009; *Apparel and Access; else if (IND >= 327 and IND <= 327) then OCCINC = 0.015; *OTHER TEXTILE ; else if (IND >= 328 and IND <= 328) then OCCINC = 0.128; *Pulp,Paper ; else if (IND >= 329 and IND <= 329) then OCCINC = 0.046; *Misc.Paper and Pul; else if (IND >= 337 and IND <= 337) then OCCINC = 0.065; *Paperboard Boxes ; else if (IND >= 338 and IND <= 338) then OCCINC = 0.161; *Newspapers ; else if (IND >= 339 and IND <= 339) then OCCINC = 0.038; *Printing+Publish. ; else if (IND >= 347 and IND <= 347) then OCCINC = 0.263; *Industrial Chemica; else if (IND >= 348 and IND <= 348) then OCCINC = 0.169; *OTHER CHEMICALS ; else if (IND >= 349 and IND <= 349) then OCCINC = 0.109; *Synthetic Fibers ; else if (IND >= 357 and IND <= 357) then OCCINC = 0.169; *OTHER CHEMICALS ; else if (IND >= 358 and IND <= 358) then OCCINC = 0.114; *Soaps+Cosmetics ; else if (IND >= 359 and IND <= 369) then OCCINC = 0.169; *OTHER CHEMICALS ; else if (IND >= 377 and IND <= 378) then OCCINC = 0.312; *Petroleum + Coal ; else if (IND >= 379 and IND <= 379) then OCCINC = 0.162; *Rubber Products ; else if (IND >= 387 and IND <= 387) then OCCINC = 0.050; *Misc. Plastic ; else if (IND >= 388 and IND <= 388) then OCCINC = 0.073; *Tanned Leather ; else if (IND >= 389 and IND <= 389) then OCCINC = 0.041; *Leather Footwear ; else if (IND >= 397 and IND <= 397) then OCCINC = 0.031; *Other Leather Prod; else if (IND >= 398 and IND <= 398) then OCCINC = 0.036; *NS Manuf. Ind. ; else if (IND >= 399 and IND <= 399) then OCCINC = 0.094; *ALLOC-NONDURABLE M; else if (IND >= 407 and IND <= 407) then OCCINC = 0.117; *Railroads ; else if (IND >= 408 and IND <= 429) then OCCINC = 0.209; *OTHER TRANSPORTATI; else if (IND >= 447 and IND <= 479) then OCCINC = 0.294; *Comm, Util, Sanita; else if (IND >= 499 and IND <= 499) then OCCINC = 0.186; *ALLOC-TRANS,COMM, ; else if (IND >= 507 and IND <= 599) then OCCINC = 0.079; *Wholesale Trade ; else if (IND >= 607 and IND <= 699) then OCCINC = 0.045; *Retail Trade ; else if (IND >= 707 and IND <= 719) then OCCINC = 0.083; *OTHER INDUSTRIES ; else if (IND >= 727 and IND <= 767) then OCCINC = 0.067; *Bus. + Repair Srvs; else if (IND >= 769 and IND <= 899) then OCCINC = 0.083; *OTHER INDUSTRIES ; else if (IND >= 907 and IND <= 947) then OCCINC = 0.246; *Public Administrat; else if (IND > 947) then OCCINC = 0.083; *OTHER INDUSTRIES ; end; else if OCC = 696 then OCCINC = 0.092; else if OCC = 701 then OCCINC = 0.224; else if OCC = 703 then OCCINC = 0.132; else if OCC = 704 then OCCINC = 0.275; else if OCC = 705 then OCCINC = 0.173; else if OCC = 706 then OCCINC = 0.103; else if OCC = 710 then OCCINC = 0.138; else if OCC = 711 then OCCINC = 0.042; else if OCC = 712 then OCCINC = 0.386; else if OCC = 713 then OCCINC = 0.249; else if OCC = 714 then OCCINC = 0.086; else if OCC = 715 then do; * TRUCK DRIVERS ; if (IND = -9) then OCCINC = 0.228; *No IND ; else if ( IND <= 409) then OCCINC = 0.151; *OTHER INDUSTRIES ; else if (IND >= 417 and IND <= 417) then OCCINC = 0.357; *Trucking Service ; else if (IND >= 418) then OCCINC = 0.151; *OTHER INDUSTRIES ; end; else if OCC = 726 then OCCINC = 0.191; else if OCC = 740 then OCCINC = 0.039; else if OCC = 750 then OCCINC = 0.036; else if OCC = 751 then OCCINC = 0.089; else if OCC = 752 then OCCINC = 0.162; else if OCC = 753 then OCCINC = 0.079; else if OCC = 754 then OCCINC = 0.107; else if OCC = 755 then OCCINC = 0.054; else if OCC = 760 then OCCINC = 0.254; else if OCC = 761 then OCCINC = 0.097; else if OCC = 762 then OCCINC = 0.027; else if OCC = 763 then OCCINC = 0.100; else if OCC = 764 then OCCINC = 0.038; else if OCC = 770 then OCCINC = 0.082; else if OCC = 780 then do; * MISCELLANEOUS LABORERS ; if (IND = -9) then OCCINC = 0.075; *No IND ; else if ( IND <= 078) then OCCINC = 0.036; *OTHER INDUSTRIES ; else if (IND >= 107 and IND <= 109) then OCCINC = 0.043; *Lumber and Wood ; else if (IND >= 118 and IND <= 118) then OCCINC = 0.027; *Furniture ; else if (IND >= 119 and IND <= 119) then OCCINC = 0.013; *OTHER STONE,CLAY,G; else if (IND >= 127 and IND <= 127) then OCCINC = 0.059; *Cement, Concrete ; else if (IND >= 128 and IND <= 128) then OCCINC = 0.000; *Structural clay ; else if (IND >= 137 and IND <= 138) then OCCINC = 0.013; *OTHER STONE,CLAY,G; else if (IND >= 139 and IND <= 139) then OCCINC = 0.163; *Blast Furnaces ; else if (IND >= 147 and IND <= 147) then OCCINC = 0.106; *Other Primary Meta; else if (IND >= 148 and IND <= 149) then OCCINC = 0.055; *OTHER PRIM. NONFER; else if (IND >= 157 and IND <= 157) then OCCINC = 0.046; *OTHER FABRIC. META; else if (IND >= 158 and IND <= 158) then OCCINC = 0.065; *Fabricated Metal ; else if (IND >= 159 and IND <= 169) then OCCINC = 0.046; *OTHER FABRIC. META; else if (IND >= 177 and IND <= 198) then OCCINC = 0.094; *MACHINERY, EXC. EL; else if (IND >= 199 and IND <= 209) then OCCINC = 0.061; *ELECTRICAL MACHINE; else if (IND >= 219 and IND <= 219) then OCCINC = 0.168; *Car+Car Equipment ; else if (IND >= 227 and IND <= 227) then OCCINC = 0.063; *OTHER TRANS. EQUIP; else if (IND >= 228 and IND <= 228) then OCCINC = 0.053; *Ship and Boat Buil; else if (IND >= 229 and IND <= 238) then OCCINC = 0.063; *OTHER TRANS. EQUIP; else if (IND >= 239 and IND <= 257) then OCCINC = 0.146; *PROF+PHOTO EQUIP. ; else if (IND >= 258 and IND <= 258) then OCCINC = 0.072; *Ordnance ; else if (IND >= 259 and IND <= 259) then OCCINC = 0.052; *Misc. Manuf. Inds.; else if (IND >= 267 and IND <= 267) then OCCINC = 0.099; *ALLOC-DURABLE MFG ; else if (IND >= 268 and IND <= 268) then OCCINC = 0.125; *Meat Products ; else if (IND >= 269 and IND <= 269) then OCCINC = 0.000; *Dairy Products ; else if (IND >= 278 and IND <= 278) then OCCINC = 0.024; *Canning ; else if (IND >= 279 and IND <= 279) then OCCINC = 0.000; *Grain-mill product; else if (IND >= 287 and IND <= 288) then OCCINC = 0.000; *OTHER FOOD PRODUCT; else if (IND >= 289 and IND <= 289) then OCCINC = 0.022; *Beverage Industry ; else if (IND >= 297 and IND <= 298) then OCCINC = 0.000; *OTHER FOOD PRODUCT; else if (IND >= 299 and IND <= 299) then OCCINC = 0.000; *Tobacco Manuf. ; else if (IND >= 307 and IND <= 309) then OCCINC = 0.022; *OTHER TEXTILE ; else if (IND >= 317 and IND <= 317) then OCCINC = 0.000; *Yarn, Thread,Fabri; else if (IND >= 318 and IND <= 318) then OCCINC = 0.022; *OTHER TEXTILE ; else if (IND >= 319 and IND <= 327) then OCCINC = 0.000; *APPAREL+FAB.TEXTIL; else if (IND >= 328 and IND <= 328) then OCCINC = 0.158; *Pulp,Paper ; else if (IND >= 329 and IND <= 337) then OCCINC = 0.035; *OTHER PAPER+PULP ; else if (IND >= 338 and IND <= 339) then OCCINC = 0.095; *PRINTING+PUBLISHIN; else if (IND >= 347 and IND <= 369) then OCCINC = 0.017; *CHEMICAL AND ALLIE; else if (IND >= 377 and IND <= 378) then OCCINC = 0.064; *PETROLEUM + COAL ; else if (IND >= 379 and IND <= 387) then OCCINC = 0.107; *RUBBER+PLASTIC ; else if (IND >= 388 and IND <= 397) then OCCINC = 0.049; *LEATHER PRODUCTS ; else if (IND >= 398 and IND <= 398) then OCCINC = 0.000; *NS Manuf. Ind. ; else if (IND >= 399 and IND <= 399) then OCCINC = 0.063; *ALLOC-NONDURABLE M; else if (IND >= 407 and IND <= 407) then OCCINC = 0.038; *Railroads ; else if (IND >= 408 and IND <= 429) then OCCINC = 0.104; *OTHER TRANSPORTATI; else if (IND >= 447 and IND <= 479) then OCCINC = 0.075; *Comm, Util, Sanita; else if (IND >= 499 and IND <= 499) then OCCINC = 0.057; *ALLOC-TRANS,COMM,U; else if (IND >= 507 and IND <= 599) then OCCINC = 0.082; *Wholesale Trade ; else if (IND >= 607 and IND <= 699) then OCCINC = 0.025; *Retail Trade ; else if (IND >= 707 and IND <= 719) then OCCINC = 0.036; *OTHER INDUSTRIES ; else if (IND >= 727 and IND <= 767) then OCCINC = 0.190; *Bus. + Repair Srvs; else if (IND >= 769 and IND <= 769) then OCCINC = 0.015; *Private Households; else if (IND >= 777 and IND <= 798) then OCCINC = 0.000; *OTHER SERVICE ; else if (IND >= 799 and IND <= 799) then OCCINC = 0.006; *ALLOC-SERVICE ; else if (IND >= 807 and IND <= 899) then OCCINC = 0.036; *OTHER INDUSTRIES ; else if (IND >= 907 and IND <= 947) then OCCINC = 0.081; *Public Administrat; else if (IND > 947) then OCCINC = 0.036; *OTHER INDUSTRIES ; end; else if OCC = 785 then do; * NOT SPECIFIED LABORERS ; if (IND = -9) then OCCINC = 0.036; *No IND ; else if ( IND <= 078) then OCCINC = 0.024; *OTHER INDUSTRIES ; else if (IND >= 107 and IND <= 109) then OCCINC = 0.016; *Lumber and Wood ; else if (IND >= 118 and IND <= 118) then OCCINC = 0.009; *Furniture ; else if (IND >= 119 and IND <= 119) then OCCINC = 0.031; *OTHER STONE,CLAY,G; else if (IND >= 127 and IND <= 127) then OCCINC = 0.039; *Cement, Concrete ; else if (IND >= 128 and IND <= 128) then OCCINC = 0.000; *Structural clay ; else if (IND >= 137 and IND <= 138) then OCCINC = 0.031; *OTHER STONE,CLAY,G; else if (IND >= 139 and IND <= 139) then OCCINC = 0.066; *Blast Furnaces ; else if (IND >= 147 and IND <= 147) then OCCINC = 0.045; *Other Primary Meta; else if (IND >= 148 and IND <= 149) then OCCINC = 0.034; *OTHER PRIM. NONFER; else if (IND >= 157 and IND <= 157) then OCCINC = 0.027; *OTHER FABRIC. META; else if (IND >= 158 and IND <= 158) then OCCINC = 0.038; *Fabricated Metal ; else if (IND >= 159 and IND <= 169) then OCCINC = 0.027; *OTHER FABRIC. META; else if (IND >= 177 and IND <= 198) then OCCINC = 0.039; *MACHINERY, EXC. EL; else if (IND >= 199 and IND <= 209) then OCCINC = 0.022; *ELECTRICAL MACHINE; else if (IND >= 219 and IND <= 219) then OCCINC = 0.084; *Car+Car Equipment ; else if (IND >= 227 and IND <= 227) then OCCINC = 0.038; *OTHER TRANS. EQUIP; else if (IND >= 228 and IND <= 228) then OCCINC = 0.036; *Ship and Boat Buil; else if (IND >= 229 and IND <= 238) then OCCINC = 0.038; *OTHER TRANS. EQUIP; else if (IND >= 239 and IND <= 257) then OCCINC = 0.018; *PROF+PHOTO EQUIP. ; else if (IND >= 258 and IND <= 258) then OCCINC = 0.031; *Ordnance ; else if (IND >= 259 and IND <= 259) then OCCINC = 0.034; *Misc. Manuf. Inds.; else if (IND >= 267 and IND <= 267) then OCCINC = 0.038; *ALLOC-DURABLE MFG ; else if (IND >= 268 and IND <= 268) then OCCINC = 0.098; *Meat Products ; else if (IND >= 269 and IND <= 269) then OCCINC = 0.039; *Dairy Products ; else if (IND >= 278 and IND <= 278) then OCCINC = 0.015; *Canning ; else if (IND >= 279 and IND <= 279) then OCCINC = 0.063; *Grain-mill product; else if (IND >= 287 and IND <= 288) then OCCINC = 0.026; *OTHER FOOD PRODUCT; else if (IND >= 289 and IND <= 289) then OCCINC = 0.086; *Beverage Industry ; else if (IND >= 297 and IND <= 298) then OCCINC = 0.026; *OTHER FOOD PRODUCT; else if (IND >= 299 and IND <= 299) then OCCINC = 0.000; *Tobacco Manuf. ; else if (IND >= 307 and IND <= 309) then OCCINC = 0.014; *OTHER TEXTILE ; else if (IND >= 317 and IND <= 317) then OCCINC = 0.003; *Yarn, Thread,Fabri; else if (IND >= 318 and IND <= 318) then OCCINC = 0.014; *OTHER TEXTILE ; else if (IND >= 319 and IND <= 327) then OCCINC = 0.023; *APPAREL+FAB.TEXTIL; else if (IND >= 328 and IND <= 328) then OCCINC = 0.034; *Pulp,Paper ; else if (IND >= 329 and IND <= 337) then OCCINC = 0.020; *OTHER PAPER+PULP ; else if (IND >= 338 and IND <= 339) then OCCINC = 0.040; *PRINTING+PUBLISHIN; else if (IND >= 347 and IND <= 369) then OCCINC = 0.045; *CHEMICAL AND ALLIE; else if (IND >= 377 and IND <= 378) then OCCINC = 0.056; *PETROLEUM + COAL ; else if (IND >= 379 and IND <= 387) then OCCINC = 0.090; *RUBBER+PLASTIC ; else if (IND >= 388 and IND <= 397) then OCCINC = 0.007; *LEATHER PRODUCTS ; else if (IND >= 398 and IND <= 398) then OCCINC = 0.025; *NS Manuf. Ind. ; else if (IND >= 399 and IND <= 399) then OCCINC = 0.043; *ALLOC-NONDURABLE M; else if (IND >= 407 and IND <= 407) then OCCINC = 0.063; *Railroads ; else if (IND >= 408 and IND <= 429) then OCCINC = 0.063; *OTHER TRANSPORTATI; else if (IND >= 447 and IND <= 479) then OCCINC = 0.052; *Comm, Util, Sanita; else if (IND >= 499 and IND <= 499) then OCCINC = 0.058; *ALLOC-TRANS,COMM,U; else if (IND >= 507 and IND <= 599) then OCCINC = 0.033; *Wholesale Trade ; else if (IND >= 607 and IND <= 699) then OCCINC = 0.016; *Retail Trade ; else if (IND >= 707 and IND <= 719) then OCCINC = 0.024; *OTHER INDUSTRIES ; else if (IND >= 727 and IND <= 767) then OCCINC = 0.023; *Bus. + Repair Srvs; else if (IND >= 769 and IND <= 769) then OCCINC = 0.016; *Private Households; else if (IND >= 777 and IND <= 798) then OCCINC = 0.038; *OTHER SERVICE ; else if (IND >= 799 and IND <= 799) then OCCINC = 0.022; *ALLOC-SERVICE ; else if (IND >= 807 and IND <= 899) then OCCINC = 0.024; *OTHER INDUSTRIES ; else if (IND >= 907 and IND <= 947) then OCCINC = 0.030; *Public Administrat; else if (IND > 947) then OCCINC = 0.024; *OTHER INDUSTRIES ; end; else if OCC = 796 then OCCINC = 0.065; else if OCC = 801 then OCCINC = 0.204; else if OCC = 802 then OCCINC = 0.286; else if OCC = 806 then OCCINC = 0.207; else if OCC = 821 then OCCINC = 0.132; else if OCC = 822 then OCCINC = 0.024; else if OCC = 823 then OCCINC = 0.014; else if OCC = 824 then OCCINC = 0.191; else if OCC = 846 then OCCINC = 0.027; else if OCC = 901 then OCCINC = 0.006; else if OCC = 902 then OCCINC = 0.020; else if OCC = 903 then OCCINC = 0.051; else if OCC = 910 then OCCINC = 0.102; else if OCC = 911 then OCCINC = 0.004; else if OCC = 912 then OCCINC = 0.033; else if OCC = 913 then OCCINC = 0.004; else if OCC = 914 then OCCINC = 0.007; else if OCC = 915 then OCCINC = 0.009; else if OCC = 916 then OCCINC = 0.009; else if OCC = 921 then OCCINC = 0.011; else if OCC = 922 then OCCINC = 0.023; else if OCC = 923 then OCCINC = 0.006; else if OCC = 924 then OCCINC = 0.017; else if OCC = 925 then OCCINC = 0.008; else if OCC = 926 then OCCINC = 0.013; else if OCC = 931 then OCCINC = 0.048; else if OCC = 932 then OCCINC = 0.066; else if OCC = 933 then OCCINC = 0.039; else if OCC = 934 then OCCINC = 0.030; else if OCC = 935 then OCCINC = 0.125; else if OCC = 940 then OCCINC = 0.127; else if OCC = 941 then OCCINC = 0.008; else if OCC = 942 then OCCINC = 0.009; else if OCC = 943 then OCCINC = 0.041; else if OCC = 944 then OCCINC = 0.048; else if OCC = 945 then OCCINC = 0.000; else if OCC = 950 then OCCINC = 0.068; else if OCC = 952 then OCCINC = 0.007; else if OCC = 953 then OCCINC = 0.014; else if OCC = 954 then OCCINC = 0.054; else if OCC = 960 then OCCINC = 0.031; else if OCC = 961 then OCCINC = 0.437; else if OCC = 962 then OCCINC = 0.138; else if OCC = 963 then OCCINC = 0.250; else if OCC = 964 then do; * POLICEMEN AND DETECTIVES ; if (COW =-9) then OCCINC = 0.374; *No COW ; else if (COW = 2) then OCCINC = 0.383; *Government ; else if (COW>=1 and COW<=6) then OCCINC = 0.211; *OTHER COWs ; else OCCINC = 0.374; *OTHER COWs ; end; else if OCC = 965 then OCCINC = 0.242; else if OCC = 976 then OCCINC = 0.060; else if OCC = 980 then OCCINC = 0.002; else if OCC = 981 then OCCINC = 0.005; else if OCC = 982 then OCCINC = 0.004; else if OCC = 983 then OCCINC = 0.006; else if OCC = 984 then OCCINC = 0.003; else if OCC = 986 then OCCINC = 0.003; /* erroneous code - never executed in 1922-1994 due to fact none of the source files set census to 1 corrected for future reference on 5/15/06 if CENSUS=1 then do; **** Use CENSUS Defn of Allocated Occs ****; if OCC = 196 then OCCED = 0.269; *** Prof,Tech Alloc***; else if OCC = 246 then OCCED = 0.357; *** Managers Alloc ***; else if OCC = 296 then OCCED = 0.149; *** Sales Alloc ***; else if OCC = 396 then OCCED = 0.069; *** Clerical Alloc ***; else if OCC = 586 then OCCED = 0.236; *** Crafts Alloc ***; else if OCC = 696 then OCCED = 0.082; *** Operatives Alloc**; else if OCC = 726 then OCCED = 0.135; *** Trans.Equip.Alloc*; else if OCC = 796 then OCCED = 0.071; *** Laborers Alloc ***; else if OCC = 806 then OCCED = 0.156; *** Farmers Alloc ***; else if OCC = 846 then OCCED = 0.024; *** Farm Laborer All**; else if OCC = 976 then OCCED = 0.051; *** Service Alloc ***; else if OCC = 986 then OCCED = 0.005; *** Pr.HH Alloc ***; end; */ if CENSUS=1 then do; **** Use CENSUS Defn of Allocated Occs ****; if OCC = 196 then OCCINC = 0.269; *** Prof,Tech Alloc***; else if OCC = 246 then OCCINC = 0.357; *** Managers Alloc ***; else if OCC = 296 then OCCINC = 0.149; *** Sales Alloc ***; else if OCC = 396 then OCCINC = 0.069; *** Clerical Alloc ***; else if OCC = 586 then OCCINC = 0.236; *** Crafts Alloc ***; else if OCC = 696 then OCCINC = 0.082; *** Operatives Alloc**; else if OCC = 726 then OCCINC = 0.135; *** Trans.Equip.Alloc*; else if OCC = 796 then OCCINC = 0.071; *** Laborers Alloc ***; else if OCC = 806 then OCCINC = 0.156; *** Farmers Alloc ***; else if OCC = 846 then OCCINC = 0.024; *** Farm Laborer All**; else if OCC = 976 then OCCINC = 0.051; *** Service Alloc ***; else if OCC = 986 then OCCINC = 0.005; *** Pr.HH Alloc ***; end; *** Transform to Started Logits & Multiply by 1000 ***; if OCCINC ^= . then do; OCCINCSL = log((OCCINC*100+1)/(100-OCCINC*100+1)); OCCINCSL = round(OCCINCSL,.01); OCCINCSL = round(OCCINCSL*100); OCCINC = OCCINC*1000; end; if OCCINC = . and WAVE1 = 1 then do; if OCC = 997 then OCCINC = 9997; *Don't know ; else if OCC = 998 then OCCINC = 9998; *Inapp ; else if OCC = 999 then OCCINC = 9999; *Refused ; else if OCC >= 970 and OCC <= 974 then OCCINC = 9999; *Military ; else if OCC = 580 then OCCINC = 9999; *Former Mil.; else if OCC = 985 then OCCINC = 9998; *Housewife ; else if OCC >= 991 and OCC <= 996 then OCCINC = 9998; *Other-Inapp; end; else if OCCINC = . and WAVE1 ^= 1 then do; if OCC = 997 then OCCINC = 9997; *Don't know ; else if OCC = 998 then OCCINC = 9998; *Inapp ; else if OCC = 999 then OCCINC = 9999; *Refused ; else if OCC >= 970 and OCC <= 974 then OCCINC = 9998; *Military ; else if OCC = 580 then OCCINC = 9999; *Former Mil.; else if OCC = 985 then OCCINC = 9998; *Housewife ; else if OCC >= 991 and OCC <= 996 then OCCINC = 9998; *Other-Inapp; end; RETURN;