 PROCEDURE [INLINE] dfp$build_client_mf_file_name (
    mainframe_id: pmt$mainframe_id;
   VAR client_mainframe_name : ost$name);

   var
    length: integer;

    client_mainframe_name := ' ';
    STRINGREP (client_mainframe_name, length, 'DFF$',  mainframe_id (9, *),
       '_MAINFRAME_FILE');

  PROCEND;
?? PUSH (LISTEXT := ON) ??
*copyc pmt$mainframe_id
*copyc ost$name
?? POP ??
