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

张双亮

%macro create(name,number);
  i; y6 j( `( b6 E' X0 D%do n=1 %to &number;
&name.n
%end;
%mend create;
data %create(abc,3);
input a@@;
1 k$ R- [& W1 {: Y- X5 @if a=1 then output abc1;
else if a=2 then output abc2;
else if a=3 then output abc3;
0 P+ G! l, Q; A. bcards;
, F, Y$ h- V1 g' D! C1 2 3
: x+ S* w- {5 G. ]/ y: p;
' {* t3 N! T+ H9 ~proc print data=abc1;
+ O, C: M9 w# J- V0 F7 zrun;
proc print data=abc2;
9 b' v6 d' Q+ y# P6 \5 H" D" vrun;
: h& Q' p8 x6 K( Z4 m7 Jproc print data=abc3;
run;
% |5 Q! Z! i& A

madio

1. %macro create(name=,number=);: b5 m! |! ~: f& P
   
2. %do n=1 %to &number;
   \" [; q9 a) n3 x+ m: E- R
3. &name.&n\" _1 m: o, Z1 E( |3 H+ M/ R9 t
   
4. %end;
   * y3 E# r; u9 p. L& g
5. %mend create;
   3 @* m) \\" k& V: [
6. data %create(name=abc,number=3);. F+ v) u/ Q! D
   
7. input a@@;0 L- |+ N0 L7 H: b
   
8. if a=1 then output abc1;5 ^! m% o  }5 [9 F' y' j& A
   
9. else if a=2 then output abc2;% i0 n1 E' S, p1 |
   
10. else if a=3 then output abc3;
    ; N3 C* L4 H9 A; I, p4 t( X\" Q
11. cards;- _/ `* N: n* h7 W: ^: p/ T
    
12. 1 2 3; ~# R* M/ T5 H8 j2 V! c
    
13. ;1 `\" |' d+ S$ E5 E1 h. X0 y
    
14. run;
    9 R) h* M\" |% d6 A9 c* e$ D
15. proc print data=abc1;/ E8 a- a+ q; r/ N
    
16. run;
    ( h: l8 c& o2 N/ `  {
17. proc print data=abc2;
    ( p5 I( K, p! K3 [7 D7 c/ H
18. run;1 H& k# ^- b3 L- g/ U6 S
    
19. proc print data=abc3;8 D0 G9 x* h2 A4 ?1 L1 Q
    
20. run;

复制代码