{
{   The purpose of this request is to construct a message module for  addition
{ to or replacement on an object library.
{
{   A  utility  environemnt  is established to accept the commands that define
{ individual messages.
{
{   If a NIL  pointer  is  returned  via  the  message_module  parameter,  the
{ creation of the message module is to be abandoned.  If a status condition of
{ cle$errors_in_module is returned, the message module has been built but  may
{ be  incomplete  because  of  problems with message definitions; in this case
{ messages are written using ocp$generate_message for each  problem.   If  any
{ other  status  condition  is  returned,  the module could not be built, even
{ incompletely.
{
{       CLP$DEFINE_MESSAGE_MODULE (MODULE_NAME, NATURAL_LANGUAGE,
{         ONLINE_MANUAL_NAME, WORK_AREA, MESSAGE_MODULE, STATUS)
{
{ MODULE_NAME: (input) This parameter specifies the name of the  module  being
{       defined.
{
{ NATURAL_LANGUAGE:  (input)  This parameter specifies the natural language in
{       which all of the messages to be included in this module are written.
{
{ ONLINE_MANUAL_NAME: (input) This parameter specifies the name of the  online
{       manual that contains information about the messages in this module.
{
{ WORK_AREA:  (input)  This  parameter specifies the storage area in which the
{       module data will be placed.
{
{ MESSAGE_MODULE: (output) This parameter specifies the data representing  the
{       message module.
{
{ STATUS: (output) This parameter specifies the request status.
{       CONDITIONS: cle$errors_in_module
{
