Depuis 2017, sasreference s’est professionnalisé et est devenu xxformat pour vous permettre d’apprendre pas-à-pas le langage SAS (version 9.4) qui s’appuie sur sa Collection Office.
Restez informé grâce à sa newsletter bilingue.
veronique.bourcier@xxformat.com
filename demo "&xxproject./reporting/demo.txt";
data _null_;
file demo;
dt='20MAR2023:09:07:01'dt;
put 'DATETIME.' @14 dt datetime.;
put 'DATETIME16.' @14 dt datetime16.;
put 'DATETIME18.' @14 dt datetime18.;
put 'DATETIME18.1' @14 dt datetime18.1;
put 'DATETIME19.' @14 dt datetime19.;
run;
filename demo;
Lorsqu’on passe d’une largeur de libellé de format de 16 (valeur par défaut) à 18, on permet en fait l’affichage des dixièmes de secondes et non l’affichage d’une année à 4 chiffres.
On notera néanmoins qu’en l’absence de demande d’affiche des dixièmes , des blancs d’en-tête sont présents.
Dans cet article intitulé « Splitting a data table into multiple sheets of an Excel workbook« , l’auteur nous propose de créer une macro pour répartir les données d’un dataset entre plusieurs feuilles de calcul.
Dans son exemple, les onglets portant le nom des feuilles de calcul changent de couleur. Si vous n’avez pas besoin de cette variation de couleur, vous pouvez utiliser un code beaucoup plus simple. Voici la solution que je vous propose. Les données doivent être triées au préalable pour correspondre à l’ordre attendu par l’instruction by.
%let xxtraining=<à compléter>;
options nobyline;
proc sort data=sashelp.fish out=fish;
by species;
run;
ods excel file="&xxtraining./reporting/fish.xlsx"
options(embedded_titles ='yes'
sheet_interval='bygroup'
sheet_name='#byval(species)');
title 'SASHELP.FISH where #byval(species)';
proc report data=fish;
by species;
run;
ods excel close;Les options utilisées dans cet exemple sont couvertes dans le chapitre consacré à la destination ods excel du module en trois chapitres sur le reporting.
Pour plus d’informations sur mes solutions de formation en ligne au langage SAS : veronique.bourcier@xxformat.com
La fonction catq est disponible depuis SAS 9.3. La particularité de cette fonction est de pouvoir ajouter des guillemets simples (single quotes) ou des guillemets doubles (double quotes) autour des différentes valeurs à concaténer.
Un des avantages de la fonction catq est de pouvoir travailler autant avec les valeurs numériques qu’avec les valeurs caractères. On fera néanmoins attention aux valeurs infinies comme 1/3.
data catq;
x=catq('1' ,'ABC ',2," EFG",' ');
put x=;
x=catq('2' ,'ABC ',2," EFG",' ');
put x=;
run;
Dans ce premier exemple, on voit que le 1 permet d’ajouter des guillemets simples alors que le deux permet d’ajouter des guillemets doubles. Dans le cas présent, seules les valeurs caractères ont des guillemets.
x='ABC ' 2 ' EFG' ' ' x="ABC " 2 " EFG" " "
data catq;
x=catq('1' ,'ABC ',2," EFG",' ');
put x=;
x=catq('1a' ,'ABC ',2," EFG",' ');
put x=;
x=catq('1c' ,'ABC ',2," EFG",' ');
put x=;
x=catq('1ac' ,'ABC ',2," EFG",' ');
put x=;
run;
Dans ce second exemple, on voit que la lettre a pour que toutes les valeurs soient entre guillemets, y compris les valeurs numériques.
Si on souhaite ajouter la virgule (comma) entre les différentes valeurs à concaténer avec la lettre c, il faudra impérativement garder la lettre a.
x='ABC ' 2 ' EFG' ' ' x='ABC ' '2' ' EFG' ' ' x=ABC ,2, EFG, x='ABC ','2',' EFG',' '
Une autre manière d’ajouter la virgule comme séparateur entre les valeurs est d’utiliser la lettre d (delimiter) et de préciser le séparateur dans le second argument de la fonction ; cet argument est optionnel et ne servira qu’avec la lettre d.
data catq;
x=catq('c','ABC ',2," EFG",' ');
put x=;
x=catq('d',',','ABC ',2," EFG",' ');
put x= /;
x=catq('1ac','ABC ',2," EFG",' ');
put x=;
x=catq('1ad',',','ABC ',2," EFG",' ');
put x=;
run;
Nous obtenons le même résultat qu’on utilise c ou d avec l’argument optionnel. La lettre d offre juste plus de possibilités.
x=ABC ,2, EFG, x=ABC ,2, EFG, x='ABC ','2',' EFG',' ' x='ABC ','2',' EFG',' '
Lorsqu’on n’a pas besoin des guillemets autour des différentes valeurs à concaténer, la fonction catq se rapproche de la fonction catx.
data catq;
x=catq('d',',','ABC ',2," EFG",' ');
put x=/;
x=catq('ds',',','ABC ',2," EFG",' ');
put x=;
x=catx(',','ABC ',2," EFG",' ');
put x=/;
x=catq('dt',',','ABC ',2," EFG",' ');
put x=;
run;
Pour enlever les leading et trailing blanks avec la fonction catq, on ajoutera la lettre s (strip).
Pour uniquement enlever les trailing blanks avec la fonction catq, on ajoutera la lettre t (trim).
x=ABC ,2, EFG, x=ABC,2,EFG x=ABC,2,EFG x=ABC,2, EFG
La fonction dispose d’autres arguments pour travailler avec les literals (lettre n), pour afficher les valeurs en hexadecimal (lettre x), pour utiliser une tabulation horizontale comme séparateur (lettre h), etc.
Toutes les informations sont disponibles dans la documentation en ligne : http://support.sas.com/documentation/cdl/en/lefunctionsref/63354/HTML/default/viewer.htm
La fonction transtrn en combinaison avec la fonction trimn vous permettre d’enlever un mot sans laisser un blanc.
La fonction COMPARE retourne le nombre zéro si aucune différence n’existe entre deux chaînes de caractères. Sinon elle retourne la position la position du premier caractère différent.
Dans l’exemple ci-dessous, deux datasets sont créés. Une fois combinés, on s’intéresse à la différence entre la variable LABEL_ONE du premier dataset et la variable LABEL_TWO du second dataset. La première différence a lieu sur la deuxième lettre. La variable DIFF prend donc la valeur 2.
data one;
length start $8 label_one $8;
start='1';
label_one='ABC';
run;
data two;
length start $8 label_two $8;
start='1';
label_two='AbC';
run;
data diff;
merge one two;
by start;
run;
data diff;
set diff;
diff=compare(label_one,label_two);
run;
proc print data=diff;
run;
Vous pouvez ajouter un troisième paramètre dans la fonction si vous ne voulez pas tenir compte des différences de majuscule, de blancs de début de chaîne de caractère,…
Dans quel cas utiliser cette fonction ? Si vous réalisez un rapport listant la différence entre deux valeurs pour pouvoir ensuite les corriger, vous pouvez utiliser cette fonction pour préciser à partir de quel moment la couleur devra changer.
Pour en savoir plus : la documentation SAS 9.2
A partir d’une date SAS, le numéro de la semaine est extrait avec la fonction WEEK. Cette fonction est composée de deux paramètres: la date SAS obligatoire et une lettre entre guillemets (‘U’,’V’ ou ‘W’) facultative. Ne pas mettre de lettre revient à choisir l’option ‘U’.
La première question à se poser est : le premier jour de la semaine est-il un dimanche ou un lundi ?
La seconde question à se poser est : si le 1er janvier est en semaine, est-ce en semaine 0 ou la semaine 1 ?
Prenons l’exemple de la première semaine de janvier 2015.
Le premier jour de la semaine est un dimanche avec la lettre U. Le 1er janvier sera en semaine zéro.
Tandis que les options V et W considèrent le lundi comme le premier jour de la semaine.
data one; today='01JAN2015'd; output; today='02JAN2015'd; output; today='02JAN2015'd; output; today='02JAN2015'd; output; today='02JAN2015'd; output; today='02JAN2015'd; output; today='02JAN2015'd; output; run; data one; set one; week=week(today); weeku=week(today,'U'); weekv=week(today,'V'); weekw=week(today,'W'); run; proc print data=one; format today date9.; run;
Avec les fonctions SAS, il est important de garder en mémoire que le premier jour de la semaine par défaut est le dimanche et non le lundi. Ainsi la fonction WEEKDAY est également touchée par cette règle. Elle donnera un 1 pour le dimanche et un 2 pour le lundi.
Pour ces vacances d’été, je vous propose de regarder une vidéo de l’émission américaine TED où Terry Moore nous explique pourquoi nous utilisons la lettre X pour représenter l’inconnue en algèbre.
N’hésitez pas à changer le s’éteint pour avoir le sous-titre en Français.
La fonction call system permet dans le cas présent de stocker du code Unix pour rechercher des fichiers dans des répertoires données. Le résultat de la recherche est stocké dans un fichier .txt qui est lu dans une étape data.
1. Créer une macro variable pour stocker le chemin d’accès de la bibliothèque WORK
Le chemin d’accès à la bibliothèque WORK est extrait avec la fonction système PATHNA?E et est stocké dans la macro variable WORKDIR. Ce chemin d’accès sera celui où sera sauvegardé le fichier .txt de la recherche.
%let workdir=%sysfunc(pathname(work));
2. Utiliser call symput pour appeler la commande find d’UNIX
La commande find est suivie de trois composants :
La page anglaise de Wikipedia http://en.wikipedia.org/wiki/Find explique que le code 2>/dev/null supprime des messages d'erreurs liés à des droits d'accès.
« If you’re doing this as a user other than root, you might want to ignore permission denied (and any other) errors. Since errors are printed to stderr, they can be suppressed by redirecting the output to /dev/null. »
Dans le second appel le double >> permet d’ajouter au fichier existant le résultat de la recherche au lieu de remplacer l’ancien.
data _null_;
call system ("find c:/projet/*/demographie.sas7bdat > &workdir./resultat.txt 2>/dev/null
c:/project/*/laboratoire.sas7bdat >> &workdir./resultat.txt 2>/dev/null");
run;
L’étape data sert à lire le fichier .txt et de la trocker dans un dataset (ici REF) via infile/input. Des options à l’instruction infile peuvent être ajoutées pour lire le fichier correctement.
data ref (keep=); infile "&workdir./resultat.txt" ;*lrecl=2000 truncover firstobs=1; input pathdsn $1-100; run;
Mettre toutes les mots contenus dans une macro variable entre guillemets (quote en anglais) est un tâche plus fréquente qu’elle n’y paraît.
Une vois le code écrit, il est souvent plus rapide de faire du copier/coller et ensuite de modifier. Voici un exemple où DSN=CLASS CLAS sert à créer DSN_QUOTE= »CLASS » « CLAS ».
1. Exemple dans une macro
Dans l’exemple, la macro est PRINTDSN. Elle a pour tâche d’imprimer dans la log tous les datasets présents dans la bibliothèque SASHELP qui sont cités dans le paramètre de macro DSN, s’ils existent.
%macro printdsn (dsn=); %let dsn =%upcase(&dsn.); %let dsn_quote=%sysfunc(tranwrd(%nrstr(%")&dsn.%nrstr(%"),%str( ),%str(" "))); proc sql; create table ref as select memname from dictionary.tables where upcase(libname)='SASHELP' and upcase(memname) in (&dsn_quote.); quit; data _null_; set ref; call execute ('proc print data=sashelp.' || memname || ';'); call execute ('run;'); run; %mend printdsn; %printdsn(dsn=class clas);
Pour ma part j’ai pris l’habitude de mettre le contenu des macros paramètres en majuscule, et ce dès le début du programme, sauf besoin spécifique contraire. Ceci explique la ligne %let dsn=upcase(&dsn.);
De plus j’ai pris l’habitude de rajouter le suffixe _quote au nom de la macro variable. Dans notre exemple il y a la macro variable DSN mise en majuscule. Cette variable est ensuite mise entre guillemets.
La macro fonction %sysfunc() permet d’utiliser la fonction tranwrd dans une expression macro. La fonction tranwrd est composée de trois paramètres :
2. Le même exemple sans macro
L’exemple est présenté dans une macro. Pour tester le code, un simple %let et %put feront l’affaire. Le résultat s’affiche alors dans la log.
%let dsn=CLASS CLAS; %let dsn_quote=%sysfunc(tranwrd(%nrstr(%")&dsn.%nrstr(%"),%str( ),%str(" "); %put &dsn_quote.;
Depuis SAS 9.2, un nouveau WARNING apparaît dans la log quand le nom de la table SAS d’entrée est le même que le nom de la table SAS de sortie. Pour éviter ce message, l’option undo_policy=none est à ajouter dans l’instruction proc sql;. SAS support prévient néanmoins que l’usage du même nom en entrée et en sortie présente un risque et que l’option enlève l’avertissement mais pas le risque.
1. Le message dans la log
WARNING: CREATE TABLE statement recursively references the target table
2. Exemple
Ce code générerait le warning avec SAS 9.2 si l’option undo_policy=none n’était pas utilisée.
proc copy in=sashelp out=work; select class; run; proc sql undo_policy=none; create table class as select name, age from class; quit;
En savoir plus
Dans un précédent article, je parlais des deux méthodes pour créer des formats avec une procédure proc format, la première étant de taper toutes les values dans une instruction value, la seconde étant de stocker ces valeurs dans un data set et de les convertir en format avec l’option cntlin. Aujourd’hui, je souhaite revenir sur l’option CNTLIN et son pendant CNTLOUT pour passer d’un dataset à un format et pour passer d’un format à un dataset.
1. Créer une table SAS (dataset) type
Pour débuter créons un data set (table SAS) appelée POP avec 4 colonnes START, LABEL, TYPE et FMTNAME. Cette table contient les données pour deux formats : un format numérique et un format alphanumérique. Ces deux formats sont appelés GRP.
data pop; length start $40 label $200 type $1 fmtname $32; retain fmtane 'GRP' type 'N'; start='10'; label='Per Protocol'; output; start='11'; label='Modified Per Protocol'; output; start='20'; label='Intent-to-Treat'; output; start='21'; label='Modified Intent-to-Treat'; output; type='C'; start='PP'; label='Per Protocol'; output; start='mPP'; label='Modified Per Protocol'; output; start='ITT'; label='Intent-to-Treat'; output; start='mITT'; label='Modified Intent-to-Treat'; output; run;
S’il est possible de convertir de convertir le nombre 100 stocker dans une variable alphanumérique en numérique, il est impossible de convertir le mot ABC en numérique. Dans cet exemple on comprend mieux pour quoi START est toujours alphanumérique qu’il s’agisse dun format numérique ou alphanumérique.
2. Passer d’un dataset à un format catalog
A présent la procédure proc format convertit le data set en format catalogue. Le data set est situé dans la bibliothèque (library) WORK. Il n’y a pas besoin de préciser la bibliothèque de la table POP. Par défaut le format catalog s’appellera FORMATS et sera stocké dans la bibliothèque WORK. L’option LIB n’est pas utilisé.
proc format cntlin=pop; run;
Ainsi le code au dessus est équivalent à :
proc format cntlin=work.pop lib=work.formats; run;
Le code proposé ci-dessus est uniquement là pour faciliter la compréhension. Sauf besoin particulier, la version simplifiée doit suffire.
3. Passer d’un format catalog à un dataset
Dans un second temps, je vous propose de convertir ce format dans un autre dataset.
proc format cntlout=pop2; run;
Ainsi le code au dessus est équivalent à :
proc format cntout=work.pop2 lib=work.formats; run;
A vous de jouez avec les proc print et librairies pour voir la résultat.
4. Rappel sur le nom du format
Notez ici que le nom du format est au maximum long de 32 caractères en SAS 9.1.3 / SAS 9.2 et limité à 8 caractères pour la version SAS 8.2. Pour être plus précis, on a 32 caractères pour un format numérique et 31 caractères pour un format alphanumérique en SAS 9.1.3 et SAS 9.2, SAS gardant un caractère pour le symbole dollar $. SAS 8.2 fonctionnait sur le même principe : 8 caractères pour un format numérique et 7 caractères pour un format alphanumérique. Si le nom du format était trop long en SAS 8.2, SAS le coupe à la longueur maximum. Ainsi les nom ALPHABETA et ALPHABETI sont interprétés pas SAS 8.2 en FMTNAME=ALPHABET pour un format numérique.
Aller plus loin
La maintenance des programmes est toujours mieux acceptée si les utilisateurs sont informés au préalable et si la durée de l’intervention est limitée dans le temps. Voici cinq points qui rendront l’intervention plus douce.
Avec SAS 9.2 il est maintenant possible de souligner/barrer des valeurs d’une table dans une sortie ODS et plus seulement dans le titre.
L’exemple est basé sur une sortie .pdf. TEXTDECORATION=UNDERLINE souligne les valeurs. TEXTDECORATION=LINE-THROUGH barre les valeurs et TEXTDECORATION=OVERLINE (usage très rare a priori) ajoute une ligne au dessus du texte.
ods listing close;
ods pdf file=‘c:/sasref’;
proc print data=sashelp.class;
var name / display style(column)=[textdecoration=underline];
var sex / display style(column)=[textdecoration=line-through];
var age / display style(column)=[textdecoration=overline];
run;
ods pdf close;
ods listing;
Lecture complémentaire
SUGI, pour visualiser le résultat : http://www2.sas.com/proceedings/sugi31/227-31.pdf
Jusqu’à présent, j’ai présenté la syntaxe de l’ODS (Output Delivery System) de SAS avec la procédure PROC REPORT pour générer vos tableaux dans des fichiers .rtf (ODS RTF), .pdf (ODS PDF) ou en XML avec extension .xls (ODS TAGSETS.EXCELXP).
PROC PRINT se révèle dans les cas les plus simples aussi avantageux. Voici deux fichiers .pdf contenant la même table, une fois générée avec PROC REPORT et une fois avec PROC PRINT.
ods listing close;
*1. Exemple de l’ODS avec PROC REPORT;
ods pdf file=‘O:/sasref/exemple_report.pdf’;
proc report data=sashelp.class nowd;
columns sex age;
define sex / display style(column)=[cellwidth=2cm];
define age / display style(column)=[cellwidth=3cm];
run;
ods pdf close;
*2. Exemple de l’ODS avec PROC PRINT;
ods pdf file=‘O:/sasref/exemple_print.pdf’;
proc print data=sashelp.class nobs;
var sex / style(column)=[cellwidth=2cm];
var age / style(column)=[cellwidth=3cm];
run;
ods pdf close;
ods listing;
Recherchez l’effet de l’option SAS 9.2 de la procédure PROC SORT : sortseq=ascii (numeric_collation=on), une option qui manquait vraiment pour le tri de variables alphanumérique.
Pour cela, il vous suffit d’exécuter l’exemple suivant.
data one;
length x $10;
input x $;
datalines;
1
10
A
a
b
B
20
2
;
run;
proc sort data=one
out=nooption;
by x;
run;
proc sort data=one
out=withoption
sortseq=ascii (numeric_collation=on);
by x;
run;
title ‘No option’;
proc print data=nooption;
run;
title ‘With option’;
proc print data=withoption;
run;
Lecture Complémentaire
Découvrez le cours de novembre 2022 : Les fonctions put et input – un sujet épineux
Dans cet article que vous propose une illustration de la fonction PUTN. En effet une variable numérique peut contenir des groupes de valeurs. Chaque groupe de valeurs se réfère à un format donnée. Le nom de ces formats est disponible dans une autre variable. La question est alors comment puis-je créer une variable caractère équivalent simplement, sans boucle, sans if-then, etc. La solution : la fonction PUTN. Voici un exemple pour illustrer le propos.
1. Le problème en exemple
Dans cet exemple, deux formats numériques AGE et SEX exitent.
proc format;
value age 11-13=’11-13′
14-16=’14-16′;
value sex 1=‘Male’
2=‘Female’;
run;
Dans un data set, ONE, trois variables existent :
data one;
length criteria $8 codlst $8;
input criteria $ codlst $ valn;
age age 12
sex sex 1
;
run;
L’objectif est de créer une variable VALC qui contienne l’équivalent alphanumérique de VALN (la valeur donnée dans le label du format).
2. La solution proposée : PUTN
data two;
set one;
length valc $20;
VALC=putn(valn,codlst);
run;
3. Le résultat attendu
criteria codlst valn valc
age age 12 11-13
sex sex 1 Male
Ici les formats sont tous numériques. La fonction PUTN est utilisée.
Pour des formats alphanumériques, il faudra se servir de la fonction PUTC.
Découvrez le cours de novembre 2022 : Les fonctions put et input – un sujet épineux
La référence SAS 