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'/
*