record rWZ
   string       kod      [40]
   long      id   
endrec

rWz wz(3)
int i

wz(1).kod = "WZ/003/2013"
wz(1).id = 65545

wz(2).kod = "WZ/001/2013"
wz(2).id = 65546


wz(3).kod = "WZ/002/2013"
wz(3).id = 65547

// wypełnienie mapy sortującej (indeksu)

mapValue mvSort
mvSort.Type( long )

for i = 1 to i > Size( wz )
   mvSort.Set( wz(i).kod, i ) // sortowanie po kod   
//   mvSort.Set( (using "%l",wz(i).id), i ) // sortowanie po id   
next i

mvSort.Sort()

// Tablica rekordów pozostaje nie posortowana
// Pobieramy z niej rekordy wg posortowanego indeksu

print "Tablica wz"+lf

for i = 1 to i > Size( wz )
   print using "%s %l" + lf, wz( i ).kod, wz( i ).id
next i

print "Tablica wz wg. posortowanej mapy"+lf

for i = 1 to i > Size( wz )
   print using "%s %l" + lf, wz( mvSort.Get( i ) ).kod, wz( mvSort.Get( i ) ).id
next i

record rFZ
   string PocId [25]
   string Quantity [25]
   string Amount [25]
EndRec

   mapValue mvSort
   mvSort.type(int)
...
if ...
...
//pocz.sortowania po PocId
   for i=1 to i>=iItemsCount
      xmlPocId=xmlPocIdList.item(i)
      xmlQuantity=xmlQuantityList.item(i)
      xmlAmount=xmlAmountList.item(i)       
      tblItems(i).Quantity=xmlQuantity.text
      tblItems(i).Amount=xmlAmount.text
      tblItems(i).PocId=xmlPocId.text
      grow tblItems,1
   next i

   for i=1 to i>=size(tblItems)
      mvSort.Set(tblItems(i).PocId,i)
   next i
//koniec sort. po POCid   
...
for j=1 to j>=size(tblItems)
print tblItems(mvSort.Get(j)).PocId
next j
...
endif

   for i=1 to i>=size(tblItems)
      mvSort.Set(tblItems(i).PocId,i)
   next i

mvSort.sort()

for i=1 to i>n-1
    for j=i+1 to j>n
       if a(i)>a(j) then
           b = a(i)
           a(i) = a(j)
           a(j) = b
       endif
    next j
next i

mvSort.Set((tblItems(i).PocId+tblItems(i).Quantity),i)