'5003 base'/ '5021 lang'/ '3001 header'/ '3002 from'/ '3003 count'/ '3004 page'/ '3006 to'/ '3010 index'/ '6000 form'/ '6001 conectSearch'/ '6002 exprSearch'/ '6003 indexSearch'/ '6005 expression'/ '8000 label'/ 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 "^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 "1"n1031 6099 INDEX TRANSLATE (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 On (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), if a(v6005) then @QUERY.IAH fi v6005 v1031 v3006 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 Isis_Current Isis_Total f(val(v1031)+val(v5008)-1,1,0) if val(v1002) < val(v1032) then v1002 else v1032 fi 1031,1032,3300,5000,5001,5002,5003,5018,5021,6005 cat('PROC.PFT'),',' @RSS.PFT