  PROCEDURE [INLINE] dfp$crack_client_mf_job_name
    (VAR client_mainframe: pmt$mainframe_id;
     VAR status: ost$status);

    VAR
      binary_mainframe_id: pmt$binary_mainframe_id,
      system_supplied_name: jmt$system_supplied_name,
      user_supplied_name: jmt$user_supplied_name;

    pmp$get_job_names (user_supplied_name, system_supplied_name, status);
    IF status.normal THEN
      IF (user_supplied_name (1, 4) = '$DF$') AND
        (user_supplied_name (21, 11) = '_CLIENT_JOB') THEN
         client_mainframe := user_supplied_name (4, 17);
         pmp$convert_mainframe_to_binary (client_mainframe, binary_mainframe_id,
               status);
         { Might return pme$invalid_mainframe_id
       ELSE
         osp$set_status_condition (pme$invalid_mainframe_id, status);
       IFEND;
    IFEND;
  PROCEND dfp$crack_client_mf_job_name;
?? PUSH (LISTEXT := ON) ??
*copyc osp$set_status_condition
*copyc pmp$convert_mainframe_to_binary
*copyc pmp$get_job_names
*copyc pmt$mainframe_id
?? POP ??
