?? RIGHT := 110, PAGESIZE := 60 ??
*copyc OSD$DEFAULT_PRAGMATS
MODULE ocm$message_generator;




{ *callc pmxexit }
{ *callc osxgemg }
?? PUSH (LISTEXT := ON) ??
*copyc OSP$GENERATE_ERROR_MESSAGE
?? POP ??
?? NEWTITLE := 'OCP$GENERATE_MESSAGE', EJECT ??

  PROCEDURE [XDCL] ocp$generate_message (VAR status: ost$status);


    VAR
      local_status: ost$status;




    osp$generate_error_message (status, local_status);

    status.normal := TRUE;


  PROCEND ocp$generate_message;
?? OLDTITLE ??




MODEND ocm$message_generator.
