
  TYPE
    amt$error_exit_procedure = ^procedure
           (    file_identifier: amt$file_identifier;
            VAR status: ost$status);

*copyc amt$file_identifier
*copyc ost$status
