iah/iah-functions.xis
'5003 base'/
'5021 lang'/
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
''/
last_update
DATABASE
'^m',if v1091^s : 'm' then 'exist' else 'not found' fi
'^i',if v1091^s : 'i' then 'exist' else 'not found' fi
if p(v1091^n) then '^t',f(val(v1091^n) - 1,1,0) fi
"^d"v1091^d,
"^e"v1091^e,
"^u"v1090,
'record=database'/
'style=fixed'/
'1092 status'/
'1092^t total'/
'1092^u last_update'/
'1092^m master'/
'1092^i inverted'/
'1092^d data_entry_lock'/
'1092^e exclusive_write_lock'/
*