
  PROCEDURE [XREF] pfp$r3_define_removable_media
    (    path: pft$path;
         cycle_selector: pft$cycle_selector;
         password: pft$password;
         validation_ring: ost$valid_ring;
         retention: pft$retention;
         log: pft$log;
         device_class: rmt$device_class;
         p_removable_media_req_info: {input} ^fmt$removable_media_req_info;
         p_volume_list: {input} ^rmt$volume_list;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc osd$virtual_address
*copyc rmd$volume_declarations
*copyc pfe$error_condition_codes
*copyc rme$request_tape
*copyc fmt$removable_media_req_info
*copyc ost$status
*copyc pft$cycle_selector
*copyc pft$log
*copyc pft$password
*copyc pft$path
*copyc pft$retention
*copyc rmt$device_class
?? POP ??
