DATABASE marmotech
GLOBALS 
  "veprgb000.4gl"
MAIN
  DEFFER INTERUPT
  CALL veprrp041()
END MAIN

FUNCTION veprrp041()
  OPTIONS