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

张双亮

%macro create(name,number);
%do n=1 %to &number;
&name.n
%end;
%mend create;
data %create(abc,3);
8 l3 C0 z! r7 I9 W9 |8 G' z0 m+ _input a@@;
if a=1 then output abc1;
3 b, C+ o4 \1 M0 Lelse if a=2 then output abc2;
else if a=3 then output abc3;
( r" l# O0 U) U, n9 N6 Fcards;
1 y1 _3 E' U) c$ ^( ?' I" `1 2 3
;
proc print data=abc1;
run;
' Z2 Q, d/ |4 H5 W8 J) c3 z8 F2 Eproc print data=abc2;
, a1 B  a# T; W5 orun;
proc print data=abc3;
run;
5 m# m/ V0 _+ z; i2 }- L

madio

1. %macro create(name=,number=);
   ( _) @; j0 ?1 ^, p! i- ^% o
2. %do n=1 %to &number;
   ! h/ [; G5 |! S- G5 Q. b
3. &name.&n
   6 v0 `: t+ _7 t% I
4. %end;
   5 y6 G) D- [\" X0 G5 N4 {
5. %mend create;
   \" d. ~% U/ C% a/ \8 h' J
6. data %create(name=abc,number=3);
   6 \+ N5 O5 K\" H0 V+ G5 O
7. input a@@;
   4 x5 }3 ~/ z\" e' d4 H' L\" X. e
8. if a=1 then output abc1;
   + q& X\" H4 ]: m+ w
9. else if a=2 then output abc2;3 r) P, y3 d# l  n1 k) [
   
10. else if a=3 then output abc3;8 ^  D! R) R+ }2 r& X- r1 G8 _
    
11. cards;
    ( N1 w+ c! u0 d/ q: n
12. 1 2 3
      i, m& Z, \1 O% _; ?7 o. S\" \
13. ;1 {5 I4 L7 q2 l5 O
    
14. run;0 w9 G, `! l% r/ U
    
15. proc print data=abc1;
    0 T1 D- y: p) d3 ~
16. run;& L) f7 S9 B& M( k; Z
    
17. proc print data=abc2;- H$ R' c/ t  @
    
18. run;
    5 K/ O4 s# N# T; l% U/ a4 E$ f
19. proc print data=abc3;8 v) O+ t, W  A2 B( K; O: s% ?8 c
    
20. run;

复制代码