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

张双亮

%macro create(name,number);
# g2 V1 u6 W& m+ i+ S3 L%do n=1 %to &number;
1 `) D6 {! Q7 S1 C2 n! O/ ^&name.n
%end;
( H0 I8 d8 }, Z6 b%mend create;
data %create(abc,3);
" A, I7 \5 ^' p- L; H$ oinput a@@;
; A/ z! S3 H- @5 O( ?3 ]if a=1 then output abc1;
( R5 n9 M- ]% V  y5 r# C! Gelse if a=2 then output abc2;
( _5 V* }! {1 a, h4 yelse if a=3 then output abc3;
cards;
1 2 3
  b+ a; i8 D$ f$ Z3 G- g" D+ };
proc print data=abc1;
- |; z! w9 c0 V7 }run;
proc print data=abc2;
4 T# p( k7 u4 d3 ?: yrun;
proc print data=abc3;
$ Z4 ^1 M5 ~! z; ?2 z" Srun;
& V, i# K  P# c2 Q, }* v# `, D* k

madio

1. %macro create(name=,number=);\" E, v. ~- W# C- G& Y1 ?
   
2. %do n=1 %to &number;7 b0 v$ ~# T4 G0 j4 c$ h7 `
   
3. &name.&n: i6 {( ]9 r( p. M4 P- ~
   
4. %end;
   ! c/ [2 ?5 Z3 T3 r9 t$ r0 ~
5. %mend create;# D7 U/ C$ C6 v- g3 D9 e
   
6. data %create(name=abc,number=3);
   8 E7 n) y/ n2 B$ i: g
7. input a@@;
   * ?. G/ A' ~- }% e7 A: }4 N. \' f
8. if a=1 then output abc1;
   , M/ Y. Q0 I( L  d/ ^
9. else if a=2 then output abc2;3 F: }7 u' f0 u
   
10. else if a=3 then output abc3;! z+ V/ i5 C1 w\" k# a5 C
    
11. cards;5 a2 K+ f# ?: R0 Z. S\" v
    
12. 1 2 3
    9 z$ g& ?+ G+ R9 s$ h
13. ;
    7 k- Q\" g- Q9 C% j
14. run;
    ; }5 W% V$ H! ?' `2 E
15. proc print data=abc1;+ [6 V) a# L/ w+ t, E4 `! j. v
    
16. run;1 v1 l7 e( o, c) N9 a7 N' }* ^
    
17. proc print data=abc2;! u+ c% p5 y7 S* X! Y8 @' g
    
18. run;& M* c6 V0 X\" y8 E
    
19. proc print data=abc3;# g8 @\" ?9 Q# y- z3 w
    
20. run;

复制代码