|
global ptp_file_name4 }, B7 L3 d# c( I" n
global mom_output_file_directory6 u( K% r+ A( h5 x/ p2 _
global mom_operation_name+ y. }! T, Y3 Z# N5 [9 G8 u
global mom_output_file_basename% W, v# Q9 e. B9 q' R8 X: |
global mom_sys_output_file_suffix
" D+ Q9 @( E: e% f# G' q3 n/ C5 a global mom_group_name8 ]$ i( F3 ]5 ?
6 v# I; L5 F: p- u) H2 h
#set mom_group_name $mom_output_file_basename, b3 v) K6 t" {5 i- y9 E/ U
set var1 ${mom_output_file_directory}${mom_output_file_basename}.${mom_sys_output_file_suffix}+ A' P X) W! |7 [
7 w) e' l' s$ l0 z1 D8 v' e' M0 b: @$ p) b
MOM_close_output_file $ptp_file_name
& V1 x1 N" @. p& f% i MOM_output_literal "($mom_group_name)"
- ^* e& |/ K" w G5 f1 i1 {8 B1 [, T' X; x9 _$ a
set ptp_file_name [string toupper "${mom_output_file_directory}${mom_group_name}.${mom_sys_output_file_suffix}"]: D( R A) `/ R2 J
MOM_remove_file $ptp_file_name8 w; H6 |( ~6 ^
MOM_open_output_file $ptp_file_name
# T# S8 V1 v0 Z+ D/ Qif [file exists $var1] {MOM_remove_file $var1}
% E& l- H! M+ D# c
* d* J6 X. i# l \我这个命令只能一个一个处理! |
|