
  PROCEDURE [INLINE] dmp$set_file_table_locator
    (    file_residence: gft$table_residence;
     VAR file_locator: dmt$file_location;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
    status.normal := TRUE;

    CASE file_residence OF
    = gfc$tr_system =
      file_locator := osv$mainframe_wired_heap;
    = gfc$tr_job =
      file_locator := osv$job_fixed_heap;
    ELSE
      file_locator := NIL;
      osp$set_status_abnormal (dmc$device_manager_ident,
            dme$unrecognizable_file_res,
            'File residence not defined for file type.', status);
    CASEND;

  PROCEND dmp$set_file_table_locator;

*copyc dmh$set_file_table_locator
*copyc dmt$error_condition_codes
*copyc dmt$file_location
*copyc gft$system_file_identifier
*copyc ost$status
*copyc osp$set_status_abnormal
*copyc osv$job_fixed_heap
*copyc osv$mainframe_wired_heap
?? POP ??
