******************* DOCUMENTATIE ***********************************

*Setup programma BERPCLAS.PAD behorende bij 

*Kees Mandemakers, Negen classificaties voor 19e en 20e eeuwse
*beroepstitels (Amsterdam 1995). IISG Research paper

*Het programma is gemaakt voor de PC-versie van SPSS en gaat uit
*van het Dbase-databestand BERPCLAS.DBF.

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

*Voor de betekenis van de variabelen en waarden, zie het genoemde
*paper; de variabelen K2A en K2B komen daarin niet expliciet voor en 
*hebben de volgende betekenis:

*K2A = Hoofgroep M96 (1 digit)
*K2B = Eerste onderverdeling hoofdgroep M96 (2 digits)

*De combinatie M96 + M96BL geeft groepen van min of meer dezelfde beroepstitels.

*Herkodering naar EGP, IDHA, B8920, RIPR, LKD, en CBS65,  
*vindt plaats op het niveau van een combinatie 
*van M96 (en/of K2A en K2B) en de Van Tulder-indeling (VT) en/of
*de uitgebreide Van Tulder-indeling (VTX).

*Een uitzondering op deze regel vormt de IDHA-indeling
*waar ook rechtstreeks op beroepsniveau is gekodeerd (M96 + M96BL).

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



SET MORE OFF.
  
TRANSLATE FROM 'BERPCLAS.DBF'.

COMPUTE K2B=M96.
COMPUTE K2B=K2B/10.
COMPUTE K2B=TRUNC(K2B).

COMPUTE K2A=5.
IF (K2B GE 10 AND K2B LE 19)K2A=1.
IF (K2B GE 20 AND K2B LE 29)K2A=2.
IF (K2B GE 30 AND K2B LE 39)K2A=3.
IF (K2B GE 40 AND K2B LE 49)K2A=4.
 
 
compute B8920=-1.

value labels B8920 1 'Industrie'   2 'Landbouw'  3 'Handel'
    4 'Verkeer' 5 'Bank&Vrz' 6 'Vrij brp.' 7 'Godsduitf'
    8 'Onderwys' 9 'Verpl&verz' 10 'Overheid' 11 'Witte brd'
   12 'Huis dnst' 13 'Los arbd'.
 
if (k2b eq 32)B8920=1.
if (k2b eq 33)B8920=1.
if (k2b eq 43)B8920=1.
if (M96 eq 454)B8920=1.
 
if (k2b eq 31)B8920=2.
if (M96 eq 452)B8920=1.
 
if (k2b eq 34)B8920=3.
if (k2b eq 35)B8920=3.
if (k2b eq 41)B8920=3.
if (M96 eq 423)B8920=3.
 
if (k2b eq 17)B8920=4.
if (k2b eq 37)B8920=4.
if (k2b eq 38)B8920=4.
if (M96 eq 443)B8920=4.
if (M96 eq 455)B8920=4.
if (k2b eq 46)B8920=4.
 
if (k2b eq 36)B8920=5.
if (M96 eq 424)B8920=5.
 
if (k2b eq 21)B8920=6.
if (k2b eq 22)B8920=6.
if (k2b eq 24)B8920=6.
if (k2b eq 25)B8920=6.
if (k2b eq 27)B8920=6.
if (k2b eq 28)B8920=6.
if (k2b eq 29)B8920=6.
 
if (k2b eq 23)B8920=7.
 
if (k2b eq 15)B8920=8.
 
if (M96 eq 442)B8920=9.
 
if (k2b eq 11)B8920=10.
if (k2b eq 12)B8920=10.
if (k2b eq 13)B8920=10.
if (k2b eq 14)B8920=10.
if (k2b eq 18)B8920=10.
if (k2b eq 26)B8920=10.
 
if (M96 eq 421)B8920=11.
if (M96 eq 422)B8920=11.
if (M96 eq 441)B8920=11.
 
if (M96 eq 451)B8920=13.

frequencies /variables B8920.
 
  
If (K2A eq 1 and VTX ge 10 and VTX le 21)CBS65=1.
If (K2A eq 1 and VTX ge 22 and VTX le 32)CBS65=2.
If (K2A eq 1 and VTX ge 40 and VTX le 42)CBS65=5.
If (K2A eq 1 and VTX eq 50)CBS65=5.
If (K2A eq 1 and VTX eq 60)CBS65=7.
If (M96 eq 177 and VTX ge 40 and VTX le 42)CBS65=6.
   
If (K2A eq 2 and VTX ge 10 and VTX le 21)CBS65=1.
If (K2A eq 2 and VTX ge 22 and VTX le 32)CBS65=2.
If (K2b eq 25)CBS65=2.
If (K2b eq 27 and VTX eq 21)CBS65=2.
  
IF (K2b eq 31)CBS65=4.
IF (M96 eq 312 and VTX eq 22)CBS65=2.
IF (M96 eq 314 and VTX eq 12)CBS65=1.
IF (M96 eq 315 and VTX eq 22)CBS65=1.
IF (M96 eq 318)CBS65=1.
  
IF (K2b eq 32)CBS65=1.
  
IF (K2b eq 33)CBS65=3.
IF (K2b eq 34)CBS65=3.
 
IF (K2b eq 35)CBS65=3.
IF (M96 eq 357 and VTX ge 10 and VTX le 22)CBS65=1.
IF (M96 eq 359)CBS65=2.
IF (M96 eq 359 and VTX eq 11)CBS65=1.
  
IF (M96 eq 361)CBS65=1.
IF (M96 eq 362 and VTX ge 10 and VTX le 21)CBS65=1.
IF (M96 eq 362 and VTX ge 22 and VTX le 42)CBS65=2.
IF (K2b eq 37)CBS65=3.
IF (K2b eq 38 and VTX ge 10 and VTX le 22)CBS65=1.
IF (K2b eq 38 and VTX ge 40 and VTX le 42)CBS65=3.
IF (K2b eq 38 and VTX eq 50)CBS65=7.
  
If (K2A eq 4 and VTX ge 10 and VTX le 21)CBS65=1.
If (K2A eq 4 and VTX ge 22 and VTX le 32)CBS65=2.
If (K2A eq 4 and VTX ge 40 and VTX le 42)CBS65=5.
If (K2A eq 4 and VTX eq 50)CBS65=5.
If (M96 eq 451)CBS65=7.
If (M96 eq 452)CBS65=7.
If (M96 eq 454)CBS65=6.
If (M96 eq 455)CBS65=7.
If (k2b eq 46 and VTX eq 60)CBS65=7.
 
frequencies /variables cbs65.


*DOCUMENT
  Hierna volgt de herkodering van de beroepsgegevens naar de indeling van 
  Goldthorpe
  EGP geeft de indeling in 9 categorieen.
 
  
if (k2b eq 11)EGP=1.
if (M96 eq 121 or M96 eq 122)EGP=1.
if ((M96 eq 125) and (VTX ge 11 and VTX le 21))EGP=1.
if (M96 eq 126)EGP=1.
if ((M96 eq 127) and (VTX eq 21))EGP=1.
if (M96 eq 131)EGP=1.
if (M96 eq 132)EGP=1.
if (M96 eq 133)EGP=1.
if (M96 eq 134)EGP=1.
if (M96 eq 137)EGP=1.
if (M96 eq 141)EGP=1.
if ((M96 eq 142) and (VTX ge 11 and VTX le 21))EGP=1.
if ((M96 eq 143) and (VTX eq 12))EGP=1.
if ((k2b eq 15) and (VTX ge 11 and VTX le 12))EGP=1.
if (M96 eq 171)EGP=1.
if ((M96 eq 181) and (VTX ge 12 and VTX le 21))EGP=1.
if (M96 eq 186)EGP=1.
if (k2b eq 21)EGP=1.
if ((k2b eq 22) and (VTX ge 11 and VTX le 12))EGP=1.
if ((k2b eq 23) and (VTX ge 11 and VTX le 12))EGP=1.
if (k2b eq 24)EGP=1.
if ((k2b eq 25) and (VTX ge 21 and VTX le 22))EGP=1.
if ((k2b eq 26) and (VTX eq 12))EGP=1.
if (k2b eq 27)EGP=1.
if ((k2b eq 31) and (VTX ge 10 and VTX le 12))EGP=1.
if (k2b eq 32)EGP=1.
if (M96 eq 352)EGP=1.
if (M96 eq 357)EGP=1.
if (M96 eq 359)EGP=1.
if (M96 eq 361)EGP=1.
if ((M96 eq 362) and (VTX ge 10 and VTX le 20))EGP=1.
if ((k2b eq 38) and (VTX ge 10 and VTX le 21))EGP=1.
if ((k2b eq 42) and (VTX ge 12 and VTX le 21))EGP=1.
    
if (M96 eq 123)EGP=2.
if ((M96 eq 125) and (VTX eq 22))EGP=2.
if ((M96 eq 127) and (VTX ge 22 and VTX le 31))EGP=2.
if ((M96 eq 142) and (VTX ge 22 and VTX le 50))EGP=2.
if ((k2b eq 15) and (VTX ge 21 and VTX le 31))EGP=2.
if (M96 eq 172)EGP=2.
if ((M96 eq 174) and (VTX ge 22 and VTX le 31))EGP=2.
if ((M96 eq 175) and (VTX ge 22 and VTX le 31))EGP=2.
if ((M96 eq 181) and (VTX ge 22 and VTX le 31))EGP=2.
if (M96 eq 182)EGP=2.
if ((M96 eq 184) and (VTX ge 21 and VTX le 31))EGP=2.
if ((k2b eq 22) and (VTX eq 31))EGP=2.
if ((k2b eq 23) and (VTX eq 21))EGP=2.
if ((k2b eq 25) and (VTX eq 31))EGP=2.
if ((k2b eq 26) and (VTX eq 22))EGP=2.
if ((k2b eq 26) and (VTX eq 31))EGP=2.
if (k2b eq 28)EGP=2.
if (k2b eq 29)EGP=2.
if ((M96 eq 362) and (VTX ge 22 and VTX le 31))EGP=2.
if (M96 eq 373)EGP=2.
if ((k2b eq 41) and (VTX ge 22 and VTX le 32))EGP=2.
if ((k2b eq 42) and (VTX ge 22 and VTX le 31))EGP=2.
if ((k2b eq 43) and (VTX ge 21 and VTX le 31))EGP=2.
if ((M96 eq 441) and (VTX ge 22 and VTX le 31))EGP=2.
if ((M96 eq 442) and (VTX eq 31))EGP=2.
if (M96 eq 443)EGP=2.
    
if (M96 eq 124)EGP=3.
if ((M96 eq 125) and (VTX eq 41))EGP=3.
if ((M96 eq 128) and (VTX ge 42 and VTX le 50))EGP=3.
if ((M96 eq 143) and (VTX eq 41))EGP=3.
if (M96 eq 173)EGP=3.
if ((M96 eq 176) and (VTX eq 41))EGP=3.
if ((M96 eq 178) and (VTX eq 50))EGP=3.
if (M96 eq 183)EGP=3.
if (M96 eq 185)EGP=3.
if ((M96 eq 372) and (VTX eq 31))EGP=3.
if ((k2b eq 41) and (VTX ge 41 and VTX le 50))EGP=3.
if ((k2b eq 42) and (VTX eq 42))EGP=3.
if ((M96 eq 442) and (VTX ge 41 and VTX le 50))EGP=3.
if ((M96 eq 461 or M96 eq 462) and (VTX ge 32 and VTX le 50))EGP=3.
    
if ((k2b eq 31) and (VTX ge 20 and VTX le 50))EGP=6.
if (k2b eq 33)EGP=4.
if (k2b eq 34)EGP=4.
if (M96 eq 351)EGP=4.
if (M96 eq 353)EGP=4.
if (M96 eq 354)EGP=4.
if (M96 eq 355)EGP=4.
if (M96 eq 356)EGP=4.
if ((k2b eq 36) and (VTX eq 42))EGP=4.
if (M96 eq 371)EGP=4.
if ((M96 eq 372) and (VTX eq 22 or VTX eq 40))EGP=4.
if ((k2b eq 38) and (VTX ge 42 and VTX le 50))EGP=4.
    
if ((M96 eq 127) and (VTX ge 32 and VTX le 41))EGP=7.
if (M96 eq 135)EGP=7.
if ((M96 eq 174) and (VTX ge 32 and VTX le 42))EGP=7.
if ((M96 eq 175) and (VTX ge 32 and VTX le 42))EGP=7.
if ((M96 eq 184) and (VTX ge 32 and VTX le 50))EGP=7.
if ((k2b eq 43) and (VTX ge 32 and VTX le 42))EGP=7.
if ((M96 eq 441) and (VTX eq 41))EGP=7.
    
if (M96 eq 136)EGP=8.
if ((M96 eq 177) and (VTX ge 41 and VTX le 42))EGP=8.
if (M96 eq 454)EGP=8.
    
if ((M96 eq 176) and (VTX eq 50))EGP=9.
if ((M96 eq 177) and (VTX ge 50 and VTX le 60))EGP=9.
if ((M96 eq 178) and (VTX eq 60))EGP=9.
if (M96 eq 451)EGP=9 .
if (M96 eq 452)EGP=9.
if (M96 eq 455)EGP=9.
if ((M96 eq 461 or M96 eq 462) and (VTX eq 60))EGP=9.

if (M96 eq 451 and m96bl eq '1')EGP=10.
if (M96 eq 452 and m96bl eq '3')EGP=10.
if (M96 eq 452 and m96bl eq '4')EGP=10.
if (M96 eq 452 and m96bl eq '5')EGP=10.
   
if (k2a eq 5)EGP=0.


frequencies /variables egp.

if (k2a eq 1 and (VTX ge 11 and VTX le 22))IDHA=11.
if (k2a eq 1 and (VTX ge 31))IDHA=12.

if (k2a eq 2 and (VTX ge 11 and VTX le 22))IDHA=21.
if (k2a eq 2 and (VTX ge 31))IDHA=22.

if (k2a eq 4 and (VTX ge 11 and VTX le 22))IDHA=21.
if (k2a eq 4 and (VTX ge 31))IDHA=22.

if (k2a eq 3 and k2b eq 31)IDHA=31.
if (k2a eq 3 and k2b eq 32)IDHA=32.
if (k2a eq 3 and k2b eq 33)IDHA=32.
if (k2a eq 3 and k2b eq 34)IDHA=34.
if (k2a eq 3 and k2b eq 35)IDHA=35.
if (k2a eq 3 and k2b eq 36)IDHA=35.
if (k2a eq 3 and k2b eq 37)IDHA=34.
if (k2a eq 3 and k2b eq 38)IDHA=35.

if (k2b eq 21)IDHA=41.
if (M96 eq 137)IDHA=41.
if (M96 eq 141)IDHA=41.
if (k2b eq 26 and VTX eq 12)IDHA=41.

if (k2b eq 22 and VTX eq 11)IDHA=42.

if (k2b eq 23)IDHA=43.

if (M96 eq 152 and m96bl eq '1')IDHA=44.
if (M96 eq 152 and m96bl eq '2')IDHA=44.
if (M96 eq 152 and m96bl eq '3')IDHA=44.
if (M96 eq 155 and m96bl eq '1')IDHA=44.
if (M96 eq 155 and m96bl eq '2')IDHA=44.
if (M96 eq 156 and m96bl eq '1')IDHA=44.
if (M96 eq 159 and m96bl eq 'A')IDHA=44.
if (M96 eq 159 and m96bl eq 'B')IDHA=44.

if (M96 eq 243)IDHA=45.
if (M96 eq 288)IDHA=45.
if (M96 eq 126 and m96bl eq '1')IDHA=45.
if (M96 eq 126 and m96bl eq '3')IDHA=45.
if (M96 eq 126 and m96bl eq 'A')IDHA=45.
if (M96 eq 126 and m96bl eq 'C')IDHA=45.
if (M96 eq 126 and m96bl eq 'D')IDHA=45.

if (M96 eq 121 and m96bl eq '4')IDHA=51.
if (M96 eq 121 and m96bl eq '5')IDHA=51.
if (k2b eq 24 and IDHA ne 45)IDHA=51.

if (M96 ge 131 and M96 le 134)IDHA=52.


if (M96 eq 126 and m96bl eq '4')IDHA=53.
if (M96 eq 127 and m96bl eq '7')IDHA=53.
if (k2b eq 27)IDHA=53.
if (M96 eq 441)IDHA=53.
if (M96 eq 443)IDHA=53.

if (M96 eq 126 and m96bl eq '2')IDHA=54.
if (k2b eq 22 and IDHA ne 42)IDHA=54.

if (M96 eq 152 and m96bl eq '4')IDHA=55.
if (M96 eq 152 and m96bl eq '5')IDHA=55.
if (M96 eq 152 and m96bl eq '7')IDHA=55.
If (M96 eq 152 and m96bl eq '8')IDHA=55.

if (M96 eq 152 and m96bl eq '6')IDHA=56.

if (M96 eq 151)IDHA=57.
if (M96 eq 156 and m96bl eq '2')IDHA=57.
if (M96 eq 159 and m96bl eq '1')IDHA=57.
If (M96 eq 159 and m96bl eq '2')IDHA=57.

if (M96 eq 153)IDHA=58.
if (M96 eq 154)IDHA=58.

if (k2b eq 29)IDHA=59.

frequencies /variables IDHA.




*  Maken van Van Tulder kode in originele zes categorie‰n (VTXVT) +
  allereerst (voor 1880/81) enige veranderingen in de originele kodering.

*if (ondjr eq 8 and k2b eq 32)VTX=30.
*if (ondjr eq 8 and M96 eq 321)VTX=20.
*if (ondjr eq 8 and k2b eq 33 and VTX eq 20)VTX=30.
*if (ondjr eq 8 and k2b eq 35 and VTX eq 20)VTX=30.




*DOCUMENT   vanaf hier indeling volgens Lundgreen.


compute LKD=99.


if (k2b eq 31 and (VTX ge 10 and VTX le 12))LKD=1.
if (k2b eq 58)LKD=1.

if (k2b eq 32)LKD=2.
if (k2b eq 35 and (VTX ge 10 and VTX le 11))LKD=2.
if (k2b eq 36 and (VTX ge 10 and VTX le 11))LKD=2.
if (k2b eq 37 and (VTX ge 10 and VTX le 11))LKD=2.
if (k2b eq 38 and (VTX ge 10 and VTX le 11))LKD=2.

if (k2b eq 11)LKD=3.
if (k2b eq 12 and (VTX ge 10 and VTX le 21))LKD=3.
if (k2b eq 14 and (VTX ge 10 and VTX le 21))LKD=3.
if (k2b eq 15 and (VTX ge 10 and VTX le 12))LKD=3.
if (k2b eq 17 and (VTX ge 10 and VTX le 21))LKD=3.
if (k2b eq 18 and (VTX ge 10 and VTX le 21))LKD=3.

if (M96 eq 131)LKD=4.
if (M96 eq 132)LKD=4.
if (M96 eq 133)LKD=4.
if (M96 eq 134)LKD=4.
if (M96 eq 137)LKD=4.

if (k2a eq 2 and (VTX ge 10 and VTX le 21))LKD=5.

if (k2b eq 31 and (VTX ge 20 and VTX le 50))LKD=6.

if (k2b eq 33)LKD=7.

if (k2b eq 34)LKD=8.
if (k2b eq 35 and (VTX ge 12 and VTX le 50))LKD=8.
if (k2b eq 36 and (VTX ge 12 and VTX le 50))LKD=8.
if (k2b eq 37 and (VTX ge 12 and VTX le 50))LKD=8.
if (k2b eq 38 and (VTX ge 12 and VTX le 50))LKD=8.

if (k2b eq 12 and (VTX ge 22 and VTX le 42))LKD=9.
if (k2b eq 14 and (VTX ge 22 and VTX le 42))LKD=9.
if (k2b eq 15 and (VTX ge 21 and VTX le 31))LKD=9.
if (k2b eq 17 and (VTX ge 22 and VTX le 42))LKD=9.
if (k2b eq 18 and (VTX ge 22 and VTX le 42))LKD=9.

if (k2a eq 2 and (VTX ge 22 and VTX le 31))LKD=10.
if (k2b eq 28 and VTX eq 22)LKD=5.
if (k2b eq 41 and (VTX ge 12 and VTX le 42))LKD=10.
if (k2b eq 42 and (VTX ge 12 and VTX le 42))LKD=10.
if (k2b eq 43 and (VTX ge 12 and VTX le 42))LKD=10.
if (M96 eq 441 and (VTX ge 21 and VTX le 42))LKD=10.
if (M96 eq 442 and (VTX ge 21 and VTX le 42))LKD=10.
if (M96 eq 443 and (VTX ge 21 and VTX le 42))LKD=10.
if (M96 eq 461 and (VTX ge 32 and VTX le 42))LKD=10.


if (k2a eq 1 and (VTX ge 50 and VTX le 60))LKD=14.
if (k2a eq 4 and (VTX ge 50 and VTX le 60))LKD=14.

if (M96 eq 135)LKD=11.

if (M96 eq 451)LKD=12.
if (M96 eq 452)LKD=12.
if (M96 eq 455)LKD=12.

if (M96 eq 454)LKD=13.

if (M96 eq 136)LKD=15.

frequencies /variables lkd.

if (M96 eq 137)RIPR=1.
if (M96 eq 141)RIPR=1.
if (k2b eq 21)RIPR=1.
if (k2b eq 26 and (VTX eq 12))RIPR=1.

if (M96 eq 152)RIPR=2.
if (M96 eq 153)RIPR=2.
if (M96 eq 155 and (VTX ge 11 and VTX le 12))RIPR=2.
if (M96 eq 156)RIPR=2.
if (k2b eq 28 and VTX eq 21)RIPR=2.

if (k2b eq 23)RIPR=3.

if (k2b eq 22 and (VTX ge 11 and VTX le 12))RIPR=4.

if (k2b eq 11  and (VTX eq 11))RIPR=15.
if (M96 eq 121 and (VTX eq 11))RIPR=15.
if (M96 eq 122 and (VTX eq 11))RIPR=15.
if (M96 eq 125 and (VTX eq 11))RIPR=15.
if (M96 eq 126)RIPR=15.
if (M96 eq 171 and (VTX eq 11))RIPR=15.

if (M96 eq 131)RIPR=5.
if (M96 eq 132)RIPR=5.
if (M96 eq 133)RIPR=5.
if (M96 eq 134)RIPR=5.


if (k2b eq 11  and (VTX eq 12))RIPR=6.
if (M96 eq 121 and (VTX ge 12 and VTX le 21))RIPR=6.
if (M96 eq 122 and (VTX ge 12 and VTX le 21))RIPR=6.
if (M96 eq 123)RIPR=6.
if (M96 eq 124)RIPR=6.
if (M96 eq 125 and (VTX ge 12 and VTX le 41))RIPR=6.
if (M96 eq 128)RIPR=6.
if (M96 eq 135)RIPR=6.
if (M96 eq 136)RIPR=6.
if (M96 eq 142)RIPR=6.
if (M96 eq 143)RIPR=6.
if (M96 eq 171 and (VTX ge 12 and VTX le 21))RIPR=6.
if (M96 eq 172)RIPR=6.
if (M96 eq 173)RIPR=6.
if (M96 eq 176)RIPR=6.
if (M96 eq 178)RIPR=6.
if (M96 eq 181)RIPR=6.
if (M96 eq 182)RIPR=6.
if (M96 eq 183)RIPR=6.
if (M96 eq 185)RIPR=6.
if (M96 eq 186)RIPR=6.
if (k2b eq 22 and VTX eq 31)RIPR=6.
if (k2b eq 25)RIPR=6.
if (k2b eq 26 and (VTX GE 22 AND VTX le 31))RIPR=6.
if (k2b eq 28 and (VTX ge 22 and VTX le 31))RIPR=6.
if (k2b eq 29)RIPR=6.
if (k2b eq 36)RIPR=6.
if (k2b eq 42)RIPR=6.
if (M96 eq 442)RIPR=6.

if (M96 eq 151)RIPR=7.
if (M96 eq 154)RIPR=7.
if (M96 eq 159)RIPR=7.

If (M96 eq 127)RIPR=8.
if (M96 eq 155 and VTX eq 31)RIPR=8.
if (M96 eq 174)RIPR=8.
if (M96 eq 175)RIPR=8.
if (M96 eq 177)RIPR=8.
if (M96 eq 184)RIPR=8.
if (k2b eq 24)RIPR=8.
if (k2b eq 27)RIPR=8.
if (k2b eq 43)RIPR=8.
if (M96 eq 441)RIPR=8.

if (k2b eq 31 and (VTX ge 10 and VTX le 12))RIPR=9.

if (k2b eq 31 and (VTX ge 20 and VTX le 50))RIPR=10.

if (k2b eq 32 )RIPR=11.

if (M96 eq 335)RIPR=12.
if (M96 eq 336)RIPR=12.
if (M96 eq 337)RIPR=12.
if (k2b eq 34 )RIPR=12.
if (k2b eq 35 )RIPR=12.
if (k2b eq 37 )RIPR=12.
if (k2b eq 38 )RIPR=12.
if (k2b eq 41 )RIPR=12.
if (M96 eq 443)RIPR=12.
if (k2b eq 46 and (VTX ge 32 and VTX le 42))RIPR=12.


if (M96 eq 331)RIPR=13.
if (M96 eq 332)RIPR=13.
if (M96 eq 333)RIPR=13.
if (M96 eq 334)RIPR=13.
if (M96 eq 454)RIPR=13.


if (M96 eq 451)RIPR=141.
if (M96 eq 452)RIPR=141.
if (M96 eq 455)RIPR=141.
if (k2b eq 46 and (VTX ge 50 and VTX le 60))RIPR=141.

if (k2b eq 51)RIPR=142.
if (k2b eq 53)RIPR=142.
if (k2b eq 55)RIPR=142.
if (k2b eq 58)RIPR=142.

if (k2b eq 52)RIPR=143.
if (k2b eq 54)RIPR=143.
if (k2b eq 56)RIPR=143.
if (k2b eq 57)RIPR=143.

frequencies /variables RIPR.

TRAnSLATE TO 'BERPCLNW.DBF' /TYPE DB4.
finish.