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

张双亮

%macro create(name,number);
%do n=1 %to &number;
6 j8 Z; }# x. ^&name.n
' L1 A' L% Y# |%end;
# S- e, B# S( M% [* u%mend create;
data %create(abc,3);
input a@@;
1 [  F  N0 K+ Q0 @& ~6 V2 n; uif a=1 then output abc1;
else if a=2 then output abc2;
0 {* ~7 x- \* p8 T% @+ Z/ u0 celse if a=3 then output abc3;
' x4 E) ~/ Y: |( I6 Dcards;
1 2 3
;
proc print data=abc1;
1 i2 ]/ L; W4 O5 _6 zrun;
proc print data=abc2;
run;
proc print data=abc3;
run;
  l9 O& y( v5 y: Z

madio

1. %macro create(name=,number=);
   . S) i7 R2 U6 q1 Q$ v+ Z5 _
2. %do n=1 %to &number;2 j9 M  @4 h+ t) J& ?
   
3. &name.&n: J! J7 e6 X/ q0 ]* B
   
4. %end;' J, [- C  }  [, ]# v) v
   
5. %mend create;9 C9 y; F; O9 a; V7 ~
   
6. data %create(name=abc,number=3);
   / x& m+ `, Q- U% z\" a, k; v: a
7. input a@@;
   ) `+ ]9 k' \, j# ]$ S. V
8. if a=1 then output abc1;' [+ z) F2 r0 }
   
9. else if a=2 then output abc2;
   5 W% ~* c2 Z+ L% u0 ^
10. else if a=3 then output abc3;
    6 O6 N$ f& d. Z% v8 h) n3 `
11. cards;
    0 Y) k3 s' ?; ]3 s* U4 b
12. 1 2 3; e$ V7 A5 Q8 g
    
13. ;
    \" ^' p) {! S7 y. x; `, I$ t% X
14. run;, {5 z5 r# n/ v' A4 M
    
15. proc print data=abc1;& F, H7 u  Q. Q/ l
    
16. run;: R+ G/ k. s& L  D; ^
    
17. proc print data=abc2;- i1 o' L( S) k, N0 Z
    
18. run;
    , G* T# z\" j: d0 r* E2 i  I
19. proc print data=abc3;) c\" Y7 Y1 v+ X* I
    
20. run;

复制代码