不知道错哪里了？求大神解答

张双亮

%macro create(name,number);
%do n=1 %to &number;
&name.n
- D" v) D1 ^7 g7 {/ B%end;
%mend create;
8 \9 O+ L0 g% ?data %create(abc,3);
8 s; b8 l3 ^0 @( Y3 e  u3 s" E! A, Dinput a@@;
if a=1 then output abc1;
else if a=2 then output abc2;
7 B+ G+ ]8 k. jelse if a=3 then output abc3;
cards;
1 2 3
* o4 x$ K: c- O;
) n+ P+ U# K7 a" n+ N7 oproc print data=abc1;
run;
proc print data=abc2;
8 ]# A- c/ X+ O/ Irun;
) E, @' m8 t% ]( @6 @4 N( nproc print data=abc3;
run;
. r! d+ E1 r2 L% t7 d, d

madio

1. %macro create(name=,number=);
   6 o) l4 V1 k% X, q/ X3 l6 H/ _
2. %do n=1 %to &number;
   + p\" X% E$ j; `1 J. y% ?2 e
3. &name.&n
   # ?) T% ~3 o! q# O\" F
4. %end;) ?% }\" R0 ~! F9 e
   
5. %mend create;9 B; d/ F  P5 [# X3 F
   
6. data %create(name=abc,number=3);
   ; @, @, \\" P6 Z) K4 J7 Y: ?, S
7. input a@@;7 c/ X4 K% q6 v1 ]/ f
   
8. if a=1 then output abc1;4 r7 I; S/ E. [+ ]
   
9. else if a=2 then output abc2;
   4 }. e2 X9 ]5 Y9 s. p; \6 V: t
10. else if a=3 then output abc3;
    2 G6 D$ v$ S+ g8 W
11. cards;
    + k0 Y- T& g  V. ?  H% s
12. 1 2 3
    & O& Y& E9 [# g9 G$ G  ]/ ^2 u6 t
13. ;
    ' c8 D3 J) L. J  m% A' k  n
14. run;* J5 R* g; q6 C
    
15. proc print data=abc1;/ E' R& ?( ^- Z$ G$ L* a) |2 L& Y* k
    
16. run;
    3 M6 y4 z7 a# h5 F
17. proc print data=abc2;
    ( L! y7 t# e+ L/ V. D
18. run;
    1 e: B8 ]' x& D1 m7 ^) S7 {
19. proc print data=abc3;0 X# U% U4 z: B: n
    
20. run;

复制代码

5 D5 e; J4 o" D0 D5 S* v