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

张双亮

%macro create(name,number);
%do n=1 %to &number;
&name.n
+ I. V8 L1 U/ t7 z%end;
%mend create;
! N8 _8 U- o8 I: _/ g) z6 _data %create(abc,3);
0 {' Z# h5 n, w+ E; Sinput a@@;
, u2 v( L8 w1 k& }if a=1 then output abc1;
' z9 z; ^8 F- {3 h7 w0 }4 z2 `, welse if a=2 then output abc2;
else if a=3 then output abc3;
$ K5 T* N/ R) C5 m, p$ r3 kcards;
1 2 3
5 q( n# W2 q$ j) T- O& D, k! z' Q;
8 |+ o- I; @' ]) N4 X0 X4 Lproc print data=abc1;
. ~3 N* \# C3 z: Q0 I* ]. ?run;
& L3 Q* W# h, p, V5 C: y* A* Tproc print data=abc2;
8 `3 a5 D( A  ^; n% yrun;
proc print data=abc3;
! a# u0 c" k* n) @2 srun;
. K. I# N9 q' f8 z' ?$ {/ s7 W3 m. r

madio

1. %macro create(name=,number=);9 A  T' e; |4 ]6 @
   
2. %do n=1 %to &number;
   + B' _& v\" |3 J\" [7 P1 s# [# l* f
3. &name.&n
   4 T8 E. A5 ?+ |9 h8 f
4. %end;6 y! k; ?8 r2 L, v' M$ U
   
5. %mend create;
   ' L' d9 Q. J) Q- a. i
6. data %create(name=abc,number=3);1 n. ], f9 ?8 }+ a4 E& L7 n
   
7. input a@@;
   - B\" p; T- A5 w9 I2 N4 l' ]1 L
8. if a=1 then output abc1;5 N0 z6 b$ }. b7 ^0 ]$ o- t
   
9. else if a=2 then output abc2;2 k! l( L( \/ @# c1 U. o
   
10. else if a=3 then output abc3;* D- {3 i$ @) g. c. f
    
11. cards;, x5 E# L4 ^) z6 G0 [
    
12. 1 2 3
    ! {3 p0 ~0 j) V- i  S- |% F7 _8 I
13. ;
    8 l\" y1 m- Q# ?\" o, N3 d
14. run;
    ' _; Y, g  G' L* |- `) A
15. proc print data=abc1;
    2 H- M4 F* W+ m# o' i
16. run;. a9 e- e6 t; J
    
17. proc print data=abc2;
    + ~! V9 j; Q! L
18. run;- d$ k7 K. E$ O9 n/ C
    
19. proc print data=abc3;0 Z( I0 U4 t6 y* H/ y
    
20. run;

复制代码