%macro VintageCss();

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

%macro VintageIns();

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