
  PROCEDURE [INLINE] pfp$build_mainfram_list_locator
    (    p_mainframe_list: {input} ^pft$mainframe_usage_list;
         p_catalog_file: {input^} pft$p_catalog_file;
     VAR mainframe_list_locator: pft$mainframe_list_locator);

?? PUSH (LISTEXT := ON) ??

    VAR
      p_cell: ^cell;

    IF (p_mainframe_list = NIL) THEN
      mainframe_list_locator.mainframe_count := 0;
    ELSE
      mainframe_list_locator.mainframe_count := UPPERBOUND (p_mainframe_list^);
      p_cell := #LOC (p_mainframe_list^);
      mainframe_list_locator.relative_cell_pointer :=
            #REL (p_cell, p_catalog_file^);
    IFEND;

  PROCEND pfp$build_mainfram_list_locator;

*copyc pft$mainframe_list_locator
*copyc pft$mainframe_usage_list
*copyc pft$p_catalog_file
?? POP ??
