--+--------------------------------------------------------------------------------+ --+ 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 -----------------------------------------------------------------------------------+