f4_bw_logical_system

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

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

  METHOD f4_bw_logical_system.
    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 * FROM rslogsysodp INTO TABLE @DATA(lt_rslogsysodp).

    CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
      EXPORTING
        retfield        = 'LOGSYS'
        value_org       = 'S'
        value           = lv_value
      TABLES
        value_tab       = lt_rslogsysodp
        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_logsys = ls_ret_tab-fieldval.
      ENDIF.
    ENDIF.