One Hat Cyber Team

Your IP : 216.73.216.14

Server IP : 194.44.31.54

Server : Linux zen.imath.kiev.ua 4.18.0-553.77.1.el8_10.x86_64 #1 SMP Fri Oct 3 14:30:23 UTC 2025 x86_64

Server Software : Apache/2.4.37 (Rocky Linux) OpenSSL/1.1.1k

PHP Version : 5.6.40

View File Name : sort.xis

<?xml version="1.0"?>
<!DOCTYPE IsisScript SYSTEM "wxis.dtd">

<!-- ==========================================
 SORT.XIS
 --------
========================================== -->

<IsisScript>
<section>

   <field action="cgi" tag="2011" type="flag">trace</field>
   <trace><pft>v2011</pft></trace>

   <display>
   SORT.XIS
   --------

   [reverse] [trace]
   </display>

   <do task="mfnrange">
   <parm name="db">CDS</parm>
   <display><pft>#,'----------------- Unsorted ----------------'/</pft></display>
      <loop>
         <list action="load" type="list"><pft>if p(v44) then '^k',v44.60,'^m',mfn fi</pft></list>
         <display><pft>mfn(1),c10,v44.60/</pft></display>
   </loop>
   </do>

   <do task="list">
      <field action="cgi" tag="2007" type="flag">reverse</field>
      <parm name="reverse"><pft>v2007</pft></parm>
      <field action="define" tag="1001">Isis_Current</field>
      <field action="define" tag="1002">Isis_Itens</field>
      <field action="define" tag="1">Isis_Item</field>
      <parm name="sort"><pft>v1^k</pft></parm>
      <display><pft>#,'----------------- Sorted ----------------'/</pft></display>
      <loop>
         <display><pft>v1001,'/',v1002,c10,ref(['CDS']val(v1^m),v44.60/)</pft></display>
      </loop>
   </do>

</section>
</IsisScript>