
  TYPE
    fst$evaluated_file_reference = record
      { Path_structure has the integer length of the following path element
      {   in place of the delimiter.
      path_structure: string (fsc$max_path_size),
      path_structure_size: 0 .. fsc$max_path_size,
      number_of_path_elements: fst$number_of_path_elements,
*IF NOT $true(osv$unix)
      multiple_reference_specified: boolean,
      cycle_reference: fst$cycle_reference,
      { Open_position has been moved to path_handle.open_position in
      {   path_handle_info.
      path_handle_info: fst$path_handle_info,
      case path_resolution: fst$path_resolution of
      = fsc$path_resolution_error .. fsc$cycle_path =
        ,
      = fsc$command_file_path =
        block_handle: clt$block_handle,
      casend,
*ELSE
      command_file_path: record
        case found: boolean of
        = TRUE =
          block_handle: clt$block_handle,
        = FALSE =
          ,
        casend,
      recend,
      case standard_file: boolean of
      = TRUE =
        unix_standard_file: clt$standard_file,
      = FALSE =
        ,
      casend,
*IFEND
    recend;

*copyc clt$block_handle
*copyc fsc$max_path_size
*copyc fst$cycle_reference
*copyc fst$number_of_path_elements
*IF NOT $true(osv$unix)
*copyc fst$open_position
*copyc fst$path_resolution
*copyc fst$path_handle_info
*ELSE
*copyc clt$standard_file
*IFEND
