
  PROCEDURE [XREF] pup$build_catalog_header
   (    set_name: stt$set_name;
        p_path: ^pft$path;
    VAR catalog_header: put$catalog_header);

?? PUSH (LISTEXT := ON) ??
*copyc ost$status
*copyc pft$path
*copyc stt$set_name
?? POP ??
