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

张双亮

%macro create(name,number);
%do n=1 %to &number;
&name.n
%end;
! t& Q, S8 i% r4 l# n%mend create;
  H4 i* j/ r% L8 ndata %create(abc,3);
input a@@;
) d5 X# K% ^: pif a=1 then output abc1;
, R! Z3 z% r1 f8 b1 w. _! o3 ^else if a=2 then output abc2;
% Z; x4 `# U! `2 F3 oelse if a=3 then output abc3;
1 f$ d* _3 M6 u6 Y1 b: u8 Xcards;
1 2 3
;
$ ~& T$ X; F1 k1 L. S8 j5 A% mproc print data=abc1;
run;
7 |" N7 y! Z* r7 K0 {proc print data=abc2;
run;
) |. B2 [  ^& [7 C9 B+ Iproc print data=abc3;
run;

madio

1. %macro create(name=,number=);
   ) V# E, s& j$ ~! ?$ ^$ I  f
2. %do n=1 %to &number;
   % z+ u+ [( c3 b  ]$ _\" A! ~( o- \' l
3. &name.&n
   : l: b\" ]. ?* s7 Q. i. i
4. %end;  e' p% ]$ b# ~; N9 S
   
5. %mend create;
   - }6 f\" V; w\" @, b
6. data %create(name=abc,number=3);3 ]0 ?' }  f: S, \
   
7. input a@@;
   * w) J  k4 Q* W% j2 F
8. if a=1 then output abc1;: r# S2 t5 o4 V: p\" w. g) t
   
9. else if a=2 then output abc2;
   + w! ~' d: D9 W/ ]% u, w! s- d0 r
10. else if a=3 then output abc3;: @# R% R) @- B5 U$ j
    
11. cards;
    % N: s( |: O% I2 L5 i
12. 1 2 3
    6 c8 J$ Z2 A* \; t8 C
13. ;
    2 _0 ^8 L6 F9 P3 v
14. run;
    , c/ Z$ k' V# {\" r
15. proc print data=abc1;1 X; l7 H8 |: J7 D9 W
    
16. run;
    0 ~1 G  D) b3 _% s4 X$ f5 y/ e4 b
17. proc print data=abc2;! Y# W, o9 V4 b: W5 P, ~3 _5 Z
    
18. run;% b3 J9 a- f& S* x, e
    
19. proc print data=abc3;6 P# V, U3 }7 X6 L* I+ _2 X
    
20. run;

复制代码