--+----------------------------------------------------------------------------+
--+                        SOHO Project -- Control File
--+                        ----------------------------
--+
--+ Name        : MDI_COM , !Print
--+ Purpose     : MDI COMMISSIONING TEST
--+
--+ Sub_system  : PLM
--+ Drawing No  : 3137-ZA042-SCB  Issue : A/00
--+ Project No  : SH-MAR-SW-70224
--+ Test Spec   : N/A
--+ Author      : Jon B. CARTER 
--+----------------------------------------------------------------------------+
--+ Principle   :
--+ ---------
--+   This Control File performs the MDI commissioning test for the desired
--+   configuration.
--+
--+ 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:51  20/01/94 A.J. TURK -- Conversion from MDI language.
--+   1/01   289     07:05  02/02/94 A.J. TURK -- During debug phase.
--+   1/02   360     10:05  18/04/94 Ed COBB   -- Rationalization
--+   1/03   393     08:24  18/05/94 Ed COBB   -- MDI Updates
--+   1/04   572     15:40  15/03/95 O. MICHEL -- MDI Updates. 
--+   1/05   618     11:39  28/06/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_LT , MDI_LHPO , MDI_LHOP , MDI_LMT , MDI_LPAW , MDI_LCAL
    Cfile   MDI_LSHUT , MDI_LCM , MDI_LLT , MDI_LAM , MDI_LFD , MDI_LHRO
    Cfile   MDI_LHCM , MDI_LDMC , MDI_LDP , MDI_IP, MDI_LIP
    Group   MWTM , PWP12TM

    Procedure   AskReal , AskStr , AskInt
    Procedure   CheckAna , CheckDig , CheckReg
    Procedure   CheckArgReal , CheckArgStr , CheckArgInt
    Procedure   DispMess
    Procedure   ExConnect , ExDisconnect
    Procedure   ExitCF
    Procedure   Message
    Procedure   OpenWindow
    Procedure   PrintAna , PrintDig , PrintReg , PrintParam
    Procedure   SendCommand 
    Procedure   Lower , Upper
    Procedure   WaitAna , WaitDig , WaitReg , WaitTime

End Extern
-------------------------------------------------------------------------------<
Program MDI_COM , Unique

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

Var
    Str( 3)     !ExpName   = "MDI"
    Str(10)     !Phase     = " "
    Str(49)     !Title     = " "
    Str(80)     !S         = &80s("")
    Str(80)     !Question  = ""
    Str(80)     !Check     = ""
    Str(80)     !Resp_s    = ""
    Int         !NbErr     = 0

Main
    @OpenWindow()

    !Title = "-START OF MDI COMMISSIONING: 'MDI_COM'"
    @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_LT    , "ltemps"   , "no"
    PERFORM/NO MDI_LHPO  , "lhpoon"   , "no"
    PERFORM/NO MDI_LHOP  , "lhopon"   , "no"
    PERFORM/NO MDI_LMT   , "lmtm1com" , "no"
    PERFORM/NO MDI_LMT   , "lmtm2com" , "no"
    PERFORM/NO MDI_LPAW  , "lpawcom"  , "no"
    PERFORM/NO MDI_LCAL  , "lcal1com" , "no"
    PERFORM/NO MDI_LCAL  , "lcal2com" , "no"
    PERFORM/NO MDI_LSHUT , "lshutcom" , "no"
    PERFORM/NO MDI_LCM   , "lcmcom"   , "no"
    PERFORM/NO MDI_LLT   , "llton"    , "no"
    PERFORM/NO MDI_LLT   , "lltcom"   , "no"
    PERFORM/NO MDI_LLT   , "lltoff"   , "no"
    PERFORM/NO MDI_LAM   , "lamon"    , "no"
    PERFORM/NO MDI_LAM   , "lamcom"   , "no"
    PERFORM/NO MDI_LAM   , "lamoff"   , "no"

    !Question  = "MDI FRONT DOOR Tests? (y/n)"
    !Check     = "in Y, N, y, n"
    @AskStr (!Question, !Check, *!Resp_s, *!S, *!NbErr)
    @Upper (!Resp_s, *!Resp_s)

    If !Resp_s = "Y" Then
       PERFORM/NO MDI_LFD , "lfdon"  , "no"
       PERFORM/NO MDI_LFD , "lfdcom" , "no"
       PERFORM/NO MDI_LFD , "lfdoff" , "no"
    End If

    PERFORM/NO MDI_LHPO  , "lhpocom" , "no"
    PERFORM/NO MDI_LHPO  , "lhpooff" , "no"
    PERFORM/NO MDI_LHRO  , "lhroon"  , "no"
    PERFORM/NO MDI_LHRO  , "lhrocom" , "no"
    PERFORM/NO MDI_LHRO  , "lhrooff" , "no"
    PERFORM/NO MDI_LHOP  , "lhopcom" , "no"
    PERFORM/NO MDI_LHOP  , "lhopoff" , "no"
    PERFORM/NO MDI_LHCM  , "lhcmcom" , "no"
    PERFORM/NO MDI_LDMC  , "ldmccom" , "no"
    PERFORM/NO MDI_LDMC  , "ldmcam"  , "no"
    PERFORM/NO MDI_LDP   , "ldpcom"  , "no"

    If !GM_Conf = 1 then
       PERFORM/NO MDI_IP    , "ipcom"   , "no"
    End If

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

    !Title   = "-END OF MDI COMMISSIONING: 'MDI_COM'"
    @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
-------------------------------------------------------------------------------<