# File: fd_stat.src
#
# This control file cheks the front door status.
#

program "@(#) MODULE: fl_cmon.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/fd_stat.src"
descr "  fd_stat - front door status"

display "Executing procedure fd_stat."

if getdig(mkfdopn1) <> "        OPEN" then
  display "mkfdopn1 status is NOT correct - procedure halted"
  halt
end if

if getdig(mkfdopn2) <> "    NOT OPEN" then
  display "mkfdopn2 status is NOT correct - procedure halted"
  halt
end if

if getdig(msfdopn) <> "        OPEN" then
  display "msfdopn status is NOT correct - procedure halted"
  halt
end if

if getdig(mkfdmtr1) <> "  NOT CLOSED" then
  display "mkfdmtr1 status is NOT correct - procedure halted"
  halt
end if

if getdig(mkfdmtr2) <> "      CLOSED" then
  display "mkfdmtr2 status is NOT correct - procedure halted"
  halt
end if

if getdig(msfdcln) <> "  NOT CLOSED" then
  display "msfdcln status is NOT correct - procedure halted"
  halt
end if

display "Finished procedure fd_stat."
