*                      Computer Operations Request #612C

 1/22/96

 NOTE:      This is an update of COR521C, to be used for creating Wave 1
     	    variables.  Differences between COR612C and COR521C are:

     		1. Military occupation codes 970-974 for Wave 1 are coded to
     		   999 for Duncan and Siegel scores, rather than 998
     		   as in Wave 2.

     		2. Housework codes in Wave 1 include 993 and 996 in
     		   Wave 1.  In addition, some other codes (993-996)
     		   are special occupation codes in Wave 1 that receive
     		   998 Duncan and Siegel scores.

   		3. Sections for retrospective reports of youthful 
                   aspiration codes (variables OCZ and XOCZ)
     		   have been added.  These two aspiration codes
     		   have no class of worker variables, and 
     		   thus are assigned the average of the Duncan scores
     		   scores for lines split by class of worker (occ. codes
     		   245 and 964).  Code from COR613A has been included 
                   in this file.

     		4. Industry allocation code 699 has been added to the
     		   split occ. line 690.  Duncan=200.  This code existed
                   in 1957-77 data only.

                5. MSEI2 and TSEI2 do not appear in the 1957-77 data.

 NOTE:      This code was used to create the WLS23_2 analysis file
            for the 2/96 release of the Wave 1 (1957-77) data.  See MEMO122,
            CORS 613, 613A, and 613B for a complete description of this code.

Purpose:    To construct 1970 Major industry code, 1970 Major occupation
            code, 1970 Duncan SEI score, and 1970 Siegel prestige score.

            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 Major industry code;

MAJIND70:
if OCCUP >= 970 and OCCUP <= 974 then MAJIND = 11;  *military;
else if OCCUP = 985 then MAJIND = 88; *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 = 88; *housework;
else if INDUS >= 991 and INDUS <= 996 then MAJIND = 88;
else if INDUS = 997 then MAJIND = 77;
else if INDUS = 998 then MAJIND = 88;
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 = 88;  *housework;
else if OCCUP >= 970 and OCCUP <= 974 then MAJOCC = 99; *military;
else if OCCUP >= 993 and OCCUP <= 996 then MAJOCC = 88;
else if OCCUP = 997 then MAJOCC = 99;
else if OCCUP = 998 then MAJOCC = 88;
else if OCCUP = 999 then MAJOCC = 99;
else if INDUS >= 991 and INDUS <= 996 then MAJOCC = 88;
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 = 699) then DUNC = 200;
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 = 999;  *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 >= 993 and OCCUP <= 996 then DUNC = 998;
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 Duncan split lines for missing Class of Worker codes;
* These codes are documented in COR613A.  Use for creation of
     OCSZ and XOCSZ;
DUNCSPLT:
if OCCUP=245 then do;
     if (INDUS>=067 and INDUS<=078) then DUNC=555;
     else if (INDUS>=107 and INDUS<=399) then DUNC=700;
     else if (INDUS>=407 and INDUS<=429) then DUNC=570;
     else if (INDUS>=447 and INDUS<=499) then DUNC=600;
     else if (INDUS>=507 and INDUS<=599) then DUNC=645;
     else if (INDUS>=628 and INDUS<=638) then DUNC=415;
     else if (INDUS>=609 and INDUS<=627) then DUNC=575;
     else if (INDUS>=657 and INDUS<=658) then DUNC=670;
     else if (INDUS>=667 and INDUS<=668) then DUNC=635;
     else if (INDUS=639 or INDUS=647 or INDUS=649) then DUNC=675;
     else if (INDUS=648) then DUNC=320;
     else if (INDUS=669) then DUNC=380;
     else if (INDUS>=607 and INDUS<=608) then DUNC=625;
     else if (INDUS>=677 and INDUS<=699) then DUNC=540;
     else if (INDUS>=707 and INDUS<=709) then DUNC=850;
     else if (INDUS>=717 and INDUS<=719) then DUNC=800;
     else if (INDUS>=727 and INDUS<=748) then DUNC=735;
     else if (INDUS=749 or INDUS=757) then DUNC=415;
     else if (INDUS=758 or INDUS=759 or INDUS=767) then DUNC=435;
     else if (INDUS>=769 and INDUS<=799) then DUNC=455;
     else if (INDUS>=17 and INDUS<=58) then DUNC=555;
     else if (INDUS>=807 and INDUS<=899) then DUNC=555;
     else if (INDUS=997 or INDUS=999) then DUNC=555;
     else DUNC=620;
end;
else if OCCUP=964 then DUNC=380;
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 = 999;  *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 >= 993 and OCCUP <= 996 then SIEG = 998;
else if OCCUP = 997 then SIEG = 997;
else if OCCUP = 998 then SIEG = 998;
else if OCCUP = 999 then SIEG = 999;
else SIEG = .;
return;