|
global ptp_file_name
X( ?$ ]* W2 ]/ d$ |3 K1 dglobal mom_output_file_directory% ^9 G) _/ s3 x
global mom_operation_name8 S9 L8 V; M) h, J
global mom_output_file_basename: S- Z( N8 \+ j/ ^+ k2 H, u8 p! l
global output_extn mom_group_name
1 `! D/ c p& X7 U Bglobal operation_sequence
x% b1 @9 {' X m2 }5 ~2 E: Vglobal mom_sys_output_file_suffix( i+ c! ]2 ` R0 p& {
global mom_parent_group_name
2 B5 @4 e5 T7 q W' A+ P0 ]
1 y$ a% k" |- y- WMOM_close_output_file $ptp_file_name
) N. G8 D) \7 H2 F$ T" r" y' K
& R; ]) Z4 C; m% |- Vset yj "${mom_output_file_directory}${mom_parent_group_name}.${mom_sys_output_file_suffix}") C7 m1 ?( B2 S/ U: X8 @
R h5 H! |1 |9 }) ]. z; Gif { [file exists $ptp_file_name] == "1" } { MOM_remove_file $ptp_file_name }
9 {3 r a* f6 y M# r" w {( U) s5 V( @* C k& z
; a1 Z$ I: m' O! p" |$ g+ b
- V" _8 ~+ r) P; b8 ~. a* E9 ]MOM_remove_file $yj
5 F: X4 `" Y1 {6 E# b) j9 ^# HMOM_open_output_file $yj3 \! X5 O: u1 ^/ J& r6 l- S
MOM_output_to_listing_device "后处理已经完成,请根据路径$mom_output_file_directory去寻找已经处理的源文件"& S# U! r' [* F1 K1 R
MOM_output_to_listing_device "文件名是$mom_parent_group_name"
3 ]3 }7 w# p |1 i, U1 T& l# Q2 W2 ]/ W
% r% }7 e$ I( @, K9 c0 {! O这是用TCL代码实现的哦 |
|