# File: openlog.src
#
# This procedure opens a log file with the name supplied by the
# user and places the log file name in global variable !GS9
#

program "@(#) MODULE: openlog.src RELEASE: 2.3 CREATED: 04/15/94 18:30:40"
source "/mdisw/cfl/eof/src/openlog.src"
descr " openlog - Opens log file and initials string status vars"

if !GS9 = "" then
  setstr !GS6 = ""	## !GS6 (Air/Vacuum status) to null
  setstr !GS7 = ""	## !GS7 (front door open/close status) to null
  setstr !GS8 = ""	## !GS8 (MDI PC prime/redundant status) to null

  ask !LS0 "Enter file name for log file: "
  open user !LS0 dt !GS9 w

  display "Logging to: %s" !GS9
  write  !GS9 "Log File: %s" !GS9
  writen !GS9 " "
end if
