{
{   The purpose of this request is to find the archive info record contained in
{ the cycle array for a file cycle.  The archive info record contains all of
{ the archive entries for the file cycle.
{
{       PFP$FIND_ARCHIVE_INFO (P_CYCLE_INFO_RECORD, P_INFO_RECORD, STATUS)
{
{ P_CYCLE_INFO_RECORD: (input)  This parameter specifies the cycle info record
{       in which the archive info record is to be found.
{
{ P_INFO_RECORD: (output)  This parameter returns the pointer to the archive
{       info record.
{
{ STATUS: (output) This parameter returns the request status.
{
{        CONDITIONS: pfe$bad_info_record_format
{                    pfe$invalid_or_unusable_pva
{                    pfe$nil_pointer
{                    pfe$unknown_archive_info
{
