--+------------------------------------------------------------------------+
--+                        SOHO Project -- Control File
--+                        ----------------------------
--+
--+ Name        : MDI_RCS , !Print
--+ Purpose     : EXPERIMENT POWER CROSS-STRAP TEST
--+                   
--+ 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 powers up the MDI Instrument with the Redundant 
--+   MDI Power Converters on the Primary Power interface and Primary 
--+   Telecommand and Telemetry interfaces.
--+
--+ Passed parameters :
--+ -----------------
--+   !Print    : CF Log print indicator ( "yes" (default) | "no" ).
--+
--+ Prerequisites :
--+ -------------
--+ MDI Experiment Sub-System Power is OFF.
--+
--+ History :
--+ -------
--+   Issue SIC Note Time   Date      Name / Updates
--+   +---+ +------+ +---+  +-------+ +-------------------------------------+
--+   1/00   289     19:50  07/02/94  A.J. TURK -- Conversion from MDI language.
--+   1/02   360     10:50  18/04/94  Ed COBB   -- FM Rationalization 
--+   1/03   393     08:29  18/05/94  Ed COBB   -- MDI Updates 
--+   1/04   537     15:05  10/01/95  Ed COBB   -- MDI CF Corrections 
--+   1/05   572     18:28  17/03/95 O. MICHEL  -- 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_LRCONS , MDI_LIP , MDI_LCM, MDI_LMCH , MDI_MODE
    Cfile   MDI_LSEQ , MDI_LOFF , MDI_IPKA , MDI_IP
    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_RCS , 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      = "" 
    Str(80)     !Question   = ""
    Str(80)     !Check      = ""
    Str(80)     !LM_S0      = ""
    Int         !NbErr      = 0

Main
    @OpenWindow()

    !Title   = "-PRIMARY POWER CROSS STRAP TEST: 'MDI_RCS'"
    @Message( "DCL", "date", !ExpName, !Phase, !Title, *!S)

    !Title = "~Redundant Converters on S/C Bus A." 
    @Message( "DC" , "date" , !ExpName , !Phase , !Title , *!S )

    !GM_NbErr = 0

    PERFORM/NO MDI_LRCONS , "lrconsca" , "no"
    PERFORM/NO MDI_LIP    , "lipona"   , "no"
    PERFORM/NO MDI_LCM    , "lcmon"    , "no"
    PERFORM/NO MDI_LMCH   , "lmchson"  , "no"
    PERFORM/NO MDI_IP     , "ipwload"  , "no"

    !Question =  "MDI to Open Decom File(Y)" 
    !Check = "in Y, y"
    @AskStr ( !Question , !Check , *!LM_S0 , *!S , *!NbErr )

    PERFORM/NO MDI_IPKA   , "ipkaltst" , "no"

    !Question =  "MDI to Close Decom File(Y)?" 
    !Check = "in Y, y"
    @AskStr ( !Question , !Check , *!LM_S0 , *!S , *!NbErr )

    PERFORM/NO MDI_MODE   , "lobsmode" , "no"

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

    PERFORM/NO MDI_LIP , "liplbic5" , "no"

    @SendCommand ( "MBPWIPON" , "" )  
    @WaitTime    ( "00h00m15s" , *!S )

    !Question =  "MDI to Open Decom File(Y)" 
    !Check = "in Y, y"
    @AskStr ( !Question , !Check , *!LM_S0 , *!S , *!NbErr )

    PERFORM/NO MDI_LCM    , "lcmtap"   , "no"
    PERFORM/NO MDI_LSEQ   , "lsqcom" , "no"

    !Question =  "MDI to Close Decom File(Y)?" 
    !Check = "in Y, y"
    @AskStr ( !Question , !Check , *!LM_S0 , *!S , *!NbErr )

    PERFORM/NO MDI_LOFF   , "loffsca"  , "no"

    Cflog
    !Title   = "-END PRIMARY POWER CROSS STRAP TEST: 'MDI_RCS'"
    @Message( "DCL", "date", !ExpName, !Phase, !Title, *!S)

    @ExitCF ( !GM_NbErr )
    @PrintCF ( !ExpName , !Print )
    Return !Rstat
End Program
----------------------------------------------------------------------------------<
Procedure PrintCF( str(3) !ExpName, str(8) !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
-----------------------------------------------------------------------