|
global ptp_file_name
2 u) y5 G+ I4 ~2 Aglobal mom_output_file_directory
0 u, e) ]% f: j% w/ L w0 _5 i# }global mom_operation_name4 l. o# W7 n8 D8 [
global mom_output_file_basename7 J8 J r* f3 [9 W: R
global output_extn mom_group_name
" a# U/ n% K4 p2 m* _% H+ a1 ^global operation_sequence2 ] l" J* S/ W
global mom_sys_output_file_suffix
9 x `) ^9 O* i2 Cglobal mom_parent_group_name/ p' l) v2 Y) X, ?+ Y
* n( Q6 R% Q5 ]1 k6 @# S
MOM_close_output_file $ptp_file_name: i" @. \+ S3 \9 m+ m
5 ]% C4 f* N4 \7 N
set yj "${mom_output_file_directory}${mom_parent_group_name}.${mom_sys_output_file_suffix}"$ M9 j/ j/ o8 H5 h$ W8 C' x
0 O# f' ^% z% G m
if { [file exists $ptp_file_name] == "1" } { MOM_remove_file $ptp_file_name }; s3 ^. w& L, v7 k1 m3 u5 b
0 m- @- F3 [! C9 Y# x" d5 T! U9 [
- i0 N3 v0 S3 v7 j# `
3 g: h8 \8 w; f( aMOM_remove_file $yj
4 Q6 h+ ]+ M1 k: H" j$ }: bMOM_open_output_file $yj
8 n& w0 N% z" w$ h$ V* M5 |+ uMOM_output_to_listing_device "后处理已经完成,请根据路径$mom_output_file_directory去寻找已经处理的源文件") y& |% g* `' w7 O; a7 A
MOM_output_to_listing_device "文件名是$mom_parent_group_name"
' J! a0 Z) G. l7 q8 w
* g* D: e- c# f0 {! f; X; m2 _
+ X% {4 X' _) l+ O1 g这是用TCL代码实现的哦 |
|