add some features

test/test.tcl

@@ -28,8 +28,8 @@ proc SERVICE_spacer_output {type {length 20} {line_num 0} {output 1}} {
     LIB_GE_message [string repeat $type $length] "output_$output" $line_num
 }
 
-SERVICE_spacer_output "*" 50 0 1
-SERVICE_remove_file $filename
+
+SERVICE_spacer_output "*" 2 0 0
 
 #_________________________________________________________________________________________________
 # <Documentation>
@@ -93,7 +93,7 @@ proc SERVICE_output_handling {handler} {
 #_________________________________________________________________________________________________
 proc SERVICE_get_tool_data {} {
     global mom_tool_data
-    global mom_operation_info
+global mom_operation_info
 
     set mom_tool_data(toollist) ""
     set operations $::mom_operation_name_list