if `1' >= 2000 {
    display "replacing dind for `1' >= 2000 " ;
    gen dind02 = ind02;
    recode 
    dind02 (170/180 290=1) (190/280=2) (370/490=3) (770=4) (2470/2590=5)
    (2670/2990=6) (3070/3290=7) (3360/3390=8) (3470 3490=9) (3570/3690=10)
    (3770/3870=11) (3890=12) (3960/3990=13) (1070/1290=14) (1370 1390=15)
    (1470/1790=16) (1870/1990=17) (2070 2090=18) (2170/2290=19) (2370/2390=20)
    (4070/4590=21) (4670/5790=22) (6070/6390=23) (570/690=24) (6470/6490=25) 
    (6570 6590=26) (6670=27) (6675=28) (6680 6690=29) (6692 6695=30)
    (6770 6780=31) (6870/6970=32) (6990=33) (7070=34) (7080/7190=35)
    (7270/7490=36) (7570=37) (7580/7780=38) (7790=39) (7860/7890=40)
    (8190=41) (7970/8180 8270 8290=42) (8370/8470=43) (8560/8590=44) (8660 8670=45)
    (8680 8690=46) (8770/8890=47) (8970/9090=48) (9160/9190=49) (9290=50)
    (9370/9590=51) (9890=52) ;
} ;