 TYPE
    put$cycle_display_options = (puc$cdo_identifier, puc$cdo_size,
      puc$cdo_creation_date_time, puc$cdo_access_date_time,
      puc$cdo_modification_date_time, puc$cdo_expiration_date,
      puc$cdo_access_count, puc$cdo_global_file_name, puc$cdo_recorded_vsn,
      puc$cdo_alternate_storage, puc$cdo_alternate_mod_date_time,
      puc$cdo_alternate_size, puc$cdo_action_descriptor);

  TYPE
    put$cycle_display_selections = set of put$cycle_display_options;

  TYPE
    put$action_descriptor = string (14);

  CONST
    puc$unknown_cycle_size = (amc$file_byte_limit - 17),

    puc$released_cycle_size = (amc$file_byte_limit - 18),

    puc$unknown_recorded_vsn = '------',

    puc$nonexistent_recorded_vsn = 'NO VSN',

    puc$item_backed_up = 'ITEM BACKED UP';

  VAR
    puv$unknown_global_file_name: [READ, pus$literals] ost$binary_unique_name
      := [0, osc$cyber_180_model_unknown, 1980, 1, 1, 0, 0, 0, 0, 0],

    puv$no_expiration_date: [READ, pus$literals] ost$date_time := [255, 12, 31,
      23, 59, 59, 999];

  TYPE
    put$file_display_options = (puc$fdo_identifier, puc$fdo_account,
      puc$fdo_project, puc$fdo_action_descriptor);

  TYPE
    put$file_display_selections = set of put$file_display_options;

  CONST
    puc$unknown_account = ' UNKNOWN ACCOUNT               ',
    puc$unknown_project = ' UNKNOWN PROJECT               ';

*copyc pus$literals
*copyc osd$unique_name
*copyc osd$virtual_address
*copyc amt$access_level
*copyc amt$attribute_source
*copyc amt$average_record_length
*copyc amt$block_type
*copyc amt$collate_table
*copyc amt$collation_value
*copyc amt$data_padding
*copyc amt$error_exit_procedure
*copyc amt$error_limit
*copyc amt$estimated_record_count
*copyc amt$file_access_selections
*copyc amt$file_attribute_keys
*copyc amt$file_attributes
*copyc amt$file_byte_address
*copyc amt$file_identifier
*copyc amt$file_length
*copyc amt$file_limit
*copyc amt$file_organization
*copyc amt$file_position
*copyc amt$forced_write
*copyc amt$global_file_position
*copyc amt$index_padding
*copyc amt$internal_code
*copyc amt$key_length
*copyc amt$key_position
*copyc amt$key_type
*copyc amt$label_exit_procedure
*copyc amt$label_options
*copyc amt$label_type
*copyc amt$local_file_name
*copyc amc$mau_length
*copyc amt$max_block_length
*copyc amt$max_record_length
*copyc amt$message_control
*copyc amt$min_block_length
*copyc amt$min_record_length
*copyc amt$padding_character
*copyc amt$record_limit
*copyc amt$record_type
*copyc amt$records_per_block
*copyc amt$return_option
*copyc amt$user_info
*copyc amt$vertical_print_density
*copyc ost$date_time
*copyc ost$status
