
  PROCEDURE [INLINE] dmp$set_file_residence
    (    file_kind: gft$file_kind;
     VAR file_table_residence: gft$table_residence;
     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;

    = gfc$fk_job_local_file, gfc$fk_unnamed_file =
      file_table_residence := gfc$tr_job;
    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_file_residence;

*copyc dmh$set_file_residence
*copyc dmt$error_condition_codes
*copyc gft$file_kind
*copyc gft$table_residence
*copyc ost$status
*copyc osp$set_status_abnormal
?? POP ??
