iah/iah-functions.xis
'5003 base'/ '5021 lang'/ '3001 header'/ '3002 from'/ '3003 count'/ '3004 page'/ '3005 fmt'/ '3006 to'/ '3010 index'/ v1 tag date '^d',v3.8,'^t',v3*9.6 "p"n5021 200000 * * * if s(mpu,v3001,mpl) = 'OFF' then 'omit-xml-declaration' else '*' fi if a(v3001) then 'ON' else s(mpu,v3001,mpl) fi if a(v3003) then v5008 fi if p(v3005) then s(v3005,'.xml') else if v5018: 'XML' then 'DATABASE.XML' fi,fi "^h"v3001,"^s"v3002,"^c"v3003,"^f"v3005, v3300^c if p(v3300^p) then f(((val(v3300^p)*val(v5008))+1)-val(v5008),1,0) else v3300^s fi ''/ 6003 (if s(mpu,v6003^n,mpl) = s(mpu,v3010[1],mpl) then v6003,break fi) if a(v6100) then (if v6003^d = '*' then v6003,break fi) fi if p(v6100^y) then v6100^y else 'DATABASE' fi,v5018^k ,if p(v6100^u) then v6100^u fi, ,v3002, if p(v6100^u) then v6100^u fi, ,if p(v3006) then v3006 else 'ZZZZZZZZZ' fi, if p(v3003) then v3003 else '50' fi if v6100^x.1 = '/' then v6100^x*1 fi replace(v2008,' ',s(#)) replace(s(v2009/),',',s(#)) if v6100^x.1 = '/' then replace(v6100^x*1,',',s(#)) fi (v2009/) 1 Isis_Key Isis_Postings Isis_Posting 'record=term'/ 'style=fixed'/ '1 Isis_Key'/ '2 Isis_Postings'/ '3 Isis_Posting'/ '3^i entry'/ '3^m mfn'/ '3^t tag'/ '3^o occ'/ '3^c count'/ * 'record=index'/ 'style=fixed'/ '4 server'/ '4^d date'/ '4^t time'/ '5003 database'/ '3002 from'/ '3006 to'/ '2008 posttag'/ '2007 posting'/ '5008 count'/ *