How to capture errors records in flat file in BDC

Question

hi ,
    i would like to know how to capture error records while  uploading a flat file to screen through BDC .
appreciatable solutions are rewarded.
thanks,
shan

Answer 1

Hi shan,
write this code, it will solve your problem.
DATA : BDCTAB LIKE BDCDATA OCCURS 0 WITH HEADER LINE.
DATA : I_MSG LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
DATA : BEGIN OF I_ERR OCCURS 0,
          MATNR(18),
          FLAG(1),
          MSG(100),
       END OF I_ERR.
DATA :V_LINES TYPE I.
LOOP AT ITAB.
REFRESH BDCTAB.
PERFORM SCREEN USING: 'SAPLMGMM' '0060'.
PERFORM FIELD USING: 'RMMG1-MATNR'  ITAB-MATNR,
                      'RMMG1-MBRSH' ITAB-MBRSH ,
                      'RMMG1-MTART' ITAB-MTART,
                      'BDC_OKCODE' '/00'.
PERFORM SCREEN USING: 'SAPLMGMM' '0070'.
PERFORM FIELD USING: 'MSICHTAUSW-KZSEL(01)' 'X' ,
                     'MSICHTAUSW-KZSEL(02)' 'X' ,
                     'MSICHTAUSW-KZSEL(09)' 'X' ,
                     'BDC_OKCODE' '=ENTR'.
PERFORM SCREEN USING: 'SAPLMGMM' '0080'.
PERFORM FIELD USING: 'RMMG1-WERKS' ITAB-WERKS,
                     'BDC_OKCODE' '=ENTR'.
PERFORM SCREEN USING: 'SAPLMGMM' '4004'.
PERFORM FIELD USING:  'MAKT-MAKTX' ITAB-MAKTX,
                      'MARA-MEINS' 'EA' ,
                      'MARA-MATKL' '001',
                      'BDC_OKCODE' '/00'.
PERFORM SCREEN USING: 'SAPLMGMM' '4004'.
PERFORM FIELD USING:  'BDC_OKCODE' '/00'.
PERFORM SCREEN USING: 'SAPLMGMM' '4000'.
PERFORM FIELD USING:  'MAKT-MAKTX' ITAB-MAKTX,
                      'MARA-MEINS' 'EA',
                      'MARC-EKGRP' '001',
                      'MARA-MATKL' '001',
                      'BDC_OKCODE' '=BU'.
CALL TRANSACTION 'MM01' USING BDCTAB
                        MODE 'A'
                        MESSAGES INTO I_MSG.
FINDING LAST MESSAGE IN THE I_MSG TABLE*****
DESCRIBE TABLE I_MSG LINES V_LINES.
ACCORDING TO THE V_LINES NUMBER TABLE WILL BE READ****
READ TABLE I_MSG INDEX V_LINES.
CALL FUNCTION 'FORMAT_MESSAGE'
EXPORTING
   ID              = I_MSG-MSGID
   LANG            = '-D'
   NO              = I_MSG-MSGNR
   V1              = I_MSG-MSGV1
   V2              = I_MSG-MSGV2
   V3              = I_MSG-MSGV3
   V4              = I_MSG-MSGV4
IMPORTING
   MSG             = I_ERR-MSG
EXCEPTIONS
   NOT_FOUND       = 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.
IF I_MSG-MSGID EQ 'M3' AND I_MSG-MSGNR EQ '800'.
I_ERR-FLAG = 'S'.
ELSE.
I_ERR-FLAG = 'E'.
ENDIF.
I_ERR-MATNR = ITAB-MATNR.
APPEND I_ERR.
CLEAR I_ERR.
ENDLOOP.
WRITE:/ 'SUCCESS RECORDS' COLOR COL_POSITIVE.
SKIP.
WRITE:/ 'MATERIAL' COLOR COL_HEADING, 20 'MESSAGE' COLOR COL_HEADING.
LOOP AT I_ERR WHERE FLAG EQ 'S'.
WRITE:/ I_ERR-MATNR, 20 I_ERR-MSG.
ENDLOOP.
SKIP 2.
WRITE:/ 'ERROR RECORDS' COLOR COL_NEGATIVE.
SKIP.
WRITE:/ 'MATERIAL' COLOR COL_HEADING, 20 'MESSAGE' COLOR COL_HEADING.
LOOP AT I_ERR WHERE FLAG EQ 'E'.
WRITE:/ I_ERR-MATNR, 20 I_ERR-MSG.
ENDLOOP.
*&      Form  SCREEN
     SCREEN
form SCREEN  using P_PROG P_SCREEN.
BDCTAB-PROGRAM = P_PROG.
BDCTAB-DYNPRO = P_SCREEN.
BDCTAB-DYNBEGIN = 'X'.
APPEND BDCTAB.
CLEAR  BDCTAB.
endform.                    " SCREEN
*&      Form  FIELD
   FIELD
form FIELD  using  FNAME FVAL .
BDCTAB-FNAM = FNAME.
BDCTAB-FVAL = FVAL.
APPEND BDCTAB.
CLEAR BDCTAB.
endform.                    " FIELD
Thanks,
Murali