|
global ptp_file_name
6 u+ v0 \" d `global mom_output_file_directory- i# Q" }% {/ e4 K4 Y1 {
global mom_operation_name# Y) Q% ?# B9 E) }
global mom_output_file_basename r4 j5 ^0 I2 q5 m2 @
global output_extn mom_group_name
# V. p9 t- b$ k& Lglobal operation_sequence* t; N& J6 B6 j2 L: [! \$ i6 X2 v
global mom_sys_output_file_suffix- M' r8 p* T- [, @6 G
global mom_parent_group_name1 t2 G1 T2 W$ _ {2 I
, v! V$ L, P9 T; S7 W5 n; \" F
MOM_close_output_file $ptp_file_name9 q( t' m7 a& u; u
- k! I8 e) m% ?" F$ a2 K9 mset yj "${mom_output_file_directory}${mom_parent_group_name}.${mom_sys_output_file_suffix}"
+ X: A1 c% [& I1 O, ^# ~' D
0 p0 F$ r S! ^) I. e! E$ K- nif { [file exists $ptp_file_name] == "1" } { MOM_remove_file $ptp_file_name }
" y) {) g" {3 o
7 W, D6 \) f0 q5 I
- J4 N x( u" ]. E
% W0 o3 r) n/ f, }# d) h* `) nMOM_remove_file $yj" o' X: y( k* W
MOM_open_output_file $yj
7 P) q$ A+ x$ t! w% BMOM_output_to_listing_device "后处理已经完成,请根据路径$mom_output_file_directory去寻找已经处理的源文件"$ }0 \4 c2 w2 r8 n5 |/ X& t
MOM_output_to_listing_device "文件名是$mom_parent_group_name". u7 c: z" m* X: _- j
n+ e G- a& P2 J
( f3 @+ K! t4 c( H6 q% O这是用TCL代码实现的哦 |
|