Créer une librairie à partir d'une autre [Résolu]

[ash_rmy]

bonjour tout le monde,

Comme je travaille avec des librairies qui contiennent de grosses bases SAS (des milliers) et comme je dois optimiser un programme, j'aimerais savoir si on peut créer une librairie bis qui contiendrait seulement les 20 premières observations de chacune de mes tables de la librairie.

En effet, impossible de mettre les tables dans ma clé USB de 1 GO.

merci de votre aide.

ash_rmy.

[bab22]

Bonjour,

Soit lib1 la librairie de départ et lib1bis celle dans laquelle on mettra les echantillons des bases.

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
 
* permet d'obtenir la liste de toutes les variables de toutes les tables contenues dans lib1;
proc contents data =  lib1._all_ out=nomstable noprint;
quit ;
 
* on ne conserve que les noms des tables;
proc sort data = nomstable (keep=MEMNAME) nodupkey ;
  by memname ;
run;
 
* on crée des macros variables contenant le nombre total de tables (nbt) 
  et on attribue à nomt&i le nom de la table &i;
data nomstable;
  set nomstable  ;	
  retain nbrt 0; 
  length nmv $ 40;
  nbrt+1;
  nmv=compress('nomt' !! put (nbrt,2.));
  CALL symput(nmv,memname)     ;
  call symput('nbt',put(nbrt,2.));
run;
 
* on copie chaque table de lib1 dans lib1bis en ne conservant que les 20 premieres observations;
%macro copier;
%do i = 1 %to &nbt;
data lib1bis. &&nomt&i;
  set lib1.  &&nomt&i (obs=20); 
run;
%end;
%mend;
%copier;

Il y a peut être plus simple mais ca fonctionne.

[fafabzh6]

C clair que tu peux difficillement faire plus simple sur Sas.

[ash_rmy]

Merci pour l'aide :

J'ai trouver un programme un peu plus simple :

Code :

1
2
3
4
5
6
proc datasets library=BIG nolist; 
   libname LITTLE 'H:\DPEI-FINANCES-REPORTING\Infocentre\Ashley Rmy\SAS'; 
   options obs=20; 
   copy out=little memtype=DATA; run; 
   options obs=max; 
   quit;

ash_rmy.