--+----------------------------------------------------------------------------+
--+                        SOHO Project -- Control File
--+                        ----------------------------
--+
--+ Name        : MDI_TH_PARAM
--+ Purpose     : To print MDI currents and temperatures.                                    
--+
--+ Sub_system  : PLM
--+ Drawing No  : 3137-ZA042-SCB  Issue : A/00
--+ Project No  : SH-MAR-SW-70224
--+ Origin      : Fr 
--+ Test Spec   : N/A
--+ Author      : Ph. IATRINO
--+
--+----------------------------------------------------------------------------+
--+ Principle   :
--+ ---------
--+
--+  This Control File prints all currents and temperatures when it is required.
--+
--+
--+ Passed parameters :
--+ -----------------
--+
--+      !MaxTime = (Max. No. of updates allowed using condition 
--+                  for compatibility only).
--+
--+
--+ Conditions :
--+ ----------
--+
--+      NONE.
--+
--+
--+ Sub-Control Files :
--+ -----------------
--+
--+      MDI_TH_PAR01.	
--+
--+
--+ History :
--+ -------
--+   issue SIC Note Time   Date      Name/Updates
--+   +---+ +------+ +---+  +------+ +-----------------------------------------+
--+    1.0    495    09:02  17/11/94 Ph. IATRINO    -- Creation for TB/TV.
--+
-------------------------------------------------------------------------------+
Common
  Var
    Bool    !GZ_Window                   -- Open window flag (on CF start)
    Bool    !GZ_Spool                    -- Automatic Spool (at End of CF exec)
    Bool    !GZ_Test                     -- UNUSED
End common
-------------------------------------------------------------------------------+
Extern
   Cfile       MDI_TH_PAR01

   Procedure   Message, ExitCf, CheckArgInt
End Extern
-------------------------------------------------------------------------------+
Program MDI_TH_PARAM, Unique
  DefArg
    int    !MaxTime = 0     -- Maximum number of updates allowed using condition
  End Defarg

  Var
    int      !NoRetry = -1           -- Maximum number of retries allowed (Dump)
    int      !NbErr   = 0            -- Number of errors
    str(8)   !Print                  -- Tempo argument 3
    str(80)  !S       = &-80s(" ")   -- Tempo string
    Str(10)  !Phase   = " "          -- Phase label (e.g. 3.3.1.2)
    Str(49)  !Title   = ""           -- CF State
    str(3)   !ExpName = "MDI"

  Main

    Cflog
    @CheckArgInt (!MaxTime, "Arg2 as max. no of update", \
                            ">= 0  And  <=30", *!NbErr)

    If (!NbErr <> 0) Then
       @ExitCf(!NbErr)
       @Message("DC", "date", "MDI", " ", "-Incorrect Argument", *!S)
       Halt
       Return !Rstat
    End If


    PERFORM/NO MDI_TH_PAR01


    @ExitCF(!NbErr)
    Cflog
    Return !Rstat

End Program
-------------------------------------------------------------------------------+