MASS_MARC_SITE_FRM SAP ABAP INCLUDE - Include MASS_VENDOR_SITE_FRM

MASS_MARC_SITE_FRM is a standard ABAP INCLUDE available within your SAP system (depending on your version and release level). Below is the basic information available for this SAP report including which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC. Also check out the submitted Comments related to this SAP report or see any standard documentation available.

If you would like to execute this report or see the full code listing simply enter MASS_MARC_SITE_FRM into the relevant SAP transactions such as SE38 or SE80

ABAP code to call this SAP report using the submit statement

This report can be called from another progam/report simply by using the ABAP SUBMIT statement, see below for example ABAP code snipts of how to do this.

SUBMIT MASS_MARC_SITE_FRM. "Basic submit
SUBMIT MASS_MARC_SITE_FRM AND RETURN. "Return to original report after report execution complete
SUBMIT MASS_MARC_SITE_FRM VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement

Text pool values

INCLUDES used within this REPORT MASS_MARC_SITE_FRM

No INCLUDES are used within this REPORT code!

TABLES used within REPORT and the associated SELECT statement:

No SAP DATABASE tables are accessed within this REPORT code!

Function Modules used within report and the associated call statement:

LVC_FIELDCATALOG_MERGE
    CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
      EXPORTING
        i_structure_name       = 'MASS_MARC'
        i_client_never_display = 'X'
      CHANGING
        ct_fieldcat            = gt_fieldcatalog.

I_MASS_FORMULA_DIALOG
        CALL FUNCTION 'I_MASS_FORMULA_DIALOG'
          TABLES
            changes     = t_formula
          EXCEPTIONS
            user_cancel = 1
            OTHERS      = 2.

I_MASS_CALC_FORMULA
  CALL FUNCTION 'I_MASS_CALC_FORMULA'
    EXPORTING
      tablename     = 'MASS_MARC_D'
    TABLES
      changes       = p_t_formula
      tabledata_old = p_gt_marc
      tabledata_new = p_mod_gt_marc.

I_MASS_CALC_FORMULA
*    CALL FUNCTION 'I_MASS_CALC_FORMULA'
*      EXPORTING
*        tablename     = 'MARC'
*      TABLES
*        changes       = p_t_formula
*        tabledata_old = p_gt_MARC
*        tabledata_new = p_mod_gt_MARC.

I_MASS_CALC_FORMULA
*    CALL FUNCTION 'I_MASS_CALC_FORMULA'
*      EXPORTING
*        tablename     = 'PROP'
*      TABLES
*        changes       = p_t_formula
*        tabledata_old = lt_gt_marc
*        tabledata_new = p_mod_gt_MARC.

I_MASS_CALC_FORMULA
*    CALL FUNCTION 'I_MASS_CALC_FORMULA'
*      EXPORTING
*        tablename     = 'MAPR'
*      TABLES
*        changes       = p_t_formula
*        tabledata_old = lt_gt_marc
*        tabledata_new = p_mod_gt_MARC.

I_MASS_CALC_FORMULA
*    CALL FUNCTION 'I_MASS_CALC_FORMULA'
*      EXPORTING
*        tablename     = 'WRPL'
*      TABLES
*        changes       = p_t_formula
*        tabledata_old = lt_gt_marc
*        tabledata_new = p_mod_gt_MARC.

MASS_MARC_CHANGE_CELL_VALUE
  CALL FUNCTION 'MASS_MARC_CHANGE_CELL_VALUE'
    EXPORTING
      new_color            = l_new_color
      fieldcatalog         = pt_fieldcatalog[]
      p_refsite_distr      = p_refsite_distr
      at_least_one_mpop    = p_at_least_one_mpop
      at_least_one_wrpl    = p_at_least_one_wrpl
    TABLES
      table_to_change_from = lt_table_to_change_from
      table_to_change      = p_gt_marc
      previous_color_table = p_all_gt_marc
    CHANGING
      lines_to_change      = lt_lines_to_change.

MASS_MARC_CHANGE_CELL_VALUE
  CALL FUNCTION 'MASS_MARC_CHANGE_CELL_VALUE'
    EXPORTING
      new_color            = l_new_color
      fieldcatalog         = lt_fieldcatalog_temp[]
      field_to_clear       = p_check
      p_refsite_distr      = p_refsite_distr
      at_least_one_mpop    = p_at_least_one_mpop
      at_least_one_wrpl    = p_at_least_one_wrpl
    TABLES
      table_to_change_from = lt_table_to_change_from
      table_to_change      = p_gt_marc
      previous_color_table = p_all_gt_marc
    CHANGING
      lines_to_change      = lt_lines_to_change.

POPUP_TO_CONFIRM
    CALL FUNCTION 'POPUP_TO_CONFIRM'
      EXPORTING
        titlebar              = text-032 "warning
        text_question         = w_text
        text_button_1         = text-034 "yes
        text_button_2         = text-035 "no
        default_button        = '1'
        display_cancel_button = 'X'
      IMPORTING
        answer                = w_res.

MASS_MARC_CHANGE_CELL_VALUE
  CALL FUNCTION 'MASS_MARC_CHANGE_CELL_VALUE'
    EXPORTING
      new_color            = l_new_color
      fieldcatalog         = pt_fieldcatalog[]
      p_refsite_distr      = l_refsite_distr
      at_least_one_mpop    = p_at_least_one_mpop
      at_least_one_wrpl    = p_at_least_one_wrpl
    TABLES
      table_to_change_from = lt_table_to_change_from
      table_to_change      = pt_marc
      previous_color_table = p_all_gt_marc
    CHANGING
      lines_to_change      = lt_lines_to_change.

MASS_MARC_CHANGE_CELL_VALUE
  CALL FUNCTION 'MASS_MARC_CHANGE_CELL_VALUE'
    EXPORTING
      new_color            = l_new_color
      fieldcatalog         = pt_fieldcatalog[]
      p_refsite_distr      = p_refsite_distr
      at_least_one_mpop    = p_at_least_one_mpop
      at_least_one_wrpl    = p_at_least_one_wrpl
    TABLES
      table_to_change_from = lt_table_to_change_from
      table_to_change      = p_gt_marc
      previous_color_table = p_all_gt_marc
    CHANGING
      lines_to_change      = lt_lines_to_change.

MASS_SCRN_CREATE
      CALL FUNCTION 'MASS_SCRN_CREATE'
        EXPORTING
          i_progname                   = li_progname
          i_prognbr                    = '0310'
        IMPORTING
          e_progname                   = le_progname
          e_prognbr                    = prognbr
          e_progheader                 = progheader
        TABLES
          t_flowlogic                  = t_flowlogic
          t_fieldlist                  = t_fieldlist
          t_dynpmatch                  = t_dynpmatch
          t_fieldname                  = t_fieldname
        EXCEPTIONS
          error_in_screen_create       = 1
          error_in_screen_read         = 2
          error_in_screen_save         = 3
          progname_and_dynpronbr_empty = 4
          OTHERS                       = 5.

MASS_SCRN_CREATE
        CALL FUNCTION 'MASS_SCRN_CREATE'
          EXPORTING
            i_progname                   = li_progname
            i_prognbr                    = '0320'
            i_checkbox                   = 'X'
          IMPORTING
            e_progname                   = le_progname
            e_prognbr                    = prognbr
            e_progheader                 = progheader
          TABLES
            t_flowlogic                  = t_flowlogic
            t_fieldlist                  = t_fieldlist
            t_dynpmatch                  = t_dynpmatch
            t_fieldname                  = t_fieldname
          EXCEPTIONS
            error_in_screen_create       = 1
            error_in_screen_read         = 2
            error_in_screen_save         = 3
            progname_and_dynpronbr_empty = 4
            OTHERS                       = 5.

LVC_VARIANT_DEFAULT_GET
  CALL FUNCTION 'LVC_VARIANT_DEFAULT_GET'
    EXPORTING
      i_save        = g_variant_save
    CHANGING
      cs_variant    = g_variant
    EXCEPTIONS
      wrong_input   = 0
      not_found     = 0
      program_error = 0
      OTHERS        = 0.

MASS_DISPLAY_QUICK_HELP_REF
  CALL FUNCTION 'MASS_DISPLAY_QUICK_HELP_REF'
    EXPORTING
      P_HTML_VIEWER = html_control
      P_OBJECT      = 'MASS_MARC'
      P_ID          = 'TX'.

MASS_FIND_IN_TREE
  CALL FUNCTION 'MASS_FIND_IN_TREE'
    EXPORTING
      find_command         = 'F'
      tree_struc_table     = 'MASS_TREE_FIND_MARC'
      tree_field_search_in = 'TEXT'
      tree_field_node_key  = 'NODE_KEY'
    TABLES
      search_table         = gt_tree_find
      find_table           = gt_tree_find_in
    CHANGING
      key_find             = gw_key_find
      findstr              = gw_findstr
    EXCEPTIONS
      user_cancel          = 1
      OTHERS               = 2.

MASS_FIND_IN_TREE
    CALL FUNCTION 'MASS_FIND_IN_TREE'
      EXPORTING
        find_command         = 'N'
        tree_struc_table     = 'MASS_TREE_FIND_MARC'
        tree_field_search_in = 'TEXT'
        tree_field_node_key  = 'NODE_KEY'
      TABLES
        search_table         = gt_tree_find
        find_table           = gt_tree_find_in
      CHANGING
        key_find             = gw_key_find
        findstr              = gw_findstr
      EXCEPTIONS
        user_cancel          = 1
        OTHERS               = 2.

MASS_ERROR_LIST














  CALL FUNCTION 'MASS_ERROR_LIST'
    EXPORTING
      progname = l_progname.

MASS_WHERE_USED
    CALL FUNCTION 'MASS_WHERE_USED'
      EXPORTING
        table_to_search_in  = 'MARC'
        search_for_field    = w_search_for_field
        field_content       = w_field_content
      IMPORTING
        row_selected        = w_where_used_return_marc
      TABLES
        fields_to_search_in = t_fieldlist
      EXCEPTIONS
        user_cancel         = 1
        error_in_select     = 2
        not_allowed         = 3
        OTHERS              = 4.

APPL_LOG_DISPLAY
  CALL FUNCTION 'APPL_LOG_DISPLAY'
    EXPORTING
      object                    = 'WSTRGROUP'
      subobject                 = 'WMASS_MNT'
      suppress_selection_dialog = 'X'.

MASS_MARC_VALIDATE_TABLE
  CALL FUNCTION 'MASS_MARC_VALIDATE_TABLE'
    TABLES
      marc_to_validate    = all_gt_marc
      marc_valid          = val_gt_marc
      marc_not_valid      = invalid_gt_marc
      marc_error_messages = t_errors
      t130f_table         = gt_t130f.

MASS_DYNAMIC_FILTER
  CALL FUNCTION 'MASS_DYNAMIC_FILTER'
    EXPORTING
      tabname           = 'MASS_MARC'
      gt_fieldcatalog   = lt_fieldcatalog_temp
    TABLES
      t_table           = pt_marc
      lt_rows           = pt_rows
    EXCEPTIONS
      user_cancel       = 1
      no_allowed_fields = 2
      OTHERS            = 3.

MASS_MARC_VALIDATE_DATA
  CALL FUNCTION 'MASS_MARC_VALIDATE_DATA'
    EXPORTING
      field_to_validate = p_fieldname
      data_of_marc      = p_ls_data_of_marc
    TABLES
      message_table     = pt_message_table
      t001w_table       = pt_t001w
    EXCEPTIONS
      not_valid         = 1.

MASS_MESSAGE_GET
    CALL FUNCTION 'MASS_MESSAGE_GET'
      EXPORTING
        sprsl             = sy-langu
        arbgb             = lw_message_table-msgid
        msgnr             = l_msgnr
        msgv1             = lw_message_table-msgv1
        msgv2             = lw_message_table-msgv2
        msgv3             = lw_message_table-msgv3
        msgv4             = lw_message_table-msgv4
      IMPORTING
        msgtext           = l_text
      EXCEPTIONS
        message_not_found = 1
        OTHERS            = 2.

DOCU_GET_FOR_F1HELP
    CALL FUNCTION 'DOCU_GET_FOR_F1HELP'
      EXPORTING
        id       = 'NA'
        langu    = sy-langu
        object   = l_object
        typ      = 'E'
      TABLES
        line     = l_line
      EXCEPTIONS
        ret_code = 1
        OTHERS   = 2.

ICON_CREATE
      CALL FUNCTION 'ICON_CREATE'
        EXPORTING
          name                  = icon_system_help
          info                  = text-052
        IMPORTING
          RESULT                = l_icon
        EXCEPTIONS
          icon_not_found        = 1
          outputfield_too_short = 2
          OTHERS                = 3.

SWU_GET_ROLLNAME_TO_FIELDNAME
      CALL FUNCTION 'SWU_GET_ROLLNAME_TO_FIELDNAME'
        EXPORTING
          field    = l_fieldname
        IMPORTING
          rollname = l_rollname.

HR_BEN_GET_TEXT_DATA_ELEMENT
      CALL FUNCTION 'HR_BEN_GET_TEXT_DATA_ELEMENT'
        EXPORTING
          rollname    = l_rollname
          tlength     = '2'
          reaction    = '0'
        IMPORTING
          text        = l_scrtext_m
        TABLES
          error_table = l_error_table.

LVC_FIELDCATALOG_MERGE
  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name       = 'MASS_S_LOG_MARC'
      i_client_never_display = 'X'
    CHANGING
      ct_fieldcat            = lt_fieldcatalog_log[].

MASS_MARC_CHANGE_CELL_VALUE
  CALL FUNCTION 'MASS_MARC_CHANGE_CELL_VALUE'
    EXPORTING
      new_color            = l_new_color
      fieldcatalog         = pt_fieldcatalog[]
      p_refsite_distr      = '3' " never check assigned site
    TABLES
      table_to_change_from = lt_table_to_change_from
      table_to_change      = pt_marc
      previous_color_table = pt_all_marc
    CHANGING
      lines_to_change      = lt_lines_to_change.

MASS_VERIFY_HIDDEN_COLUMN
  CALL FUNCTION 'MASS_VERIFY_HIDDEN_COLUMN'
    TABLES
      fieldcat_original = pt_fieldcatalog
      fieldcat_temp     = pt_fieldcatalog_temp
      hidden_columns    = pt_hidden_columns.

SPBT_INITIALIZE
  CALL FUNCTION 'SPBT_INITIALIZE'
    EXCEPTIONS
      invalid_group_name           = 1
      internal_error               = 2
      pbt_env_already_initialized  = 3
      currently_no_resources_avail = 4
      no_pbt_resources_found       = 5
      OTHERS                       = 6.

MASS_MARC_ENCODE_IN_FLAT_STR
  CALL FUNCTION 'MASS_MARC_ENCODE_IN_FLAT_STR'
    TABLES
      p_all_gt_marc  = p_all_gt_marc
      p_out_gt_marc  = l_out_gt_marc
      p_out_gt_style = l_out_gt_style.

MASS_MARC_ENCODE_IN_FLAT_STR
  CALL FUNCTION 'MASS_MARC_ENCODE_IN_FLAT_STR'
    TABLES
      p_all_gt_marc  = p_t_invalid_marc
      p_out_gt_marc  = l_out_inv_gt_marc
      p_out_gt_style = l_out_inv_gt_style.

MARC_SAVE_BACKGROUND
    CALL FUNCTION 'MARC_SAVE_BACKGROUND'
      EXPORTING
        old_mckey           = old_mckey
      TABLES
        p_all_gt_marc_flat  = l_out_gt_marc
        p_all_gt_style_flat = l_out_gt_style
        p_inv_gt_marc_flat  = l_out_inv_gt_marc
        p_inv_gt_style_flat = l_out_inv_gt_style
        t_errors            = t_errors
        t130f_table         = pt_t130f.

MARC_SAVE_BACKGROUND
    CALL FUNCTION 'MARC_SAVE_BACKGROUND'
      IN BACKGROUND TASK
      EXPORTING
        old_mckey           = old_mckey
      TABLES
        p_all_gt_marc_flat  = l_out_gt_marc                 "#EC ENHOK
        p_all_gt_style_flat = l_out_gt_style                "#EC ENHOK
        p_inv_gt_marc_flat  = l_out_inv_gt_marc             "#EC ENHOK
        p_inv_gt_style_flat = l_out_inv_gt_style            "#EC ENHOK
        t_errors            = t_errors                      "#EC ENHOK
        t130f_table         = pt_t130f.                     "#EC ENHOK

START_OF_BACKGROUNDTASK
    CALL FUNCTION 'START_OF_BACKGROUNDTASK'
      EXPORTING
        startdate = sy-datum
        starttime = sy-uzeit
      EXCEPTIONS
        OTHERS    = 1.

MASS_MARC_SAVE_CHANGE
        CALL FUNCTION 'MASS_MARC_SAVE_CHANGE'
          EXPORTING
            i_user                   = sy-uname
            i_date                   = sy-datum
            i_time                   = sy-uzeit
            i_pgrmid                 = progname
            i_good_lines             = 0
            i_old_mckey              = old_mckey
            t_records_in             = p_t_invalid_marc[]
*          IMPORTING
*            e_number                 = key
          TABLES
            t_err_msg_in             = t_errors
          EXCEPTIONS
            error_in_save_data       = 1
            error_in_save_errors     = 2
            error_in_number_generate = 3
            OTHERS                   = 4.

MASS_MARC_ENCODE_IN_FLAT_STR
  CALL FUNCTION 'MASS_MARC_ENCODE_IN_FLAT_STR'
    TABLES
      p_all_gt_marc  = p_all_gt_marc
      p_out_gt_marc  = w_out_gt_marc
      p_out_gt_style = w_out_gt_style.

MASS_MARC_ENCODE_IN_FLAT_STR
  CALL FUNCTION 'MASS_MARC_ENCODE_IN_FLAT_STR'
    TABLES
      p_all_gt_marc  = p_t_invalid_marc
      p_out_gt_marc  = w_out_inv_gt_marc
      p_out_gt_style = w_out_inv_gt_style.

MASS_MARC_SAVE_PARALLEL
  CALL FUNCTION 'MASS_MARC_SAVE_PARALLEL'
*    IN BACKGROUND TASK
    EXPORTING
      p_max_size          = max_size
      p_max_nbproc        = max_nbproc
      p_old_mckey         = old_mckey
    TABLES
      p_all_gt_marc_flat  = w_out_gt_marc
      p_all_gt_style_flat = w_out_gt_style                  "#EC ENHOK
      p_inv_gt_marc_flat  = w_out_inv_gt_marc               "#EC ENHOK
      p_inv_gt_style_flat = w_out_inv_gt_style              "#EC ENHOK
      error_msg           = t_errors                        "#EC ENHOK
      t130f_table         = pt_t130f.                       "#EC ENHOK

START_OF_BACKGROUNDTASK
*  CALL FUNCTION 'START_OF_BACKGROUNDTASK'
*    EXPORTING
*      startdate = sy-datum
*      starttime = sy-uzeit
*    EXCEPTIONS
*      OTHERS    = 1.

MASS_MARC_DECODE_FROM_FLAT_STR
*      CALL FUNCTION 'MASS_MARC_DECODE_FROM_FLAT_STR'
*        TABLES
*          p_all_gt_marc = l_global_invalid_marc
*          p_in_gt_marc  = w_out_inv_gt_marc
*          p_in_gt_style = w_out_inv_gt_style.

MASS_MARC_SAVE_CHANGE
*      CALL FUNCTION 'MASS_MARC_SAVE_CHANGE'
*        EXPORTING
*          i_user                   = sy-uname
*          i_date                   = sy-datum
*          i_time                   = sy-uzeit
*          i_pgrmid                 = progname
*          i_good_lines             = w_good_lines
*          i_old_mckey              = w_old_mckey
*          t_records_in             = t_global_invalid_marc[]
*        IMPORTING
*          e_number                 = key
*        TABLES
*          t_err_msg_in             = t_global_errors
*        EXCEPTIONS
*          error_in_save_data       = 1
*          error_in_save_errors     = 2
*          error_in_number_generate = 3
*          OTHERS                   = 4.

READ_WLOSITEREF
  CALL FUNCTION 'READ_WLOSITEREF'
    TABLES
      e_wlositeref_itab = pt_wlositeref
    EXCEPTIONS
      not_found         = 0
      OTHERS            = 0.

MAKT_SINGLE_READ
  CALL FUNCTION 'MAKT_SINGLE_READ'
    EXPORTING
      matnr      = p_matnr
      spras      = sy-langu
    IMPORTING
      wmakt      = makt
    EXCEPTIONS
      wrong_call = 1
      not_found  = 1
      OTHERS     = 1.

T001W_SINGLE_READ
  CALL FUNCTION 'T001W_SINGLE_READ'
    EXPORTING
      t001w_werks = p_werks
    IMPORTING
      wt001w      = l_wt001w
    EXCEPTIONS
      not_found   = 1
      OTHERS      = 2.

POPUP_TO_CONFIRM
    CALL FUNCTION 'POPUP_TO_CONFIRM'
      EXPORTING
        titlebar              = text-032 "warning
        text_question         = text-040
        text_button_1         = text-034 "yes
        text_button_2         = text-035 "no
        default_button        = '1'
        display_cancel_button = ' '
      IMPORTING
        answer                = l_res.

MASS_MARC_READ
      CALL FUNCTION 'MASS_MARC_READ'
        EXPORTING
          iv_use_query_marc = use_query_marc
          iv_use_query_wrpl = use_query_wrpl
        TABLES
          it_query_marc     = gt_query
          it_query_wrpl     = gt_query_wrpl
        CHANGING
          ot_marc_data      = l_sel_gt_marc[].

POPUP_TO_CONFIRM
        CALL FUNCTION 'POPUP_TO_CONFIRM'
          EXPORTING
            titlebar              = text-032 "warning
            text_question         = text-070
            icon_button_1         = text-034 " yes
            icon_button_2         = text-035 " no
            default_button        = '2'
            display_cancel_button = ' '
          IMPORTING
            answer                = l_res.

MASS_DYNAMIC_SELECT
  CALL FUNCTION 'MASS_DYNAMIC_SELECT'
    EXPORTING
      I_REPORT   = 'MASS_MARC_SITE'
      I_DYNNR    = ''
    IMPORTING
      range      = range_marc
*     expression = expr_marc
      where      = where_marc
    TABLES
      tablist    = tablist
      fieldexcl  = fieldexcl
      fieldincl  = fieldincl.

FREE_SELECTIONS_RANGE_2_WHERE
    CALL FUNCTION 'FREE_SELECTIONS_RANGE_2_WHERE'
      EXPORTING
        field_ranges  = range_marc_tmp
      IMPORTING
        where_clauses = where_marc.

MASS_GET_MATNR_FOR_MATKL
    CALL FUNCTION 'MASS_GET_MATNR_FOR_MATKL'
      TABLES
        PTI_MARA_WHERE   = gt_query_mara
        PT_WHERE_UPDATED = gt_query.

READ_REFSITE_IN_WLOSITEREF
    CALL FUNCTION 'READ_REFSITE_IN_WLOSITEREF'
      EXPORTING
        I_MATNR   = -matnr
        I_WERKS   = -werks
        I_MATKL   = w_sel_gt_marc-matkl
      IMPORTING
        E_REFSITE = l_refsite
      EXCEPTIONS
        NOT_FOUND = 1
        OTHERS    = 2.

T130F_READ_UPD_RELEV_FIELDS
  CALL FUNCTION 'T130F_READ_UPD_RELEV_FIELDS'
    TABLES
      ot_t130f = lt_t130f.

MASS_MARC_MERGE
  CALL FUNCTION 'MASS_MARC_MERGE'
    TABLES
      it_marc      = lt_marc
      it_wrpl      = lt_wrpl
      it_mpop      = lt_mpop
      it_t130f     = lt_t130f
    CHANGING
      ot_marc_data = l_sel_gt_marc[].

MASS_MAINTAIN_PARAMETERS
  CALL FUNCTION 'MASS_MAINTAIN_PARAMETERS'
    EXPORTING
      p_action            = 'R'  "R=Read
      p_progname          = l_progname
    CHANGING
      p_params            = l_params
    EXCEPTIONS
      record_not_found    = 1
      error_in_save       = 2
      invalid_action_code = 3
      OTHERS              = 4.

MASS_MAINTAIN_PARAMETERS
  CALL FUNCTION 'MASS_MAINTAIN_PARAMETERS'
    EXPORTING
      p_action            = 'S'  "S=Read
    CHANGING
      p_params            = p_params
    EXCEPTIONS
      record_not_found    = 1
      error_in_save       = 2
      invalid_action_code = 3
      OTHERS              = 4.

POPUP_TO_CONFIRM
    CALL FUNCTION 'POPUP_TO_CONFIRM'
      EXPORTING
        titlebar              = text-032  "Warning
        text_question         = text-042
        text_button_1         = text-034  "yes
        text_button_2         = text-035  "no
        default_button        = '1'
        display_cancel_button = 'X'
      IMPORTING
        answer                = l_res.

MARC_UPDATE_FIELD_CATALOG
  CALL FUNCTION 'MARC_UPDATE_FIELD_CATALOG'
    CHANGING
      gt_fieldcatalog = p_gt_fieldcatalog.

GET_R3_EXTENSION_SWITCH
  CALL FUNCTION 'GET_R3_EXTENSION_SWITCH'
   EXPORTING
      i_structure_package       = 'EA-RETAIL'
*     I_OBJECT_TYPE       =
*     I_OBJECT_NAME       =
    IMPORTING
      e_active            = p_active
*     E_EXTENSION_ALIAS   =
*     E_STRUCTURE_PACKAGE =
   EXCEPTIONS
     not_existing              = 1
     object_not_existing       = 2
     no_extension_object       = 3
      OTHERS              = 4.

MASS_DDIC_CACHE
  CALL FUNCTION 'MASS_DDIC_CACHE'
    EXPORTING
      structname = 'MARA'
      langu      = sy-langu
    TABLES
      fieldnames = fieldnames
    EXCEPTIONS
      not_found  = 1
      OTHERS     = 2.