--+----------------------------------------------------------------------------+
--+                        SOHO Project -- Control File
--+                        ----------------------------
--+
--+ Name        : MDI_PARAM_02
--+ Purpose     : To print MDI parameter (No Cond.).                                    
--+
--+ Sub_system  : PLM
--+ Drawing No  : 3137-ZA042-SCB  Issue : A/00
--+ Project No  : SH-MAR-SW-70224
--+ Origin      : UK 
--+ Test Spec   : N/A
--+ Author      : JP. Prat
--+
--+----------------------------------------------------------------------------+
--+ Principle   :
--+ ---------
--+
--+ This Control File;
--+
--+     - is called from MDI_PARAM.
--+
--+     - sets up a text array in the correct format for passing to Control File
--+       PLM_CHECK. The array comprises:
--+             - a Title line.
--+             - a list of up to 50 MDI database parameters to be checked.
--+             - an "End" line.
--+
--+     - calls PLM_CHECK, using the array as its first parameter and a maximum
--+       retry value of -1 as its second parameter unless a different retry
--+       value was supplied to this Control File.
--+
--+     - repeats the above two steps as many times as necessary to pass all of
--+       the parameters in the required group to PLM_CHECK.
--+
--+ Passed parameters :
--+ -----------------
--+
--+		None
--+
--+	Sub-Control Files:
--+		PLM_CHECK
--+	
--+
--+ Prerequisites :
--+ -------------
--+     None
--+
--+ History :
--+ -------
--+   issue SIC Note Time   Date      Name/Updates
--+   +---+ +------+ +---+  +------+ +-----------------------------------------+
--+    1.0    386    10:52  04/05/94 JP. Prat           First attempt.
--+    2.0    482    14:07   5/10/94 Ph. IATRINO        Update with FM DataBase.
-------------------------------------------------------------------------------+
Common
  Var
    str(80) !GM_Param(52)                -- Parameter array
    int     !GM_ParIx    = 0             -- Index to get Parameter from array
    int     !GM_MaxItem  = 52            -- Maximum number of array items
    int     !GM_MaxRetry = -1            -- Maximum number of retries allowed
End common
-------------------------------------------------------------------------------+
Extern
   Cfile  PLM_CHECK
End Extern
-------------------------------------------------------------------------------+
Program MDI_PARAM_02
  Var
    int      !NbErr   = 0     -- Number of errors
    int      !NoRetry = -1    -- Maximum number of retries allowed (Dump)

  Main
--
--.     After opening a window on the screen for the output to be displayed in,
--.     the maximum retry value is set up, then the first group of parameters is
--.     defined by passing them in turn to sub-procedure PutP, preceded by
--.     "Title" and followed by "End". Control File PLM_CHECK is then called by
--.     calling sub-procedure Check. Further groups of parameters are
--.     processed in the same way before four blank lines are inserted into the
--.     Log File. A halt instruction is included to enable the user to print the
--.     Log File before the window is closed (NB This will be unnecessary when
--.     the EXTRACT instruction has been made to work correctly). !Rstat is
--.     returned to any calling Control File.
--

    !GM_MaxRetry = !NoRetry

--
-- Parameters without condition
-- 
    @PutP("Title |Monitoring parameters of : MDI, Set 5 ")

    @PutP("Check |MKDPL9ST|R|DEP Level 9 St  |2x  |0")        -- No Cond. 
    @PutP("Check |MKDPLTST|R|DEP Debug En    |2x  |0")        -- No Cond. 
    @PutP("Check |MKDPM0OS|R|Offset for MTM0 |2x  |0")        -- No Cond. 
    @PutP("Check |MKDPM1OS|R|Offset for MTM1 |2x  |0")        -- No Cond. 
    @PutP("Check |MKDPMD  |R|DEP Mode        |2x  |0")        -- No Cond. 
    @PutP("Check |MKDPMERR|R|Corr DEP mem err|2x  |0")        -- No Cond. 
    @PutP("Check |MKDPOCVR|R|Op Conf Tble Ver|2x  |0")        -- No Cond. 
    @PutP("Check |MKDPOLVR|R|OCT Lookup Vers |2x  |0")        -- No Cond. 
    @PutP("Check |MKDPPXST|R|Udf DEP St Byte |2x  |0")        -- No Cond. 
    @PutP("Check |MKDPRSTN|R|DEP Restart Nbr |4x  |0")        -- No Cond. 

    @PutP("Check |MKDPSPE1|R|DEP Spl Er Byte1|2x  |0")        -- No Cond. 
    @PutP("Check |MKDPSPE2|R|DEP Spl Er Byte2|2x  |0")        -- No Cond. 
    @PutP("Check |MKDPSPE3|R|DEP Spl Er Byte3|2x  |0")        -- No Cond. 
    @PutP("Check |MKDPSPE4|R|DEP Spl Er Byte4|2x  |0")        -- No Cond. 
    @PutP("Check |MKDPSPEC|R|DEP Spc Err Code|2x  |0")        -- No Cond. 
    @PutP("Check |MKDPSQEB|R|DEP Seq Err Bits|4x  |0")        -- No Cond. 
    @PutP("Check |MKDPSQPN|R|DEP Seq List Pch|2x  |0")        -- No Cond. 
    @PutP("Check |MKDPSQPT|R|DEP Seq Pter    |4x  |0")        -- No Cond. 
    @PutP("Check |MKDPSQST|R|DEP Seq St      |4x  |0")        -- No Cond. 
    @PutP("Check |MKDPSQVR|R|DEP Seq List Ver|2x  |0")        -- No Cond. 

    @PutP("Check |MKDPSWPN|R|DEP Soft Patch  |2x  |0")        -- No Cond. 
    @PutP("Check |MKDPSWVR|R|DEP Soft Version|2x  |0")        -- No Cond. 
    @PutP("Check |MKDPUN1 |R|Udf DEP St Byte |2x  |0")        -- No Cond. 
    @PutP("Check |MKDPUN2 |R|Udf DEP St Byte |2x  |0")        -- No Cond. 
    @PutP("Check |MKFDTIME|R|Door Move Time  |3x  |0")        -- No Cond. 
    @PutP("Check |MKHCMSPT|R|                |1x  |0")        -- No Cond. 
    @PutP("Check |MKHOPSPT|R|Opt Pck Ht St Pt|2x  |0")        -- No Cond. 
    @PutP("Check |MKHPOMTW|R|Pr Ov Monit Time|1x  |0")        -- No Cond. 
    @PutP("Check |MKHPOSPT|R|Pr Ov Set Point |1x  |0")        -- No Cond. 
    @PutP("Check |MKHROCBH|R|Bkp Ov Cont B H |2x  |0")        -- No Cond. 

    @PutP("Check |MKHROCBL|R|Bkp Ov Cont B L |2x  |0")        -- No Cond. 
    @PutP("Check |MKHROCPT|R|Bkp Ov Con Point|2x  |0")        -- No Cond. 
    @PutP("Check |MKHRODBH|R|Bkp OvDead Ba Hi|2x  |0")        -- No Cond. 
    @PutP("Check |MKHRODBL|R|Bkp OvDead B L  |2x  |0")        -- No Cond. 
    @PutP("Check |MKHROSPT|R|Bkp Ov Set Point|2x  |0")        -- No Cond. 
    @PutP("Check |MKIPBANK|R|Im Proc Bank    |2x  |0")        -- No Cond. 
    @PutP("Check |MKIPDMP1|R|Undefined       |4x  |0")        -- No Cond. 
    @PutP("Check |MKIPDMP2|R|Undefined       |4x  |0")        -- No Cond. 
    @PutP("Check |MKIPDMP3|R|Undefined       |4x  |0")        -- No Cond. 
    @PutP("Check |MKIPDMP4|R|Undefined       |4x  |0")        -- No Cond. 

    @PutP("Check |MKIPDMP5|R|Undefined       |4x  |0")        -- No Cond. 
    @PutP("Check |MKIPDMPS|R|Undefined       |4x  |0")        -- No Cond. 
    @PutP("Check |MKIPECNT|R|Udf DEP St Byte |2x  |0")        -- No Cond. 
    @PutP("Check |MKIPERST|R|Image Proc Er St|4x  |0")        -- No Cond. 
    @PutP("Check |MKIPFWPN|R|IP Firmwar Patch|2x  |0")        -- No Cond. 
    @PutP("Check |MKIPFWVR|R|IP Firmware Vers|2x  |0")        -- No Cond. 
    @PutP("Check |MKIPIQPN|R|IP Instruc Patch|2x  |0")        -- No Cond. 
    @PutP("Check |MKIPIQVR|R|IP Inst Qe Vers |2x  |0")        -- No Cond. 
    @PutP("Check |MKIPMERR|R|Corr IP mem err |2x  |0")        -- No Cond. 
    @PutP("Check |MKIPSTAT|R|Im Proc St Byte |2x  |0")        -- No Cond. 

    @PutP("End ")
    @Check(*!NbErr)
-- 
-- Parameters without condition
-- 
    @PutP("Title |Monitoring parameters of : MDI, Set 6 ")

    @PutP("Check |MKIPTAH1|R|                |4x  |0")        -- No Cond. 
    @PutP("Check |MKIPTAH2|R|                |4x  |0")        -- No Cond. 
    @PutP("Check |MKIPTAL1|R|                |4x  |0")        -- No Cond. 
    @PutP("Check |MKIPTAL2|R|                |4x  |0")        -- No Cond. 
    @PutP("Check |MKIPTID1|R|                |4x  |0")        -- No Cond. 
    @PutP("Check |MKIPTID2|R|                |4x  |0")        -- No Cond. 
    @PutP("Check |MKIPTNE1|R|                |4x  |0")        -- No Cond. 
    @PutP("Check |MKIPTNE2|R|                |4x  |0")        -- No Cond. 
    @PutP("Check |MKIPTVR1|R|                |4x  |0")        -- No Cond. 
    @PutP("Check |MKIPTVR2|R|                |4x  |0")        -- No Cond. 

    @PutP("Check |MKLTAOS |R|Limb Tk A off   |2x  |0")        -- No Cond. 
    @PutP("Check |MKLTBOS |R|Limb Tk B off   |2x  |0")        -- No Cond. 
    @PutP("Check |MKLTCOS |R|Limb Tk C off   |2x  |0")        -- No Cond. 
    @PutP("Check |MKLTSTAT|R|Limb Tk St Reg  |2x  |0")        -- No Cond. 
    @PutP("Check |MKLTXGN |R|Limb Tk X gain  |2x  |0")        -- No Cond. 
    @PutP("Check |MKLTXOFS|R|Limb Tk X off   |2x  |0")        -- No Cond. 
    @PutP("Check |MKLTYGN |R|Limb Tk Y gain  |2x  |0")        -- No Cond. 
    @PutP("Check |MKLTYOFS|R|Limb Tk Y off   |2x  |0")        -- No Cond. 
    @PutP("Check |MKM1POS |R|Mich Tun Motor 1|2x  |0")        -- No Cond. 
    @PutP("Check |MKM2POS |R|Mich Tun Motor 2|2x  |0")        -- No Cond. 

    @PutP("Check |MKOVNMAX|R|Fter Ov Max Temp|2x  |0")        -- No Cond. 
    @PutP("Check |MKPAPOS |R|Polar AnalWheel |2x  |0")        -- No Cond. 
    @PutP("Check |MKPWAER |R|App I/F P RAW   |1x  |0")        -- No Cond. 
    @PutP("Check |MKSHENC |R|Undefined Byte 7|2x  |0")        -- No Cond. 
    @PutP("Check |MKSHNEXP|R|Shut Nom Expo   |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQADR1|R|Seq Add of Fra1 |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQADR2|R|Seq Ad Frame 2  |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQADR3|R|Seq Add Frame 3 |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQADR4|R|Seq Ad Frame4   |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQAM1 |R|AM1 Pos and St  |4x  |0")        -- No Cond. 

    @PutP("Check |MKSQAM2 |R|AM2 Pos and St  |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQC1  |R|C1 Position     |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQC1A1|R|CAL1 Pos Fra 1  |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQC1A2|R|CAL1 Pos Frame 2|2x  |0")        -- No Cond. 
    @PutP("Check |MKSQC1A3|R|CAL1 Pos Frame 3|2x  |0")        -- No Cond. 
    @PutP("Check |MKSQC1A4|R|CAL1PosFrame4   |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQC2  |R|C2 Position     |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQC2A1|R|CAL2 Pos Fra1   |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQC2A2|R|CAL2 Pos Frame 2|2x  |0")        -- No Cond. 
    @PutP("Check |MKSQC2A3|R|CAL2 Pos Frame 3|2x  |0")        -- No Cond. 

    @PutP("Check |MKSQC2A4|R|CAL2 Pos Frame4 |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQFQNE|R|Nb Fra Qe Ent   |1x  |0")        -- No Cond. 
    @PutP("Check |MKSQFQPP|R|Fr Qu Point Pckt|1x  |0")        -- No Cond. 
    @PutP("Check |MKSQFQRP|R|Fra Que Poi Time|1x  |0")        -- No Cond. 
    @PutP("Check |MKSQFQRT|R|Ref Te occ pcket|1x  |0")        -- No Cond. 
    @PutP("Check |MKSQFRM |R|Frame Nb in Seq |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQHTRS|R|Ht St=bts 24 -27|8x  |0")        -- No Cond. 
    @PutP("Check |MKSQID  |R|Seq Identifier  |8x  |0")        -- No Cond. 
    @PutP("Check |MKSQINTC|R|Interval Counter|4x  |0")        -- No Cond. 
    @PutP("Check |MKSQLTST|R|Limb Tarcker St |2x  |0")        -- No Cond. 

    @PutP("End ")
    @Check(*!NbErr)
-- 
-- Parameters without condition
-- 
    @PutP("Title |Monitoring parameters of : MDI, Set 7 ")

    @PutP("Check |MKSQLTXY|R|LT Er= bts 73-76|8x  |0")        -- No Cond. 
    @PutP("Check |MKSQM1A1|R|MTM1 Pos Fra 1  |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQM1A2|R|MTM1Pos Frame 2 |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQM1A3|R|MTM1 Pos Frame 3|2x  |0")        -- No Cond. 
    @PutP("Check |MKSQM1A4|R|MTM1 Pos Frame4 |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQM2A1|R|MTM2 Pos Fra 1  |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQM2A2|R|MTM2 Pos Frame 2|2x  |0")        -- No Cond. 
    @PutP("Check |MKSQM2A3|R|MTM2 Pos Frame 3|2x  |0")        -- No Cond. 
    @PutP("Check |MKSQM2A4|R|MTM2 Pos Frame4 |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQMSTA|R|Misc St= byte 21|2x  |0")        -- No Cond. 

    @PutP("Check |MKSQNUM |R|Seq Number      |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQPAA1|R|PAW Pos Fra 1   |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQPAA2|R|PAW Pos Frame 2 |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQPAA3|R|PAW Pos Frame 3 |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQPAA4|R|PAW Pos Frame4  |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQREF0|R|LOBT Reference 0|2x  |0")        -- No Cond. 
    @PutP("Check |MKSQREF1|R|LOBT Reference 1|2x  |0")        -- No Cond. 
    @PutP("Check |MKSQREF2|R|LOBT Reference 2|2x  |0")        -- No Cond. 
    @PutP("Check |MKSQREF3|R|LOBT Reference 3|2x  |0")        -- No Cond. 
    @PutP("Check |MKSQREF4|R|LOBT Reference 4|2x  |0")        -- No Cond. 

    @PutP("Check |MKSQREF5|R|LOBT Reference 5|2x  |0")        -- No Cond. 
    @PutP("Check |MKSQRG0 |R|Seq Register 0  |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQRG1 |R|Seq Register 1  |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQRG2 |R|Seq Register 2  |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQRG3 |R|Seq Register 3  |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQRG4 |R|Seq Register 4  |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQRG5 |R|Seq Register 5  |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQRG6 |R|Seq Register 6  |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQRG7 |R|Seq Register 7  |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQRG8 |R|Seq Register 8  |4x  |0")        -- No Cond. 

    @PutP("Check |MKSQRG9 |R|Seq Register 9  |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQRGA |R|Seq Register A  |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQRGB |R|Seq Register B  |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQRGC |R|Seq Register C  |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQRGD |R|Seq Register D  |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQRGE |R|Seq Register E  |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQRGF |R|Seq Register F  |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQRT1 |R|RelTime Frame 1 |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQRT2 |R|Rel Tme Frame 2 |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQRT3 |R|Rel Tme Frame 3 |4x  |0")        -- No Cond. 

    @PutP("Check |MKSQRT4 |R|Rel Time Fra4   |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQSHC1|R|Shut Cl Ti Fra 1|4x  |0")        -- No Cond. 
    @PutP("Check |MKSQSHC2|R|Sh Cl Tme Fra 2 |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQSHC3|R|ShCl Time Fra3  |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQSHC4|R|Sh Cl Tme Fra4  |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQSHO1|R|Shut Op Ti Fra 1|4x  |0")        -- No Cond. 
    @PutP("Check |MKSQSHO2|R|Sh Op Tme Fr 2  |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQSHO3|R|Sh Op Time Fra3 |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQSHO4|R|Sh Op Tme Fra4  |4x  |0")        -- No Cond. 
    @PutP("Check |MKSQUN11|R|Undefined       |2x  |0")        -- No Cond. 

    @PutP("End ")
    @Check(*!NbErr)
-- 
-- Parameters without condition
-- 
    @PutP("Title |Monitoring parameters of : MDI, Set 8 ")

    @PutP("Check |MKSQUN12|R|Undefined       |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQUN13|R|Undefined       |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQUN14|R|Undefined       |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQUN21|R|Undefined       |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQUN22|R|Undefined       |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQUN23|R|Undefined       |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQUN24|R|Undefined       |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQUN31|R|Undefined       |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQUN32|R|Undefined       |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQUN33|R|Undefined       |2x  |0")        -- No Cond. 

    @PutP("Check |MKSQUN34|R|Undefined       |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQUN41|R|Undefined       |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQUN42|R|Undefined       |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQUN43|R|Undefined       |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQUN44|R|Undefined       |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQUN51|R|Undefined       |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQUN52|R|Undefined       |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQUN53|R|Undefined       |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQUN54|R|Undefined       |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQUN61|R|Undefined       |2x  |0")        -- No Cond. 

    @PutP("Check |MKSQUN62|R|Undefined       |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQUN63|R|Undefined       |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQUN64|R|Undefined       |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQUN71|R|Undefined       |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQUN72|R|Undefined       |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQUN73|R|Undefined       |2x  |0")        -- No Cond. 
    @PutP("Check |MKSQUN74|R|Undefined       |2x  |0")        -- No Cond. 
    @PutP("Check |MKTCCNT |R|Command counter |2x  |0")        -- No Cond. 
    @PutP("Check |MKTCIIE |R|Intra-Inst Event|1x  |0")        -- No Cond. 
    @PutP("Check |MKTCIIM |R|Intra-InstMaster|1x  |0")        -- No Cond. 

    @PutP("Check |MKTCIIX |R|Int-Inst X Coord|3x  |0")        -- No Cond. 
    @PutP("Check |MKTCIIY |R|Int-Inst Y Coord|3x  |0")        -- No Cond. 
    @PutP("Check |MKTCLNVC|R|MLA Latest NVCB |4x  |0")        -- No Cond. 
    @PutP("Check |MKTCNVCB|R|Non-val Cd Blks |1x  |0")        -- No Cond. 
    @PutP("Check |MKTCNVER|R|Er latest NVCB  |2x  |0")        -- No Cond. 
    @PutP("Check |MKTCVCB |R|Valid Cd Blocks |1x  |0")        -- No Cond. 
    @PutP("Check |MKTMOBTF|R|OBT Fract. Sec. |8x  |0")        -- No Cond. 
    @PutP("Check |MKTMOBTS|R|OBT Seconds     |8x  |0")        -- No Cond. 
    @PutP("Check |MKUNDO1 |R|Undefined Byte 8|2x  |0")        -- No Cond. 
    @PutP("Check |MKUNDO2 |R|Undefined Byte 9|2x  |0")        -- No Cond. 

    @PutP("Check |MSTCTOGN|R|TC Toggle (N)   |1X  |0")        -- No Cond. 
    @PutP("Check |MSTCTOGR|R|TC Toggle (R)   |1X  |0")        -- No Cond. 

    @PutP("End ")
    @Check(*!NbErr)

    Cflog
    @ExitCF(!NbErr)
    Return !Rstat

End Program

-------------------------------------------------------------------------------+
Procedure Check(Int *!NbErr)
--.
--.     Calls the PLM_CHECK Control File, using the GM_Param array
--.     previously set up by PutP (see above), and the maximum retry
--.     value set up in the main section of this Control File. On
--.     completion, the array pointer is reset to zero.
--.
  Main

    Perform/No PLM_CHECK, !GM_Param(), !GM_MaxRetry
    @UpdateErr(*!NbErr)
--
    !GM_ParIx = 0
        
  Return
End Procedure
-------------------------------------------------------------------------------+
Procedure ExitCF(Int !NbErr)
--. Update the !Rstat variable according to the number of errors.
  Main
    If !NbErr = 0 Then
       !Rstat = "Ok"
    ELSE
       !Rstat = "NOK "+&d(!NbErr)+ " Errors"
    End If
  Return
End Procedure
-------------------------------------------------------------------------------+
Procedure PutP(str(80) !Info)
--.
--.     Copies the data in !Info into the next position in the GM_Param
--.     array, then increments the array pointer. If the result points
--.     beyond the end of the array, it is reset to zero, so causing
--.     the buffer to wrap around, although this should never happen,
--.     provided the calling sequence of "Title", "Check" (50 times
--.     maximum), "End" is properly observed.
--.
  Main
    !GM_Param(!GM_ParIx)   = !Info
    If (!GM_ParIx < (!GM_MaxItem-1)) Then
      !GM_ParIx  = !GM_ParIx + 1
    Else
      !GM_ParIx = 0
    End If
  Return
End Procedure
-------------------------------------------------------------------------------+
Procedure UpdateErr(Int *!NbErr)
--.
--.     Update the !NbErr variable according to the returned !Rstat
--.     variable.
--.     Must be called after a PLM 'perform ControlFile'
--.     Example :
--.              Perform PLM_LOBT, ...
--.              @UpdateErr(*!NbErr)
--.     
--.
  Main
    If (!Rstat <> "Ok") then
       !NbErr = !NbErr + Int(Val(SplitStr(!RStat, " ", 2)))
    End If
  Return
End Procedure
-------------------------------------------------------------------------------+