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