I am not getting the headings of the fields in ALV output.

Question

I am not getting ALV out put but  the headings of the fields in ALV output.
Please see my below code .
TYPES : BEGIN OF ty_zgxmit.
          INCLUDE STRUCTURE zgxmit.
TYPES : END OF ty_zgxmit.
DATA : gt_zgxmit TYPE TABLE OF ty_zgxmit.
*&      Form  alv_display                                              *
This subroutine is to display the out put in ALV.                    *
FORM alv_display .
Local data
  DATA: y_x          LIKE boole  VALUE 'X'.
DATA: lt_fieldcat  TYPE slis_t_fieldcat_alv.
  DATA: lf_fieldcat  TYPE slis_fieldcat_alv.
  DATA: lh_index     LIKE lf_fieldcat-col_pos.
For variant
DATA: ws_repid LIKE sy-repid,
      g_save TYPE c VALUE 'A',
      g_exit TYPE c,
      g_variant LIKE disvariant,
      gx_variant LIKE disvariant.
  For 1st field.( RPT_LOC )
    CLEAR lf_fieldcat.
    lf_fieldcat-fieldname = 'RPT_LOC'.
    lf_fieldcat-tabname = 'GT_ZGXMIT'.
    lf_fieldcat-ref_tabname = 'RPT_LOC'.
    lf_fieldcat-ref_fieldname = 'ZGXMIT'.
    lh_index = lh_index + 1.
    lf_fieldcat-col_pos = lh_index.
    lf_fieldcat-key = y_x.
    lf_fieldcat-no_sum = y_x.
    APPEND lf_fieldcat TO lt_fieldcat.
For 2nd field.( BAL_XMIT )
    CLEAR lf_fieldcat.
    lf_fieldcat-fieldname = 'BAL_XMIT'.
    lf_fieldcat-tabname = 'GT_ZGXMIT'.
    lf_fieldcat-ref_tabname = 'BAL_XMIT'.
    lf_fieldcat-ref_fieldname = 'ZGXMIT'.
    lh_index = lh_index + 1.
    lf_fieldcat-col_pos = lh_index.
    lf_fieldcat-key = y_x.
    lf_fieldcat-no_sum = y_x.
    APPEND lf_fieldcat TO lt_fieldcat.
For 3rd field.( INC_XMIT )
    CLEAR lf_fieldcat.
    lf_fieldcat-fieldname = 'INC_XMIT'.
    lf_fieldcat-tabname = 'GT_ZGXMIT'.
    lf_fieldcat-ref_tabname = 'INC_XMIT'.
    lf_fieldcat-ref_fieldname = 'ZGXMIT'.
    lh_index = lh_index + 1.
    lf_fieldcat-col_pos = lh_index.
    lf_fieldcat-key = y_x.
    lf_fieldcat-no_sum = y_x.
    APPEND lf_fieldcat TO lt_fieldcat.
For 4th field.( Z500_XMIT )
    CLEAR lf_fieldcat.
    lf_fieldcat-fieldname = 'Z500_XMIT'.
    lf_fieldcat-tabname = 'GT_ZGXMIT'.
    lf_fieldcat-ref_tabname = 'Z500_XMIT'.
    lf_fieldcat-ref_fieldname = 'ZGXMIT'.
    lh_index = lh_index + 1.
    lf_fieldcat-col_pos = lh_index.
    lf_fieldcat-key = y_x.
    lf_fieldcat-no_sum = y_x.
    APPEND lf_fieldcat TO lt_fieldcat.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            i_callback_program       = 'ZJV_2245'
            it_fieldcat              = lt_fieldcat
       TABLES
            t_outtab                 = gt_zgxmit
       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.
ENDFORM.                    " alv_display

Answer 1

You can force the headings like so.
CLEAR lf_fieldcat.
lf_fieldcat-fieldname = 'RPT_LOC'.
lf_fieldcat-tabname = 'GT_ZGXMIT'.
lf_fieldcat-ref_tabname = 'RPT_LOC'.
lf_fieldcat-ref_fieldname = 'ZGXMIT'.
lf_fieldcat-reptext_ddic  = 'Whatever Heading'.    "<-  Right here
lh_index = lh_index + 1.
lf_fieldcat-col_pos = lh_index.
lf_fieldcat-key = y_x.
lf_fieldcat-no_sum = y_x.
APPEND lf_fieldcat TO lt_fieldcat.
Regards,
Rich Heilman