
  PROCEDURE [XREF] dmp$initialize_tape_volume
    (    element_name: cmt$element_name;
         external_vsn: rmt$external_vsn;
         recorded_vsn: rmt$recorded_vsn;
         density: rmt$density;
         owner_identifier: string (14);
         volume_accessibility_code: string (1);
         file_accessibility_code: string (1);
         character_set: amt$internal_code;
         label_standard_version: string (1);
     VAR status: ost$status);

?? PUSH (LIST := OFF) ??
*copyc amt$internal_code
*copyc cmt$element_name
*copyc rmd$volume_declarations
*copyc rmt$density
*copyc ost$status
?? POP ??
