Re: Problem in ALV reports using Field symbols

Question

Hi Friends,
Can you tell me how to convert a normal report using field symbols into ALV report
can ypu please suggest me any solutions.I am sending the code along with this mail.
Regards,
Dinesh
<b>Coding:</b>
*& Report  YSDBTEMP                                                    *
REPORT  YSDBTEMP                                .
tables: ekko , ekpo .
TYPE-POOLS: SLIS.
*Internal Table Declaration
data: begin of line ,
      ebeln like ekko-ebeln , "Purchasing Document No.
      bedat like ekko-bedat , "Purchasing Document Date
      matnr like ekpo-matnr , "Material No.
      netwr like ekpo-netwr , "Net Order Value in PO Currancy
      meins like ekpo-meins , "UOM
      change like ekpo-menge ,
end of line .
*Internal table Declaration
DATA: IT_final like table of line  with header line.
DATA :  FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV with header line.
DATA :  V_REPID TYPE SYREPID.
DATA :  IT_LISTHEADER TYPE SLIS_T_LISTHEADER.
data :  i_layout type slis_layout_alv .
Header for Main Grid Display
data:i_header1 type slis_t_listheader with header line.
Header for Interactive Report Display
data:i_header2 type slis_t_listheader with header line.
*Field Symbol declaration.
FIELD-SYMBOLS: <FS> type any table.
**select option Declaration
selection-screen begin of block block.
select-options: s_ebeln for ekko-ebeln .
selection-screen end of block block .
start-of-selection.
  perform get_data.
  perform field_cat.
  perform layout using i_layout .
  perform grid_display .
*&      Form  get_data
      text
-->  p1        text
<--  p2        text
FORM get_data .
SELECT EKKO~EBELN
  EKKO~BEDAT
  EKPO~EBELP
  EKPO~MATNR
  EKPO~NETWR
  EKPO~MEINS
  EKPO~MENGE
  EKPO~BPRME
  INTO CORRESPONDING FIELDS OF table IT_FINAL
  FROM EKKO INNER JOIN EKPO ON EKKOEBELN = EKPOEBELN
  WHERE EKKO~EBELN IN S_EBELN.
ENDFORM.                    " get_data
*&      Form  field_cat
      text
-->  p1        text
<--  p2        text
FORM field_cat .
  fieldcatalog-fieldname = 'EBELN'.
  fieldcatalog-seltext_m = 'Purchase Order No'.
  fieldcatalog-col_pos = 1.
   append fieldcatalog .
  clear fieldcatalog.
  fieldcatalog-fieldname = 'BEDAT'.
  fieldcatalog-seltext_m = 'Purchasing Document Date'.
  fieldcatalog-col_pos = 2.
   append fieldcatalog .
  clear fieldcatalog.
  fieldcatalog-fieldname = 'MATNR'.
  fieldcatalog-seltext_m = 'Material No'.
  fieldcatalog-col_pos = 3.
   append fieldcatalog .
  clear fieldcatalog.
  fieldcatalog-fieldname = 'MATNR'.
  fieldcatalog-seltext_m = 'Net order'.
  fieldcatalog-col_pos = 4.
   append fieldcatalog .
  clear fieldcatalog.
ENDFORM.                    " field_cat
*&      Form  layout
      text
     -->P_I_LAYOUT  text
FORM layout  USING    P_I_LAYOUT.
  i_layout-lights_tabname = 'IT_FINAL'.
  i_layout-box_tabname = 'IT_FINAL'.
ENDFORM.                    " layout
*&      Form  grid_display
      text
-->  p1        text
<--  p2        text
FORM grid_display .
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
  I_CALLBACK_PROGRAM = SY-REPID
I_CALLBACK_PF_STATUS_SET = 'SET_PO_PF_STATUS'
  I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
  IS_LAYOUT = I_LAYOUT
  IT_FIELDCAT = FIELDCATALOG[]
*IT_EVENTS = I_EVENT[]
  TABLES
  t_outtab = <fs>.
endform.

Answer 1

Hi,
This is one sample program,
Check this.
I hope it is helpful to you.
TABLES : zeastable_02,zeastable_04.
TYPE-POOLS : slis.
TYPES : BEGIN OF fieldst,
        name LIKE zeastable_02-name,
        znum LIKE zeastable_02-znum,
        empno LIKE zeastable_04-empno,
        zempsalary LIKE zeastable_04-zempsalary,
        END OF fieldst.
DATA itab TYPE TABLE OF fieldst WITH HEADER LINE.
DATA: w_report_id  LIKE sy-repid.            "Program name
DATA: w_title   TYPE lvc_title VALUE    'Assignment 1 in ALV'.
DATA: w_layout   TYPE slis_layout_alv.      "Layout setup
DATA: w_fieldcat TYPE slis_t_fieldcat_alv.  "Field Catlog
START-OF-SELECTION.
  SELECT-OPTIONS employee FOR zeastable_04-empno.
SELECT zeastable_02name  zeastable_02znum
       zeastable_04empno zeastable_04zempsalary
       INTO CORRESPONDING FIELDS OF TABLE itab FROM
       zeastable_02 INNER JOIN zeastable_04 ON
       zeastable_02name = zeastable_04name
       WHERE  zeastable_04~empno IN employee.
w_report_id = sy-repid.
PERFORM i_layout CHANGING w_layout.
PERFORM i_fieldcat CHANGING w_fieldcat.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
    i_callback_program                = 'ZEASALV_04'
     i_grid_title                      = w_title
     is_layout                         = w_layout
     it_fieldcat                       = w_fieldcat
     i_save                            = 'A'
    TABLES
      t_outtab                          = itab
   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.
  PERFORM i_layout CHANGING w_layout.
  PERFORM i_fieldcat CHANGING w_fieldcat.
*&      Form  i_layout
      text
     <--P_W_LAYOUT  text
form i_layout  changing p_w_layout.
clear w_layout.
  w_layout-colwidth_optimize = 'X'.
  w_layout-edit = ' '.
endform.                    " i_layout
*&      Form  i_fieldcat
      text
     <--P_W_FEILDCAT  text
form i_fieldcat  changing p_w_feildcat.
data: l_line_fieldcat type slis_fieldcat_alv.
clear l_line_fieldcat.
  l_line_fieldcat-fieldname = 'NAME'.
  l_line_fieldcat-ref_tabname = 'itab'.
  l_line_fieldcat-seltext_m = 'NAME'.
  l_line_fieldcat-key  = 'X'.
   append l_line_fieldcat to w_fieldcat.
  clear l_line_fieldcat.
  l_line_fieldcat-fieldname = 'ZNUM'.
  l_line_fieldcat-ref_tabname = 'itab'.
  l_line_fieldcat-seltext_m = 'NUMBER'.
  l_line_fieldcat-key  = 'X'.
  append l_line_fieldcat to w_fieldcat.
  clear l_line_fieldcat.
  l_line_fieldcat-fieldname = 'EMPNO'.
  l_line_fieldcat-ref_tabname = 'itab'.
  l_line_fieldcat-seltext_m = 'EMPLNUM'.
*l_line_fieldcat-key  = 'X'.
  append l_line_fieldcat to w_fieldcat.
  clear l_line_fieldcat.
  l_line_fieldcat-fieldname = 'ZEMPSALARY'.
  l_line_fieldcat-ref_tabname = 'itab'.
  l_line_fieldcat-seltext_m = 'SALARY'.
*l_line_fieldcat-key  = 'X'.
  append l_line_fieldcat to w_fieldcat.
endform.                    " i_fieldcat
Reward for useful answers.