MASS_VENDOR_SITE_FRM SAP ABAP INCLUDE - Include MASS_VENDOR_SITE_FRM

MASS_VENDOR_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_VENDOR_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_VENDOR_SITE_FRM. "Basic submit
SUBMIT MASS_VENDOR_SITE_FRM AND RETURN. "Return to original report after report execution complete
SUBMIT MASS_VENDOR_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_VENDOR_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_LFM2'
      i_client_never_display = 'X'
    CHANGING
      ct_fieldcat            = gt_fieldcatalog.

LVC_FIELDCATALOG_MERGE
  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name       = 'LFM1'
      i_client_never_display = 'X'
    CHANGING
      ct_fieldcat            = gt_fieldcatalog_lfm1.

LFM1_SINGLE_READ
  CALL FUNCTION 'LFM1_SINGLE_READ'
    EXPORTING
      i_lifnr   = lfm2-lifnr
      i_ekorg   = lfm2-ekorg
    IMPORTING
      o_lfm1    = w_lfm1a
    EXCEPTIONS
      not_found = 1
      OTHERS    = 2.

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     = 'LFM2'
    TABLES
      changes       = t_formula
      tabledata_old = gt_lfm2
      tabledata_new = mod_gt_lfm2.

MASS_VENDOR_CHANGE_CELL_VALUE
  CALL FUNCTION 'MASS_VENDOR_CHANGE_CELL_VALUE'
    EXPORTING
      new_color            = g_new_color
      fieldcatalog         = gt_fieldcatalog
      p_refsite_distr      = l_refsite_distr
    TABLES
      table_to_change_from = gt_table_to_change_from
      table_to_change      = gt_lfm2
      previous_color_table = all_gt_lfm2
    CHANGING
      lines_to_change      = gt_lines_to_change.

MASS_VENDOR_CHANGE_CELL_VALUE
  CALL FUNCTION 'MASS_VENDOR_CHANGE_CELL_VALUE'
    EXPORTING
      new_color            = g_new_color
      fieldcatalog         = lt_fieldcatalog_temp
      field_to_clear       = check
      p_refsite_distr      = l_refsite_distr
    TABLES
      table_to_change_from = gt_table_to_change_from
      table_to_change      = gt_lfm2
      previous_color_table = all_gt_lfm2
    CHANGING
      lines_to_change      = gt_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_VENDOR_CHANGE_CELL_VALUE
  CALL FUNCTION 'MASS_VENDOR_CHANGE_CELL_VALUE'
    EXPORTING
      new_color            = l_new_color
      fieldcatalog         = pt_fieldcatalog[]
      p_refsite_distr      = l_refsite_distr
    TABLES
      table_to_change_from = lt_table_to_change_from
      table_to_change      = pt_lfm2
      previous_color_table = p_all_gt_lfm2
    CHANGING
      lines_to_change      = lt_lines_to_change.

MASS_VENDOR_CHANGE_CELL_VALUE
  CALL FUNCTION 'MASS_VENDOR_CHANGE_CELL_VALUE'
    EXPORTING
      new_color            = g_new_color
      fieldcatalog         = gt_fieldcatalog[]
      p_refsite_distr      = l_refsite_distr
      currency             = space
    TABLES
      table_to_change_from = gt_table_to_change_from
      table_to_change      = gt_lfm2
      previous_color_table = all_gt_lfm2
    CHANGING
      lines_to_change      = gt_lines_to_change.

MASS_SCRN_CREATE
      CALL FUNCTION 'MASS_SCRN_CREATE'
        EXPORTING
          i_progname                   = li_progname
          i_prognbr                    = '0310'
          i_tabname                    = 'LFM2'
        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_tabname                    = 'LFM2'
            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_VENDOR'
      P_ID          = 'TX'.

MASS_FIND_IN_TREE
  CALL FUNCTION 'MASS_FIND_IN_TREE'
    EXPORTING
      find_command         = 'F'
      tree_struc_table     = 'MASS_TREE_FIND_LFM2'
      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_LFM2'
        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  = 'LFM2'
        search_for_field    = w_search_for_field
        field_content       = w_field_content
      IMPORTING
        row_selected        = w_where_used_return_lfm2
      TABLES
        fields_to_search_in = t_fieldlist                  "w_row_return
      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_VENDOR_VALIDATE_TABLE
  CALL FUNCTION 'MASS_VENDOR_VALIDATE_TABLE'
    TABLES
      lfm2_to_validate    = all_gt_lfm2
      lfm2_valid          = val_gt_lfm2
      lfm2_not_valid      = invalid_gt_lfm2
      lfm2_error_messages = t_errors
      lfm2_error_style    = all_gt_style.

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

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

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

MASS_VENDOR_VALIDATE_DATA
  CALL FUNCTION 'MASS_VENDOR_VALIDATE_DATA'
    EXPORTING
      field_to_validate = p_fieldname
      data_of_lfm2      = p_ls_data_of_lfm2
    TABLES
      message_table     = gt_message_table
    EXCEPTIONS
      not_valid         = 1.

MASS_MESSAGE_GET
    CALL FUNCTION 'MASS_MESSAGE_GET'
      EXPORTING
        sprsl             = sy-langu
        arbgb             = -msgid
        msgnr             = l_msgnr
        msgv1             = -msgv1
        msgv2             = -msgv2
        msgv3             = -msgv3
        msgv4             = -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_LFM2'
      i_client_never_display = 'X'
    CHANGING
      ct_fieldcat            = gt_fieldcatalog_log[].

MASS_VENDOR_CHANGE_CELL_VALUE
  CALL FUNCTION 'MASS_VENDOR_CHANGE_CELL_VALUE'
    EXPORTING
      new_color            = g_new_color
      fieldcatalog         = gt_fieldcatalog[]
      p_refsite_distr      = '3' " we don't want to modify assigned
    TABLES
      table_to_change_from = gt_table_to_change_from     " existing site
      table_to_change      = gt_lfm2
      previous_color_table = all_gt_lfm2
    CHANGING
      lines_to_change      = gt_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.

SELECT_LFM2_SPECIAL_FIELDS_FOR
      CALL FUNCTION 'SELECT_LFM2_SPECIAL_FIELDS_FOR'
        EXPORTING
          i_select_type    = '3'                            "3=distinct
          is_ltsnr         = 'X'
          i_ltsnr          = p_ltsnr
          is_lifnr         = 'X'
          i_lifnr          = p_lifnr
          is_ekorg         = 'X'
          i_ekorg          = p_ekorg
          is_werks         = 'X'
          i_werks          = w_mmsiteref-refsite
          i_really_exist   = 'X'
        TABLES
          t_lfm2_fieldname = t_lfm2_fields
          t_lfm2           = l_lfm2
        EXCEPTIONS
          not_found        = 1
          error_in_select  = 2
          OTHERS           = 3.

SELECT_LFM2_SPECIAL_FIELDS_FOR
        CALL FUNCTION 'SELECT_LFM2_SPECIAL_FIELDS_FOR'
          EXPORTING
            i_select_type    = '3'                          "3=distinct
            is_ltsnr         = 'X'
            i_ltsnr          = p_ltsnr
            is_lifnr         = 'X'
            i_lifnr          = p_lifnr
            is_ekorg         = 'X'
            i_ekorg          = p_ekorg
            is_werks         = 'X'
            i_werks          = p_werks
            i_really_exist   = 'X'
          TABLES
            t_lfm2_fieldname = t_lfm2_fields
            t_lfm2           = l_lfm2
          EXCEPTIONS
            not_found        = 1
            error_in_select  = 2
            OTHERS           = 3.

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_ENCODE_STYLE_IN_FLAT_STR
  CALL FUNCTION 'MASS_ENCODE_STYLE_IN_FLAT_STR'
    TABLES
      all_gt_style = all_gt_style
      out_gt_style = l_out_gt_style.

VENDOR_SAVE_BACKGROUND
    CALL FUNCTION 'VENDOR_SAVE_BACKGROUND'
      EXPORTING
        old_mckey        = old_mckey
      TABLES
        lfm2_new         = t_xlfm2
        lfm2_old         = t_ylfm2
        p_t_invalid_lfm2 = p_t_invalid_lfm2
        t_errors         = t_errors
        out_gt_style     = l_out_gt_style.

VENDOR_SAVE_BACKGROUND
    CALL FUNCTION 'VENDOR_SAVE_BACKGROUND'
      IN BACKGROUND TASK
      EXPORTING
        old_mckey        = old_mckey
      TABLES
        lfm2_new         = t_xlfm2
        lfm2_old         = t_ylfm2
        p_t_invalid_lfm2 = p_t_invalid_lfm2
        t_errors         = t_errors
        out_gt_style     = l_out_gt_style.

START_OF_BACKGROUNDTASK
    CALL FUNCTION 'START_OF_BACKGROUNDTASK'
      EXPORTING
        startdate = par7
        starttime = par8
      EXCEPTIONS
        OTHERS    = 1.

MASS_VENDOR_SAVE_CHANGE
        CALL FUNCTION 'MASS_VENDOR_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
          TABLES
            t_records_in             = lp_t_invalid_lfm2
            t_err_msg_in             = t_errors
            i_style_i                = l_out_gt_style[]
          EXCEPTIONS
            error_in_save_data       = 1
            error_in_save_errors     = 2
            error_in_number_generate = 3
            OTHERS                   = 4.

MASS_ENCODE_STYLE_IN_FLAT_STR
  CALL FUNCTION 'MASS_ENCODE_STYLE_IN_FLAT_STR'
    TABLES
      all_gt_style = all_gt_style
      out_gt_style = l_out_gt_style.

MASS_VENDOR_SAVE_PARALLEL
  CALL FUNCTION 'MASS_VENDOR_SAVE_PARALLEL'
    IN BACKGROUND TASK
    EXPORTING
      P_MAX_SIZE     = max_size
      P_MAX_NBPROC   = max_nbproc
      P_OLD_MCKEY    = old_mckey
    TABLES
      P_NEW_LFM2     = t_xlfm2
      P_OLD_LFM2     = t_ylfm2
      P_INV_LFM2     = p_t_invalid_lfm2
      P_ALL_GT_STYLE = l_out_gt_style
      ERROR_MSG      = t_errors.

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

VENDOR_SAVE
*    CALL FUNCTION 'VENDOR_SAVE' STARTING NEW TASK task_name
*      DESTINATION IN GROUP DEFAULT
*      PERFORMING end_vendor_save ON END OF TASK
*      TABLES
*        lfm2_new  = t_xlfm2_i
*        lfm2_old  = t_ylfm2_i
*        lfm2_err  = t_lfm2_err
*        error_msg = t_errors_i
*      EXCEPTIONS
*        COMMUNICATION_FAILURE = 1
*        SYSTEM_FAILURE        = 2.

MASS_ENCODE_STYLE_IN_FLAT_STR
*      CALL FUNCTION 'MASS_ENCODE_STYLE_IN_FLAT_STR'
*        TABLES
*          all_gt_style = all_global_style
*          out_gt_style = l_out_gt_style.

MASS_VENDOR_SAVE_CHANGE
*      CALL FUNCTION 'MASS_VENDOR_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
*        TABLES
*          t_records_in             = t_global_invalid_lfm2
*          t_err_msg_in             = t_global_errors
*          i_style_i                = l_out_gt_style
*        EXCEPTIONS
*          error_in_save_data       = 1
*          error_in_save_errors     = 2
*          error_in_number_generate = 3
*          OTHERS                   = 4.

ENQUEUE_ELFM2
  CALL FUNCTION 'ENQUEUE_ELFM2'
    EXPORTING
      mode_lfm2      = 'E'
      mandt          = sy-mandt
      lifnr          = p_lfm2-lifnr
      ekorg          = p_lfm2-ekorg
      ltsnr          = p_lfm2-ltsnr
      werks          = p_lfm2-werks
    EXCEPTIONS
      foreign_lock   = 1
      system_failure = 2
      OTHERS         = 3.

DEQUEUE_ELFM2
  CALL FUNCTION 'DEQUEUE_ELFM2' "IN BACKGROUND TASK
    EXPORTING
      lifnr = p_lifnr
      ekorg = p_ekorg
      ltsnr = p_ltsnr
      werks = p_werks.

READ_REF_SITE_TABLE
  CALL FUNCTION 'READ_REF_SITE_TABLE'
    TABLES
      e_mmsiteref_itab = pt_mmsiteref
    EXCEPTIONS
      not_found        = 1
      OTHERS           = 2.

WY_LFA1_GET_NAME
  CALL FUNCTION 'WY_LFA1_GET_NAME'
    EXPORTING
      pi_lifnr         = p_lifnr
    IMPORTING
      po_name1         = p_name1
    EXCEPTIONS
      no_records_found = 1
      internal_error   = 2
      OTHERS           = 3.

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

T024E_SINGLE_READ
  CALL FUNCTION 'T024E_SINGLE_READ'
    EXPORTING
      t024e_ekorg = p_ekorg
    IMPORTING
      wt024e      = l_wt024e
    EXCEPTIONS
      not_found   = 1
      OTHERS      = 2.

SELECT_LFM2_ALL_FIELDS_FOR
    CALL FUNCTION 'SELECT_LFM2_ALL_FIELDS_FOR'
      EXPORTING
        is_lifnr        = 'X'
        i_lifnr         = p_lfm2-lifnr
        is_ekorg        = 'X'
        i_ekorg         = p_lfm2-ekorg
        is_ltsnr        = 'X'
        i_ltsnr         = p_lfm2-ltsnr
        is_werks        = 'X'
        i_werks         = -werks
        i_really_exist  = 'X'
        i_bypass        = 'X'
      TABLES
        t_lfm2          = lt_lfm2
      EXCEPTIONS
        not_found       = 1
        error_in_select = 2
        OTHERS          = 3.

READ_REF_SITE_TABLE
  CALL FUNCTION 'READ_REF_SITE_TABLE'
    EXPORTING
      i_ekorg          = p_w_lfm2-ekorg
      i_refsite        = p_w_lfm2-werks
    TABLES
      e_mmsiteref_itab = p_t_mmsiteref.

WYT1T_SINGLE_READ
  CALL FUNCTION 'WYT1T_SINGLE_READ'
    EXPORTING
      wyt1t_spras = sy-langu
      wyt1t_lifnr = p_lifnr
      wyt1t_ltsnr = p_ltsnr
    IMPORTING
      wwyt1t      = l_wwyt1t
    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.

SELECT_LFM2_ALL_FIELDS_FOR
        CALL FUNCTION 'SELECT_LFM2_ALL_FIELDS_FOR'
          EXPORTING
            i_really_exist    = exist_really
            i_bypass          = 'X'
          TABLES
            t_lfm2            = l_sel_gt_lfm2
            t_where_clause_in = gt_query
          EXCEPTIONS
            not_found         = 1
            error_in_select   = 2
            OTHERS            = 3.

SELECT_LFM2_ALL_FIELDS_IN
        CALL FUNCTION 'SELECT_LFM2_ALL_FIELDS_IN'
          EXPORTING
            i_really_exist  = exist_really
            i_bypass        = 'X'
          TABLES
            r_lifnr         = r_lifnr
            r_ekorg         = r_ekorg
            r_ltsnr         = r_ltsnr
            r_werks         = r_werks
            t_lfm2          = l_sel_gt_lfm2
          EXCEPTIONS
            not_found       = 1
            error_in_select = 2
            OTHERS          = 3.

POPUP_TO_CONFIRM
        CALL FUNCTION 'POPUP_TO_CONFIRM'
          EXPORTING
            titlebar              = text-032 "warning
            text_question         = text-071
            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'
    IMPORTING
      range      = range_lfm2
      expression = expr_lfm2
      where      = where_lfm2
    TABLES
      tablist    = tablist.

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.

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.

UPDATE_FIELD_CATALOG
  CALL FUNCTION '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'
    IMPORTING
      e_active            = p_active
    EXCEPTIONS
      not_existing        = 1
      object_not_existing = 2
      no_extension_object = 3
      OTHERS              = 4.

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 = space "'X'
    IMPORTING
      answer                = w_res.