{
{   The purpose of this request is to find a permit array sub-record within
{ an info record and return a pointer to it.
{
{       PFP$FIND_PERMIT_ARRAY (P_INFO_RECORD, P_PERMIT_ARRAY, STATUS)
{
{ P_INFO_RECORD: (input) This parameter specifies the info record in which
{       the permit array sub-record is to be found.
{
{ P_PERMIT_ARRAY: (output) This parameter returns a pointer to the desired
{       permit array.
{
{ STATUS: (output) This parameter returns the request status.
{
{        CONDITIONS: pfe$unknown_permit_array
{                    pfe$bad_info_record_format
{
