'5003 base'/ '5021 lang'/ '3000 service'/ '3001 header'/ '3002 from'/ '3003 count'/ '3004 page'/ '3005 fmt'/ '3006 to'/ 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 DATABASE if s(mpu,v5006^r,mpl) = 'ON' then 'On' fi v1031 v3006 1 v5012^d (v5012^g/),'GIZMO_XML'/ if p(v5018^a) then cat(v5018^a) fi if p(v5018^u) then cat(v5018^u) fi Isis_Current Isis_Total Isis_From f(val(v1031)+val(v5008)-1,1,0) if val(v1002) < val(v1032) then v1002 else v1032 fi ''/ 0 '1001 Isis_Current'/'1002 Isis_Total'/ v5008 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=list'/ 'style=fixed'/ '4 server'/ '4^d date'/ '4^t time'/ '5003 database'/ '3002 from'/ '3006 to'/ '5008 count'/ '2006 reverse'/ '1001 Isis_Current'/ '1002 Isis_Total'/ '2011 previous'/ '2012 next'/ *