  PROCEDURE [INLINE] dfp$get_client_mf_job_name
    (    client_mainframe: pmt$mainframe_id;
     VAR client_mainframe_job_name: jmt$user_supplied_name);

    VAR
      length: integer;

    STRINGREP (client_mainframe_job_name, length, '$DF', client_mainframe,
          '_CLIENT_JOB');

  PROCEND dfp$get_client_mf_job_name;
*copyc jmt$user_supplied_name
*copyc pmt$mainframe_id
