
  PROCEDURE [INLINE] fmp$extract_dynamic_setfa_attrs
    (    dynamic_setfa_entries: ^fst$setfa_attachment_options;
     VAR dynamic_attributes: bat$dynamic_label_attributes);

?? PUSH (LISTEXT := ON) ??
    IF dynamic_setfa_entries^.access_modes_specified THEN
      #UNCHECKED_CONVERSION (dynamic_setfa_entries^.access_modes,
            dynamic_attributes.access_mode);
      dynamic_attributes.access_mode_source := amc$file_command;
    IFEND;
    IF dynamic_setfa_entries^.error_exit_name_specified THEN
      dynamic_attributes.error_exit_name := dynamic_setfa_entries^.error_exit_name;
      dynamic_attributes.error_exit_name_source := amc$file_command;
    IFEND;
    IF dynamic_setfa_entries^.error_limit_specified THEN
      dynamic_attributes.error_limit := dynamic_setfa_entries^.error_limit;
      dynamic_attributes.error_limit_source := amc$file_command;
    IFEND;
    IF dynamic_setfa_entries^.label_exit_name_specified THEN
      dynamic_attributes.label_exit_name := dynamic_setfa_entries^.label_exit_name;
      dynamic_attributes.label_exit_name_source := amc$file_command;
    IFEND;
    IF dynamic_setfa_entries^.message_control_specified THEN
      dynamic_attributes.message_control := dynamic_setfa_entries^.message_control;
      dynamic_attributes.message_control_source := amc$file_command;
    IFEND;
    IF dynamic_setfa_entries^.open_position_specified THEN
      dynamic_attributes.open_position := dynamic_setfa_entries^.open_position;
      dynamic_attributes.open_position_source := amc$file_command;
    IFEND;

  PROCEND fmp$extract_dynamic_setfa_attrs;

*copyc bat$dynamic_label_attributes
*copyc fst$setfa_attachment_options
?? POP ??

