#输出日期 global mom_date #输出程序组名1 global mom_group_name #输出程序组名2 global mom_oper_program #输出部件名 global mom_output_file_basename #输出部件保持目录 global mom_part_name #输出操作工序名 global mom_operation_name set a [clock format [clock seconds] -format "%Y/%m/%d"] set b [clock format [clock seconds] -format "%H:%M:%S"] set c [clock format [clock seconds] -format "%A"] if {$c == "Monday"} {set c 1} if {$c == "Tuesday"} {set c 2} if {$c == "Wednesday"} {set c 3} if {$c == "Thursday"} {set c 4} if {$c == "Friday"} {set c 5} if {$c == "Saturday"} {set c 6} if {$c == "Sunday"} {set c 7} MOM_output_literal "(DATE: $a $b WEEK$c)" MOM_output_literal "(PART: $mom_output_file_basename)" MOM_output_literal "(NC-F: $mom_oper_program)"