How to get the output in ALV format

Question

Hi All,
this is my program, in this i want to get the output in ALV, i hv created two containers and m able to get the ALV layout successfully but i am not able to fetch the correct data.
the output it is showing is some RFC value.
here we have used -  abaplist, soli.
Please provide me the solution.
SELECT * FROM varid INTO CORRESPONDING FIELDS OF TABLE t_varid WHERE report in s_report.
LOOP AT t_varid .
  SUBMIT (t_varid-report) USING SELECTION-SET t_varid-variant
                EXPORTING LIST TO MEMORY
                AND RETURN.
  CALL FUNCTION 'LIST_FROM_MEMORY'
    TABLES
      listobject = listtab
    EXCEPTIONS
      not_found  = 1
      OTHERS     = 2.
**************Old System Entry********
  CALL FUNCTION 'Z_GET_DETAILS'
    DESTINATION 'BWDCLNT900'
    EXPORTING
      report  = t_varid-report
      variant = t_varid-variant
    TABLES
      listtab = list_tab.
  IF sy-subrc EQ 0.
    CALL FUNCTION 'LIST_TO_TXT'
      TABLES
        listtxt            = listtxt1
        listobject         = list_tab
      EXCEPTIONS
        empty_list         = 1
        list_index_invalid = 2.
  ENDIF.
  if p_flag eq 'X'.
    clear p_flag.
    write : / 'Program Name',
              41 'Variant Name',
              66 'Output Match'.
    endif.
  IF listtxt EQ listtxt1.
    WRITE : /   t_varid-report,
             41 t_varid-variant,
             66 icon_green_light AS ICON HOTSPOT.
  ELSE.
    WRITE : /   t_varid-report,
             41 t_varid-variant,
             66 icon_red_light AS ICON HOTSPOT.
  ENDIF.
  CLEAR : listtab,list_tab,listtxt,listtxt1.
  REFRESH : listtab[],list_tab[],listtxt[],listtxt1[].
ENDLOOP.
AT line-selection.
    v_report  = sy-lisel(40).
    v_variant = sy-lisel+40(14).
call SCREEN 400.
module STATUS_0400 output.
SUBMIT (v_report) USING SELECTION-SET v_variant
                EXPORTING LIST TO MEMORY
                AND RETURN.
  CALL FUNCTION 'LIST_FROM_MEMORY'
    TABLES
      listobject = listtab
    EXCEPTIONS
      not_found  = 1
      OTHERS     = 2.
   CALL FUNCTION 'LIST_TO_TXT'
      TABLES
        listtxt            = listtxt1
        listobject         = list_tab
      EXCEPTIONS
        empty_list         = 1
        list_index_invalid = 2.
**************Old System Entry********
  CALL FUNCTION 'Z_GET_DETAILS'
    DESTINATION 'BWDCLNT900'
    EXPORTING
      report  = v_report
      variant = v_variant
    TABLES
      listtab = list_tab.
CREATE OBJECT CCONT1
  EXPORTING
   CONTAINER_NAME = 'C1'.
CREATE OBJECT CCONT2
  EXPORTING
   CONTAINER_NAME = 'C2'.
CREATE OBJECT GRID1
  EXPORTING
   I_PARENT = CCONT1.
CREATE OBJECT GRID2
  EXPORTING
   I_PARENT = CCONT2.
CALL METHOD GRID1->SET_TABLE_FOR_FIRST_DISPLAY
  EXPORTING
  I_STRUCTURE_NAME = 'abaplist'
  CHANGING
   IT_OUTTAB = list_tab.
CALL METHOD GRID2->SET_TABLE_FOR_FIRST_DISPLAY
  EXPORTING
  I_STRUCTURE_NAME = 'abaplist'
  CHANGING
   IT_OUTTAB = listtab.
  SET PF-STATUS 'ZUTDEMO2'.
endmodule.             
module USER_COMMAND_0400 input.
IF SY-UCOMM = 'EXIT'.
LEAVE PROGRAM.
ENDIF.
endmodule.                 " USER_COMMAND_0400  INPUT

Answer 1

solved