/******************************************************************************
 * Programme : Gestion des formats SAS dans CAS
 * Reference : GESTIO5849
 * Source    : https://www.wearecas.eu/en/sampleCode/GESTIO5849
 ******************************************************************************/

/* --- BLOC 1 --- */
cas;
caslib _all_ assign;

cas casauto listformats;

/* --- BLOC 2 --- */
data cars;
  set sashelp.cars;
run;

/* --- BLOC 3 --- */
proc format library=work.formats casfmtlib="casformats" ;
   value enginesize
   low - <2.7 = "Very economical"
   2.7 - <4.1 = "Small"
   4.1 - <5.5 = "Medium"
   5.5 - <6.9 = "Large"
   6.9 - high = "Very large";
run;

/* --- BLOC 4 --- */
cas casauto listformats;

/* --- BLOC 5 --- */
cas casauto promotefmtlib fmtlibname='casformats';

/* --- BLOC 6 --- */
cas casauto listformats;

/* --- BLOC 7 --- */
cas casauto savefmtlib fmtlibname='casformats' caslib='formats' table='casfmt_table' replace;

/* --- BLOC 8 --- */
proc casutil incaslib='formats';
  list files;
quit;

/* --- BLOC 9 --- */
DATA casuser.cars_cas(replace=yes);
  set sashelp.cars;
  format enginesize enginesize.;
run;

proc print data=casuser.cars_cas(obs=10);
var EngineSize;
run;

/* --- BLOC 10 --- */
cas casauto listformats;

/* --- BLOC 11 --- */
cas casauto dropfmtlib fmtlibname=CASFORMATS fmtsearchremove;

/* --- BLOC 12 --- */
cas casauto listformats;

/* --- BLOC 13 --- */
cas casauto dropfmtlib fmtlibname=CASFORMATS fmtsearchremove;

/* --- BLOC 14 --- */
cas casauto listformats;

/* --- BLOC 15 --- */
cas casauto addfmtlib fmtlibname=fmthdat             
   caslib=formats
   table=casfmt_table;

/* --- BLOC 16 --- */
cas casauto listformats;

/* --- BLOC 17 --- */
cas casauto listformats members;
cas casauto listfmtranges fmtname=enginesize;

/* --- BLOC 18 --- */
DATA casuser.cars_cas(replace=yes);
  set sashelp.cars;
  format enginesize enginesize.;
run;