Need to use ALV instead of write:/ statement in this perform

Question

How can I use ALV within this perform instead of using Write:/ in it.
Scroll the program. At the bottom there is use of write:/ statement.
How to use ALV in this perform?
FORM display_logfile .
  TYPES: BEGIN OF lt_openbal,
            bukrs TYPE bukrs,
            hkont TYPE hkont,
            augdt TYPE augdt,
            augbl TYPE augbl,
            zuonr TYPE dzuonr,
            gjahr TYPE gjahr,
            belnr TYPE belnr_d,
            buzei TYPE buzei,
            shkzg TYPE shkzg,
            dmbtr TYPE dmbtr,
         END OF lt_openbal,
         BEGIN OF lt_log2,
            hkont TYPE hkont,
            opbal TYPE dmbtr,
            exp   TYPE dmbtr,
            cap   TYPE dmbtr,
            err   TYPE dmbtr,
         END OF lt_log2,
         BEGIN OF lt_zsct_record,
            kongr TYPE ckml_kongr,
            hkont TYPE hkont,
            zcptp TYPE zdecptp,
            zerrc TYPE zdeerrc,
         END OF lt_zsct_record.
  DATA: lw_zscs_record  TYPE t_zscs_record,
        lw_zsct_record       TYPE lt_zsct_record,
        li_zsct_record         TYPE STANDARD TABLE OF lt_zsct_record,
        li_zsct_record1       TYPE STANDARD TABLE OF lt_zsct_record,
        lw_log1                  TYPE t_zscs_record,
        li_log1                   TYPE STANDARD TABLE OF t_zscs_record,
        li_temp                  TYPE STANDARD TABLE OF t_zsct_autoinv,
        li_openbal              TYPE STANDARD TABLE OF lt_openbal,
        li_openbal_mod      TYPE STANDARD TABLE OF lt_openbal,
        li_log2                   TYPE STANDARD TABLE OF lt_log2,
        li_log2_t                TYPE STANDARD TABLE OF lt_log2,
        lw_log2                 TYPE lt_log2,
        lw_log2_t               TYPE lt_log2,
        lw_openbal_mod    TYPE lt_openbal,
        lw_openbal            TYPE lt_openbal.
  i_zscs_record1 = i_zscs_record.
  DELETE i_zscs_record1 WHERE zerrf NE space.
  SORT i_error_bapi BY recid.
  SORT i_error_bdc BY recid.
  SORT i_suc_bdc BY recid.
  SORT i_suc_bapi BY recid.
  SORT i_zscs_record1 BY recid.
  LOOP AT i_zscs_record1 INTO lw_zscs_record.
    lw_log1-recid = lw_zscs_record-recid.
    lw_log1-kongr = lw_zscs_record-kongr.
    lw_log1-hkont = lw_zscs_record-hkont.
    CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT'
      EXPORTING
        input  = lw_zscs_record-projk
      IMPORTING
        output = lw_log1-projk.
    lw_log1-werks = lw_zscs_record-werks.
    lw_log1-matnr = lw_zscs_record-matnr.
    lw_log1-zcptp = lw_zscs_record-zcptp.
    lw_log1-zerrf = lw_zscs_record-zerrf.
To  Check if the KONGR value is is equal to 'E'
    IF lw_zscs_record-kongr = c_e.
      READ TABLE i_error_bapi INTO w_error_bapi WITH KEY recid = lw_zscs_record-recid BINARY SEARCH.
      IF sy-subrc = 0.
        lw_log1-zerrc = w_error_bapi-number.
        lw_log1-zertx = w_error_bapi-message.
      ENDIF.
    ELSE.
      READ TABLE i_error_bdc INTO w_error_bdc WITH KEY recid = lw_zscs_record-recid BINARY SEARCH.
      IF sy-subrc = 0.
        lw_log1-zerrc = w_error_bdc-number.
        lw_log1-zertx = w_error_bdc-message.
      ENDIF.
    ENDIF.
*****To Check if the KONGR value is is equal to 'E'
    IF lw_zscs_record-kongr = c_e.
      READ TABLE i_suc_bapi INTO w_suc_bapi WITH KEY recid = lw_zscs_record-recid BINARY SEARCH.
      IF sy-subrc = 0.
        lw_log1-zerrf = c_x.
*******To check if  lw_log1-zertx = w_error_bapi-message.
      ENDIF.
    ELSE.
      READ TABLE i_suc_bdc INTO w_suc_bdc WITH KEY recid = lw_zscs_record-recid BINARY SEARCH.
      IF sy-subrc = 0.
        lw_log1-zerrf = c_x.
********To check if lw_log1-zertx = w_error_bdc-message.
      ENDIF.
    ENDIF.
    APPEND lw_log1 TO li_log1.
*To clear work areas
    CLEAR: lw_log1,
           w_error_bapi,
           w_suc_bdc,
           w_suc_bapi,
           w_error_bdc,
           lw_zscs_record.
  ENDLOOP.
  IF NOT i_zscs_record1 IS INITIAL.
*To retrieve required data from the custom table ZSCT_AUTOINV
    SELECT saknr
           fipos
           geber
           saknr_off
           fipos_off
      FROM zsct_autoinv
      INTO TABLE i_autoinv
       FOR ALL ENTRIES IN i_zscs_record1
       WHERE saknr = i_zscs_record1-hkont.
    IF sy-subrc = 0.
      SORT i_autoinv.
    ENDIF.
  ENDIF.
Assigning I_AUTOINV data into a local internal table for further processing
  li_temp[] = i_autoinv[ ].
Sort LI_TEMP by SAKNR
  SORT li_temp BY saknr.
Delete adjacent duplicates from LI_TEMP comparing SAKNR
  DELETE ADJACENT DUPLICATES FROM li_temp COMPARING saknr.
Check if LI_TEMP is initial
  IF NOT li_temp[] IS INITIAL.
Retrieve required data from table BSIS for all the G/L accounts
    SELECT  bukrs
            hkont
            augdt
            augbl
            zuonr
            gjahr
            belnr
            buzei
            shkzg
            dmbtr
       FROM bsis
       INTO TABLE li_openbal_mod
       FOR ALL ENTRIES IN li_temp
     WHERE  bukrs = c_wfp
       AND  hkont = li_temp-saknr.
    IF sy-subrc = 0.
    ENDIF.
  ENDIF.
  SORT li_openbal_mod BY hkont.
****Retrieve data from table ZSCT_RECORD for further processing for
****all entries where ZERRF is equal to space
  IF p_prsall = c_x.
    SELECT kongr
           hkont
           zcptp
           zerrc
      FROM zsct_record                                  "#EC CI_NOFIRST
      INTO TABLE li_zsct_record
      WHERE zerrf = space.
    IF sy-subrc = 0.
*****Delete records from LI_ZSCT_RECORD where HKONT value is equal to space
      DELETE li_zsct_record WHERE hkont EQ space.
    ENDIF.
  ELSEIF p_cstcpt = c_x.
    SELECT kongr
           hkont
           zcptp
           zerrc
      FROM zsct_record                                  "#EC CI_NOFIRST
      INTO TABLE li_zsct_record
     WHERE zerrf = space
     AND   kongr NE c_e.
    IF sy-subrc = 0.
******Delete records from LI_ZSCT_RECORD where HKONT value is equal to space
      DELETE li_zsct_record WHERE hkont EQ space.
    ENDIF.
  ELSEIF p_cstexp = c_x.
    SELECT kongr
           hkont
           zcptp
           zerrc
     FROM  zsct_record                                  "#EC CI_NOFIRST
     INTO TABLE li_zsct_record
     WHERE zerrf = space
     AND   kongr EQ c_e.
    IF sy-subrc = 0.
******Delete records from LI_ZSCT_RECORD where HKONT value is equal to space
      DELETE li_zsct_record WHERE hkont EQ space.
    ENDIF.
  ENDIF.
  LOOP AT li_openbal_mod INTO lw_openbal.
    IF lw_openbal-shkzg = c_shkzg1.
      v_todmbtr = v_todmbtr + lw_openbal-dmbtr.
    ELSEIF lw_openbal-shkzg = c_shkzg2.
      v_todmbtr = v_todmbtr - lw_openbal-dmbtr.
    ENDIF.
    AT END OF hkont.
      lw_log2-hkont = lw_openbal-hkont.           "GL account
      lw_log2-opbal = ABS( v_todmbtr ).      "Open item balance
      APPEND lw_log2 TO li_log2.
*log record appended with GL Account and account open item balance
      CLEAR: v_todmbtr,
             lw_openbal.
    ENDAT .
  ENDLOOP.
  SORT li_log2 BY hkont.
  LOOP AT li_log2 INTO lw_log2.
    CLEAR v_totexppe.
    CLEAR v_totcapit.
    CLEAR v_toterror.
*Cost portion to be capitalised calculated
    LOOP AT li_zsct_record INTO lw_zsct_record
             WHERE hkont = lw_log2-hkont AND
              kongr NE c_e AND zerrc IS INITIAL.
      v_totcapit = v_totcapit + lw_zsct_record-zcptp.  "CC calculated
    ENDLOOP.
*Expensed cost portion calculated
    LOOP AT li_zsct_record INTO lw_zsct_record WHERE
            hkont = lw_log2-hkont        AND
            kongr = c_e AND zerrc IS INITIAL .
      v_totexppe = v_totexppe + lw_zsct_record-zcptp.  "ECP calculated
    ENDLOOP.
*Errors calculated
    LOOP AT li_zsct_record INTO lw_zsct_record WHERE
            hkont = lw_log2-hkont AND
            zerrc IS NOT INITIAL .
      v_toterror = v_toterror + lw_zsct_record-zcptp.  "Errors calculated
    ENDLOOP.
    lw_log2-exp = v_totexppe.           "Expensed cost portion
    lw_log2-cap = v_totcapit.           "Cost capitalised
    lw_log2-err = v_toterror.           "Errors
*Cost portion capitalised expensed and errors in calculation are
*trans ported for related GL accont
    MODIFY li_log2 FROM lw_log2
    TRANSPORTING exp cap err.
  ENDLOOP.
  LOOP AT li_log2_t INTO lw_log2_t.
    MODIFY li_log2 FROM lw_log2_t TRANSPORTING opbal WHERE hkont = lw_log2_t-hkont.
    CLEAR : lw_log2_t.
  ENDLOOP.
  WRITE:/1(15) text-018,sy-datum.             "SESSION DATE:
  SKIP 2.
For printing the hear level of the output log
  WRITE:/1(16)   text-003,                     "Record ID number
         20(11)  text-004,                     "Reason Code
         34(10)  text-005,                     "GL Account
         47(12)  text-006,                     "Project Code
         62(5)   text-007,                     "Plant
         70(9)   text-008,                     "Commodity
         82(25)  text-009,                     "Cost portion To be posted
         110(12) text-010,                     "Success Flag
         125(10) text-011,                     "Error Code
         138(50) text-012.                     "Error TXT
  SKIP.
  LOOP AT li_log1 INTO lw_log1.
    WRITE:/1(16)   lw_log1-recid,
           20(11)  lw_log1-kongr,
           34(10)  lw_log1-hkont,
           47(12)  lw_log1-projk,
           62(5)   lw_log1-werks,
           70(9)   lw_log1-matnr,
           82(25)  lw_log1-zcptp,                       "#EC UOM_IN_MES
           110(12) lw_log1-zerrf,
           125(10) lw_log1-zerrc,
           138(80) lw_log1-zertx.
    CLEAR:lw_log1.
  ENDLOOP.
  SKIP 2.
  IF NOT li_log2 IS INITIAL.
    ULINE.
    WRITE:/1(16)  text-013,                  "GL ACCOUNT CODE
           20(17) text-014,                  "OPEN ITEM BALANCE
           40(21) text-015,                  "EXPENSED COST PORTION
           64(24) text-016,                  "CAPITALIZED COST PORTION
           92(20) text-017.                  "ERRORS.
    LOOP AT li_log2 INTO lw_log2.
      WRITE:/1(16)   lw_log2-hkont,
             20(17)  lw_log2-opbal,                
             40(21)  lw_log2-exp,                      
             64(24)  lw_log2-cap,                     
             92(20)  lw_log2-err.                     
      CLEAR:lw_log2.
    ENDLOOP.
  ENDIF.
ENDFORM.                    " DISPLAY_LOGFILE

Answer 1

hi,
You need to use FM 'REUSE_ALV_LIST_DISPLAY' for this purpose. For using this FM, you need to create a field catlog which will contain all information about the coloumns you want to display for example their position, their text etc.
Below there is a small demo for achiving this.
TYPE-POOLS:slis.
DATA : i_fieldcat TYPE slis_t_fieldcat_alv.
TYPES: BEGIN OF ty_itab1,
       vbeln LIKE vbap-vbeln,
       posnr LIKE vbap-posnr,
       werks LIKE vbap-werks,
       lgort LIKE vbap-lgort,
       END OF ty_itab1.
DATA: itab1 TYPE TABLE OF ty_itab1.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t01.
SELECT-OPTIONS: s_vbeln FOR vbak-vbeln.
SELECTION-SCREEN END OF  BLOCK b1.
START-OF-SELECTION.
  PERFORM select_data.
END-OF-SELECTION.
PERFORM display.
FORM select_data .
  SELECT vbeln
     posnr
     werks
     lgort
     INTO CORRESPONDING  FIELDS OF TABLE itab1
     FROM vbap
     WHERE  vbeln IN s_vbeln.
  IF sy-subrc <> 0.
    MESSAGE 'Enter The Valid Sales Document Number'(t04) TYPE 'I'.
    EXIT.
  ENDIF.
ENDFORM.
  IF alv_list = 'X'.
    PERFORM build_fieldcat TABLES i_fieldcat[]
                           USING :
*-Output-field Table      Len  Ref fld Ref tab Heading    Col_pos
   'VBELN'       'ITAB1'     10   'VBAP'  'VBELN'    ''            1,
   'POSNR'       'ITAB1'     6    'VBAP'  'POSNR'    ''            2,
   'WERKS'       'ITAB1'     4    'VBAP'  'WERKS'    ''            3,
   'LGORT'       'ITAB1'     4    'VBAP'  'LGORT'    ''            4.
    CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
      EXPORTING
        i_callback_program       = sy-repid
       i_callback_pf_status_set = c_pf_status
        i_callback_user_command  = 'USER_COMMAND '
       it_events                = t_alv_events[]
        it_fieldcat              = i_fieldcat[]
      TABLES
        t_outtab                 = itab1[]
      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.
  ENDIF.
FORM build_fieldcat TABLES  fpt_fieldcat TYPE slis_t_fieldcat_alv
                    USING   fp_field     TYPE slis_fieldname
                            fp_table     TYPE slis_tabname
                            fp_length    TYPE dd03p-outputlen
                            fp_ref_tab   TYPE dd03p-tabname
                            fp_ref_fld   TYPE dd03p-fieldname
                            fp_seltext   TYPE dd03p-scrtext_l
                            fp_col_pos   TYPE sy-cucol.
*-- Local data declaration
  DATA:   wl_fieldcat TYPE slis_fieldcat_alv.
*-- Clear WorkArea
  wl_fieldcat-fieldname       = fp_field.
  wl_fieldcat-tabname         = fp_table.
  wl_fieldcat-outputlen       = fp_length.
  wl_fieldcat-ref_tabname     = fp_ref_tab.
  wl_fieldcat-ref_fieldname   = fp_ref_fld.
  wl_fieldcat-seltext_l       = fp_seltext.
  wl_fieldcat-col_pos         = fp_col_pos.
*-- Update Field Catalog Table
  APPEND wl_fieldcat  TO  fpt_fieldcat.
ENDFORM.