--+--------------------------------------------------------------------------------+
--+ SOHO Project -- Control File
--+ ----------------------------
--+
--+ Name : MDI_STRDYN2 , !Proc_s , !Print
--+ Purpose : (See Procedure headers)
--+
--+ Sub_system : PLM
--+ Drawing No : 3137-ZA042-SCB Issue : A/00
--+ Project No : SH-MAR-SW-70224
--+ Origin : F
--+ Author : Ph. IATRINO
--+--------------------------------------------------------------------------------+
--+ Principle :
--+ ---------
--+ Holding CF for a group of related Procedures, originally written in
--+ MDI's own Control File language.
--+
--+ Passed parameters :
--+ -----------------
--+ !Proc_s : Name of required Procedure.
--+ !Print : CF Log print indicator ( "yes" (default) | "no" ).
--+
--+ Prerequisites :
--+ -------------
--+ -
--+
--+ History :
--+ -------
--+ Issue SIC Note Time Date Name/Updates
--+ +---+ +------+ +---+ +------+ +----------------------------------------------+
--+ 1/00 611 13:41 21/06/95 Ph. IATRINO -- New On Board S/W.
--+
--+--------------------------------------------------------------------------------+
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_NbErr -- MDI Global Error Count
End Common
-----------------------------------------------------------------------------------+
Extern
Cfile PLM_BLOCK
Group MWTM , PWP12TM
Procedure WaitAna , WaitDig , WaitReg , WaitTime
Procedure DispMess , ExitCF , Message , OpenWindow
Procedure PrintAna , PrintDig , PrintReg , PrintParam
Procedure CheckArgReal, CheckArgStr, CheckArgInt
Procedure AskReal , AskStr , AskInt
Procedure CheckAna , CheckDig , CheckReg
Procedure Lower , Upper
Procedure SendCommand
End Extern
-----------------------------------------------------------------------------------+
Program MDI_STRDYN2 , Unique
Defarg
Str(80) !Proc_s
Str(3) !Print = "yes"
End Defarg
Var
Str( 3) !ExpName = "MDI"
Str(49) !Title = " "
Str(80) !S = &80s(" ")
Int !NbErr = 0
Main
@OpenWindow()
Select !Proc_s
Case "mkdps"
@mkdps()
Default
!Title = "*ERROR: UNKNOWN PROCEDURE: "+!Proc_s
@Message("DCL" , "date" , !ExpName , " " , !Title , *!S)
Halt
!Title = "*Operator CONTinue"
@Message("DC" , "date" , !ExpName , " " , !Title , *!S)
Return !Rstat
End Select
@ExitCF (!NbErr)
@PrintCF (!ExpName , !Print )
Return !Rstat
End Program
-----------------------------------------------------------------------------------+
Procedure mkdps ()
Var
Str( 3) !ExpName = "MDI"
Str(10) !Phase = " "
Str(49) !Title = " "
Str(80) !S = &80s(" ")
Main
!Title = "-EXECUTING PROCUDURE: mkdps."
@Message ("DCL", "date", !ExpName, !Phase, !Title, *!S)
@varcmd ("MBIPLDIN", "0x0154")
@varcmd ("MBIPCMD", "0x0091,0x0100,0x015A,0x0C20,0x051C")
@varcmd ("MBIPCMD", "0x0091,0x0103,0x01AE,0x0C00,0x0001,0x011C")
@varcmd ("MBIPCMD", "0x0091,0x0107,0x01AE,0x0C00,0x0004,0x012B")
@varcmd ("MBIPCMD", "0x0091,0x010B,0x01AE,0x0C00,0x0005,0x013E")
@varcmd ("MBIPCMD", "0x0091,0x010F,0x01AE,0x0C00,0x0008,0x014B")
@varcmd ("MBIPCMD", "0x0091,0x0113,0x01AE,0x0C00,0x0013,0x014D")
@varcmd ("MBIPCMD", "0x0091,0x0117,0x01AE,0x0C00,0x0014,0x0169")
@varcmd ("MBIPCMD", "0x0091,0x011B,0x01FC")
@varcmd ("MBIPCMD", "0x0091,0x011C,0x0186,0x0134,0x0000,0x000C")
@varcmd ("MBIPCMD", "0x0091,0x0120,0x0140,0x008F,0x0010")
@varcmd ("MBIPCMD", "0x0091,0x0123,0x0190,0x0088")
@varcmd ("MBIPCMD", "0x0091,0x0125,0x0140,0x0087,0x0010")
@varcmd ("MBIPCMD", "0x0091,0x0128,0x0194,0x0080")
@varcmd ("MBIPCMD", "0x0091,0x012A,0x01FC")
@varcmd ("MBIPCMD", "0x0091,0x012B,0x015A,0x0C05,0x013A")
@varcmd ("MBIPCMD", "0x0091,0x012E,0x01A6,0x4000,0x013A")
@varcmd ("MBIPCMD", "0x0091,0x0131,0x01AE,0x0051,0x0000,0x013A")
@varcmd ("MBIPCMD", "0x0091,0x0135,0x01E6")
@varcmd ("MBIPCMD", "0x0091,0x0136,0x0140,0x0052,0x0001")
@varcmd ("MBIPCMD", "0x0091,0x0139,0x01FC")
@varcmd ("MBIPCMD", "0x0091,0x013A,0x0140,0x0052,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x013D,0x01FC")
@varcmd ("MBIPCMD", "0x0091,0x013E,0x015A,0x0052,0x0147")
@varcmd ("MBIPCMD", "0x0091,0x0141,0x019A,0x0049,0x4000,0x4800,0x0206,0x0216")
@varcmd ("MBIPCMD", "0x0091,0x0147,0x0140,0x0052,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x014A,0x01FC")
@varcmd ("MBIPCMD", "0x0091,0x014B,0x01E6")
@varcmd ("MBIPCMD", "0x0091,0x014C,0x01FC")
@varcmd ("MBIPCMD", "0x0091,0x014D,0x01B2,0x0320,0x0008,0x0514,0x0000,0x0514")
@varcmd ("MBIPCMD", "0x0091,0x0153,0x0800,0x0000,0x2800,0x0002,0x007F")
@varcmd ("MBIPCMD", "0x0091,0x0158,0x017C,0x0320")
@varcmd ("MBIPCMD", "0x0091,0x015A,0x01B2,0x0328,0x0009,0x0514,0x0000,0x0514")
@varcmd ("MBIPCMD", "0x0091,0x0160,0x0800,0x0000,0x3000,0x0004,0x007F,0x0009")
@varcmd ("MBIPCMD", "0x0091,0x0166,0x017E,0x0328")
@varcmd ("MBIPCMD", "0x0091,0x0168,0x01FC")
@varcmd ("MBIPCMD", "0x0091,0x0169,0x018E,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x016B,0x01B2,0x032B,0x0008,0x0514,0x1000,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x0171,0x0800,0x0400,0x0400,0x0410,0x0045")
@varcmd ("MBIPCMD", "0x0091,0x0176,0x017A,0x032B")
@varcmd ("MBIPCMD", "0x0091,0x0178,0x01B2,0x0333,0x0008,0x0514,0x1800,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x017E,0x2000,0x0400,0x0400,0x0410,0x0045")
@varcmd ("MBIPCMD", "0x0091,0x0183,0x017A,0x0333")
@varcmd ("MBIPCMD", "0x0091,0x0185,0x01B2,0x0335,0x000A,0x0000,0x2000,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x018B,0x3000,0x0000,0x0800,0x0000,0x3800,0x003F")
@varcmd ("MBIPCMD", "0x0091,0x0191,0x00C8")
@varcmd ("MBIPCMD", "0x0091,0x0192,0x0182,0x0335")
@varcmd ("MBIPCMD", "0x0091,0x0194,0x0182,0x0335")
@varcmd ("MBIPCMD", "0x0091,0x0196,0x015A,0x0C05,0x019D")
@varcmd ("MBIPCMD", "0x0091,0x0199,0x015C,0x0DFF")
@varcmd ("MBIPCMD", "0x0091,0x019B,0x0156,0x0291")
@varcmd ("MBIPCMD", "0x0091,0x019D,0x0144,0x0BEC,0x0444,0x0008")
@varcmd ("MBIPCMD", "0x0091,0x01A1,0x01D2,0x0444")
@varcmd ("MBIPCMD", "0x0091,0x01A3,0x0144,0x0430,0x0340,0x0008")
@varcmd ("MBIPCMD", "0x0091,0x01A7,0x019E,0x0340")
@varcmd ("MBIPCMD", "0x0091,0x01A9,0x019E,0x0340")
@varcmd ("MBIPCMD", "0x0091,0x01AB,0x019E,0x0340")
@varcmd ("MBIPCMD", "0x0091,0x01AD,0x019E,0x0340")
@varcmd ("MBIPCMD", "0x0091,0x01AF,0x019E,0x0340")
@varcmd ("MBIPCMD", "0x0091,0x01B1,0x0144,0x0BE0,0x044C,0x000C")
@varcmd ("MBIPCMD", "0x0091,0x01B5,0x01CC,0x044C")
@varcmd ("MBIPCMD", "0x0091,0x01B7,0x0144,0x0400,0x0384,0x0008")
@varcmd ("MBIPCMD", "0x0091,0x01BB,0x01A0,0x0384")
@varcmd ("MBIPCMD", "0x0091,0x01BD,0x01A0,0x0384")
@varcmd ("MBIPCMD", "0x0091,0x01BF,0x01A0,0x0384")
@varcmd ("MBIPCMD", "0x0091,0x01C1,0x0144,0x0408,0x0398,0x0008")
@varcmd ("MBIPCMD", "0x0091,0x01C5,0x01A0,0x0398")
@varcmd ("MBIPCMD", "0x0091,0x01C7,0x01A0,0x0398")
@varcmd ("MBIPCMD", "0x0091,0x01C9,0x01A0,0x0398")
@varcmd ("MBIPCMD", "0x0091,0x01CB,0x0144,0x0BF4,0x0438,0x000C")
@varcmd ("MBIPCMD", "0x0091,0x01CF,0x01CC,0x0438")
@varcmd ("MBIPCMD", "0x0091,0x01D1,0x0144,0x0410,0x03B8,0x0008")
@varcmd ("MBIPCMD", "0x0091,0x01D5,0x01A0,0x03B8")
@varcmd ("MBIPCMD", "0x0091,0x01D7,0x01A0,0x03B8")
@varcmd ("MBIPCMD", "0x0091,0x01D9,0x01A0,0x03B8")
@varcmd ("MBIPCMD", "0x0091,0x01DB,0x0144,0x0418,0x03CC,0x0008")
@varcmd ("MBIPCMD", "0x0091,0x01DF,0x01A0,0x03CC")
@varcmd ("MBIPCMD", "0x0091,0x01E1,0x01A0,0x03CC")
@varcmd ("MBIPCMD", "0x0091,0x01E3,0x01A0,0x03CC")
@varcmd ("MBIPCMD", "0x0091,0x01E5,0x0144,0x0420,0x0358,0x0008")
@varcmd ("MBIPCMD", "0x0091,0x01E9,0x0178,0x0358")
@varcmd ("MBIPCMD", "0x0091,0x01EB,0x0144,0x0428,0x0370,0x0008")
@varcmd ("MBIPCMD", "0x0091,0x01EF,0x0178,0x0370")
@varcmd ("MBIPCMD", "0x0091,0x01F1,0x0156,0x01F3")
@varcmd ("MBIPCMD", "0x0091,0x01F3,0x01DE")
@varcmd ("MBIPCMD", "0x0091,0x01F4,0x01DE")
@varcmd ("MBIPCMD", "0x0091,0x01F5,0x01DE")
@varcmd ("MBIPCMD", "0x0091,0x01F6,0x01DE")
@varcmd ("MBIPCMD", "0x0091,0x01F7,0x01DE")
@varcmd ("MBIPCMD", "0x0091,0x01F8,0x01EC,0x01D0")
@varcmd ("MBIPCMD", "0x0091,0x01FA,0x015A,0x01D2,0x01FF")
@varcmd ("MBIPCMD", "0x0091,0x01FD,0x0198,0x01CC")
@varcmd ("MBIPCMD", "0x0091,0x01FF,0x01B2,0x0168,0x0009,0x0000,0x0000,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x0205,0x0004,0x0000,0x3811,0x0E00,0x0000,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x020B,0x01B2,0x0171,0x0005,0x0E00,0xBFFF,0xFFB0")
@varcmd ("MBIPCMD", "0x0091,0x0211,0x3800,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x0213,0x0198,0x0168")
@varcmd ("MBIPCMD", "0x0091,0x0215,0x0198,0x0168")
@varcmd ("MBIPCMD", "0x0091,0x0217,0x0198,0x0168")
@varcmd ("MBIPCMD", "0x0091,0x0219,0x0198,0x0168")
@varcmd ("MBIPCMD", "0x0091,0x021B,0x0198,0x0176")
@varcmd ("MBIPCMD", "0x0091,0x021D,0x0198,0x0184")
@varcmd ("MBIPCMD", "0x0091,0x021F,0x0198,0x0192")
@varcmd ("MBIPCMD", "0x0091,0x0221,0x01B2,0x01A0,0x0009,0x0000,0x0000,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x0227,0x0001,0x4740,0x3811,0x0140,0x0000,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x022D,0x01B2,0x01A9,0x0005,0x0140,0xBFFF,0xFFB4")
@varcmd ("MBIPCMD", "0x0091,0x0233,0x0140,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x0235,0x0198,0x01A0")
@varcmd ("MBIPCMD", "0x0091,0x0237,0x01B2,0x01AE,0x0009,0x0000,0x0000,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x023D,0x0001,0x4920,0x3811,0x0140,0x0000,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x0243,0x01B2,0x01B7,0x0005,0x0140,0xBFFF,0xFFB5")
@varcmd ("MBIPCMD", "0x0091,0x0249,0x0140,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x024B,0x0198,0x01AE")
@varcmd ("MBIPCMD", "0x0091,0x024D,0x01B2,0x01BC,0x0009,0x0000,0x0000,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x0253,0x0001,0x3C00,0x3811,0x0004,0x0000,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x0259,0x01B2,0x01C5,0x0005,0x0004,0xBFFF,0xFFB6")
@varcmd ("MBIPCMD", "0x0091,0x025F,0x0004,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x0261,0x0198,0x01BC")
@varcmd ("MBIPCMD", "0x0091,0x0263,0x0196")
@varcmd ("MBIPCMD", "0x0091,0x0264,0x014E,0x0001")
@varcmd ("MBIPCMD", "0x0091,0x0266,0x01CE,0x038C")
@varcmd ("MBIPCMD", "0x0091,0x0268,0x01CE,0x03A0")
@varcmd ("MBIPCMD", "0x0091,0x026A,0x01CE,0x03C0")
@varcmd ("MBIPCMD", "0x0091,0x026C,0x01CE,0x03D4")
@varcmd ("MBIPCMD", "0x0091,0x026E,0x01CE,0x0360")
@varcmd ("MBIPCMD", "0x0091,0x0270,0x01CE,0x0378")
@varcmd ("MBIPCMD", "0x0091,0x0272,0x01AE,0x0369,0x0000,0x027C")
@varcmd ("MBIPCMD", "0x0091,0x0276,0x01AE,0x0381,0x0000,0x0280")
@varcmd ("MBIPCMD", "0x0091,0x027A,0x0156,0x0290")
@varcmd ("MBIPCMD", "0x0091,0x027C,0x81C2,0x0158")
@varcmd ("MBIPCMD", "0x0091,0x027E,0x0156,0x0284")
@varcmd ("MBIPCMD", "0x0091,0x0280,0x81C2,0x0160")
@varcmd ("MBIPCMD", "0x0091,0x0282,0x0156,0x0284")
@varcmd ("MBIPCMD", "0x0091,0x0284,0x0144,0x00A8,0x0176,0x000E")
@varcmd ("MBIPCMD", "0x0091,0x0288,0x0144,0x00E8,0x0184,0x000E")
@varcmd ("MBIPCMD", "0x0091,0x028C,0x0144,0x0128,0x0192,0x000E")
@varcmd ("MBIPCMD", "0x0091,0x0290,0x01FC")
@varcmd ("MBIPCMD", "0x0091,0x0291,0x01A6,0x4000,0x0323")
@varcmd ("MBIPCMD", "0x0091,0x0294,0x01B2,0x0200,0x0006,0x0001,0x0000,0x4000")
@varcmd ("MBIPCMD", "0x0091,0x029A,0x00E5,0xCFFF,0xFF25")
@varcmd ("MBIPCMD", "0x0091,0x029D,0x019C,0x0200")
@varcmd ("MBIPCMD", "0x0091,0x029F,0x0142,0x0047,0x0206")
@varcmd ("MBIPCMD", "0x0091,0x02A2,0x0142,0x0048,0x0207")
@varcmd ("MBIPCMD", "0x0091,0x02A5,0x01B2,0x0208,0x0008,0x2800,0x0226,0x4000")
@varcmd ("MBIPCMD", "0x0091,0x02AB,0x0000,0x03E8,0x0000,0x8800,0x0045")
@varcmd ("MBIPCMD", "0x0091,0x02B0,0x0178,0x0208")
@varcmd ("MBIPCMD", "0x0091,0x02B2,0x01A6,0x4800,0x0348")
@varcmd ("MBIPCMD", "0x0091,0x02B5,0x01B2,0x0210,0x0006,0x0001,0x0000,0x4800")
@varcmd ("MBIPCMD", "0x0091,0x02BB,0x00E2,0xCFFF,0xFF26")
@varcmd ("MBIPCMD", "0x0091,0x02BE,0x019C,0x0210")
@varcmd ("MBIPCMD", "0x0091,0x02C0,0x0142,0x0047,0x0216")
@varcmd ("MBIPCMD", "0x0091,0x02C3,0x0142,0x0048,0x0217")
@varcmd ("MBIPCMD", "0x0091,0x02C6,0x01B2,0x0218,0x0008,0x3800,0x0000,0x2000")
@varcmd ("MBIPCMD", "0x0091,0x02CC,0x0000,0x03E8,0x0000,0x8800,0x0045")
@varcmd ("MBIPCMD", "0x0091,0x02D1,0x0178,0x0218")
@varcmd ("MBIPCMD", "0x0091,0x02D3,0x01B2,0x0220,0x0008,0x0000,0x2000,0x0226")
@varcmd ("MBIPCMD", "0x0091,0x02D9,0x4800,0x0000,0x000C,0x0000,0x0009")
@varcmd ("MBIPCMD", "0x0091,0x02DE,0x0142,0x0047,0x0224")
@varcmd ("MBIPCMD", "0x0091,0x02E1,0x0142,0x0048,0x0225")
@varcmd ("MBIPCMD", "0x0091,0x02E4,0x01C0,0x0220")
@varcmd ("MBIPCMD", "0x0091,0x02E6,0x01B0,0x0230,0x0011,0x02FA")
@varcmd ("MBIPCMD", "0x0091,0x02EA,0x01B2,0x0206,0x0002,0x092D,0x000D")
@varcmd ("MBIPCMD", "0x0091,0x02EF,0x0140,0x0230,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x02F2,0x016C,0x0226,0x4000,0x0000,0x0010,0x0020")
@varcmd ("MBIPCMD", "0x0091,0x02F8,0x0156,0x030E")
@varcmd ("MBIPCMD", "0x0091,0x02FA,0x01B0,0x0231,0x0011,0x030E")
@varcmd ("MBIPCMD", "0x0091,0x02FE,0x01B2,0x0216,0x0002,0x00A9,0x000C")
@varcmd ("MBIPCMD", "0x0091,0x0303,0x0140,0x0231,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x0306,0x016C,0x0226,0x4800,0x0000,0x0010,0x0020")
@varcmd ("MBIPCMD", "0x0091,0x030C,0x0156,0x030E")
@varcmd ("MBIPCMD", "0x0091,0x030E,0x01DE")
@varcmd ("MBIPCMD", "0x0091,0x030F,0x019A,0x0049,0x4000,0x4800,0x0206,0x0216")
@varcmd ("MBIPCMD", "0x0091,0x0315,0x0140,0x008F,0x0010")
@varcmd ("MBIPCMD", "0x0091,0x0318,0x0190,0x0088")
@varcmd ("MBIPCMD", "0x0091,0x031A,0x01A6,0x4000,0x036D")
@varcmd ("MBIPCMD", "0x0091,0x031D,0x01BA,0x0051,0x0000,0x0372")
@varcmd ("MBIPCMD", "0x0091,0x0321,0x0156,0x0377")
@varcmd ("MBIPCMD", "0x0091,0x0323,0x01BA,0x0051,0x0000,0x0372")
@varcmd ("MBIPCMD", "0x0091,0x0327,0x01B2,0x0228,0x0006,0x0001,0x0000,0x5800")
@varcmd ("MBIPCMD", "0x0091,0x032D,0x0000,0xCFFF,0xFF98")
@varcmd ("MBIPCMD", "0x0091,0x0330,0x019C,0x0228")
@varcmd ("MBIPCMD", "0x0091,0x0332,0x01B2,0x022E,0x0002,0x0000,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x0337,0x0174,0x0033,0x5800,0x022E")
@varcmd ("MBIPCMD", "0x0091,0x033B,0x0140,0x008F,0x0010")
@varcmd ("MBIPCMD", "0x0091,0x033E,0x0190,0x0088")
@varcmd ("MBIPCMD", "0x0091,0x0340,0x0140,0x008F,0x0070")
@varcmd ("MBIPCMD", "0x0091,0x0343,0x01A6,0x4000,0x0377")
@varcmd ("MBIPCMD", "0x0091,0x0346,0x0156,0x0294")
@varcmd ("MBIPCMD", "0x0091,0x0348,0x01AE,0x0051,0x0001,0x036D")
@varcmd ("MBIPCMD", "0x0091,0x034C,0x01B2,0x0228,0x0006,0x0001,0x0000,0x5800")
@varcmd ("MBIPCMD", "0x0091,0x0352,0x0000,0xCFFF,0xFF98")
@varcmd ("MBIPCMD", "0x0091,0x0355,0x019C,0x0228")
@varcmd ("MBIPCMD", "0x0091,0x0357,0x01B2,0x022E,0x0002,0x0000,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x035C,0x0174,0x0033,0x5800,0x022E")
@varcmd ("MBIPCMD", "0x0091,0x0360,0x0140,0x008F,0x0010")
@varcmd ("MBIPCMD", "0x0091,0x0363,0x0190,0x0088")
@varcmd ("MBIPCMD", "0x0091,0x0365,0x0140,0x008F,0x0070")
@varcmd ("MBIPCMD", "0x0091,0x0368,0x01A6,0x4800,0x0377")
@varcmd ("MBIPCMD", "0x0091,0x036B,0x0156,0x02B5")
@varcmd ("MBIPCMD", "0x0091,0x036D,0x0140,0x0051,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x0370,0x0156,0x019D")
@varcmd ("MBIPCMD", "0x0091,0x0372,0x01BC,0x0051,0xFFFF")
@varcmd ("MBIPCMD", "0x0091,0x0375,0x0156,0x019D")
@varcmd ("MBIPCMD", "0x0091,0x0377,0x0140,0x0051,0x0003")
@varcmd ("MBIPCMD", "0x0091,0x037A,0x0140,0x001A,0x0001")
@varcmd ("MBIPCMD", "0x0091,0x037D,0x0156,0x019D")
@varcmd ("MBIPCMD", "0x0091,0x037F,0x01B2,0x0015,0x0003,0xFFFF,0x0000,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x0385,0x01B2,0x02D8,0x0008,0x0001,0x0001,0x0001")
@varcmd ("MBIPCMD", "0x0091,0x038B,0x0001,0x0001,0x0001,0x0001,0x0001")
@varcmd ("MBIPCMD", "0x0091,0x0390,0x01B2,0x02E0,0x0008,0x0001,0x0001,0x0001")
@varcmd ("MBIPCMD", "0x0091,0x0396,0x0001,0x0001,0x0001,0x0001,0x0001")
@varcmd ("MBIPCMD", "0x0091,0x039B,0x01B2,0x02E8,0x0008,0x0001,0x0001,0x0001")
@varcmd ("MBIPCMD", "0x0091,0x03A1,0x0001,0x0001,0x0001,0x0001,0x0001")
@varcmd ("MBIPCMD", "0x0091,0x03A6,0x01B2,0x00B8,0x0006,0x8000,0x3811,0xA900")
@varcmd ("MBIPCMD", "0x0091,0x03AC,0x880C,0x7C00,0x880C")
@varcmd ("MBIPCMD", "0x0091,0x03AF,0x01B2,0x00BE,0x0006,0x2D00,0x0000,0x02D8")
@varcmd ("MBIPCMD", "0x0091,0x03B5,0x0000,0x0018,0x0010")
@varcmd ("MBIPCMD", "0x0091,0x03B8,0x01B2,0x00C8,0x0006,0xC000,0x3811,0x3000")
@varcmd ("MBIPCMD", "0x0091,0x03BE,0x880D,0x7C00,0x880C")
@varcmd ("MBIPCMD", "0x0091,0x03C1,0x01B2,0x00CE,0x0006,0x2D00,0x0000,0x02D8")
@varcmd ("MBIPCMD", "0x0091,0x03C7,0x000C,0x0018,0x0010")
@varcmd ("MBIPCMD", "0x0091,0x03CA,0x01B2,0x02F0,0x0008,0x0001,0x0001,0x0001")
@varcmd ("MBIPCMD", "0x0091,0x03D0,0x0001,0x0001,0x0001,0x0001,0x0001")
@varcmd ("MBIPCMD", "0x0091,0x03D5,0x01B2,0x02F8,0x0008,0x0001,0x0001,0x0001")
@varcmd ("MBIPCMD", "0x0091,0x03DB,0x0001,0x0001,0x0001,0x0001,0x0001")
@varcmd ("MBIPCMD", "0x0091,0x03E0,0x01B2,0x0300,0x0008,0x0001,0x0001,0x0001")
@varcmd ("MBIPCMD", "0x0091,0x03E6,0x0001,0x0001,0x0001,0x0001,0x0001")
@varcmd ("MBIPCMD", "0x0091,0x03EB,0x01B2,0x00F8,0x0006,0xA000,0x3011,0xB700")
@varcmd ("MBIPCMD", "0x0091,0x03F1,0x880D,0x8A00,0x880D")
@varcmd ("MBIPCMD", "0x0091,0x03F4,0x01B2,0x00FE,0x0006,0x2D00,0x0000,0x02F0")
@varcmd ("MBIPCMD", "0x0091,0x03FA,0x0000,0x0018,0x0010")
@varcmd ("MBIPCMD", "0x0091,0x03FD,0x01B2,0x0108,0x0006,0xD000,0x3011,0x3E00")
@varcmd ("MBIPCMD", "0x0091,0x0403,0x880E,0x8A00,0x880D")
@varcmd ("MBIPCMD", "0x0091,0x0406,0x01B2,0x010E,0x0006,0x2D00,0x0000,0x02F0")
@varcmd ("MBIPCMD", "0x0091,0x040C,0x000C,0x0018,0x0010")
@varcmd ("MBIPCMD", "0x0091,0x040F,0x01B2,0x0308,0x0008,0x0001,0x0001,0x0001")
@varcmd ("MBIPCMD", "0x0091,0x0415,0x0001,0x0001,0x0001,0x0001,0x0001")
@varcmd ("MBIPCMD", "0x0091,0x041A,0x01B2,0x0310,0x0008,0x0001,0x0001,0x0001")
@varcmd ("MBIPCMD", "0x0091,0x0420,0x0001,0x0001,0x0001,0x0001,0x0001")
@varcmd ("MBIPCMD", "0x0091,0x0425,0x01B2,0x0318,0x0008,0x0001,0x0001,0x0001")
@varcmd ("MBIPCMD", "0x0091,0x042B,0x0001,0x0001,0x0001,0x0001,0x0001")
@varcmd ("MBIPCMD", "0x0091,0x0430,0x01B2,0x0138,0x0006,0x0000,0x3011,0xD400")
@varcmd ("MBIPCMD", "0x0091,0x0436,0x880E,0x9800,0x880E")
@varcmd ("MBIPCMD", "0x0091,0x0439,0x01B2,0x013E,0x0006,0x3C00,0x0000,0x0308")
@varcmd ("MBIPCMD", "0x0091,0x043F,0x0000,0x0018,0x0010")
@varcmd ("MBIPCMD", "0x0091,0x0442,0x01B2,0x0148,0x0006,0x5000,0x3011,0x8800")
@varcmd ("MBIPCMD", "0x0091,0x0448,0x880F,0x9800,0x880E")
@varcmd ("MBIPCMD", "0x0091,0x044B,0x01B2,0x014E,0x0006,0x3C00,0x0000,0x0308")
@varcmd ("MBIPCMD", "0x0091,0x0451,0x000C,0x0018,0x0010")
@varcmd ("MBIPCMD", "0x0091,0x0454,0x01B2,0x0158,0x0006,0x1000,0x8800,0x3000")
@varcmd ("MBIPCMD", "0x0091,0x045A,0x8800,0x2000,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x045D,0x01B2,0x0160,0x0006,0x1000,0x8800,0x5000")
@varcmd ("MBIPCMD", "0x0091,0x0463,0x8800,0x2000,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x0466,0x81C2,0x0158")
@varcmd ("MBIPCMD", "0x0091,0x0468,0x81C2,0x0160")
@varcmd ("MBIPCMD", "0x0091,0x046A,0x0144,0x00A8,0x0176,0x000E")
@varcmd ("MBIPCMD", "0x0091,0x046E,0x0144,0x00E8,0x0184,0x000E")
@varcmd ("MBIPCMD", "0x0091,0x0472,0x0144,0x0128,0x0192,0x000E")
@varcmd ("MBIPCMD", "0x0091,0x0476,0x0144,0x00B8,0x038C,0x000C")
@varcmd ("MBIPCMD", "0x0091,0x047A,0x0144,0x00C8,0x03A0,0x000C")
@varcmd ("MBIPCMD", "0x0091,0x047E,0x0144,0x00F8,0x03C0,0x000C")
@varcmd ("MBIPCMD", "0x0091,0x0482,0x0144,0x0108,0x03D4,0x000C")
@varcmd ("MBIPCMD", "0x0091,0x0486,0x0144,0x0138,0x0360,0x000C")
@varcmd ("MBIPCMD", "0x0091,0x048A,0x0144,0x0148,0x0378,0x000C")
@varcmd ("MBIPCMD", "0x0091,0x048E,0x01B2,0x0400,0x0008,0x0800,0x8000,0x3811")
@varcmd ("MBIPCMD", "0x0091,0x0494,0x0000,0x0008,0x1000,0x8801,0x0045")
@varcmd ("MBIPCMD", "0x0091,0x0499,0x01B2,0x0408,0x0008,0x0800,0xC000,0x3811")
@varcmd ("MBIPCMD", "0x0091,0x049F,0x0000,0x0008,0x1000,0x8801,0x0045")
@varcmd ("MBIPCMD", "0x0091,0x04A4,0x01B2,0x0BE0,0x0009,0x0000,0x3000,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x04AA,0x7000,0x0000,0x0800,0x0000,0x0001,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x04B0,0x01B2,0x0410,0x0008,0x0800,0xA000,0x3011")
@varcmd ("MBIPCMD", "0x0091,0x04B6,0x0000,0x0008,0x1000,0x8802,0x0045")
@varcmd ("MBIPCMD", "0x0091,0x04BB,0x01B2,0x0418,0x0008,0x0800,0xD000,0x3011")
@varcmd ("MBIPCMD", "0x0091,0x04C1,0x0000,0x0008,0x1000,0x8802,0x0045")
@varcmd ("MBIPCMD", "0x0091,0x04C6,0x01B2,0x0BF4,0x0009,0x0000,0x3800,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x04CC,0x7000,0x0000,0x0800,0x0000,0x0001,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x04D2,0x01B2,0x0420,0x0008,0x3800,0x0000,0x3011")
@varcmd ("MBIPCMD", "0x0091,0x04D8,0x0000,0x07D0,0x3000,0x8800,0x0045")
@varcmd ("MBIPCMD", "0x0091,0x04DD,0x01B2,0x0428,0x0008,0x3800,0x5000,0x3011")
@varcmd ("MBIPCMD", "0x0091,0x04E3,0x0000,0x07D0,0x5000,0x8800,0x0045")
@varcmd ("MBIPCMD", "0x0091,0x04E8,0x01B2,0x0430,0x0008,0x0800,0x0000,0x3811")
@varcmd ("MBIPCMD", "0x0091,0x04EE,0x0000,0x0006,0x7000,0x8800,0x0045")
@varcmd ("MBIPCMD", "0x0091,0x04F3,0x01B2,0x0BEC,0x0008,0x0000,0x2800,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x04F9,0x7000,0x0000,0x0800,0x0000,0x0001")
@varcmd ("MBIPCMD", "0x0091,0x04FE,0x01B2,0x01CC,0x0009,0x0000,0x0000,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x0504,0x0001,0x0000,0x2011,0x12C0,0x0000,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x050A,0x01B2,0x01D5,0x0005,0x12C0,0xBFFF,0xFFED")
@varcmd ("MBIPCMD", "0x0091,0x0510,0x12C0,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x0512,0x01B2,0x0232,0x0002,0x0000,0x0002")
@varcmd ("MBIPCMD", "0x0091,0x0517,0x0140,0x0C20,0x0001")
@varcmd ("MBIPCMD", "0x0091,0x051A,0x0156,0x0103")
@varcmd ("MBIPCMD", "0x0091,0x051C,0x016C,0x0000,0x3811,0x3C00,0x0000,0xA123")
@varcmd ("MBIPCMD", "0x0091,0x0522,0x016C,0x3C00,0x3811,0x03C0,0x0000,0xB456")
@varcmd ("MBIPCMD", "0x0091,0x0528,0x016C,0x3FC0,0x3811,0x03C0,0x0000,0xC789")
@varcmd ("MBIPCMD", "0x0091,0x052E,0x016C,0x4380,0x3811,0x03C0,0x0000,0x0D23")
@varcmd ("MBIPCMD", "0x0091,0x0534,0x016C,0x4740,0x3811,0x01E0,0x0000,0x0E45")
@varcmd ("MBIPCMD", "0x0091,0x053A,0x016C,0x4920,0x3811,0x01E0,0x0000,0x0F67")
@varcmd ("MBIPCMD", "0x0091,0x0540,0x016C,0x7C00,0x880C,0x03C0,0x0000,0x3300")
@varcmd ("MBIPCMD", "0x0091,0x0546,0x016C,0x7FC0,0x880C,0x03C0,0x0000,0x3310")
@varcmd ("MBIPCMD", "0x0091,0x054C,0x016C,0x8380,0x880C,0x03C0,0x0000,0x3320")
@varcmd ("MBIPCMD", "0x0091,0x0552,0x016C,0x8740,0x880C,0x03C0,0x0000,0x3330")
@varcmd ("MBIPCMD", "0x0091,0x0558,0x016C,0x8B00,0x880C,0x03C0,0x0000,0x3340")
@varcmd ("MBIPCMD", "0x0091,0x055E,0x016C,0x8EC0,0x880C,0x03C0,0x0000,0x3350")
@varcmd ("MBIPCMD", "0x0091,0x0564,0x016C,0x9280,0x880C,0x03C0,0x0000,0x3360")
@varcmd ("MBIPCMD", "0x0091,0x056A,0x016C,0x9640,0x880C,0x03C0,0x0000,0x3370")
@varcmd ("MBIPCMD", "0x0091,0x0570,0x016C,0x9A00,0x880C,0x03C0,0x0000,0x3380")
@varcmd ("MBIPCMD", "0x0091,0x0576,0x016C,0x9DC0,0x880C,0x03C0,0x0000,0x3390")
@varcmd ("MBIPCMD", "0x0091,0x057C,0x016C,0xA180,0x880C,0x03C0,0x0000,0x33A0")
@varcmd ("MBIPCMD", "0x0091,0x0582,0x016C,0xA540,0x880C,0x03C0,0x0000,0x33B0")
@varcmd ("MBIPCMD", "0x0091,0x0588,0x016C,0x0300,0x880D,0x03C0,0x0000,0x3301")
@varcmd ("MBIPCMD", "0x0091,0x058E,0x016C,0x06C0,0x880D,0x03C0,0x0000,0x3311")
@varcmd ("MBIPCMD", "0x0091,0x0594,0x016C,0x0A80,0x880D,0x03C0,0x0000,0x3321")
@varcmd ("MBIPCMD", "0x0091,0x059A,0x016C,0x0E40,0x880D,0x03C0,0x0000,0x3331")
@varcmd ("MBIPCMD", "0x0091,0x05A0,0x016C,0x1200,0x880D,0x03C0,0x0000,0x3341")
@varcmd ("MBIPCMD", "0x0091,0x05A6,0x016C,0x15C0,0x880D,0x03C0,0x0000,0x3351")
@varcmd ("MBIPCMD", "0x0091,0x05AC,0x016C,0x1980,0x880D,0x03C0,0x0000,0x3361")
@varcmd ("MBIPCMD", "0x0091,0x05B2,0x016C,0x1D40,0x880D,0x03C0,0x0000,0x3371")
@varcmd ("MBIPCMD", "0x0091,0x05B8,0x016C,0x2100,0x880D,0x03C0,0x0000,0x3381")
@varcmd ("MBIPCMD", "0x0091,0x05BE,0x016C,0x24C0,0x880D,0x03C0,0x0000,0x3391")
@varcmd ("MBIPCMD", "0x0091,0x05C4,0x016C,0x2880,0x880D,0x03C0,0x0000,0x33A1")
@varcmd ("MBIPCMD", "0x0091,0x05CA,0x016C,0x2C40,0x880D,0x03C0,0x0000,0x33B1")
@varcmd ("MBIPCMD", "0x0091,0x05D0,0x016C,0x8A00,0x880D,0x03C0,0x0000,0x4400")
@varcmd ("MBIPCMD", "0x0091,0x05D6,0x016C,0x8DC0,0x880D,0x03C0,0x0000,0x4410")
@varcmd ("MBIPCMD", "0x0091,0x05DC,0x016C,0x9180,0x880D,0x03C0,0x0000,0x4420")
@varcmd ("MBIPCMD", "0x0091,0x05E2,0x016C,0x9540,0x880D,0x03C0,0x0000,0x4430")
@varcmd ("MBIPCMD", "0x0091,0x05E8,0x016C,0x9900,0x880D,0x03C0,0x0000,0x4440")
@varcmd ("MBIPCMD", "0x0091,0x05EE,0x016C,0x9CC0,0x880D,0x03C0,0x0000,0x4450")
@varcmd ("MBIPCMD", "0x0091,0x05F4,0x016C,0xA080,0x880D,0x03C0,0x0000,0x4460")
@varcmd ("MBIPCMD", "0x0091,0x05FA,0x016C,0xA440,0x880D,0x03C0,0x0000,0x4470")
@varcmd ("MBIPCMD", "0x0091,0x0600,0x016C,0xA800,0x880D,0x03C0,0x0000,0x4480")
@varcmd ("MBIPCMD", "0x0091,0x0606,0x016C,0xABC0,0x880D,0x03C0,0x0000,0x4490")
@varcmd ("MBIPCMD", "0x0091,0x060C,0x016C,0xAF80,0x880D,0x03C0,0x0000,0x44A0")
@varcmd ("MBIPCMD", "0x0091,0x0612,0x016C,0xB340,0x880D,0x03C0,0x0000,0x44B0")
@varcmd ("MBIPCMD", "0x0091,0x0618,0x016C,0x1100,0x880E,0x03C0,0x0000,0x4401")
@varcmd ("MBIPCMD", "0x0091,0x061E,0x016C,0x14C0,0x880E,0x03C0,0x0000,0x4411")
@varcmd ("MBIPCMD", "0x0091,0x0624,0x016C,0x1880,0x880E,0x03C0,0x0000,0x4421")
@varcmd ("MBIPCMD", "0x0091,0x062A,0x016C,0x1C40,0x880E,0x03C0,0x0000,0x4431")
@varcmd ("MBIPCMD", "0x0091,0x0630,0x016C,0x2000,0x880E,0x03C0,0x0000,0x4441")
@varcmd ("MBIPCMD", "0x0091,0x0636,0x016C,0x23C0,0x880E,0x03C0,0x0000,0x4451")
@varcmd ("MBIPCMD", "0x0091,0x063C,0x016C,0x2780,0x880E,0x03C0,0x0000,0x4461")
@varcmd ("MBIPCMD", "0x0091,0x0642,0x016C,0x2B40,0x880E,0x03C0,0x0000,0x4471")
@varcmd ("MBIPCMD", "0x0091,0x0648,0x016C,0x2F00,0x880E,0x03C0,0x0000,0x4481")
@varcmd ("MBIPCMD", "0x0091,0x064E,0x016C,0x32C0,0x880E,0x03C0,0x0000,0x4491")
@varcmd ("MBIPCMD", "0x0091,0x0654,0x016C,0x3680,0x880E,0x03C0,0x0000,0x44A1")
@varcmd ("MBIPCMD", "0x0091,0x065A,0x016C,0x3A40,0x880E,0x03C0,0x0000,0x44B1")
@varcmd ("MBIPCMD", "0x0091,0x0660,0x016C,0x9800,0x880E,0x0500,0x0000,0x5500")
@varcmd ("MBIPCMD", "0x0091,0x0666,0x016C,0x9D00,0x880E,0x0500,0x0000,0x5510")
@varcmd ("MBIPCMD", "0x0091,0x066C,0x016C,0xA200,0x880E,0x0500,0x0000,0x5520")
@varcmd ("MBIPCMD", "0x0091,0x0672,0x016C,0xA700,0x880E,0x0500,0x0000,0x5530")
@varcmd ("MBIPCMD", "0x0091,0x0678,0x016C,0xAC00,0x880E,0x0500,0x0000,0x5540")
@varcmd ("MBIPCMD", "0x0091,0x067E,0x016C,0xB100,0x880E,0x0500,0x0000,0x5550")
@varcmd ("MBIPCMD", "0x0091,0x0684,0x016C,0xB600,0x880E,0x0500,0x0000,0x5560")
@varcmd ("MBIPCMD", "0x0091,0x068A,0x016C,0xBB00,0x880E,0x0500,0x0000,0x5570")
@varcmd ("MBIPCMD", "0x0091,0x0690,0x016C,0xC000,0x880E,0x0500,0x0000,0x5580")
@varcmd ("MBIPCMD", "0x0091,0x0696,0x016C,0xC500,0x880E,0x0500,0x0000,0x5590")
@varcmd ("MBIPCMD", "0x0091,0x069C,0x016C,0xCA00,0x880E,0x0500,0x0000,0x55A0")
@varcmd ("MBIPCMD", "0x0091,0x06A2,0x016C,0xCF00,0x880E,0x0500,0x0000,0x55B0")
@varcmd ("MBIPCMD", "0x0091,0x06A8,0x016C,0x4C00,0x880F,0x0500,0x0000,0x6601")
@varcmd ("MBIPCMD", "0x0091,0x06AE,0x016C,0x5100,0x880F,0x0500,0x0000,0x6611")
@varcmd ("MBIPCMD", "0x0091,0x06B4,0x016C,0x5600,0x880F,0x0500,0x0000,0x6621")
@varcmd ("MBIPCMD", "0x0091,0x06BA,0x016C,0x5B00,0x880F,0x0500,0x0000,0x6631")
@varcmd ("MBIPCMD", "0x0091,0x06C0,0x016C,0x6000,0x880F,0x0500,0x0000,0x6641")
@varcmd ("MBIPCMD", "0x0091,0x06C6,0x016C,0x6500,0x880F,0x0500,0x0000,0x6651")
@varcmd ("MBIPCMD", "0x0091,0x06CC,0x016C,0x6A00,0x880F,0x0500,0x0000,0x6661")
@varcmd ("MBIPCMD", "0x0091,0x06D2,0x016C,0x6F00,0x880F,0x0500,0x0000,0x6671")
@varcmd ("MBIPCMD", "0x0091,0x06D8,0x016C,0x7400,0x880F,0x0500,0x0000,0x6681")
@varcmd ("MBIPCMD", "0x0091,0x06DE,0x016C,0x7900,0x880F,0x0500,0x0000,0x6691")
@varcmd ("MBIPCMD", "0x0091,0x06E4,0x016C,0x7E00,0x880F,0x0500,0x0000,0x66A1")
@varcmd ("MBIPCMD", "0x0091,0x06EA,0x016C,0x8300,0x880F,0x0500,0x0000,0x66B1")
@varcmd ("MBIPCMD", "0x0091,0x06F0,0x016C,0x0000,0x0000,0x0000,0x0010,0x0000")
@varcmd ("MBIPCMD", "0x0091,0x06F6,0x01B2,0x01F4,0x0006,0x0000,0x0000,0x7C00")
@varcmd ("MBIPCMD", "0x0091,0x06FC,0x880C,0x8400,0x0003")
@varcmd ("MBIPCMD", "0x0091,0x06FF,0x01C4,0x01F4")
@varcmd ("MBIPCMD", "0x0091,0x0701,0x0156,0x037F")
@varcmd ("MBIPCMD", "0x0091,0x0703,0x01FC")
@varcmd ("MBIPLDIN", "0x0136")
!Title = "-FINISHED PROCEDURE: mkdps."
@Message ("DCL", "date", !ExpName, !Phase, !Title, *!S)
Return
End Procedure
-----------------------------------------------------------------------------------+
Procedure varcmd( Str(10) !Cmd_name , Str(80) !Cmd_data )
Var
Str(1) !Expt_s
Int !Code_i
Int !Cmd_data_i(30)
Int !No_of_cmds_i
Int !Data_len_i
Str(10) !Data_item_s
Int !Commas_i
Int !Count
Int !Char_pos
Str(1) !Char
Str(49) !Title = " "
Str(80) !Cmd_data_s
Str(80) !S = &80s("")
Main
!Expt_s = Extract( !Cmd_name , 1 , 1 )
If !Expt_s <> "M" Then
!Title = "*ERROR: Non-MDI Command " + !Cmd_name
@Message( "DC", "time", "MDI", " ", !Title , *!S)
Halt
!Title = "+Operator CONTinue "
@Message( "DC", "time", "MDI", " ", !Title , *!S)
Return
End If
Select !Cmd_name
Case "MBIPCMD"
!Code_i = 0x0E
!No_of_cmds_i = 0
Case "MBIPTBL"
!Code_i = 0x0F
!No_of_cmds_i = 0
Case "MBIPMACL"
!Code_i = 0x11
!No_of_cmds_i = 0
Case "MBIPLDIN"
!Code_i = 0x12
!No_of_cmds_i = 1
!Cmd_data_i(0) = 4
Case "MBDPML"
!Code_i = 0x0A
!No_of_cmds_i = 0
Case "MBDPCONF"
!Code_i = 0x1D
!No_of_cmds_i = 0
Default
!Title = "*ERROR: Unrecognised Command " + !Cmd_name
@Message( "DC", "time", "MDI", " ", !Title , *!S)
Halt
!Title = "+Operator CONTinue "
@Message( "DC", "time", "MDI", " ", !Title , *!S)
Return
End Select
!Cmd_data_s = !Cmd_data + ","
!Data_len_i = Len( !Cmd_data_s )
!Commas_i = 0
For !Char_pos = 1 to !Data_len_i
!Char = Extract( !Cmd_data_s , !Char_pos , 1 )
If !Char = "," Then
!Commas_i = !Commas_i + 1
End If
End For
For !Count = 1 To !Commas_i
!Data_item_s = Splitstr( !Cmd_data_s , "," , !Count )
!Cmd_data_i( !No_of_cmds_i ) = Int( Val( !Data_item_s ) )
!No_of_cmds_i = !No_of_cmds_i + 1
End For
PERFORM/NO PLM_BLOCK , "MDI" , !Code_i , !Cmd_data_i() , !No_of_cmds_i
@WaitTime ( "00h00m05s" , *!S )
Return
End Procedure
-----------------------------------------------------------------------------------+
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
-----------------------------------------------------------------------------------+