Not able to display flat file's error line in output

Question

The below Source Code is BDC for XD01 (update Customer Master Record) in CALL TRANSACTION method. This program is written in call transaction method cause as per user’s requirement, user wants error log to be printed as soon as the BDC process finished in the background mode.
When you execute this below program it will show a selection screen from where you can select your flat file from system.
After executing this code show output like below as soon as it finished processing the FLAT file.
1. Customer Update Summary
2. Successful record with customer number and name.
3. Error Records with 'record number' and 'reason for error'
(For testing you just have to copy-paste-save-active  the source code)
And I have encountered an issue over here in 3rd section-“Record Number” of “Error Records”.
The “Record Number” is for display the line number of that flat file line which in which error has occurred.
The “Record Number”  Entries showing only ‘0’ instead of showing line number of error entry .
I have used Function Module FORMAT_MESSAGE to capture the errors. But not able to display line number of that flat file which is containing error.
So please suggest me what changes I should make in below source code to get proper output.
Flat file for your R&D
1000     1000     10     10     0001     Company     Chobey & Group1N     Choubey     Amit Choubey     New Alipore Road     Habijabi Apartment     Rastar Dhra      777777     kolkata     777777     kolikata     howrah     777777     IN     WB     1111111111     2222222222     3333333333     4444444444     5555555555     6666666666     0700     EAST     02     01     1060003     A1     Z1     ZZ13     CALS     1     A     10     1
1000     1000     10     10     0001     Company     Chobey & Group2N     Choubey     Amit Choubey     New Alipore Road     Habijabi Apartment     Rastar Dhra      777777     kolkata     777777     kolikata     howrah     777777     IN     WB     1111111111     2222222222     3333333333     4444444444     5555555555     6666666666     0700     EAST     02     01     1060003     A1     Z1     ZZ13     CALS     1     A     10     1
1000     1000     10     10     0001     Company     Chobey & Group3N     Choubey     Amit Choubey     New Alipore Road     Habijabi Apartment     Rastar Dhra      777777     kolkata     777777     kolikata     howrah     777777     IN     WB     1111111111     2222222222     3333333333     4444444444     5555555555     6666666666     0700     EAST     02     01     1060003     A1     Z1     ZZ13     CALS     .     A     10     1
1000     1000     10     10     0001     Company     Chobey & Group4N     Choubey     Amit Choubey     New Alipore Road     Habijabi Apartment     Rastar Dhra      777777     kolkata     777777     kolikata     howrah     777777     IN     WB     1111111111     2222222222     3333333333     4444444444     5555555555     6666666666     0700     EAST     02     01     1060003     A1     Z1     ZZ13     CALS     1     A     ..     1
1000     1000     10     10     0001     Company     Chobey & Group5N     Choubey     Amit Choubey     New Alipore Road     Habijabi Apartment     Rastar Dhra      777777     kolkata     777777     kolikata     howrah     777777     IN     WB     1111111111     2222222222     3333333333     4444444444     5555555555     6666666666     0700     EAST     02     01     1060003     A1     Z1     ZZ13     CALS     1     A     10     1
And Source Code
*& Report  Z_TEST_SAI                                                  *
REPORT  Z_TEST_SAI no standard page heading line-size 255.
TYPES: BEGIN OF t_cust,
        bukrs like rf02d-bukrs,
        vkorg like rf02d-vkorg,
        vtweg like rf02d-vtweg,
        spart like rf02d-spart,
        ktokd like rf02d-ktokd,
        anred like kna1-anred,
        name1 like kna1-name1,
        sortl like kna1-sortl,
        name2 like kna1-name2,
        name3 like kna1-name3,
        name4 like kna1-name4,
        stras like kna1-stras,
        pfach like kna1-pfach,
        ort01 like kna1-ort01,
        pstlz like kna1-pstlz,
        ort02 like kna1-ort02,
        pfort like kna1-pfort,
        pstl2 like kna1-pstl2,
        land1 like kna1-land1,
        regio like kna1-regio,
        telx1 like kna1-telx1,
        telf1 like kna1-telf1,
        telfx like kna1-telfx,
        telf2 like kna1-telf2,
        teltx like kna1-teltx,
        stceg like kna1-stceg,
        cityc like kna1-cityc,
        lzone like kna1-lzone,
        niels like kna1-niels,
        kukla like kna1-kukla,
        akont like knb1-akont,
        fdgrv like knb1-fdgrv,
        vzskz like knb1-vzskz,
        zterm like knb1-zterm,
        vkbur like knvv-vkbur,
        versg like knvv-versg,
        vsbed like knvv-vsbed,
        ktgrd like knvv-ktgrd,
        taxkd like knvi-taxkd,
END OF t_cust.
TYPES: BEGIN OF t_sucrec,
          cnum TYPE kna1-kunnr,                          "Customer Number
          cnam TYPE kna1-name1,                          "Customer Name
END OF t_sucrec.
TYPES: BEGIN OF t_errrec,
*        lineno TYPE i,                                  "Line Number
         lineno TYPE string,
       message TYPE string,                              "Error Message
END OF t_errrec.
DATA: v_file TYPE string,                                "Variable for storing flat file
it_cust TYPE STANDARD TABLE OF t_cust,                   "Internal table of Customer
wa_cust LIKE LINE OF it_cust,                            "Workarea of Internal table it_cust
it_sucrec TYPE STANDARD TABLE OF t_sucrec,               "Internal table of Success records
wa_sucrec LIKE LINE OF it_sucrec,                        "Workarea of Internal table it_sucrec
it_errrec TYPE STANDARD TABLE OF t_errrec,
wa_errrec LIKE LINE OF it_errrec,
it_bdctab LIKE bdcdata OCCURS 0 WITH HEADER LINE,        "Internal table structure of BDCDATA
it_messagetab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE, "Tracing Error Messages
v_date LIKE sy-datum,                                    "Controlling of session date
v_index LIKE sy-index,                                   "Index Number
v_totrec TYPE i,                                         "Total Records
v_errrec TYPE i,                                         "Error Records
v_sucrec TYPE i,                                         "Success Records
v_sesschk TYPE c.                                        "Session maintenance
*& SELECTION-SCREEN
SELECTION-SCREEN: BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001 NO INTERVALS.
PARAMETERS: p_file    TYPE rlgrap-filename.              "rlgrap-filename is a predefined structure
SELECTION-SCREEN: END OF BLOCK blk1.
SELECTION-SCREEN: BEGIN OF BLOCK blk2 WITH FRAME TITLE text-002 NO INTERVALS.
PARAMETERS: p_mode    LIKE ctu_params-dismode DEFAULT 'N',
            p_update  LIKE ctu_params-updmode DEFAULT 'A'.
SELECTION-SCREEN END OF BLOCK blk2.
*& INITIALIZATION
INITIALIZATION.
v_date = sy-datum - 1.
*& AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
program_name = syst-cprog
dynpro_number = syst-dynnr
FIELD_NAME = ' '
IMPORTING
file_name = p_file.
*& START-OF-SELECTION
START-OF-SELECTION.
v_file = p_file.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = v_file
filetype = 'ASC'
has_field_separator = 'X'
TABLES
data_tab = it_cust
EXCEPTIONS
file_open_error = 1
file_read_error = 2
no_batch = 3
gui_refuse_filetransfer = 4
invalid_type = 5
no_authority = 6
unknown_error = 7
bad_data_format = 8
header_not_allowed = 9
separator_not_allowed = 10
header_too_long = 11
unknown_dp_error = 12
access_denied = 13
dp_out_of_memory = 14
disk_full = 15
dp_timeout = 16
OTHERS = 17.
IF sy-subrc = 0.
*MESSAGE ID sy-msgid
*TYPE sy-msgty
*NUMBER sy-msgno
*WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*& END-OF-SELECTION
END-OF-SELECTION.
v_index = sy-index.
LOOP AT it_cust INTO wa_cust.
  perform bdc_dynpro      using 'SAPMF02D' '0100'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'RF02D-KTOKD'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '/00'.
    perform bdc_field       using 'RF02D-BUKRS'
                                  wa_cust-bukrs.
    perform bdc_field       using 'RF02D-VKORG'
                                  wa_cust-vkorg.
    perform bdc_field       using 'RF02D-VTWEG'
                                  wa_cust-vtweg.
    perform bdc_field       using 'RF02D-SPART'
                                  wa_cust-spart.
    perform bdc_field       using 'RF02D-KTOKD'
                                  wa_cust-ktokd.
    perform bdc_dynpro      using 'SAPMF02D' '0110'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'KNA1-TELTX'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=VW'.
    perform bdc_field       using 'KNA1-ANRED'
                                  wa_cust-anred.
    perform bdc_field       using 'KNA1-NAME1'
                                  wa_cust-name1.
    perform bdc_field       using 'KNA1-SORTL'
                                  wa_cust-sortl.
    perform bdc_field       using 'KNA1-NAME2'
                                  wa_cust-name2.
    perform bdc_field       using 'KNA1-NAME3'
                                  wa_cust-name3.
    perform bdc_field       using 'KNA1-NAME4'
                                  wa_cust-name4.
    perform bdc_field       using 'KNA1-STRAS'
                                  wa_cust-stras.
    perform bdc_field       using 'KNA1-PFACH'
                                  wa_cust-pfach.
    perform bdc_field       using 'KNA1-ORT01'
                                  wa_cust-ort01.
    perform bdc_field       using 'KNA1-PSTLZ'
                                  wa_cust-pstlz.
    perform bdc_field       using 'KNA1-ORT02'
                                  wa_cust-ort02.
    perform bdc_field       using 'KNA1-PFORT'
                                  wa_cust-pfort.
    perform bdc_field       using 'KNA1-PSTL2'
                                  wa_cust-pstl2.
    perform bdc_field       using 'KNA1-LAND1'
                                  wa_cust-land1.
    perform bdc_field       using 'KNA1-REGIO'
                                  wa_cust-regio.
    perform bdc_field       using 'KNA1-SPRAS'
                                  'EN'.
    perform bdc_field       using 'KNA1-TELX1'
                                  wa_cust-telx1.
    perform bdc_field       using 'KNA1-TELF1'
                                  wa_cust-telf1.
    perform bdc_field       using 'KNA1-TELFX'
                                  wa_cust-telfx.
    perform bdc_field       using 'KNA1-TELF2'
                                  wa_cust-telf2.
    perform bdc_field       using 'KNA1-TELTX'
                                  wa_cust-teltx.
    perform bdc_dynpro      using 'SAPMF02D' '0120'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'KNA1-CITYC'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=VW'.
    perform bdc_field       using 'KNA1-STCEG'
                                  wa_cust-stceg.
    perform bdc_field       using 'KNA1-CITYC'
                                  wa_cust-cityc.
    perform bdc_field       using 'KNA1-LZONE'
                                  wa_cust-lzone.
    perform bdc_dynpro      using 'SAPMF02D' '0125'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'KNA1-KUKLA'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=VW'.
    perform bdc_field       using 'KNA1-NIELS'
                                  wa_cust-niels.
    perform bdc_field       using 'KNA1-KUKLA'
                                  wa_cust-kukla.
    perform bdc_dynpro      using 'SAPMF02D' '0130'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'KNBK-BANKS(01)'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=VW'.
    perform bdc_dynpro      using 'SAPMF02D' '0340'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'RF02D-KUNNR'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=VW'.
    perform bdc_dynpro      using 'SAPMF02D' '0360'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'KNVK-NAMEV(01)'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=VW'.
    perform bdc_dynpro      using 'SAPMF02D' '0210'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'KNB1-VZSKZ'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=VW'.
    perform bdc_field       using 'KNB1-AKONT'
                                  wa_cust-akont.
    perform bdc_field       using 'KNB1-FDGRV'
                                  wa_cust-fdgrv.
    perform bdc_field       using 'KNB1-VZSKZ'
                                  wa_cust-vzskz.
    perform bdc_dynpro      using 'SAPMF02D' '0215'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'KNB1-ZTERM'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=VW'.
    perform bdc_field       using 'KNB1-ZTERM'
                                  wa_cust-zterm.
    perform bdc_dynpro      using 'SAPMF02D' '0220'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'KNB5-MAHNA'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=VW'.
    perform bdc_dynpro      using 'SAPMF02D' '0230'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'KNB1-VRSNR'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=VW'.
    perform bdc_dynpro      using 'SAPMF02D' '0610'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=VW'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'RF02D-KUNNR'.
    perform bdc_dynpro      using 'SAPMF02D' '0310'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'KNVV-VERSG'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=VW'.
    perform bdc_field       using 'KNVV-AWAHR'
                                  '100'.
    perform bdc_field       using 'KNVV-VKBUR'
                                  wa_cust-vkbur.
    perform bdc_field       using 'KNVV-WAERS'
                                  'INR'.
    perform bdc_field       using 'KNVV-KALKS'
                                  '1'.
    perform bdc_field       using 'KNVV-VERSG'
                                  wa_cust-versg.
    perform bdc_dynpro      using 'SAPMF02D' '0315'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'KNVV-VSBED'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=VW'.
    perform bdc_field       using 'KNVV-LPRIO'
    perform bdc_field       using 'KNVV-KZAZU'
                                  'X'.
    perform bdc_field       using 'KNVV-VSBED'
                                  wa_cust-vsbed.
    perform bdc_field       using 'KNVV-ANTLF'
                                  '9'.
    perform bdc_dynpro      using 'SAPMF02D' '0320'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'KNVV-KTGRD'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=VW'.
    perform bdc_field       using 'KNVV-BOKRE'
                                  'X'.
    perform bdc_field       using 'KNVV-KTGRD'
                                  wa_cust-ktgrd.
    perform bdc_dynpro      using 'SAPMF02D' '1350'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'KNVI-TAXKD(01)'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=VW'.
    perform bdc_field       using 'KNVI-TAXKD(01)'
                                  wa_cust-taxkd.
    perform bdc_dynpro      using 'SAPMF02D' '0324'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'KNVP-PARVW(01)'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=UPDA'.
CALL TRANSACTION 'XD01' USING it_bdctab
MODE p_mode
UPDATE p_update
MESSAGES INTO it_messagetab.
IF sy-subrc = 0.
*& reading success records to corresponding internal table
READ TABLE it_messagetab WITH KEY msgtyp = 'S'.
IF sy-subrc = 0.
wa_sucrec-cnum = it_messagetab-msgv1.
wa_sucrec-cnam = wa_cust-name1.
APPEND wa_sucrec TO it_sucrec.
CLEAR wa_sucrec.
ENDIF.
ELSE.
*& reading error records to corresponding internal table
READ TABLE it_messagetab WITH KEY msgtyp = 'E'.
IF sy-subrc = 0.
CALL FUNCTION 'FORMAT_MESSAGE'
EXPORTING
id = sy-msgid
no = it_messagetab-msgnr
v1 = it_messagetab-msgv1
v2 = it_messagetab-msgv2
v3 = it_messagetab-msgv3
v4 = it_messagetab-msgv4
IMPORTING
msg = wa_errrec-message.
wa_errrec-lineno = v_index.
*******wa_errrec-lineno  = v_index.
*******wa_errrec-message = it_messagetab-msgv1.
APPEND wa_errrec TO it_errrec.
CLEAR wa_errrec.
ENDIF.
ENDIF.
CLEAR : it_bdctab, it_messagetab.
REFRESH: it_bdctab, it_messagetab.
ENDLOOP.
DESCRIBE TABLE it_cust LINES v_totrec.
DESCRIBE TABLE it_errrec LINES v_errrec.
DESCRIBE TABLE it_sucrec LINES v_sucrec.
PERFORM disp_data.
SKIP 2.
IF v_sucrec > 0.
PERFORM disp_success_data.
ENDIF.
SKIP 2.
IF v_errrec > 0.
PERFORM disp_error_data.
ENDIF.
*& Form bdc_dynpro
*#  text
*#  -->P_0104 text
*#  -->P_0105 text
FORM bdc_dynpro USING program
dynpro.
CLEAR it_bdctab.
it_bdctab-program = program.
it_bdctab-dynpro = dynpro.
it_bdctab-dynbegin = 'X'.
APPEND it_bdctab.
ENDFORM. " bdc_dynpro
*& Form bdc_field
*#  text
*#  -->P_0109 text
*#  -->P_IT_cust_LIFNR text
FORM bdc_field USING fnam
fval.
CLEAR it_bdctab.
it_bdctab-fnam = fnam.
it_bdctab-fval = fval.
APPEND it_bdctab.
ENDFORM. " bdc_field
*& Form disp_data
*#  text
*#  --> p1 text
*#  <-- p2 text
FORM disp_data .
ULINE (45).
WRITE : / sy-vline,
12 'FAMD CUSTOMER UPDATE SUMMARY'(004) COLOR 1,
45 sy-vline.
ULINE /(45).
WRITE : / sy-vline,
'Total Records Processed'(007),
28 '=',
30 v_totrec,
45 sy-vline,
/ sy-vline,
'Error Records'(005),
28 '=',
30 v_errrec,
45 sy-vline,
/ sy-vline,
'Successful Records'(006),
28 '=',
30 v_sucrec,
45 sy-vline.
ULINE /(45).
ENDFORM. " disp_data
*& Form disp_success_data
*#  text
*#  --> p1 text
*#  <-- p2 text
FORM disp_success_data .
ULINE (45).
WRITE : / sy-vline,
14 'Successful Records'(012) COLOR 1,
45 sy-vline.
ULINE /(45).
WRITE : / sy-vline ,
'Customer Number'(010) COLOR 2,
17 sy-vline,
25 'Customer Name'(011) COLOR 2,
45 sy-vline.
ULINE /(45).
LOOP AT it_sucrec INTO wa_sucrec.
WRITE: / sy-vline ,
wa_sucrec-cnum,
17 sy-vline,
19 wa_sucrec-cnam,
45 sy-vline.
ENDLOOP.
ULINE /(45).
ENDFORM. " disp_success_data
*& Form disp_error_data
*#  text
*#  --> p1 text
*#  <-- p2 text
FORM disp_error_data .
ULINE (85).
WRITE : / sy-vline,
35 'Error Records'(013) COLOR 1,
85 sy-vline.
ULINE /(85).
WRITE : / sy-vline,
'Record Number'(008) COLOR 2,
sy-vline,
37 'Reason for error'(009) COLOR 2,
85 sy-vline.
ULINE /(85).
LOOP AT it_errrec INTO wa_errrec.
WRITE : / sy-vline,
wa_errrec-lineno,
17 sy-vline,
wa_errrec-message,
85 sy-vline.
ENDLOOP.
ULINE /(85).
ENDFORM. " disp_error_data

Answer 1

Worked out n found the solution