Discussion :

[RapH0304]

Re-Bonjour,

je cherche à créér à partir d'une table de nombreuses autres tables dans une boucle.
Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Data a;
 do i=1 to 100;
if x(i)>y(i) then output Rea x(i); /* En gros ce que je veux faire c'est que si la condition est vérifiée je crée une table qui s'apelle Rea1980 si x(i)=1980*/

Je n'ai aucune idée de comment faire une telle chose , pourriez vous m'aider s'il vous plait?
Merci d'avance.
Bonne journée.

[xav2229]

Tu dois connaitre à l'avance toutes les tables que tu vas créer pour les mettre dans "DATA"

X

[RapH0304]

Ok, merci pour votre réponse mais y a t 'il une solution alors pour créer plusieurs tables dans une boucle à partir d'une table d'origine?
Merci d'avance

[edward carnby]

Bonsoir,

-> Rechercher toutes les valeurs possibles et créer une variable (proc sql select distinct mavariable into :listevar separated by " ").

-> data &listevar;

[JeromeMATHIAS]

Bonsoir

Tu dois connaitre à l'avance toutes les tables que tu vas créer pour les mettre dans "DATA"
X

On peut contourner le problème de la déclaration à priori des tables via une table de hashage (cf le dernier paragraphe du papier "Le hash expliqué à ma fille" d'O Decourt http://www.od-datamining.com/index.htm).

[xav2229]

ha oui bonne idée!

[s_a_m]

Hello;
difficile de donner un exemple sur mesure vu le peu d'éliment que tu nous a fourni, donc je te propose un lien et un petit programme macro.

http://www.sascommunity.org/wiki/Spl...a_into_Subsets
le lien ci-dessus contient plusieurs méthodes qui semblent traiter ta problématique, on y trouve aussi la méthode Hachage "reprit" par Olivier dans son Exemple.

Programme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
data exemple;
  do i=1 to 20000;
    x=rannor(1);
      output;
  end;
run;
 
 
%let max=5000;
 
 
proc sql noprint;
  select count(1) into :nb_lignes from exemple;
quit; 
 
 
%macro split_data;
    %let tab=%sysfunc(ceil((&nb_lignes/&max)));
      %do i=1 %to &tab;
        data table_&i;
          set exemple;
        if (&i-1)*&max+1<=_n_<=&i*&max;
        run;
      %end;
%mend ;
 
 
%split_data;