Logic to capture the Error records

Question

Hi All ,
           I have one scenario like this ,one report program runs in R/3 system to fetch some data from BW system .
It uses Remote FM to do this .
The problem is the FM has got error table with error msgs , if there is any problem in fetching the data in R/3 system.
But when program is excuted it fails after returning to R/3 system with  error msg in WHEN OTHERS and stops there itself
Instead it should proceed with other program codes and then
finally output the error records .There is already subroutine in the program to display the erros records in last.  How do i do it programatically
CALL FUNCTION 'ZC_BW_FIREFIGHT' DESTINATION p_r3rfc
      EXPORTING
        mrp_planning_scenario       = p_mrppln
        error_indicator             = p_info
      IMPORTING
        r3client                    = w_r3client
        r3instance                  = w_r3instance
      TABLES
        materials                   = t_bwmat
        plants                      = s_plant
        firefighting                = t_firefight1
        error_msgs                  = t_r3_errors
      EXCEPTIONS
        no_material_data_found      = 1
        no_storage_loc_data         = 2
        proc_complete_no_rcds_found = 3
        OTHERS                      = 4.
    CASE sy-subrc.
      WHEN 0.
        PERFORM f4020_confirm_fm_executed.
      WHEN 1.
        MESSAGE e999 WITH
              'R3: No material data found for materials/plants.'(049).
      WHEN 2.
        MESSAGE e999 WITH
              'R3: No storage location data for materials/plants.'(050).
      WHEN 3.
        MESSAGE e999 WITH
              'R3: ZC_BWFIREFIGHT processed, but no data found.'(051).
      WHEN OTHERS.
        MESSAGE e999 WITH
              'R3: ZC_BWFIREFIGHT FM call to R3 failed'(052).
    ENDCASE.
  ENDIF .
ENDFORM.                    " f4010_call_zc_bwfirefight
<REMOVED BY MODERATOR>
Kumaran.C
Edited by: Alvaro Tejada Galindo on Feb 25, 2008 2:46 PM

Answer 1

Try with the following method
DATA : bapireturn TYPE TABLE OF bapireturn WITH HEADER LINE.
CASE sy-subrc.
  WHEN 0.
    PERFORM f4020_confirm_fm_executed.
  WHEN 1.
    CALL FUNCTION 'BALW_BAPIRETURN_GET'
      EXPORTING
        type                       = 'E'
        cl                         = <msgclass>
        number                     = '049'
        par1                       = 'R3: No material data found for materials/plants.'
      IMPORTING
        bapireturn                 = bapireturn
      EXCEPTIONS
        only_2_char_for_message_id = 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.
    ELSE.
      APPEND bapireturn.
      CLEAR bapireturn.
    ENDIF.
  WHEN 2.
    " Do Simillarly
  WHEN 3.
    " Do Simillarly
  WHEN OTHERS.
    " Do Simillarly
ENDCASE.