PROC put_message, putm (message, messages, m: list of string = $required
  status)

"---------------------------------------------------------------------
" PUT_MESSAGE
"
" PURPOSE:
"
"  Issue messages to $response.
"
" PARAMETERS:
"
" Messages: List of strings to be output.
"----------------------------------------------------------------------

  FOR i = 1 TO $set_count(messages) DO
    put_line ' == '//$value(message i) o=$response
  FOREND

PROCEND put_message
