'ST_ADJST - view adjust stock balances

external   sch scw popuplist() bgs fgs

public     ptstr

global     x $list

MAIN
  screen clear box 1 1 sch scw 0 0 no-border
  single-step off
  while true
    $list = "˙˙Allocations ˙Check˙Measures ˙Re-allocations˙"
    screen print 9 30 bgs fgs (format("Stock Adjustments","M20"))
    x = popuplist(10,30,14,$list,"˙˙˙˙{Esc} to exit˙˙˙",1,0)
    if x = 0
      if ptstr = "˙˙Allocations"
        execute "reqallcn.rf3" in-memory
      elseif ptstr = "˙Check˙Measures"
        execute "chckmeas.rf3" in-memory
      elseif ptstr = "˙Re-allocations˙"
        execute "reallcns.rf3" in-memory
      end if
    elseif x = -1
      exit while
    end if
  end while
  screen clear box 1 1 sch scw 0 0 no-border
  repaint off
  file unload all
  transfer "pm_menu.psl" in-memory
END MAIN