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

张双亮

%macro create(name,number);
8 L/ [5 x$ ~& E; \% R; T: l%do n=1 %to &number;
8 I. d( L9 m0 `; n4 S1 X1 ^; }3 }&name.n
%end;
%mend create;
" a# S8 }$ o; e" udata %create(abc,3);
. @! n3 N7 x; Q- u4 Rinput a@@;
if a=1 then output abc1;
else if a=2 then output abc2;
8 @* b8 w+ V! k% g2 v/ eelse if a=3 then output abc3;
$ ]6 e7 W* J& y. s" a$ pcards;
1 2 3
% L) [: M8 Y3 O% N;
  A4 A6 A: Q5 j( F" ^proc print data=abc1;
3 i- C7 r  J6 L/ ^& n" Yrun;
- h) U# }3 j+ x( u+ C2 f/ yproc print data=abc2;
run;
proc print data=abc3;
run;

madio

1. %macro create(name=,number=);
   , S# a\" x9 f; {# z7 v\" L
2. %do n=1 %to &number;
   6 C5 y1 u; e% k- `/ O& v- _
3. &name.&n4 E+ S$ d$ w. z# |& H) R) t0 ]# U6 i; x
   
4. %end;7 [% T, C$ X5 K6 z* q\" u9 V7 F
   
5. %mend create;
   ( o* p, A' Y1 G1 T; X7 e! z& f0 I
6. data %create(name=abc,number=3);) G3 [! M6 T7 v4 }5 v  r
   
7. input a@@;
   $ D: e  `6 I- B; O+ W
8. if a=1 then output abc1;
   6 ?' i2 E4 i; p4 K
9. else if a=2 then output abc2;
   . r  k9 Y. f# D$ N/ g  }: B; X5 R; h/ ]
10. else if a=3 then output abc3;% W# F/ j' T3 g$ ^. O+ b; b# W# K8 N: f
    
11. cards;
    7 E; I' _  A* K- M
12. 1 2 3. E8 K: Y: s: p9 s( z
    
13. ;0 @6 l- y/ W: w# O& n! s. P( i8 i
    
14. run;
    1 V1 B9 Z9 x5 H4 A+ B
15. proc print data=abc1;6 r\" s6 z\" N! R1 Q
    
16. run;
    , U0 T$ E\" N5 x/ F2 c
17. proc print data=abc2;4 ~* \\" H1 q$ P; H3 n
    
18. run;7 u2 k5 n! j/ @: r\" u- ]
    
19. proc print data=abc3;
    2 ^, G: m$ a4 X! k2 U+ z% f) @
20. run;

复制代码

+ m6 S- V7 ~' C' P