
  PROCEDURE [INLINE] dmp$set_ft_locator_residence
    (    file_kind: gft$file_kind;
     VAR file_table_residence: gft$table_residence;
     VAR file_locator: dmt$file_location;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??

    status.normal := TRUE;
    CASE file_kind OF
    = gfc$fk_device_file, gfc$fk_catalog, gfc$fk_global_unnamed,
          gfc$fk_job_permanent_file =
      file_table_residence := gfc$tr_system;
      file_locator := osv$mainframe_wired_heap;

    = gfc$fk_job_local_file, gfc$fk_unnamed_file =
      file_table_residence := gfc$tr_job;
      file_locator := osv$job_fixed_heap;
    ELSE
      file_table_residence := gfc$tr_null_residence;
      osp$set_status_abnormal (dmc$device_manager_ident,
            dme$unrecognizable_file_type, 'File type not defined.', status);
    CASEND;

  PROCEND dmp$set_ft_locator_residence;

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


