ALV display not work

Question

Hi,
Do you know why the following code did not display the content of li_final?  There are 30 records in the li_final, but nothing display on the screen. 
Thanks,
Helen
FORM 8400_display_list  USING  li_final LIKE gi_auditin_mapping
                               li_fcat  LIKE gi_fcat
                               li_event LIKE gi_event.
  DATA :l_repid TYPE sy-repid.
  DATA: l_layout TYPE slis_layout_alv.
  l_repid = sy-repid.
  l_layout-zebra = 'X'.
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      i_callback_program = l_repid
      it_fieldcat        = li_fcat[]
      is_layout          = l_layout
      it_events          = li_event[]
    TABLES
      t_outtab           = li_final
    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.
  CLEAR : li_fcat[],li_event[],gi_list_header[].
ENDFORM.                    " 8400_display_list

Answer 1

REPORT  z_audit_prod_code_rpt MESSAGE-ID zmm NO STANDARD PAGE HEADING.
        TABLES
TABLES : vbrp, vbap, rseg, ekko, ekpo.
        TYPE-POOL DECLARATIONS
TYPE-POOLS : slis.
        TYPES DECLARATION
TYPES : BEGIN OF type_record,
          lines(1367) TYPE c,
        END OF type_record.
TYPES : BEGIN OF type_auditin_mapping ,
          companyid         TYPE char2,
          invno             TYPE vbrp-vbeln,
          invitemno         TYPE vbrp-posnr,
          invdate           TYPE vbrp-fbuda,
          sapdoc            TYPE char10,
          sapdocline(5)     TYPE n,
          sapmatgrp         TYPE zfftaxware2-zzmtlgrp,
          sapregacct        TYPE zfftaxware2-zzreg_acct,
          sapprodcode       TYPE zfftaxware2-zzprodcode,
          taxprodcode       TYPE char7,
          prodcode          TYPE char7,
          grossamt(13)      TYPE p decimals 2,
          fedtxamt(13)      TYPE p decimals 2,
          sttxamt(13)       TYPE p decimals 2,
          countytxamt(13)   TYPE p decimals 2,
          citytxamt(13)     TYPE p decimals 2,
        END OF type_auditin_mapping.
TYPES : BEGIN OF type_rbkp,
          belnr TYPE rbkp-belnr,
          xblnr TYPE rbkp-xblnr,
        END OF type_rbkp.
        INTERNAL TABLES
DATA:  gi_auditin_record  TYPE STANDARD TABLE OF type_record,
       gi_auditin_mapping TYPE STANDARD TABLE OF type_auditin_mapping,
       gi_fcat            TYPE slis_t_fieldcat_alv,
       gi_event           TYPE slis_t_event,
       gi_list_header     TYPE slis_t_listheader,
       gi_rbkp        TYPE STANDARD TABLE OF type_rbkp WITH HEADER LINE.
        WORKAREAS
        VARIABLES
DATA : g_date          TYPE sy-datum,
       g_time          TYPE sy-uzeit,
       li_auditin      TYPE STANDARD TABLE OF type_auditin_mapping,
       g_count(6)      TYPE n,          "Log table counter
       g_file_path     TYPE file_name,  "Holds file path type
       g_file_outpath  TYPE file_name VALUE '/usr/sap/comm/recv/in/',
       g_file_errpath  TYPE file_name VALUE '/usr/sap/comm/recv/err/',
       g_file_appath   TYPE file_name VALUE
'/usr/sap/comm/recv/arch/FI006/',
       g_filename      TYPE file_name,  "Intrface file name
       g_filename_last TYPE file_name,
       g_records(5)    TYPE n,          "Download record Counter
       g_file_name     TYPE file_name,  "Download file
       g_header(20)    TYPE c,          "Hearder validate
       g_status        TYPE sy-subrc,   "To hold sy-subrc value
       g_msg           TYPE zmesgdesc,  "Msg description
       g_delimit       TYPE char01,     "Hold selected delimitor
       g_pdelimit      VALUE '|',       "Pipe delimitor
       g_msg_flg       TYPE char01,     "Flag holds file Download Msg
       g_cnt           TYPE char01,
       g_int_seq       TYPE char3,
       g_file_lines    TYPE int4,
       g_err_count     TYPE int4,       "Error Records counter
       g_errmsg        TYPE char01,     "Flag for Error Msg Heade
       g_arch          TYPE char01,     "Flag for archive
       g_inv           TYPE vbrp-vbeln,
       g_invitem       TYPE vbrp-posnr,
       g_total(7)      TYPE n,
       g_succ          TYPE n,
       g_err           TYPE n.
        SELECTION-SCREEN
*SELECTION-SCREEN BEGIN OF BLOCK f1 WITH FRAME TITLE text-001.
*SELECT-OPTIONS : s_pdate    FOR vbrk-fkdat OBLIGATORY.
*SELECTION-SCREEN END OF BLOCK f1.
     Block for Application / Presentation server radio button
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS       : p_pre  RADIOBUTTON GROUP g1 DEFAULT 'X'
                                            USER-COMMAND run,
                   p_app  RADIOBUTTON GROUP g1.
SELECTION-SCREEN : END OF BLOCK b1.
     Block for Application / Presentation server File input Parameter
SELECTION-SCREEN : BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS       : p_lfile LIKE rlgrap-filename,
                   p_afile TYPE rlgrap-filename.
SELECTION-SCREEN : END OF BLOCK b2.
     Block for Selecting Appropriate Delimitor for Variable Length
SELECTION-SCREEN : BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
PARAMETERS       : p_tdelmt RADIOBUTTON GROUP g3 DEFAULT 'X',
                   p_pdelmt RADIOBUTTON GROUP g3.
SELECTION-SCREEN : END OF BLOCK b3.
          Event: AT SELECTION-SCREEN OUTPUT                          *
To Modify the Selection screen as per user selection
AT SELECTION-SCREEN OUTPUT.
  PERFORM 1100_modify_sel_screen.
  Event: AT SELECTION-SCREEN                                         *
To get the Input file name and path from presentation server
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_lfile.
  PERFORM 1200_get_filename_pre USING p_lfile.
To get the Input file name & path from application server
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_afile.
  PERFORM 1300_get_filename_appl USING p_afile.
       START-OF-SELECTION
START-OF-SELECTION.
  PERFORM 2000_process_input.
        END-OF-SELECTION
END-OF-SELECTION.
  PERFORM 8000_display_report USING gi_auditin_mapping.
*&          FORM 1100_MODIFY_SEL_SCREEN
This routine is used to modify the selection screen based on the user*
selection
FORM 1100_modify_sel_screen .
  LOOP AT SCREEN.
    IF screen-name = 'P_AFILE'.
      IF p_pre = 'X'.
        screen-input = 0.
      ELSE.
        screen-input = 1.
      ENDIF.
    ENDIF.
    IF screen-name = 'P_LFILE'.
      IF p_app = 'X'.
        screen-input = 0.
      ELSE.
        screen-input = 1.
      ENDIF.
    ENDIF.
    MODIFY SCREEN.
  ENDLOOP.
ENDFORM.            " 1100_MODIFY_SEL_SCREEN
*&      Form  1200_get_filename_pre
      Routine to get the Presentation server file path
     -->LP_FILE  - File to be opened for Presentation server
FORM 1200_get_filename_pre  USING lp_lfile TYPE rlgrap-filename.
  DATA:  lt_files TYPE filetable,        " File table
         l_title TYPE string,            " Window table
         l_file TYPE file_table,         " File name
         l_subrc TYPE sy-subrc,          " Output value
         l_file1 TYPE string.            " File name
To open the file dialog box
  CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title            = l_title
    CHANGING
      file_table              = lt_files
      rc                      = l_subrc
    EXCEPTIONS
      file_open_dialog_failed = 1
      cntl_error              = 2
      error_no_gui            = 3
      OTHERS                  = 4.
  IF sy-subrc = 0.
  Get the file name.
    LOOP AT lt_files INTO l_file.
      l_file1 = l_file.
      MOVE l_file1 TO lp_lfile.
      EXIT.
    ENDLOOP.
  ENDIF.
ENDFORM.                    " 1200_get_filename_pre
*&      Form  1300_get_filename_appl
      Routine to get the Application server file path
     --> LP_AFILE  - File to be opened for application server
FORM 1300_get_filename_appl USING lp_afile TYPE rlgrap-filename.
  CALL FUNCTION '/SAPDMC/LSM_F4_SERVER_FILE'
    EXPORTING
      directory        = '/apps/opt/taxware/audit/taxaudit'
      filemask         = '*'
    IMPORTING
      serverfile       = lp_afile
    EXCEPTIONS
      canceled_by_user = 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.                    " 1300_get_filename_appl
*&      Form  2000_process_input
      READ DATA FROM THE VBRK AND VBRP.
FORM 2000_process_input.
g_date = sy-datum.
g_time = sy-uzeit.
  IF p_pre =  'X'.                                      "from Local
    PERFORM 2100_upload_loc_data USING  gi_auditin_record
                                        p_lfile.
    PERFORM 2200_check_type_split.                     "USING p_afile.
    PERFORM 2300_process_records  USING gi_auditin_record.
                          CHANGING gi_auditin_mapping[].
  ELSEIF p_app = 'X'.
   PERFORM 3100_check_type_split USING gi_audit_lines[]..
   PERFORM 3200_open_file USING p_afile.
   PERFORM 3300_read_file USING gi_audit_lines
                                p_afile.
   PERFORM 3400__close_file USING p_afile.
  ENDIF.
ENDFORM.                    " 2000_process_input
*&      Form  2100_upload_loc_data
FORM 2100_upload_loc_data  USING li_audit_lines LIKE gi_auditin_record[]
                                 lp_lfile    TYPE rlgrap-filename.
  DATA : lv_lfile TYPE string.
  lv_lfile = lp_lfile.
  IF lp_lfile IS INITIAL.
    MESSAGE s140.
    LEAVE LIST-PROCESSING.
  ENDIF.
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename                = lv_lfile
      filetype                = 'ASC'
    TABLES
      data_tab                = li_audit_lines
    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.
    CLEAR : g_msg,g_status.
    g_status = 0.
    g_msg   = text-011.
  ELSE.
    CLEAR : g_msg,g_status.
    g_status = 1.
    g_msg   = text-025.
  Message : UNABLE TO OPEN THE INPUT FILE.
    MESSAGE s125 WITH lv_lfile.
    STOP.
  ENDIF.
ENDFORM.                    " 2100_UPLOAD_DATA
*&      Form  2200_check_type_split
FORM 2200_check_type_split.
  DATA : l_tabchar TYPE char1,
         l_dummy TYPE string.
  l_tabchar = cl_abap_char_utilities=>horizontal_tab.
  IF p_tdelmt = 'X'.
    g_delimit = l_tabchar.
  ELSEIF p_pdelmt = 'X'.
    g_delimit = g_pdelimit.
  ENDIF.
ENDFORM.                    " 2200_check_type_split
*&      Form  3200_check_type_split
      text
     -->LI_AUDIT_LItext
FORM 3200_check_type_split USING li_audit_lines LIKE gi_auditin_record[]
  DATA : l_tabchar TYPE char01.
  l_tabchar = cl_abap_char_utilities=>horizontal_tab.
  IF p_tdelmt = 'X'.
    g_delimit = l_tabchar.
  ELSEIF p_pdelmt = 'X'.
    g_delimit = g_pdelimit.
  ENDIF.
ENDFORM.                    " 3200_check_type_split
*&      Form  1300_find_table_validate
      Routine to Presentation server Loop Process
FORM 2300_process_records USING
          li_auditin_record LIKE gi_auditin_record[].
                          li_auditin_mapping LIKE gi_auditin_mapping[]
  DATA : lw_auditin_record LIKE LINE OF gi_auditin_record[],
         lw_audit_map   LIKE LINE OF gi_auditin_mapping[],
         l_data         TYPE type_record,
         l_cnt          TYPE char01,
         l_aubel        TYPE vbrp-aubel,
         l_aupos        TYPE vbrp-aupos,
         l_matkl        TYPE vbap-matkl,
         l_zzreg_acct   TYPE vbap-zzreg_acct,
         l_zzprodcode   TYPE zfftaxware2-zzprodcode,
         l_ptable       TYPE char20.
  LOOP AT li_auditin_record INTO lw_auditin_record.
    PERFORM 2301_split_record USING lw_auditin_record
                        CHANGING gi_auditin_mapping[].
   APPEND lw_auditin TO li_auditin_mapping.
    g_total = g_total + 1.
    IF g_total < 1.    "the Empty file
      CLEAR : g_msg,g_status.
      g_status = 1.
      g_msg    = text-034.
      STOP.
    ENDIF.
  ENDLOOP.
  IF g_err_count IS INITIAL.        " Success Report
  ENDIF.
ENDFORM.                    " 2300_process_records.
*&      Form  sub_split_file                                           *
This subroutine is used to split the file                            *
     -->L_DATA                                                       *
     <--LI_INPUT_FILE[]                                              *
FORM 2301_split_record USING l_data TYPE type_record
                         li_auditin_mapping LIKE gi_auditin_mapping[].
  DATA : lw_auditin         TYPE type_auditin_mapping,
         lw-grossamt(13)    TYPE n,  "p decimals 2,
         lw-fedtxamt(13)    TYPE n,  "p decimals 2,
         lw-sttxamt(13)     TYPE n,  "p decimals 2,
         lw-countytxamt(13) TYPE n,  "p decimals 2,
         lw-citytxamt(13)   TYPE n,  "p decimals 2,
         dummy1,dummy2,dummy3,dummy4,dummy5,
         dummy6,dummy7,dummy8,dummy9,dummy10,
         dummy11,dummy12,dummy13,dummy14,dummy15,
         dummy16,dummy17,dummy18,dummy19,dummy20,
         dummy21,dummy22,dummy23,dummy24,dummy25,
         dummy26,dummy27,dummy28,dummy29,dummy30,
         dummy31,dummy32,dummy33,dummy34,dummy35,
         dummy36,dummy37,dummy38,dummy39,dummy40,
         dummy41,dummy42,dummy43,dummy44,dummy45,
         dummy46,dummy47,dummy48,dummy49,dummy50,
         dummy51,dummy52,dummy53,dummy54,dummy55,
         dummy56,dummy57,dummy58,dummy59,dummy60,
         dummy61,dummy62,dummy63,dummy64,dummy65,
         dummy66.
  SPLIT l_data AT g_delimit INTO lw_auditin-companyid
                           dummy1
                           lw_auditin-invno
                           lw_auditin-invitemno
                           lw_auditin-invdate
                           dummy2 dummy3 dummy4 dummy5 dummy6
                           dummy7 dummy8 dummy9 dummy10 dummy11
                           lw-grossamt
                          lw_auditin-grossamt
                           dummy12 dummy13 dummy14 dummy15 dummy16
                           dummy17 dummy18 dummy19 dummy20
                          lw_auditin-fedtxamt
                          lw_auditin-sttxamt
                          lw_auditin-countytxamt
                          lw_auditin-citytxamt
                           lw-fedtxamt
                           lw-sttxamt
                           lw-countytxamt
                           lw-citytxamt
                           dummy21 dummy22 dummy23 dummy24 dummy25
                           dummy26 dummy27 dummy28 dummy29 dummy30
                           dummy31 dummy32 dummy33 dummy34 dummy35
                           dummy36 dummy37 dummy38 dummy39 dummy40
                           dummy41 dummy42 dummy43 dummy44 dummy45
                           dummy46 dummy47 dummy48 dummy49 dummy40
                           dummy51 dummy52 dummy53 dummy54 dummy55
                           dummy56 dummy57 dummy58 dummy59 dummy50
                           dummy61 dummy62 dummy63 dummy64 dummy65
                           lw_auditin-taxprodcode
                           lw_auditin-prodcode
                           dummy66.
  lw_auditin-grossamt    = lw-grossamt / 100.
  lw_auditin-fedtxamt    = lw-fedtxamt / 100.
  lw_auditin-sttxamt     = lw-sttxamt / 100.
  lw_auditin-countytxamt = lw-countytxamt / 100.
  lw_auditin-citytxamt   = lw-citytxamt / 100.
PERFORM 2302_find_prod_code USING lw_auditin
                          CHANGING li_auditin_mapping.
  DATA:l_vbeln        TYPE vbrp-vbeln,
       l_posnr(6)     TYPE n,
       l_aubel        TYPE vbrp-aubel,
       l_aupos        TYPE vbrp-aupos,
       l_matkl        TYPE vbap-matkl,
       l_zzreg_acct   TYPE vbap-zzreg_acct,
       l_zzprodcode   TYPE zfftaxware2-zzprodcode,
       l_ptable       TYPE char20.
  l_vbeln = lw_auditin-invno.
  l_posnr = lw_auditin-invitemno.
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = l_vbeln
    IMPORTING
      output = l_vbeln.
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = l_posnr
    IMPORTING
      output = l_posnr.
*Find the Document No.
  SELECT SINGLE aubel aupos              "Sales Doc; Sales Item
    INTO (l_aubel, l_aupos)
    FROM vbrp                                 "Billing Doc
   WHERE vbeln = l_vbeln  AND
         posnr = l_posnr.
  IF sy-subrc = 0.
    lw_auditin-sapdoc     = l_aubel.
    lw_auditin-sapdocline = l_aupos.
    SELECT SINGLE matkl  zzreg_acct            "vbap
      INTO (l_matkl, l_zzreg_acct)
      FROM vbap
     WHERE vbeln = l_aubel AND                 "Sales Document
           posnr = l_aupos.                    "Sales Item
    IF sy-subrc = 0.
      lw_auditin-sapmatgrp  = l_matkl.
      lw_auditin-sapregacct = l_zzreg_acct.
      SELECT SINGLE zzprodcode
        INTO (l_zzprodcode)
        FROM zfftaxware2
       WHERE zzreg_acct_grp = l_zzreg_acct(4) AND
             zzmtlgrp       = l_matkl.
      lw_auditin-sapprodcode = l_zzprodcode.
    ELSE.                                       "ekpo
      SELECT SINGLE matkl zzreg_acct            "PO Item
        INTO (l_matkl, l_zzreg_acct)
        FROM ekpo                               " invoice verification
       WHERE ebeln = l_aubel AND                " invoice
             ebelp = l_aupos.
      IF sy-subrc = 0.
        lw_auditin-sapmatgrp  = l_matkl.
        lw_auditin-sapregacct = l_zzreg_acct.
        SELECT SINGLE zzprodcode
          INTO (l_zzprodcode)
          FROM zfftaxware2
         WHERE zzreg_acct_grp = l_zzreg_acct(4) AND
               zzmtlgrp       = l_matkl.
        lw_auditin-sapprodcode = l_zzprodcode.
      ELSE.
        WRITE: / l_aubel, '/', l_aupos,
               ' no find in ekpo and vbap table'.
      ENDIF.
    ENDIF.
  ELSE.
    lw_auditin-sapdoc     = 'not found'.
    WRITE: /  l_vbeln, '/', l_posnr,
       ' not found in the vbap table'.
  ENDIF.
  APPEND lw_auditin TO li_auditin_mapping.
  CLEAR: lw_auditin,lw-grossamt,lw-fedtxamt,lw-sttxamt,lw-countytxamt,
         lw-citytxamt.
  CLEAR: dummy1,dummy2,dummy3,dummy4,dummy5,
         dummy6,dummy7,dummy8,dummy9,dummy10,
         dummy11,dummy12,dummy13,dummy14,dummy15,
         dummy16,dummy17,dummy18,dummy19,dummy20,
         dummy21,dummy22,dummy23,dummy24,dummy25,
         dummy26,dummy27,dummy28,dummy29,dummy30,
         dummy31,dummy32,dummy33,dummy34,dummy35,
         dummy36,dummy37,dummy38,dummy39,dummy40,
         dummy41,dummy42,dummy43,dummy44,dummy45,
         dummy46,dummy47,dummy48,dummy49,dummy50,
         dummy51,dummy52,dummy53,dummy54,dummy55,
         dummy56,dummy57,dummy58,dummy59,dummy60,
         dummy61,dummy62,dummy63,dummy64,dummy65,
         dummy66.
ENDFORM.                    " 2301_split_file
*&      Form  2302_find_prod_code
*FORM 2302_find_prod_code USING 2302_auditin
                     CHANGING 2302_auditin_mapping.
*DATA:l_vbeln        TYPE vbrp-vbeln,
      l_posnr(6)     TYPE n,
      l_aubel        TYPE vbrp-aubel,
      l_aupos        TYPE vbrp-aupos,
      l_matkl        TYPE vbap-matkl,
      l_zzreg_acct   TYPE vbap-zzreg_acct,
      l_zzprodcode   TYPE zfftaxware2-zzprodcode,
      l_ptable       TYPE char20.
l_vbeln = lw_auditin-invno.
l_posnr = lw_auditin-invitemno.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
   EXPORTING
     input  = l_vbeln
   IMPORTING
     output = l_vbeln.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
   EXPORTING
     input  = l_posnr
   IMPORTING
     output = l_posnr.
**Find the Document No.
SELECT SINGLE aubel aupos              "Sales Doc; Sales Item
   INTO (l_aubel, l_aupos)
   FROM vbrp                                 "Billing Doc
  WHERE vbeln = l_vbeln  AND
        posnr = l_posnr.
IF sy-subrc = 0.
   lw_auditin-sapdoc     = l_aubel.
   lw_auditin-sapdocline = l_aupos.
   SELECT SINGLE matkl  zzreg_acct            "vbap
     INTO (l_matkl, l_zzreg_acct)
     FROM vbap
    WHERE vbeln = l_aubel AND                 "Sales Document
          posnr = l_aupos.                    "Sales Item
   IF sy-subrc = 0.
     lw_auditin-sapmatgrp  = l_matkl.
     lw_auditin-sapregacct = l_zzreg_acct.
     SELECT SINGLE zzprodcode
       INTO (l_zzprodcode)
       FROM zfftaxware2
      WHERE zzreg_acct_grp = l_zzreg_acct(4) AND
            zzmtlgrp       = l_matkl.
     lw_auditin-sapprodcode = l_zzprodcode.
   ELSE.                                       "ekpo
     SELECT SINGLE matkl zzreg_acct            "PO Item
       INTO (l_matkl, l_zzreg_acct)
       FROM ekpo                               " invoice verification
      WHERE ebeln = l_aubel AND                " invoice
            ebelp = l_aupos.
     IF sy-subrc = 0.
       lw_auditin-sapmatgrp  = l_matkl.
       lw_auditin-sapregacct = l_zzreg_acct.
       SELECT SINGLE zzprodcode
         INTO (l_zzprodcode)
         FROM zfftaxware2
        WHERE zzreg_acct_grp = l_zzreg_acct(4) AND
              zzmtlgrp       = l_matkl.
       lw_auditin-sapprodcode = l_zzprodcode.
     ELSE.
       WRITE: / l_aubel, '/', l_aupos,
              ' no find in ekpo and vbap table'.
     ENDIF.
   ENDIF.
ELSE.
   lw_auditin-sapdoc     = 'not found'.
   WRITE: /  l_vbeln, '/', l_posnr,
      ' not found in the vbap table'.
ENDIF.
*ENDFORM.              "2302_find_prod_code
*&      Form  8000_display_report
      For displaying the output in the GRID format
     -->LI_FINAL
FORM 8000_display_report USING li_auditin_mapping LIKE
                                  gi_auditin_mapping.
  PERFORM 8100_fill_fieldcat CHANGING gi_fcat.
  PERFORM 8200_fill_event    CHANGING gi_event.
  PERFORM 8300_fill_listheader.
  PERFORM 8400_display_list TABLES li_auditin_mapping
                                   gi_fcat
                                   gi_event.
ENDFORM.                    " sub_display_report
     TOP_OF_PAGE
FORM top_of_page.                                           "#EC CALLED
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = gi_list_header.
ENDFORM.                    "TOP_OF_PAGE
*&      Form  8100_fill_fieldcat
      FILLING THE FIELDCATALOUG
     <--LI_FCAT
FORM 8100_fill_fieldcat  CHANGING li_fcat LIKE gi_fcat.
  DATA: lw_fcat TYPE slis_fieldcat_alv.
  lw_fcat-fieldname = 'COMPANYID'.
  lw_fcat-tabname   = 'gi_auditin_mapping'.
  lw_fcat-seltext_m = text-008.
  lw_fcat-outputlen = '10'.
  APPEND lw_fcat TO li_fcat.
  CLEAR lw_fcat.
  lw_fcat-fieldname = 'INVNO'.
  lw_fcat-tabname   = 'gi_auditin_mapping'.
  lw_fcat-seltext_m = text-009.
  lw_fcat-outputlen = '10'.
  APPEND lw_fcat TO li_fcat.
  CLEAR lw_fcat.
  lw_fcat-fieldname = 'INVITEMNO'.
  lw_fcat-tabname   = 'gi_auditin_mapping'.
  lw_fcat-seltext_m = text-010.
  lw_fcat-outputlen = '10'.
  APPEND lw_fcat TO li_fcat.
  CLEAR lw_fcat.
  lw_fcat-fieldname = 'INVDATE'.
  lw_fcat-tabname   = 'gi_auditin_mapping'.
  lw_fcat-seltext_m = text-011.
  lw_fcat-outputlen = '10'.
  APPEND lw_fcat TO li_fcat.
  CLEAR lw_fcat.
  lw_fcat-fieldname = 'SAPDOC'.
  lw_fcat-tabname   = 'gi_auditin_mapping'.
  lw_fcat-seltext_m = text-012.
  lw_fcat-outputlen = '10'.
  APPEND lw_fcat TO li_fcat.
  CLEAR lw_fcat.
  lw_fcat-fieldname = 'SAPDOCLINE'.
  lw_fcat-tabname   = 'gi_auditin_mapping'.
  lw_fcat-seltext_m = text-013.
  lw_fcat-outputlen = '10'.
  APPEND lw_fcat TO li_fcat.
  CLEAR lw_fcat.
  lw_fcat-fieldname = 'SAPMATGRP'.
  lw_fcat-tabname   = 'gi_auditin_mapping'.
  lw_fcat-seltext_m = text-014.
  lw_fcat-outputlen = '11'.
  APPEND lw_fcat TO li_fcat.
  CLEAR lw_fcat.
  lw_fcat-fieldname = 'SAPREGACCT'.
  lw_fcat-tabname   = 'gi_auditin_mapping'.
  lw_fcat-seltext_m = text-015.
  lw_fcat-outputlen = '12'.
  APPEND lw_fcat TO li_fcat.
  CLEAR lw_fcat.
  lw_fcat-fieldname = 'SAPPRODCODE'.
  lw_fcat-tabname   = 'gi_auditin_mapping'.
  lw_fcat-seltext_m = text-016.
  lw_fcat-outputlen = '13'.
  APPEND lw_fcat TO li_fcat.
  CLEAR lw_fcat.
  lw_fcat-fieldname = 'TAXPRODCODE'.
  lw_fcat-tabname   = 'gi_auditin_mapping'.
  lw_fcat-seltext_m = text-017.
  lw_fcat-outputlen = '13'.
  APPEND lw_fcat TO li_fcat.
  CLEAR lw_fcat.
  lw_fcat-fieldname = 'PRODCODE'.
  lw_fcat-tabname   = 'gi_auditin_mapping'.
  lw_fcat-seltext_m = text-018.
  lw_fcat-outputlen = '12'.
  APPEND lw_fcat TO li_fcat.
  CLEAR lw_fcat.
  lw_fcat-fieldname = 'GROSSAMT'.
  lw_fcat-tabname   = 'gi_auditin_mapping'.
  lw_fcat-seltext_m = text-019.
  lw_fcat-outputlen = '13'.
  APPEND lw_fcat TO li_fcat.
  CLEAR lw_fcat.
  lw_fcat-fieldname = 'FEDTXAMT'.
  lw_fcat-tabname   = 'gi_auditin_mapping'.
  lw_fcat-seltext_m = text-020.
  lw_fcat-outputlen = '17'.
  APPEND lw_fcat TO li_fcat.
  CLEAR lw_fcat.
  lw_fcat-fieldname = 'STTXAMT'.
  lw_fcat-tabname   = 'gi_auditin_mapping'.
  lw_fcat-seltext_m = text-021.
  lw_fcat-outputlen = '17'.
  APPEND lw_fcat TO li_fcat.
  CLEAR lw_fcat.
  lw_fcat-fieldname = 'COUNTYTXAMT'.
  lw_fcat-tabname   = 'gi_auditin_mapping'.
  lw_fcat-seltext_m = text-022.
  lw_fcat-outputlen = '17'.
  APPEND lw_fcat TO li_fcat.
  CLEAR lw_fcat.
  lw_fcat-fieldname = 'CITYTXAMT'.
  lw_fcat-tabname   = 'gi_auditin_mapping'.
  lw_fcat-seltext_m = text-023.
  lw_fcat-outputlen = '17'.
  APPEND lw_fcat TO li_fcat.
  CLEAR lw_fcat.
ENDFORM.                    " 8100_fill_fieldcat
*&      Form  8200_fill_event
      FILLING THE EVENT TABLE
     <--LI_EVENT
FORM 8200_fill_event  CHANGING li_event LIKE gi_event.
  DATA : lw_event  TYPE slis_alv_event,
         c_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type = 0
    IMPORTING
      et_events   = li_event.
  READ TABLE li_event WITH KEY name =  slis_ev_top_of_page
                           INTO lw_event.
  IF sy-subrc = 0.
    MOVE c_formname_top_of_page TO lw_event-form.
    APPEND lw_event TO li_event.
  ENDIF.
  CLEAR lw_event.
ENDFORM.                    " 8200_fill_event
*&      Form  8300_fill_listheaer
FORM 8300_fill_listheader .
  DATA          lw_line  TYPE slis_listheader.
  CLEAR lw_line.
  lw_line-typ  = 'H'.
  lw_line-info = text-024.
  APPEND lw_line TO gi_list_header.
  CLEAR lw_line.
  lw_line-typ  = 'S'.
  lw_line-key  = text-025.
  lw_line-info = g_total.
  APPEND lw_line TO gi_list_header.
CLEAR lw_line.
lw_line-typ  = 'S'.
lw_line-key = text-025.
lw_line-info = g_err.
APPEND lw_line TO gi_list_header.
  CLEAR : g_total,g_succ,g_err.
ENDFORM.                    " 8300_fill_listheader
*&      Form  8400_display_list
      DISPLAYING THE LIST
     -->LI_FINAL
     -->LI_FCAT
     -->LI_EVENT
FORM 8400_display_list TABLES li_final  LIKE gi_auditin_mapping
                              li_fcat   LIKE gi_fcat
                              li_event  LIKE gi_event.
  DATA :l_repid TYPE sy-repid.
  DATA: l_layout TYPE slis_layout_alv.
  l_repid = sy-repid.
  l_layout-zebra = 'X'.
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      i_callback_program = l_repid
      it_fieldcat        = li_fcat[]
      is_layout          = l_layout
      it_events          = li_event[]
    TABLES
      t_outtab           = li_final
    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.
  CLEAR : li_fcat[],li_event[],gi_list_header[].
ENDFORM.                    " 8400_display_list