  TYPE
    put$global_backup_file_id = record
      case backup_file_open: boolean of
      = TRUE =
        backup_file_id: put$file_identifier,
      = FALSE =
      CASEND,
    recend;

*copyc put$file_identifier
