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

张双亮

%macro create(name,number);
- @1 y) L* w$ B7 _8 {* @/ F+ v%do n=1 %to &number;
: [1 Q* R! k" |1 f  A# ?&name.n
%end;
%mend create;
/ V+ s$ s; }$ x3 o, K2 L* Ldata %create(abc,3);
input a@@;
if a=1 then output abc1;
else if a=2 then output abc2;
3 \( M( G: ^% v. Selse if a=3 then output abc3;
cards;
% A8 L: R+ Y8 H7 k0 L1 2 3
9 m9 F$ |* J' _3 p: M;
proc print data=abc1;
. A, G$ _) K0 Q! [run;
proc print data=abc2;
3 A( e8 [8 D3 u9 U; ]2 G1 arun;
4 J1 j/ k  |/ m4 a- c' q# A! _proc print data=abc3;
run;
3 }" \4 k9 f- |) }- e

madio

1. %macro create(name=,number=);
   1 E5 a$ h5 t5 t* m, f) U- ]. p7 G
2. %do n=1 %to &number;! a8 h2 C# x/ h4 x
   
3. &name.&n  a' A$ Q& I5 ]0 T
   
4. %end;
   6 z1 a  M\" K1 V! i) e
5. %mend create;
   , @3 p0 Y  l- P8 F1 h/ `\" I; Y
6. data %create(name=abc,number=3);% K* m0 ^1 g$ K5 p5 p( B
   
7. input a@@;
   ) u8 `9 W: p5 y
8. if a=1 then output abc1;# n, X! Z+ z* B% ?- U. R
   
9. else if a=2 then output abc2;
   \" N/ f! P3 ?\" F+ a7 S8 L
10. else if a=3 then output abc3;
    $ _! I& w8 j2 [$ L; {5 I. P
11. cards;( c8 c4 E6 ^# M+ w
    
12. 1 2 3
    1 B. [2 W! c' E
13. ;9 |$ }' I% y8 Z* h% o\" p
    
14. run;
    5 B- [1 O( m9 B
15. proc print data=abc1;
    $ L3 f' _& Q7 `( O
16. run;
    ! M' o3 K* {0 E* Z
17. proc print data=abc2;0 l. q* M/ U( c1 Z% q% V
    
18. run;
    ( s! e: H% [9 }; W2 H
19. proc print data=abc3;/ N* E% `& \6 w2 z! B
    
20. run;

复制代码

" ~% Y' |  U7 D& a: W3 B& w3 n: _