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

张双亮

%macro create(name,number);
8 }. z! \8 g8 v1 f/ p%do n=1 %to &number;
&name.n
, Z, @% {& d9 k5 o4 P%end;
%mend create;
data %create(abc,3);
# K& r% t! i3 a/ W! A- xinput a@@;
if a=1 then output abc1;
* e# ^3 Z2 K1 L' X- T/ `2 z  \else if a=2 then output abc2;
else if a=3 then output abc3;
cards;
1 2 3
;
proc print data=abc1;
" x' t) @  Q6 e) u2 G" Rrun;
; n1 ?# s6 F5 n  Qproc print data=abc2;
run;
  i% f. l4 A2 [5 Gproc print data=abc3;
& i" m5 m& u7 u' N( G+ Erun;
* h' O/ U2 z4 e. _5 n) N. w5 J. f

madio

1. %macro create(name=,number=);7 ~1 L- D\" s/ E  j0 q, V% G
   
2. %do n=1 %to &number;+ y. K7 C# C; B\" m/ l8 ~/ ~$ @- N
   
3. &name.&n! d. i$ c9 M, j  B4 w
   
4. %end;: k% m4 a% _8 |8 [) }  Y) E
   
5. %mend create;
   7 m, C+ i) A9 L# t( r! }, @
6. data %create(name=abc,number=3);- j/ I6 l6 F' S4 B
   
7. input a@@;5 h4 t' r3 B1 ?0 {% S$ Q) U
   
8. if a=1 then output abc1;' G6 |$ _* Y& Z% s7 L6 Q# P
   
9. else if a=2 then output abc2;
   $ y$ x4 M5 u, Z) J# _
10. else if a=3 then output abc3;7 ^* I\" @  W9 W& \8 a+ l5 @4 a
    
11. cards;
    : c  z2 T& I/ s, Z( s# k/ S\" _% I
12. 1 2 3
    + X/ y5 T5 T. D
13. ;( l4 y& ], X: }6 W
    
14. run;, h! a  t1 Q: k7 i5 c
    
15. proc print data=abc1;) `( x* t: r# S( u
    
16. run;7 D4 E4 @5 V5 _( q. ]' b8 h
    
17. proc print data=abc2;! C4 G7 b7 p4 V9 N* @5 J- W
    
18. run;' p9 ^& d\" V8 y( i; ?
    
19. proc print data=abc3;
    + p; I7 T3 |% M6 V: n
20. run;

复制代码