  PROCEDURE [INLINE] dfp$build_image_file_name
    (    server_mainframe_id: pmt$binary_mainframe_id;
     VAR server_image_file_name: ost$name);

    VAR
      local_status: ost$status,
      mainframe_name: pmt$mainframe_id;

    pmp$convert_binary_mainframe_id (server_mainframe_id, mainframe_name,
          local_status);

    server_image_file_name :=
          'DFF$system_mmmm_ssss_IMAGE';
    server_image_file_name (4, pmc$mainframe_id_size) := mainframe_name;
  PROCEND dfp$build_image_file_name;
?? PUSH (LISTEXT := ON) ??
*copyc ost$name
*copyc ost$status
*copyc pmp$convert_binary_mainframe_id
*copyc pmt$binary_mainframe_id
?? POP ??


