global mom_path_name
7 y5 m7 z% ~) S' Nglobal mom_tool_name mom_oper_method
$ G8 W6 i# ]5 I' j" M F# j; eglobal mom_sys_control_in mom_sys_control_out mom_tool_name mom_tool_number9 R. X& W! ]7 F- c/ [# M! k; d
set ci""
; x5 u! M3 w, q) S7 Pset co""
7 C" O5 F9 F. ~0 \if { [info exists mom_sys_control_in] = = 1 } { set ci $ mom_sys_control_in }, h# @# I! c8 F7 K
if { [info exists mom_sys_control_out] = = 1 } { set co $ mom_sys_control_out }
0 V; P7 v0 v9 U: h1 n- {: V* w' \MOM_set_seq_off
: f9 A- R1 W3 y4 H5 Z$ |- nMOM_output_literal" $co PATH NAME :[string toupper $mom_path_name]WITH TOOL* C! ?) n4 o- S: [
NO:[string toupper "$mom_tool_number] $ci"
1 J5 p v' Z/ P3 `7 K, S* jMOM_output_literal" $co TOOL NAME :[string toupper $mom_tool_name]TOOL $ci"; z: x* |/ V0 [ t% d, C; c# B' d
MOM_output_literal" $co METHOD :[string toupper $mom_oper_method] $ci"- K% S% u$ B( H {6 d$ T2 n
MOM_set_seq_on |