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

张双亮

%macro create(name,number);
  v. \* ^& C( f( h%do n=1 %to &number;
&name.n
( e/ |7 b2 l( q& U! ^  E5 z%end;
%mend create;
2 K1 j3 ?3 g& @+ u' [" s7 y% Q2 M$ Udata %create(abc,3);
9 O" Q9 J+ z: l/ u! |; o8 Jinput a@@;
' Z9 m4 p& y, T6 Q4 R% fif a=1 then output abc1;
  c4 K8 o/ i6 g! Welse if a=2 then output abc2;
else if a=3 then output abc3;
% t' N- T5 W! ^, o' v# Ncards;
6 B# Z& M) w$ S% y2 P  T) O3 E1 2 3
" r; @% P$ _- F1 f;
proc print data=abc1;
1 E$ J& C: u4 |8 d+ W8 m7 k% }run;
proc print data=abc2;
run;
8 H. f- |% G/ Y/ Bproc print data=abc3;
3 W1 ]- g" C1 h$ \% @6 |run;

madio

1. %macro create(name=,number=);* I+ g; O; s! L
   
2. %do n=1 %to &number;$ C4 M6 Q0 O( T2 @- S, Z
   
3. &name.&n
   ! ]+ z' \- f# @7 Q! R9 I  o  R
4. %end;
   8 E6 [( w( G4 {& v\" |\" P/ P. S
5. %mend create;# T0 v& \9 n. ]% k7 f\" D4 N* l
   
6. data %create(name=abc,number=3);
   9 n& y4 x7 j; v( D3 d. F
7. input a@@;8 ?6 u. R5 F0 v. f3 r% Q9 {
   
8. if a=1 then output abc1;
   ; b9 U3 \' E9 H/ G
9. else if a=2 then output abc2;1 Z. @# K/ A1 e' V5 }
   
10. else if a=3 then output abc3;
    + g) z0 l; I: X% B* X
11. cards;; M8 Q/ J  ~7 `
    
12. 1 2 3
    3 E2 B3 h+ Z' B' C( u
13. ;
    - q& B  E$ s- @8 U\" D: {
14. run;
    - _5 f, X\" k. l
15. proc print data=abc1;/ v$ ?! R$ b: d& ]: U- q. Q6 F5 w
    
16. run;$ \* b# l& b: ]5 T( q
    
17. proc print data=abc2;$ A* N7 g+ \1 Y1 W' o
    
18. run;
    7 U- R. C  _\" k7 g4 J
19. proc print data=abc3;$ C$ t7 j% y  M. L0 I6 ]
    
20. run;

复制代码