SAS proc fcmp 返回丢失

Question

我有以下代码：

options mprint mlogic symbolgen;
%macro get_vtype();
%let table = %sysfunc(dequote(&table.));
%let var = %sysfunc(dequote(&var.));
data metadata.temp;
set &table.;
var = vtype(&var.);
call symput('res',vtype(&var.));
run;
%put &=res;
%mend;
proc fcmp outlib=work.functions.wrapper;
function myvtype(table $,var $) $ 1;
rc = run_macro('get_vtype',table,var,res);
put rc;
put res;
return (res);
endsub;
quit;
options cmplib=work.functions;
data temp;
vtype = myvtype("sashelp.class","age");
run;

我预计会因为温度而N。但是它不见了。在调试我提到的调试时，%put &=res;解析为N，但put res;returns.'。 嘭嘭是问题所在？

Answer 1

我的猜测是metadata库没有在run_macro会话中分配。

我对run_macro有一些非常奇怪和不一致的结果，我会尽可能避免它 - 尝试dosubl。 以下代码有效：

%macro get_vtype(table,var);
data _null_;
set &table.;
var = vtype(&var.);
call symputx('res',vtype(&var.),'g');
stop;
run;
%put &=res;
%mend;
proc fcmp outlib=work.functions.wrapper;
function myvtype(table $,var $) $ 1;
rc = dosubl(cats('%get_vtype(',table,',',var,');'));
put rc;
length res $1;
res=symget("res");
put res;
return (res);
endsub;
quit;
options cmplib=work.functions;
data test;
vtype = myvtype("sashelp.class","age");
run;