
  PROCEDURE [INLINE] clp$put_open_pos_in_path_handle
    (    open_position: fst$open_position;
     VAR path_handle_name {input, output} : amt$local_file_name);

?? PUSH (LISTEXT := ON) ??

    IF open_position.specified THEN
      path_handle_name (5) := clv$open_pos_in_handle [open_position.value];
    ELSE
      path_handle_name (5) := '_';
    IFEND;

  PROCEND clp$put_open_pos_in_path_handle;

*copyc amt$local_file_name
*copyc fst$open_position
?? POP ??
*copyc clv$open_pos_in_handle
