
  PROCEDURE [INLINE] pfp$build_file_label_locator
    (    p_file_label: {input} pft$p_stored_file_label;
         p_catalog_file: {input^} pft$p_catalog_file;
     VAR file_label_locator: pft$file_label_locator);

?? PUSH (LISTEXT := ON) ??

    VAR
      p_cell: ^cell;

    IF (p_file_label = NIL) THEN
      file_label_locator.file_label_size := 0;
    ELSE
      file_label_locator.file_label_size := #SIZE (p_file_label^.file_label);
      p_cell := #LOC (p_file_label^);
      file_label_locator.relative_cell_pointer :=
            #REL (p_cell, p_catalog_file^);
    IFEND;

  PROCEND pfp$build_file_label_locator;

*copyc pft$file_label_locator
*copyc pft$p_catalog_file
*copyc pft$p_stored_file_label
?? POP ??
