|
Thanks for the reply. I thought this might be helpful, if
anyone has regression tests and wants to get rid of it
for now. Its a filter, invoked by the following command:
Just replace mcc_tps_am with your mm name.
Bonnie
$ EDIT/TPU/NOSECTION/COMMAND=t:strip_wait_msg.tpu/NODISPLAY DTM$RESULTS
The file is following is strip_wait_msg.tpu:
PROCEDURE strip_wait_msg (strng)
!++
! This procedure is used as a filter for DTM to get rid of
! the message indicating a DECmcc MM component is waiting to startup
!
!--
! local variables
LOCAL srch_txt, line_num ;
!
srch_txt := strng ; ! set up pattern to search for.
LOOP
line_num := SEARCH_QUIETLY (srch_txt, FORWARD) ;
EXITIF line_num = 0 ; ! No strings matched, so exit
POSITION(line_num) ;
ERASE_LINE ; ! and this gets rid of the second line.
ENDLOOP ;
ENDPROCEDURE
!++
! This the executable statements which performs housekeeping and
! calls the above procedure.
!--
input_file := GET_INFO (COMMAND_LINE, "file_name") ;
main_buff := CREATE_BUFFER ("main", input_file) ;
POSITION (BEGINNING_OF (main_buff)) ;
strip_wait_msg ("Waiting: MM mcc_tps_am has not completed startup") ; ! Call the procedure
WRITE_FILE (main_buff,input_file) ; ! write out the new file
QUIT ;
|