
  TYPE
    fst$goi_object = record
      case object_type: fst$goi_object_type of
      = fsc$goi_catalog_object =
        catalog_name: pft$name,
        catalog_global_file_name: ost$binary_unique_name,
        applicable_catalog_permit: ^pft$permit_array_entry,
        catalog_device_information: ^fst$device_information,
        catalog_information: ^fst$goi_catalog_information,
        catalog_permits: ^pft$permit_array,
        catalog_size: ^amt$file_byte_address,
        subcatalog_and_file_object_list: ^fst$goi_object_list,
      = fsc$goi_file_object =
        file_name: pft$name,
        applicable_file_permit: ^pft$permit_array_entry,
        file_information: ^fst$goi_file_information,
        file_log: ^pft$log_array,
        file_permits: ^pft$permit_array,
        password: pft$password,
        cycle_object_list: ^fst$goi_object_list,
      = fsc$goi_cycle_object =
        cycle_number: fst$cycle_number,
        cycle_global_file_name: ost$binary_unique_name,
        cycle_device_class: rmt$device_class,
        archive_information_list: ^fst$archive_information_list,
        cycle_device_information: ^fst$device_information,
        cycle_information: ^fst$goi_cycle_information,
        cycle_size: ^amt$file_byte_address,
        validation_error: boolean,
        file_label: ^SEQ ( * ),
        job_environment_information: ^fst$job_environment_information,
      casend,
    recend;

*copyc amt$file_byte_address
*copyc fst$archive_information_list
*copyc fst$cycle_number
*copyc fst$device_information
*copyc fst$goi_catalog_information
*copyc fst$goi_cycle_information
*copyc fst$goi_file_information
*copyc fst$goi_object_list
*copyc fst$goi_object_type
*copyc fst$job_environment_information
*copyc ost$binary_unique_name
*copyc pft$log_array
*copyc pft$name
*copyc pft$password
*copyc pft$permit_array
*copyc pft$permit_array_entry
*copyc rmt$device_class
