Class DynamicSQL.Sample Extends %Persistent
{

ClassMethod Test(
  SelectList As %String,
  FromList As %String,
  WhereList As %String) As %ResultSet.SQLQuery [ ReturnResultsets, SqlName = Test, SqlProc ]
{
	
  s sql="SELECT "
  s sql=sql_SelectList
  s sql=sql_" FROM "_FromList
  if $g(WhereList)'="" s sql=sql_" WHERE "_WhereList
  s ^bjb=sql
  set rs = ##class(%ResultSet.SQL).%Prepare(sql,.returnError)
  i returnError'="" QUIT ""
  if $isobject($Get(%sqlcontext)) { do %sqlcontext.AddResultSet(rs) }
  Quit rs
}

}

String GetColumnName(Integer ColumnNumber)