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

张双亮

%macro create(name,number);
%do n=1 %to &number;
: Q2 U+ P+ e- e8 W: d% h&name.n
%end;
%mend create;
data %create(abc,3);
: @1 l2 x' n/ ?0 ainput a@@;
if a=1 then output abc1;
else if a=2 then output abc2;
else if a=3 then output abc3;
cards;
6 X" ^2 }: a- S& T- m2 {& }1 2 3
;
3 H, {3 Y5 g" Y9 r5 v% gproc print data=abc1;
& C8 g0 G: D, x+ ^7 X5 R' Frun;
) }( |; O( B" |! E2 }) h9 nproc print data=abc2;
1 V3 c6 O- W9 j" ^9 V) prun;
proc print data=abc3;
run;
7 E$ I0 ^" _6 X) z3 \

madio

1. %macro create(name=,number=);% G7 X8 `/ o, E+ u& ?8 a/ L
   
2. %do n=1 %to &number;7 [: j- ^- X- S9 @' c2 H' B
   
3. &name.&n( K3 O\" D: N+ m7 E
   
4. %end;
   6 E0 e' T: s  W6 ~
5. %mend create;
     |( h/ v) _& h$ U; r  u
6. data %create(name=abc,number=3);
   . `( ~' d: O: Z- M4 `# ~
7. input a@@;) Y7 \, |- ^  A, O
   
8. if a=1 then output abc1;
   2 }2 K4 Y2 w4 s( U6 U$ k( G
9. else if a=2 then output abc2;: k8 P- S5 v3 N: K
   
10. else if a=3 then output abc3;
    , y+ i3 I6 o' {' y\" K, |
11. cards;
    5 ?\" a% ~\" X2 J5 c
12. 1 2 3
    . Q( W5 Q9 D! P* I9 K5 t
13. ;7 N% {. ]' ~5 S4 L: s2 k# T# R6 Z5 [
    
14. run;8 e# c! h; t0 {$ A3 i* n$ B: ]! ^# T
    
15. proc print data=abc1;4 _3 Z! b2 e% k
    
16. run;
    ( {3 i% k, o* w0 E( Q3 K
17. proc print data=abc2;/ o! R6 g- ^4 ~: h8 V, s
    
18. run;\" B0 c7 |\" h& M1 e4 l4 ^5 J' K
    
19. proc print data=abc3;0 ~: {\" A% Q2 B' d' F7 Z
    
20. run;

复制代码