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