%macro tester1 ;
    %global _xy ;
    
    proc transpose data = _info out = wk010 ;
        var X1 - X8 ;
        by No Turn Y ;
    run ;
    
    data wk020 ;
        set wk010(where = (col1 = 99)) ;
        weight = ranuni(0) ;
        
        proc sort ;
            by weight ;
    run ;
    
    data _null_ ;
        set wk020(obs = 1) ;
        call symput('_xy',  substr(_name_, 2, 1) || ',' || trim(put(y, best. -L)) ) ;
    run ;
%mend ;

%macro tester2 ;
    %tester1 ;
%mend ;