
  PROCEDURE [XREF] clp$extract_message_module
    (    file_id: amt$file_identifier;
         module_name: pmt$program_name;
         message_module: ^ost$message_template_module;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc amt$file_identifier
*copyc ost$message_template_module
*copyc ost$status
*copyc pmt$program_name
?? POP ??
