macro dans macro

jobhocus · 06/09/2011, 16h18

Bonjour,

cette macro fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
DATA essai; 
SET mylib.maxaut3;
 
%macro calcule(col1,col2);
IF &col1.=&col2. then prim&col2.=(prim_ttc/12);
     %mend; 
 
   %calcule(x1,bord012010);
 
 
     run;

si j'essaie maintenant d'automatiser un peu rien ne vas plus quelqu'un peut il me dire ce que j'oublie ou ce que je peux faire à la place :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
DATA essai2; SET essai;
%let b=bord012010 ; 
 
%macro lance_calcule*;
%do a=1 %TO 5*;
%let b=bord012010 ; 
        %Calcule(x&a.,&b.)*;
    %end*;
%mend*;
%lance_calcule*;
run;

Merci,

MEGAMIND2 · 06/09/2011, 17h01

Bonjour,
Essai ça

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
DATA toto;
input x y prim_ttc;
cards;
12 12 100
15 12 12
;
run;
 
proc sql;
SELECT x INTO:x separated BY ' ' FROM toto;
SELECT count(*) INTO: nb FROM toto;
quit;
 
%macro calcule(col2);
%do i=1 %TO &nb.;
%let x&i=%scan(&x,&i,' ');
IF &&x&i=&col2. then prim&col2.=prim_ttc/12;
%end;
%mend;
 
 
DATA essai;
SET toto;
%calcule(12);
run;

jobhocus · 06/09/2011, 17h51

j'ai fait tourner le pgm :

Code :

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

1
2
3
18         DATA toto;
19         input x y prim_ttc;
20         cards;

Citation:

NOTE: Compression was disabled for data set WORK.TOTO because compression overhead would increase the size of the data set.
NOTE: The data set WORK.TOTO has 2 observations and 3 variables.
NOTE: DATA statement used (Total process time):
real time 0.00 seconds
cpu time 0.00 seconds

Code :

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

1
2
3
4
5
6
7
8
9
23         ;
24         run;
25         
26         
27         
28         proc sql;
29         SELECT x INTO:x separated BY ' ' FROM toto;
30         SELECT count(*) INTO: nb FROM toto;
31         quit;

Citation:

NOTE: PROCEDURE SQL used (Total process time):
real time 0.00 seconds
cpu time 0.00 seconds

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
32         
33         %macro calcule(col2);
34         %do i=1 %TO &nb.;
35         %let x&i=%scan(&x,&i,' ');
36         IF &&x&i=&col2. then prim&col2.=prim_ttc/12;
37         %end;
38         %mend;
39         
40         
41         DATA essai;
2                                                          The SAS System                           17:47 Tuesday, September 6, 2011
 
42         SET toto;
43         %calcule(12);
44         run;

Citation:

NOTE: There were 2 observations read from the data set WORK.TOTO.
NOTE: The data set WORK.ESSAI has 2 observations and 4 variables.
NOTE: Compressing data set WORK.ESSAI increased size by 100.00 percent.

l

MEGAMIND2 · 06/09/2011, 20h06

Il n'y a pas d'erreur mais si tu ne comprends pas, je peux commenter le code.

jobhocus · 08/09/2011, 09h50

bonjour,
merci ,
désolé pour le mail précedent je ne voulais pas l'envoyer.
je fais du sas tres mal, j'ai presque compris. (je consacre 15% de mon temps a sas)

voila ci dessous un extrait de mon programme (il fonctionne parfaitement et fait ce que je veux mais il manque clairement d'une bonne macro)

je voudrais bien faire un petit exemple comme celui envoyé megamind2 mais je ne sais pas faire ca :

Code :

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

1
2
3
4
5
6
7
8
DATA toto;
input x y prim_ttc;
cards;
01/05/2011 01/05/2011 100
01/05/2011 01/06/2011 12
;
run;
 data maxaut2 ;

un extrait de mon pgm affreux certes mais il fonctionne :
....

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
DATA max2;
        SET max1(keep = contrat compagnie produit marque immat date_effet date_resil lib_avt prim_ttc rannee rmois);
format  x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 ddmmyy10.;
 
       x1=intnx('month',date_effet,0);
    x2=intnx('month',date_effet,1);
    x3=intnx('month',date_effet,2);
    x4=intnx('month',date_effet,3);
    x5=intnx('month',date_effet,4);
    x6=intnx('month',date_effet,5);
    x7=intnx('month',date_effet,6);
    x8=intnx('month',date_effet,7);
    x9=intnx('month',date_effet,8);
    x10=intnx('month',date_effet,9);
    x11=intnx('month',date_effet,10);
    x12=intnx('month',date_effet,11);
 
    run;

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
DATA mylib.max3; SET max2;
format     bord012009 bord022009 bord032009 bord042009 bord052009 bord062009
         bord072009 bord082009 bord092009 bord102009 bord112009 bord122009
         bord012010 bord022010 bord032010 bord042010 bord052010 bord062010
           bord072010 bord082010 bord092010 bord102010 bord112010 bord122010
        bord012011 bord022011 bord032011 bord042011 bord052011 bord062011
         bord072011 bord082011 bord092011 bord102011 bord112011 bord122011 ddmmyy10.;
 
    bord012009=mdy(01,01,2009);
    bord022009=mdy(02,01,2009);
  bord032009=mdy(03,01,2009);
  bord042009=mdy(04,01,2009);
  bord052009=mdy(05,01,2009);
  bord062009=mdy(06,01,2009);
  bord072009=mdy(07,01,2009);
  bord082009=mdy(08,01,2009);
  bord092009=mdy(09,01,2009);
  bord102009=mdy(10,01,2009);
  bord112009=mdy(11,01,2009);
  bord122009=mdy(12,01,2009);
  bord012010=mdy(01,01,2010);
  bord022010=mdy(02,01,2010);
  bord032010=mdy(03,01,2010);
  bord042010=mdy(04,01,2010);
  bord052010=mdy(05,01,2010);
  bord062010=mdy(06,01,2010);
  bord072010=mdy(07,01,2010);
  bord082010=mdy(08,01,2010);
  bord092010=mdy(09,01,2010);
  bord102010=mdy(10,01,2010);
  bord112010=mdy(11,01,2010);
  bord122010=mdy(12,01,2010);
  bord012011=mdy(01,01,2011);
  bord022011=mdy(02,01,2011);
  bord032011=mdy(03,01,2011);
  bord042011=mdy(04,01,2011);
  bord052011=mdy(05,01,2011);
  bord062011=mdy(06,01,2011);
  bord072011=mdy(07,01,2011);
  bord082011=mdy(08,01,2011);
  bord092011=mdy(09,01,2011);
  bord102011=mdy(10,01,2011);
  bord112011=mdy(11,01,2011);
  bord122011=mdy(12,01,2011);
  bord012012=mdy(01,01,2012);
  bord022012=mdy(02,01,2012);
  bord032012=mdy(03,01,2012);
  bord042012=mdy(04,01,2012);
  bord052012=mdy(05,01,2012);
  bord062012=mdy(06,01,2012);
  bord072012=mdy(07,01,2012);
  bord082012=mdy(08,01,2012);
  bord092012=mdy(09,01,2012);
  bord102012=mdy(10,01,2012);
  bord112012=mdy(11,01,2012);
  bord122012=mdy(12,01,2012);
 
run;

jobhocus · 08/09/2011, 09h52

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
DATA max4; 
SET mylib.max3;
 
%macro calcule(col1=,col2=);
IF &col1.=&col2. then prim&col2.=(prim_ttc/12);
     %mend; 
 
 
   %calcule(col1=x1,col2=bord012010);
   %calcule(x1,bord022010);
   %calcule(x1,bord032010);
   %calcule(x1,bord042010);
   %calcule(x1,bord052010);
   %calcule(x1,bord062010);
   %calcule(x1,bord072010);
   %calcule(x1,bord082010);
   %calcule(x1,bord092010);
   %calcule(x1,bord102010);
   %calcule(x1,bord112010);
   %calcule(x1,bord122010);
   %calcule(x1,bord012011);
   %calcule(x1,bord022011);
   %calcule(x1,bord032011);
   %calcule(x1,bord042011);
   %calcule(x1,bord052011);
   %calcule(x1,bord062011);
   %calcule(x1,bord072011);
   %calcule(x1,bord082011);
   %calcule(x1,bord092011);
   %calcule(x1,bord102011);
   %calcule(x1,bord112011);
   %calcule(x1,bord122011);
 
    %calcule(x2,bord012010);
   %calcule(x2,bord022010);
   %calcule(x2,bord032010);
   %calcule(x2,bord042010);
   %calcule(x2,bord052010);
   %calcule(x2,bord062010);
   %calcule(x2,bord072010);
   %calcule(x2,bord082010);
   %calcule(x2,bord092010);
   %calcule(x2,bord102010);
   %calcule(x2,bord112010);
   %calcule(x2,bord122010);
   %calcule(x2,bord012011);
   %calcule(x2,bord022011);
   %calcule(x2,bord032011);
   %calcule(x2,bord042011);
   %calcule(x2,bord052011);
   %calcule(x2,bord062011);
   %calcule(x2,bord072011);
   %calcule(x2,bord082011);
   %calcule(x2,bord092011);
   %calcule(x2,bord102011);
   %calcule(x2,bord112011);
   %calcule(x2,bord122011);
 
    %calcule(x3,bord012010);
   %calcule(x3,bord022010);
   %calcule(x3,bord032010);
   %calcule(x3,bord042010);
   %calcule(x3,bord052010);
   %calcule(x3,bord062010);
   %calcule(x3,bord072010);
   %calcule(x3,bord082010);
   %calcule(x3,bord092010);
   %calcule(x3,bord102010);
   %calcule(x3,bord112010);
   %calcule(x3,bord122010);
   %calcule(x3,bord012011);
   %calcule(x3,bord022011);
   %calcule(x3,bord032011);
   %calcule(x3,bord042011);
   %calcule(x3,bord052011);
   %calcule(x3,bord062011);
   %calcule(x3,bord072011);
   %calcule(x3,bord082011);
   %calcule(x3,bord092011);
   %calcule(x3,bord102011);
   %calcule(x3,bord112011);
   %calcule(x3,bord122011);
 
    %calcule(x4,bord012010);
   %calcule(x4,bord022010);
   %calcule(x4,bord032010);
   %calcule(x4,bord042010);
   %calcule(x4,bord052010);
   %calcule(x4,bord062010);
   %calcule(x4,bord072010);
   %calcule(x4,bord082010);
   %calcule(x4,bord092010);
   %calcule(x4,bord102010);
   %calcule(x4,bord112010);
   %calcule(x4,bord122010);
   %calcule(x4,bord012011);
   %calcule(x4,bord022011);
   %calcule(x4,bord032011);
   %calcule(x4,bord042011);
   %calcule(x4,bord052011);
   %calcule(x4,bord062011);
   %calcule(x4,bord072011);
   %calcule(x4,bord082011);
   %calcule(x4,bord092011);
   %calcule(x4,bord102011);
   %calcule(x4,bord112011);
   %calcule(x4,bord122011);
 
    %calcule(x5,bord012010);
   %calcule(x5,bord022010);
   %calcule(x5,bord032010);
   %calcule(x5,bord042010);
   %calcule(x5,bord052010);
   %calcule(x5,bord062010);
   %calcule(x5,bord072010);
   %calcule(x5,bord082010);
   %calcule(x5,bord092010);
   %calcule(x5,bord102010);
   %calcule(x5,bord112010);
   %calcule(x5,bord122010);
   %calcule(x5,bord012011);
   %calcule(x5,bord022011);
   %calcule(x5,bord032011);
   %calcule(x5,bord042011);
   %calcule(x5,bord052011);
   %calcule(x5,bord062011);
   %calcule(x5,bord072011);
   %calcule(x5,bord082011);
   %calcule(x5,bord092011);
   %calcule(x5,bord102011);
   %calcule(x5,bord112011);
   %calcule(x5,bord122011);
 
    %calcule(x6,bord012010);
   %calcule(x6,bord022010);
   %calcule(x6,bord032010);
   %calcule(x6,bord042010);
   %calcule(x6,bord052010);
   %calcule(x6,bord062010);
   %calcule(x6,bord072010);
   %calcule(x6,bord082010);
   %calcule(x6,bord092010);
   %calcule(x6,bord102010);
   %calcule(x6,bord112010);
   %calcule(x6,bord122010);
   %calcule(x6,bord012011);
   %calcule(x6,bord022011);
   %calcule(x6,bord032011);
   %calcule(x6,bord042011);
   %calcule(x6,bord052011);
   %calcule(x6,bord062011);
   %calcule(x6,bord072011);
   %calcule(x6,bord082011);
   %calcule(x6,bord092011);
   %calcule(x6,bord102011);
   %calcule(x6,bord112011);
   %calcule(x6,bord122011);
 
    %calcule(x7,bord012010);
   %calcule(x7,bord022010);
   %calcule(x7,bord032010);
   %calcule(x7,bord042010);
   %calcule(x7,bord052010);
   %calcule(x7,bord062010);
   %calcule(x7,bord072010);
   %calcule(x7,bord082010);
   %calcule(x7,bord092010);
   %calcule(x7,bord102010);
   %calcule(x7,bord112010);
   %calcule(x7,bord122010);
   %calcule(x7,bord012011);
   %calcule(x7,bord022011);
   %calcule(x7,bord032011);
   %calcule(x7,bord042011);
   %calcule(x7,bord052011);
   %calcule(x7,bord062011);
   %calcule(x7,bord072011);
   %calcule(x7,bord082011);
   %calcule(x7,bord092011);
   %calcule(x7,bord102011);
   %calcule(x7,bord112011);
   %calcule(x7,bord122011);
 
    %calcule(x8,bord012010);
   %calcule(x8,bord022010);
   %calcule(x8,bord032010);
   %calcule(x8,bord042010);
   %calcule(x8,bord052010);
   %calcule(x8,bord062010);
   %calcule(x8,bord072010);
   %calcule(x8,bord082010);
   %calcule(x8,bord092010);
   %calcule(x8,bord102010);
   %calcule(x8,bord112010);
   %calcule(x8,bord122010);
   %calcule(x8,bord012011);
   %calcule(x8,bord022011);
   %calcule(x8,bord032011);
   %calcule(x8,bord042011);
   %calcule(x8,bord052011);
   %calcule(x8,bord062011);
   %calcule(x8,bord072011);
   %calcule(x8,bord082011);
   %calcule(x8,bord092011);
   %calcule(x8,bord102011);
   %calcule(x8,bord112011);
   %calcule(x8,bord122011);
 
    %calcule(x9,bord012010);
   %calcule(x9,bord022010);
   %calcule(x9,bord032010);
   %calcule(x9,bord042010);
   %calcule(x9,bord052010);
   %calcule(x9,bord062010);
   %calcule(x9,bord072010);
   %calcule(x9,bord082010);
   %calcule(x9,bord092010);
   %calcule(x9,bord102010);
   %calcule(x9,bord112010);
   %calcule(x9,bord122010);
   %calcule(x9,bord012011);
   %calcule(x9,bord022011);
   %calcule(x9,bord032011);
   %calcule(x9,bord042011);
   %calcule(x9,bord052011);
   %calcule(x9,bord062011);
   %calcule(x9,bord072011);
   %calcule(x9,bord082011);
   %calcule(x9,bord092011);
   %calcule(x9,bord102011);
   %calcule(x9,bord112011);
   %calcule(x9,bord122011);
 
    %calcule(x10,bord012010);
   %calcule(x10,bord022010);
   %calcule(x10,bord032010);
   %calcule(x10,bord042010);
   %calcule(x10,bord052010);
   %calcule(x10,bord062010);
   %calcule(x10,bord072010);
   %calcule(x10,bord082010);
   %calcule(x10,bord092010);
   %calcule(x10,bord102010);
   %calcule(x10,bord112010);
   %calcule(x10,bord122010);
   %calcule(x10,bord012011);
   %calcule(x10,bord022011);
   %calcule(x10,bord032011);
   %calcule(x10,bord042011);
   %calcule(x10,bord052011);
   %calcule(x10,bord062011);
   %calcule(x10,bord072011);
   %calcule(x10,bord082011);
   %calcule(x10,bord092011);
   %calcule(x10,bord102011);
   %calcule(x10,bord112011);
   %calcule(x10,bord122011);
 
    %calcule(x11,bord012010);
   %calcule(x11,bord022010);
   %calcule(x11,bord032010);
   %calcule(x11,bord042010);
   %calcule(x11,bord052010);
   %calcule(x11,bord062010);
   %calcule(x11,bord072010);
   %calcule(x11,bord082010);
   %calcule(x11,bord092010);
   %calcule(x11,bord102010);
   %calcule(x11,bord112010);
   %calcule(x11,bord122010);
   %calcule(x11,bord012011);
   %calcule(x11,bord022011);
   %calcule(x11,bord032011);
   %calcule(x11,bord042011);
   %calcule(x11,bord052011);
   %calcule(x11,bord062011);
   %calcule(x11,bord072011);
   %calcule(x11,bord082011);
   %calcule(x11,bord092011);
   %calcule(x11,bord102011);
   %calcule(x11,bord112011);
   %calcule(x11,bord122011);
 
    %calcule(x12,bord012010);
   %calcule(x12,bord022010);
   %calcule(x12,bord032010);
   %calcule(x12,bord042010);
   %calcule(x12,bord052010);
   %calcule(x12,bord062010);
   %calcule(x12,bord072010);
   %calcule(x12,bord082010);
   %calcule(x12,bord092010);
   %calcule(x12,bord102010);
   %calcule(x12,bord112010);
   %calcule(x12,bord122010);
   %calcule(x12,bord012011);
   %calcule(x12,bord022011);
   %calcule(x12,bord032011);
   %calcule(x12,bord042011);
   %calcule(x12,bord052011);
   %calcule(x12,bord062011);
   %calcule(x12,bord072011);
   %calcule(x12,bord082011);
   %calcule(x12,bord092011);
   %calcule(x12,bord102011);
   %calcule(x12,bord112011);
   %calcule(x12,bord122011);
 
run;

MEGAMIND2 · 08/09/2011, 12h32

Bonjour,
Voici une autre façon de faire. J'ai fixé la variable prim_ttc à 9487 dans la macro sur toutes les lignes mais je ne crois pas que c'est le cas.

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
DATA max3;
format      bord012009
    bord022009
  bord032009
  bord042009
  bord052009
  bord062009
  bord072009
  bord082009
  bord092009
  bord102009
  bord112009
  bord122009
  bord012010
  bord022010
  bord032010
  bord042010
  bord052010
  bord062010
  bord072010
  bord082010
  bord092010
  bord102010
  bord112010
  bord122010
  bord012011
  bord022011
  bord032011
  bord042011
  bord052011
  bord062011
  bord072011
  bord082011
  bord092011
  bord102011
  bord112011
  bord122011
  bord012012
  bord022012
  bord032012
  bord042012
  bord052012
  bord062012
  bord072012
  bord082012
  bord092012
  bord102012
  bord112012
  bord122012
 
 ddmmyy10.;
 
    bord012009=mdy(01,01,2009);
    bord022009=mdy(02,01,2009);
  bord032009=mdy(03,01,2009);
  bord042009=mdy(04,01,2009);
  bord052009=mdy(05,01,2009);
  bord062009=mdy(06,01,2009);
  bord072009=mdy(07,01,2009);
  bord082009=mdy(08,01,2009);
  bord092009=mdy(09,01,2009);
  bord102009=mdy(10,01,2009);
  bord112009=mdy(11,01,2009);
  bord122009=mdy(12,01,2009);
  bord012010=mdy(01,01,2010);
  bord022010=mdy(02,01,2010);
  bord032010=mdy(03,01,2010);
  bord042010=mdy(04,01,2010);
  bord052010=mdy(05,01,2010);
  bord062010=mdy(06,01,2010);
  bord072010=mdy(07,01,2010);
  bord082010=mdy(08,01,2010);
  bord092010=mdy(09,01,2010);
  bord102010=mdy(10,01,2010);
  bord112010=mdy(11,01,2010);
  bord122010=mdy(12,01,2010);
  bord012011=mdy(01,01,2011);
  bord022011=mdy(02,01,2011);
  bord032011=mdy(03,01,2011);
  bord042011=mdy(04,01,2011);
  bord052011=mdy(05,01,2011);
  bord062011=mdy(06,01,2011);
  bord072011=mdy(07,01,2011);
  bord082011=mdy(08,01,2011);
  bord092011=mdy(09,01,2011);
  bord102011=mdy(10,01,2011);
  bord112011=mdy(11,01,2011);
  bord122011=mdy(12,01,2011);
  bord012012=mdy(01,01,2012);
  bord022012=mdy(02,01,2012);
  bord032012=mdy(03,01,2012);
  bord042012=mdy(04,01,2012);
  bord052012=mdy(05,01,2012);
  bord062012=mdy(06,01,2012);
  bord072012=mdy(07,01,2012);
  bord082012=mdy(08,01,2012);
  bord092012=mdy(09,01,2012);
  bord102012=mdy(10,01,2012);
  bord112012=mdy(11,01,2012);
  bord122012=mdy(12,01,2012);
 
 
run;
 
DATA max2;
retain cle;
format  x1  ddmmyy10.;
 
       x1='01JAN2009'd;
	   cle=1;
	   run;
 
proc transpose DATA=max3 out=out;
run;
 
 
 
 
%MACRO M;
 
proc sql noprint;
SELECT _NAME_ INTO :name separated BY ' ' FROM out;
SELECT count(*) INTO:nb FROM out;
quit;
 
 
%do i=1 %TO &nb.;
%let name&i=%scan(&name,&i,' ');
DATA &&name&i;
SET out;
WHERE _NAME_="&&name&i.";
run;
proc transpose DATA=&&name&i out=&&name&i(DROP=_name_);
run;
 
DATA &&name&i;
retain cle;
SET &&name&i;
cle=1;
RENAME &&name&i=COL2;
prim_ttc=9487;
run;
 
 DATA sortie&i;
merge max2(IN=a) &&name&i(IN=b);
BY cle;
IF b;
IF x1=COL2 then prim=(prim_ttc/12);
run;
 
DATA FINAL; SET %DO i=1 %TO &nb.; sortie&i. %end;; RUN;%end;
%mend;
 
%M;

jobhocus · 08/09/2011, 16h31

Merci Megamind2 mais c'est un peu trop compliqué pour moi :

pour avancer (en pas a pas) je voudrais créer une mini base de la forme ci-dessous mais je n'y arrive pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
DATA toto ; 
   input dat_ref $ dat_bord $  prim_ttc $  ; 
   format dat_ref $12. dat_bord $12.;
    informat dat_ref $12. dat_bord $12.;
 
 
   cards;
 
   01/05/2011 01/05/2011 220 
   01/05/2011 01/06/2011 180
   ; 
run ;

je suis gené par les formats date.
avec cette mini base je pourrais ensuite tester ta macro parceque la je suis dans le noir.

MEGAMIND2 · 08/09/2011, 16h43

Voilà, voilou!!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
DATA toto ; 
input dat_ref $ 1-11 dat_bord $12-22  prim_ttc $  ; 
cards; 
01/05/2011 01/05/2011 220 
01/05/2011 01/06/2011 180
   ; 
run ;
DATA toto;
SET toto;
date_ref2=mdy(input(substr(dat_ref,4,2),best.),input(substr(dat_ref,1,2),best.),input(substr(dat_ref,7,4),best.));
dat_bord2=mdy(input(substr(dat_bord,4,2),best.),input(substr(dat_bord,1,2),best.),input(substr(dat_bord,7,4),best.));
 
format date_ref2 dat_bord2 ddmmyy10.;
run;

jobhocus · 09/09/2011, 11h21

Merci,

Désolé Je n'arrive pas a adapter la macro que tu m'as envoyé megamind2. revoila ce que je voudrais faire avec une table pour tester :

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
 
 
DATA toto ; 
input dat_ref $ 1-11  prim_ttc $  ; 
cards; 
01/01/2010  220 
01/04/2010  220 
01/03/2011  220 
01/09/2010  220 
01/05/2011  180
 
 
   ; 
run ;
DATA toto;
SET toto;
dat_ref2=mdy(input(substr(dat_ref,4,2),best.),input(substr(dat_ref,1,2),best.),input(substr(dat_ref,7,4),best.));
 
 
format dat_ref2  ddmmyy10.;
run;
 
 
%*je cree les 12 colonnes de mois qui suivent à partir de ma date de ref;
 
DATA toto2;
 
SET toto ; 
 
array x(12) 8.;
format x1-x12 ddmmyy10.;
do i=1 TO 12;
 x(i)=intnx('month',dat_ref2,i-1);
end;
DROP i;
run;
 
%* je cree mes colonnes de bordereaux comptables tous les mois;
 
 
	DATA toto3(DROP=dat_ref); SET toto2;
 
array  bord2010_(12) 8.;
format bord2010_1-bord2010_12 ddmmyy10.;
do i=1 TO 12;
 bord2010_(i)=mdy(i,01,2010);
end;
DROP i;
 
array  bord2011_(12) 8.;
format bord2011_1-bord2011_12 ddmmyy10.;
do i=1 TO 12;
 bord2011_(i)=mdy(i,01,2011);
end;
DROP i;
 
 
run;
 
 
 
DATA toto_pb; 
SET toto3;
 
%macro calcule(col1=,col2=);
IF &col1.=&col2. then prim&col2.=(prim_ttc/12);
	 %mend; 
 
 
   %calcule(col1=x1,col2=bord2010_1);
   %calcule(col1=x1,col2=bord2010_2);
   %calcule(col1=x1,col2=bord2010_3);
   %calcule(col1=x1,col2=bord2010_4);
   %calcule(col1=x1,col2=bord2010_5);
   %calcule(col1=x1,col2=bord2010_6);
   %calcule(col1=x1,col2=bord2010_7);
   %calcule(col1=x1,col2=bord2010_8);
   %calcule(col1=x1,col2=bord2010_9);
   %calcule(col1=x1,col2=bord2010_10);
   %calcule(col1=x1,col2=bord2010_11);
   %calcule(col1=x1,col2=bord2010_12);
   %calcule(col1=x1,col2=bord2010_1);
   %calcule(col1=x1,col2=bord2010_2);
   %calcule(col1=x1,col2=bord2010_3);
   %calcule(col1=x1,col2=bord2010_4);
   %calcule(col1=x1,col2=bord2010_5);
   %calcule(col1=x1,col2=bord2010_6);
   %calcule(col1=x1,col2=bord2010_7);
   %calcule(col1=x1,col2=bord2010_8);
   %calcule(col1=x1,col2=bord2010_9);
   %calcule(col1=x1,col2=bord2010_10);
   %calcule(col1=x1,col2=bord2010_11);
   %calcule(col1=x1,col2=bord2010_12);
 
   %calcule(col1=x2,col2=bord2010_1);
   %calcule(col1=x2,col2=bord2010_2);
   %calcule(col1=x2,col2=bord2010_3);
   %calcule(col1=x2,col2=bord2010_4);
   %calcule(col1=x2,col2=bord2010_5);
   %calcule(col1=x2,col2=bord2010_6);
   %calcule(col1=x2,col2=bord2010_7);
   %calcule(col1=x2,col2=bord2010_8);
   %calcule(col1=x2,col2=bord2010_9);
   %calcule(col1=x2,col2=bord2010_10);
   %calcule(col1=x2,col2=bord2010_11);
   %calcule(col1=x2,col2=bord2010_12);
   %calcule(col1=x2,col2=bord2010_1);
   %calcule(col1=x2,col2=bord2010_2);
   %calcule(col1=x2,col2=bord2010_3);
   %calcule(col1=x2,col2=bord2010_4);
   %calcule(col1=x2,col2=bord2010_5);
   %calcule(col1=x2,col2=bord2010_6);
   %calcule(col1=x2,col2=bord2010_7);
   %calcule(col1=x2,col2=bord2010_8);
   %calcule(col1=x2,col2=bord2010_9);
   %calcule(col1=x2,col2=bord2010_10);
   %calcule(col1=x2,col2=bord2010_11);
   %calcule(col1=x2,col2=bord2010_12);
 
   %calcule(col1=x3,col2=bord2010_1);
   %calcule(col1=x3,col2=bord2010_2);
   %calcule(col1=x3,col2=bord2010_3);
   %calcule(col1=x3,col2=bord2010_4);
   %calcule(col1=x3,col2=bord2010_5);
   %calcule(col1=x3,col2=bord2010_6);
   %calcule(col1=x3,col2=bord2010_7);
   %calcule(col1=x3,col2=bord2010_8);
   %calcule(col1=x3,col2=bord2010_9);
   %calcule(col1=x3,col2=bord2010_10);
   %calcule(col1=x3,col2=bord2010_11);
   %calcule(col1=x3,col2=bord2010_12);
   %calcule(col1=x3,col2=bord2010_1);
   %calcule(col1=x3,col2=bord2010_2);
   %calcule(col1=x3,col2=bord2010_3);
   %calcule(col1=x3,col2=bord2010_4);
   %calcule(col1=x3,col2=bord2010_5);
   %calcule(col1=x3,col2=bord2010_6);
   %calcule(col1=x3,col2=bord2010_7);
   %calcule(col1=x3,col2=bord2010_8);
   %calcule(col1=x3,col2=bord2010_9);
   %calcule(col1=x3,col2=bord2010_10);
   %calcule(col1=x3,col2=bord2010_11);
   %calcule(col1=x3,col2=bord2010_12);
 
 
 
%* la mm chose pour x4 x5 x6 x7 x8 x9 x10 x11 x12 et je nai pas mis les bordereaux de 2012 ;
 
   %* je complete la premiere ligne de notre TABLE avec les calcule ci dessous;
 
   %calcule(col1=x4,col2=bord2010_4);
   %calcule(col1=x5,col2=bord2010_5);
   %calcule(col1=x6,col2=bord2010_6);
   %calcule(col1=x7,col2=bord2010_7);
   %calcule(col1=x8,col2=bord2010_8);
   %calcule(col1=x9,col2=bord2010_9);
   %calcule(col1=x10,col2=bord2010_10);
   %calcule(col1=x11,col2=bord2010_11);
   %calcule(col1=x12,col2=bord2010_12);
run;

jobhocus · 09/09/2011, 11h24

Dans mon mail precedent il faut lire dans ma mini macro %calcule que je teste x1 a tous les bordreaux de 2010 puis 2011 pas deux fois 2010. Gloups.

MEGAMIND2 · 09/09/2011, 13h52

Tu n'auras pas du mal à comprendre, je vois que tu maitrises les array

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
DATA toto ; 
input dat_ref $ 1-11  prim_ttc $  ; 
cards; 
01/01/2010  220 
01/04/2010  220 
01/03/2011  220 
01/09/2010  220 
01/05/2011  180
 
 
   ; 
run ;
DATA toto;
SET toto;
dat_ref2=mdy(input(substr(dat_ref,4,2),best.),input(substr(dat_ref,1,2),best.),input(substr(dat_ref,7,4),best.));
 
 
format dat_ref2  ddmmyy10.;
run;
 
 
%*je cree les 12 colonnes de mois qui suivent à partir de ma date de ref;
 
DATA toto2;
 
SET toto ; 
 
array x(12) 8.;
format x1-x12 ddmmyy10.;
do i=1 TO 12;
 x(i)=intnx('month',dat_ref2,i-1);
end;
DROP i;
run;
 
%* je cree mes colonnes de bordereaux comptables tous les mois;
 
 
	DATA toto3(DROP=dat_ref); 
SET toto2;
 
array  bord2010_(12) 8.;
format bord2010_1-bord2010_12 ddmmyy10.;
do i=1 TO 12;
 bord2010_(i)=mdy(i,01,2010);
end;
DROP i;
 
array  bord2011_(12) 8.;
format bord2011_1-bord2011_12 ddmmyy10.;
do i=1 TO 12;
 bord2011_(i)=mdy(i,01,2011);
end;
DROP i;
 
run;
 
 
DATA toto4;
SET toto3;
keep bord:;
run;
 
proc contents DATA=toto4 out=name ;
run;
 
 
proc sort DATA=name;
BY varnum;
run;
 
DATA name;
SET name;
prime=compress("Prim_"!!name);
run;
 
proc sql NOPRINT;
SELECT prime INTO:prime separated BY ' ' FROM name;
SELECT name INTO:bord separated BY ' ' FROM name;
 
quit;
 
 
%put prim=&prim.;
%put bord=&bord.;
 
 
DATA test;
SET toto3;
array bord(*) &bord:;
array prime(*) &prime;
do i=1 TO dim(bord);
IF x1=bord(i) then prime(i)=prim_ttc/12;
end;
run;

jobhocus · 09/09/2011, 14h57

Megamind2 encore merci de te donner autant de mal.

ca ne fait pas ce que je veux encore il me manquerai un truc du genre ci dessous qui ne marche pas:

Code :

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

1
2
3
4
5
6
7
8
DATA test;
SET toto3;
array bord(*) &bord:;
array prime(*) &prime;
do i=1 TO dim(bord);
do j =1 to 12;IF x(j)=bord(i) then prime(i)=prim_ttc/12;
end;end;
run;

en language familier ce que je voudrais faire:

C'est decouper dans les 12 mois suivant la date de reference ma prime ttc (annuelle) sachant que chaque prime a une date de reference differente et mettre ces primes découpées dans des colonnes ou le nom indique un des 12 mois suivant la date de reference.

si j'ai une prime 120 avec une date de reference 01/05/2011 je veux que mon pgm retourne cela :

bord052011 =10 bord062011=10 bord072011 =10 bord082011=10 bord092011=10 bord102011=10 bord112011=10 bord122011=10 bord012012=10 bord022010=10 bord032012=10 bord042012=10 et ce sont les seules colonnes remplies pour cette ligne.

si ma ligne suivante contient une prime de 144 avec une date de reference 01/03/2010 je veux :

bord032010 =12 bord042010=12 bord052010 =12 bord062010=12 bord072010=12 bord082010=12 bord092010=12 bord102010=12 bord112010=12 bord122010=12 bord012011=12 bord022011=12 et ce sont les seules colonnes remplies pour cette ligne.

peut être que j'ai mal pris le truc depuis le début.

j'ai crée mes x pour trouver les 12 mois qui suivent ma date de ref
j'ai crée mes mois de bordereaux pour dire il y a 36 mois possible d'affectations.
et je compare les 2 colonnes une a une pour remplir des colonnes comme si dessus.

MEGAMIND2 · 09/09/2011, 15h20

Désolé mais je n'ai pas tout compris ou peut être pas du tout

.

jobhocus · 09/09/2011, 18h50

Merci quand meme.

J'ai deux solutions ou j'abandonne ou je remets le programme en entier qui fonctionne avec une mini table de départ.
on verra lundi mais je veux bien coché resolu et abandonner.

j'ai deja passé plus de temps que prevu sur ce truc mais en meme temps j'ai appris pas mal de chose.

Bon weekend

06/09/2011, 20h06	#4
MEGAMIND2 Membre Expert Brice Beare Paris Inscription : janvier 2011 Messages : 957 Détails du profil Informations personnelles : Nom : Brice Beare Localisation : France, Paris (Île de France) Informations professionnelles : Activité : Paris Informations forums : Inscription : janvier 2011 Messages : 957 Points : 1 368 Points : 1 368	Il n'y a pas d'erreur mais si tu ne comprends pas, je peux commenter le code.
	00

09/09/2011, 11h24	#11
jobhocus Invité de passage Chargé d'affaire Inscription : septembre 2011 Messages : 10 Détails du profil Informations personnelles : Sexe : Informations professionnelles : Activité : Chargé d'affaire Secteur : Finance Informations forums : Inscription : septembre 2011 Messages : 10 Points : 1 Points : 1	Dans mon mail precedent il faut lire dans ma mini macro %calcule que je teste x1 a tous les bordreaux de 2010 puis 2011 pas deux fois 2010. Gloups.
	00

09/09/2011, 15h20	#14
MEGAMIND2 Membre Expert Brice Beare Paris Inscription : janvier 2011 Messages : 957 Détails du profil Informations personnelles : Nom : Brice Beare Localisation : France, Paris (Île de France) Informations professionnelles : Activité : Paris Informations forums : Inscription : janvier 2011 Messages : 957 Points : 1 368 Points : 1 368	Désolé mais je n'ai pas tout compris ou peut être pas du tout .
	00

09/09/2011, 18h50	#15
jobhocus Invité de passage Chargé d'affaire Inscription : septembre 2011 Messages : 10 Détails du profil Informations personnelles : Sexe : Informations professionnelles : Activité : Chargé d'affaire Secteur : Finance Informations forums : Inscription : septembre 2011 Messages : 10 Points : 1 Points : 1	Merci quand meme. J'ai deux solutions ou j'abandonne ou je remets le programme en entier qui fonctionne avec une mini table de départ. on verra lundi mais je veux bien coché resolu et abandonner. j'ai deja passé plus de temps que prevu sur ce truc mais en meme temps j'ai appris pas mal de chose. Bon weekend
	00

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email