  PROCEDURE [INLINE] dfp$crack_client_mf_file_name (
      client_mainframe_pf_name: ost$name;
      VAR mainframe_id: pmt$mainframe_id);
  { This procedure is highly coupled with dfp$build_client_mf_file_name
    mainframe_id := '$SYSTEM_';
    mainframe_id (9, *) := client_mainframe_pf_name (5, 9);
  PROCEND;
?? PUSH (LISTEXT := ON) ??
*copyc pmt$mainframe_id
*copyc ost$name
?? POP ??
