
  PROCEDURE [INLINE] dmp$get_stored_fmd_header_info
    (    p_fmd: {input} ^dmt$stored_fmd;
     VAR fmd_header_info: pft$fmd_header;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??

    VAR
      p_fmd_header: ^dmt$stored_ms_fmd_header,
      p_fmd_version: ^dmt$stored_ms_version_number,
      p_stored_fmd: ^dmt$stored_fmd;

    status.normal := TRUE;

    p_stored_fmd := p_fmd;
    RESET p_stored_fmd;

    NEXT p_fmd_version IN p_stored_fmd;
    IF p_fmd_version = NIL THEN
      osp$set_status_abnormal (dmc$device_manager_ident, dme$fmd_too_small,
            'FMD too small 1 - dmp$get_stored_fmd_header_info.', status);
      RETURN;
    IFEND;

    NEXT p_fmd_header: [dmc$current_fmd_version] IN p_stored_fmd;
    IF p_fmd_header = NIL THEN
      osp$set_status_abnormal (dmc$device_manager_ident, dme$fmd_too_small,
            'FMD too small 2 - dmp$get_stored_fmd_header_info.', status);
      RETURN;
    IFEND;

    fmd_header_info.clear_space := p_fmd_header^.version_0_0.clear_space;
    fmd_header_info.file_limit := p_fmd_header^.version_0_0.file_limit;
    fmd_header_info.number_of_subfiles :=
          p_fmd_header^.version_0_0.number_fmds;
    fmd_header_info.overflow_allowed := p_fmd_header^.version_0_0.
          overflow_allowed;
    fmd_header_info.preset_value := p_fmd_header^.version_0_0.preset_value;
    fmd_header_info.requested_allocation_size :=
          p_fmd_header^.version_0_0.requested_allocation_size;
    fmd_header_info.requested_class := p_fmd_header^.version_0_0.
          requested_class;
    fmd_header_info.requested_class_ordinal :=
          p_fmd_header^.version_0_0.requested_class_ordinal;
    fmd_header_info.requested_transfer_size :=
          p_fmd_header^.version_0_0.requested_transfer_size;
    fmd_header_info.requested_volume := p_fmd_header^.version_0_0.
          requested_volume;

  PROCEND dmp$get_stored_fmd_header_info;

*copyc dmt$error_condition_codes
*copyc dmt$stored_fmd
*copyc dmt$stored_ms_fmd_header
*copyc osp$set_status_abnormal
*copyc ost$status
*copyc pft$fmd_header
?? POP ??
