?? FMT (FORMAT := OFF) ??
?? NEWTITLE := 'Permanent File Manager : 0000 .. 2599' ??
*copyc pfc$min_ecc

  CONST
    pfc$permanent_file_manager_id = 'PF',
    pfc$lowest_error = pfc$min_ecc,
    pfc$highest_error = pfc$min_ecc + 9999,

    {Permanent File Exception Condition Codes}

    pfe$allocation_mismatch = pfc$lowest_error + 50,
    {E File +F cannot be attached because it has overflowed to different}
    { allocation sizes.}
    {+N3 The file must be deleted and restored.}

    pfe$allowed_damage_mismatch = pfc$lowest_error + 75,
    {E File +F is currently attached to this job with
    { ALLOWED_EXCEPTION_CONDITIONS of +P2.}
    {+N3 All concurrent attaches within a job must be made with the same value}
    {+E3 for ALLOWED_EXCEPTION_CONDITIONS.}

    pfe$bad_account_name = pfc$lowest_error + 105,
    {E Account name "+P" is improper.}

    pfe$bad_change_type = pfc$lowest_error + 111,
    {E Permanent file change type "+P" is improper.}

    pfe$bad_cycle_number = pfc$lowest_error + 116,
    {E File cycle number "+P" is out of range.  It must be between 1 and 999.}

    pfe$bad_cycle_option = pfc$lowest_error + 122,
    {E File cycle option "+P" is improper.}

    pfe$bad_family_name = pfc$lowest_error + 127,
    {E Family name "+P" is improper.}

    pfe$bad_group_type = pfc$lowest_error + 133,
    {E Permanent file group type "+P" is improper.}

    pfe$bad_last_subcatalog_name = pfc$lowest_error + 138,
    {E Subcatalog name "+P" is improper.}

    pfe$bad_local_file_name = pfc$lowest_error + 144,
    {E Local file name "+P" is improper.}

    pfe$bad_log_option = pfc$lowest_error + 150,
    {E Permanent file log option "+P" is improper.}

    pfe$bad_master_catalog_name = pfc$lowest_error + 155,
    {E Master catalog name "+P" is improper.}

    pfe$bad_nth_subcatalog_name = pfc$lowest_error + 161,
    {E Subcatalog name "+P" is improper.}

    pfe$bad_password = pfc$lowest_error + 166,
    {E Permanent file password "+P" is improper.}

    pfe$bad_permanent_file_name = pfc$lowest_error + 172,
    {E File name "+P" is improper.}

    pfe$bad_project_name = pfc$lowest_error + 177,
    {E Project name "+P" is improper.}

    pfe$bad_retention_period = pfc$lowest_error + 183,
    {E Permanent file retention period "+P" is improper.}

    pfe$bad_user_name = pfc$lowest_error + 188,
    {E User name "+P" is improper.}

    pfe$bad_wait_option = pfc$lowest_error + 194,
    {E Permanent file wait option "+P" is improper.}

    pfe$cannot_purge_master_catalog = pfc$lowest_error + 207,
    {E A master catalog cannot be deleted using this command or program}
    { interface.}

    pfe$catalog_full = pfc$lowest_error + 214,
    {E Permanent file catalog +P1 is full.  +P2}

    pfe$catalog_move_not_supported = pfc$lowest_error + 220,
    {E The movement of catalogs is not currently supported.  This capability}
    { will be supported in a future release.}

    pfe$catalog_not_empty = pfc$lowest_error + 228,
    {E Permanent file catalog +P is not empty.}

    pfe$catalog_volume_not_online = pfc$lowest_error + 232,
    {E Catalog volume +P1 not on-line +P2 +P3.}

    pfe$catalog_volume_unavailable = pfc$lowest_error + 234,
    {E Catalog volume +P1 unavailable +P2 +P3.}

    pfe$change_requires_privilege = pfc$lowest_error + 236,
    {E System or Family Administration privilege is required to change}
    { the RETRIEVE_OPTION from ADMINISTRATIVE_RETRIEVE_ONLY to +P1.}

    pfe$cycle_busy = pfc$lowest_error + 242,
    {E Cycle number +P2 of permanent file +P1 is busy.}
    {+N3 +P3}

    { Describe the possible reasons for pfe$cycle_busy.
    pfc$current_job_usage_conflict = 'Requested usage conflicts with how' CAT
          ' the job currently has the cycle attached.',
    pfc$current_job_share_conflict = 'Requested sharing conflicts with how' CAT
          ' the job is currently sharing the cycle.',
    pfc$multiple_job_usage_conflict = 'Requested usage conflicts with how' CAT
          ' other jobs are willing to share the cycle.',
    pfc$multiple_job_share_conflict  = 'Requested sharing conflicts with' CAT
          ' how other jobs are using the cycle.',
    pfc$another_mainframe_writer = 'Another mainframe is writing the cycle.',
    pfc$another_mainframe_user = 'Requested write usage, but another' CAT
          ' mainframe is using the cycle.',

    pfe$cycle_data_resides_offline = pfc$lowest_error + 250,
    {E Cycle +P2 of file +P1 is unavailable because its data resides off-line.}

    pfe$explicit_retrieve_required = pfc$lowest_error + 252,
    {E Implicit retrieval of cycle +P2 of file +P1 is not allowed because it has}
    { a RETRIEVE_OPTION of EXPLICIT_RETRIEVE_ONLY.}

    pfe$cycle_overflow = pfc$lowest_error + 257,
    {E The highest possible cycle number already exists for file +F.}

    pfe$cycle_underflow = pfc$lowest_error + 271,
    {E The lowest possible cycle number already exists for file +F.}

    pfe$cycles_media_missing = pfc$lowest_error + 285,
    {E File +P resides on a medium that is missing.}
    {+N3 Either delete the cycle, restore it, or wait for the volume to be}
    {+E3 reinstalled.}

    pfe$duplicate_cycle = pfc$lowest_error + 350,
    {E Cycle number +P2 already exists for permanent file +P1.}

    pfe$duplicate_offline_cycle = pfc$lowest_error + 355,
    {E Offline data already exists for cycle +P2 of permanent file +P1.}

    pfe$duplicate_purged_cycle = pfc$lowest_error + 375,
    {E Cycle +P has been deleted but is currently attached to this job.}
    {+N3 The cycle can be accessed using the local_file_name or a path}
    {+E3 specification that includes the cycle number. +E3 Until this cycle is}
    {+E3 detached, an identical cycle cannot be created by this job.}

    pfe$family_already_exists = pfc$lowest_error + 550,
    {E Family "+P" already exists.}

    pfe$incorrect_damage_condition = pfc$lowest_error + 825,
    {E Incorrect damage condition.  The +P}

    pfe$incorrect_password = pfc$lowest_error + 850,
    {E The password provided is incorrect for permanent file +P.}

    pfe$invalid_class_on_dest_vol = pfc$lowest_error + 857,
    {E Mass storage class +P1 is not represented on any of the specified}
    { destination volumes.}

    pfe$invalid_class_on_source_vol = pfc$lowest_error + 858,
    {E Mass storage class +P1 is present on one or more of the specified}
    { source volumes.}

    pfe$invalid_group = pfc$lowest_error + 860,
    {E You do not have authority to create a permit with a +P other than your}
    { own.}

    pfe$invalid_group_type = pfc$lowest_error + 865,
    {E You do not have authority to create a permit with a group type of +P.}

    pfe$invalid_input_file_format = pfc$lowest_error + 868,
    {E The format of input file is invalid.  The only valid input to the}
    { EXTRACT_FILE_LIST command is an output file of the MOVE_CLASSES command.}

    pfe$invalid_mass_storage_class = pfc$lowest_error + 870,
    {E Mass storage classes A, C, N & Q are invalid selections for the}
    { MASS_STORAGE_CLASSES parameter.}

    pfe$invalid_ring_access = pfc$lowest_error + 875,
    {E The task is executing with insufficient ring privilege for the}
    { requested access to permanent file +P.}

    pfe$invalid_shared_queue_name = pfc$lowest_error + 880,
    {E Shared queue name "+P" is invalid.}

    pfe$invalid_shared_queue_ord = pfc$lowest_error + 885,
    {E Shared queue ordinal "+P" is invalid.}

    pfe$last_name_not_subcatalog = pfc$lowest_error + 1133,
    {E +P is expected to be the name of a subcatalog, but it is a permanent}
    { file.}

    pfe$lfn_in_use = pfc$lowest_error + 1166,
    {E Local file name "+P" is already in use.}

    pfe$media_image_inconsistent = pfc$lowest_error + 1230,
    {E +F has been corrupted by a system interrupt.}
    {+N3 Use change_catalog_entry}
    {+E3 delete_damage_condition=media_image_inconsistent to clear this error.}

    pfe$movc_parameter_conflict_1 = pfc$lowest_error + 1260,
    {E Either the SOURCE_VOLUMES parameter or the DESTINATION_VOLUMES parameter}
    { must be specified.}

    pfe$movc_parameter_conflict_2 = pfc$lowest_error + 1261,
    {E When the +P1 parameter is specified, neither the FILES parameter nor the}
    { CATALOGS parameter may be specified.}

    pfe$movc_no_source_volumes = pfc$lowest_error + 1262,
    {E No source volumes were found because all volumes in the +P1 set were}
    { included in the DESTINATION_VOLUMES list.}

    pfe$movc_no_destination_volumes = pfc$lowest_error + 1263,
    {E No destination volumes with the specified mass storage classes were found}
    { in the +P1 set.}

    pfe$movc_invalid_device_class = pfc$lowest_error + 1264,
    {E MOVE_CLASSES cannot move file +P1 because it has a device class of +P2.}

    pfe$movc_subfile_list_seq_size = pfc$lowest_error + 1265,
    {E MOVE_CLASSES cannot move +P1 +P2 because the sequence for the subfile}
    { list is too small.}

    pfe$movc_ms_class_conflict = pfc$lowest_error + 1266,
    {E MOVE_CLASSES cannot move +P1 +P2 because it belongs to mass storage}
    { class +P3 which was not included in the specified mass storage classes.}

    pfe$movc_not_on_source_volumes = pfc$lowest_error + 1267,
    {E MOVE_CLASSES cannot move +P1 +P2 because it does not reside on the}
    { specified source volumes.}

    pfe$movc_insufficient_space = pfc$lowest_error + 1268,
    {E There is insufficient space of mass storage class +P1 on set +P2}
    { to move +P3 +P4.}

    pfe$movc_no_available_space = pfc$lowest_error + 1269,
    {E There is no available space of mass storage class +P1 on set +P2}
    { to move +P3 +P4.}

    pfe$movc_family_not_in_set = pfc$lowest_error + 1270,
    {E The family administrator's login family +P1 is not in set +P2.}

    pfe$movc_operator_termination = pfc$lowest_error + 1271,
    {E Due to insufficient mass storage space, the operator selected the}
    { menu option to terminate the MOVE_CLASSES command.}

    pfe$movc_volume_unavailable = pfc$lowest_error + 1272,
    {E +P1 +P2 is not in the ON state.}

    pfe$movc_sys_set_root_not_moved = pfc$lowest_error + 1273,
    {E The root catalog of the system set (+P1) cannot be moved.}

    pfe$name_already_permanent_file = pfc$lowest_error + 1314,
    {E +F is already being used as the name of a file.}

    pfe$name_already_subcatalog = pfc$lowest_error + 1328,
    {E +P is already being used as the name of a permanent file subcatalog.}

    pfe$name_already_used = pfc$lowest_error + 1342,
    {E Name "+P" is already being used.}

    pfe$name_not_permanent_file = pfc$lowest_error + 1357,
    {E +F is expected to be the name of a file, but it is a catalog.}

    pfe$no_access_before_commit = pfc$lowest_error + 1364,
    {E Access to permanent files is not allowed prior to system commit.}

    pfe$no_permit_deleted = pfc$lowest_error + 1367,
    {W There is no permit of the specified group type to delete.}

    pfe$no_site_option_validation = pfc$lowest_error + 1368,
    {E You are not validated to use a value of +P2 for +P1.}

    pfe$non_owner_tape_file_create = pfc$lowest_error + 1369,
    {E You are not allowed to create tape files in catalog +P1.}
    {+N3 Creation of tape files is restricted to the catalog owner.}

    pfe$no_space_for_master_catalog = pfc$lowest_error + 1370,
    {E No catalog space is available to create a master catalog for user +P1 on family +P2.}

    pfe$not_master_catalog_owner = pfc$lowest_error + 1371,
    {E You are not the owner of master catalog +P1 of family +P2.}

    pfe$nth_name_not_subcatalog = pfc$lowest_error + 1385,
    {E +P is expected to be the name of a subcatalog, but it is a permanent}
    { file.}

    pfe$null_access_not_allowed = pfc$lowest_error + 1390,
    {E File +P cannot be attached with no modes of access.}

    pfe$parent_catalog_restored = pfc$lowest_error + 1525,
    {E File +P resides in a catalog that was restored.}
    {+N3 Your file attributes, file permits, access log, modification date}
    {+E3 time, or access date time may be inaccurate.}
    {+N3 Use change_catalog_entry}
    {+E3 delete_damage_condition=parent_catalog_restored to clear this error.}

    pfe$path_too_long = pfc$lowest_error + 1529,
    {E The path (or new path) is too long.}

    pfe$path_too_short = pfc$lowest_error + 1533,
    {E The "+P3" parameter requires at least +P2 names; +P1 was given.}

    pfe$pf_system_error = pfc$lowest_error + 1566,
    {E A system error has occurred.}

    pfe$process_storage_errors = pfc$lowest_error + 1583,
    {W PROCESS_STORAGE detected +P error(s).  Examine $ERRORS file.}

    pfe$redundant_volume_spec = pfc$lowest_error + 1590,
    {E Volume +P1 was specified on both the SOURCE_VOLUMES parameter and}
    { the DESTINATION_VOLUMES parameter.}

    pfe$replace_cycle_data_busy = pfc$lowest_error + 1591,
    {E Data for +P1 cannot be replaced because the file is attached.}

    pfe$resides_on_dest_volumes = pfc$lowest_error + 1600,
    {E +P1 +P2 was not moved because it already resides entirely on the}
    { destination volume(s).}

    pfe$respf_modification_mismatch = pfc$lowest_error + 1750,
    {E File +P1 has been restored.}
    {+N3 Changes made between +P2 +P3 and a failure have been lost.}
    {+N3 Use change_catalog_entry}
    {+E3 delete_damage_condition=respf_modification_mismatch to clear this}
    {+E3 error.}

    pfe$retrieve_requires_privilege = pfc$lowest_error + 1760,
    {E Administrative privilege is required to retrieve cycle +P2 of file +P1}
    { because it has a RETRIEVE_OPTION of ADMINISTRATIVE_RETRIEVE_ONLY.}

    pfe$sharing_not_permitted = pfc$lowest_error + 1850,
    {E To access permanent file +P1, you are required to allow sharing of +P2,}
    { not the intended sharing of +P3.}

    pfe$skipped_catalog = pfc$lowest_error + 1867,
    {W +P1 skipped catalog +F2 due to following error.}

    pfe$skipped_file = pfc$lowest_error + 1875,
    {W +P1 skipped file +F2 cycle +P3 due to following error.}

    pfe$too_many_catalogs_in_path = pfc$lowest_error + 1950,
    {E A path may be composed of no more than +P2 catalogs.  +P3 catalogs were}
    { specified in path +P1.}

    pfe$undefined_data = pfc$lowest_error + 2011,
    {E No data is defined for cycle +P2 of permanent file +P1.}

    pfe$unknown_cycle = pfc$lowest_error + 2022,
    {E Cycle number "+P2" of permanent file +P1 does not exist.}

    pfe$unknown_family = pfc$lowest_error + 2033,
    {E Family name +P does not exist or you are not permitted for any access.}

    pfe$unknown_last_subcatalog = pfc$lowest_error + 2044,
    {E Subcatalog name +P does not exist or you are not permitted for any}
    { access.}

    pfe$unknown_master_catalog = pfc$lowest_error + 2055,
    {E Master catalog name +P does not exist or you are not permitted for any}
    { access.}

    pfe$unknown_nth_subcatalog = pfc$lowest_error + 2066,
    {E Subcatalog name +P does not exist or you are not permitted for any}
    { access.}

    pfe$unknown_permanent_file = pfc$lowest_error + 2077,
    {E File +F does not exist or you are not permitted for any access.}

    pfe$usage_not_permitted = pfc$lowest_error + 2088,
    {E You are only permitted access to permanent file +P1 for +P2 usage, not}
    { the requested usage of +P3.  +P4}

    { If the owner of a file denies all permission to the file for
    { himself and then attempts to open a cycle of the file using
    { fsc$permitted_access_modes, then the above error will contain "null set"
    { for both +P2 and +P3, which is confusing.  In this case +P4 will be
    { replaced by the following text.

    pfc$usage_self_denied = 'That is, you have denied yourself permission' CAT
          ' to the file.',

    pfe$volume_not_online = pfc$lowest_error + 2095,
    {E Volume +P2 not on-line for file +F1.}

    pfe$volume_unavailable = pfc$lowest_error + 2099;
    {E Volume +P2 unavailable for file +F1.}

?? OLDTITLE ??
?? FMT (FORMAT := ON) ??
