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

张双亮

%macro create(name,number);
+ V: h# ^- W! q# A# E$ ?%do n=1 %to &number;
; `- {4 ?# T; q# Z&name.n
%end;
%mend create;
6 J/ R, o+ F9 E, C, H. N. wdata %create(abc,3);
input a@@;
- B% W! A% q: b# D, Cif a=1 then output abc1;
% l8 D) y  o2 z; Nelse if a=2 then output abc2;
1 f2 K% S5 p+ V8 M% f4 d! h7 o6 a; Yelse if a=3 then output abc3;
5 h1 z. R! P7 kcards;
1 2 3
;
8 q, N, p. w# f! ~/ s0 Zproc print data=abc1;
2 P( D; W" v/ a2 t) [9 P% Orun;
0 {' n& s/ k0 {' p  S1 Cproc print data=abc2;
run;
+ U4 b. T, m; i  h' g( [proc print data=abc3;
run;
6 ^# R& |6 _" e

madio

1. %macro create(name=,number=);
   : v. j& ^$ b\" W. _
2. %do n=1 %to &number;
   7 R; z% H7 X+ d& B\" p1 l
3. &name.&n
   & H$ _5 A+ y& q( m: {( G
4. %end;% P; K& |4 m$ Q\" Y) V2 L6 a
   
5. %mend create;3 H; w, O8 `# @0 D
   
6. data %create(name=abc,number=3);
   ) {* a9 p& d% y1 t
7. input a@@;3 i! k8 G3 Z0 l) n3 e
   
8. if a=1 then output abc1;1 d! X' l( q! G: S- S; I* p9 F
   
9. else if a=2 then output abc2;
   9 [1 M$ m' H, R( q) j
10. else if a=3 then output abc3;* p: G$ A+ o, q: |
    
11. cards;
    ) ?. A1 M, }; d/ d
12. 1 2 3- R; @' a8 I5 U3 l7 E
    
13. ;
    3 @! X\" j0 _; _
14. run;
    + e; ?/ {2 m4 U7 e; T8 I
15. proc print data=abc1;) C0 b' ?4 G$ ^* S& i\" k\" O: B
    
16. run;
    % V* a/ C  T# l) c# }5 }8 |2 d
17. proc print data=abc2;2 w. x1 r2 t0 k( I
    
18. run;
    / j+ N, ^) w\" ~% `/ w
19. proc print data=abc3;
    6 L, `6 l: o* I% n' j* o+ q! Z9 m
20. run;

复制代码

' m: P9 u7 U6 ^/ P# y