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

张双亮

%macro create(name,number);
%do n=1 %to &number;
&name.n
& H2 f; h) x* F& ~/ @%end;
. `6 ~3 ]7 y8 Q2 v%mend create;
* k  o, e+ q8 A3 L" Q$ q" d: Udata %create(abc,3);
input a@@;
( p. p3 j1 [+ o5 q0 u+ [  d# Jif a=1 then output abc1;
9 `5 t7 \, W2 u6 W3 Y5 Oelse if a=2 then output abc2;
else if a=3 then output abc3;
cards;
1 2 3
;
proc print data=abc1;
run;
proc print data=abc2;
run;
4 ?2 b3 G: n9 I- A/ d. X9 Mproc print data=abc3;
run;
$ V  r2 w5 j0 D) l

madio

1. %macro create(name=,number=);
   ( W8 c. o9 H. m* U. n
2. %do n=1 %to &number;2 A3 v8 A& r$ v2 P6 h% O! D
   
3. &name.&n
   . R( B) Z. Z0 G# H
4. %end;
   \" O& m# C- ?( s+ ~3 O9 p
5. %mend create;
   - ]+ z9 G+ I9 l3 c. |0 G
6. data %create(name=abc,number=3);
   7 L4 J) f- y5 C; P\" n0 R\" ^6 n
7. input a@@;
   % q( v; E+ b& @. x( o
8. if a=1 then output abc1;
   ' L7 w7 s6 ]8 g1 J+ p! {
9. else if a=2 then output abc2;
   5 T; e' G( \# F8 E; a% k
10. else if a=3 then output abc3;
    9 @% h; m& x- ]! `  d% b
11. cards;
    2 w2 _. T  k6 U/ p. |' g
12. 1 2 3% b1 k2 o+ H2 c; n
    
13. ;
    7 z/ b( o\" S& x8 O% K
14. run;\" E) F; H- u# J+ w+ ~
    
15. proc print data=abc1;7 {. A. O! @: N+ T9 a, m' i: u
    
16. run;$ X4 c; @3 V5 L; P$ c4 \) G- m! o$ Z
    
17. proc print data=abc2;/ ^5 ]) g5 B9 _* n' e
    
18. run;1 `+ K$ a# o( B# M8 T2 d; X
    
19. proc print data=abc3;+ Z- I/ v* k3 w
    
20. run;

复制代码

+ ~6 o4 G, z. }4 q; M+ V: b+ }