/*
Date: 2019-11-04
Purpose: My_program
*/

*Set filerefs and librefs using only relative paths;
x "cd /share/groupid/username";
filename lsas ".";
libname lsas ".";

ods trace off;
ods listing ;
options linesize = 90 NODATE ;

data lsas.A lsas.B;
    call streaminit(123);
    do i = 1 to 9000000;
       u = rand("Uniform");
       bn = rand('BERNoulli',0.6);
       bi = rand('BINOmial',0.6,10000);
       ca = rand("CAUChy");
       ga = rand("GAMMA",2,1);
       po = rand("POISson",4);
    output;
    end;
run;


proc means data=lsas.A mean p90 range;
run;

%macro comp;
%local i;
%do i=1 %to 100;
proc sort data=lsas.A;
    by bn bi u;
run;

proc sort data=lsas.A;
    by i u ca;
run;
%end;
%mend comp;
%comp

%macro comp;
%local j;
%do j=1 %to 100;
proc sort data=lsas.B;
    by bn bi u;
run;

proc sort data=lsas.B;
    by i u ca;
run;
%end;
%mend comp;
%comp

proc print data=lsas.A (firstobs=11 obs=21);
run;
ods pdf close;
quit;