No me es muy clara la pregunta , pero espero que te sirva.
main
define LsTabla CHAR(20)
LET LsTabla = "systables"
call pasa_tabla(Lstabla)
end main
function pasa_tabla(Lstabla)
define Lstabla CHAR(20)
define Lscadena CHAR(40)
display " ",Lstabla
LET Lscadena = " Select * from '",LsTabla,"'"
end function