
  PROCEDURE [INLINE] dmp$get_recorded_vsn
    (    lun: iot$logical_unit;
     VAR recorded_vsn: rmt$recorded_vsn);

?? PUSH (LISTEXT := ON) ??

    VAR
      avti: dmt$active_volume_table_index,
      found: boolean;

    dmp$search_avt_by_lun (lun, avti, found);
    IF NOT found THEN
      recorded_vsn := '******';
      RETURN; {----->
    IFEND;

    recorded_vsn := dmv$active_volume_table.table_p^ [avti].mass_storage.
          recorded_vsn;

  PROCEND dmp$get_recorded_vsn;

*copyc iot$logical_unit
*copyc rmt$recorded_vsn
*copyc dmp$search_avt_by_lun
*copyc dmv$active_volume_table
?? POP ??
