FAQ SASConsultez toutes les FAQ

1
2
3
PROC SQL; 
SELECT * FROM base; 
QUIT;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
DATA CHECK; 
length Autorise $10 MaChaine $50; 
Autorise='abcdf';/* ce sont les caractères autorisés */ 
Machaine='abcbcdfaaqabddb'; 
x = verify(Machaine, autorise); 
run; 
  
Ici X=10. verify ne retourne la position que du 1er caractère interdit. 
  
DATA _null_; 
SET CHECK; 
lettre = substr(Machaine, x, 1); 
Put 'La lettre ' lettre ' est incorrecte'; 
run;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
libname MYLIB "C:\SASWorkspace\test"; 
  
%macro  repair ; 
  %do i=1%to &dscount; 
        repair &&ds&i; 
  %end; 
%mend; 
  
proc sql; 
  create table work.listing as 
  select memname 
    from sashelp.vtable 
      where trim(upcase(libname)) = "MYLIB"; 
quit; 
  
data _null_; 
  set work.listing; 
  call symput("ds"||trim(left(_N_)), memname); 
  call symput("dscount", _N_); 
run; 
  
proc datasets lib= MYLIB nolist; 
  % repair ; 
run;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
PROC REGISTRY RUTHERE; 
RUN; 
  
La log SAS doit retourner le message suivant : 
  
****** Validating the SASHELP Registry *********************** 
The SASHELP Registry is set to read only access. 
The SASHELP Registry has data and looks OK. 
****** Validating the SASUSER Registry *********************** 
The SASUSER Registry is set to read/write access. 
The SASUSER Registry has data and looks OK. 
NOTE: PROCEDURE REGISTRY used: 
real time 0.03 seconds 
cpu time 0.00 seconds

1
2
3
4
5
6
7
8
9
10
11
12
13
options noxwait xsync;  
/* noxwait : masque l'invite de commande 
  xsync : attend l'exécution de la commande  
 avant de poursuivre le traitement  
*/ 
  
filename cmd pipe "Dir /B C:\"; /* Commande DOS pour lister C:\ */ 
  
data contenu_disque_c; 
format var $500.; 
infile cmd DSD MISSOVER; /* lecture du filename */ 
input var $; 
run;

1
2
3
4
5
6
LIBNAME repdata 'c:\Documents and Settings\';  
DATA monfichier; 
SET repdata.tab; 
RUN; 
PROC PRINT data=monfichier; 
RUN;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
/***************************************/ 
/* Code SAS pour lire le contenu d'un fichier et l'insérer à la fin d'un autre fichier txt*/ 
/***************************************/ 
  
Filename FilInput "G:\fichierlecture.txt"; 
Filename FilOut "G:\FichierSortie.txt"; 
  
DATA _null_; 
/* lecture du fichier externe */ 
length enregis $200; 
INFILE FilInput dlm='£'; /* afin de lire la totalité de l'enregistrement, la probabilité de trouver ce caractère étant limitée */ 
input enregis; 
/* écriture dans le fichier de sortie (comme le mode append) */ 
file FilOut mod; 
put enregis; 
run;

1
2
3
4
5
6
7
8
9
10
11
12
// Déclaration d'un FILENAME de lecture avec le lien vers la page à lire. 
filename web url 'http://www.addresse/vers/ma/page.html' ; 
  
// Déclaration d'un FILENAME d'écriture. 
filename test 'c:\temp\test.html'; 
  
data _null_; 
n=-1; 
infile web recfm=s nbyte=n length=len _infile_=tmp; 
input; 
file test recfm=n; put tmp $varying32767. len; 
run;

1
2
filename web url 'http://www.addresse/vers/ma/page.html' 
proxy='http://proxy2.eur.sas.com.:3128/' debug ;

libname mylib 'c:\mysasdata' shortfileext;

1
2
3
4
5
libname mylib 'c:\mysasdata' shortfileext; 
libname mylibfinal 'c:\newdata'; 
  
proc copy in=mylib out=mylibfinal; 
run;

1
2
3
4
5
6
7
8
9
10
11
12
%let dir=%bquote(")C:\temp\text files%bquote("); 
filename test pipe "dir &dir /b /s"; 
  
data f2r; 
infile test truncover; 
input ftr $200.; 
infile test filevar=ftr truncover end=done firstobs=2; 
  do while(not done); 
    input var1 var2 var3 ; 
    output; 
  end; 
run;

1
2
3
4
5
6
7
Filename port commport 'lpt1:'; /* OU Filename port commport 'com1:';*/ 
  
DATA acquisition; 
INFILE port lrecl=1 recfm=f unbuffered; 
input i s; 
IF i = '1a'x then stop; 
run;

1
2
PROC PWENCODE in="your-pw"; 
RUN;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
DATA base1; 
INPUT X Y; 
CARDS; 
1 2  
3 4 
5 6 
; 
RUN; 
DATA base2; 
INPUT X Z; 
CARDS; 
1 10 
5 7 
8 12 
; 
RUN; 
DATA base; 
   SET base1 base2 INDSNAME =exec; 
   BY X; 
   table=exec; 
RUN; 
PROC PRINT DATA=base; 
RUN;