SAVERESULT-Anweisung

/* Crée un jeu de données SAS local */ data mylib.cars_data; set sashelp.cars; where make in ('Toyota', 'Honda'); run; /* Démarre une session CAS et charge le jeu de données en mémoire */ proc cas; session casauto; caslib _all_ assign; /* Charge la table SAS dans CAS */ table.loadtable / caslib='casuser', path='cars_data.sashdat', casout={name='mycars_cas', replace=true}; /* Sauvegarde la table CAS en mémoire dans une nouvelle table CAS */ saveresult mycars_cas / casout={name='mycars_saved', caslib='casuser', replace=true}; /* Vérifie que la nouvelle table a été sauvegardée */ table.tableinfo / caslib='casuser' name='mycars_saved'; /* Affiche les premières lignes de la table sauvegardée */ table.fetch / caslib='casuser' table={name='mycars_saved'}; quit; /* Nettoyage : Supprime les tables et le jeu de données local */ proc cas; table.droptable / caslib='casuser' name='mycars_cas'; table.droptable / caslib='casuser' name='mycars_saved'; quit; proc delete data=mylib.cars_data; run;

/* Démarre une session CAS */ proc cas; session casauto; caslib _all_ assign; /* Charge un jeu de données SASHELP dans CAS */ table.loadtable / caslib='casuser', path='Hmeq.sashdat', casout={name='hmeq_cas', replace=true}; /* Exécute une action CAS pour obtenir des statistiques sommaires */ simple.summary / table='hmeq_cas', inputs={'debtinc', 'loan'}, casout={name='summary_results', replace=true}; /* Sauvegarde la table de résultats temporaire 'summary_results' */ saveresult summary_results / casout={name='hmeq_summary_saved', caslib='casuser', replace=true}; /* Vérifie que la table de résultats a été sauvegardée */ table.tableinfo / caslib='casuser' name='hmeq_summary_saved'; /* Affiche les premières lignes de la table sauvegardée */ table.fetch / caslib='casuser' table={name='hmeq_summary_saved'}; quit; /* Nettoyage : Supprime les tables CAS */ proc cas; table.droptable / caslib='casuser' name='hmeq_cas'; table.droptable / caslib='casuser' name='summary_results'; table.droptable / caslib='casuser' name='hmeq_summary_saved'; quit;

/* Crée un jeu de données SAS local avec des données complexes */ data mylib.complex_data; length id 8 name $20 value 8 date 8; format date yymmdd10.; input id name $ value date; datalines; 1 John 100 20230115 2 Jane 150 20230220 3 Mike 120 20230325 4 Sara 200 20230430 ; run; /* Démarre une session CAS */ proc cas; session casauto; caslib _all_ assign; /* Charge la table SAS dans CAS */ table.loadtable / caslib='casuser', path='complex_data.sashdat', casout={name='complex_cas', replace=true}; /* Sauvegarde la table CAS en un fichier CSV sur le système de fichiers CAS */ /* Le chemin 'path' est relatif au caslib 'casuser' */ saveresult complex_cas / dbase='CSV', path='output/complex_data_saved.csv', replace=true; /* Vérifie l'existence du fichier CSV (cela nécessite un accès au système de fichiers CAS) */ /* Note: Cette vérification n'est pas directe via PROC CAS pour les fichiers externes. */ /* Pour vérifier, il faudrait utiliser une action qui liste les fichiers du caslib */ table.fileinfo / caslib='casuser' path='output'; quit; /* Nettoyage : Supprime les tables et le jeu de données local */ proc cas; table.droptable / caslib='casuser' name='complex_cas'; /* La suppression du fichier CSV nécessite un accès direct au système de fichiers ou une action CAS spécifique */ /* Pour cet exemple, nous n'incluons pas de suppression de fichier externe. */ quit; proc delete data=mylib.complex_data; run;

/* Démarre une session CAS */ proc cas; session casauto; caslib _all_ assign; /* Charge le jeu de données iris de SASHELP dans CAS */ table.loadtable / caslib='casuser', path='Iris.sashdat', casout={name='iris_cas', replace=true}; /* Crée une table filtrée en mémoire */ data casuser.iris_filtered (casview=true); set casuser.iris_cas; if Species = 'Setosa'; run; /* Sauvegarde la vue filtrée en une table permanente et la promeut */ /* La promotion rend la table disponible globalement pour toutes les sessions */ if _OR_.exists(caslib='casuser', name='iris_setosa_promoted') then do; table.droptable / caslib='casuser' name='iris_setosa_promoted'; end; saveresult iris_filtered / casout={name='iris_setosa_promoted', caslib='casuser', replace=true} promote=true; /* Vérifie que la table a été sauvegardée et promue */ table.tableinfo / caslib='casuser' name='iris_setosa_promoted'; /* Affiche les premières lignes de la table sauvegardée */ table.fetch / caslib='casuser' table={name='iris_setosa_promoted'}; quit; /* Nettoyage : Supprime les tables CAS */ proc cas; table.droptable / caslib='casuser' name='iris_cas'; table.droptable / caslib='casuser' name='iris_filtered'; /* Supprime la vue en mémoire */ table.droptable / caslib='casuser' name='iris_setosa_promoted'; quit;