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