|
global ptp_file_name9 m+ s/ X" d. ~" n6 p B U
global mom_output_file_directory7 \, S, M0 f& D! Y, b
global mom_operation_name
/ n3 x' c) @" f" |; N6 ?$ s4 ]global mom_output_file_basename
1 E/ @( p( e1 cglobal output_extn mom_group_name
% U; e2 M0 `& R* P m4 ~% Dglobal operation_sequence9 L6 U3 j2 e* p" b
global mom_sys_output_file_suffix
; r' L# k2 n1 ]) pglobal mom_parent_group_name0 |- r- z: L0 T# g+ I4 l+ U9 B
1 v: X2 Y: X1 z# g, ~; e
MOM_close_output_file $ptp_file_name+ u; z4 v( Z0 }" X" W
4 I2 g5 O9 @2 I* W
set yj "${mom_output_file_directory}${mom_parent_group_name}.${mom_sys_output_file_suffix}"0 Q! [0 B, h) G6 y. `: y
2 \* T1 n {+ C1 [* B9 O
if { [file exists $ptp_file_name] == "1" } { MOM_remove_file $ptp_file_name }6 M M; L: k; q8 Q! o$ ]0 n
C1 i' J1 e* O: G, B6 ]3 t9 C/ { `; I# J; l7 l
8 c/ M* L6 F, C$ M' e; l4 c1 gMOM_remove_file $yj: H: G4 O* V8 M- a j ^4 b
MOM_open_output_file $yj8 u/ R6 o \* ~' Y7 `9 i
MOM_output_to_listing_device "后处理已经完成,请根据路径$mom_output_file_directory去寻找已经处理的源文件"
7 G& ?2 \$ G/ u0 E6 c6 WMOM_output_to_listing_device "文件名是$mom_parent_group_name") t2 }6 a( U7 ]: I/ ], i( q
' k$ Y t; y3 p7 X7 R; [
, l0 s) G3 h1 r; J' L5 Y这是用TCL代码实现的哦 |
|