--+------------------------------------------------------------------------------+
--+                        SOHO Project -- Control File
--+                        ----------------------------
--+
--+ Name        : MDI_EMC_SUSC , !Print
--+ Purpose     : To perform the Susceptibility Test during EMC.
--+                    
--+ Sub_system  : PLM
--+ Drawing No  : 3137-ZA042-SCB  Issue : A/00
--+ Project No  : SH-MAR-SW-70224
--+ Origin      : Fr
--+ Author      : Ph. IATRINO 
--+------------------------------------------------------------------------------+
--+ Principle   :
--+ ---------
--+   To verify MDI working fine during EMC susceptibility Test.
--+
--+ Passed parameters :
--+ -----------------
--+   !Print      : CF Log print indicator ( "yes" (default) | "no" ).
--+
--+ Prerequisites :
--+ -------------
--+  (a)  PLM is powered ON in a ready mode.
--+  
--+  (b)  Ensure the Purge Equipment is mated to the MDI Sensor and is 
--+       switched ON and Purging.
--+
--+ History :
--+ -------
--+   Issue SIC Note Time   Date      Name / Updates
--+   +---+ +------+ +---+  +------+  +------------------------------------------+
--+   1/00    597    19:44  10/05/95  Ph. IATRINO     -- Creation.
--+   1/01    597    19:24  11/05/95  J.B.B           -- Updates.
--+   1/02    597    10:44  12/05/95  J.B.B           -- Updates.
--+   1/03    597    16:24  12/05/95  J.B.B           -- 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_I9
    Int         !GM_Interrupt

End Common
---------------------------------------------------------------------------------+
Extern
    Cfile   MDI_JT, MDI_LFD, MDI_EMI, MDI_LLT, MDI_INTRRPT
    Group   MWTM

    Procedure   DispMess    , OpenWindow , Message    , ExitCF
    Procedure   CheckArgReal, CheckArgStr, CheckArgInt
    Procedure   AskStr
    Procedure   WaitTime
    Procedure   SendCommand 

End Extern
---------------------------------------------------------------------------------+
Program MDI_EMC_SUS2 , 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      = "" 
    Int         !NbErr      = 0      
    Str(80)     !Question = " "
    Str(80)     !Response = " "
    Str(80)     !Check    = " "

Main 

    @OpenWindow()

    !Title  = "-START OF SUSCEPTIBILITY TEST"
    @Message ("DCL", "date", !ExpName, !Phase, !Title, *!S)

    @SendCommand ("MBSQEND", "")

    PERFORM/NO MDI_JT, "jtinit", "no"
    PERFORM/NO MDI_JT, "jtdata", "no"

    @AskStr ("Is MDI Satisfied? (Y/y)", "in Y, y", *!Response, *!S, *!NbErr)

    !Question  = "MDI to Close Decom File (DONE/done)"
    !Check     = "in DONE, done"
    @AskStr (!Question, !Check, *!Response, *!S, *!NbErr)

    @SendCommand ("MBLTOPNL", "")

    !Question  = "MDI to Open Decom File (DONE/done)"
    !Check     = "in DONE, done"
    @AskStr (!Question, !Check, *!Response, *!S, *!NbErr)

    @AskStr ("Is MDI Satisfied? (Y/y)", "in Y, y", *!Response, *!S, *!NbErr)

    PERFORM/NO MDI_JT , "jtnormal", "no"
    PERFORM/NO MDI_LFD, "lfdclose", "no"
    PERFORM/NO MDI_EMI, "emipict1", "no"
    PERFORM/NO MDI_EMI, "emipict2", "no"

--    @SendCommand ("MBPWIPON", "")

--    !GM_I0 = 40 
--    !GM_I9 = 7 

--    @SendCommand ("MBIPLBIC", "4,4")
--    @WaitTime    ( "00h00m07s" , *!S )
--    @SendCommand ("MBIPRSAL", "")

--    !Question  = "MDI to Open Decom File (DONE/done)"
--    !Check     = "in DONE, done"
--    @AskStr (!Question, !Check, *!Response, *!S, *!NbErr)

--    EXECUTE MDI_INTRRPT , "Type 'YES' when MDI is satisfied"
--    @WaitTime ("00h00m05s" , *!S)

--    PERFORM/NO MDI_LLT, "llttaps", "no"

--    !GM_Interrupt = 0 

--   !Question  = "MDI to Close Decom File (DONE/done)"
--    !Check     = "in DONE, done"
--    @AskStr (!Question, !Check, *!Response, *!S, *!NbErr)

    Cflog
    !Title  = "-END OF SUSCEPTIBILITY TEST"
    @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
---------------------------------------------------------------------------------+