|
global ptp_file_name
, v7 @& V8 {* h, B) T global mom_output_file_directory' } M5 y- R4 H0 T" z+ m5 u1 r
global mom_operation_name' t1 {, T9 U- Q$ \8 v0 \" e
global mom_output_file_basename
1 S4 G8 m7 {& |1 v$ u6 k) C# s global mom_sys_output_file_suffix+ r A4 M' \9 T5 o! j
global mom_group_name
. d; q0 M+ o( g4 T( X, L L4 Y
3 {! k8 `- C7 y- Q I #set mom_group_name $mom_output_file_basename- J( o- U2 f& X) k* X1 T
set var1 ${mom_output_file_directory}${mom_output_file_basename}.${mom_sys_output_file_suffix}$ b5 _& ]) [4 O" s2 m! g1 L# e
1 f5 _/ q6 |& `7 F/ X4 f0 a6 h# z0 S' \
MOM_close_output_file $ptp_file_name. e! O9 M3 v' a
MOM_output_literal "($mom_group_name)"
# m& t. B8 ^% { o
5 [7 C1 `9 b# p) ?+ q1 Q% w set ptp_file_name [string toupper "${mom_output_file_directory}${mom_group_name}.${mom_sys_output_file_suffix}"]
3 m$ i2 E. I+ ]. Y* w MOM_remove_file $ptp_file_name ^6 O' Y% Y5 B) {, F! g
MOM_open_output_file $ptp_file_name
3 E- _% Y8 _% ~, T0 \if [file exists $var1] {MOM_remove_file $var1}$ O3 ]! }. x6 a. R. X7 R4 Y( ]
2 k; P: a5 _6 o. |/ ?4 s8 V# i& [0 F
我这个命令只能一个一个处理! |
|