iah/iah-functions.xis
'5003 base'/
'5021 lang'/
'3001 header'/
'3002 from'/
'3003 count'/
'3004 page'/
'3005 fmt'/
'3006 to'/
'3010 index'/
'6000 form'/
'6001 conectSearch'/
'6002 exprSearch'/
'6003 indexSearch'/
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
''/
6099
(if s(mpu,v6003[1],mpl) = s(mpu,v6099^n,mpl) then v6099,break fi)
1
if p(v6003) then 'INDEX TRANSLATE' fi
A
'init'/(v6001/)
if a(v9999) then (if p(v6099^d) then v6099,break fi) else (v9999/) fi
DATABASE
if s(mpu,v5006^r,mpl) = 'ON' then 'On' fi
(if p(v6099^d) and p(v6099^y) then,
'^p*^y',v6099^y,|^u|v6099^u,|^m|v6099^m,/
fi),
(if p(v6099^x) and p(v6099^y) then,
'^p',v6099^x,'^y',v6099^y,|^u|v6099^u,|^m|v6099^m,/
fi),
@QUERY.IAH
v1031
v3006
1
Isis_Current
Isis_Total
Isis_From
f(val(v1031)+val(v5008)-1,1,0)
if val(v1002) < val(v1032) then v1002 else v1032 fi
if v5008 = '0' then 'PROLOG' fi
v5008
v5012^d
(v5012^g/),'GIZMO_XML'/
if p(v5018^a) then cat(v5018^a) fi
if p(v5018^u) then cat(v5018^u) fi
0
'1001 Isis_Current'/'1002 Isis_Total'/
1031,1032,3300,5003,5018
cat('PROC.PFT'),','
if a(v3300^f) then '*' fi
if a(v3300^f) then 'Next' fi
'@',v3300^f
v5006^r
if val(v2003) > 1 then v2003 else v1001 fi
if val(v2004) > 1 then v2004 else f(val(v2103) - val(v2002) + 1,1,0) fi
if val(v2002) > 1 then f(val(v2002) - val(v2104),1,0) fi
if val(v2002) > 1 and val(v2011) < 1 then '1' fi
if val(v1001) < val(v1002) then f(val(v1001) + 1,1,0) fi
2
'record=search'/
'style=fixed'/
'4 server'/
'4^d date'/
'4^t time'/
'5003 database'/
'6001 conectSearch'/
'6002 exprSearch'/
'6003 indexSearch'/
'3002 from'/
'3006 to'/
'5008 count'/
'2006 reverse'/
'1001 Isis_Current'/
'1002 Isis_Total'/
'2011 previous'/
'2012 next'/
*