
{* ZCYTFS  cyt$file_specifications *}

  TYPE
    cyt$file_specifications = ^array [1 .. * ] of cyt$file_specification,

    cyt$file_specification_selector = (cyc$file_kind, cyc$file_access,
      cyc$file_existence, cyc$open_position, cyc$close_file_disposition,
      cyc$file_contents, cyc$file_processor, cyc$file_character_set,
      cyc$new_page_procedure, cyc$page_length, cyc$page_width,
      cyc$page_format, cyc$future_spec1, cyc$future_spec2, cyc$future_spec3,
      cyc$future_spec4, cyc$future_spec5),


    cyt$file_specification = record
      case selector: cyt$file_specification_selector of
      = cyc$file_kind =
        file_kind: cyt$file_kind,
      = cyc$file_access =
        file_access: cyt$file_access,
      = cyc$file_existence =
        file_existence: cyt$file_existence,
      = cyc$open_position =
        open_position: cyt$open_close_position,
      = cyc$close_file_disposition =
        close_disposition: cyt$close_file_disposition,
      = cyc$file_contents =
        file_contents: cyt$file_contents,
      = cyc$file_processor =
        file_processor: cyt$file_processor,
      = cyc$file_character_set =
        file_character_set: cyt$file_character_set,
      = cyc$new_page_procedure =
        new_page_procedure: cyt$new_page_procedure,
      = cyc$page_length =
        page_length: cyt$page_length,
      = cyc$page_width =
        page_width: cyt$page_width,
      = cyc$page_format =
        page_format: cyt$page_format,
      = cyc$future_spec1 =
        ,
      = cyc$future_spec2 =
        ,
      = cyc$future_spec3 =
        ,
      = cyc$future_spec4 =
        ,
      = cyc$future_spec5 =
        ,
      casend,
    recend;


*copyc cyt$close_file_disposition
*copyc cyt$file_access
*copyc cyt$file_character_set
*copyc cyt$file_existence
*copyc cyt$file_kind
*copyc cyt$file_contents
*copyc cyt$file_processor
*copyc cyt$new_page_procedure
*copyc cyt$open_close_position
*copyc cyt$page_length
*copyc cyt$page_width
*copyc cyt$page_format
