How to show all table fields in correct alv disply

Question

Hi all,
This is my report that disply in ALV . but this is only displying the join table (t_p0001_p0002) fields.i want to disply the other two table fields i.e t_pa0315 and t_pa0007.what is the logic to ALV disply the other two table fields like the table t_pa0001_pa0002.pls help me regarding this.
send me the code its urgent.
thanks!
Vipin
pls find the code below:->
REPORT Y_WP03 .
DEFINE m_fieldcat.
  add 1 to ls_fieldcat-col_pos.
  ls_fieldcat-fieldname   = &1.
  ls_fieldcat-ref_tabname = &2.
  append ls_fieldcat to lt_fieldcat.
END-OF-DEFINITION.
TYPE-POOLS: slis.                      " ALV Global types
tables:pa0001,
       pa0315,
       pa0007,
       disvariant.
     Selection-Screen
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
*SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS: s_pernr FOR pa0001-pernr.            " Personnel No
SELECT-OPTIONS: s_orgeh FOR pa0001-orgeh .           " Organization unit
SELECT-OPTIONS: s_werks FOR pa0001-werks.            " Personnel Area
SELECT-OPTIONS: s_plans FOR pa0001-plans.            " Position
SELECT-OPTIONS: s_ebeln FOR pa0315-ebeln.            " Purchase order
SELECTION-SCREEN END OF BLOCK blk1.
SELECTION-SCREEN BEGIN OF BLOCK b2k2 WITH FRAME TITLE text-002.
*SELECT-OPTIONS: s_var FOR disvariant-variant.
PARAMETERS: p_disva1 LIKE disvariant-variant.
SELECTION-SCREEN END OF BLOCK b2k2.
                 Type Definition                                     *
TYPES :
BEGIN OF ty_pa0001_pa0002,
    pernr TYPE pa0001-pernr , " Personnel no.
    endda TYPE pa0001-endda , " end date
    begda TYPE pa0001-begda , " start date
    bukrs TYPE pa0001-bukrs , " company code
    werks TYPE pa0001-werks , " Personnnel area
    persg TYPE pa0001-persg , " Employee group
    persk TYPE pa0001-persk , " Employee subgroup
    btrtl TYPE pa0001-btrtl , " Personnnel subarea
    abkrs TYPE pa0001-abkrs , " Payroll area
    kostl TYPE pa0001-kostl , " cost center
    orgeh TYPE pa0001-orgeh , " Organizational Unit
    plans TYPE pa0001-plans , " Position
    nachn TYPE pa0002-nachn , " Last name
    vorna TYPE pa0002-vorna , " First name
    midnm TYPE pa0002-midnm , " Middle name
  END   OF ty_pa0001_pa0002 ,
BEGIN OF ty_pa0315,
   pernr TYPE pa0315-pernr , " Personnel no.
   kostl TYPE pa0315-kostl , " Sending cost center
   lstar TYPE pa0315-lstar , " Activity type
   werks TYPE pa0315-werks , " Plant
   lifnr TYPE pa0315-lifnr , " Vendor number
   ebeln TYPE pa0315-ebeln , " Sending pruchase ord
   ebelp TYPE pa0315-ebelp , " Sending PO item
   lstnr TYPE pa0315-lstnr , " Activity number
END   OF ty_pa0315,
BEGIN  OF ty_pa0007,
  pernr TYPE pa0007-pernr,
  schkz TYPE pa0007-schkz,
END  OF ty_pa0007.
*BEGIN  OF ty_pa0002,
pernr TYPE pa0002-pernr,
nachn TYPE pa0002-nachn,
vorna TYPE pa0002-vorna,
midnm TYPE pa0002-midnm,
*END  OF ty_pa0002.
                 Data Declaration                                    *
DATA :
  t_pa0001_pa0002 TYPE STANDARD TABLE OF ty_pa0001_pa0002 ,
  w_pa0001_pa0002 TYPE ty_pa0001_pa0002 ,
  t_pa0315 TYPE STANDARD TABLE OF ty_pa0315 ,
  w_pa0315 TYPE ty_pa0315 ,
  t_pa0007 TYPE STANDARD TABLE OF ty_pa0007 ,
  w_pa0007 TYPE ty_pa0007 .
t_pa0002 TYPE STANDARD TABLE OF ty_pa0002 ,
w_pa0002 TYPE ty_pa0002 .
START-OF-SELECTION .
  SELECT a~pernr
         a~endda
         a~begda
         a~bukrs
         a~werks
         a~persg
         a~persk
         a~btrtl
         a~abkrs
         a~kostl
         a~orgeh
         a~plans
         b~nachn
         b~vorna
         b~midnm
         INTO TABLE t_pa0001_pa0002
         FROM pa0001 AS a INNER JOIN pa0002 AS b
         ON apernr = bpernr
         WHERE a~pernr IN s_pernr
         AND   a~werks IN s_werks
         AND   a~orgeh IN s_orgeh
         AND   a~plans IN s_plans.
  SORT t_pa0001_pa0002 BY pernr .
  IF NOT t_pa0001_pa0002[] IS INITIAL .
    SELECT pernr
           kostl
           lstar
           werks
           lifnr
           ebeln
           ebelp
           lstnr
           FROM pa0315
           INTO TABLE t_pa0315
           FOR ALL ENTRIES IN t_pa0001_pa0002
           WHERE pernr = t_pa0001_pa0002-pernr
           AND   kostl = t_pa0001_pa0002-kostl
           AND   ebeln IN s_ebeln.
    SELECT pernr
           schkz
           FROM pa0007
           INTO TABLE t_pa0007
           FOR ALL ENTRIES IN t_pa0001_pa0002
           WHERE pernr = t_pa0001_pa0002-pernr.
    SELECT pernr
           nachn
           vorna
           midnm
           FROM pa0002
           INTO TABLE t_pa0002
           FOR ALL ENTRIES IN t_pa0001
           WHERE pernr = t_pa0001-pernr .
  ENDIF.
PERFORM f_display_data.
FORM f_display_data.
  DATA:
    ls_fieldcat TYPE slis_fieldcat_alv,
    lt_fieldcat TYPE slis_t_fieldcat_alv.
Build the field catalog
  m_fieldcat 'PERNR' 'PA0001'.
  m_fieldcat 'NACHN' 'PA0002'.
  m_fieldcat 'VORNA' 'PA0002'.
  m_fieldcat 'MIDNM' 'PA0002'.
  m_fieldcat 'BUKRS' 'PA0001'.
  m_fieldcat 'WERKS' 'PA0001'.
  m_fieldcat 'PERSG' 'PA0001'.
  m_fieldcat 'PERSK' 'PA0001'.
  m_fieldcat 'BTRTL' 'PA0001'.
  m_fieldcat 'ABKRS' 'PA0001'.
  m_fieldcat 'ORGEH' 'PA0001'.
  m_fieldcat 'PLANS' 'PA0001'.
  m_fieldcat 'SCHKZ' 'PA0007'.
  m_fieldcat 'KOSTL' 'PA0315'.
  m_fieldcat 'LSTAR' 'PA0315'.
  m_fieldcat 'WERKS' 'PA0315'.
  m_fieldcat 'LIFNR' 'PA0315'.
  m_fieldcat 'EBELN' 'PA0315'.
  m_fieldcat 'EBELP' 'PA0315'.
  m_fieldcat 'LSTNR' 'PA0315'.
  m_fieldcat 'BEGDA' 'PA0001'.
  m_fieldcat 'ENDDA' 'PA0001'.
Display the list
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program      = sy-cprog
      i_callback_user_command = 'USER_COMMAND'
      it_fieldcat             = lt_fieldcat
    TABLES
      t_outtab                = t_pa0001_pa0002.
ENDFORM.                               " F_DISPLAY_DATA_VBAK
      FORM USER_COMMAND                                             *
FORM user_command USING u_ucomm     TYPE syucomm
                        us_selfield TYPE slis_selfield.     "#EC CALLED
  CASE u_ucomm.
    WHEN '&IC1'.
      READ TABLE t_pa0001_pa0002 INDEX us_selfield-tabindex INTO
w_pa0001_pa0002.
      CHECK sy-subrc EQ 0.
  ENDCASE.
ENDFORM.                               " USER_COMMAND

Answer 1

Hey,
Look at ur code.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-cprog
i_callback_user_command = 'USER_COMMAND'
it_fieldcat = lt_fieldcat
TABLES
t_outtab = <b>t_pa0001_pa0002</b>.
Here you're passing only the join table t_pa0001_pa0002. If you want to display the other tables as well, then u must have an internal table that has the columns of all the 3 tables. Then u need to buil;d the fieldcatalog accordingly and then display that table,
Cheers,
Sam