f4_application_component

in src/zgoog_i_bqtr_gen_repl_obj_im3.prog.abap [0:0]

• 29 lines of code
• 3 McCabe index (conditional complexity)

  METHOD f4_application_component.
    DATA: lt_ret_tab   TYPE STANDARD TABLE OF ddshretval,
          lt_field_tab TYPE STANDARD TABLE OF dfies,
          ls_ret_tab   TYPE ddshretval,
          lv_value     TYPE help_info-fldvalue.

    FIELD-SYMBOLS: <ls_field>       TYPE dfies.

    SELECT roappl~applnm, roapplt~txtlg FROM roappl LEFT JOIN
      roapplt ON roappl~applnm = roapplt~applnm
              AND langu = @sy-langu
      INTO TABLE @DATA(lt_roappl).

    CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
      EXPORTING
        retfield        = 'APPLNM'
        value_org       = 'S'
        value           = lv_value
      TABLES
        value_tab       = lt_roappl
        field_tab       = lt_field_tab
        return_tab      = lt_ret_tab
      EXCEPTIONS
        parameter_error = 1
        no_values_found = 2
        OTHERS          = 3.
    IF sy-subrc = 0.
      READ TABLE lt_ret_tab INTO ls_ret_tab INDEX 1.
      IF sy-subrc = 0.
        cv_appl = ls_ret_tab-fieldval.
      ENDIF.
    ENDIF.