{
{   The purpose of this request is to find a catalog media description
{ sub-record within an catalog group info record and return a pointer to it.
{ If the catalog is an external catalog, the pointer to the catalog fmd is
{ also returned.
{
{       PFP$FIND_CATALOG_MEDIA (P_CATALOG_GROUP_INFO_RECORD,
{             P_CATALOG_MEDIA_DESCRIPTION, P_CATALOG_FMD,  STATUS)
{
{ P_CATALOG_GROUP_INFO_RECORD: (input) This parameter specifies the info record
{       in which the catalog description sub-record is to be found.
{
{ P_CATALOG_MEDIA_DESCRIPTION: (output) This parameter returns a pointer to the
{       desired catalog media description.
{
{ P_CATALOG_FMD: (output) This parameter returns a pointer to the file media
{       descriptor for the catalog if the catalog is an external catalog.
{
{ STATUS: (output) This parameter returns the request status.
{
{        CONDITIONS:
{            pfe$bad_info_record_format
{            pfe$unknown_catalog_media
{
