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

张双亮

%macro create(name,number);
+ S  [' f' ~( S%do n=1 %to &number;
&name.n
%end;
! H7 ?5 H: s+ [/ y8 C, R%mend create;
- k9 e" G* h. rdata %create(abc,3);
, N9 z2 u( T1 ?( f6 o" N# Ninput a@@;
if a=1 then output abc1;
$ {( K0 [( X! `+ |4 z: belse if a=2 then output abc2;
else if a=3 then output abc3;
. F2 T! V7 p5 G$ y7 b; J) Ncards;
) h3 y  H/ }% e$ m1 2 3
& c3 e# v- z/ a( L( k- p;
proc print data=abc1;
run;
proc print data=abc2;
run;
proc print data=abc3;
6 H' x, ^3 q+ u& \# v- Krun;
2 G; q. N$ k  Y% w

madio

1. %macro create(name=,number=);/ W2 {' @$ |3 S8 J* G6 N
   
2. %do n=1 %to &number;6 Y9 ?\" ?: D3 R% ~( b& z$ Y
   
3. &name.&n
   4 T7 t' h# h' _% _+ o) S
4. %end;+ G- ?9 P) Z3 P, b2 o2 }- M; K' H
   
5. %mend create;% H$ t1 [! @8 A
   
6. data %create(name=abc,number=3);
   + y8 x: Y( Q& q7 k$ ?
7. input a@@;
   $ V2 c6 N0 P+ i
8. if a=1 then output abc1;; y8 ~7 w# N+ [! ~% F
   
9. else if a=2 then output abc2;
   5 V  Y4 b5 I' {( ~9 v) f
10. else if a=3 then output abc3;0 H! H' ~+ h$ ^- {6 \
    
11. cards;  I3 L3 s. }# ]7 t: L6 @, `
    
12. 1 2 37 ?; D- l2 Y- i9 B9 _
    
13. ;
    $ I% l( G# U4 S
14. run;
    ) Q/ E: y) T# ]( I( \, l
15. proc print data=abc1;' C; `% X7 y5 ]
    
16. run;1 r  a3 m: c) n3 o4 }  N
    
17. proc print data=abc2;& j3 X- i$ a; H! B& z$ F/ R
    
18. run;
    8 ?$ s9 R5 Q1 Q' v' I: ?
19. proc print data=abc3;
    \" M6 C, J6 C6 h\" D: j6 r
20. run;

复制代码

% N5 h  E3 t! z& O0 F7 Y5 i& c