Display error messages for each material

Question

Hi All,
I am using a BAPI which gives errors in return table.I am executing this BAPI for several materials in a LOOP.I need to display the error messages for each of these materials as shown below:
Material 1:
error1
error2
Material 2:
error 1
error 2.
What is the best way to display this?Also plz let me know how to use REUSE_ALV_HIERSEQ_LIST_DISPLAY?
Thanks,
Rakesh.

Answer 1

I did the same thing in the below code, go thru it and check it.
* calling the BAPI to update the Asset Master AS02
  loop at it_final into is_final.
* If updating of floor area only
    if p_farea = 'X'.
* passing new area value to the BAPI
      is_realestate-area     = is_final-grufl.
      is_realestatex-area    = 'X'.
      call function 'BAPI_FIXEDASSET_CHANGE'
           exporting
                companycode = is_final-bukrs
                asset       = is_final-anln1
                subnumber   = is_final-anln2
                realestate  = is_realestate
                realestatex = is_realestatex
           importing
                return      = it_return.
* If Asset Master is changed with out any errors
      read table it_return with key type = 'E'.
      if sy-subrc = 0.
        flag = ' '.
      else.
        flag = 'X'.
* Call the COMMIT BAPI
        call function 'BAPI_TRANSACTION_COMMIT'
             exporting
                  wait = 'X'.
        wait up to 2 seconds.
      endif.
* If the Asset Master is changed with out any errors
      if flag = 'X'.
        read table it_output into is_output with key
                                  bukrs = is_final-bukrs
                                  anln1 = is_final-anln1
                                  anln2 = is_final-anln2
                                  binary search.
        if sy-subrc = 0.
*          is_output-c_icon  = c_green.
          is_output-grufl_n = is_final-grufl.
          is_output-message = it_return-message.
* Modify the output internal table with the changed new values
          modify it_output from is_output
                           transporting grufl_n message
                           where bukrs = is_output-bukrs
                             and anln1 = is_output-anln1
                             and anln2 = is_output-anln2.
        endif.
      elseif flag = ' '.
        read table it_output into is_output with key
                                  bukrs = is_final-bukrs
                                  anln1 = is_final-anln1
                                  anln2 = is_final-anln2
                                  binary search.
        if sy-subrc = 0.
*          is_output-c_icon  = c_red.
          is_output-grufl_n = is_realestate-area.
          is_output-message = it_return-message.
* Modify the output internal table with the changed new values
          modify it_output from is_output
                           transporting grufl_n message
                           where bukrs = is_output-bukrs
                             and anln1 = is_output-anln1
                             and anln2 = is_output-anln2.
        endif.
      endif.
    endif.
* If updating of lease commencement date only
    if p_ldate = 'X'.
* Passing new lease start date value to the BAPI
      is_leasing-start_date  = is_final-leabg.
      is_leasingx-start_date = 'X'.
* Call the BAPI to change the Asset Master
      call function 'BAPI_FIXEDASSET_CHANGE'
           exporting
                companycode = is_final-bukrs
                asset       = is_final-anln1
                subnumber   = is_final-anln2
                leasing     = is_leasing
                leasingx    = is_leasingx
           importing
                return      = it_return.
* If Asset Master is changed with out any errors
      read table it_return with key type = 'E'.
      if sy-subrc = 0.
        flag = ' '.
      else.
        flag = 'X'.
* Call the COMMIT BAPI
        call function 'BAPI_TRANSACTION_COMMIT'
             exporting
                  wait = 'X'.
        wait up to 2 seconds.
      endif.
* If the Asset Master is changed with out any errors
      if flag = 'X'.
        read table it_output into is_output with key
                                  bukrs = is_final-bukrs
                                  anln1 = is_final-anln1
                                  anln2 = is_final-anln2
                                  binary search.
        if sy-subrc = 0.
*          is_output-c_icon  = c_green.
          is_output-leabg_n = is_final-leabg.
          is_output-message = it_return-message.
* Modify the output internal table with the changed new values
          modify it_output from is_output
                           transporting leabg_n message
                           where bukrs = is_output-bukrs
                             and anln1 = is_output-anln1
                             and anln2 = is_output-anln2.
        endif.
      elseif flag = ' '.
        read table it_output into is_output with key
                                  bukrs = is_final-bukrs
                                  anln1 = is_final-anln1
                                  anln2 = is_final-anln2
                                  binary search.
        if sy-subrc = 0.
*          is_output-c_icon  = c_red.
          is_output-leabg_n = is_leasing-start_date.
          is_output-message = it_return-message.
* Modify the output internal table with the changed new values
          modify it_output from is_output
                           transporting leabg_n message
                           where bukrs = is_output-bukrs
                             and anln1 = is_output-anln1
                             and anln2 = is_output-anln2.
        endif.
      endif.
    endif.
    clear : is_final, is_realestate, is_leasing,
            it_return, flag , is_output.
  endloop.
* Display the report out with old and new values
  PERFORM output_report.
*&      Form  output_report
*       text
*  -->  p1        text
*  <--  p2        text
*FORM output_report.
*  DATA : it_fieldcat TYPE slis_t_fieldcat_alv,
*         is_layout TYPE slis_layout_alv.
** Sub routine for filling the field catalog
*  IF it_fieldcat[] IS INITIAL.
*    PERFORM field_fill USING it_fieldcat.
*  ENDIF.
** Sub routine to set the layout
*  PERFORM set_layout USING is_layout.
** Function module to display the data in ALV format
*  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
*       EXPORTING
*            i_callback_program = l_repid
*            it_fieldcat        = it_fieldcat
*            is_layout          = is_layout
*       TABLES
*            t_outtab           = it_output
*       EXCEPTIONS
*            program_error      = 1
*            OTHERS             = 2.
*  IF sy-subrc <> 0.
*    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
*            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
*  ENDIF.
*ENDFORM.                    " output_report
*&      Form  field_fill
*       text
*      -->P_IT_FIELDCAT  text
*FORM field_fill USING pt_fieldcat TYPE slis_t_fieldcat_alv.
*  DATA : ls_fieldcat TYPE slis_fieldcat_alv,
*         pos TYPE i VALUE 1.
*  ls_fieldcat-col_pos       = pos.
*  ls_fieldcat-fieldname     = 'C_ICON'.
*  ls_fieldcat-seltext_m     = 'Change Status'.
*  ls_fieldcat-tabname       = 'IT_OUTPUT'.
*  APPEND ls_fieldcat TO pt_fieldcat.
*  CLEAR ls_fieldcat.
*  pos = pos + 1.
*  ls_fieldcat-col_pos       = pos.
*  ls_fieldcat-fieldname     = 'BUKRS'.
*  ls_fieldcat-ref_fieldname = 'BUKRS'.
*  ls_fieldcat-ref_tabname   = 'ANLA'.
*  APPEND ls_fieldcat TO pt_fieldcat.
*  CLEAR ls_fieldcat.
*  pos = pos + 1.
*  ls_fieldcat-col_pos       = pos.
*  ls_fieldcat-fieldname     = 'ANLN1'.
*  ls_fieldcat-ref_fieldname = 'ANLN1'.
*  ls_fieldcat-ref_tabname   = 'ANLA'.
*  APPEND ls_fieldcat TO pt_fieldcat.
*  CLEAR ls_fieldcat.
*  pos = pos + 1.
*  ls_fieldcat-col_pos       = pos.
*  ls_fieldcat-fieldname     = 'ANLN2'.
*  ls_fieldcat-ref_fieldname = 'ANLN2'.
*  ls_fieldcat-ref_tabname   = 'ANLA'.
*  APPEND ls_fieldcat TO pt_fieldcat.
*  CLEAR ls_fieldcat.
*  pos = pos + 1.
*  IF p_farea = 'X'.
*    ls_fieldcat-col_pos       = pos.
*    ls_fieldcat-fieldname     = 'GRUFL'.
*    ls_fieldcat-ref_fieldname = 'GRUFL'.
*    ls_fieldcat-ref_tabname   = 'ANLA'.
*    APPEND ls_fieldcat TO pt_fieldcat.
*    CLEAR ls_fieldcat.
*    pos = pos + 1.
*    ls_fieldcat-col_pos       = pos.
*    ls_fieldcat-fieldname     = 'GRUFL_N'.
*    ls_fieldcat-seltext_l     = 'New Floor Area'.
*    ls_fieldcat-tabname       = 'IT_OUTPUT'.
*    APPEND ls_fieldcat TO pt_fieldcat.
*    CLEAR ls_fieldcat.
*    pos = pos + 1.
*  ENDIF.
*  IF p_ldate = 'X'.
*    ls_fieldcat-col_pos       = pos.
*    ls_fieldcat-fieldname     = 'LEABG'.
*    ls_fieldcat-ref_fieldname = 'LEABG'.
*    ls_fieldcat-ref_tabname   = 'ANLA'.
*    APPEND ls_fieldcat TO pt_fieldcat.
*    CLEAR ls_fieldcat.
*    pos = pos + 1.
*    ls_fieldcat-col_pos       = pos.
*    ls_fieldcat-fieldname     = 'LEABG_N'.
*    ls_fieldcat-seltext_l     = 'New Lease St.Date'.
*    ls_fieldcat-tabname       = 'IT_OUTPUT'.
*    APPEND ls_fieldcat TO pt_fieldcat.
*    CLEAR ls_fieldcat.
*    pos = pos + 1.
*  ENDIF.
*  ls_fieldcat-col_pos       = pos.
*  ls_fieldcat-fieldname     = 'MESSAGE'.
*  ls_fieldcat-seltext_l     = 'Status Message'.
*  ls_fieldcat-tabname       = 'IT_OUTPUT'.
*  APPEND ls_fieldcat TO pt_fieldcat.
*  CLEAR ls_fieldcat.
*  pos = pos + 1.
*ENDFORM.                    " field_fill
Regards
Gopi