eMatrix MQL 语句书写和执行实例

1.用MQL菜单连接到eMatrix set context user creator; verbose on; trigger off;

2.对象删除语句 Del bus "USER" "DANM-ZS" "-" ;

Del bus "USER" "DANM-SZ" "-" ; Del bus "USER" "DANM-BK" "-" ;Del bus "USER" "DANM-PW" "-" ;Del bus "USER" "DANM-LG1" "-" ;Del bus "USER" "DANM-LG2" "-" ;Del bus "USER" "DANM-LG3" "-" ;Del bus "USER" "DANM-LG4" "-" ;Del bus "USER" "DANM-SL" "-" ;Del bus "USER" "DANM-01" "-" ;Del bus "USER" "DANM-02" "-" ;Del bus "USER" "DANM-03" "-" ;Del bus "USER" "DANM-04" "-" ;Del bus "USER" "DANM-05" "-" ;Del bus "USER" "DANM-06" "-" ;Del bus "USER" "DANM-07" "-" ;Del bus "USER" "DANM-08" "-" ; ###○テストケース1Del bus "MODEL" "DANM-MA1" "-" ;Del bus "ASSEMBLY" "DANM-AA1" "-" ;Del bus "DOC_MANAGEMENT" "DANM-CA1" "-" ;Del bus "ENG_DRAWING" "DANM-EA1" "A" ;Del bus "PE_DRAWING" "DANM-PA1" "A" ;Del bus "DCN" "DANM-DA1" "-" ;Del bus "DCN" "DANM-DA2" "-" ; ###○テストケース2Del bus "MODEL" "DANM-MB1" "-" ;Del bus "ASSEMBLY" "DANM-AB1" "-" ;Del bus "DOC_MANAGEMENT" "DANM-CB1" "-" ;Del bus "FAN" "DANM-FB1" "-" ;Del bus "ENG_DRAWING" "DANM-EB1" "A" ;Del bus "ENG_DRAWING" "DANM-EB2" "A" ;Del bus "DCN" "DANM-DB1" "-" ;Del bus "DCN" "DANM-DB2" "-" ;Del bus "DCN" "DANM-DB3" "-" ; ###○テストケース3Del bus "MODEL" "DANM-MC1" "-" ;Del bus "ASSEMBLY" "DANM-AC1" "-" ;Del bus "DOC_MANAGEMENT" "DANM-CC1" "-" ;Del bus "ENG_DRAWING" "DANM-EC1" "A" ;Del bus "DCN" "DANM-DC1" "-" ; ###○テストケース4Del bus "MODEL" "DANM-MD1" "-" ;Del bus "ASSEMBLY" "DANM-AD1" "-" ;Del bus "DOC_MANAGEMENT" "DANM-CD1" "-" ;Del bus "ENG_DRAWING" "DANM-ED1" "A" ;Del bus "DCN" "DANM-DD1" "-" ; ###○テストケース5Del bus "MODEL" "DANM-ME1" "-" ;Del bus "ASSEMBLY" "DANM-AE1" "-" ;Del bus "DOC_MANAGEMENT" "DANM-CE1" "-" ;Del bus "ENG_DRAWING" "DANM-EE1" "A" ;Del bus "DCN" "DANM-DE1" "-" ; ###○テストケース6Del bus "MODEL" "DANM-MF1" "-" ;Del bus "ASSEMBLY" "DANM-AF1" "-" ;Del bus "DOC_MANAGEMENT" "DANM-CF1" "-" ;Del bus "ENG_DRAWING" "DANM-EF1" "A" ;Del bus "DCN" "DANM-DF1" "-" ; ###○テストケース7Del bus "MODEL" "DANM-MG1" "-" ;Del bus "ASSEMBLY" "DANM-AG1" "-" ;Del bus "DOC_MANAGEMENT" "DANM-CG1" "-" ;Del bus "ENG_DRAWING" "DANM-EG1" "A" ;Del bus "ENG_DRAWING" "DANM-EG2" "A" ;Del bus "DCN" "DANM-DG1" "-" ;Del bus "DCN" "DANM-DG2" "-" ; ###○テストケース8Del bus "MODEL" "DANM-MH1" "-" ;Del bus "ASSEMBLY" "DANM-AH1" "-" ;Del bus "DOC_MANAGEMENT" "DANM-CH1" "-" ;Del bus "ENG_DRAWING" "DANM-EH1" "A" ;Del bus "DCN" "DANM-DH1" "-" ; ###○テストケース9Del bus "MODEL" "DANM-MI1" "-" ;Del bus "ASSEMBLY" "DANM-AI1" "-" ;Del bus "DOC_MANAGEMENT" "DANM-CI1" "-" ;Del bus "ENG_DRAWING" "DANM-EI1" "A" ;Del bus "DCN" "DANM-DI1" "-" ; ###○テストケース10Del bus "MODEL" "DANM-MJ1" "-" ;Del bus "ASSEMBLY" "DANM-AJ1" "-" ;Del bus "DOC_MANAGEMENT" "DANM-CJ1" "-" ;Del bus "ENG_DRAWING" "DANM-EJ1" "A" ;Del bus "DCN" "DANM-DJ1" "-" ; 3.对象添加语句   ###sst5ECC.xlsadd bus "USER" "DANR-ZS" "-" vault "COMMON" owner "creator" policy "USER" "UR_Full_Name_Kanji" "部門管理者" "UR_English_Name" "TU" "UR_Group_Category" "|CAR|OEMTESTPrj1|" "UR_Role" "|SECTION_ADMIN|";tcl;set strTagetState "Work"while { [ mql print bus "USER" "DANR-ZS" "-" select current dump ] != $strTagetState } {set appList [split [mql print policy "USER" select state/[[ mql print bus "USER" "DANR-ZS" "-" select current dump ]/].signature dump |] |];foreach ap $appList {mql approve bus "USER" "DANR-ZS" "-" signature $ap}mql promote bus "USER" "DANR-ZS" "-" }exitadd bus "USER" "DANR-01" "-" vault "COMMON" owner "creator" policy "USER" "UR_Full_Name_Kanji" "製図担当者" "UR_English_Name" "TU1" "UR_Group_Category" "|CAR|OEMTESTPrj1|" "UR_Role" "|SECTION_ADMIN|";tcl;set strTagetState "Work"while { [ mql print bus "USER" "DANR-01" "-" select current dump ] != $strTagetState } {set appList [split [mql print policy "USER" select state/[[ mql print bus "USER" "DANR-01" "-" select current dump ]/].signature dump |] |];foreach ap $appList {mql approve bus "USER" "DANR-01" "-" signature $ap}mql promote bus "USER" "DANR-01" "-" }exitadd bus "USER" "DANR-02" "-" vault "COMMON" owner "creator" policy "USER" "UR_Full_Name_Kanji" "担当者" "UR_English_Name" "TU2" "UR_Group_Category" "|CAR|OEMTESTPrj1|" "UR_Role" "|COMPOSER|";tcl;set strTagetState "Work"while { [ mql print bus "USER" "DANR-02" "-" select current dump ] != $strTagetState } {set appList [split [mql print policy "USER" select state/[[ mql print bus "USER" "DANR-02" "-" select current dump ]/].signature dump |] |];foreach ap $appList {mql approve bus "USER" "DANR-02" "-" signature $ap}mql promote bus "USER" "DANR-02" "-" }exitadd bus "USER" "DANR-03" "-" vault "COMMON" owner "creator" policy "USER" "UR_Full_Name_Kanji" "照査者" "UR_English_Name" "TU3" "UR_Group_Category" "|CAR|OEMTESTPrj1|" "UR_Role" "|CHECKER|";tcl;set strTagetState "Work"while { [ mql print bus "USER" "DANR-03" "-" select current dump ] != $strTagetState } {set appList [split [mql print policy "USER" select state/[[ mql print bus "USER" "DANR-03" "-" select current dump ]/].signature dump |] |];foreach ap $appList {mql approve bus "USER" "DANR-03" "-" signature $ap}mql promote bus "USER" "DANR-03" "-" }exitadd bus "USER" "DANR-04" "-" vault "COMMON" owner "creator" policy "USER" "UR_Full_Name_Kanji" "照査実施者" "UR_English_Name" "TU4" "UR_Group_Category" "|CAR|OEMTESTPrj1|" "UR_Role" "|CHECKER|";tcl;set strTagetState "Work"while { [ mql print bus "USER" "DANR-04" "-" select current dump ] != $strTagetState } {set appList [split [mql print policy "USER" select state/[[ mql print bus "USER" "DANR-04" "-" select current dump ]/].signature dump |] |];foreach ap $appList {mql approve bus "USER" "DANR-04" "-" signature $ap}mql promote bus "USER" "DANR-04" "-" }exitadd bus "USER" "DANR-05" "-" vault "COMMON" owner "creator" policy "USER" "UR_Full_Name_Kanji" "安全承認者" "UR_English_Name" "TU5" "UR_Group_Category" "|CAR|OEMTESTPrj1|" "UR_Role" "|ALE|";tcl;set strTagetState "Work"while { [ mql print bus "USER" "DANR-05" "-" select current dump ] != $strTagetState } {set appList [split [mql print policy "USER" select state/[[ mql print bus "USER" "DANR-05" "-" select current dump ]/].signature dump |] |];foreach ap $appList {mql approve bus "USER" "DANR-05" "-" signature $ap}mql promote bus "USER" "DANR-05" "-" }exitadd bus "USER" "DANR-06" "-" vault "COMMON" owner "creator" policy "USER" "UR_Full_Name_Kanji" "安全承認実施者" "UR_English_Name" "TU6" "UR_Group_Category" "|CAR|OEMTESTPrj1|" "UR_Role" "|ALE|";tcl;set strTagetState "Work"while { [ mql print bus "USER" "DANR-06" "-" select current dump ] != $strTagetState } {set appList [split [mql print policy "USER" select state/[[ mql print bus "USER" "DANR-06" "-" select current dump ]/].signature dump |] |];foreach ap $appList {mql approve bus "USER" "DANR-06" "-" signature $ap}mql promote bus "USER" "DANR-06" "-" }exitadd bus "USER" "DANR-07" "-" vault "COMMON" owner "creator" policy "USER" "UR_Full_Name_Kanji" "承認者" "UR_English_Name" "TU7" "UR_Group_Category" "|CAR|OEMTESTPrj1|" "UR_Role" "|SECTION_ADMIN|";tcl;set strTagetState "Work"while { [ mql print bus "USER" "DANR-07" "-" select current dump ] != $strTagetState } {set appList [split [mql print policy "USER" select state/[[ mql print bus "USER" "DANR-07" "-" select current dump ]/].signature dump |] |];foreach ap $appList {mql approve bus "USER" "DANR-07" "-" signature $ap}mql promote bus "USER" "DANR-07" "-" }exitadd bus "USER" "DANR-08" "-" vault "COMMON" owner "creator" policy "USER" "UR_Full_Name_Kanji" "承認実施者" "UR_English_Name" "TU8" "UR_Group_Category" "|CAR|OEMTESTPrj1|" "UR_Role" "|SECTION_ADMIN|";tcl;set strTagetState "Work"while { [ mql print bus "USER" "DANR-08" "-" select current dump ] != $strTagetState } {set appList [split [mql print policy "USER" select state/[[ mql print bus "USER" "DANR-08" "-" select current dump ]/].signature dump |] |];foreach ap $appList {mql approve bus "USER" "DANR-08" "-" signature $ap}mql promote bus "USER" "DANR-08" "-" }exit ###○テストケース1add bus "MODEL" "DANR-MA1" "-" vault "BOM" owner "creator" policy "MODEL" "Product_Name" "DANR-PN";tcl;set strTagetState "Work"while { [ mql print bus "MODEL" "DANR-MA1" "-" select current dump ] != $strTagetState } {set appList [split [mql print policy "MODEL" select state/[[ mql print bus "MODEL" "DANR-MA1" "-" select current dump ]/].signature dump |] |];foreach ap $appList {mql approve bus "MODEL" "DANR-MA1" "-" signature $ap}mql promote bus "MODEL" "DANR-MA1" "-" }exitadd bus "ASSEMBLY" "DANR-AA1" "-" vault "BOM" owner "creator" policy "ASSEMBLY";tcl;set strTagetState "Release"while { [ mql print bus "ASSEMBLY" "DANR-AA1" "-" select current dump ] != $strTagetState } {set appList [split [mql print policy "ASSEMBLY" select state/[[ mql print bus "ASSEMBLY" "DANR-AA1" "-" select current dump ]/].signature dump |] |];foreach ap $appList {mql approve bus "ASSEMBLY" "DANR-AA1" "-" signature $ap}mql promote bus "ASSEMBLY" "DANR-AA1" "-" }exitadd bus "DOC_MANAGEMENT" "DANR-CA1" "-" vault "COMMON" owner "creator" policy "DOC_MANAGEMENT";tcl;set strTagetState "Release"while { [ mql print bus "DOC_MANAGEMENT" "DANR-CA1" "-" select current dump ] != $strTagetState } {set appList [split [mql print policy "DOC_MANAGEMENT" select state/[[ mql print bus "DOC_MANAGEMENT" "DANR-CA1" "-" select current dump ]/].signature dump |] |];foreach ap $appList {mql approve bus "DOC_MANAGEMENT" "DANR-CA1" "-" signature $ap}mql promote bus "DOC_MANAGEMENT" "DANR-CA1" "-" }exitadd bus "ENG_DRAWING" "DANR-EA1" "A" vault "COMMON" owner "creator" policy "ENG_DRAWING" "Category" "CAR" "OEM_Project_Group" "OEMTESTPrj1" "Brand_Name" "Brand" "Documentation_Number" "DANR-TA1";tcl;set strTagetState "Release"while { [ mql print bus "ENG_DRAWING" "DANR-EA1" "A" select current dump ] != $strTagetState } {set appList [split [mql print policy "ENG_DRAWING" select state/[[ mql print bus "ENG_DRAWING" "DANR-EA1" "A" select current dump ]/].signature dump |] |];foreach ap $appList {mql approve bus "ENG_DRAWING" "DANR-EA1" "A" signature $ap}mql promote bus "ENG_DRAWING" "DANR-EA1" "A" }exitadd bus "PE_DRAWING" "DANR-PA1" "A" vault "COMMON" owner "creator" policy "PE_DRAWING" "Category" "CAR" "OEM_Project_Group" "OEMTESTPrj1" "Brand_Name" "Brand" "Documentation_Number" "DANR-TA2";tcl;set strTagetState "Release"while { [ mql print bus "PE_DRAWING" "DANR-PA1" "A" select current dump ] != $strTagetState } {set appList [split [mql print policy "PE_DRAWING" select state/[[ mql print bus "PE_DRAWING" "DANR-PA1" "A" select current dump ]/].signature dump |] |];foreach ap $appList {mql approve bus "PE_DRAWING" "DANR-PA1" "A" signature $ap}mql promote bus "PE_DRAWING" "DANR-PA1" "A" }exitadd bus "DCN" "DANR-DA1" "-" vault "COMMON" owner "creator" policy "DCN" "Drawing_Number" "DANR-TA1" "Ecn_Cnt" "A" "Drawing_Division" "部品図" "Part_No" "DANR-001A" "Part_Name" "DANR-FA1" "ECN_Reason" "03" "Handling_Of_Present_Parts" "Not_Interchangeable" "Safety_Mark" "TRUE" "Additional_Issue" "TRUE" "Contents_Of_Change" "変更内容" "Remarks" "備考" "Attached_File" "test-part.xls" "Attached_Drawing_Page" "1page, 3page" "Pre_Check_Kbn_Tooling" "Correct" "Pre_Check_Text_Tooling" "決裁No.G06815" "Pre_Check_Kbn_Stencil" "Non" "Pre_Check_Text_Stencil" "" "Pre_Check_Kbn_ICT" "TRUE" "Pre_Notice_Purchasing" "事前連絡(購買)" "Pre_Notice_Supplier" "事前連絡(メーカー)" "Pre_Notice_Other" "事前連絡(その他)" "Related_Alt_Kbn1" "B_Alt" "Related_Alt_Text1" "MKT0819" "Related_Alt_Kbn2" "D_Alt" "Related_Alt_Text2" "MKT0820" "Related_Alt_Kbn3" "E_Bul" "Related_Alt_Text3" "EBUL0001" "Related_Alt_Kbn4" "Other" "Related_Alt_Text4" "OT0001" "Related_Alt_Kbn5" "" "Related_Alt_Text5" "" "Related_Alt_Kbn6" "" "Related_Alt_Text6" "" "Related_Alt_Kbn7" "" "Related_Alt_Text7" "" "Related_Alt_Kbn8" "" "Related_Alt_Text8" "" "Related_Alt_Kbn9" "" "Related_Alt_Text9" "" "Drawer_ID" "DANR-01" "Drawer_JA" "製図担当者" "Drawer" "TU1" "Drawer_Date" "2007/07/07" "Composed_ID" "DANR-02" "Composed_JA" "担当者" "Composed" "TU2" "Check_Request_Date" "2007/10/05" "Checked_ID" "DANR-03" "Checked_JA" "照査者" "Checked" "TU3" "Checked_Enforcer_ID" "DANR-04" "Checked_Enforcer_JA" "照査実施者" "Checked_Enforcer" "TU4" "Checked_Date" "2007/05/07" "Approved_ID" "DANR-07" "Approved_JA" "承認者" "Approved" "TU7" "Approved_Enforcer_ID" "DANR-08" "Approved_Enforcer_JA" "承認実施者" "Approved_Enforcer" "TU8" "Approved_Date" "2007/05/17" "Safety_ID" "DANR-05" "Safety_JA" "安全承認者" "Safety" "TU5" "Safety_Date" "2007/05/27" "Safety_Enforcer_ID" "DANR-06" "Safety_Enforcer_JA" "安全承認実施者" "Safety_Enforcer" "TU6" "Distribute_Group_JA" "OEMTESTPrj1" "Distribute_Group" "OEMTESTPrj1" "Distribute_User_ID" "|DANM-01||DANM-02||DANM-03|" "Distribute_Name_JA" "設計1設計2設計3" "Distribute_Name" "design1design2design3" "Mail_Flg" "TRUETRUEFALSE" "Distribute_Receiver_ID" "DANM-01DANM-02DANM-03" "Distribute_Receiver_JA" "受領1受領2受領3" "Distribute_Receiver" "Receiver1Receiver2Receiver3" "Distribute_Receiver_Date" "2007/07/022007/07/03" "Applied_Model" "|GZ-HD01|GZ-HD02|" "Application_Date" "|FROM_SERIAL_Number|RC|" "Request_Serial" "|FROM #701||";tcl;set strTagetState "Release"while { [ mql print bus "DCN" "DANR-DA1" "-" select current dump ] != $strTagetState } {set appList [split [mql print policy "DCN" select state/[[ mql print bus "DCN" "DANR-DA1" "-" select current dump ]/].signature dump |] |];foreach ap $appList {mql approve bus "DCN" "DANR-DA1" "-" signature $ap}mql promote bus "DCN" "DANR-DA1" "-" }exitadd bus "DCN" "DANR-DA2" "-" vault "COMMON" owner "creator" policy "DCN" "Drawing_Number" "DANR-TA2" "Ecn_Cnt" "A" "Drawing_Division" "部品図" "Part_No" "DANR-001A" "Part_Name" "DANR-FA2" "ECN_Reason" "03" "Handling_Of_Present_Parts" "Not_Interchangeable" "Safety_Mark" "TRUE" "Additional_Issue" "TRUE" "Contents_Of_Change" "変更内容" "Remarks" "備考" "Attached_File" "test-part.xls" "Attached_Drawing_Page" "1page, 3page" "Pre_Check_Kbn_Tooling" "Correct" "Pre_Check_Text_Tooling" "決裁No.G06815" "Pre_Check_Kbn_Stencil" "Non" "Pre_Check_Text_Stencil" "" "Pre_Check_Kbn_ICT" "TRUE" "Pre_Notice_Purchasing" "事前連絡(購買)" "Pre_Notice_Supplier" "事前連絡(メーカー)" "Pre_Notice_Other" "事前連絡(その他)" "Related_Alt_Kbn1" "B_Alt" "Related_Alt_Text1" "MKT0819" "Related_Alt_Kbn2" "D_Alt" "Related_Alt_Text2" "MKT0820" "Related_Alt_Kbn3" "E_Bul" "Related_Alt_Text3" "EBUL0001" "Related_Alt_Kbn4" "Other" "Related_Alt_Text4" "OT0001" "Related_Alt_Kbn5" "" "Related_Alt_Text5" "" "Related_Alt_Kbn6" "" "Related_Alt_Text6" "" "Related_Alt_Kbn7" "" "Related_Alt_Text7" "" "Related_Alt_Kbn8" "" "Related_Alt_Text8" "" "Related_Alt_Kbn9" "" "Related_Alt_Text9" "" "Drawer_ID" "DANR-01" "Drawer_JA" "製図担当者" "Drawer" "TU1" "Drawer_Date" "2007/07/07" "Composed_ID" "DANR-02" "Composed_JA" "担当者" "Composed" "TU2" "Check_Request_Date" "2007/10/05" "Checked_ID" "DANR-03" "Checked_JA" "照査者" "Checked" "TU3" "Checked_Enforcer_ID" "DANR-04" "Checked_Enforcer_JA" "照査実施者" "Checked_Enforcer" "TU4" "Checked_Date" "2007/05/07" "Approved_ID" "DANR-07" "Approved_JA" "承認者" "Approved" "TU7" "Approved_Enforcer_ID" "DANR-08" "Approved_Enforcer_JA" "承認実施者" "Approved_Enforcer" "TU8" "Approved_Date" "2007/05/17" "Safety_ID" "DANR-05" "Safety_JA" "安全承認者" "Safety" "TU5" "Safety_Date" "2007/05/27" "Safety_Enforcer_ID" "DANR-06" "Safety_Enforcer_JA" "安全承認実施者" "Safety_Enforcer" "TU6" "Distribute_Group_JA" "OEMTESTPrj1" "Distribute_Group" "OEMTESTPrj1" "Distribute_User_ID" "|DANM-01||DANM-02||DANM-03||DANM-04||DANM-05||DANM-01||DANM-02||DANM-03||DANM-04||DANM-05||DANM-01||DANM-02||DANM-03||DANM-04||DANM-05||DANM-01||DANM-02||DANM-03||DANM-04||DANM-05|" "Distribute_Name_JA" "設計1設計2設計3設計4設計5設計6設計7設計8設計9設計10設計11設計12設計13設計14設計15設計16設計17設計18設計19設計20" "Distribute_Name" "design1design2design3design4desgin5design6design7design8design9desgin10design11design12design13design14desgin15design16design17design18design19desgin20" "Mail_Flg" "TRUETRUETRUETRUETRUEFALSEFALSEFALSEFALSEFALSEFALSEFALSEFALSEFALSEFALSEFALSEFALSEFALSEFALSEFALSE" "Distribute_Receiver_ID" "DANM-01DANM-02DANM-03DANM-04DANM-05             " "Distribute_Receiver_JA" "受領1受領2受領3受領4受領5             " "Distribute_Receiver" "Receiver1Receiver2Receiver3Receiver4Receiver5             " "Distribute_Receiver_Date" "2007/07/022007/07/032007/07/02 2007/07/02             " "Applied_Model" "|GZ-HD01|GZ-HD02|GZ-HD03|" "Application_Date" "|FROM_SERIAL_Number|RC|" "Request_Serial" "|FROM #701|||   ";tcl;set strTagetState "Release"while { [ mql print bus "DCN" "DANR-DA2" "-" select current dump ] != $strTagetState } {set appList [split [mql print policy "DCN" select state/[[ mql print bus "DCN" "DANR-DA2" "-" select current dump ]/].signature dump |] |];foreach ap $appList {mql approve bus "DCN" "DANR-DA2" "-" signature $ap}mql promote bus "DCN" "DANR-DA2" "-" }exitconnect bus "MODEL" "DANR-MA1" "-" relationship "EBOM" to "ASSEMBLY" "DANR-AA1" "-";connect bus "ASSEMBLY" "DANR-AA1" "-" relationship "DOC_MANAGEMENT" to "DOC_MANAGEMENT" "DANR-CA1" "-";connect bus "DOC_MANAGEMENT" "DANR-CA1" "-" relationship "DOCUMENTATION" to "ENG_DRAWING" "DANR-EA1" "A";connect bus "ENG_DRAWING" "DANR-EA1" "A" relationship "ECN" to "DCN" "DANR-DA1" "-";connect bus "DOC_MANAGEMENT" "DANR-CA1" "-" relationship "DOCUMENTATION" to "PE_DRAWING" "DANR-PA1" "A";connect bus "PE_DRAWING" "DANR-PA1" "A" relationship "ECN" to "DCN" "DANR-DA2" "-"; ###○テストケース2add bus "FAN" "DANR-FB1" "-" vault "BOM" owner "creator" policy "PART";tcl;set strTagetState "Work"while { [ mql print bus "FAN" "DANR-FB1" "-" select current dump ] != $strTagetState } {set appList [split [mql print policy "PART" select state/[[ mql print bus "FAN" "DANR-FB1" "-" select current dump ]/].signature dump |] |];foreach ap $appList {mql approve bus "FAN" "DANR-FB1" "-" signature $ap}mql promote bus "FAN" "DANR-FB1" "-" }exitadd bus "DCN" "DANR-DB1" "-" vault "COMMON" owner "creator" policy "DCN";tcl;set strTagetState "Work"while { [ mql print bus "DCN" "DANR-DB1" "-" select current dump ] != $strTagetState } {set appList [split [mql print policy "DCN" select state/[[ mql print bus "DCN" "DANR-DB1" "-" select current dump ]/].signature dump |] |];foreach ap $appList {mql approve bus "DCN" "DANR-DB1" "-" signature $ap}mql promote bus "DCN" "DANR-DB1" "-" }exitadd bus "DCN" "DANR-DB2" "-" vault "COMMON" owner "creator" policy "DCN";tcl;set strTagetState "Work"while { [ mql print bus "DCN" "DANR-DB2" "-" select current dump ] != $strTagetState } {set appList [split [mql print policy "DCN" select state/[[ mql print bus "DCN" "DANR-DB2" "-" select current dump ]/].signature dump |] |];foreach ap $appList {mql approve bus "DCN" "DANR-DB2" "-" signature $ap}mql promote bus "DCN" "DANR-DB2" "-" }exit