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

张双亮

%macro create(name,number);
%do n=1 %to &number;
&name.n
/ j' g/ u2 H* r- r%end;
4 e; T' g" n; ~/ w%mend create;
data %create(abc,3);
6 j  x' z  |/ T2 h' xinput a@@;
if a=1 then output abc1;
; O3 x1 p0 l0 ^7 ]/ Helse if a=2 then output abc2;
( V9 P) \) m7 u3 J# Belse if a=3 then output abc3;
cards;
1 2 3
  ~- B) z' Q) I$ Q% H) y- J;
) y. |/ l$ _) }$ Q6 C2 Z5 ?proc print data=abc1;
run;
proc print data=abc2;
run;
proc print data=abc3;
% A7 G4 }$ r" o( Trun;
+ C1 y9 q/ b$ P! b3 S2 i

madio

1. %macro create(name=,number=);! U5 d% l0 p, P: {! [
   
2. %do n=1 %to &number;
   ) s( p. j' }; r0 e5 K6 H4 z8 d
3. &name.&n) W. j. N8 o( o/ n
   
4. %end;
   1 `4 S& O2 @3 r
5. %mend create;# g( r4 r5 z- q9 a& N
   
6. data %create(name=abc,number=3);0 \* w. c# x- u* m
   
7. input a@@;4 R' G8 g/ C5 t2 Z# S3 C
   
8. if a=1 then output abc1;' \+ Y7 a0 g& H
   
9. else if a=2 then output abc2;
     }* o/ [5 O  \0 d
10. else if a=3 then output abc3;$ R, w* A1 \$ `5 L
    
11. cards;* \- [* ~* p9 n2 [7 V
    
12. 1 2 33 T- r- F3 }8 l. i. c( S7 t
    
13. ;
    ) H7 F8 r\" O+ X
14. run;
    8 ~) d$ m# M% c* `/ F2 h
15. proc print data=abc1;
    0 J  x9 A/ T: S$ H) W
16. run;
    4 l7 i% L, ?2 g9 @: y# o7 b/ m8 @2 C
17. proc print data=abc2;) z( @# q+ V, }! v8 G
    
18. run;, e5 W+ J, u& H: v. B1 T6 }9 y6 E
    
19. proc print data=abc3;
      c5 l( ^% n; K# {8 Q. m0 R
20. run;

复制代码