/* Created variable: cvc_rnd:  Round of R's last interview as of the round 20 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 */


data ten; set R20RNI_vars;

%let n=20;
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;

data rnd.CVC_RND_R20; set ten;
keep pubid cvc_rnd;

proc freq;
table cvc_rnd;
run;