<!---use
- query="#my_query#"
- list="1,2,3"
--->


<ensure variable="att.query" value="#queryNew('id')#">
<if NOT isQuery(att.query)><var att.query = queryNew('id')></if>
<ensure variable="att.list" value="0">
<var att.list = makeValidIntList(att.list)>


<var Q = att.query>
<var L = att.list>

<var didit_list = "">
<var ret = queryNew(lcase(att.query.columnlist))>


<loop list="#L#" index="i"><if listFind(didit_list,i) EQ 0><loop query="Q"><if Q.id EQ i>
<var didit_list = didit_list & ",#i#">
<var x = queryAddRow(ret)>
<loop list="#Q.columnlist#" index="ii">
<var x = querySetCell(ret,ii,Q[ii][Q.currentrow])>
</loop>
</if></loop></if></loop>


<RETURN ret>