FUNCTION LoadScreens()
  error off
  window split vertical #split
  vloadif(dpath|"UAR_B_J.vw")
  if cerror
    return (-3)
  end if
  data goto window 2
  vloadif(dpath|"rolmetDJ.vw")
  if cerror
    return (-3)
  end if
  data goto window 1
  window split horizontal 20
  data goto window 3
  vloadif(dpath|"UAR_DESC.vw")
  data goto window 2
  error off
  window link "[Product_Code]" "UAR_DESC.vw" "[Product_Code]"
  data goto window 1
END FUNCTION ' LoadScreens()