data wykres.vin;
set wej.Transactions;
seniority=intck('month',input(fin_period,yymmn6.),input(period,yymmn6.));
vin1=(due_installments>=1);
vin2=(due_installments>=2);
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;
keep fin_period vin3 vin2 vin1 seniority aid cid product;
run;