!***********************************UNMESSAGE***********************************
define verb UNMESSAGE
   image new_util:UNMESSAGE		!!!! NOTE DIRECTORY  !!!
   parameter P1
      value (type=$infile)
   qualifier OUTPUT
      value (default = "SYS$OUTPUT", type=$OUTFILE)