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

张双亮

%macro create(name,number);
%do n=1 %to &number;
&name.n
/ l2 b6 f0 v, ^2 s% {4 d% @6 t- K%end;
) h/ [, C5 g% O, @. \$ O% Y%mend create;
data %create(abc,3);
- @# o2 E$ Q; M; x* B% G$ sinput a@@;
if a=1 then output abc1;
% K  D* b, B, r& H. telse if a=2 then output abc2;
% |3 e" O. _! Qelse if a=3 then output abc3;
cards;
1 2 3
;
5 c5 t/ h7 y3 g* \' V5 S( Yproc print data=abc1;
run;
' E9 v  y0 ?! ]% ^) c( Xproc print data=abc2;
run;
proc print data=abc3;
run;

madio

1. %macro create(name=,number=);
   2 \9 Z; c$ F- ?\" B- S# g
2. %do n=1 %to &number;
   5 L& c% f- d5 Y: c
3. &name.&n
   9 k' k- r; R( P
4. %end;
     |, s& j0 A% j
5. %mend create;0 u( b3 j( g, K7 _1 B
   
6. data %create(name=abc,number=3);
   ) z3 P+ ~1 [/ p9 W\" S8 G* r0 s
7. input a@@;
   8 F0 _' [* i3 P# l
8. if a=1 then output abc1;
   8 h2 ~) L# N$ n0 ^6 ]
9. else if a=2 then output abc2;
   / S- G+ }$ m% X' y6 A. s3 w. G' ^. m
10. else if a=3 then output abc3;
    0 T1 }$ E+ r6 p$ T9 T7 ^1 L3 ]& u# _
11. cards;. P+ i( v5 h# O9 r, S
    
12. 1 2 3
    2 E3 E0 C: o; i\" w$ [( c
13. ;  v% r; {, ?* R\" m6 e+ A
    
14. run;2 b* k: \' L  f* t  B! z$ n( Y8 G+ g5 l
    
15. proc print data=abc1;
    4 c: G0 g5 {# I9 h3 X8 @/ u2 A: Y8 ^
16. run;3 k2 N$ E, |8 Z$ t9 g+ F
    
17. proc print data=abc2;# h. C7 R$ R, k5 P
    
18. run;3 {* B7 B5 F/ B- \\" h
    
19. proc print data=abc3;
    : A- Q$ y6 n% Y5 Y+ `5 v. f
20. run;

复制代码