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

张双亮

%macro create(name,number);
9 O% S. K2 {# ^0 i) a- \%do n=1 %to &number;
&name.n
%end;
%mend create;
0 p3 U* F% m9 c3 g! h% ddata %create(abc,3);
input a@@;
if a=1 then output abc1;
else if a=2 then output abc2;
else if a=3 then output abc3;
cards;
6 Y* [/ i( G+ }# x$ N' g# i7 z& ?" Y1 2 3
;
proc print data=abc1;
8 [! h' x5 N+ r8 H  Y# F# [, grun;
proc print data=abc2;
5 k7 i9 M( A- Q0 ^5 W5 }9 A% m' irun;
proc print data=abc3;
run;
, O/ N2 i! P$ |( x7 Y

madio

1. %macro create(name=,number=);% r/ b6 V9 n/ N  i& h6 Z: {
   
2. %do n=1 %to &number;1 R. \; O: R' z4 [4 S5 T
   
3. &name.&n
   9 h1 M8 k) ~7 O  H7 k
4. %end;
   ' k! m; ?, R: g0 E& m' U
5. %mend create;
   . }2 D! J' j3 ~$ S
6. data %create(name=abc,number=3);* C' O6 s: C, e  o. L
   
7. input a@@;; Y+ |0 F: c$ y, p\" V8 @4 A: N
   
8. if a=1 then output abc1;
   , I! w8 f3 x+ H! J7 {
9. else if a=2 then output abc2;! }\" y) o' z( Q' L\" X; f
   
10. else if a=3 then output abc3;
    ) i) |% [4 n- R  V3 F, \: G
11. cards;
    9 q+ ?! `* U3 b4 `' o9 |
12. 1 2 3
    8 O9 Q. L, X' }- R) z, |$ J
13. ;
    3 w6 g- p+ M% l2 m1 _( d2 I0 O
14. run;
    + q2 Z8 H; |: J* L# }
15. proc print data=abc1;\" K2 c: ^; v, G7 S
    
16. run;0 \1 l# i4 \5 y' ~# k4 A- g2 l
    
17. proc print data=abc2;$ u3 F$ }) J+ Z4 `
    
18. run;  R  b% e( p) Q+ p6 {' _
    
19. proc print data=abc3;
    3 k6 H5 i, }, r9 F: }4 J2 ^
20. run;

复制代码