Tester l'existence d'un fichier et ensuite lire un fichier sas [Résolu]

[Clifabs]

Bonjour,

Je suis nouveau sur ce forum et j'aimerais avoir de l'aide pour vérifier l'exitence d'un fichier puis de le lire dans une étape DATA si il existe. Sinon de lire un autre fichier. J'ai écrit cette macro, mais elle ne semble pas marcher. POURQUOI.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 %let year = 10; 
 
%macro month(month=); 
 
DATA _NULL_;
     SET sashelp.vmember;
	IF libname="rms" AND memname="rmss0410" then do;
		call symputx("fname",rmss0410);
						end;
	else do;
		call symputx("fname",rmssADHC);
  	     end;
run;
 
DATA month_&month;
       SET rms.&fname;
	IF sampcode eq 1 then samp=totutct; else samp=0;
   	IF sampcode IN (1,2) then univ=totutct; else univ=0;
   	IF sampcode eq 1 then sampstr=1; else sampstr=0;
   	IF sampcode IN (1,2) then univstr=1; else univstr=0;
 
	   		month=&month;
			year=%eval(2000+&year);
 
keep month year samp sampstr metcode univ univstr dweltype inittycd totutct sampcode 	 provincd unitwt vunitto totutct recordid ;
 
run;
 
%mend month;
 
%month(month=10);

[RemiBousquet]

Premier élément de réponse :

quand tu fais

Code :

call symputx("fname",rmss0410);

Alors SAS recherche la variable rmss0410, qui n'existe pas dans la table sashelp.vmember. C'est pourquoi tu as la valeur . pour ta macro variable fname.
Il faudrait donc que tu fasses plutôt :

Code :

call symputx("fname","rmss0410");

Mais je pense que la macro ne fera toujours pas ce que tu attends d'elle, je reviens plus tard avec une proposition

[RemiBousquet]

Voilà, j'ai retrouvé :
il y a la fonction exist : Verifies the existence of a SAS data library member

Pour l'intégrer dans ton code, tu peux procéder je pense comme suit :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
%let year = 10; 

%macro month(month=); 

%if %sysfunc(exist(rms.rmss0410))
    %then %do ; %let fname = rmss0410 ; %end ; 
    %else %do ; %let fname = rmssADHC ; %end ;

data month_&month;
    set rms.&fname;
    if sampcode eq 1 then samp=totutct; else samp=0;
    if sampcode in (1,2) then univ=totutct; else univ=0;
    if sampcode eq 1 then sampstr=1; else sampstr=0;
    if sampcode in (1,2) then univstr=1; else univstr=0;

    month=&month;
    year=%eval(2000+&year);

    keep month year samp sampstr metcode univ univstr dweltype inittycd totutct sampcode provincd unitwt vunitto totutct recordid ;

run;

%mend month;

%month(month=10);

[Clifabs]

Salut Rémi,

Merci pour ton aide. À part, ta première remarque concernant les guillemets (""), j'avais trouvé entre-temps ce qui ne marchait pas dans ma macro. Voici mes nouveaux codes qui fonctionnent.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
%macro month(month=); 
 
DATA _NULL_;
       SET sashelp.vmember(WHERE=(libname="RMS")) end=end1;
	 length mem $8 lib $3;
	          mem=substr(memname,1,8);
 	          lib=substr(libname,1,3);
	output;
	retain flag 0;
	       IF lib="RMS" AND mem="RMSS&month&year" then do;
		flag=1;
	        call symput("fname","RMSS&month&year");
	 output;
						      end;	
	IF end1 then do;
	     IF flag=0 then do;
		call symput("fname","rmssADHC");
		end; end; 
	run;
 
DATA month_&month;
      SET rms.&fname;
run;
 
%mend month;
%month(month=04);