ReturnToMenu()
FUNCTION ReturnToMenu()
  screen clear box 1 1 sch scw 0 0 no-border
  repaint off
  file unload all
  fopen dpath|userid|".jnr" as 1
  fwrite 1 from $jobstr
  fclose 1
  transfer cpath|"pm_menu.psl" in-memory
END FUNCTION ' ReturnToMenu()

FUNCTION ReturnToMenu()
  lock module $newcust
  lock module jobnr
  file unload all
  fopen dpath|userid|".jnr" as 1
  fwrite 1 from $jobstr
  fclose 1
  if $ordstat = "A"
    transfer "salord02.rf3" in-memory
  else
    transfer cpath|"pm_menu.psl" in-memory
  end if
END FUNCTION ' ReturnToMenu()