
  PROCEDURE [INLINE] clp$get_open_pos_of_path_handle
    (    path_handle_name: amt$local_file_name;
     VAR open_position: fst$open_position);

?? PUSH (LISTEXT := ON) ??

    CASE path_handle_name (5) OF
    = 'A' =
      open_position.specified := TRUE;
      open_position.value := amc$open_no_positioning;
    = 'B' =
      open_position.specified := TRUE;
      open_position.value := amc$open_at_boi;
    = 'E' =
      open_position.specified := TRUE;
      open_position.value := amc$open_at_eoi;
    ELSE
      open_position.specified := FALSE;
    CASEND;

  PROCEND clp$get_open_pos_of_path_handle;

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