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

张双亮

%macro create(name,number);
5 x9 t! j% R$ I  Y! s%do n=1 %to &number;
&name.n
%end;
6 O7 t8 Y, E# [/ @# }% H2 Q%mend create;
data %create(abc,3);
' Z, R: Y4 {) j+ t7 ~input a@@;
; G" h, ]( d" {$ ]3 @9 t* H7 Fif a=1 then output abc1;
else if a=2 then output abc2;
: u+ [) ]. l/ Gelse if a=3 then output abc3;
: {" {- \! G. P; icards;
1 2 3
;
6 u$ M& U3 u& k4 C' k3 D' tproc print data=abc1;
run;
proc print data=abc2;
/ z# S; \/ I9 z. I; s* Mrun;
proc print data=abc3;
, ~" d- E( O' Q  V( Arun;

madio

1. %macro create(name=,number=);' X% K$ L  q3 }$ s5 G& P
   
2. %do n=1 %to &number;  S4 J; x+ I) ]3 l6 @
   
3. &name.&n4 y) _. P: N+ P  V% G$ I, A! E6 L
   
4. %end;/ f- p\" M2 s- w( a1 g
   
5. %mend create;
   # b+ R4 X  e- Z8 \
6. data %create(name=abc,number=3);6 I8 U* T% B1 l1 @$ f$ i6 W
   
7. input a@@;; y2 Y0 G6 F/ \9 A  t
   
8. if a=1 then output abc1;! N; }- X  z9 z0 R1 F
   
9. else if a=2 then output abc2;
   7 d9 N8 d, N9 M3 o3 O\" L
10. else if a=3 then output abc3;
    & F5 c3 \/ d# p& g4 C
11. cards;2 A; M; D' V! H# I
    
12. 1 2 3
    . s* r  q8 F6 L  D- ]
13. ;
    - q8 E+ q( ]- i
14. run;
    : ^9 t( w$ p. h) r, N' O
15. proc print data=abc1;) Z7 u\" D' u8 ^2 S
    
16. run;; p8 z4 Q1 e% D1 A+ p+ B' x& Q2 h
    
17. proc print data=abc2;
    $ _+ C) T4 O# D+ @- m; m8 v
18. run;) y2 k! b2 x+ [) p
    
19. proc print data=abc3;
    0 j/ u7 U: `) x
20. run;

复制代码