* ;                                                                                        
    * Memory Based Reasoning Scoring ;                                                         
    * ;                                                                                        
    run;                                                                                       
    %let _oldscr=&SYSLAST;                                                                     
    proc pmbr score=_last_ out=work._tmpmbr                                                    
                   data=EMDATA.TRNBTS3X dmdbcat=EMPROJ.dm_DGM00001 k=16 weighted method=RDTREE;
                  target LOAN;                                                                 
                  var YOJ;                                                                     
    data &_oldscr; set work._tmpmbr;                                                           
 *--------------------------------------------------------------*;                             
 * Memory-Based Reasoning: LOAN: Decisions;                                                    
 *--------------------------------------------------------------*;                             
 **** NO DECISION CODE;