
  PROCEDURE [XREF] rap$write_subproduct_info_file
    (    pacs_catalog: rat$path;
     VAR subproduct_info_pointers {input} : rat$subproduct_info_pointers;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc ost$status
*copyc rat$path
*copyc rat$subproduct_info_pointers
?? POP ??
