*                      Computer Operations Request #521C

DATES:     Original version 8/17/94 (revised 1/13/95 and 4/15/95,
            REPLACED with major corrections 12/95 - J.Sheridan, R.Hauser 
            and T.Hauser)

PURPOSE:   To construct 1970 Major industry code, 1970 Major occupation
            code, 1970 Duncan SEI score, 1970 Siegel prestige score, 1970 MSEI2
            occupational status score, and 1970 TSEI2 occupational status score
            for the 1992/94 WLS follow-up surveys.

 NOTE:      This is an update of COR521B.  It corrects major errors created
            in the creation of status and prestige scores in COR521B. 

            DO NOT USE EARLIER VERSIONS OF THIS COR!
**************************************************************************

The differences between COR521B and COR521C are as follows:

Errors in the creation of Duncan Status Scores:

A.   All recodes split by occupation and industry were recoded
     incorrectly in COR521B to 2-digits instead of 3-digits.

B.   The following errors were located in the Duncan recoding in
     COR521B:

               COR521B   COR521C
     1970      Duncan    Duncan
     Occ        error    corrected

     711       118       188
     962       182       183
     986       170       080

C.   Occupation codes that were not legitimate 1970 occupation
     codes were removed from COR521C.

     691, 693, 781-784

Errors in the creation of Siegel Prestige Scores:

A.   Recodes for the following occupations were incorrectly listed
     as split by industry and occupation and coded Siegel = 999. 
     They should not have been split at all and should have had the
     following codes:

               COR521B   COR521C
     1970      Siegel    Siegel
     Occ        error    corrected

     452       999       313
     780       999       191
     785       999       175

B.   The following additional errors were located in the Siegel
     recoding in COR521B:

               COR521B   COR521C
     1970      Siegel    Siegel
     Occ        error    corrected

     196       510       596
     246       500       504
     296       340       336
     396       360       394
     586       470       388
     672       282       283
     696       320       287
     711       220       215
     714       215       220
     726       290       287
     846       190       187
     964       999       477
     976       250       252
     986       180       196
************************************************************************** 

NOTE:      This version was used to create WLS23R_2 (1992/93 data) and will
            be used to create the WLS23S (1993/94 sibling) analysis
            tapes for all data releases after 12/95.  This version uses the 
            class of worker codes that are consistent with the previous WLS 
            analysis tapes (i.e.,1 = private, 2 = government).

****************************************************************************
****************************************************************************

IMPORTANT NOTE ABOUT SELF-EMPLOYMENT:

1 - For the Duncan Status and Siegel Prestige Scores, "employee of own
    corporation" is treated as "salaried worker - not self-employed".
    This is consistent with the Census Bureau treatment of these workers.

2 - For the creation of Major Occupational Groups, "employee of own
    corporation" is treated the same as all self-employed.  This is more
    accurate but is less like Census Bureau treatment of these workers.

3 - For all aspiration questions where we only know self-employed or not,
    individuals are listed as self-employed.

*************************************************************************
*************************************************************************

            In order to create these variables use the SAS code in this
            document.  Just replace the terms below with the corresponding
            variable names:

            INDUS refers to the 1970 Census detailed industry code.

            OCCUP refers to the 1970 Census detailed occupation code.

            CLASSW refers to the Class of worker code.




Variable                                                                  Page

1970 Major industry code . . . . . . . . . . . . . . . . . . . . . . . . . . 2


1970 Major occupation code . . . . . . . . . . . . . . . . . . . . . . . . . 3


1970 Duncan SEI score. . . . . . . . . . . . . . . . . . . . . . . . . . . . 4


1970 Siegel prestige score . . . . . . . . . . . . . . . . . . . . . . . . .32


1970 MSEI2 occupational status score . . . . . . . . . . . . . . . . . . . .60


1970 TSEI2 occupational status score.. . . . . . . . . . . . . . . . . . . .68


*1970 Major industry code;

MAJIND70:
if OCCUP >= 970 and OCCUP <= 974 then MAJIND = 11;  *military;
else if OCCUP = 985 then MAJIND = 98; *housework;
else if INDUS >= 17 and INDUS <= 29 then MAJIND = 1;
else if INDUS >= 47 and INDUS <= 58 then MAJIND = 2;
else if INDUS >= 67 and INDUS <= 78 then MAJIND = 3;
else if INDUS >= 107 and INDUS <= 399 then MAJIND = 4;
else if INDUS >= 407 and INDUS <= 499 then MAJIND = 5;
else if INDUS >= 507 and INDUS <= 699 then MAJIND = 6;
else if INDUS >= 707 and INDUS <= 719 then MAJIND = 7;
else if INDUS >= 727 and INDUS <= 767 then MAJIND = 8;
else if INDUS >= 769 and INDUS <= 799 then MAJIND = 9;
else if INDUS >= 807 and INDUS <= 826 then MAJIND = 10;
else if INDUS >= 907 and INDUS <= 947 then MAJIND = 11;
else if INDUS >= 827 and INDUS <= 899 then MAJIND = 12;
else if INDUS = 768 then MAJIND = 98; *housework;
else if INDUS >= 991 and INDUS <= 996 then MAJIND = 98;
else if INDUS = 997 then MAJIND = 97;
else if INDUS = 998 then MAJIND = 98;
else if INDUS = 999 then MAJIND = 99;
else MAJIND = .;
return;

*1970 Major occupation code;

MAJOCC70:
if (OCCUP >= 1 and OCCUP <= 196) and (CLASSW >= 3 and CLASSW <= 6)
            then MAJOCC = 1; *self-employed;
            *should be family business with no pay. Therefore, the corrected
            occasp.dat and sboccasp.dat files with family business with pay
            recoded to private or self-employed should be fine;

else if (OCCUP >= 1 and OCCUP <= 196) and CLASSW ^= 3 and
            CLASSW ^= 4 and CLASSW ^= 5 and CLASSW ^= 6 then MAJOCC = 2;
            *not self-employed;
else if (OCCUP >= 201 and OCCUP <= 246) and CLASSW ^= 3 and
            CLASSW ^= 4 and CLASSW ^= 5 and CLASSW ^= 6 then MAJOCC = 3;
            *not self-employed;
else if (OCCUP >= 201 and OCCUP <= 246) and (CLASSW >= 3 and
            CLASSW <= 6) then MAJOCC = 4; *self-employed;
            *should be family business with no pay. Therefore, the corrected
            occasp.dat and sboccasp.dat files with family business with pay
            recoded to private or self-employed should be fine;

else if (OCCUP >= 260 and OCCUP <= 296) and (INDUS >= 17 and
            INDUS <= 599) then MAJOCC = 5;
else if (OCCUP >= 260 and OCCUP <= 296) and (INDUS >= 707 and
            INDUS <= 997) then MAJOCC = 5;
else if (OCCUP >= 260 and OCCUP <= 296) and INDUS = 999
            then MAJOCC = 5;
else if (OCCUP >= 260 and OCCUP <= 296) and (INDUS >= 607 and
            INDUS <= 699) then MAJOCC = 6;
else if (OCCUP >= 301 and OCCUP <= 396) then MAJOCC = 7;
else if (OCCUP >= 401 and OCCUP <= 586) and (INDUS >= 107 and
            INDUS <= 398) then MAJOCC = 8;
else if (OCCUP >= 401 and OCCUP <= 586) and (INDUS >= 67 and
            INDUS <= 77) then MAJOCC = 9;
else if (OCCUP >= 401 and OCCUP <= 586) and (INDUS >= 17 and
            INDUS <= 57) then MAJOCC = 10;
else if (OCCUP >= 401 and OCCUP <= 586) and (INDUS >= 407 and
            INDUS <= 997) then MAJOCC = 10;
else if (OCCUP >= 401 and OCCUP <= 586) and INDUS = 999
            then MAJOCC = 10;
else if (OCCUP >= 601 and OCCUP <= 726) and (INDUS >= 107 and
            INDUS <= 398) then MAJOCC = 11;
else if (OCCUP >= 601 and OCCUP <= 726) and (INDUS >= 17 and
            INDUS <= 77) then MAJOCC = 12;
else if (OCCUP >= 601 and OCCUP <= 726) and (INDUS >= 407 and
            INDUS <= 997) then MAJOCC = 12;
else if (OCCUP >= 601 and OCCUP <= 726) and INDUS = 999
            then MAJOCC = 12;
else if OCCUP >= 901 and OCCUP <= 965 then MAJOCC = 13;
else if OCCUP = 976 then MAJOCC = 13;
else if OCCUP >= 980 and OCCUP <= 984 then MAJOCC = 13;
else if OCCUP = 986 then MAJOCC = 13;
else if (OCCUP >= 740 and OCCUP <= 796) and (INDUS >= 107 and
            INDUS <= 398) then MAJOCC = 14;
else if (OCCUP >= 740 and OCCUP <= 796) and (INDUS >= 17 and
            INDUS <= 77) then MAJOCC = 15;
else if (OCCUP >= 740 and OCCUP <= 796) and (INDUS >= 407 and
            INDUS <= 997) then MAJOCC = 15;
else if (OCCUP >= 740 and OCCUP <= 796) and INDUS = 999
            then MAJOCC = 15;
else if OCCUP >= 801 and OCCUP <= 806 then MAJOCC = 16;
else if OCCUP >= 821 and OCCUP <= 846 then MAJOCC = 17;
else if OCCUP = 985 then MAJOCC = 98;  *housework;
else if OCCUP >= 970 and OCCUP <= 974 then MAJOCC = 98; *military;
else if OCCUP >= 993 and OCCUP <= 996 then MAJOCC = 98;
else if OCCUP = 997 then MAJOCC = 97;
else if OCCUP = 998 then MAJOCC = 98;
else if OCCUP = 999 then MAJOCC = 99;
else if INDUS >= 991 and INDUS <= 996 then MAJOCC = 98;
else MAJOCC = .;
return;


*1970 Duncan SEI score;

DUNCAN70:
if OCCUP = 001 then DUNC = 768;
else if OCCUP = 002 then DUNC = 852;
else if OCCUP = 003 then DUNC = 650;
else if OCCUP = 004 then DUNC = 650;
else if OCCUP = 005 then DUNC = 650;
else if OCCUP = 006 then DUNC = 870;
else if OCCUP = 010 then DUNC = 899;
else if OCCUP = 011 then DUNC = 840;
else if OCCUP = 012 then DUNC = 840;
else if OCCUP = 013 then DUNC = 855;
else if OCCUP = 014 then DUNC = 802;
else if OCCUP = 015 then DUNC = 831;
else if OCCUP = 020 then DUNC = 850;
else if OCCUP = 021 then DUNC = 810;
else if OCCUP = 022 then DUNC = 870;
else if OCCUP = 023 then DUNC = 869;
else if OCCUP = 024 then DUNC = 830;
else if OCCUP = 025 then DUNC = 480;
else if OCCUP = 026 then DUNC = 830;
else if OCCUP = 030 then DUNC = 930;
else if OCCUP = 031 then DUNC = 923;
else if OCCUP = 032 then DUNC = 600;
else if OCCUP = 033 then DUNC = 746;
else if OCCUP = 034 then DUNC = 810;
else if OCCUP = 035 then DUNC = 800;
else if OCCUP = 036 then DUNC = 810;
else if OCCUP = 042 then DUNC = 800;
else if OCCUP = 043 then DUNC = 620;
else if OCCUP = 044 then DUNC = 800;
else if OCCUP = 045 then DUNC = 794;
else if OCCUP = 051 then DUNC = 800;
else if OCCUP = 052 then DUNC = 800;
else if OCCUP = 053 then DUNC = 800;
else if OCCUP = 054 then DUNC = 772;
else if OCCUP = 055 then DUNC = 657;
else if OCCUP = 056 then DUNC = 836;
else if OCCUP = 061 then DUNC = 750;
else if OCCUP = 062 then DUNC = 960;
else if OCCUP = 063 then DUNC = 790;
else if OCCUP = 064 then DUNC = 813;
else if OCCUP = 065 then DUNC = 921;
else if OCCUP = 071 then DUNC = 580;
else if OCCUP = 072 then DUNC = 780;
else if OCCUP = 073 then DUNC = 580;
else if OCCUP = 074 then DUNC = 390;
else if OCCUP = 075 then DUNC = 443;
else if OCCUP = 076 then DUNC = 599;
else if OCCUP = 080 then DUNC = 480;
else if OCCUP = 081 then DUNC = 480;
else if OCCUP = 082 then DUNC = 600;
else if OCCUP = 083 then DUNC = 480;
else if OCCUP = 084 then DUNC = 480;
else if OCCUP = 085 then DUNC = 522;
else if OCCUP = 086 then DUNC = 520;
else if OCCUP = 090 then DUNC = 567;
else if OCCUP = 091 then DUNC = 744;
else if OCCUP = 092 then DUNC = 810;
else if OCCUP = 093 then DUNC = 810;
else if OCCUP = 094 then DUNC = 810;
else if OCCUP = 095 then DUNC = 650;
else if OCCUP = 096 then DUNC = 810;
else if OCCUP = 100 then DUNC = 640;
else if OCCUP = 101 then DUNC = 670;
else if OCCUP = 102 then DUNC = 840;
else if OCCUP = 103 then DUNC = 840;
else if OCCUP = 104 then DUNC = 840;
else if OCCUP = 105 then DUNC = 840;
else if OCCUP = 110 then DUNC = 840;
else if OCCUP = 111 then DUNC = 840;
else if OCCUP = 112 then DUNC = 840;
else if OCCUP = 113 then DUNC = 840;
else if OCCUP = 114 then DUNC = 840;
else if OCCUP = 115 then DUNC = 840;
else if OCCUP = 116 then DUNC = 840;
else if OCCUP = 120 then DUNC = 840;
else if OCCUP = 121 then DUNC = 840;
else if OCCUP = 122 then DUNC = 840;
else if OCCUP = 123 then DUNC = 532;
else if OCCUP = 124 then DUNC = 640;
else if OCCUP = 125 then DUNC = 840;
else if OCCUP = 126 then DUNC = 840;
else if OCCUP = 130 then DUNC = 840;
else if OCCUP = 131 then DUNC = 720;
else if OCCUP = 132 then DUNC = 840;
else if OCCUP = 133 then DUNC = 840;
else if OCCUP = 134 then DUNC = 840;
else if OCCUP = 135 then DUNC = 840;
else if OCCUP = 140 then DUNC = 840;
else if OCCUP = 141 then DUNC = 613;
else if OCCUP = 142 then DUNC = 712;
else if OCCUP = 143 then DUNC = 720;
else if OCCUP = 144 then DUNC = 702;
else if OCCUP = 145 then DUNC = 623;
else if OCCUP = 150 then DUNC = 620;
else if OCCUP = 151 then DUNC = 620;
else if OCCUP = 152 then DUNC = 670;
else if OCCUP = 153 then DUNC = 620;
else if OCCUP = 154 then DUNC = 641;
else if OCCUP = 155 then DUNC = 620;
else if OCCUP = 156 then DUNC = 530;
else if OCCUP = 161 then DUNC = 484;
else if OCCUP = 162 then DUNC = 620;
else if OCCUP = 163 then DUNC = 790;
else if OCCUP = 164 then DUNC = 690;
else if OCCUP = 165 then DUNC = 608;
else if OCCUP = 170 then DUNC = 480;
else if OCCUP = 171 then DUNC = 690;
else if OCCUP = 172 then DUNC = 620;
else if OCCUP = 173 then DUNC = 620;
else if OCCUP = 174 then DUNC = 650;
else if OCCUP = 175 then DUNC = 600;
else if OCCUP = 180 then DUNC = 594;
else if OCCUP = 181 then DUNC = 760;
else if OCCUP = 182 then DUNC = 450;
else if OCCUP = 183 then DUNC = 705;
else if OCCUP = 184 then DUNC = 820;
else if OCCUP = 185 then DUNC = 520;
else if OCCUP = 190 then DUNC = 670;
else if OCCUP = 191 then DUNC = 500;
else if OCCUP = 192 then DUNC = 820;
else if OCCUP = 193 then DUNC = 650;
else if OCCUP = 194 then DUNC = 402;
else if OCCUP = 195 then DUNC = 650;
else if OCCUP = 196 then DUNC = 750;
else if OCCUP = 201 then DUNC = 612;
else if OCCUP = 202 then DUNC = 795;
else if OCCUP = 203 then DUNC = 505;
else if OCCUP = 205 then DUNC = 721;
else if OCCUP = 210 then DUNC = 740;
else if OCCUP = 211 then DUNC = 590;
else if OCCUP = 212 then DUNC = 741;
else if OCCUP = 213 then DUNC = 576;
else if OCCUP = 215 then DUNC = 667;
else if OCCUP = 216 then DUNC = 320;
else if OCCUP = 220 then DUNC = 751;
else if OCCUP = 221 then DUNC = 499;
else if OCCUP = 222 then DUNC = 673;
else if OCCUP = 223 then DUNC = 598;
else if OCCUP = 224 then DUNC = 613;
else if OCCUP = 225 then DUNC = 747;
else if OCCUP = 226 then DUNC = 582;
else if OCCUP = 230 then DUNC = 376;
else if OCCUP = 231 then DUNC = 706;
else if OCCUP = 233 then DUNC = 747;
else if OCCUP = 235 then DUNC = 779;
else if OCCUP = 240 then DUNC = 717;
else if OCCUP = 245 and (INDUS >= 017 and INDUS <= 058) and
            (CLASSW >= 4 and CLASSW <= 6) then DUNC = 490;
else if OCCUP = 245 and (INDUS >= 017 and INDUS <= 058) and
            (CLASSW >= 1 and CLASSW <= 3 or CLASSW >= 7)
            then DUNC = 620;
else if OCCUP = 245 and (INDUS >= 067 and INDUS <= 078) and
            (CLASSW >= 4 and CLASSW <= 6) then DUNC = 510;
else if OCCUP = 245 and (INDUS >= 067 and INDUS <= 078) and
            (CLASSW >= 1 and CLASSW <= 3 or CLASSW >= 7)
            then DUNC = 600;
else if OCCUP = 245 and (INDUS >= 107 and INDUS <= 399) and
            (CLASSW >= 4 and CLASSW <= 6) then DUNC = 610;
else if OCCUP = 245 and (INDUS >= 107 and INDUS <= 399) and
            (CLASSW >= 1 and CLASSW <= 3 or CLASSW >= 7)
            then DUNC = 790;
else if OCCUP = 245 and (INDUS >= 407 and INDUS <= 429) and
            (CLASSW >= 4 and CLASSW <= 6) then DUNC = 430;
else if OCCUP = 245 and (INDUS >= 407 and INDUS <= 429) and
            (CLASSW >= 1 and CLASSW <= 3 or CLASSW >= 7)
            then DUNC = 710;
else if OCCUP = 245 and (INDUS >= 447 and INDUS <= 499) and
            (CLASSW >= 4 and CLASSW <= 6) then DUNC = 440;
else if OCCUP = 245 and (INDUS >= 447 and INDUS <= 499) and
            (CLASSW >= 1 and CLASSW <= 3 or CLASSW >= 7)
            then DUNC = 760;
else if OCCUP = 245 and (INDUS >= 507 and INDUS <= 599) and
            (CLASSW >= 4 and CLASSW <= 6) then DUNC = 590;
else if OCCUP = 245 and (INDUS >= 507 and INDUS <= 599) and
            (CLASSW >= 1 and CLASSW <= 3 or CLASSW >= 7)
            then DUNC = 700;
else if OCCUP = 245 and (INDUS >= 607 and INDUS <= 608) and
            (CLASSW >= 4 and CLASSW <= 6) then DUNC = 610;
else if OCCUP = 245 and (INDUS >= 607 and INDUS <= 608) and
            (CLASSW >= 1 and CLASSW <= 3 or CLASSW >= 7)
            then DUNC = 640;
else if OCCUP = 245 and (INDUS >= 609 and INDUS <= 627) and
            (CLASSW >= 4 and CLASSW <= 6) then DUNC = 470;
else if OCCUP = 245 and (INDUS >= 609 and INDUS <= 627) and
            (CLASSW >= 1 and CLASSW <= 3 or CLASSW >= 7)
            then DUNC = 680;
else if OCCUP = 245 and (INDUS >= 628 and INDUS <= 638) and
            (CLASSW >= 4 and CLASSW <= 6) then DUNC = 330;
else if OCCUP = 245 and (INDUS >= 628 and INDUS <= 638) and
            (CLASSW >= 1 and CLASSW <= 3 or CLASSW >= 7)
            then DUNC = 500;
else if OCCUP = 245 and (INDUS >= 639 and INDUS <= 639) and
            (CLASSW >= 4 and CLASSW <= 6) then DUNC = 700;
else if OCCUP = 245 and (INDUS >= 639 and INDUS <= 639) and
            (CLASSW >= 1 and CLASSW <= 3 or CLASSW >= 7)
            then DUNC = 650;
else if OCCUP = 245 and (INDUS >= 647 and INDUS <= 647) and
            (CLASSW >= 4 and CLASSW <= 6) then DUNC = 700;
else if OCCUP = 245 and (INDUS >= 647 and INDUS <= 647) and
            (CLASSW >= 1 and CLASSW <= 3 or CLASSW >= 7)
            then DUNC = 650;
else if OCCUP = 245 and (INDUS >= 648 and INDUS <= 648) and
            (CLASSW >= 4 and CLASSW <= 6) then DUNC = 330;
else if OCCUP = 245 and (INDUS >= 648 and INDUS <= 648) and
            (CLASSW >= 1 and CLASSW <= 3 or CLASSW >= 7)
            then DUNC = 310;
else if OCCUP = 245 and (INDUS >= 649 and INDUS <= 649) and
            (CLASSW >= 4 and CLASSW <= 6) then DUNC = 700;
else if OCCUP = 245 and (INDUS >= 649 and INDUS <= 649) and
            (CLASSW >= 1 and CLASSW <= 3 or CLASSW >= 7)
            then DUNC = 650;
else if OCCUP = 245 and (INDUS >= 657 and INDUS <= 658) and
            (CLASSW >= 4 and CLASSW <= 6) then DUNC = 650;
else if OCCUP = 245 and (INDUS >= 657 and INDUS <= 658) and
            (CLASSW >= 1 and CLASSW <= 3 or CLASSW >= 7)
            then DUNC = 690;
else if OCCUP = 245 and (INDUS >= 667 and INDUS <= 668) and
            (CLASSW >= 4 and CLASSW <= 6) then DUNC = 590;
else if OCCUP = 245 and (INDUS >= 667 and INDUS <= 668) and
            (CLASSW >= 1 and CLASSW <= 3 or CLASSW >= 7)
            then DUNC = 680;
else if OCCUP = 245 and (INDUS >= 669 and INDUS <= 669) and
            (CLASSW >= 4 and CLASSW <= 6) then DUNC = 370;
else if OCCUP = 245 and (INDUS >= 669 and INDUS <= 669) and
            (CLASSW >= 1 and CLASSW <= 3 or CLASSW >= 7)
            then DUNC = 390;
else if OCCUP = 245 and (INDUS >= 677 and INDUS <= 699) and
            (CLASSW >= 4 and CLASSW <= 6) then DUNC = 490;
else if OCCUP = 245 and (INDUS >= 677 and INDUS <= 699) and
            (CLASSW >= 1 and CLASSW <= 3 or CLASSW >= 7)
            then DUNC = 590;
else if OCCUP = 245 and (INDUS >= 707 and INDUS <= 709) and
            (CLASSW >= 4 and CLASSW <= 6) then DUNC = 850;
else if OCCUP = 245 and (INDUS >= 707 and INDUS <= 709) and
            (CLASSW >= 1 and CLASSW <= 3 or CLASSW >= 7)
            then DUNC = 850;
else if OCCUP = 245 and (INDUS >= 717 and INDUS <= 719) and
            (CLASSW >= 4 and CLASSW <= 6) then DUNC = 760;
else if OCCUP = 245 and (INDUS >= 717 and INDUS <= 719) and
            (CLASSW >= 1 and CLASSW <= 3 or CLASSW >= 7)
            then DUNC = 840;
else if OCCUP = 245 and (INDUS >= 727 and INDUS <= 748) and
            (CLASSW >= 4 and CLASSW <= 6) then DUNC = 670;
else if OCCUP = 245 and (INDUS >= 727 and INDUS <= 748) and
            (CLASSW >= 1 and CLASSW <= 3 or CLASSW >= 7)
            then DUNC = 800;
else if OCCUP = 245 and (INDUS >= 749 and INDUS <= 749) and
            (CLASSW >= 4 and CLASSW <= 6) then DUNC = 360;
else if OCCUP = 245 and (INDUS >= 749 and INDUS <= 749) and
            (CLASSW >= 1 and CLASSW <= 3 or CLASSW >= 7)
            then DUNC = 470;
else if OCCUP = 245 and (INDUS >= 757 and INDUS <= 757) and
            (CLASSW >= 4 and CLASSW <= 6) then DUNC = 360;
else if OCCUP = 245 and (INDUS >= 757 and INDUS <= 757) and
            (CLASSW >= 1 and CLASSW <= 3 or CLASSW >= 7)
            then DUNC = 470;
else if OCCUP = 245 and (INDUS >= 758 and INDUS <= 759) and
            (CLASSW >= 4 and CLASSW <= 6) then DUNC = 340;
else if OCCUP = 245 and (INDUS >= 758 and INDUS <= 759) and
            (CLASSW >= 1 and CLASSW <= 3 or CLASSW >= 7)
            then DUNC = 530;
else if OCCUP = 245 and (INDUS >= 767 and INDUS <= 767) and
            (CLASSW >= 4 and CLASSW <= 6) then DUNC = 340;
else if OCCUP = 245 and (INDUS >= 767 and INDUS <= 767) and
            (CLASSW >= 1 and CLASSW <= 3 or CLASSW >= 7)
            then DUNC = 530;
else if OCCUP = 245 and (INDUS >= 769 and INDUS <= 799) and
            (CLASSW >= 4 and CLASSW <= 6) then DUNC = 410;
else if OCCUP = 245 and (INDUS >= 769 and INDUS <= 799) and
            (CLASSW >= 1 and CLASSW <= 3 or CLASSW >= 7)
            then DUNC = 500;
else if OCCUP = 245 and (INDUS >= 807 and INDUS <= 899) and
            (CLASSW >= 4 and CLASSW <= 6) then DUNC = 490;
else if OCCUP = 245 and (INDUS >= 807 and INDUS <= 899) and
            (CLASSW >= 1 and CLASSW <= 3 or CLASSW >= 7)
            then DUNC = 620;
else if OCCUP = 245 and (INDUS >= 997 and INDUS <= 997) and
            (CLASSW >= 4 and CLASSW <= 6) then DUNC = 490;
else if OCCUP = 245 and (INDUS >= 997 and INDUS <= 997) and
            (CLASSW >= 1 and CLASSW <= 3 or CLASSW >= 7)
            then DUNC = 620;
else if OCCUP = 245 and (INDUS >= 999 and INDUS <= 999) and
            (CLASSW >= 4 and CLASSW <= 6) then DUNC = 490;
else if OCCUP = 245 and (INDUS >= 999 and INDUS <= 999) and
            (CLASSW >= 1 and CLASSW <= 3 or CLASSW >= 7)
            then DUNC = 620;
else if OCCUP = 245 then DUNC = 620;
else if OCCUP = 246 then DUNC = 570;
else if OCCUP = 260 then DUNC = 661;
else if OCCUP = 261 then DUNC = 400;
else if OCCUP = 262 then DUNC = 350;
else if OCCUP = 264 then DUNC = 088;
else if OCCUP = 265 then DUNC = 660;
else if OCCUP = 266 then DUNC = 270;
else if OCCUP = 270 then DUNC = 620;
else if OCCUP = 271 then DUNC = 723;
else if OCCUP = 280 then DUNC = 494;
else if OCCUP = 281 then DUNC = 650;
else if OCCUP = 282 then DUNC = 609;
else if OCCUP = 283 then DUNC = 390;
else if OCCUP = 284 then DUNC = 390;
else if OCCUP = 285 then DUNC = 527;
else if OCCUP = 296 then DUNC = 490;
else if OCCUP = 301 then DUNC = 520;
else if OCCUP = 303 then DUNC = 440;
else if OCCUP = 305 then DUNC = 508;
else if OCCUP = 310 then DUNC = 440;
else if OCCUP = 311 then DUNC = 440;
else if OCCUP = 312 then DUNC = 436;
else if OCCUP = 313 then DUNC = 433;
else if OCCUP = 314 then DUNC = 440;
else if OCCUP = 315 then DUNC = 399;
else if OCCUP = 320 then DUNC = 440;
else if OCCUP = 321 then DUNC = 592;
else if OCCUP = 323 then DUNC = 437;
else if OCCUP = 325 then DUNC = 440;
else if OCCUP = 326 then DUNC = 621;
else if OCCUP = 330 then DUNC = 440;
else if OCCUP = 331 then DUNC = 530;
else if OCCUP = 332 then DUNC = 430;
else if OCCUP = 333 then DUNC = 282;
else if OCCUP = 334 then DUNC = 440;
else if OCCUP = 341 then DUNC = 449;
else if OCCUP = 342 then DUNC = 450;
else if OCCUP = 343 then DUNC = 450;
else if OCCUP = 344 then DUNC = 450;
else if OCCUP = 345 then DUNC = 450;
else if OCCUP = 350 then DUNC = 450;
else if OCCUP = 355 then DUNC = 450;
else if OCCUP = 360 then DUNC = 440;
else if OCCUP = 361 then DUNC = 447;
else if OCCUP = 362 then DUNC = 440;
else if OCCUP = 363 then DUNC = 678;
else if OCCUP = 364 then DUNC = 440;
else if OCCUP = 370 then DUNC = 610;
else if OCCUP = 371 then DUNC = 610;
else if OCCUP = 372 then DUNC = 619;
else if OCCUP = 374 then DUNC = 242;
else if OCCUP = 375 then DUNC = 437;
else if OCCUP = 376 then DUNC = 610;
else if OCCUP = 381 then DUNC = 440;
else if OCCUP = 382 then DUNC = 632;
else if OCCUP = 383 then DUNC = 220;
else if OCCUP = 384 then DUNC = 470;
else if OCCUP = 385 then DUNC = 450;
else if OCCUP = 390 then DUNC = 598;
else if OCCUP = 391 then DUNC = 610;
else if OCCUP = 392 then DUNC = 419;
else if OCCUP = 394 then DUNC = 437;
else if OCCUP = 395 then DUNC = 440;
else if OCCUP = 396 then DUNC = 450;
else if OCCUP = 401 then DUNC = 216;
else if OCCUP = 402 then DUNC = 219;
else if OCCUP = 403 then DUNC = 160;
else if OCCUP = 404 then DUNC = 326;
else if OCCUP = 405 then DUNC = 390;
else if OCCUP = 410 then DUNC = 270;
else if OCCUP = 411 then DUNC = 320;
else if OCCUP = 412 then DUNC = 197;
else if OCCUP = 413 then DUNC = 223;
else if OCCUP = 415 then DUNC = 189;
else if OCCUP = 416 then DUNC = 310;
else if OCCUP = 420 then DUNC = 120;
else if OCCUP = 421 then DUNC = 190;
else if OCCUP = 422 then DUNC = 520;
else if OCCUP = 423 then DUNC = 400;
else if OCCUP = 424 then DUNC = 210;
else if OCCUP = 425 then DUNC = 400;
else if OCCUP = 426 then DUNC = 480;
else if OCCUP = 430 then DUNC = 440;
else if OCCUP = 431 then DUNC = 370;
else if OCCUP = 433 then DUNC = 490;
else if OCCUP = 434 then DUNC = 550;
else if OCCUP = 435 then DUNC = 470;
else if OCCUP = 436 then DUNC = 228;
else if OCCUP = 440 then DUNC = 173;
else if OCCUP = 441 and (INDUS >= 017 and INDUS <= 057) then DUNC = 440;
else if OCCUP = 441 and (INDUS >= 067 and INDUS <= 078) then DUNC = 400;
else if OCCUP = 441 and (INDUS >= 107 and INDUS <= 138) then DUNC = 410;
else if OCCUP = 441 and (INDUS >= 139 and INDUS <= 169) then DUNC = 540;
else if OCCUP = 441 and (INDUS >= 177 and INDUS <= 209) then DUNC = 600;
else if OCCUP = 441 and (INDUS >= 219 and INDUS <= 238) then DUNC = 660;
else if OCCUP = 441 and (INDUS >= 239 and INDUS <= 257) then DUNC = 410;
else if OCCUP = 441 and (INDUS >= 258 and INDUS <= 258) then DUNC = 540;
else if OCCUP = 441 and (INDUS >= 259 and INDUS <= 259) then DUNC = 410;
else if OCCUP = 441 and (INDUS >= 268 and INDUS <= 299) then DUNC = 530;
else if OCCUP = 441 and (INDUS >= 307 and INDUS <= 327) then DUNC = 390;
else if OCCUP = 441 and (INDUS >= 328 and INDUS <= 398) then DUNC = 530;
else if OCCUP = 441 and (INDUS >= 407 and INDUS <= 407) then DUNC = 360;
else if OCCUP = 441 and (INDUS >= 408 and INDUS <= 429) then DUNC = 450;
else if OCCUP = 441 and (INDUS >= 447 and INDUS <= 479) then DUNC = 560;
else if OCCUP = 441 and (INDUS >= 507 and INDUS <= 999) then DUNC = 440;
else if OCCUP = 441 then DUNC = 497;
else if OCCUP = 442 then DUNC = 230;
else if OCCUP = 443 then DUNC = 178;
else if OCCUP = 444 then DUNC = 395;
else if OCCUP = 445 then DUNC = 252;
else if OCCUP = 446 then DUNC = 217;
else if OCCUP = 450 then DUNC = 224;
else if OCCUP = 452 and (INDUS >= 017 and INDUS <= 057) then DUNC = 380;
else if OCCUP = 452 and (INDUS >= 067 and INDUS <= 078) then DUNC = 460;
else if OCCUP = 452 and (INDUS >= 107 and INDUS <= 398) then DUNC = 380;
else if OCCUP = 452 and (INDUS >= 407 and INDUS <= 407) then DUNC = 410;
else if OCCUP = 452 and (INDUS >= 408 and INDUS <= 479) then DUNC = 450;
else if OCCUP = 452 and (INDUS >= 507 and INDUS <= 999) then DUNC = 380;
else if OCCUP = 452 then DUNC = 412;
else if OCCUP = 453 then DUNC = 364;
else if OCCUP = 454 then DUNC = 335;
else if OCCUP = 455 then DUNC = 578;
else if OCCUP = 456 then DUNC = 450;
else if OCCUP = 461 then DUNC = 329;
else if OCCUP = 462 then DUNC = 410;
else if OCCUP = 470 then DUNC = 270;
else if OCCUP = 471 then DUNC = 480;
else if OCCUP = 472 then DUNC = 190;
else if OCCUP = 473 then DUNC = 190;
else if OCCUP = 474 then DUNC = 250;
else if OCCUP = 475 then DUNC = 270;
else if OCCUP = 480 then DUNC = 270;
else if OCCUP = 481 then DUNC = 266;
else if OCCUP = 482 then DUNC = 270;
else if OCCUP = 483 then DUNC = 100;
else if OCCUP = 484 then DUNC = 359;
else if OCCUP = 485 then DUNC = 360;
else if OCCUP = 486 then DUNC = 205;
else if OCCUP = 491 then DUNC = 340;
else if OCCUP = 492 then DUNC = 265;
else if OCCUP = 495 then DUNC = 270;
else if OCCUP = 501 then DUNC = 190;
else if OCCUP = 502 then DUNC = 310;
else if OCCUP = 503 then DUNC = 120;
else if OCCUP = 504 then DUNC = 330;
else if OCCUP = 505 then DUNC = 430;
else if OCCUP = 506 then DUNC = 390;
else if OCCUP = 510 then DUNC = 164;
else if OCCUP = 511 then DUNC = 290;
else if OCCUP = 512 then DUNC = 137;
else if OCCUP = 514 then DUNC = 430;
else if OCCUP = 515 then DUNC = 630;
else if OCCUP = 516 then DUNC = 380;
else if OCCUP = 520 then DUNC = 250;
else if OCCUP = 521 then DUNC = 290;
else if OCCUP = 522 then DUNC = 340;
else if OCCUP = 523 then DUNC = 330;
else if OCCUP = 525 then DUNC = 500;
else if OCCUP = 530 then DUNC = 463;
else if OCCUP = 531 then DUNC = 400;
else if OCCUP = 533 then DUNC = 220;
else if OCCUP = 534 then DUNC = 151;
else if OCCUP = 535 then DUNC = 330;
else if OCCUP = 536 then DUNC = 330;
else if OCCUP = 540 then DUNC = 340;
else if OCCUP = 542 then DUNC = 120;
else if OCCUP = 543 then DUNC = 169;
else if OCCUP = 545 then DUNC = 452;
else if OCCUP = 546 then DUNC = 240;
else if OCCUP = 550 then DUNC = 337;
else if OCCUP = 551 then DUNC = 220;
else if OCCUP = 552 then DUNC = 488;
else if OCCUP = 554 then DUNC = 490;
else if OCCUP = 560 then DUNC = 282;
else if OCCUP = 561 then DUNC = 492;
else if OCCUP = 562 then DUNC = 410;
else if OCCUP = 563 then DUNC = 211;
else if OCCUP = 571 then DUNC = 345;
else if OCCUP = 572 then DUNC = 390;
else if OCCUP = 575 then DUNC = 257;
else if OCCUP = 580 then DUNC = 999;
else if OCCUP = 586 then DUNC = 310;
else if OCCUP = 601 then DUNC = 320;
else if OCCUP = 602 then DUNC = 172;
else if OCCUP = 603 then DUNC = 110;
else if OCCUP = 604 then DUNC = 184;
else if OCCUP = 605 then DUNC = 250;
else if OCCUP = 610 then DUNC = 192;
else if OCCUP = 611 then DUNC = 178;
else if OCCUP = 612 then DUNC = 188;
else if OCCUP = 613 then DUNC = 230;
else if OCCUP = 614 then DUNC = 216;
else if OCCUP = 615 then DUNC = 245;
else if OCCUP = 620 then DUNC = 120;
else if OCCUP = 621 then DUNC = 187;
else if OCCUP = 622 then DUNC = 181;
else if OCCUP = 623 then DUNC = 179;
else if OCCUP = 624 then DUNC = 170;
else if OCCUP = 625 then DUNC = 122;
else if OCCUP = 626 then DUNC = 290;
else if OCCUP = 630 then DUNC = 150;
else if OCCUP = 631 then DUNC = 288;
else if OCCUP = 633 then DUNC = 164;
else if OCCUP = 634 then DUNC = 180;
else if OCCUP = 635 then DUNC = 198;
else if OCCUP = 636 then DUNC = 460;
else if OCCUP = 640 and (INDUS >= 017 and INDUS <= 028) then DUNC = 070;
else if OCCUP = 640 and (INDUS >= 047 and INDUS <= 047) then DUNC = 120;
else if OCCUP = 640 and (INDUS >= 048 and INDUS <= 048) then DUNC = 020;
else if OCCUP = 640 and (INDUS >= 049 and INDUS <= 049) then DUNC = 380;
else if OCCUP = 640 and (INDUS >= 057 and INDUS <= 057) then DUNC = 120;
else if OCCUP = 640 and (INDUS >= 067 and INDUS <= 999) then DUNC = 070;
else if OCCUP = 640 then DUNC = 165;
else if OCCUP = 641 then DUNC = 176;
else if OCCUP = 642 then DUNC = 150;
else if OCCUP = 643 then DUNC = 180;
else if OCCUP = 644 then DUNC = 181;
else if OCCUP = 645 then DUNC = 421;
else if OCCUP = 650 then DUNC = 218;
else if OCCUP = 651 then DUNC = 219;
else if OCCUP = 652 then DUNC = 215;
else if OCCUP = 653 then DUNC = 210;
else if OCCUP = 656 then DUNC = 194;
else if OCCUP = 660 then DUNC = 201;
else if OCCUP = 661 then DUNC = 160;
else if OCCUP = 662 then DUNC = 049;
else if OCCUP = 663 then DUNC = 182;
else if OCCUP = 664 then DUNC = 092;
else if OCCUP = 665 then DUNC = 238;
else if OCCUP = 666 then DUNC = 166;
else if OCCUP = 670 then DUNC = 031;
else if OCCUP = 671 then DUNC = 210;
else if OCCUP = 672 then DUNC = 038;
else if OCCUP = 673 then DUNC = 059;
else if OCCUP = 674 then DUNC = 061;
else if OCCUP = 680 then DUNC = 240;
else if OCCUP = 681 then DUNC = 196;
else if OCCUP = 690 and (INDUS >= 017 and INDUS <= 057) then DUNC = 200;
else if OCCUP = 690 and (INDUS >= 067 and INDUS <= 078) then DUNC = 180;
else if OCCUP = 690 and (INDUS >= 107 and INDUS <= 108) then DUNC = 070;
else if OCCUP = 690 and (INDUS >= 109 and INDUS <= 109) then DUNC = 090;
else if OCCUP = 690 and (INDUS >= 118 and INDUS <= 118) then DUNC = 090;
else if OCCUP = 690 and (INDUS >= 119 and INDUS <= 119) then DUNC = 230;
else if OCCUP = 690 and (INDUS >= 127 and INDUS <= 128) then DUNC = 100;
else if OCCUP = 690 and (INDUS >= 137 and INDUS <= 137) then DUNC = 210;
else if OCCUP = 690 and (INDUS >= 138 and INDUS <= 138) then DUNC = 150;
else if OCCUP = 690 and (INDUS >= 139 and INDUS <= 139) then DUNC = 170;
else if OCCUP = 690 and (INDUS >= 147 and INDUS <= 147) then DUNC = 120;
else if OCCUP = 690 and (INDUS >= 148 and INDUS <= 149) then DUNC = 150;
else if OCCUP = 690 and (INDUS >= 157 and INDUS <= 158) then DUNC = 160;
else if OCCUP = 690 and (INDUS >= 159 and INDUS <= 159) then DUNC = 150;
else if OCCUP = 690 and (INDUS >= 167 and INDUS <= 168) then DUNC = 150;
else if OCCUP = 690 and (INDUS >= 169 and INDUS <= 169) then DUNC = 140;
else if OCCUP = 690 and (INDUS >= 177 and INDUS <= 177) then DUNC = 220;
else if OCCUP = 690 and (INDUS >= 178 and INDUS <= 178) then DUNC = 210;
else if OCCUP = 690 and (INDUS >= 179 and INDUS <= 179) then DUNC = 220;
else if OCCUP = 690 and (INDUS >= 187 and INDUS <= 187) then DUNC = 220;
else if OCCUP = 690 and (INDUS >= 188 and INDUS <= 189) then DUNC = 310;
else if OCCUP = 690 and (INDUS >= 197 and INDUS <= 198) then DUNC = 220;
else if OCCUP = 690 and (INDUS >= 199 and INDUS <= 209) then DUNC = 260;
else if OCCUP = 690 and (INDUS >= 219 and INDUS <= 219) then DUNC = 210;
else if OCCUP = 690 and (INDUS >= 227 and INDUS <= 227) then DUNC = 340;
else if OCCUP = 690 and (INDUS >= 228 and INDUS <= 228) then DUNC = 160;
else if OCCUP = 690 and (INDUS >= 229 and INDUS <= 238) then DUNC = 230;
else if OCCUP = 690 and (INDUS >= 239 and INDUS <= 239) then DUNC = 230;
else if OCCUP = 690 and (INDUS >= 247 and INDUS <= 247) then DUNC = 230;
else if OCCUP = 690 and (INDUS >= 248 and INDUS <= 248) then DUNC = 400;
else if OCCUP = 690 and (INDUS >= 249 and INDUS <= 249) then DUNC = 280;
else if OCCUP = 690 and (INDUS >= 257 and INDUS <= 257) then DUNC = 230;
else if OCCUP = 690 and (INDUS >= 258 and INDUS <= 258) then DUNC = 150;
else if OCCUP = 690 and (INDUS >= 259 and INDUS <= 259) then DUNC = 160;
else if OCCUP = 690 and (INDUS >= 268 and INDUS <= 268) then DUNC = 160;
else if OCCUP = 690 and (INDUS >= 269 and INDUS <= 269) then DUNC = 220;
else if OCCUP = 690 and (INDUS >= 278 and INDUS <= 278) then DUNC = 090;
else if OCCUP = 690 and (INDUS >= 279 and INDUS <= 279) then DUNC = 140;
else if OCCUP = 690 and (INDUS >= 287 and INDUS <= 287) then DUNC = 150;
else if OCCUP = 690 and (INDUS >= 288 and INDUS <= 288) then DUNC = 120;
else if OCCUP = 690 and (INDUS >= 289 and INDUS <= 289) then DUNC = 190;
else if OCCUP = 690 and (INDUS >= 297 and INDUS <= 297) then DUNC = 110;
else if OCCUP = 690 and (INDUS >= 298 and INDUS <= 298) then DUNC = 190;
else if OCCUP = 690 and (INDUS >= 299 and INDUS <= 299) then DUNC = 020;
else if OCCUP = 690 and (INDUS >= 307 and INDUS <= 307) then DUNC = 210;
else if OCCUP = 690 and (INDUS >= 308 and INDUS <= 308) then DUNC = 080;
else if OCCUP = 690 and (INDUS >= 309 and INDUS <= 309) then DUNC = 140;
else if OCCUP = 690 and (INDUS >= 317 and INDUS <= 317) then DUNC = 020;
else if OCCUP = 690 and (INDUS >= 318 and INDUS <= 318) then DUNC = 100;
else if OCCUP = 690 and (INDUS >= 319 and INDUS <= 319) then DUNC = 220;
else if OCCUP = 690 and (INDUS >= 327 and INDUS <= 327) then DUNC = 170;
else if OCCUP = 690 and (INDUS >= 328 and INDUS <= 329) then DUNC = 190;
else if OCCUP = 690 and (INDUS >= 337 and INDUS <= 337) then DUNC = 170;
else if OCCUP = 690 and (INDUS >= 338 and INDUS <= 339) then DUNC = 310;
else if OCCUP = 690 and (INDUS >= 347 and INDUS <= 348) then DUNC = 230;
else if OCCUP = 690 and (INDUS >= 349 and INDUS <= 349) then DUNC = 090;
else if OCCUP = 690 and (INDUS >= 357 and INDUS <= 357) then DUNC = 260;
else if OCCUP = 690 and (INDUS >= 358 and INDUS <= 358) then DUNC = 230;
else if OCCUP = 690 and (INDUS >= 359 and INDUS <= 359) then DUNC = 150;
else if OCCUP = 690 and (INDUS >= 367 and INDUS <= 369) then DUNC = 230;
else if OCCUP = 690 and (INDUS >= 377 and INDUS <= 377) then DUNC = 560;
else if OCCUP = 690 and (INDUS >= 378 and INDUS <= 378) then DUNC = 140;
else if OCCUP = 690 and (INDUS >= 379 and INDUS <= 379) then DUNC = 220;
else if OCCUP = 690 and (INDUS >= 387 and INDUS <= 387) then DUNC = 220;
else if OCCUP = 690 and (INDUS >= 388 and INDUS <= 388) then DUNC = 100;
else if OCCUP = 690 and (INDUS >= 389 and INDUS <= 389) then DUNC = 090;
else if OCCUP = 690 and (INDUS >= 397 and INDUS <= 397) then DUNC = 140;
else if OCCUP = 690 and (INDUS >= 398 and INDUS <= 398) then DUNC = 160;
else if OCCUP = 690 and (INDUS >= 407 and INDUS <= 407) then DUNC = 150;
else if OCCUP = 690 and (INDUS >= 408 and INDUS <= 429) then DUNC = 230;
else if OCCUP = 690 and (INDUS >= 447 and INDUS <= 479) then DUNC = 210;
else if OCCUP = 690 and (INDUS >= 507 and INDUS <= 698) then DUNC = 170;
else if OCCUP = 690 and (INDUS >= 707 and INDUS <= 718) then DUNC = 200;
else if OCCUP = 690 and (INDUS >= 727 and INDUS <= 759) then DUNC = 190;
else if OCCUP = 690 and (INDUS >= 769 and INDUS <= 798) then DUNC = 110;
else if OCCUP = 690 and (INDUS >= 807 and INDUS <= 897) then DUNC = 200;
else if OCCUP = 690 and (INDUS >= 907 and INDUS <= 937) then DUNC = 170;
else if OCCUP = 690 and (INDUS >= 997 and INDUS <= 997) then DUNC = 200;
else if OCCUP = 690 and (INDUS >= 999 and INDUS <= 999) then DUNC = 200;
else if OCCUP = 690 then DUNC = 190;
else if OCCUP = 692 and (INDUS >= 017 and INDUS <= 057) then DUNC = 200;
else if OCCUP = 692 and (INDUS >= 067 and INDUS <= 078) then DUNC = 180;
else if OCCUP = 692 and (INDUS >= 107 and INDUS <= 108) then DUNC = 070;
else if OCCUP = 692 and (INDUS >= 109 and INDUS <= 109) then DUNC = 090;
else if OCCUP = 692 and (INDUS >= 118 and INDUS <= 118) then DUNC = 090;
else if OCCUP = 692 and (INDUS >= 119 and INDUS <= 119) then DUNC = 230;
else if OCCUP = 692 and (INDUS >= 127 and INDUS <= 128) then DUNC = 100;
else if OCCUP = 692 and (INDUS >= 137 and INDUS <= 137) then DUNC = 210;
else if OCCUP = 692 and (INDUS >= 138 and INDUS <= 138) then DUNC = 150;
else if OCCUP = 692 and (INDUS >= 139 and INDUS <= 139) then DUNC = 170;
else if OCCUP = 692 and (INDUS >= 147 and INDUS <= 147) then DUNC = 120;
else if OCCUP = 692 and (INDUS >= 148 and INDUS <= 149) then DUNC = 150;
else if OCCUP = 692 and (INDUS >= 157 and INDUS <= 158) then DUNC = 160;
else if OCCUP = 692 and (INDUS >= 159 and INDUS <= 159) then DUNC = 150;
else if OCCUP = 692 and (INDUS >= 167 and INDUS <= 168) then DUNC = 150;
else if OCCUP = 692 and (INDUS >= 169 and INDUS <= 169) then DUNC = 140;
else if OCCUP = 692 and (INDUS >= 177 and INDUS <= 177) then DUNC = 220;
else if OCCUP = 692 and (INDUS >= 178 and INDUS <= 178) then DUNC = 210;
else if OCCUP = 692 and (INDUS >= 179 and INDUS <= 179) then DUNC = 220;
else if OCCUP = 692 and (INDUS >= 187 and INDUS <= 187) then DUNC = 220;
else if OCCUP = 692 and (INDUS >= 188 and INDUS <= 189) then DUNC = 310;
else if OCCUP = 692 and (INDUS >= 197 and INDUS <= 198) then DUNC = 220;
else if OCCUP = 692 and (INDUS >= 199 and INDUS <= 209) then DUNC = 260;
else if OCCUP = 692 and (INDUS >= 219 and INDUS <= 219) then DUNC = 210;
else if OCCUP = 692 and (INDUS >= 227 and INDUS <= 227) then DUNC = 340;
else if OCCUP = 692 and (INDUS >= 228 and INDUS <= 228) then DUNC = 160;
else if OCCUP = 692 and (INDUS >= 229 and INDUS <= 238) then DUNC = 230;
else if OCCUP = 692 and (INDUS >= 239 and INDUS <= 239) then DUNC = 230;
else if OCCUP = 692 and (INDUS >= 247 and INDUS <= 247) then DUNC = 230;
else if OCCUP = 692 and (INDUS >= 248 and INDUS <= 248) then DUNC = 400;
else if OCCUP = 692 and (INDUS >= 249 and INDUS <= 249) then DUNC = 280;
else if OCCUP = 692 and (INDUS >= 257 and INDUS <= 257) then DUNC = 230;
else if OCCUP = 692 and (INDUS >= 258 and INDUS <= 258) then DUNC = 150;
else if OCCUP = 692 and (INDUS >= 259 and INDUS <= 259) then DUNC = 160;
else if OCCUP = 692 and (INDUS >= 268 and INDUS <= 268) then DUNC = 160;
else if OCCUP = 692 and (INDUS >= 269 and INDUS <= 269) then DUNC = 220;
else if OCCUP = 692 and (INDUS >= 278 and INDUS <= 278) then DUNC = 090;
else if OCCUP = 692 and (INDUS >= 279 and INDUS <= 279) then DUNC = 140;
else if OCCUP = 692 and (INDUS >= 287 and INDUS <= 287) then DUNC = 150;
else if OCCUP = 692 and (INDUS >= 288 and INDUS <= 288) then DUNC = 120;
else if OCCUP = 692 and (INDUS >= 289 and INDUS <= 289) then DUNC = 190;
else if OCCUP = 692 and (INDUS >= 297 and INDUS <= 297) then DUNC = 110;
else if OCCUP = 692 and (INDUS >= 298 and INDUS <= 298) then DUNC = 190;
else if OCCUP = 692 and (INDUS >= 299 and INDUS <= 299) then DUNC = 020;
else if OCCUP = 692 and (INDUS >= 307 and INDUS <= 307) then DUNC = 210;
else if OCCUP = 692 and (INDUS >= 308 and INDUS <= 308) then DUNC = 080;
else if OCCUP = 692 and (INDUS >= 309 and INDUS <= 309) then DUNC = 140;
else if OCCUP = 692 and (INDUS >= 317 and INDUS <= 317) then DUNC = 020;
else if OCCUP = 692 and (INDUS >= 318 and INDUS <= 318) then DUNC = 100;
else if OCCUP = 692 and (INDUS >= 319 and INDUS <= 319) then DUNC = 220;
else if OCCUP = 692 and (INDUS >= 327 and INDUS <= 327) then DUNC = 170;
else if OCCUP = 692 and (INDUS >= 328 and INDUS <= 329) then DUNC = 190;
else if OCCUP = 692 and (INDUS >= 337 and INDUS <= 337) then DUNC = 170;
else if OCCUP = 692 and (INDUS >= 338 and INDUS <= 339) then DUNC = 310;
else if OCCUP = 692 and (INDUS >= 347 and INDUS <= 348) then DUNC = 230;
else if OCCUP = 692 and (INDUS >= 349 and INDUS <= 349) then DUNC = 090;
else if OCCUP = 692 and (INDUS >= 357 and INDUS <= 357) then DUNC = 260;
else if OCCUP = 692 and (INDUS >= 358 and INDUS <= 358) then DUNC = 230;
else if OCCUP = 692 and (INDUS >= 359 and INDUS <= 359) then DUNC = 150;
else if OCCUP = 692 and (INDUS >= 367 and INDUS <= 369) then DUNC = 230;
else if OCCUP = 692 and (INDUS >= 377 and INDUS <= 377) then DUNC = 560;
else if OCCUP = 692 and (INDUS >= 378 and INDUS <= 378) then DUNC = 140;
else if OCCUP = 692 and (INDUS >= 379 and INDUS <= 379) then DUNC = 220;
else if OCCUP = 692 and (INDUS >= 387 and INDUS <= 387) then DUNC = 220;
else if OCCUP = 692 and (INDUS >= 388 and INDUS <= 388) then DUNC = 100;
else if OCCUP = 692 and (INDUS >= 389 and INDUS <= 389) then DUNC = 090;
else if OCCUP = 692 and (INDUS >= 397 and INDUS <= 397) then DUNC = 140;
else if OCCUP = 692 and (INDUS >= 398 and INDUS <= 398) then DUNC = 160;
else if OCCUP = 692 and (INDUS >= 407 and INDUS <= 407) then DUNC = 150;
else if OCCUP = 692 and (INDUS >= 408 and INDUS <= 429) then DUNC = 230;
else if OCCUP = 692 and (INDUS >= 447 and INDUS <= 479) then DUNC = 210;
else if OCCUP = 692 and (INDUS >= 507 and INDUS <= 698) then DUNC = 170;
else if OCCUP = 692 and (INDUS >= 707 and INDUS <= 718) then DUNC = 200;
else if OCCUP = 692 and (INDUS >= 727 and INDUS <= 759) then DUNC = 190;
else if OCCUP = 692 and (INDUS >= 769 and INDUS <= 798) then DUNC = 110;
else if OCCUP = 692 and (INDUS >= 807 and INDUS <= 897) then DUNC = 200;
else if OCCUP = 692 and (INDUS >= 907 and INDUS <= 937) then DUNC = 170;
else if OCCUP = 692 and (INDUS >= 997 and INDUS <= 997) then DUNC = 200;
else if OCCUP = 692 and (INDUS >= 999 and INDUS <= 999) then DUNC = 200;
else if OCCUP = 692 then DUNC = 193;
else if OCCUP = 694 and (INDUS >= 017 and INDUS <= 057) then DUNC = 200;
else if OCCUP = 694 and (INDUS >= 067 and INDUS <= 078) then DUNC = 180;
else if OCCUP = 694 and (INDUS >= 107 and INDUS <= 108) then DUNC = 070;
else if OCCUP = 694 and (INDUS >= 109 and INDUS <= 109) then DUNC = 090;
else if OCCUP = 694 and (INDUS >= 118 and INDUS <= 118) then DUNC = 090;
else if OCCUP = 694 and (INDUS >= 119 and INDUS <= 119) then DUNC = 230;
else if OCCUP = 694 and (INDUS >= 127 and INDUS <= 128) then DUNC = 100;
else if OCCUP = 694 and (INDUS >= 137 and INDUS <= 137) then DUNC = 210;
else if OCCUP = 694 and (INDUS >= 138 and INDUS <= 138) then DUNC = 150;
else if OCCUP = 694 and (INDUS >= 139 and INDUS <= 139) then DUNC = 170;
else if OCCUP = 694 and (INDUS >= 147 and INDUS <= 147) then DUNC = 120;
else if OCCUP = 694 and (INDUS >= 148 and INDUS <= 149) then DUNC = 150;
else if OCCUP = 694 and (INDUS >= 157 and INDUS <= 158) then DUNC = 160;
else if OCCUP = 694 and (INDUS >= 159 and INDUS <= 159) then DUNC = 150;
else if OCCUP = 694 and (INDUS >= 167 and INDUS <= 168) then DUNC = 150;
else if OCCUP = 694 and (INDUS >= 169 and INDUS <= 169) then DUNC = 140;
else if OCCUP = 694 and (INDUS >= 177 and INDUS <= 177) then DUNC = 220;
else if OCCUP = 694 and (INDUS >= 178 and INDUS <= 178) then DUNC = 210;
else if OCCUP = 694 and (INDUS >= 179 and INDUS <= 179) then DUNC = 220;
else if OCCUP = 694 and (INDUS >= 187 and INDUS <= 187) then DUNC = 220;
else if OCCUP = 694 and (INDUS >= 188 and INDUS <= 189) then DUNC = 310;
else if OCCUP = 694 and (INDUS >= 197 and INDUS <= 198) then DUNC = 220;
else if OCCUP = 694 and (INDUS >= 199 and INDUS <= 209) then DUNC = 260;
else if OCCUP = 694 and (INDUS >= 219 and INDUS <= 219) then DUNC = 210;
else if OCCUP = 694 and (INDUS >= 227 and INDUS <= 227) then DUNC = 340;
else if OCCUP = 694 and (INDUS >= 228 and INDUS <= 228) then DUNC = 160;
else if OCCUP = 694 and (INDUS >= 229 and INDUS <= 238) then DUNC = 230;
else if OCCUP = 694 and (INDUS >= 239 and INDUS <= 239) then DUNC = 230;
else if OCCUP = 694 and (INDUS >= 247 and INDUS <= 247) then DUNC = 230;
else if OCCUP = 694 and (INDUS >= 248 and INDUS <= 248) then DUNC = 400;
else if OCCUP = 694 and (INDUS >= 249 and INDUS <= 249) then DUNC = 280;
else if OCCUP = 694 and (INDUS >= 257 and INDUS <= 257) then DUNC = 230;
else if OCCUP = 694 and (INDUS >= 258 and INDUS <= 258) then DUNC = 150;
else if OCCUP = 694 and (INDUS >= 259 and INDUS <= 259) then DUNC = 160;
else if OCCUP = 694 and (INDUS >= 268 and INDUS <= 268) then DUNC = 160;
else if OCCUP = 694 and (INDUS >= 269 and INDUS <= 269) then DUNC = 220;
else if OCCUP = 694 and (INDUS >= 278 and INDUS <= 278) then DUNC = 090;
else if OCCUP = 694 and (INDUS >= 279 and INDUS <= 279) then DUNC = 140;
else if OCCUP = 694 and (INDUS >= 287 and INDUS <= 287) then DUNC = 150;
else if OCCUP = 694 and (INDUS >= 288 and INDUS <= 288) then DUNC = 120;
else if OCCUP = 694 and (INDUS >= 289 and INDUS <= 289) then DUNC = 190;
else if OCCUP = 694 and (INDUS >= 297 and INDUS <= 297) then DUNC = 110;
else if OCCUP = 694 and (INDUS >= 298 and INDUS <= 298) then DUNC = 190;
else if OCCUP = 694 and (INDUS >= 299 and INDUS <= 299) then DUNC = 020;
else if OCCUP = 694 and (INDUS >= 307 and INDUS <= 307) then DUNC = 210;
else if OCCUP = 694 and (INDUS >= 308 and INDUS <= 308) then DUNC = 080;
else if OCCUP = 694 and (INDUS >= 309 and INDUS <= 309) then DUNC = 140;
else if OCCUP = 694 and (INDUS >= 317 and INDUS <= 317) then DUNC = 020;
else if OCCUP = 694 and (INDUS >= 318 and INDUS <= 318) then DUNC = 100;
else if OCCUP = 694 and (INDUS >= 319 and INDUS <= 319) then DUNC = 220;
else if OCCUP = 694 and (INDUS >= 327 and INDUS <= 327) then DUNC = 170;
else if OCCUP = 694 and (INDUS >= 328 and INDUS <= 329) then DUNC = 190;
else if OCCUP = 694 and (INDUS >= 337 and INDUS <= 337) then DUNC = 170;
else if OCCUP = 694 and (INDUS >= 338 and INDUS <= 339) then DUNC = 310;
else if OCCUP = 694 and (INDUS >= 347 and INDUS <= 348) then DUNC = 230;
else if OCCUP = 694 and (INDUS >= 349 and INDUS <= 349) then DUNC = 090;
else if OCCUP = 694 and (INDUS >= 357 and INDUS <= 357) then DUNC = 260;
else if OCCUP = 694 and (INDUS >= 358 and INDUS <= 358) then DUNC = 230;
else if OCCUP = 694 and (INDUS >= 359 and INDUS <= 359) then DUNC = 150;
else if OCCUP = 694 and (INDUS >= 367 and INDUS <= 369) then DUNC = 230;
else if OCCUP = 694 and (INDUS >= 377 and INDUS <= 377) then DUNC = 560;
else if OCCUP = 694 and (INDUS >= 378 and INDUS <= 378) then DUNC = 140;
else if OCCUP = 694 and (INDUS >= 379 and INDUS <= 379) then DUNC = 220;
else if OCCUP = 694 and (INDUS >= 387 and INDUS <= 387) then DUNC = 220;
else if OCCUP = 694 and (INDUS >= 388 and INDUS <= 388) then DUNC = 100;
else if OCCUP = 694 and (INDUS >= 389 and INDUS <= 389) then DUNC = 090;
else if OCCUP = 694 and (INDUS >= 397 and INDUS <= 397) then DUNC = 140;
else if OCCUP = 694 and (INDUS >= 398 and INDUS <= 398) then DUNC = 160;
else if OCCUP = 694 and (INDUS >= 407 and INDUS <= 407) then DUNC = 150;
else if OCCUP = 694 and (INDUS >= 408 and INDUS <= 429) then DUNC = 230;
else if OCCUP = 694 and (INDUS >= 447 and INDUS <= 479) then DUNC = 210;
else if OCCUP = 694 and (INDUS >= 507 and INDUS <= 698) then DUNC = 170;
else if OCCUP = 694 and (INDUS >= 707 and INDUS <= 718) then DUNC = 200;
else if OCCUP = 694 and (INDUS >= 727 and INDUS <= 759) then DUNC = 190;
else if OCCUP = 694 and (INDUS >= 769 and INDUS <= 798) then DUNC = 110;
else if OCCUP = 694 and (INDUS >= 807 and INDUS <= 897) then DUNC = 200;
else if OCCUP = 694 and (INDUS >= 907 and INDUS <= 937) then DUNC = 170;
else if OCCUP = 694 and (INDUS >= 997 and INDUS <= 997) then DUNC = 200;
else if OCCUP = 694 and (INDUS >= 999 and INDUS <= 999) then DUNC = 200;
else if OCCUP = 694 then DUNC = 192;
else if OCCUP = 695 and (INDUS >= 017 and INDUS <= 057) then DUNC = 200;
else if OCCUP = 695 and (INDUS >= 067 and INDUS <= 078) then DUNC = 180;
else if OCCUP = 695 and (INDUS >= 107 and INDUS <= 108) then DUNC = 070;
else if OCCUP = 695 and (INDUS >= 109 and INDUS <= 109) then DUNC = 090;
else if OCCUP = 695 and (INDUS >= 118 and INDUS <= 118) then DUNC = 090;
else if OCCUP = 695 and (INDUS >= 119 and INDUS <= 119) then DUNC = 230;
else if OCCUP = 695 and (INDUS >= 127 and INDUS <= 128) then DUNC = 100;
else if OCCUP = 695 and (INDUS >= 137 and INDUS <= 137) then DUNC = 210;
else if OCCUP = 695 and (INDUS >= 138 and INDUS <= 138) then DUNC = 150;
else if OCCUP = 695 and (INDUS >= 139 and INDUS <= 139) then DUNC = 170;
else if OCCUP = 695 and (INDUS >= 147 and INDUS <= 147) then DUNC = 120;
else if OCCUP = 695 and (INDUS >= 148 and INDUS <= 149) then DUNC = 150;
else if OCCUP = 695 and (INDUS >= 157 and INDUS <= 158) then DUNC = 160;
else if OCCUP = 695 and (INDUS >= 159 and INDUS <= 159) then DUNC = 150;
else if OCCUP = 695 and (INDUS >= 167 and INDUS <= 168) then DUNC = 150;
else if OCCUP = 695 and (INDUS >= 169 and INDUS <= 169) then DUNC = 140;
else if OCCUP = 695 and (INDUS >= 177 and INDUS <= 177) then DUNC = 220;
else if OCCUP = 695 and (INDUS >= 178 and INDUS <= 178) then DUNC = 210;
else if OCCUP = 695 and (INDUS >= 179 and INDUS <= 179) then DUNC = 220;
else if OCCUP = 695 and (INDUS >= 187 and INDUS <= 187) then DUNC = 220;
else if OCCUP = 695 and (INDUS >= 188 and INDUS <= 189) then DUNC = 310;
else if OCCUP = 695 and (INDUS >= 197 and INDUS <= 198) then DUNC = 220;
else if OCCUP = 695 and (INDUS >= 199 and INDUS <= 209) then DUNC = 260;
else if OCCUP = 695 and (INDUS >= 219 and INDUS <= 219) then DUNC = 210;
else if OCCUP = 695 and (INDUS >= 227 and INDUS <= 227) then DUNC = 340;
else if OCCUP = 695 and (INDUS >= 228 and INDUS <= 228) then DUNC = 160;
else if OCCUP = 695 and (INDUS >= 229 and INDUS <= 238) then DUNC = 230;
else if OCCUP = 695 and (INDUS >= 239 and INDUS <= 239) then DUNC = 230;
else if OCCUP = 695 and (INDUS >= 247 and INDUS <= 247) then DUNC = 230;
else if OCCUP = 695 and (INDUS >= 248 and INDUS <= 248) then DUNC = 400;
else if OCCUP = 695 and (INDUS >= 249 and INDUS <= 249) then DUNC = 280;
else if OCCUP = 695 and (INDUS >= 257 and INDUS <= 257) then DUNC = 230;
else if OCCUP = 695 and (INDUS >= 258 and INDUS <= 258) then DUNC = 150;
else if OCCUP = 695 and (INDUS >= 259 and INDUS <= 259) then DUNC = 160;
else if OCCUP = 695 and (INDUS >= 268 and INDUS <= 268) then DUNC = 160;
else if OCCUP = 695 and (INDUS >= 269 and INDUS <= 269) then DUNC = 220;
else if OCCUP = 695 and (INDUS >= 278 and INDUS <= 278) then DUNC = 090;
else if OCCUP = 695 and (INDUS >= 279 and INDUS <= 279) then DUNC = 140;
else if OCCUP = 695 and (INDUS >= 287 and INDUS <= 287) then DUNC = 150;
else if OCCUP = 695 and (INDUS >= 288 and INDUS <= 288) then DUNC = 120;
else if OCCUP = 695 and (INDUS >= 289 and INDUS <= 289) then DUNC = 190;
else if OCCUP = 695 and (INDUS >= 297 and INDUS <= 297) then DUNC = 110;
else if OCCUP = 695 and (INDUS >= 298 and INDUS <= 298) then DUNC = 190;
else if OCCUP = 695 and (INDUS >= 299 and INDUS <= 299) then DUNC = 020;
else if OCCUP = 695 and (INDUS >= 307 and INDUS <= 307) then DUNC = 210;
else if OCCUP = 695 and (INDUS >= 308 and INDUS <= 308) then DUNC = 080;
else if OCCUP = 695 and (INDUS >= 309 and INDUS <= 309) then DUNC = 140;
else if OCCUP = 695 and (INDUS >= 317 and INDUS <= 317) then DUNC = 020;
else if OCCUP = 695 and (INDUS >= 318 and INDUS <= 318) then DUNC = 100;
else if OCCUP = 695 and (INDUS >= 319 and INDUS <= 319) then DUNC = 220;
else if OCCUP = 695 and (INDUS >= 327 and INDUS <= 327) then DUNC = 170;
else if OCCUP = 695 and (INDUS >= 328 and INDUS <= 329) then DUNC = 190;
else if OCCUP = 695 and (INDUS >= 337 and INDUS <= 337) then DUNC = 170;
else if OCCUP = 695 and (INDUS >= 338 and INDUS <= 339) then DUNC = 310;
else if OCCUP = 695 and (INDUS >= 347 and INDUS <= 348) then DUNC = 230;
else if OCCUP = 695 and (INDUS >= 349 and INDUS <= 349) then DUNC = 090;
else if OCCUP = 695 and (INDUS >= 357 and INDUS <= 357) then DUNC = 260;
else if OCCUP = 695 and (INDUS >= 358 and INDUS <= 358) then DUNC = 230;
else if OCCUP = 695 and (INDUS >= 359 and INDUS <= 359) then DUNC = 150;
else if OCCUP = 695 and (INDUS >= 367 and INDUS <= 369) then DUNC = 230;
else if OCCUP = 695 and (INDUS >= 377 and INDUS <= 377) then DUNC = 560;
else if OCCUP = 695 and (INDUS >= 378 and INDUS <= 378) then DUNC = 140;
else if OCCUP = 695 and (INDUS >= 379 and INDUS <= 379) then DUNC = 220;
else if OCCUP = 695 and (INDUS >= 387 and INDUS <= 387) then DUNC = 220;
else if OCCUP = 695 and (INDUS >= 388 and INDUS <= 388) then DUNC = 100;
else if OCCUP = 695 and (INDUS >= 389 and INDUS <= 389) then DUNC = 090;
else if OCCUP = 695 and (INDUS >= 397 and INDUS <= 397) then DUNC = 140;
else if OCCUP = 695 and (INDUS >= 398 and INDUS <= 398) then DUNC = 160;
else if OCCUP = 695 and (INDUS >= 407 and INDUS <= 407) then DUNC = 150;
else if OCCUP = 695 and (INDUS >= 408 and INDUS <= 429) then DUNC = 230;
else if OCCUP = 695 and (INDUS >= 447 and INDUS <= 479) then DUNC = 210;
else if OCCUP = 695 and (INDUS >= 507 and INDUS <= 698) then DUNC = 170;
else if OCCUP = 695 and (INDUS >= 707 and INDUS <= 718) then DUNC = 200;
else if OCCUP = 695 and (INDUS >= 727 and INDUS <= 759) then DUNC = 190;
else if OCCUP = 695 and (INDUS >= 769 and INDUS <= 798) then DUNC = 110;
else if OCCUP = 695 and (INDUS >= 807 and INDUS <= 897) then DUNC = 200;
else if OCCUP = 695 and (INDUS >= 907 and INDUS <= 937) then DUNC = 170;
else if OCCUP = 695 and (INDUS >= 997 and INDUS <= 997) then DUNC = 200;
else if OCCUP = 695 and (INDUS >= 999 and INDUS <= 999) then DUNC = 200;
else if OCCUP = 695 then DUNC = 192;
else if OCCUP = 696 then DUNC = 180;
else if OCCUP = 701 then DUNC = 240;
else if OCCUP = 703 then DUNC = 240;
else if OCCUP = 704 then DUNC = 325;
else if OCCUP = 705 then DUNC = 310;
else if OCCUP = 706 then DUNC = 168;
else if OCCUP = 710 then DUNC = 030;
else if OCCUP = 711 then DUNC = 188;
else if OCCUP = 712 then DUNC = 420;
else if OCCUP = 713 then DUNC = 440;
else if OCCUP = 714 then DUNC = 100;
else if OCCUP = 715 then DUNC = 151;
else if OCCUP = 726 then DUNC = 180;
else if OCCUP = 740 then DUNC = 169;
else if OCCUP = 750 then DUNC = 072;
else if OCCUP = 751 then DUNC = 071;
else if OCCUP = 752 then DUNC = 106;
else if OCCUP = 753 then DUNC = 087;
else if OCCUP = 754 then DUNC = 060;
else if OCCUP = 755 then DUNC = 109;
else if OCCUP = 760 then DUNC = 110;
else if OCCUP = 761 then DUNC = 041;
else if OCCUP = 762 then DUNC = 167;
else if OCCUP = 763 then DUNC = 080;
else if OCCUP = 764 then DUNC = 086;
else if OCCUP = 770 then DUNC = 083;
else if OCCUP = 780 and (INDUS >= 017 and INDUS <= 057) then DUNC = 200;
else if OCCUP = 780 and (INDUS >= 067 and INDUS <= 078) then DUNC = 180;
else if OCCUP = 780 and (INDUS >= 107 and INDUS <= 108) then DUNC = 070;
else if OCCUP = 780 and (INDUS >= 109 and INDUS <= 109) then DUNC = 090;
else if OCCUP = 780 and (INDUS >= 118 and INDUS <= 118) then DUNC = 090;
else if OCCUP = 780 and (INDUS >= 119 and INDUS <= 119) then DUNC = 230;
else if OCCUP = 780 and (INDUS >= 127 and INDUS <= 128) then DUNC = 100;
else if OCCUP = 780 and (INDUS >= 137 and INDUS <= 137) then DUNC = 210;
else if OCCUP = 780 and (INDUS >= 138 and INDUS <= 138) then DUNC = 150;
else if OCCUP = 780 and (INDUS >= 139 and INDUS <= 139) then DUNC = 170;
else if OCCUP = 780 and (INDUS >= 147 and INDUS <= 147) then DUNC = 120;
else if OCCUP = 780 and (INDUS >= 148 and INDUS <= 149) then DUNC = 150;
else if OCCUP = 780 and (INDUS >= 157 and INDUS <= 158) then DUNC = 160;
else if OCCUP = 780 and (INDUS >= 159 and INDUS <= 159) then DUNC = 150;
else if OCCUP = 780 and (INDUS >= 167 and INDUS <= 168) then DUNC = 150;
else if OCCUP = 780 and (INDUS >= 169 and INDUS <= 169) then DUNC = 140;
else if OCCUP = 780 and (INDUS >= 177 and INDUS <= 177) then DUNC = 220;
else if OCCUP = 780 and (INDUS >= 178 and INDUS <= 178) then DUNC = 210;
else if OCCUP = 780 and (INDUS >= 179 and INDUS <= 179) then DUNC = 220;
else if OCCUP = 780 and (INDUS >= 187 and INDUS <= 187) then DUNC = 220;
else if OCCUP = 780 and (INDUS >= 188 and INDUS <= 189) then DUNC = 310;
else if OCCUP = 780 and (INDUS >= 197 and INDUS <= 198) then DUNC = 220;
else if OCCUP = 780 and (INDUS >= 199 and INDUS <= 209) then DUNC = 260;
else if OCCUP = 780 and (INDUS >= 219 and INDUS <= 219) then DUNC = 210;
else if OCCUP = 780 and (INDUS >= 227 and INDUS <= 227) then DUNC = 340;
else if OCCUP = 780 and (INDUS >= 228 and INDUS <= 228) then DUNC = 160;
else if OCCUP = 780 and (INDUS >= 229 and INDUS <= 239) then DUNC = 230;
else if OCCUP = 780 and (INDUS >= 247 and INDUS <= 247) then DUNC = 230;
else if OCCUP = 780 and (INDUS >= 248 and INDUS <= 248) then DUNC = 400;
else if OCCUP = 780 and (INDUS >= 249 and INDUS <= 249) then DUNC = 280;
else if OCCUP = 780 and (INDUS >= 257 and INDUS <= 257) then DUNC = 230;
else if OCCUP = 780 and (INDUS >= 258 and INDUS <= 258) then DUNC = 150;
else if OCCUP = 780 and (INDUS >= 259 and INDUS <= 259) then DUNC = 160;
else if OCCUP = 780 and (INDUS >= 268 and INDUS <= 268) then DUNC = 160;
else if OCCUP = 780 and (INDUS >= 269 and INDUS <= 269) then DUNC = 220;
else if OCCUP = 780 and (INDUS >= 278 and INDUS <= 278) then DUNC = 090;
else if OCCUP = 780 and (INDUS >= 279 and INDUS <= 279) then DUNC = 140;
else if OCCUP = 780 and (INDUS >= 287 and INDUS <= 287) then DUNC = 150;
else if OCCUP = 780 and (INDUS >= 288 and INDUS <= 288) then DUNC = 120;
else if OCCUP = 780 and (INDUS >= 289 and INDUS <= 289) then DUNC = 190;
else if OCCUP = 780 and (INDUS >= 297 and INDUS <= 297) then DUNC = 110;
else if OCCUP = 780 and (INDUS >= 298 and INDUS <= 298) then DUNC = 190;
else if OCCUP = 780 and (INDUS >= 299 and INDUS <= 299) then DUNC = 020;
else if OCCUP = 780 and (INDUS >= 307 and INDUS <= 307) then DUNC = 210;
else if OCCUP = 780 and (INDUS >= 308 and INDUS <= 308) then DUNC = 080;
else if OCCUP = 780 and (INDUS >= 309 and INDUS <= 309) then DUNC = 140;
else if OCCUP = 780 and (INDUS >= 317 and INDUS <= 317) then DUNC = 020;
else if OCCUP = 780 and (INDUS >= 318 and INDUS <= 318) then DUNC = 100;
else if OCCUP = 780 and (INDUS >= 319 and INDUS <= 319) then DUNC = 220;
else if OCCUP = 780 and (INDUS >= 327 and INDUS <= 327) then DUNC = 170;
else if OCCUP = 780 and (INDUS >= 328 and INDUS <= 329) then DUNC = 190;
else if OCCUP = 780 and (INDUS >= 337 and INDUS <= 337) then DUNC = 170;
else if OCCUP = 780 and (INDUS >= 338 and INDUS <= 339) then DUNC = 310;
else if OCCUP = 780 and (INDUS >= 347 and INDUS <= 348) then DUNC = 230;
else if OCCUP = 780 and (INDUS >= 349 and INDUS <= 349) then DUNC = 090;
else if OCCUP = 780 and (INDUS >= 357 and INDUS <= 357) then DUNC = 260;
else if OCCUP = 780 and (INDUS >= 358 and INDUS <= 358) then DUNC = 230;
else if OCCUP = 780 and (INDUS >= 359 and INDUS <= 359) then DUNC = 150;
else if OCCUP = 780 and (INDUS >= 367 and INDUS <= 369) then DUNC = 230;
else if OCCUP = 780 and (INDUS >= 377 and INDUS <= 377) then DUNC = 560;
else if OCCUP = 780 and (INDUS >= 378 and INDUS <= 378) then DUNC = 140;
else if OCCUP = 780 and (INDUS >= 379 and INDUS <= 379) then DUNC = 220;
else if OCCUP = 780 and (INDUS >= 387 and INDUS <= 387) then DUNC = 220;
else if OCCUP = 780 and (INDUS >= 388 and INDUS <= 388) then DUNC = 100;
else if OCCUP = 780 and (INDUS >= 389 and INDUS <= 389) then DUNC = 090;
else if OCCUP = 780 and (INDUS >= 397 and INDUS <= 397) then DUNC = 140;
else if OCCUP = 780 and (INDUS >= 398 and INDUS <= 398) then DUNC = 160;
else if OCCUP = 780 and (INDUS >= 407 and INDUS <= 407) then DUNC = 150;
else if OCCUP = 780 and (INDUS >= 408 and INDUS <= 429) then DUNC = 230;
else if OCCUP = 780 and (INDUS >= 447 and INDUS <= 479) then DUNC = 210;
else if OCCUP = 780 and (INDUS >= 507 and INDUS <= 698) then DUNC = 170;
else if OCCUP = 780 and (INDUS >= 707 and INDUS <= 718) then DUNC = 200;
else if OCCUP = 780 and (INDUS >= 727 and INDUS <= 759) then DUNC = 190;
else if OCCUP = 780 and (INDUS >= 769 and INDUS <= 798) then DUNC = 110;
else if OCCUP = 780 and (INDUS >= 807 and INDUS <= 897) then DUNC = 200;
else if OCCUP = 780 and (INDUS >= 907 and INDUS <= 937) then DUNC = 170;
else if OCCUP = 780 and (INDUS >= 997 and INDUS <= 997) then DUNC = 200;
else if OCCUP = 780 and (INDUS >= 999 and INDUS <= 999) then DUNC = 200;
else if OCCUP = 780 then DUNC = 082;
else if OCCUP = 785 and (INDUS >= 017 and INDUS <= 057) then DUNC = 200;
else if OCCUP = 785 and (INDUS >= 067 and INDUS <= 078) then DUNC = 180;
else if OCCUP = 785 and (INDUS >= 107 and INDUS <= 108) then DUNC = 070;
else if OCCUP = 785 and (INDUS >= 109 and INDUS <= 109) then DUNC = 090;
else if OCCUP = 785 and (INDUS >= 118 and INDUS <= 118) then DUNC = 090;
else if OCCUP = 785 and (INDUS >= 119 and INDUS <= 119) then DUNC = 230;
else if OCCUP = 785 and (INDUS >= 127 and INDUS <= 128) then DUNC = 100;
else if OCCUP = 785 and (INDUS >= 137 and INDUS <= 137) then DUNC = 210;
else if OCCUP = 785 and (INDUS >= 138 and INDUS <= 138) then DUNC = 150;
else if OCCUP = 785 and (INDUS >= 139 and INDUS <= 139) then DUNC = 170;
else if OCCUP = 785 and (INDUS >= 147 and INDUS <= 147) then DUNC = 120;
else if OCCUP = 785 and (INDUS >= 148 and INDUS <= 149) then DUNC = 150;
else if OCCUP = 785 and (INDUS >= 157 and INDUS <= 158) then DUNC = 160;
else if OCCUP = 785 and (INDUS >= 159 and INDUS <= 159) then DUNC = 150;
else if OCCUP = 785 and (INDUS >= 167 and INDUS <= 168) then DUNC = 150;
else if OCCUP = 785 and (INDUS >= 169 and INDUS <= 169) then DUNC = 140;
else if OCCUP = 785 and (INDUS >= 177 and INDUS <= 177) then DUNC = 220;
else if OCCUP = 785 and (INDUS >= 178 and INDUS <= 178) then DUNC = 210;
else if OCCUP = 785 and (INDUS >= 179 and INDUS <= 179) then DUNC = 220;
else if OCCUP = 785 and (INDUS >= 187 and INDUS <= 187) then DUNC = 220;
else if OCCUP = 785 and (INDUS >= 188 and INDUS <= 189) then DUNC = 310;
else if OCCUP = 785 and (INDUS >= 197 and INDUS <= 198) then DUNC = 220;
else if OCCUP = 785 and (INDUS >= 199 and INDUS <= 209) then DUNC = 260;
else if OCCUP = 785 and (INDUS >= 219 and INDUS <= 219) then DUNC = 210;
else if OCCUP = 785 and (INDUS >= 227 and INDUS <= 227) then DUNC = 340;
else if OCCUP = 785 and (INDUS >= 228 and INDUS <= 228) then DUNC = 160;
else if OCCUP = 785 and (INDUS >= 229 and INDUS <= 239) then DUNC = 230;
else if OCCUP = 785 and (INDUS >= 247 and INDUS <= 247) then DUNC = 230;
else if OCCUP = 785 and (INDUS >= 248 and INDUS <= 248) then DUNC = 400;
else if OCCUP = 785 and (INDUS >= 249 and INDUS <= 249) then DUNC = 280;
else if OCCUP = 785 and (INDUS >= 257 and INDUS <= 257) then DUNC = 230;
else if OCCUP = 785 and (INDUS >= 258 and INDUS <= 258) then DUNC = 150;
else if OCCUP = 785 and (INDUS >= 259 and INDUS <= 259) then DUNC = 160;
else if OCCUP = 785 and (INDUS >= 268 and INDUS <= 268) then DUNC = 160;
else if OCCUP = 785 and (INDUS >= 269 and INDUS <= 269) then DUNC = 220;
else if OCCUP = 785 and (INDUS >= 278 and INDUS <= 278) then DUNC = 090;
else if OCCUP = 785 and (INDUS >= 279 and INDUS <= 279) then DUNC = 140;
else if OCCUP = 785 and (INDUS >= 287 and INDUS <= 287) then DUNC = 150;
else if OCCUP = 785 and (INDUS >= 288 and INDUS <= 288) then DUNC = 120;
else if OCCUP = 785 and (INDUS >= 289 and INDUS <= 289) then DUNC = 190;
else if OCCUP = 785 and (INDUS >= 297 and INDUS <= 297) then DUNC = 110;
else if OCCUP = 785 and (INDUS >= 298 and INDUS <= 298) then DUNC = 190;
else if OCCUP = 785 and (INDUS >= 299 and INDUS <= 299) then DUNC = 020;
else if OCCUP = 785 and (INDUS >= 307 and INDUS <= 307) then DUNC = 210;
else if OCCUP = 785 and (INDUS >= 308 and INDUS <= 308) then DUNC = 080;
else if OCCUP = 785 and (INDUS >= 309 and INDUS <= 309) then DUNC = 140;
else if OCCUP = 785 and (INDUS >= 317 and INDUS <= 317) then DUNC = 020;
else if OCCUP = 785 and (INDUS >= 318 and INDUS <= 318) then DUNC = 100;
else if OCCUP = 785 and (INDUS >= 319 and INDUS <= 319) then DUNC = 220;
else if OCCUP = 785 and (INDUS >= 327 and INDUS <= 327) then DUNC = 170;
else if OCCUP = 785 and (INDUS >= 328 and INDUS <= 329) then DUNC = 190;
else if OCCUP = 785 and (INDUS >= 337 and INDUS <= 337) then DUNC = 170;
else if OCCUP = 785 and (INDUS >= 338 and INDUS <= 339) then DUNC = 310;
else if OCCUP = 785 and (INDUS >= 347 and INDUS <= 348) then DUNC = 230;
else if OCCUP = 785 and (INDUS >= 349 and INDUS <= 349) then DUNC = 090;
else if OCCUP = 785 and (INDUS >= 357 and INDUS <= 357) then DUNC = 260;
else if OCCUP = 785 and (INDUS >= 358 and INDUS <= 358) then DUNC = 230;
else if OCCUP = 785 and (INDUS >= 359 and INDUS <= 359) then DUNC = 150;
else if OCCUP = 785 and (INDUS >= 367 and INDUS <= 369) then DUNC = 230;
else if OCCUP = 785 and (INDUS >= 377 and INDUS <= 377) then DUNC = 560;
else if OCCUP = 785 and (INDUS >= 378 and INDUS <= 378) then DUNC = 140;
else if OCCUP = 785 and (INDUS >= 379 and INDUS <= 379) then DUNC = 220;
else if OCCUP = 785 and (INDUS >= 387 and INDUS <= 387) then DUNC = 220;
else if OCCUP = 785 and (INDUS >= 388 and INDUS <= 388) then DUNC = 100;
else if OCCUP = 785 and (INDUS >= 389 and INDUS <= 389) then DUNC = 090;
else if OCCUP = 785 and (INDUS >= 397 and INDUS <= 397) then DUNC = 140;
else if OCCUP = 785 and (INDUS >= 398 and INDUS <= 398) then DUNC = 160;
else if OCCUP = 785 and (INDUS >= 407 and INDUS <= 407) then DUNC = 150;
else if OCCUP = 785 and (INDUS >= 408 and INDUS <= 429) then DUNC = 230;
else if OCCUP = 785 and (INDUS >= 447 and INDUS <= 479) then DUNC = 210;
else if OCCUP = 785 and (INDUS >= 507 and INDUS <= 698) then DUNC = 170;
else if OCCUP = 785 and (INDUS >= 707 and INDUS <= 718) then DUNC = 200;
else if OCCUP = 785 and (INDUS >= 727 and INDUS <= 759) then DUNC = 190;
else if OCCUP = 785 and (INDUS >= 769 and INDUS <= 798) then DUNC = 110;
else if OCCUP = 785 and (INDUS >= 807 and INDUS <= 897) then DUNC = 200;
else if OCCUP = 785 and (INDUS >= 907 and INDUS <= 937) then DUNC = 170;
else if OCCUP = 785 and (INDUS >= 997 and INDUS <= 997) then DUNC = 200;
else if OCCUP = 785 and (INDUS >= 999 and INDUS <= 999) then DUNC = 200;
else if OCCUP = 785 then DUNC = 083;
else if OCCUP = 796 then DUNC = 070;
else if OCCUP = 801 then DUNC = 140;
else if OCCUP = 802 then DUNC = 360;
else if OCCUP = 806 then DUNC = 140;
else if OCCUP = 821 then DUNC = 200;
else if OCCUP = 822 then DUNC = 063;
else if OCCUP = 823 then DUNC = 170;
else if OCCUP = 824 then DUNC = 220;
else if OCCUP = 846 then DUNC = 090;
else if OCCUP = 901 then DUNC = 134;
else if OCCUP = 902 then DUNC = 078;
else if OCCUP = 903 then DUNC = 127;
else if OCCUP = 910 then DUNC = 190;
else if OCCUP = 911 then DUNC = 110;
else if OCCUP = 912 then DUNC = 150;
else if OCCUP = 913 then DUNC = 110;
else if OCCUP = 914 then DUNC = 170;
else if OCCUP = 915 then DUNC = 160;
else if OCCUP = 916 then DUNC = 110;
else if OCCUP = 921 then DUNC = 380;
else if OCCUP = 922 then DUNC = 250;
else if OCCUP = 923 then DUNC = 510;
else if OCCUP = 924 then DUNC = 370;
else if OCCUP = 925 then DUNC = 137;
else if OCCUP = 926 then DUNC = 220;
else if OCCUP = 931 then DUNC = 310;
else if OCCUP = 932 then DUNC = 191;
else if OCCUP = 933 then DUNC = 263;
else if OCCUP = 934 then DUNC = 078;
else if OCCUP = 935 then DUNC = 170;
else if OCCUP = 940 then DUNC = 300;
else if OCCUP = 941 then DUNC = 080;
else if OCCUP = 942 then DUNC = 282;
else if OCCUP = 943 then DUNC = 100;
else if OCCUP = 944 then DUNC = 170;
else if OCCUP = 945 then DUNC = 310;
else if OCCUP = 950 then DUNC = 310;
else if OCCUP = 952 then DUNC = 260;
else if OCCUP = 953 then DUNC = 250;
else if OCCUP = 954 then DUNC = 110;
else if OCCUP = 960 then DUNC = 179;
else if OCCUP = 961 then DUNC = 370;
else if OCCUP = 962 then DUNC = 183;
else if OCCUP = 963 then DUNC = 210;
else if OCCUP = 964 and (INDUS >= 000 and INDUS <= 999) and
            CLASSW = 2 then DUNC = 400;              *govt;
else if OCCUP = 964 and (INDUS >= 000 and INDUS <= 999) and
            (CLASSW = 1 or (CLASSW>=3 and CLASSW<=9)) then DUNC = 360;
else if OCCUP = 964 then DUNC = 405;
else if OCCUP = 965 then DUNC = 340;
else if OCCUP >= 970 and OCCUP <= 974 then DUNC = 998;  *military;
else if OCCUP = 976 then DUNC = 170;
else if OCCUP = 980 then DUNC = 070;
else if OCCUP = 981 then DUNC = 070;
else if OCCUP = 982 then DUNC = 107;
else if OCCUP = 983 then DUNC = 120;
else if OCCUP = 984 then DUNC = 070;
else if OCCUP = 985 then DUNC = 998;  *housewife;
else if OCCUP = 986 then DUNC = 080;
else if OCCUP = 997 then DUNC = 997;
else if OCCUP = 998 then DUNC = 998;
else if OCCUP = 999 then DUNC = 999;
else DUNC = .;
return;


*1970 Siegel prestige score;

SIEGEL70:
if OCCUP = 001 then SIEG = 559;
else if OCCUP = 002 then SIEG = 667;
else if OCCUP = 003 then SIEG = 506;
else if OCCUP = 004 then SIEG = 506;
else if OCCUP = 005 then SIEG = 506;
else if OCCUP = 006 then SIEG = 711;
else if OCCUP = 010 then SIEG = 672;
else if OCCUP = 011 then SIEG = 678;
else if OCCUP = 012 then SIEG = 694;
else if OCCUP = 013 then SIEG = 556;
else if OCCUP = 014 then SIEG = 621;
else if OCCUP = 015 then SIEG = 584;
else if OCCUP = 020 then SIEG = 616;
else if OCCUP = 021 then SIEG = 571;
else if OCCUP = 022 then SIEG = 506;
else if OCCUP = 023 then SIEG = 670;
else if OCCUP = 024 then SIEG = 539;
else if OCCUP = 025 then SIEG = 539;
else if OCCUP = 026 then SIEG = 539;
else if OCCUP = 030 then SIEG = 757;
else if OCCUP = 031 then SIEG = 751;
else if OCCUP = 032 then SIEG = 546;
else if OCCUP = 033 then SIEG = 596;
else if OCCUP = 034 then SIEG = 554;
else if OCCUP = 035 then SIEG = 650;
else if OCCUP = 036 then SIEG = 554;
else if OCCUP = 042 then SIEG = 558;
else if OCCUP = 043 then SIEG = 470;
else if OCCUP = 044 then SIEG = 677;
else if OCCUP = 045 then SIEG = 671;
else if OCCUP = 051 then SIEG = 672;
else if OCCUP = 052 then SIEG = 672;
else if OCCUP = 053 then SIEG = 738;
else if OCCUP = 054 then SIEG = 648;
else if OCCUP = 055 then SIEG = 508;
else if OCCUP = 056 then SIEG = 558;
else if OCCUP = 061 then SIEG = 600;
else if OCCUP = 062 then SIEG = 736;
else if OCCUP = 063 then SIEG = 620;
else if OCCUP = 064 then SIEG = 603;
else if OCCUP = 065 then SIEG = 812;
else if OCCUP = 071 then SIEG = 367;
else if OCCUP = 072 then SIEG = 597;
else if OCCUP = 073 then SIEG = 367;
else if OCCUP = 074 then SIEG = 521;
else if OCCUP = 075 then SIEG = 601;
else if OCCUP = 076 then SIEG = 405;
else if OCCUP = 080 then SIEG = 610;
else if OCCUP = 081 then SIEG = 610;
else if OCCUP = 082 then SIEG = 546;
else if OCCUP = 083 then SIEG = 610;
else if OCCUP = 084 then SIEG = 610;
else if OCCUP = 085 then SIEG = 498;
else if OCCUP = 086 then SIEG = 690;
else if OCCUP = 090 then SIEG = 550;
else if OCCUP = 091 then SIEG = 536;
else if OCCUP = 092 then SIEG = 714;
else if OCCUP = 093 then SIEG = 714;
else if OCCUP = 094 then SIEG = 714;
else if OCCUP = 095 then SIEG = 506;
else if OCCUP = 096 then SIEG = 656;
else if OCCUP = 100 then SIEG = 524;
else if OCCUP = 101 then SIEG = 486;
else if OCCUP = 102 then SIEG = 783;
else if OCCUP = 103 then SIEG = 783;
else if OCCUP = 104 then SIEG = 783;
else if OCCUP = 105 then SIEG = 783;
else if OCCUP = 110 then SIEG = 783;
else if OCCUP = 111 then SIEG = 783;
else if OCCUP = 112 then SIEG = 783;
else if OCCUP = 113 then SIEG = 783;
else if OCCUP = 114 then SIEG = 783;
else if OCCUP = 115 then SIEG = 783;
else if OCCUP = 116 then SIEG = 783;
else if OCCUP = 120 then SIEG = 783;
else if OCCUP = 121 then SIEG = 783;
else if OCCUP = 122 then SIEG = 783;
else if OCCUP = 123 then SIEG = 468;
else if OCCUP = 124 then SIEG = 532;
else if OCCUP = 125 then SIEG = 783;
else if OCCUP = 126 then SIEG = 783;
else if OCCUP = 130 then SIEG = 783;
else if OCCUP = 131 then SIEG = 532;
else if OCCUP = 132 then SIEG = 783;
else if OCCUP = 133 then SIEG = 783;
else if OCCUP = 134 then SIEG = 783;
else if OCCUP = 135 then SIEG = 783;
else if OCCUP = 140 then SIEG = 783;
else if OCCUP = 141 then SIEG = 443;
else if OCCUP = 142 then SIEG = 589;
else if OCCUP = 143 then SIEG = 561;
else if OCCUP = 144 then SIEG = 598;
else if OCCUP = 145 then SIEG = 442;
else if OCCUP = 150 then SIEG = 472;
else if OCCUP = 151 then SIEG = 470;
else if OCCUP = 152 then SIEG = 561;
else if OCCUP = 153 then SIEG = 516;
else if OCCUP = 154 then SIEG = 495;
else if OCCUP = 155 then SIEG = 470;
else if OCCUP = 156 then SIEG = 468;
else if OCCUP = 161 then SIEG = 531;
else if OCCUP = 162 then SIEG = 470;
else if OCCUP = 163 then SIEG = 701;
else if OCCUP = 164 then SIEG = 428;
else if OCCUP = 165 then SIEG = 517;
else if OCCUP = 170 then SIEG = 482;
else if OCCUP = 171 then SIEG = 428;
else if OCCUP = 172 then SIEG = 470;
else if OCCUP = 173 then SIEG = 472;
else if OCCUP = 174 then SIEG = 506;
else if OCCUP = 175 then SIEG = 550;
else if OCCUP = 180 then SIEG = 518;
else if OCCUP = 181 then SIEG = 598;
else if OCCUP = 182 then SIEG = 376;
else if OCCUP = 183 then SIEG = 565;
else if OCCUP = 184 then SIEG = 512;
else if OCCUP = 185 then SIEG = 460;
else if OCCUP = 190 then SIEG = 562;
else if OCCUP = 191 then SIEG = 405;
else if OCCUP = 192 then SIEG = 567;
else if OCCUP = 193 then SIEG = 506;
else if OCCUP = 194 then SIEG = 386;
else if OCCUP = 195 then SIEG = 506;
else if OCCUP = 196 then SIEG = 596;
else if OCCUP = 201 then SIEG = 509;
else if OCCUP = 202 then SIEG = 661;
else if OCCUP = 203 then SIEG = 430;
else if OCCUP = 205 then SIEG = 500;
else if OCCUP = 210 then SIEG = 488;
else if OCCUP = 211 then SIEG = 522;
else if OCCUP = 212 then SIEG = 638;
else if OCCUP = 213 then SIEG = 396;
else if OCCUP = 215 then SIEG = 423;
else if OCCUP = 216 then SIEG = 383;
else if OCCUP = 220 then SIEG = 576;
else if OCCUP = 221 then SIEG = 567;
else if OCCUP = 222 then SIEG = 607;
else if OCCUP = 223 then SIEG = 484;
else if OCCUP = 224 then SIEG = 584;
else if OCCUP = 225 then SIEG = 464;
else if OCCUP = 226 then SIEG = 409;
else if OCCUP = 230 then SIEG = 387;
else if OCCUP = 231 then SIEG = 485;
else if OCCUP = 233 then SIEG = 542;
else if OCCUP = 235 then SIEG = 706;
else if OCCUP = 240 then SIEG = 617;
else if OCCUP = 245 and (INDUS >= 017 and INDUS <= 058) then SIEG = 503;
else if OCCUP = 245 and (INDUS >= 067 and INDUS <= 078) then SIEG = 549;
else if OCCUP = 245 and (INDUS >= 107 and INDUS <= 399) then SIEG = 605;
else if OCCUP = 245 and (INDUS >= 407 and INDUS <= 499) then SIEG = 543;
else if OCCUP = 245 and (INDUS >= 507 and INDUS <= 599) then SIEG = 445;
else if OCCUP = 245 and (INDUS >= 607 and INDUS <= 608) then SIEG = 416;
else if OCCUP = 245 and (INDUS >= 609 and INDUS <= 627) then SIEG = 412;
else if OCCUP = 245 and (INDUS >= 628 and INDUS <= 638) then SIEG = 468;
else if OCCUP = 245 and (INDUS >= 639 and INDUS <= 639) then SIEG = 435;
else if OCCUP = 245 and (INDUS >= 647 and INDUS <= 647) then SIEG = 435;
else if OCCUP = 245 and (INDUS >= 648 and INDUS <= 648) then SIEG = 371;
else if OCCUP = 245 and (INDUS >= 649 and INDUS <= 649) then SIEG = 435;
else if OCCUP = 245 and (INDUS >= 657 and INDUS <= 668) then SIEG = 412;
else if OCCUP = 245 and (INDUS >= 669 and INDUS <= 669) then SIEG = 386;
else if OCCUP = 245 and (INDUS >= 677 and INDUS <= 699) then SIEG = 412;
else if OCCUP = 245 and (INDUS >= 707 and INDUS <= 709) then SIEG = 720;
else if OCCUP = 245 and (INDUS >= 717 and INDUS <= 718) then SIEG = 532;
else if OCCUP = 245 and (INDUS >= 727 and INDUS <= 748) then SIEG = 526;
else if OCCUP = 245 and (INDUS >= 749 and INDUS <= 749) then SIEG = 392;
else if OCCUP = 245 and (INDUS >= 757 and INDUS <= 757) then SIEG = 392;
else if OCCUP = 245 and (INDUS >= 758 and INDUS <= 759) then SIEG = 290;
else if OCCUP = 245 and (INDUS >= 767 and INDUS <= 767) then SIEG = 290;
else if OCCUP = 245 and (INDUS >= 769 and INDUS <= 799) then SIEG = 526;
else if OCCUP = 245 and (INDUS >= 807 and INDUS <= 899) then SIEG = 503;
else if OCCUP = 245 and (INDUS >= 997 and INDUS <= 997) then SIEG = 503;
else if OCCUP = 245 and (INDUS >= 999 and INDUS <= 999) then SIEG = 503;
else if OCCUP = 245 then SIEG = 508;
else if OCCUP = 246 then SIEG = 504;
else if OCCUP = 260 then SIEG = 423;
else if OCCUP = 261 then SIEG = 319;
else if OCCUP = 262 then SIEG = 283;
else if OCCUP = 264 then SIEG = 186;
else if OCCUP = 265 then SIEG = 468;
else if OCCUP = 266 then SIEG = 154;
else if OCCUP = 270 then SIEG = 440;
else if OCCUP = 271 then SIEG = 512;
else if OCCUP = 280 then SIEG = 354;
else if OCCUP = 281 then SIEG = 491;
else if OCCUP = 282 then SIEG = 399;
else if OCCUP = 283 then SIEG = 287;
else if OCCUP = 284 then SIEG = 286;
else if OCCUP = 285 then SIEG = 358;
else if OCCUP = 296 then SIEG = 336;
else if OCCUP = 301 then SIEG = 495;
else if OCCUP = 303 then SIEG = 362;
else if OCCUP = 305 then SIEG = 473;
else if OCCUP = 310 then SIEG = 314;
else if OCCUP = 311 then SIEG = 314;
else if OCCUP = 312 then SIEG = 358;
else if OCCUP = 313 then SIEG = 284;
else if OCCUP = 314 then SIEG = 362;
else if OCCUP = 315 then SIEG = 333;
else if OCCUP = 320 then SIEG = 362;
else if OCCUP = 321 then SIEG = 429;
else if OCCUP = 323 then SIEG = 360;
else if OCCUP = 325 then SIEG = 314;
else if OCCUP = 326 then SIEG = 476;
else if OCCUP = 330 then SIEG = 404;
else if OCCUP = 331 then SIEG = 423;
else if OCCUP = 332 then SIEG = 351;
else if OCCUP = 333 then SIEG = 194;
else if OCCUP = 334 then SIEG = 362;
else if OCCUP = 341 then SIEG = 437;
else if OCCUP = 342 then SIEG = 449;
else if OCCUP = 343 then SIEG = 449;
else if OCCUP = 344 then SIEG = 449;
else if OCCUP = 345 then SIEG = 449;
else if OCCUP = 350 then SIEG = 449;
else if OCCUP = 355 then SIEG = 449;
else if OCCUP = 360 then SIEG = 412;
else if OCCUP = 361 then SIEG = 423;
else if OCCUP = 362 then SIEG = 362;
else if OCCUP = 363 then SIEG = 430;
else if OCCUP = 364 then SIEG = 371;
else if OCCUP = 370 then SIEG = 458;
else if OCCUP = 371 then SIEG = 458;
else if OCCUP = 372 then SIEG = 465;
else if OCCUP = 374 then SIEG = 299;
else if OCCUP = 375 then SIEG = 358;
else if OCCUP = 376 then SIEG = 433;
else if OCCUP = 381 then SIEG = 250;
else if OCCUP = 382 then SIEG = 493;
else if OCCUP = 383 then SIEG = 298;
else if OCCUP = 384 then SIEG = 435;
else if OCCUP = 385 then SIEG = 404;
else if OCCUP = 390 then SIEG = 354;
else if OCCUP = 391 then SIEG = 413;
else if OCCUP = 392 then SIEG = 355;
else if OCCUP = 394 then SIEG = 362;
else if OCCUP = 395 then SIEG = 362;
else if OCCUP = 396 then SIEG = 394;
else if OCCUP = 401 then SIEG = 325;
else if OCCUP = 402 then SIEG = 340;
else if OCCUP = 403 then SIEG = 355;
else if OCCUP = 404 then SIEG = 306;
else if OCCUP = 405 then SIEG = 313;
else if OCCUP = 410 then SIEG = 357;
else if OCCUP = 411 then SIEG = 408;
else if OCCUP = 412 then SIEG = 323;
else if OCCUP = 413 then SIEG = 381;
else if OCCUP = 415 then SIEG = 397;
else if OCCUP = 416 then SIEG = 408;
else if OCCUP = 420 then SIEG = 328;
else if OCCUP = 421 then SIEG = 316;
else if OCCUP = 422 then SIEG = 380;
else if OCCUP = 423 then SIEG = 408;
else if OCCUP = 424 then SIEG = 387;
else if OCCUP = 425 then SIEG = 374;
else if OCCUP = 426 then SIEG = 610;
else if OCCUP = 430 then SIEG = 492;
else if OCCUP = 431 then SIEG = 408;
else if OCCUP = 433 then SIEG = 392;
else if OCCUP = 434 then SIEG = 380;
else if OCCUP = 435 then SIEG = 412;
else if OCCUP = 436 then SIEG = 315;
else if OCCUP = 440 then SIEG = 314;
else if OCCUP = 441 and (INDUS >= 017 and INDUS <= 058) then SIEG = 456;
else if OCCUP = 441 and (INDUS >= 067 and INDUS <= 078) then SIEG = 461;
else if OCCUP = 441 and (INDUS >= 107 and INDUS <= 399) then SIEG = 451;
else if OCCUP = 441 and (INDUS >= 407 and INDUS <= 947) then SIEG = 456;
else if OCCUP = 441 and (INDUS >= 997 and INDUS <= 997) then SIEG = 456;
else if OCCUP = 441 and (INDUS >= 999 and INDUS <= 999) then SIEG = 456;
else if OCCUP = 441 then SIEG = 453;
else if OCCUP = 442 then SIEG = 355;
else if OCCUP = 443 then SIEG = 291;
else if OCCUP = 444 then SIEG = 352;
else if OCCUP = 445 then SIEG = 267;
else if OCCUP = 446 then SIEG = 353;
else if OCCUP = 450 then SIEG = 310;
else if OCCUP = 452 then SIEG = 313;
else if OCCUP = 453 then SIEG = 375;
else if OCCUP = 454 then SIEG = 464;
else if OCCUP = 455 then SIEG = 508;
else if OCCUP = 456 then SIEG = 362;
else if OCCUP = 461 then SIEG = 477;
else if OCCUP = 462 then SIEG = 408;
else if OCCUP = 470 then SIEG = 367;
else if OCCUP = 471 then SIEG = 482;
else if OCCUP = 472 then SIEG = 367;
else if OCCUP = 473 then SIEG = 367;
else if OCCUP = 474 then SIEG = 408;
else if OCCUP = 475 then SIEG = 408;
else if OCCUP = 480 then SIEG = 326;
else if OCCUP = 481 then SIEG = 328;
else if OCCUP = 482 then SIEG = 326;
else if OCCUP = 483 then SIEG = 304;
else if OCCUP = 484 then SIEG = 338;
else if OCCUP = 485 then SIEG = 350;
else if OCCUP = 486 then SIEG = 356;
else if OCCUP = 491 then SIEG = 408;
else if OCCUP = 492 then SIEG = 328;
else if OCCUP = 495 then SIEG = 326;
else if OCCUP = 501 then SIEG = 252;
else if OCCUP = 502 then SIEG = 403;
else if OCCUP = 503 then SIEG = 391;
else if OCCUP = 504 then SIEG = 408;
else if OCCUP = 505 then SIEG = 339;
else if OCCUP = 506 then SIEG = 514;
else if OCCUP = 510 then SIEG = 299;
else if OCCUP = 511 then SIEG = 408;
else if OCCUP = 512 then SIEG = 277;
else if OCCUP = 514 then SIEG = 387;
else if OCCUP = 515 then SIEG = 401;
else if OCCUP = 516 then SIEG = 320;
else if OCCUP = 520 then SIEG = 332;
else if OCCUP = 521 then SIEG = 408;
else if OCCUP = 522 then SIEG = 406;
else if OCCUP = 523 then SIEG = 408;
else if OCCUP = 525 then SIEG = 388;
else if OCCUP = 530 then SIEG = 393;
else if OCCUP = 531 then SIEG = 408;
else if OCCUP = 533 then SIEG = 360;
else if OCCUP = 534 then SIEG = 315;
else if OCCUP = 535 then SIEG = 368;
else if OCCUP = 536 then SIEG = 408;
else if OCCUP = 540 then SIEG = 355;
else if OCCUP = 542 then SIEG = 326;
else if OCCUP = 543 then SIEG = 307;
else if OCCUP = 545 then SIEG = 349;
else if OCCUP = 546 then SIEG = 317;
else if OCCUP = 550 then SIEG = 356;
else if OCCUP = 551 then SIEG = 340;
else if OCCUP = 552 then SIEG = 391;
else if OCCUP = 554 then SIEG = 392;
else if OCCUP = 560 then SIEG = 384;
else if OCCUP = 561 then SIEG = 423;
else if OCCUP = 562 then SIEG = 408;
else if OCCUP = 563 then SIEG = 299;
else if OCCUP = 571 then SIEG = 408;
else if OCCUP = 572 then SIEG = 408;
else if OCCUP = 575 then SIEG = 421;
else if OCCUP = 580 then SIEG = 999;
else if OCCUP = 586 then SIEG = 388;
else if OCCUP = 601 then SIEG = 284;
else if OCCUP = 602 then SIEG = 275;
else if OCCUP = 603 then SIEG = 321;
else if OCCUP = 604 then SIEG = 233;
else if OCCUP = 605 then SIEG = 394;
else if OCCUP = 610 then SIEG = 361;
else if OCCUP = 611 then SIEG = 219;
else if OCCUP = 612 then SIEG = 288;
else if OCCUP = 613 then SIEG = 317;
else if OCCUP = 614 then SIEG = 262;
else if OCCUP = 615 then SIEG = 364;
else if OCCUP = 620 then SIEG = 250;
else if OCCUP = 621 then SIEG = 231;
else if OCCUP = 622 then SIEG = 329;
else if OCCUP = 623 then SIEG = 212;
else if OCCUP = 624 then SIEG = 329;
else if OCCUP = 625 then SIEG = 236;
else if OCCUP = 626 then SIEG = 329;
else if OCCUP = 630 then SIEG = 182;
else if OCCUP = 631 then SIEG = 320;
else if OCCUP = 633 then SIEG = 236;
else if OCCUP = 634 then SIEG = 194;
else if OCCUP = 635 then SIEG = 303;
else if OCCUP = 636 then SIEG = 334;
else if OCCUP = 640 and (INDUS >= 017 and INDUS <= 029) then SIEG = 264;
else if OCCUP = 640 and (INDUS >= 047 and INDUS <= 047) then SIEG = 258;
else if OCCUP = 640 and (INDUS >= 048 and INDUS <= 048) then SIEG = 252;
else if OCCUP = 640 and (INDUS >= 049 and INDUS <= 049) then SIEG = 284;
else if OCCUP = 640 and (INDUS >= 057 and INDUS <= 057) then SIEG = 258;
else if OCCUP = 640 and (INDUS >= 067 and INDUS <= 947) then SIEG = 264;
else if OCCUP = 640 and (INDUS >= 997 and INDUS <= 997) then SIEG = 264;
else if OCCUP = 640 and (INDUS >= 999 and INDUS <= 999) then SIEG = 264;
else if OCCUP = 640 then SIEG = 264;
else if OCCUP = 641 then SIEG = 275;
else if OCCUP = 642 then SIEG = 242;
else if OCCUP = 643 then SIEG = 195;
else if OCCUP = 644 then SIEG = 290;
else if OCCUP = 645 then SIEG = 359;
else if OCCUP = 650 then SIEG = 317;
else if OCCUP = 651 then SIEG = 190;
else if OCCUP = 652 then SIEG = 319;
else if OCCUP = 653 then SIEG = 311;
else if OCCUP = 656 then SIEG = 304;
else if OCCUP = 660 then SIEG = 316;
else if OCCUP = 661 then SIEG = 337;
else if OCCUP = 662 then SIEG = 276;
else if OCCUP = 663 then SIEG = 252;
else if OCCUP = 664 then SIEG = 316;
else if OCCUP = 665 then SIEG = 354;
else if OCCUP = 666 then SIEG = 317;
else if OCCUP = 670 then SIEG = 289;
else if OCCUP = 671 then SIEG = 294;
else if OCCUP = 672 then SIEG = 283;
else if OCCUP = 673 then SIEG = 250;
else if OCCUP = 674 then SIEG = 288;
else if OCCUP = 680 then SIEG = 401;
else if OCCUP = 681 then SIEG = 320;
else if OCCUP = 690 and (INDUS >= 017 and INDUS <= 057) then SIEG = 323;
else if OCCUP = 690 and (INDUS >= 067 and INDUS <= 078) then SIEG = 274;
else if OCCUP = 690 and (INDUS >= 107 and INDUS <= 109) then SIEG = 236;
else if OCCUP = 690 and (INDUS >= 118 and INDUS <= 118) then SIEG = 276;
else if OCCUP = 690 and (INDUS >= 119 and INDUS <= 138) then SIEG = 231;
else if OCCUP = 690 and (INDUS >= 139 and INDUS <= 149) then SIEG = 347;
else if OCCUP = 690 and (INDUS >= 157 and INDUS <= 169) then SIEG = 250;
else if OCCUP = 690 and (INDUS >= 177 and INDUS <= 198) then SIEG = 304;
else if OCCUP = 690 and (INDUS >= 199 and INDUS <= 209) then SIEG = 386;
else if OCCUP = 690 and (INDUS >= 219 and INDUS <= 219) then SIEG = 308;
else if OCCUP = 690 and (INDUS >= 227 and INDUS <= 227) then SIEG = 419;
else if OCCUP = 690 and (INDUS >= 228 and INDUS <= 228) then SIEG = 308;
else if OCCUP = 690 and (INDUS >= 229 and INDUS <= 238) then SIEG = 249;
else if OCCUP = 690 and (INDUS >= 239 and INDUS <= 257) then SIEG = 303;
else if OCCUP = 690 and (INDUS >= 258 and INDUS <= 258) then SIEG = 250;
else if OCCUP = 690 and (INDUS >= 259 and INDUS <= 259) then SIEG = 316;
else if OCCUP = 690 and (INDUS >= 268 and INDUS <= 298) then SIEG = 230;
else if OCCUP = 690 and (INDUS >= 299 and INDUS <= 299) then SIEG = 248;
else if OCCUP = 690 and (INDUS >= 307 and INDUS <= 318) then SIEG = 288;
else if OCCUP = 690 and (INDUS >= 319 and INDUS <= 319) then SIEG = 258;
else if OCCUP = 690 and (INDUS >= 327 and INDUS <= 327) then SIEG = 258;
else if OCCUP = 690 and (INDUS >= 328 and INDUS <= 337) then SIEG = 248;
else if OCCUP = 690 and (INDUS >= 338 and INDUS <= 339) then SIEG = 331;
else if OCCUP = 690 and (INDUS >= 347 and INDUS <= 369) then SIEG = 319;
else if OCCUP = 690 and (INDUS >= 377 and INDUS <= 378) then SIEG = 306;
else if OCCUP = 690 and (INDUS >= 379 and INDUS <= 387) then SIEG = 298;
else if OCCUP = 690 and (INDUS >= 388 and INDUS <= 398) then SIEG = 316;
else if OCCUP = 690 and (INDUS >= 407 and INDUS <= 479) then SIEG = 331;
else if OCCUP = 690 and (INDUS >= 507 and INDUS <= 699) then SIEG = 259;
else if OCCUP = 690 and (INDUS >= 707 and INDUS <= 718) then SIEG = 323;
else if OCCUP = 690 and (INDUS >= 727 and INDUS <= 798) then SIEG = 259;
else if OCCUP = 690 and (INDUS >= 807 and INDUS <= 897) then SIEG = 323;
else if OCCUP = 690 and (INDUS >= 907 and INDUS <= 937) then SIEG = 334;
else if OCCUP = 690 and (INDUS >= 997 and INDUS <= 997) then SIEG = 323;
else if OCCUP = 690 and (INDUS >= 999 and INDUS <= 999) then SIEG = 323;
else if OCCUP = 690 then SIEG = 284;
else if OCCUP = 692 and (INDUS >= 017 and INDUS <= 057) then SIEG = 323;
else if OCCUP = 692 and (INDUS >= 067 and INDUS <= 078) then SIEG = 274;
else if OCCUP = 692 and (INDUS >= 107 and INDUS <= 109) then SIEG = 236;
else if OCCUP = 692 and (INDUS >= 118 and INDUS <= 118) then SIEG = 276;
else if OCCUP = 692 and (INDUS >= 119 and INDUS <= 138) then SIEG = 231;
else if OCCUP = 692 and (INDUS >= 139 and INDUS <= 149) then SIEG = 347;
else if OCCUP = 692 and (INDUS >= 157 and INDUS <= 169) then SIEG = 250;
else if OCCUP = 692 and (INDUS >= 177 and INDUS <= 198) then SIEG = 304;
else if OCCUP = 692 and (INDUS >= 199 and INDUS <= 209) then SIEG = 386;
else if OCCUP = 692 and (INDUS >= 219 and INDUS <= 219) then SIEG = 308;
else if OCCUP = 692 and (INDUS >= 227 and INDUS <= 227) then SIEG = 419;
else if OCCUP = 692 and (INDUS >= 228 and INDUS <= 228) then SIEG = 308;
else if OCCUP = 692 and (INDUS >= 229 and INDUS <= 238) then SIEG = 249;
else if OCCUP = 692 and (INDUS >= 239 and INDUS <= 257) then SIEG = 303;
else if OCCUP = 692 and (INDUS >= 258 and INDUS <= 258) then SIEG = 250;
else if OCCUP = 692 and (INDUS >= 259 and INDUS <= 259) then SIEG = 316;
else if OCCUP = 692 and (INDUS >= 268 and INDUS <= 298) then SIEG = 230;
else if OCCUP = 692 and (INDUS >= 299 and INDUS <= 299) then SIEG = 248;
else if OCCUP = 692 and (INDUS >= 307 and INDUS <= 318) then SIEG = 288;
else if OCCUP = 692 and (INDUS >= 319 and INDUS <= 319) then SIEG = 258;
else if OCCUP = 692 and (INDUS >= 327 and INDUS <= 327) then SIEG = 258;
else if OCCUP = 692 and (INDUS >= 328 and INDUS <= 337) then SIEG = 248;
else if OCCUP = 692 and (INDUS >= 338 and INDUS <= 339) then SIEG = 331;
else if OCCUP = 692 and (INDUS >= 347 and INDUS <= 369) then SIEG = 319;
else if OCCUP = 692 and (INDUS >= 377 and INDUS <= 378) then SIEG = 306;
else if OCCUP = 692 and (INDUS >= 379 and INDUS <= 387) then SIEG = 298;
else if OCCUP = 692 and (INDUS >= 388 and INDUS <= 398) then SIEG = 316;
else if OCCUP = 692 and (INDUS >= 407 and INDUS <= 479) then SIEG = 331;
else if OCCUP = 692 and (INDUS >= 507 and INDUS <= 699) then SIEG = 259;
else if OCCUP = 692 and (INDUS >= 707 and INDUS <= 718) then SIEG = 323;
else if OCCUP = 692 and (INDUS >= 727 and INDUS <= 798) then SIEG = 259;
else if OCCUP = 692 and (INDUS >= 807 and INDUS <= 897) then SIEG = 323;
else if OCCUP = 692 and (INDUS >= 907 and INDUS <= 937) then SIEG = 334;
else if OCCUP = 692 and (INDUS >= 997 and INDUS <= 997) then SIEG = 323;
else if OCCUP = 692 and (INDUS >= 999 and INDUS <= 999) then SIEG = 323;
else if OCCUP = 692 then SIEG = 293;
else if OCCUP = 694 and (INDUS >= 017 and INDUS <= 057) then SIEG = 323;
else if OCCUP = 694 and (INDUS >= 067 and INDUS <= 078) then SIEG = 274;
else if OCCUP = 694 and (INDUS >= 107 and INDUS <= 109) then SIEG = 236;
else if OCCUP = 694 and (INDUS >= 118 and INDUS <= 118) then SIEG = 276;
else if OCCUP = 694 and (INDUS >= 119 and INDUS <= 138) then SIEG = 231;
else if OCCUP = 694 and (INDUS >= 139 and INDUS <= 149) then SIEG = 347;
else if OCCUP = 694 and (INDUS >= 157 and INDUS <= 169) then SIEG = 250;
else if OCCUP = 694 and (INDUS >= 177 and INDUS <= 198) then SIEG = 304;
else if OCCUP = 694 and (INDUS >= 199 and INDUS <= 209) then SIEG = 386;
else if OCCUP = 694 and (INDUS >= 219 and INDUS <= 219) then SIEG = 308;
else if OCCUP = 694 and (INDUS >= 227 and INDUS <= 227) then SIEG = 419;
else if OCCUP = 694 and (INDUS >= 228 and INDUS <= 228) then SIEG = 308;
else if OCCUP = 694 and (INDUS >= 229 and INDUS <= 238) then SIEG = 249;
else if OCCUP = 694 and (INDUS >= 239 and INDUS <= 257) then SIEG = 303;
else if OCCUP = 694 and (INDUS >= 258 and INDUS <= 258) then SIEG = 250;
else if OCCUP = 694 and (INDUS >= 259 and INDUS <= 259) then SIEG = 316;
else if OCCUP = 694 and (INDUS >= 268 and INDUS <= 298) then SIEG = 230;
else if OCCUP = 694 and (INDUS >= 299 and INDUS <= 299) then SIEG = 248;
else if OCCUP = 694 and (INDUS >= 307 and INDUS <= 318) then SIEG = 288;
else if OCCUP = 694 and (INDUS >= 319 and INDUS <= 319) then SIEG = 258;
else if OCCUP = 694 and (INDUS >= 327 and INDUS <= 327) then SIEG = 258;
else if OCCUP = 694 and (INDUS >= 328 and INDUS <= 337) then SIEG = 248;
else if OCCUP = 694 and (INDUS >= 338 and INDUS <= 339) then SIEG = 331;
else if OCCUP = 694 and (INDUS >= 347 and INDUS <= 369) then SIEG = 319;
else if OCCUP = 694 and (INDUS >= 377 and INDUS <= 378) then SIEG = 306;
else if OCCUP = 694 and (INDUS >= 379 and INDUS <= 387) then SIEG = 298;
else if OCCUP = 694 and (INDUS >= 388 and INDUS <= 398) then SIEG = 316;
else if OCCUP = 694 and (INDUS >= 407 and INDUS <= 479) then SIEG = 331;
else if OCCUP = 694 and (INDUS >= 507 and INDUS <= 699) then SIEG = 259;
else if OCCUP = 694 and (INDUS >= 707 and INDUS <= 718) then SIEG = 323;
else if OCCUP = 694 and (INDUS >= 727 and INDUS <= 798) then SIEG = 259;
else if OCCUP = 694 and (INDUS >= 807 and INDUS <= 897) then SIEG = 323;
else if OCCUP = 694 and (INDUS >= 907 and INDUS <= 937) then SIEG = 334;
else if OCCUP = 694 and (INDUS >= 997 and INDUS <= 997) then SIEG = 323;
else if OCCUP = 694 and (INDUS >= 999 and INDUS <= 999) then SIEG = 323;
else if OCCUP = 694 then SIEG = 291;
else if OCCUP = 695 and (INDUS >= 017 and INDUS <= 057) then SIEG = 323;
else if OCCUP = 695 and (INDUS >= 067 and INDUS <= 078) then SIEG = 274;
else if OCCUP = 695 and (INDUS >= 107 and INDUS <= 109) then SIEG = 236;
else if OCCUP = 695 and (INDUS >= 118 and INDUS <= 118) then SIEG = 276;
else if OCCUP = 695 and (INDUS >= 119 and INDUS <= 138) then SIEG = 231;
else if OCCUP = 695 and (INDUS >= 139 and INDUS <= 149) then SIEG = 347;
else if OCCUP = 695 and (INDUS >= 157 and INDUS <= 169) then SIEG = 250;
else if OCCUP = 695 and (INDUS >= 177 and INDUS <= 198) then SIEG = 304;
else if OCCUP = 695 and (INDUS >= 199 and INDUS <= 209) then SIEG = 386;
else if OCCUP = 695 and (INDUS >= 219 and INDUS <= 219) then SIEG = 308;
else if OCCUP = 695 and (INDUS >= 227 and INDUS <= 227) then SIEG = 419;
else if OCCUP = 695 and (INDUS >= 228 and INDUS <= 228) then SIEG = 308;
else if OCCUP = 695 and (INDUS >= 229 and INDUS <= 238) then SIEG = 249;
else if OCCUP = 695 and (INDUS >= 239 and INDUS <= 257) then SIEG = 303;
else if OCCUP = 695 and (INDUS >= 258 and INDUS <= 258) then SIEG = 250;
else if OCCUP = 695 and (INDUS >= 259 and INDUS <= 259) then SIEG = 316;
else if OCCUP = 695 and (INDUS >= 268 and INDUS <= 298) then SIEG = 230;
else if OCCUP = 695 and (INDUS >= 299 and INDUS <= 299) then SIEG = 248;
else if OCCUP = 695 and (INDUS >= 307 and INDUS <= 318) then SIEG = 288;
else if OCCUP = 695 and (INDUS >= 319 and INDUS <= 319) then SIEG = 258;
else if OCCUP = 695 and (INDUS >= 327 and INDUS <= 327) then SIEG = 258;
else if OCCUP = 695 and (INDUS >= 328 and INDUS <= 337) then SIEG = 248;
else if OCCUP = 695 and (INDUS >= 338 and INDUS <= 339) then SIEG = 331;
else if OCCUP = 695 and (INDUS >= 347 and INDUS <= 369) then SIEG = 319;
else if OCCUP = 695 and (INDUS >= 377 and INDUS <= 378) then SIEG = 306;
else if OCCUP = 695 and (INDUS >= 379 and INDUS <= 387) then SIEG = 298;
else if OCCUP = 695 and (INDUS >= 388 and INDUS <= 398) then SIEG = 316;
else if OCCUP = 695 and (INDUS >= 407 and INDUS <= 479) then SIEG = 331;
else if OCCUP = 695 and (INDUS >= 507 and INDUS <= 699) then SIEG = 259;
else if OCCUP = 695 and (INDUS >= 707 and INDUS <= 718) then SIEG = 323;
else if OCCUP = 695 and (INDUS >= 727 and INDUS <= 798) then SIEG = 259;
else if OCCUP = 695 and (INDUS >= 807 and INDUS <= 897) then SIEG = 323;
else if OCCUP = 695 and (INDUS >= 907 and INDUS <= 937) then SIEG = 334;
else if OCCUP = 695 and (INDUS >= 997 and INDUS <= 997) then SIEG = 323;
else if OCCUP = 695 and (INDUS >= 999 and INDUS <= 999) then SIEG = 323;
else if OCCUP = 695 then SIEG = 291;
else if OCCUP = 696 then SIEG = 287;
else if OCCUP = 701 then SIEG = 368;
else if OCCUP = 703 then SIEG = 324;
else if OCCUP = 704 then SIEG = 280;
else if OCCUP = 705 then SIEG = 282;
else if OCCUP = 706 then SIEG = 284;
else if OCCUP = 710 then SIEG = 272;
else if OCCUP = 711 then SIEG = 215;
else if OCCUP = 712 then SIEG = 347;
else if OCCUP = 713 then SIEG = 328;
else if OCCUP = 714 then SIEG = 220;
else if OCCUP = 715 then SIEG = 321;
else if OCCUP = 726 then SIEG = 287;
else if OCCUP = 740 then SIEG = 287;
else if OCCUP = 750 then SIEG = 230;
else if OCCUP = 751 then SIEG = 174;
else if OCCUP = 752 then SIEG = 303;
else if OCCUP = 753 then SIEG = 188;
else if OCCUP = 754 then SIEG = 173;
else if OCCUP = 755 then SIEG = 221;
else if OCCUP = 760 then SIEG = 244;
else if OCCUP = 761 then SIEG = 259;
else if OCCUP = 762 then SIEG = 206;
else if OCCUP = 763 then SIEG = 122;
else if OCCUP = 764 then SIEG = 185;
else if OCCUP = 770 then SIEG = 203;
else if OCCUP = 780 then SIEG = 191;
else if OCCUP = 785 then SIEG = 175;
else if OCCUP = 796 then SIEG = 184;
else if OCCUP = 801 then SIEG = 407;
else if OCCUP = 802 then SIEG = 437;
else if OCCUP = 806 then SIEG = 407;
else if OCCUP = 821 then SIEG = 350;
else if OCCUP = 822 then SIEG = 189;
else if OCCUP = 823 then SIEG = 184;
else if OCCUP = 824 then SIEG = 268;
else if OCCUP = 846 then SIEG = 187;
else if OCCUP = 901 then SIEG = 166;
else if OCCUP = 902 then SIEG = 184;
else if OCCUP = 903 then SIEG = 195;
else if OCCUP = 910 then SIEG = 199;
else if OCCUP = 911 then SIEG = 144;
else if OCCUP = 912 then SIEG = 264;
else if OCCUP = 913 then SIEG = 218;
else if OCCUP = 914 then SIEG = 154;
else if OCCUP = 915 then SIEG = 203;
else if OCCUP = 916 then SIEG = 209;
else if OCCUP = 921 then SIEG = 478;
else if OCCUP = 922 then SIEG = 263;
else if OCCUP = 923 then SIEG = 451;
else if OCCUP = 924 then SIEG = 233;
else if OCCUP = 925 then SIEG = 368;
else if OCCUP = 926 then SIEG = 419;
else if OCCUP = 931 then SIEG = 364;
else if OCCUP = 932 then SIEG = 156;
else if OCCUP = 933 then SIEG = 217;
else if OCCUP = 934 then SIEG = 175;
else if OCCUP = 935 then SIEG = 379;
else if OCCUP = 940 then SIEG = 221;
else if OCCUP = 941 then SIEG = 093;
else if OCCUP = 942 then SIEG = 240;
else if OCCUP = 943 then SIEG = 209;
else if OCCUP = 944 then SIEG = 332;
else if OCCUP = 945 then SIEG = 408;
else if OCCUP = 950 then SIEG = 364;
else if OCCUP = 952 then SIEG = 141;
else if OCCUP = 953 then SIEG = 149;
else if OCCUP = 954 then SIEG = 144;
else if OCCUP = 960 then SIEG = 253;
else if OCCUP = 961 then SIEG = 438;
else if OCCUP = 962 then SIEG = 222;
else if OCCUP = 963 then SIEG = 458;
else if OCCUP = 964 then SIEG = 477;
else if OCCUP = 965 then SIEG = 550;
else if OCCUP >= 970 and OCCUP <= 974 then SIEG = 998;  *military;
else if OCCUP = 976 then SIEG = 252;
else if OCCUP = 980 then SIEG = 226;
else if OCCUP = 981 then SIEG = 180;
else if OCCUP = 982 then SIEG = 201;
else if OCCUP = 983 then SIEG = 176;
else if OCCUP = 984 then SIEG = 180;
else if OCCUP = 985 then SIEG = 998;  *housewife;
else if OCCUP = 986 then SIEG = 196;
else if OCCUP = 997 then SIEG = 997;
else if OCCUP = 998 then SIEG = 998;
else if OCCUP = 999 then SIEG = 999;
else SIEG = .;
return;


*1970 TSEI2 occupational status score;

TSEI270:
if OCCUP = 1 then TSEI = 6468;
else if OCCUP = 2 then TSEI = 8011;
else if OCCUP = 3 then TSEI = 6605;
else if OCCUP = 4 then TSEI = 7410;
else if OCCUP = 5 then TSEI = 7119;
else if OCCUP = 6 then TSEI = 8353;
else if OCCUP = 10 then TSEI = 8714;
else if OCCUP = 11 then TSEI = 7679;
else if OCCUP = 12 then TSEI = 7904;
else if OCCUP = 13 then TSEI = 7202;
else if OCCUP = 14 then TSEI = 7684;
else if OCCUP = 15 then TSEI = 8034;
else if OCCUP = 20 then TSEI = 7549;
else if OCCUP = 21 then TSEI = 8232;
else if OCCUP = 22 then TSEI = 7816;
else if OCCUP = 23 then TSEI = 7636;
else if OCCUP = 24 then TSEI = 8025;
else if OCCUP = 25 then TSEI = 4957;
else if OCCUP = 26 then TSEI = 6583;
else if OCCUP = 30 then TSEI = 7968;
else if OCCUP = 31 then TSEI = 8842;
else if OCCUP = 32 then TSEI = 6546;
else if OCCUP = 33 then TSEI = 6122;
else if OCCUP = 34 then TSEI = 8037;
else if OCCUP = 35 then TSEI = 8439;
else if OCCUP = 36 then TSEI = 6512;
else if OCCUP = 42 then TSEI = 6380;
else if OCCUP = 43 then TSEI = 7458;
else if OCCUP = 44 then TSEI = 7673;
else if OCCUP = 45 then TSEI = 7776;
else if OCCUP = 51 then TSEI = 8735;
else if OCCUP = 52 then TSEI = 8248;
else if OCCUP = 53 then TSEI = 8700;
else if OCCUP = 54 then TSEI = 8005;
else if OCCUP = 55 then TSEI = 6494;
else if OCCUP = 56 then TSEI = 5988;
else if OCCUP = 61 then TSEI = 8019;
else if OCCUP = 62 then TSEI = 8957;
else if OCCUP = 63 then TSEI = 8573;
else if OCCUP = 64 then TSEI = 8110;
else if OCCUP = 65 then TSEI = 8837;
else if OCCUP = 71 then TSEI = 8289;
else if OCCUP = 72 then TSEI = 8660;
else if OCCUP = 73 then TSEI = 7166;
else if OCCUP = 74 then TSEI = 4338;
else if OCCUP = 75 then TSEI = 4641;
else if OCCUP = 76 then TSEI = 5994;
else if OCCUP = 80 then TSEI = 5496;
else if OCCUP = 81 then TSEI = 6725;
else if OCCUP = 82 then TSEI = 5075;
else if OCCUP = 83 then TSEI = 3920;
else if OCCUP = 84 then TSEI = 3637;
else if OCCUP = 85 then TSEI = 4558;
else if OCCUP = 86 then TSEI = 6603;
else if OCCUP = 90 then TSEI = 5708;
else if OCCUP = 91 then TSEI = 8070;
else if OCCUP = 92 then TSEI = 8109;
else if OCCUP = 93 then TSEI = 8248;
else if OCCUP = 94 then TSEI = 7833;
else if OCCUP = 95 then TSEI = 7963;
else if OCCUP = 96 then TSEI = 7464;
else if OCCUP = 100 then TSEI = 6614;
else if OCCUP = 101 then TSEI = 5412;
else if OCCUP = 102 then TSEI = 8571;
else if OCCUP = 103 then TSEI = 8504;
else if OCCUP = 104 then TSEI = 8380;
else if OCCUP = 105 then TSEI = 8503;
else if OCCUP = 110 then TSEI = 8422;
else if OCCUP = 111 then TSEI = 8488;
else if OCCUP = 112 then TSEI = 8246;
else if OCCUP = 113 then TSEI = 8074;
else if OCCUP = 114 then TSEI = 8553;
else if OCCUP = 115 then TSEI = 8291;
else if OCCUP = 116 then TSEI = 8711;
else if OCCUP = 120 then TSEI = 8361;
else if OCCUP = 121 then TSEI = 8228;
else if OCCUP = 122 then TSEI = 8504;
else if OCCUP = 123 then TSEI = 7974;
else if OCCUP = 124 then TSEI = 8143;
else if OCCUP = 125 then TSEI = 8620;
else if OCCUP = 126 then TSEI = 8081;
else if OCCUP = 130 then TSEI = 7897;
else if OCCUP = 131 then TSEI = 7313;
else if OCCUP = 132 then TSEI = 9045;
else if OCCUP = 133 then TSEI = 8048;
else if OCCUP = 134 then TSEI = 6884;
else if OCCUP = 135 then TSEI = 8193;
else if OCCUP = 140 then TSEI = 7713;
else if OCCUP = 141 then TSEI = 5956;
else if OCCUP = 142 then TSEI = 7088;
else if OCCUP = 143 then TSEI = 5851;
else if OCCUP = 144 then TSEI = 7514;
else if OCCUP = 145 then TSEI = 5164;
else if OCCUP = 150 then TSEI = 3910;
else if OCCUP = 151 then TSEI = 4848;
else if OCCUP = 152 then TSEI = 4848;
else if OCCUP = 153 then TSEI = 4573;
else if OCCUP = 154 then TSEI = 4377;
else if OCCUP = 155 then TSEI = 4950;
else if OCCUP = 156 then TSEI = 5739;
else if OCCUP = 161 then TSEI = 3943;
else if OCCUP = 162 then TSEI = 4532;
else if OCCUP = 163 then TSEI = 6865;
else if OCCUP = 164 then TSEI = 5011;
else if OCCUP = 165 then TSEI = 5694;
else if OCCUP = 170 then TSEI = 6145;
else if OCCUP = 171 then TSEI = 3277;
else if OCCUP = 172 then TSEI = 5860;
else if OCCUP = 173 then TSEI = 4278;
else if OCCUP = 174 then TSEI = 7781;
else if OCCUP = 175 then TSEI = 5695;
else if OCCUP = 180 then TSEI = 4516;
else if OCCUP = 181 then TSEI = 7143;
else if OCCUP = 182 then TSEI = 2982;
else if OCCUP = 183 then TSEI = 6047;
else if OCCUP = 184 then TSEI = 6736;
else if OCCUP = 185 then TSEI = 4569;
else if OCCUP = 190 then TSEI = 5468;
else if OCCUP = 191 then TSEI = 4269;
else if OCCUP = 192 then TSEI = 6743;
else if OCCUP = 193 then TSEI = 5536;
else if OCCUP = 194 then TSEI = 5569;
else if OCCUP = 195 then TSEI = 7357;
else if OCCUP = 196 then TSEI = 5675;
else if OCCUP = 201 then TSEI = 3870;
else if OCCUP = 202 then TSEI = 6213;
else if OCCUP = 203 then TSEI = 3431;
else if OCCUP = 205 then TSEI = 4580;
else if OCCUP = 210 then TSEI = 5089;
else if OCCUP = 211 then TSEI = 6047;
else if OCCUP = 212 then TSEI = 6190;
else if OCCUP = 213 then TSEI = 3963;
else if OCCUP = 215 then TSEI = 4492;
else if OCCUP = 216 then TSEI = 3843;
else if OCCUP = 220 then TSEI = 4848;
else if OCCUP = 221 then TSEI = 3528;
else if OCCUP = 222 then TSEI = 5709;
else if OCCUP = 223 then TSEI = 5247;
else if OCCUP = 224 then TSEI = 3984;
else if OCCUP = 225 then TSEI = 5452;
else if OCCUP = 226 then TSEI = 3375;
else if OCCUP = 230 then TSEI = 3251;
else if OCCUP = 231 then TSEI = 4158;
else if OCCUP = 233 then TSEI = 6809;
else if OCCUP = 235 then TSEI = 7949;
else if OCCUP = 240 then TSEI = 8339;
else if OCCUP = 245 then TSEI = 4913;
else if OCCUP = 246 then TSEI = 4007;
else if OCCUP = 260 then TSEI = 5871;
else if OCCUP = 261 then TSEI = 3440;
else if OCCUP = 262 then TSEI = 2569;
else if OCCUP = 264 then TSEI = 2564;
else if OCCUP = 265 then TSEI = 5343;
else if OCCUP = 266 then TSEI = 1940;
else if OCCUP = 270 then TSEI = 5092;
else if OCCUP = 271 then TSEI = 7193;
else if OCCUP = 280 then TSEI = 4141;
else if OCCUP = 281 then TSEI = 5696;
else if OCCUP = 282 then TSEI = 4722;
else if OCCUP = 283 then TSEI = 2537;
else if OCCUP = 284 then TSEI = 3531;
else if OCCUP = 285 then TSEI = 4221;
else if OCCUP = 296 then TSEI = 2867;
else if OCCUP = 301 then TSEI = 2738;
else if OCCUP = 303 then TSEI = 2462;
else if OCCUP = 305 then TSEI = 2965;
else if OCCUP = 310 then TSEI = 2116;
else if OCCUP = 311 then TSEI = 3475;
else if OCCUP = 312 then TSEI = 4414;
else if OCCUP = 313 then TSEI = 3586;
else if OCCUP = 314 then TSEI = 2538;
else if OCCUP = 315 then TSEI = 2892;
else if OCCUP = 320 then TSEI = 3727;
else if OCCUP = 321 then TSEI = 4615;
else if OCCUP = 323 then TSEI = 3590;
else if OCCUP = 325 then TSEI = 2485;
else if OCCUP = 326 then TSEI = 5605;
else if OCCUP = 330 then TSEI = 4510;
else if OCCUP = 331 then TSEI = 2784;
else if OCCUP = 332 then TSEI = 2616;
else if OCCUP = 333 then TSEI = 2440;
else if OCCUP = 334 then TSEI = 2388;
else if OCCUP = 341 then TSEI = 2441;
else if OCCUP = 342 then TSEI = 2205;
else if OCCUP = 343 then TSEI = 3722;
else if OCCUP = 344 then TSEI = 2640;
else if OCCUP = 345 then TSEI = 2288;
else if OCCUP = 350 then TSEI = 2805;
else if OCCUP = 355 then TSEI = 2373;
else if OCCUP = 360 then TSEI = 2738;
else if OCCUP = 361 then TSEI = 3025;
else if OCCUP = 362 then TSEI = 3525;
else if OCCUP = 363 then TSEI = 6493;
else if OCCUP = 364 then TSEI = 2900;
else if OCCUP = 370 then TSEI = 3473;
else if OCCUP = 371 then TSEI = 3557;
else if OCCUP = 372 then TSEI = 3175;
else if OCCUP = 374 then TSEI = 2193;
else if OCCUP = 375 then TSEI = 3128;
else if OCCUP = 376 then TSEI = 3002;
else if OCCUP = 381 then TSEI = 2526;
else if OCCUP = 382 then TSEI = 3156;
else if OCCUP = 383 then TSEI = 2440;
else if OCCUP = 384 then TSEI = 2848;
else if OCCUP = 385 then TSEI = 2189;
else if OCCUP = 390 then TSEI = 3928;
else if OCCUP = 391 then TSEI = 2523;
else if OCCUP = 392 then TSEI = 2033;
else if OCCUP = 394 then TSEI = 3293;
else if OCCUP = 395 then TSEI = 2774;
else if OCCUP = 396 then TSEI = 2719;
else if OCCUP = 401 then TSEI = 2203;
else if OCCUP = 402 then TSEI = 1922;
else if OCCUP = 403 then TSEI = 2072;
else if OCCUP = 404 then TSEI = 2555;
else if OCCUP = 405 then TSEI = 1988;
else if OCCUP = 410 then TSEI = 2262;
else if OCCUP = 411 then TSEI = 2363;
else if OCCUP = 412 then TSEI = 1954;
else if OCCUP = 413 then TSEI = 2089;
else if OCCUP = 415 then TSEI = 2258;
else if OCCUP = 416 then TSEI = 2131;
else if OCCUP = 420 then TSEI = 2307;
else if OCCUP = 421 then TSEI = 2110;
else if OCCUP = 422 then TSEI = 2802;
else if OCCUP = 423 then TSEI = 2206;
else if OCCUP = 424 then TSEI = 2198;
else if OCCUP = 425 then TSEI = 3222;
else if OCCUP = 426 then TSEI = 3258;
else if OCCUP = 430 then TSEI = 3104;
else if OCCUP = 431 then TSEI = 2678;
else if OCCUP = 433 then TSEI = 2814;
else if OCCUP = 434 then TSEI = 3072;
else if OCCUP = 435 then TSEI = 2347;
else if OCCUP = 436 then TSEI = 2174;
else if OCCUP = 440 then TSEI = 2313;
else if OCCUP = 441 then TSEI = 3481;
else if OCCUP = 442 then TSEI = 2227;
else if OCCUP = 443 then TSEI = 1995;
else if OCCUP = 444 then TSEI = 2422;
else if OCCUP = 445 then TSEI = 2462;
else if OCCUP = 446 then TSEI = 2208;
else if OCCUP = 450 then TSEI = 2043;
else if OCCUP = 452 then TSEI = 3083;
else if OCCUP = 453 then TSEI = 2631;
else if OCCUP = 454 then TSEI = 2272;
else if OCCUP = 455 then TSEI = 3477;
else if OCCUP = 456 then TSEI = 3052;
else if OCCUP = 461 then TSEI = 2449;
else if OCCUP = 462 then TSEI = 2369;
else if OCCUP = 470 then TSEI = 2638;
else if OCCUP = 471 then TSEI = 3183;
else if OCCUP = 472 then TSEI = 2157;
else if OCCUP = 473 then TSEI = 2095;
else if OCCUP = 474 then TSEI = 1787;
else if OCCUP = 475 then TSEI = 4908;
else if OCCUP = 480 then TSEI = 1994;
else if OCCUP = 481 then TSEI = 2364;
else if OCCUP = 482 then TSEI = 2426;
else if OCCUP = 483 then TSEI = 1388;
else if OCCUP = 484 then TSEI = 3004;
else if OCCUP = 485 then TSEI = 2936;
else if OCCUP = 486 then TSEI = 1960;
else if OCCUP = 491 then TSEI = 2483;
else if OCCUP = 492 then TSEI = 2640;
else if OCCUP = 495 then TSEI = 2687;
else if OCCUP = 501 then TSEI = 1858;
else if OCCUP = 502 then TSEI = 2758;
else if OCCUP = 503 then TSEI = 1866;
else if OCCUP = 504 then TSEI = 2390;
else if OCCUP = 505 then TSEI = 3275;
else if OCCUP = 506 then TSEI = 2921;
else if OCCUP = 510 then TSEI = 2071;
else if OCCUP = 511 then TSEI = 1891;
else if OCCUP = 512 then TSEI = 2340;
else if OCCUP = 514 then TSEI = 3149;
else if OCCUP = 515 then TSEI = 3433;
else if OCCUP = 516 then TSEI = 3312;
else if OCCUP = 520 then TSEI = 2155;
else if OCCUP = 521 then TSEI = 2028;
else if OCCUP = 522 then TSEI = 2724;
else if OCCUP = 523 then TSEI = 2442;
else if OCCUP = 525 then TSEI = 3359;
else if OCCUP = 530 then TSEI = 2570;
else if OCCUP = 531 then TSEI = 2280;
else if OCCUP = 533 then TSEI = 2387;
else if OCCUP = 534 then TSEI = 1973;
else if OCCUP = 535 then TSEI = 2612;
else if OCCUP = 536 then TSEI = 2312;
else if OCCUP = 540 then TSEI = 2321;
else if OCCUP = 542 then TSEI = 1729;
else if OCCUP = 543 then TSEI = 2580;
else if OCCUP = 545 then TSEI = 2834;
else if OCCUP = 546 then TSEI = 1963;
else if OCCUP = 550 then TSEI = 2799;
else if OCCUP = 551 then TSEI = 1913;
else if OCCUP = 552 then TSEI = 3259;
else if OCCUP = 554 then TSEI = 2812;
else if OCCUP = 560 then TSEI = 2268;
else if OCCUP = 561 then TSEI = 3261;
else if OCCUP = 562 then TSEI = 2724;
else if OCCUP = 563 then TSEI = 1789;
else if OCCUP = 571 then TSEI = 2311;
else if OCCUP = 572 then TSEI = 9900;
else if OCCUP = 575 then TSEI = 2530;
else if OCCUP = 580 then TSEI = 3247;
else if OCCUP = 586 then TSEI = 2388;
else if OCCUP = 601 then TSEI = 2801;
else if OCCUP = 602 then TSEI = 1770;
else if OCCUP = 603 then TSEI = 1955;
else if OCCUP = 604 then TSEI = 1761;
else if OCCUP = 605 then TSEI = 2710;
else if OCCUP = 610 then TSEI = 2121;
else if OCCUP = 611 then TSEI = 1474;
else if OCCUP = 612 then TSEI = 1759;
else if OCCUP = 613 then TSEI = 1841;
else if OCCUP = 614 then TSEI = 2141;
else if OCCUP = 615 then TSEI = 2374;
else if OCCUP = 620 then TSEI = 1779;
else if OCCUP = 621 then TSEI = 1751;
else if OCCUP = 622 then TSEI = 2069;
else if OCCUP = 623 then TSEI = 1973;
else if OCCUP = 624 then TSEI = 1594;
else if OCCUP = 625 then TSEI = 1528;
else if OCCUP = 626 then TSEI = 2429;
else if OCCUP = 630 then TSEI = 1691;
else if OCCUP = 631 then TSEI = 2204;
else if OCCUP = 633 then TSEI = 1836;
else if OCCUP = 634 then TSEI = 1510;
else if OCCUP = 635 then TSEI = 1994;
else if OCCUP = 636 then TSEI = 1768;
else if OCCUP = 640 then TSEI = 2024;
else if OCCUP = 641 then TSEI = 1932;
else if OCCUP = 642 then TSEI = 2000;
else if OCCUP = 643 then TSEI = 1607;
else if OCCUP = 644 then TSEI = 1799;
else if OCCUP = 645 then TSEI = 2846;
else if OCCUP = 650 then TSEI = 1825;
else if OCCUP = 651 then TSEI = 2121;
else if OCCUP = 652 then TSEI = 2216;
else if OCCUP = 653 then TSEI = 2217;
else if OCCUP = 656 then TSEI = 1754;
else if OCCUP = 660 then TSEI = 1593;
else if OCCUP = 661 then TSEI = 2171;
else if OCCUP = 662 then TSEI = 1639;
else if OCCUP = 663 then TSEI = 1448;
else if OCCUP = 664 then TSEI = 1429;
else if OCCUP = 665 then TSEI = 1590;
else if OCCUP = 666 then TSEI = 2099;
else if OCCUP = 670 then TSEI = 1412;
else if OCCUP = 671 then TSEI = 1542;
else if OCCUP = 672 then TSEI = 1398;
else if OCCUP = 673 then TSEI = 1432;
else if OCCUP = 674 then TSEI = 1476;
else if OCCUP = 680 then TSEI = 2066;
else if OCCUP = 681 then TSEI = 1717;
else if OCCUP = 690 then TSEI = 1886;
else if OCCUP = 692 then TSEI = 1863;
else if OCCUP = 694 then TSEI = 1930;
else if OCCUP = 695 then TSEI = 1943;
else if OCCUP = 696 then TSEI = 1797;
else if OCCUP = 701 then TSEI = 2309;
else if OCCUP = 703 then TSEI = 2147;
else if OCCUP = 704 then TSEI = 2512;
else if OCCUP = 705 then TSEI = 2316;
else if OCCUP = 706 then TSEI = 1794;
else if OCCUP = 710 then TSEI = 1836;
else if OCCUP = 711 then TSEI = 2311;
else if OCCUP = 712 then TSEI = 2742;
else if OCCUP = 713 then TSEI = 2509;
else if OCCUP = 714 then TSEI = 2246;
else if OCCUP = 715 then TSEI = 2110;
else if OCCUP = 726 then TSEI = 1989;
else if OCCUP = 740 then TSEI = 2318;
else if OCCUP = 750 then TSEI = 1804;
else if OCCUP = 751 then TSEI = 1850;
else if OCCUP = 752 then TSEI = 2065;
else if OCCUP = 753 then TSEI = 1959;
else if OCCUP = 754 then TSEI = 1724;
else if OCCUP = 755 then TSEI = 1924;
else if OCCUP = 760 then TSEI = 2262;
else if OCCUP = 761 then TSEI = 1769;
else if OCCUP = 762 then TSEI = 1999;
else if OCCUP = 763 then TSEI = 1773;
else if OCCUP = 764 then TSEI = 1716;
else if OCCUP = 770 then TSEI = 2196;
else if OCCUP = 780 then TSEI = 1749;
else if OCCUP = 785 then TSEI = 1777;
else if OCCUP = 796 then TSEI = 1906;
else if OCCUP = 801 then TSEI = 2381;
else if OCCUP = 802 then TSEI = 3364;
else if OCCUP = 806 then TSEI = 2352;
else if OCCUP = 821 then TSEI = 2549;
else if OCCUP = 822 then TSEI = 1677;
else if OCCUP = 823 then TSEI = 1902;
else if OCCUP = 824 then TSEI = 2204;
else if OCCUP = 846 then TSEI = 1741;
else if OCCUP = 901 then TSEI = 1524;
else if OCCUP = 902 then TSEI = 1597;
else if OCCUP = 903 then TSEI = 1851;
else if OCCUP = 910 then TSEI = 2396;
else if OCCUP = 911 then TSEI = 1904;
else if OCCUP = 912 then TSEI = 1752;
else if OCCUP = 913 then TSEI = 1903;
else if OCCUP = 914 then TSEI = 2043;
else if OCCUP = 915 then TSEI = 1888;
else if OCCUP = 916 then TSEI = 1781;
else if OCCUP = 921 then TSEI = 2715;
else if OCCUP = 922 then TSEI = 2565;
else if OCCUP = 923 then TSEI = 4549;
else if OCCUP = 924 then TSEI = 2358;
else if OCCUP = 925 then TSEI = 1952;
else if OCCUP = 926 then TSEI = 2494;
else if OCCUP = 931 then TSEI = 5151;
else if OCCUP = 932 then TSEI = 2884;
else if OCCUP = 933 then TSEI = 2709;
else if OCCUP = 934 then TSEI = 2322;
else if OCCUP = 935 then TSEI = 2045;
else if OCCUP = 940 then TSEI = 2669;
else if OCCUP = 941 then TSEI = 1491;
else if OCCUP = 942 then TSEI = 2306;
else if OCCUP = 943 then TSEI = 1678;
else if OCCUP = 944 then TSEI = 1910;
else if OCCUP = 945 then TSEI = 1599;
else if OCCUP = 950 then TSEI = 2919;
else if OCCUP = 952 then TSEI = 2608;
else if OCCUP = 953 then TSEI = 2301;
else if OCCUP = 954 then TSEI = 2848;
else if OCCUP = 960 then TSEI = 1672;
else if OCCUP = 961 then TSEI = 3235;
else if OCCUP = 962 then TSEI = 2361;
else if OCCUP = 963 then TSEI = 3312;
else if OCCUP = 964 then TSEI = 3798;
else if OCCUP = 965 then TSEI = 3333;
else if OCCUP >= 970 and OCCUP <= 974 then TSEI = 9998;  *military;
else if OCCUP = 976 then TSEI = 1964;
else if OCCUP = 980 then TSEI = 1798;
else if OCCUP = 981 then TSEI = 1533;
else if OCCUP = 982 then TSEI = 1538;
else if OCCUP = 983 then TSEI = 1562;
else if OCCUP = 984 then TSEI = 1471;
else if OCCUP = 985 then TSEI = 9998;  *housewife;
else if OCCUP = 986 then TSEI = 1381;
else if OCCUP = 997 then TSEI = 9997;
else if OCCUP = 998 then TSEI = 9998;
else if OCCUP = 999 then TSEI = 9999;
else TSEI = .;
return;


*1970 MSEI2 occupational status score;

MSEI270:
if OCCUP = 1 then MSEI = 7017;
else if OCCUP = 2 then MSEI = 7816;
else if OCCUP = 3 then MSEI = 6357;
else if OCCUP = 4 then MSEI = 7539;
else if OCCUP = 5 then MSEI = 7301;
else if OCCUP = 6 then MSEI = 8321;
else if OCCUP = 10 then MSEI = 8539;
else if OCCUP = 11 then MSEI = 7533;
else if OCCUP = 12 then MSEI = 7832;
else if OCCUP = 13 then MSEI = 7162;
else if OCCUP = 14 then MSEI = 7621;
else if OCCUP = 15 then MSEI = 8192;
else if OCCUP = 20 then MSEI = 7422;
else if OCCUP = 21 then MSEI = 8055;
else if OCCUP = 22 then MSEI = 7708;
else if OCCUP = 23 then MSEI = 7527;
else if OCCUP = 24 then MSEI = 7774;
else if OCCUP = 25 then MSEI = 4748;
else if OCCUP = 26 then MSEI = 4710;
else if OCCUP = 30 then MSEI = 7987;
else if OCCUP = 31 then MSEI = 8696;
else if OCCUP = 32 then MSEI = 6523;
else if OCCUP = 33 then MSEI = 5714;
else if OCCUP = 34 then MSEI = 8437;
else if OCCUP = 35 then MSEI = 8433;
else if OCCUP = 36 then MSEI = 7145;
else if OCCUP = 42 then MSEI = 6273;
else if OCCUP = 43 then MSEI = 7770;
else if OCCUP = 44 then MSEI = 7695;
else if OCCUP = 45 then MSEI = 7556;
else if OCCUP = 51 then MSEI = 8559;
else if OCCUP = 52 then MSEI = 8072;
else if OCCUP = 53 then MSEI = 8516;
else if OCCUP = 54 then MSEI = 8172;
else if OCCUP = 55 then MSEI = 6528;
else if OCCUP = 56 then MSEI = 6621;
else if OCCUP = 61 then MSEI = 7788;
else if OCCUP = 62 then MSEI = 8849;
else if OCCUP = 63 then MSEI = 8416;
else if OCCUP = 64 then MSEI = 8035;
else if OCCUP = 65 then MSEI = 8714;
else if OCCUP = 71 then MSEI = 8194;
else if OCCUP = 72 then MSEI = 8546;
else if OCCUP = 73 then MSEI = 6790;
else if OCCUP = 74 then MSEI = 3956;
else if OCCUP = 75 then MSEI = 4662;
else if OCCUP = 76 then MSEI = 5693;
else if OCCUP = 80 then MSEI = 5299;
else if OCCUP = 81 then MSEI = 5347;
else if OCCUP = 82 then MSEI = 5347;
else if OCCUP = 83 then MSEI = 4598;
else if OCCUP = 84 then MSEI = 3966;
else if OCCUP = 85 then MSEI = 5190;
else if OCCUP = 86 then MSEI = 6210;
else if OCCUP = 90 then MSEI = 5761;
else if OCCUP = 91 then MSEI = 8102;
else if OCCUP = 92 then MSEI = 8475;
else if OCCUP = 93 then MSEI = 8106;
else if OCCUP = 94 then MSEI = 7379;
else if OCCUP = 95 then MSEI = 7721;
else if OCCUP = 96 then MSEI = 7351;
else if OCCUP = 100 then MSEI = 6439;
else if OCCUP = 101 then MSEI = 5230;
else if OCCUP = 102 then MSEI = 8258;
else if OCCUP = 103 then MSEI = 8182;
else if OCCUP = 104 then MSEI = 8167;
else if OCCUP = 105 then MSEI = 8196;
else if OCCUP = 110 then MSEI = 8041;
else if OCCUP = 111 then MSEI = 8330;
else if OCCUP = 112 then MSEI = 7943;
else if OCCUP = 113 then MSEI = 8663;
else if OCCUP = 114 then MSEI = 8420;
else if OCCUP = 115 then MSEI = 8303;
else if OCCUP = 116 then MSEI = 8410;
else if OCCUP = 120 then MSEI = 8004;
else if OCCUP = 121 then MSEI = 7915;
else if OCCUP = 122 then MSEI = 8213;
else if OCCUP = 123 then MSEI = 7842;
else if OCCUP = 124 then MSEI = 7857;
else if OCCUP = 125 then MSEI = 8534;
else if OCCUP = 126 then MSEI = 7915;
else if OCCUP = 130 then MSEI = 7774;
else if OCCUP = 131 then MSEI = 7484;
else if OCCUP = 132 then MSEI = 8865;
else if OCCUP = 133 then MSEI = 7614;
else if OCCUP = 134 then MSEI = 6690;
else if OCCUP = 135 then MSEI = 7902;
else if OCCUP = 140 then MSEI = 7522;
else if OCCUP = 141 then MSEI = 5933;
else if OCCUP = 142 then MSEI = 6899;
else if OCCUP = 143 then MSEI = 5032;
else if OCCUP = 144 then MSEI = 7302;
else if OCCUP = 145 then MSEI = 4892;
else if OCCUP = 150 then MSEI = 3765;
else if OCCUP = 151 then MSEI = 4571;
else if OCCUP = 152 then MSEI = 4626;
else if OCCUP = 153 then MSEI = 4501;
else if OCCUP = 154 then MSEI = 4346;
else if OCCUP = 155 then MSEI = 4995;
else if OCCUP = 156 then MSEI = 5479;
else if OCCUP = 161 then MSEI = 3654;
else if OCCUP = 162 then MSEI = 4347;
else if OCCUP = 163 then MSEI = 6866;
else if OCCUP = 164 then MSEI = 5262;
else if OCCUP = 165 then MSEI = 5212;
else if OCCUP = 170 then MSEI = 6208;
else if OCCUP = 171 then MSEI = 3422;
else if OCCUP = 172 then MSEI = 5776;
else if OCCUP = 173 then MSEI = 4104;
else if OCCUP = 174 then MSEI = 7557;
else if OCCUP = 175 then MSEI = 5562;
else if OCCUP = 180 then MSEI = 4306;
else if OCCUP = 181 then MSEI = 7034;
else if OCCUP = 182 then MSEI = 4120;
else if OCCUP = 183 then MSEI = 6231;
else if OCCUP = 184 then MSEI = 6951;
else if OCCUP = 185 then MSEI = 4070;
else if OCCUP = 190 then MSEI = 5458;
else if OCCUP = 191 then MSEI = 4254;
else if OCCUP = 192 then MSEI = 6909;
else if OCCUP = 193 then MSEI = 5091;
else if OCCUP = 194 then MSEI = 5567;
else if OCCUP = 195 then MSEI = 7128;
else if OCCUP = 196 then MSEI = 5671;
else if OCCUP = 201 then MSEI = 4343;
else if OCCUP = 202 then MSEI = 6648;
else if OCCUP = 203 then MSEI = 3363;
else if OCCUP = 205 then MSEI = 4870;
else if OCCUP = 210 then MSEI = 5660;
else if OCCUP = 211 then MSEI = 5833;
else if OCCUP = 212 then MSEI = 6880;
else if OCCUP = 213 then MSEI = 3891;
else if OCCUP = 215 then MSEI = 4489;
else if OCCUP = 216 then MSEI = 4074;
else if OCCUP = 220 then MSEI = 5634;
else if OCCUP = 221 then MSEI = 3665;
else if OCCUP = 222 then MSEI = 5978;
else if OCCUP = 223 then MSEI = 5317;
else if OCCUP = 224 then MSEI = 4523;
else if OCCUP = 225 then MSEI = 5673;
else if OCCUP = 226 then MSEI = 3642;
else if OCCUP = 230 then MSEI = 3680;
else if OCCUP = 231 then MSEI = 4536;
else if OCCUP = 233 then MSEI = 6925;
else if OCCUP = 235 then MSEI = 8014;
else if OCCUP = 240 then MSEI = 8498;
else if OCCUP = 245 then MSEI = 5089;
else if OCCUP = 246 then MSEI = 4107;
else if OCCUP = 260 then MSEI = 6093;
else if OCCUP = 261 then MSEI = 3594;
else if OCCUP = 262 then MSEI = 4168;
else if OCCUP = 264 then MSEI = 3279;
else if OCCUP = 265 then MSEI = 5457;
else if OCCUP = 266 then MSEI = 1643;
else if OCCUP = 270 then MSEI = 5528;
else if OCCUP = 271 then MSEI = 7253;
else if OCCUP = 280 then MSEI = 4398;
else if OCCUP = 281 then MSEI = 5850;
else if OCCUP = 282 then MSEI = 4730;
else if OCCUP = 283 then MSEI = 3006;
else if OCCUP = 284 then MSEI = 3517;
else if OCCUP = 285 then MSEI = 4886;
else if OCCUP = 296 then MSEI = 3329;
else if OCCUP = 301 then MSEI = 3346;
else if OCCUP = 303 then MSEI = 2995;
else if OCCUP = 305 then MSEI = 4079;
else if OCCUP = 310 then MSEI = 2557;
else if OCCUP = 311 then MSEI = 4235;
else if OCCUP = 312 then MSEI = 5416;
else if OCCUP = 313 then MSEI = 3628;
else if OCCUP = 314 then MSEI = 2910;
else if OCCUP = 315 then MSEI = 2911;
else if OCCUP = 320 then MSEI = 4426;
else if OCCUP = 321 then MSEI = 5382;
else if OCCUP = 323 then MSEI = 3705;
else if OCCUP = 325 then MSEI = 2830;
else if OCCUP = 326 then MSEI = 5851;
else if OCCUP = 330 then MSEI = 4371;
else if OCCUP = 331 then MSEI = 2509;
else if OCCUP = 332 then MSEI = 2550;
else if OCCUP = 333 then MSEI = 2046;
else if OCCUP = 334 then MSEI = 2084;
else if OCCUP = 341 then MSEI = 3539;
else if OCCUP = 342 then MSEI = 3692;
else if OCCUP = 343 then MSEI = 3707;
else if OCCUP = 344 then MSEI = 2596;
else if OCCUP = 345 then MSEI = 3215;
else if OCCUP = 350 then MSEI = 3027;
else if OCCUP = 355 then MSEI = 2629;
else if OCCUP = 360 then MSEI = 3341;
else if OCCUP = 361 then MSEI = 2992;
else if OCCUP = 362 then MSEI = 4371;
else if OCCUP = 363 then MSEI = 6433;
else if OCCUP = 364 then MSEI = 3733;
else if OCCUP = 370 then MSEI = 4779;
else if OCCUP = 371 then MSEI = 4421;
else if OCCUP = 372 then MSEI = 4599;
else if OCCUP = 374 then MSEI = 1949;
else if OCCUP = 375 then MSEI = 3724;
else if OCCUP = 376 then MSEI = 5066;
else if OCCUP = 381 then MSEI = 2293;
else if OCCUP = 382 then MSEI = 4085;
else if OCCUP = 383 then MSEI = 2046;
else if OCCUP = 384 then MSEI = 2902;
else if OCCUP = 385 then MSEI = 3398;
else if OCCUP = 390 then MSEI = 3804;
else if OCCUP = 391 then MSEI = 2869;
else if OCCUP = 392 then MSEI = 1915;
else if OCCUP = 394 then MSEI = 4022;
else if OCCUP = 395 then MSEI = 3413;
else if OCCUP = 396 then MSEI = 2965;
else if OCCUP = 401 then MSEI = 1981;
else if OCCUP = 402 then MSEI = 1848;
else if OCCUP = 403 then MSEI = 1935;
else if OCCUP = 404 then MSEI = 2607;
else if OCCUP = 405 then MSEI = 2465;
else if OCCUP = 410 then MSEI = 2215;
else if OCCUP = 411 then MSEI = 2151;
else if OCCUP = 412 then MSEI = 1829;
else if OCCUP = 413 then MSEI = 1904;
else if OCCUP = 415 then MSEI = 2143;
else if OCCUP = 416 then MSEI = 1774;
else if OCCUP = 420 then MSEI = 2165;
else if OCCUP = 421 then MSEI = 2008;
else if OCCUP = 422 then MSEI = 2811;
else if OCCUP = 423 then MSEI = 1834;
else if OCCUP = 424 then MSEI = 2180;
else if OCCUP = 425 then MSEI = 3318;
else if OCCUP = 426 then MSEI = 3312;
else if OCCUP = 430 then MSEI = 3194;
else if OCCUP = 431 then MSEI = 2353;
else if OCCUP = 433 then MSEI = 2894;
else if OCCUP = 434 then MSEI = 3232;
else if OCCUP = 435 then MSEI = 2362;
else if OCCUP = 436 then MSEI = 2116;
else if OCCUP = 440 then MSEI = 2253;
else if OCCUP = 441 then MSEI = 3689;
else if OCCUP = 442 then MSEI = 2232;
else if OCCUP = 443 then MSEI = 1859;
else if OCCUP = 444 then MSEI = 2414;
else if OCCUP = 445 then MSEI = 2453;
else if OCCUP = 446 then MSEI = 2144;
else if OCCUP = 450 then MSEI = 1850;
else if OCCUP = 452 then MSEI = 3028;
else if OCCUP = 453 then MSEI = 2549;
else if OCCUP = 454 then MSEI = 2268;
else if OCCUP = 455 then MSEI = 3842;
else if OCCUP = 456 then MSEI = 3136;
else if OCCUP = 461 then MSEI = 2405;
else if OCCUP = 462 then MSEI = 2027;
else if OCCUP = 470 then MSEI = 2624;
else if OCCUP = 471 then MSEI = 3218;
else if OCCUP = 472 then MSEI = 2052;
else if OCCUP = 473 then MSEI = 1919;
else if OCCUP = 474 then MSEI = 1459;
else if OCCUP = 475 then MSEI = 4870;
else if OCCUP = 480 then MSEI = 1736;
else if OCCUP = 481 then MSEI = 2303;
else if OCCUP = 482 then MSEI = 2250;
else if OCCUP = 483 then MSEI = 1113;
else if OCCUP = 484 then MSEI = 2790;
else if OCCUP = 485 then MSEI = 2754;
else if OCCUP = 486 then MSEI = 1787;
else if OCCUP = 491 then MSEI = 2443;
else if OCCUP = 492 then MSEI = 2496;
else if OCCUP = 495 then MSEI = 2571;
else if OCCUP = 501 then MSEI = 1677;
else if OCCUP = 502 then MSEI = 2917;
else if OCCUP = 503 then MSEI = 1771;
else if OCCUP = 504 then MSEI = 2082;
else if OCCUP = 505 then MSEI = 2995;
else if OCCUP = 506 then MSEI = 3028;
else if OCCUP = 510 then MSEI = 1858;
else if OCCUP = 511 then MSEI = 1538;
else if OCCUP = 512 then MSEI = 2265;
else if OCCUP = 514 then MSEI = 3374;
else if OCCUP = 515 then MSEI = 3766;
else if OCCUP = 516 then MSEI = 3011;
else if OCCUP = 520 then MSEI = 2092;
else if OCCUP = 521 then MSEI = 1792;
else if OCCUP = 522 then MSEI = 2809;
else if OCCUP = 523 then MSEI = 2144;
else if OCCUP = 525 then MSEI = 3465;
else if OCCUP = 530 then MSEI = 2616;
else if OCCUP = 531 then MSEI = 1997;
else if OCCUP = 533 then MSEI = 2516;
else if OCCUP = 534 then MSEI = 1797;
else if OCCUP = 535 then MSEI = 2654;
else if OCCUP = 536 then MSEI = 1966;
else if OCCUP = 540 then MSEI = 2230;
else if OCCUP = 542 then MSEI = 1550;
else if OCCUP = 543 then MSEI = 2372;
else if OCCUP = 545 then MSEI = 2808;
else if OCCUP = 546 then MSEI = 1750;
else if OCCUP = 550 then MSEI = 2906;
else if OCCUP = 551 then MSEI = 1852;
else if OCCUP = 552 then MSEI = 3246;
else if OCCUP = 554 then MSEI = 2685;
else if OCCUP = 560 then MSEI = 2198;
else if OCCUP = 561 then MSEI = 3464;
else if OCCUP = 562 then MSEI = 2427;
else if OCCUP = 563 then MSEI = 1623;
else if OCCUP = 571 then MSEI = 2212;
else if OCCUP = 572 then MSEI = 3900;
else if OCCUP = 575 then MSEI = 2570;
else if OCCUP = 580 then MSEI = 2821;
else if OCCUP = 586 then MSEI = 2249;
else if OCCUP = 601 then MSEI = 2922;
else if OCCUP = 602 then MSEI = 1757;
else if OCCUP = 603 then MSEI = 1791;
else if OCCUP = 604 then MSEI = 1717;
else if OCCUP = 605 then MSEI = 2319;
else if OCCUP = 610 then MSEI = 2505;
else if OCCUP = 611 then MSEI = 1402;
else if OCCUP = 612 then MSEI = 1656;
else if OCCUP = 613 then MSEI = 1874;
else if OCCUP = 614 then MSEI = 2065;
else if OCCUP = 615 then MSEI = 2365;
else if OCCUP = 620 then MSEI = 1533;
else if OCCUP = 621 then MSEI = 1612;
else if OCCUP = 622 then MSEI = 1956;
else if OCCUP = 623 then MSEI = 1627;
else if OCCUP = 624 then MSEI = 1716;
else if OCCUP = 625 then MSEI = 1465;
else if OCCUP = 626 then MSEI = 2504;
else if OCCUP = 630 then MSEI = 1759;
else if OCCUP = 631 then MSEI = 2097;
else if OCCUP = 633 then MSEI = 1848;
else if OCCUP = 634 then MSEI = 1655;
else if OCCUP = 635 then MSEI = 1818;
else if OCCUP = 636 then MSEI = 2196;
else if OCCUP = 640 then MSEI = 1816;
else if OCCUP = 641 then MSEI = 1719;
else if OCCUP = 642 then MSEI = 1869;
else if OCCUP = 643 then MSEI = 1542;
else if OCCUP = 644 then MSEI = 1633;
else if OCCUP = 645 then MSEI = 3190;
else if OCCUP = 650 then MSEI = 1710;
else if OCCUP = 651 then MSEI = 2082;
else if OCCUP = 652 then MSEI = 2128;
else if OCCUP = 653 then MSEI = 2224;
else if OCCUP = 656 then MSEI = 1707;
else if OCCUP = 660 then MSEI = 1416;
else if OCCUP = 661 then MSEI = 1991;
else if OCCUP = 662 then MSEI = 1380;
else if OCCUP = 663 then MSEI = 1478;
else if OCCUP = 664 then MSEI = 1183;
else if OCCUP = 665 then MSEI = 1663;
else if OCCUP = 666 then MSEI = 2032;
else if OCCUP = 670 then MSEI = 1144;
else if OCCUP = 671 then MSEI = 1492;
else if OCCUP = 672 then MSEI = 1180;
else if OCCUP = 673 then MSEI = 1162;
else if OCCUP = 674 then MSEI = 1267;
else if OCCUP = 680 then MSEI = 1976;
else if OCCUP = 681 then MSEI = 1832;
else if OCCUP = 690 then MSEI = 1843;
else if OCCUP = 692 then MSEI = 1800;
else if OCCUP = 694 then MSEI = 1834;
else if OCCUP = 695 then MSEI = 1893;
else if OCCUP = 696 then MSEI = 1801;
else if OCCUP = 701 then MSEI = 2202;
else if OCCUP = 703 then MSEI = 2116;
else if OCCUP = 704 then MSEI = 2460;
else if OCCUP = 705 then MSEI = 2119;
else if OCCUP = 706 then MSEI = 1565;
else if OCCUP = 710 then MSEI = 1646;
else if OCCUP = 711 then MSEI = 1917;
else if OCCUP = 712 then MSEI = 2784;
else if OCCUP = 713 then MSEI = 2386;
else if OCCUP = 714 then MSEI = 1944;
else if OCCUP = 715 then MSEI = 2009;
else if OCCUP = 726 then MSEI = 1794;
else if OCCUP = 740 then MSEI = 1925;
else if OCCUP = 750 then MSEI = 1474;
else if OCCUP = 751 then MSEI = 1590;
else if OCCUP = 752 then MSEI = 1890;
else if OCCUP = 753 then MSEI = 1702;
else if OCCUP = 754 then MSEI = 1503;
else if OCCUP = 755 then MSEI = 1606;
else if OCCUP = 760 then MSEI = 2180;
else if OCCUP = 761 then MSEI = 1536;
else if OCCUP = 762 then MSEI = 1699;
else if OCCUP = 763 then MSEI = 1547;
else if OCCUP = 764 then MSEI = 1428;
else if OCCUP = 770 then MSEI = 1898;
else if OCCUP = 780 then MSEI = 1508;
else if OCCUP = 785 then MSEI = 1484;
else if OCCUP = 796 then MSEI = 1637;
else if OCCUP = 801 then MSEI = 2219;
else if OCCUP = 802 then MSEI = 3192;
else if OCCUP = 806 then MSEI = 2160;
else if OCCUP = 821 then MSEI = 2262;
else if OCCUP = 822 then MSEI = 1379;
else if OCCUP = 823 then MSEI = 1554;
else if OCCUP = 824 then MSEI = 2046;
else if OCCUP = 846 then MSEI = 1441;
else if OCCUP = 901 then MSEI = 1574;
else if OCCUP = 902 then MSEI = 1452;
else if OCCUP = 903 then MSEI = 1580;
else if OCCUP = 910 then MSEI = 2271;
else if OCCUP = 911 then MSEI = 1523;
else if OCCUP = 912 then MSEI = 1806;
else if OCCUP = 913 then MSEI = 1635;
else if OCCUP = 914 then MSEI = 1852;
else if OCCUP = 915 then MSEI = 2238;
else if OCCUP = 916 then MSEI = 1755;
else if OCCUP = 921 then MSEI = 3422;
else if OCCUP = 922 then MSEI = 2711;
else if OCCUP = 923 then MSEI = 3395;
else if OCCUP = 924 then MSEI = 2854;
else if OCCUP = 925 then MSEI = 2109;
else if OCCUP = 926 then MSEI = 2420;
else if OCCUP = 931 then MSEI = 3517;
else if OCCUP = 932 then MSEI = 2489;
else if OCCUP = 933 then MSEI = 2337;
else if OCCUP = 934 then MSEI = 1925;
else if OCCUP = 935 then MSEI = 1819;
else if OCCUP = 940 then MSEI = 3116;
else if OCCUP = 941 then MSEI = 1156;
else if OCCUP = 942 then MSEI = 2440;
else if OCCUP = 943 then MSEI = 1423;
else if OCCUP = 944 then MSEI = 2691;
else if OCCUP = 945 then MSEI = 1318;
else if OCCUP = 950 then MSEI = 3554;
else if OCCUP = 952 then MSEI = 3567;
else if OCCUP = 953 then MSEI = 1697;
else if OCCUP = 954 then MSEI = 3660;
else if OCCUP = 960 then MSEI = 1472;
else if OCCUP = 961 then MSEI = 3273;
else if OCCUP = 962 then MSEI = 2105;
else if OCCUP = 963 then MSEI = 3138;
else if OCCUP = 964 then MSEI = 3707;
else if OCCUP = 965 then MSEI = 3102;
else if OCCUP >= 970 and OCCUP <= 974 then MSEI = 9998;  *military;
else if OCCUP = 976 then MSEI = 1951;
else if OCCUP = 980 then MSEI = 1309;
else if OCCUP = 981 then MSEI = 1693;
else if OCCUP = 982 then MSEI = 1651;
else if OCCUP = 983 then MSEI = 1931;
else if OCCUP = 984 then MSEI = 1344;
else if OCCUP = 985 then MSEI = 9998;  *housewife;
else if OCCUP = 986 then MSEI = 1335;
else if OCCUP = 997 then MSEI = 9997;
else if OCCUP = 998 then MSEI = 9998;
else if OCCUP = 999 then MSEI = 9999;
else MSEI = .;
return;