/******************************************************************************
 * Programme : Performance SAS Viya : FedSQL vs Action CASL, qui gagne le match du GROUP BY
 * Reference : EXEMPLB9FC
 * Source    : https://www.wearecas.eu/en/sampleCode/EXEMPLB9FC
 ******************************************************************************/

/* --- BLOC 1 --- */
/* CAS Enabled */
/* CASL GROUPBY Action Example */ 

/* LIBNAME using the CAS engine */
libname CASWORK cas caslib=casuser;

/* Changing the default location of all one level named tables */
/* from SASWORK to CASWORK */
options USER = CASWORK;

%put  &_sessref_;

caslib  _all_ assign;

/* --- BLOC 2 --- */
data casuser.baseball;
   set sashelp.baseball;
run;

/* --- BLOC 3 --- */
proc delete data=casuser.baseball_groupby;
run;

/* --- BLOC 4 --- */
options caslib="casuser";
proc fedsql  sessref=casauto;
   create table baseball_groupby 
   as
   (select  sum(nhits) as nhits_sum
   from baseball
   group by div, team) ;
quit;

/* --- BLOC 5 --- */
proc cas;
   session casauto;
   simple.groupBy result=r status=s /
      inputs={"DIV" "TEAM"},
      weight="nhits",            
      aggregator="SUM",  
      table={name="baseball"},
      casout={name="casl_baseball_groupby",   
         replace=true};
run;