Administration SAS : Comment lister et décoder tous les chemins de l'option SASAUTOS

Niveau de difficulté

Confirmé

Publié le : 06/10/2023

Le Conseil de l'Expert

Simon
Expert SAS et fondateur.

Pourquoi ce script est-il indispensable pour votre administration ?

Résolution des variables système : L'intelligence de cette macro réside dans l'utilisation de sysget() pour traduire les préfixes comme !SASROOT en chemins réels. Sans cette étape, votre audit de configuration resterait "virtuel" et incomplet.

Gestion multiplateforme : Le traitement spécifique de l'expansion du tilde (~) démontre une haute technicité. En vérifiant que le système n'est pas Windows (sysscp ^= 'WIN'), le code s'assure d'une interprétation correcte des répertoires personnels sous Unix/Linux, évitant ainsi les erreurs de résolution de chemins.

Audit de filerefs : En utilisant la fonction pathname(), le script est capable de déterminer si un élément de la liste est un chemin direct ou un alias (fileref), offrant ainsi une cartographie exhaustive de vos sources de macros.

Ce script définit et exécute une macro nommée `%getautos`. Cette macro lit la valeur de l'option système `SASAUTOS`, qui contient une liste de chemins où SAS^© recherche les macros. Le code analyse cette chaîne de caractères pour en extraire chaque chemin individuel. Il gère divers cas de figure, comme les chemins entre guillemets, la substitution de variables d'environnement (préfixées par `!`) et l'expansion du tilde (`~`) pour les répertoires personnels sous Unix/Linux. La macro génère une table de sortie (`work.paths` par défaut) contenant la liste des chemins extraits. Le script se termine en exécutant la macro et en affichant le résultat, ainsi qu'en imprimant la valeur brute de `SASAUTOS` et `SASROOT`.

Analyse des données

Type : CREATION_INTERNE

Le script ne lit pas de données externes. Il génère une table de données nommée 'paths' dans la librairie WORK. Le contenu de cette table est dérivé de la valeur de l'option système SAS 'SASAUTOS'.

1 Bloc de code

DATA STEP Data

Explication :
Ce bloc définit la macro `%getautos`. Elle utilise une étape DATA pour traiter la chaîne de caractères obtenue via `GETOPTION('sasautos')`. La logique parcourt la chaîne, extrait chaque chemin en utilisant la fonction `SCAN`, gère les guillemets, et effectue des substitutions pour les variables d'environnement (via `SYSGET`) et le tilde (`~`). La fonction `PATHNAME` est utilisée pour résoudre les filerefs. Chaque chemin valide est ajouté à la table de sortie spécifiée par le paramètre `out`.

Copié !

1	%macro getautos(out=paths);
2	DATA &out ( keep = path ) ;
3	LENGTH q $ 32000 temp $ 300 var path $ 255 ;
4	q = getoption ( "sasautos" ) ;
5
6	*-- remove surrounding (), and internal quotes;
7	IF index ( q , "(" ) THEN
8	q = left(translate ( q , " " , "()'\"" )) ;
9
10	DO while ( 1 ) ;
11
12	temp = scan ( q \|\| "***" , 1 , "() " ) ;
13
14	IF temp = "***" THEN leave ;
15
16	q = left(substr ( q , LENGTH ( temp ) + 1)) ;
17
18	IF temp =: "!" THEN
19	DO ;
20	var = scan ( temp , 1 , "!/\ " ) ;
21	temp = tranwrd ( temp , '!' \|\| trim(var)
22	, sysget(trim(var)) ) ;
23	END ;
24
25	*-- do tilda expansion. Works for ~/ and ~user/ where user is
26	the current user;
27	IF temp =: "~" & symget('sysscp') ^= 'WIN' THEN
28	DO ;
29	var = scan ( temp , 1 , "~/\" ) ; put var=;
30	home = sysget('HOME'); put home=;
31	if var = ' '
32	then temp = tranwrd( temp, '~', sysget('HOME'));
33	else do;
34	userid = sysget('USER'); put userid=;
35	temp = tranwrd( temp, '~' \|\| trim(userid), sysget('HOME'));
36	put temp=;
37	end;
38	end ;
39
40	*-- Check for a fileref;
41	path = pathname ( temp ) ;
42	if path = " " then path = temp ;
43
44	if index ( path , "(" ) then
45	do ;
46	q = trim(left(translate(path, " ", "()'\"""))) \|\| " " \|\| trim ( q ) ;
47	end ;
48	else
49	if path ^= "***" THEN
50	OUTPUT ;
51	END ;
52	RUN ;
53	%mend;

2 Bloc de code

PROC PRINT

Explication :
Ce bloc exécute la macro `%getautos` avec ses paramètres par défaut, ce qui crée la table `work.paths`. Ensuite, `PROC PRINT` est utilisée pour afficher le contenu de cette table résultante dans la fenêtre de sortie.

Copié !

1	%getautos();
2	PROC PRINT DATA = paths ; RUN ;

3 Bloc de code

DATA STEP

Explication :
Cette étape `_NULL_` n'a pas pour but de créer une table SAS. Elle utilise une instruction `FILE PRINT` pour écrire des informations dans la sortie standard (ou le log). Elle récupère et affiche la valeur de la variable d'environnement `SASROOT` via `SYSGET`, puis la valeur brute de l'option `SASAUTOS`. Elle effectue ensuite quelques manipulations de chaînes (`COMPBL`, `COMPRESS`) sur la valeur de `SASAUTOS` et affiche les résultats.

Copié !

1	DATA _null_;
2	file PRINT;
3	LENGTH sasautos $32000 sasroot $200;
4	sasroot = sysget('SASROOT');
5	put 'SASROOT:' sasroot=;
6	sasautos = getoption('sasautos');
7	put sasautos=;
8	sasautos = compbl(sasautos);
9	put sasautos=;
10	sasautos = compress(sasautos, '("'')');
11	put 'SASAUTOS:' sasautos=;
12	RUN;

L'Astuce Pro

Utilisez ce script lors de vos phases de débogage pour identifier les conflits de noms de macros. Si deux dossiers contiennent une macro identique, SAS exécutera celle située dans le premier chemin listé par SASAUTOS. Ce programme vous permet de valider cet ordre de priorité en un clin d'œil.

Ce matériel est fourni "tel quel" par We Are Cas. Il n'y a aucune garantie, expresse ou implicite, quant à la qualité marchande ou à l'adéquation à un usage particulier concernant le matériel ou le code contenu dans les présentes. We Are Cas n'est pas responsable des erreurs dans ce matériel tel qu'il existe maintenant ou existera, et We Are Cas ne fournit pas de support technique pour celui-ci.

Documentation liée

Pipelines de Données : Comment industrialiser la récupération de vos datasets CAS sans écrire 50 scripts

Cet article explique comment utiliser la facilité macro SAS pour générer dynamiquement du code SA...