
  PROCEDURE [XREF] nfp$get_btfs_di_address
    (    title: nft$btfs_di_title;
         client: nat$application_name;
         station: ost$name;
         device: ost$name;
         wait_list: ^ost$i_wait_list;
         wait_activity_list: ^nft$wait_activity_list;
     VAR network_address: nat$network_address;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc nat$application_name
*copyc nat$network_address
*copyc nft$btfs_di_title
*copyc nft$wait_activity_list
*copyc ost$i_wait
*copyc ost$name
*copyc ost$status
?? POP ??
