proc hpsplit data=loan.Btest_2_fa maxdepth=5 ;
    class v_5 ;
    model v_5(event=’1’) = FA_P1 FA_P2 FA_P4 FA_P7 FA_P8
    v_101 lc3 v_72 v_70 v_172_c v_100 v_20 v_19 v_50 v_31_c v_49
    ;
    prune costcomplexity;
    partition fraction(validate=0.3 seed=123);
    code file=’d:\Bhpsplexc.sas’;
    rules file=’d:\Brules.txt’;

    run;

    data Bscored;
    set loan.Btest_2_fa;
    %include ‘d:\Bhpsplexc.sas’;
    run;