请高手看看宏程序里面的条件语句为什么不能跳转？

shiyiming

%macro lab1;
%if %sysfunc(exist(labo)) ne 0 %then %do;
proc datasets lib=work nolist;
  delete labo;
quit;
%end;
%do i= 1 %to 9;
data labout;
  set dog;
  where zc10&i. in(2,3) or zc70&i. in(2,3) or zc90&i. in(2,3) or zc130&i. in(2,3) or zch&i. in(2,3) ;
  typevar=lab10&i.;
  if vtype(typevar)="N"  then do;
  lab1 =put(lab10&i.,best.);
  lab7 =put(lab70&i.,best.);
  lab9 =put(lab90&i.,best.);
  lab13 =put(lab130&i.,best.);
  labh =put(labh&i.,best.);
  end;
  else do;
  lab1 =lab10&i.;
  lab7 =lab70&i.;
  lab9 =lab90&i.;
  lab13 =lab130&i.;
  labh =labh&i.;
  end;
  rename  zc10&i.=zc1 zc70&i.=zc7 zc90&i.=zc9 zc130&i.=zc13 zch&i.=zch;
  name=&i.;
run;
data laboo;
  length lab1  lab7  lab9  lab13  labh  $60.;
  set labout;
  keep no group treat_  name lab1 zc1 lab7 zc7 lab9 zc9 lab13 zc13 labh zch;
run;
proc append base=labo data=laboo force;run;
%end;
%mend;
option mprint ;
%lab1
如果typevar是字符型的话，应该运行这里：
  lab1 =lab10&i.;
  lab7 =lab70&i.;
  lab9 =lab90&i.;
  lab13 =lab130&i.;
  labh =labh&i.;
但是事实上没有。。。所以就出现错误

shiyiming

something wrong about using put funciton.
you can consider the ways like the following:

1.
typevar=lab101;
if vtype(typevar)="N" then do;
lab1 =putn(lab101,'best.');...
; else lab1 =lab101;
....
2.
in fact, in your case the cats() also works in a very elegant way:
lab1 =cats(lab101); *regardless of whatever type of lab101;

I did not know how come put() not working here: it looks like put() was verified in advance; and I met with the exact problem months ago.
Jingju

shiyiming

cats  thanks!