?? RIGHT := 110 ??
?? NEWTITLE := 'NOS/VE Device Management' ??
MODULE dmm$get_logical_unit_number ALIAS 'DMMGLUN';
?? RIGHT := 110 ??

?? NEWTITLE := 'Global Declarations Referenced By This Module', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc rmd$volume_declarations
*copyc dmt$error_condition_codes
*copyc iot$logical_unit
?? POP ??
*copyc dmp$search_avt_by_rvsn
*copyc osp$set_status_abnormal
*copyc dmv$active_volume_table
?? OLDTITLE ??
?? NEWTITLE := '  dmp$get_logical_unit_number', EJECT ??

  PROCEDURE [XDCL, #GATE] dmp$get_logical_unit_number
    (    recorded_vsn: rmt$recorded_vsn;
     VAR logical_unit_number: iot$logical_unit;
     VAR status: ost$status);

    VAR
      avt_index: dmt$active_volume_table_index,
      active_volume_entry_found: boolean;

    status.normal := TRUE;
    dmp$search_avt_by_rvsn (recorded_vsn, avt_index, active_volume_entry_found);
    IF NOT active_volume_entry_found THEN
      osp$set_status_abnormal (dmc$device_manager_ident, dme$recorded_vsn_not_in_lun,
            'dmp$get_logical_unit_number', status);
    ELSE
      logical_unit_number := dmv$active_volume_table.table_p^ [avt_index].logical_unit_number;
    IFEND;

  PROCEND dmp$get_logical_unit_number;
?? OLDTITLE ??
MODEND dmm$get_logical_unit_number;
