In-memory table management (Add, Save, Delete)

data _null_; file _webout; put 'Nom,Age,Ville'; put 'Alice,30,Paris'; put 'Bob,24,Lyon'; put 'Charlie,35,Marseille'; run; %let data_csv_file = '/tmp/simple_data.csv'; filename _csv_ temp filevar=_webout; data _null_; file _csv_; input; put _infile_; run; proc cas; session casauto; table.upload / path=&data_csv_file. casOut={name='MaTableSimple', replace=TRUE}, importOptions={fileType='csv'}; print 'Table MaTableSimple chargée :'; table.tableInfo / name='MaTableSimple'; table.save / table='MaTableSimple', name='MaTableSimpleSauvegardee', replace=TRUE; print 'Table MaTableSimpleSauvegardee créée :'; table.tableInfo / name='MaTableSimpleSauvegardee'; table.dropTable / name='MaTableSimple'; print 'Table MaTableSimple supprimée de la mémoire :'; table.tableInfo / name='MaTableSimple'; quit;

/* Définir l'URL du fichier CSV */ %let csv_url = 'http://support.sas.com/documentation/onlinedoc/viya/exampledatasets/air.csv'; /* Créer un fichier temporaire pour le téléchargement */ filename _air_ temp; /* Télécharger le fichier CSV */ proc http method='get' url=&csv_url. out=_air_; run; /* Obtenir le chemin du fichier temporaire */ %let temp_air_path = %sysfunc(pathname(_air_)); proc cas; session casauto; /* Charger le fichier CSV avec des options d'importation spécifiques */ table.upload / path="&temp_air_path.", casOut={name='AirData', replace=TRUE}, importOptions={fileType='csv', guessrows=1000, vartype='best'}; print 'Table AirData chargée :'; table.tableInfo / name='AirData'; /* Sauvegarder la table en mémoire vers un fichier SASHDAT spécifique dans la caslib active */ table.save / table='AirData', name='AirDataSauvegardee.sashdat', caslib='CASUSER', /* Spécifier une caslib si nécessaire */ replace=TRUE; print 'Table AirDataSauvegardee.sashdat créée dans CASUSER :'; table.tableInfo / name='AirDataSauvegardee.sashdat', caslib='CASUSER'; /* Promouvoir la table sauvegardée pour la rendre visible à d'autres sessions */ table.promote / name='AirDataSauvegardee.sashdat', caslib='CASUSER'; print 'Table AirDataSauvegardee.sashdat promue :'; table.tableInfo / name='AirDataSauvegardee.sashdat', caslib='CASUSER'; /* Supprimer la table originale en mémoire */ table.dropTable / name='AirData'; print 'Table AirData supprimée de la mémoire :'; table.tableInfo / name='AirData'; quit; /* Libérer le fichier temporaire */ filename _air_ clear;

/* Création d'une table en mémoire via un DATA step */ data casuser.Produits; length Categorie $10 Produit $20; infile datalines dsd; input Categorie $ Produit $ Prix Stock; format Prix dollar8.2; label Categorie='Catégorie de Produit' Produit='Nom du Produit' Prix='Prix Unitaire' Stock='Quantité en Stock'; datalines; Aliments,Pommes,1.50,100 Aliments,Poires,2.00,75 Boissons,Jus d'orange,3.25,50 Boissons,Eau,1.00,200 Electronique,Souris,25.99,30 Electronique,Clavier,75.00,20 ; run; proc cas; session casauto; print 'Table Produits créée en mémoire :'; table.tableInfo / name='Produits', caslib='CASUSER'; /* Sauvegarde de la table en mémoire avec compression et un chemin spécifique */ table.save / table={name='Produits', caslib='CASUSER'}, name='ProduitsComp.sashdat', caslib='CASUSER', compression='saszpg', /* Compression pour économiser l'espace */ replace=TRUE; print 'Table ProduitsComp.sashdat sauvegardée avec compression :'; table.tableInfo / name='ProduitsComp.sashdat', caslib='CASUSER'; /* Supprimer la table originale en mémoire */ table.dropTable / name='Produits', caslib='CASUSER'; print 'Table Produits supprimée de la mémoire :'; table.tableInfo / name='Produits', caslib='CASUSER'; /* Recharger la table sauvegardée dans une nouvelle table en mémoire */ table.loadTable / caslib='CASUSER', path='ProduitsComp.sashdat', casOut={name='ProduitsRecharges', replace=TRUE}; print 'Table ProduitsRecharges rechargée en mémoire :'; table.tableInfo / name='ProduitsRecharges', caslib='CASUSER'; /* Afficher quelques lignes pour vérifier */ table.fetch / table={name='ProduitsRecharges', caslib='CASUSER'}, to=5; quit;

/* Créer une table temporaire pour la démonstration */ data _null_; file _webout; put 'ID,Valeur'; put '1,10'; put '2,20'; put '3,30'; run; %let temp_data_file = %sysfunc(pathname(temp)); filename _tmp_data_ temp filevar=_webout; data _null_; file _tmp_data_; input; put _infile_; run; proc cas; session casauto; /* Charger la table */ table.upload / path="&temp_data_file.", casOut={name='TempTable', replace=TRUE}, importOptions={fileType='csv'}; print 'Table TempTable chargée :'; table.tableInfo / name='TempTable'; /* Sauvegarder la table dans une caslib spécifique (par exemple, un chemin de fichier) */ /* Assurez-vous que 'caslib_perso' est une caslib existante et accessible avec des droits d'écriture */ /* Par exemple, 'CASUSER' est souvent disponible */ table.save / table='TempTable', name='TempTable_Saved', caslib='CASUSER', replace=TRUE; print 'Table TempTable_Saved sauvegardée dans CASUSER :'; table.tableInfo / name='TempTable_Saved', caslib='CASUSER'; /* Vérifier l'état de la session CAS */ session.info result=sinfo; print 'Informations sur la session CAS:'; print sinfo; /* Lister toutes les caslibs disponibles */ builtins.listCaslibs result=caslibs; print 'Caslibs disponibles:'; print caslibs; /* Supprimer les tables temporaires créées */ table.dropTable / name='TempTable'; table.dropTable / name='TempTable_Saved', caslib='CASUSER'; quit; filename _tmp_data_ clear;