--+--------------------------------------------------------------------------------+ --+ SOHO Project -- Control File --+ ---------------------------- --+ --+ Name : MDI_STRDYN3 , !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 14:04 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_STRDYN3 , 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 "mkdps2" @mkdps2() 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 mkdps2 () Var Str( 3) !ExpName = "MDI" Str(10) !Phase = " " Str(49) !Title = " " Str(80) !S = &80s(" ") Main !Title = "-EXECUTING PROCUDURE: mkdps2." @Message ("DCL", "date", !ExpName, !Phase, !Title, *!S) @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: mkdps2." @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 -----------------------------------------------------------------------------------+