?? FMT (FORMAT := OFF) ??
?? NEWTITLE := 'pfe$external_archive_conditions : 4800 .. 4899' ??
*copyc pfc$min_ecc

  CONST
    pfc$lowest_ext_archive_error = pfc$min_ecc + 4800,
    pfc$highest_ext_archive_error = pfc$min_ecc + 4899,


    pfe$bad_archive_identification = pfc$lowest_ext_archive_error + 1,
    {E Archive application name "+P" is improper.}

    pfe$unknown_archive_application = pfc$lowest_ext_archive_error + 2,
    {E No archive entry found in the info record for archive application +P.}

    pfe$unknown_archive_entry = pfc$lowest_ext_archive_error + 3,
    {E No archive entry found in the info record.}

    pfe$unknown_archive_ident = pfc$lowest_ext_archive_error + 4,
    {E Archive identification +P not found.}

    pfe$unknown_archive_info = pfc$lowest_ext_archive_error + 5,
    {E No archive info found in the info record.}

    pfe$unknown_archive_media_desc = pfc$lowest_ext_archive_error + 6,
    {E No archive media descriptor found in the info record.}

    pfe$empty_archive_list = pfc$lowest_ext_archive_error + 7,
    {E No archive list found.}

    pfe$data_not_releasable = pfc$lowest_ext_archive_error + 8;
    {E Data is not releasable for cycle +P2 of file +P1.}

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