Comment récupérer la taille mémoire de toutes les tables d'une CASLIB ?

/* Ce code ne fonctionnera pas */ proc cas; table.tabledetails / name="%" caslib="MaLib"; quit;

cas mycas; libname casuser cas caslib=casuser; proc casutil; load data=sashelp.cars outcaslib="casuser" casOut="cars" replace; load data=sashelp.class outcaslib="casuser" casOut="class" replace; load data=sashelp.baseball outcaslib="casuser" casOut="baseball" replace; run;

proc cas; /* 1. Récupérer la liste de toutes les tables de la librairie */ table.tableinfo result=rc / caslib="casuser"; /* Variable pour gérer la syntaxe d'ajout (append) après la première itération */ fragment=';'; /* 2. Boucler sur chaque table trouvée */ do table over rc["TableInfo"][,"Name"]; /* Récupérer les détails de la table courante */ table.tabledetails result=result / name=table caslib="casuser"; /* Sauvegarder le résultat temporaire dans une table CAS */ saveresult result caslib="casuser" casout=table; /* 3. Générer et exécuter du code Data Step dynamiquement */ /* Cela permet d'ajouter le nom de la table source et de consolider les données */ code = "data casuser.allResults" || fragment || " set casuser." || table || ";" || " length Data varchar(100);" || " Data='" || table || "';" || /* Ajoute une colonne avec le nom de la table */ " run;"; datastep.runcode / code=code; /* Changer le fragment pour activer l'option append pour les tours suivants */ fragment='(append=yes);'; end; quit;