ALV GRID , no relevant data

Question

Hi there i am not getting the relvant data in o/p, also data is not getting populated in the internal table, can ny one plz go thru the code.
REPORT ztst_chin_alv3.
TABLES : lfb1.
   Declarations                                                     *
SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE text-001.
SELECT-OPTIONS : bukrs FOR lfb1-bukrs.
PARAMETERS : lifnr LIKE lfb1-lifnr.
SELECTION-SCREEN END OF BLOCK a.
DATA: r_container     TYPE REF TO cl_gui_custom_container.
DATA: r_grid          TYPE REF TO cl_gui_alv_grid.
DATA: g_fieldcat      TYPE lvc_t_fcat.
DATA: w_fieldcat      LIKE LINE OF g_fieldcat.
DATA: g_layout        TYPE lvc_s_layo.
DATA: ok_code         LIKE sy-ucomm.
DATA: gs_variant      TYPE disvariant.
DATA: t_selected      TYPE lvc_t_row.
DATA  wa_selected     LIKE LINE OF t_selected.
DATA: it_items        LIKE eban OCCURS 0.
DATA: BEGIN OF it_lfb1 OCCURS 0,
lifnr LIKE lfb1-lifnr,
bukrs LIKE lfb1-bukrs,
akont LIKE lfb1-akont,
fdgrv LIKE lfb1-fdgrv,
zwels LIKE lfb1-zwels,
END OF it_lfb1.
   Initialization                                                   *
INITIALIZATION.
AT SELECTION-SCREEN.
  ok_code = sy-ucomm.
  CASE ok_code.
    WHEN 'BACK'.
      LEAVE PROGRAM.
    WHEN 'CANCEL'.
      LEAVE PROGRAM.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
    WHEN 'ONLI' OR 'CRET'.
      CALL SCREEN 100.
    WHEN OTHERS.
  ENDCASE.
    GetData                                                         *
MODULE getdata OUTPUT.
  IF sy-ucomm <> 'STOP'.
    SELECT lifnr bukrs akont fdgrv zwels
      INTO CORRESPONDING FIELDS OF  TABLE it_lfb1
      FROM lfb1
      WHERE
      bukrs IN bukrs
      AND lifnr EQ lifnr.
  ENDIF.
ENDMODULE.
      Create ALV                                                    *
MODULE create_alv OUTPUT.
  gs_variant-report = sy-repid.
  IF r_container IS INITIAL.
    CREATE OBJECT r_container
             EXPORTING container_name = 'CONTAINER_1'.
    CREATE OBJECT r_grid
          EXPORTING i_parent = r_container.
*modify the headings in the field catalogue
    CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
         EXPORTING
              i_structure_name = 'ZCATSDBALVM'
         CHANGING
              ct_fieldcat      = g_fieldcat[].
    LOOP AT g_fieldcat INTO w_fieldcat.
      CASE w_fieldcat-fieldname.
        WHEN 'ZCURSTAT'.
          w_fieldcat-scrtext_l = 'Prev.RelCode'.
          w_fieldcat-scrtext_m = 'Prev.RelCode'.
          w_fieldcat-scrtext_s = 'Prev.RelCode'.
          w_fieldcat-reptext   = 'Prev.RelCode'.
      ENDCASE.
      MODIFY g_fieldcat FROM w_fieldcat.
    ENDLOOP.
    CALL METHOD r_grid->set_table_for_first_display
                        EXPORTING i_structure_name     = 'ZCATSDBALVM'
                                  is_layout            = g_layout
                                  is_variant           = gs_variant
                                  i_save               = 'A'
                        CHANGING it_outtab = it_lfb1[]
                                 it_fieldcatalog  = g_fieldcat[].
*ELSE.
CALL METHOD r_grid->refresh_table_display
EXPORTING i_soft_refresh = ' '.
  ENDIF.
ENDMODULE.
   STATUS                                                           *
MODULE status OUTPUT.
  SET PF-STATUS '0100'.
ENDMODULE.
     User Commands                                                  *
MODULE user_command INPUT.
  ok_code = sy-ucomm.
  CASE ok_code.
    WHEN 'BACK'.
      CALL SCREEN '1000'.
    WHEN 'CANCEL'.
      LEAVE PROGRAM.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
  ENDCASE.
ENDMODULE.
     ALV Layout                                                     *
MODULE layout OUTPUT.
  g_layout-zebra = 'X'.
  g_layout-sel_mode = 'A'.
  g_layout-grid_title = ''.
  g_layout-detailtitl = ''.
ENDMODULE.
     Select Rows                                                    *
FORM get_selected_rows.
  CALL METHOD r_grid->get_selected_rows
  IMPORTING et_index_rows = t_selected.
  IF t_selected IS INITIAL.
    CALL FUNCTION 'WS_MSG'
         EXPORTING
              msg_type = 'E'
              text     = 'Select Line'
              titl     = 'Select Line'.
    sy-ucomm = 'STOP'.
  ENDIF.
ENDFORM.

Answer 1

Hi,
Here is the simplest way.
In the layout that you pass - set the EDIT field to 'X'. This puts all the fields in the EDIT mode and automatically the toolbar will have new buttons to add / delete new rows.
If you are looking at adding new rows manually, you will have append a blank row to the table and REFRESH_TABLE_DISPLAY. This will add a blank row, however you will have to do this on a specific action of the user. I am not aware of your requirements there. Here also, you can set the EDIT field in the LAYOUT to 'X' so that all the fields are in edit mode. If you want specific fields in the EDIT mode, do the same in the FIELDCAT.
Regards,
Ravi
Note : Please mark the helpful answers