# File: fd_stat_cls.src
#
# This control file checks the front door status - closed.
#

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

display "Executing procedure fd_stat_cls."

if getdig(mkfdopn1) <> "    NOT OPEN" then
  display "mkfdopn2 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) <> "    NOT OPEN" then
  display "msfdopn status is NOT correct - procedure halted"
  halt
end if

if getdig(mkfdmtr1) <> "      CLOSED" then
  display "mkfdmtr2 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) <> "      CLOSED" then
  display "msfdcln status is NOT correct - procedure halted"
  halt
end if

display "Finished procedure fd_stat_cls."
