options compress=yes;

%let dir=/home/u45088587/sasuser.v94/kat/;
%let dir_projekt=/home/u45088587/sasuser.v94/kat/;

libname wej "&dir_projekt" compress=yes;
libname wyj "&dir" compress=yes;

%let zb=wyj.vin;
%let tar=vin3;

*%let zmienne_int_ord=act_age app_income act_cc;


%let il_zm=213;

data nowabaza(DROP=aid cid product period app_char_branch app_char_cars app_char_cit
 app_char_gender app_char_home_status app_char_job_code app_char_marital_status);
SET wyj.production;
RUN;

proc contents noprint data=nowabaza out=meta (keep=NAME) ;
run ;
proc print data=meta;
run ;

 proc sql noprint;
 select Name
  into :zmienne_int_ord separated by ' '
 from meta;



%put ***&il_zm***&zmienne_int_ord;



data vin0;
set wej.transactions;
seniority=intck('month',input(fin_period,yymmn6.),input(period,yymmn6.));
vin3=(due_installments>=3);
output;
if status in ('B','C') and period<='200812' then do;
    n_steps=intck('month',input(period,yymmn6.),input('200812',yymmn6.));
    do i=1 to n_steps;
        period=put(intnx('month',input(period,yymmn6.),1,'end'),yymmn6.);
        seniority=intck('month',input(fin_period,yymmn6.),input(period,yymmn6.));
        output;
    end;
end;
where product='ins';
keep vin3 seniority aid;
run;

data vin12_sample(drop=seniority);
set vin0;
where seniority=12 and ranuni(1)<0.5;
run;
proc sort data=vin12_sample nodupkey;
by aid;
run;
proc sort data=wej.Production(keep=aid &zmienne_int_ord) out=prod nodupkey;
by aid;
run;
data &zb;
merge vin12_sample(in=z) prod;
by aid;
if z;
run;


%let max_il_podz=2;
/*minimalna liczba obs w li�ciu*/
%let min_percent=3;
%include "&dir.tree.sas" / source2;