/* Created variable: cvc_rnd:  Round of R's last interview as of the round 21 survey*/

 /*  RNI_R2  REASON FOR NON INTERVIEW R2  */ 
 /*  RNI_R3  REASON FOR NON INTERVIEW R3  */ 
 /*  RNI_R4  REASON FOR NON INTERVIEW R4  */ 
 /*  RNI_R5  REASON FOR NON INTERVIEW R5  */ 
 /*  RNI_R6  REASON FOR NON INTERVIEW R6  */ 
 /*  RNI_R7  REASON FOR NON INTERVIEW R7  */ 
 /*  RNI_R8  REASON FOR NON INTERVIEW R8  */ 
 /*  RNI_R9  REASON FOR NON INTERVIEW R9  */ 
 /*  RNI_R10 REASON FOR NON INTERVIEW R10 */ 
 /*  RNI_R11 REASON FOR NON INTERVIEW R11 */ 
 /*  RNI_R12 REASON FOR NON INTERVIEW R12 */ 
 /*  RNI_R13 REASON FOR NON INTERVIEW R13 */ 
 /*  RNI_R14 REASON FOR NON INTERVIEW R14 */ 
 /*  RNI_R15 REASON FOR NON INTERVIEW R15 */ 
 /*  RNI_R16 REASON FOR NON INTERVIEW R16 */ 
 /*  RNI_R17 REASON FOR NON INTERVIEW R17 */ 
 /*  RNI_R18 REASON FOR NON INTERVIEW R18 */ 
 /*  RNI_R19 REASON FOR NON INTERVIEW R19 */ 
 /*  RNI_R20 REASON FOR NON INTERVIEW R20 */ 
 /*  RNI_R21 REASON FOR NON INTERVIEW R21 */ 



%let n=21;
array rni_r(&n); 

do i=(&n) to 3 by -1;  
	if cvc_rnd=. & 59<rni_r(i)<80 then cvc_rnd=i;
end;

if cvc_rnd=. & rni_r2=-4 then cvc_rnd=2;
if cvc_rnd=. then cvc_rnd=1;