--+----------------------------------------------------------------------------+
--+                        SOHO Project -- Control File
--+                        ----------------------------
--+
--+ Name        : MDI_CHK , !Print
--+ Purpose     : LIMITED CHECK OF THE MDI INSTRUMENT.
--+                    
--+ Sub_system  : PLM
--+ Drawing No  : 3137-ZA042-SCB  Issue : A/00
--+ Project No  : SH-MAR-SW-70224
--+ Origin      : UK 
--+ Author      : A. J. TURK
--+----------------------------------------------------------------------------+
--+ Principle   :
--+ ---------
--+   This Control File performs a limited check of the MDI instrument.
--+
--+ Passed parameters :
--+ -----------------
--+   !Print    : CF Log print indicator ( "yes" (default) | "no" ).
--+
--+ Prerequisites :
--+ -------------
--+   The MDI experiment is in SAFE/STANDBY mode.
--+
--+ History :
--+ -------
--+   Issue SIC Note Time   Date      Name/Updates
--+   +---+ +------+ +---+  +--------+ +---------------------------------------+
--+   1/00   211      16:42  20/01/94   A.J. TURK -- Conversion from MDI language.
--+   1/01   289      07:01  01/02/94   A.J. TURK -- During debug phase.
--+   1/02   360      10:03  18/04/94   Ed COBB   -- FM Rationalization 
--+   1/03   572      16:50  15/03/95   O. MICHEL -- MDI Updates. 
--+   1/04   60?      10:20  28/04/95   Ph. IATRINO -- MDI Updates. 
--+  
--+----------------------------------------------------------------------------+
Common
Var
    Bool        !GZ_Window              -- Open window flag (on CF start)
    Bool        !GZ_Spool               -- Automatic Spool (at End of CF exec)
    Bool        !GZ_Halt                -- Check Error flag (to halt if error)
    Bool        !GZ_Test                -- Execution test flag (to not send TC)
    Int         !GZ_Trace               -- Level of Trace (TBD)

    Int         !GM_Conf                -- MDI Configuration
    Int         !GM_NbErr               -- MDI Global Error Count

    Int         !GM_I0
    Int         !GM_I1
    Int         !GM_I9

End Common
-------------------------------------------------------------------------------<
Extern
    Cfile    MDI_LCM, MDI_LMCH, MDI_LLT, MDI_LFD, MDI_LAM, MDI_LHPO, MDI_LHRO
    Cfile    MDI_LHOP, MDI_LIP
    Group    MWTM , MWTC , PWP12TM

    Procedure   CheckArgReal , CheckArgStr , CheckArgInt
    Procedure   DispMess
    Procedure   ExConnect , ExDisconnect
    Procedure   ExitCF
    Procedure   SendCommand 
    Procedure   WaitAna , WaitDig , WaitReg , WaitTime
    Procedure   Message
    Procedure   OpenWindow

End Extern
-------------------------------------------------------------------------------<
Program MDI_CHK , Unique

Defarg
    Str(3) !Print          = "yes"
End Defarg

Var
    Str( 3)     !ExpName    = "MDI"               -- Experiment name
    Str(80)     !S          = &80s("")            -- To save the display messages
    Str(10)     !Phase      = " "                 -- Phase label (e.g. 3.3.1.2)
    Str(49)     !Title      = "" 

Main 
    @OpenWindow()

    !Title   = "-START OF MDI LIMITED CHECK: 'MDI_CHK'"
    @Message( "DCL", "date", !ExpName, !Phase, !Title, *!S)

    !GM_NbErr = 0

    !GM_I0 = 1000
    !GM_I1 = 1
    !GM_I9 = 10


    PERFORM/NO MDI_LIP , "liplbic5" , "no"
    PERFORM/NO MDI_LCM , "lcmtap"  , "no"
    PERFORM/NO MDI_LMCH, "lmchscom", "no"
    PERFORM/NO MDI_LLT , "llton"   , "no"
    PERFORM/NO MDI_LLT , "lltoff"  , "no"
    PERFORM/NO MDI_LFD , "lfdon"   , "no"
    PERFORM/NO MDI_LFD , "lfdoff"  , "no"
    PERFORM/NO MDI_LAM , "lamon"   , "no"
    PERFORM/NO MDI_LAM , "lamoff"  , "no"
    PERFORM/NO MDI_LHPO, "lhpoon"  , "no"
    PERFORM/NO MDI_LHPO, "lhpooff" , "no"
    PERFORM/NO MDI_LHRO, "lhroon"  , "no"
    PERFORM/NO MDI_LHRO, "lhrooff" , "no"
    PERFORM/NO MDI_LHOP, "lhopon"  , "no"
    PERFORM/NO MDI_LHOP, "lhopoff" , "no"

    Cflog
    !Title   = "*MDI IS NOW IN SAFE/STANDBY MODE"
    @Message( "DC", "date", !ExpName, !Phase, !Title, *!S)

    !Title   = "-END OF MDI LIMITED CHECK: 'MDI_CHK'"
    @Message( "DCL", "date", !ExpName, !Phase, !Title, *!S)

    @ExitCF ( !GM_NbErr )
    @PrintCF (!ExpName, !Print)
    Return !Rstat
End Program

-------------------------------------------------------------------------------<
Procedure PrintCF(str(3) !ExpName, Str(3) !Print)
--. Print the control file log file if required by !Print ;
--.  - using the 'Spool' statement if the variable !GZ_Spool is TRUE,
--.  - using the dialog box window if the variable !GZ_Spool is FALSE.
--. 
  Var
     str(80)  !S = &80s("")

  Main
     If !Print = "yes" Then
       If !GZ_Spool = TRUE  Then
          Spool CF
       Else   
          Cflog
          @Message ("DC", "date", !ExpName, " ", \
                    "++++Print the CFLog, then type CONT+++", *!S)
          Halt
          @Message ("DC", "date", !ExpName, " ", \
                    "+Operator continue.", *!S)
       End If
     End If
  Return
End Procedure
-------------------------------------------------------------------------------<