I guess I'd use ODS OUTPUT to store the results of the SHOW command in a data set. Then read in the results and parse the file to obtain the variable name. Maybe this will give you are start (only partially tested):   %macro PrintLocalVars(); ods exclude iml.show; ods output iml.show=showvars; /* store SHOW table */ show names; ods output close; ods exclude none; use showvars; read all var {batch}; close; call delete(showvars); _ndx = loc(batch^=' '); /* delete any blank lines */ if ncol(_ndx)>0 then batch=batch[_ndx]; _b = batch[3:(nrow(batch)-1)]; /* get rid of headers and end message */ _LocalVars = scan(_b, 1, ' '); print _LocalVars; free batch _ndx _b _LocalVars; %mend; proc iml; x = 1; y = 2; z = 3; %PrintLocalVars(); free x y z varnames; a = 1; b = 2; c = 3; %PrintLocalVars(); /* get local vars inside module */ start example(input_var); var1 = input_var #2; var2 = input_var + 2; measure = var1 || var2; call execute("%PrintLocalVars()"); return(measure); finish; M = {1,2}; test = example(M); quit; ... View more

In the second program (which doesn't work), the FUNC module is trying to refer to global symbols a,b, and c, but there are no symbols by that name in the global symbol table. To review how global variables work in SAS/IML, see the article "Understanding local and global variables in the SAS/IML language."   To solve your problem, you can either define (a,b,c) in the main scope of the program, or you can have the GetSolution_m module update the global symbol table by copying its parameters into the global symbols. It sounds like you want the second option. For clarity, the following program uses g_a, g_b, and g_c as the name of the global variables:   proc iml; start func(x) global(g_a,g_b,g_c); measure = (g_a/x+g_b/x##2 - g_c); return(measure); finish func; store module=func; start getSolution_m(a,b,c) global(g_a,g_b,g_c); g_a = a; g_b = b; g_c = c; /* copy parameters into the global symbols */ interval = {0.01 2}; roots = froot( "Func", interval); print roots; finish; store module=getSolution_m; quit; proc iml; load; call getSolution_m(215,231.5,400); ... View more

Yes, that's fine. You can actually reduce it to one LOC call, and you might want to check whether the result is valid before you return the result:   start getMeasure(MEASURES_CHAR, MEASURES_NUM, repDate, icgid, fmeasure); IDX = LOC(MEASURES_CHAR[,1] = icgid & MEASURES_CHAR[,2] = fmeasure & MEASURES_NUM[,1] = repDate); if ncol(idx) > 0 then return( MEASURES_NUM[IDX, 2] ); else return( {} ); /* or missing value? */ finish; ... View more