
  PROCEDURE [XREF] nfp$perform_implicit_access
    (    location: ost$name;
         local_file_path: fst$file_reference;
         remote_file_path: fst$file_reference;
         access_mode: nft$mode_of_access;
         command_name: ost$name_reference;
         pdt: ^clt$unbundled_pdt;
         pvt: ^clt$parameter_value_table;
         parameter_substitutions: ^clt$parameter_substitutions;
     VAR work_area {input, output} : ^clt$work_area;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc clt$parameter_substitutions
*copyc clt$parameter_value_table
*copyc clt$unbundled_pdt
*copyc clt$work_area
*copyc fst$file_reference
*copyc nft$mode_of_access
*copyc ost$name_reference
*copyc ost$status
?? POP ??
