Hi Patrick,    Thank you a lot for your reply. I attached a sample file.    Some friend suggested:     data abc_1;  set abc (rename=(code=date_c));  array num{*} _numeric_;  do i = 1 to dim(num) by 3;  code = scan(vlabel(num), 1, '()');  p = num;  p2 = num[i+1];  p3 = num[i+2];  output;  end;  keep date_c code p p2 p3;  run;     But that does not work. Would you suggest what adjustment I should make?    Best regards!   
						
					
					... View more