
  PROCEDURE [INLINE] dmp$get_mfl_pointer
    (    avt_index: dmt$active_volume_table_index;
     VAR p_mfl: ^dmt$ms_mf_device_file_list);

?? PUSH (LISTEXT := ON) ??

    TYPE
      converter_type = record
        case boolean of
        = FALSE =
          p_adaptable: cyt$adaptable_array_pointer,
        = TRUE =
          p_mfl: ^dmt$ms_mf_device_file_list,
        casend,
      recend;

    VAR
      converter: converter_type;

    converter.p_adaptable := dmv$active_volume_table.table_p^ [avt_index].
          mass_storage.p_mfl;
    p_mfl := converter.p_mfl;

  PROCEND dmp$get_mfl_pointer;

*copyc dmt$active_volume_table_index
*copyc dmt$mainframe_device_file_list
*copyc dmv$active_volume_table
?? POP ??

