
  PROCEDURE [XREF] pfp$find_catalog_media
    (    p_info_record: pft$p_info_record;
     VAR p_catalog_media_description: pft$p_catalog_media_description;
     VAR p_catalog_fmd: ^SEQ ( * );
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc pft$catalog_media_description
*copyc pft$p_info_record
*copyc ost$status
?? POP ??
