SAP‎ > ‎Tips‎ > ‎

Where used fields

*&---------------------------------------------------------------------*
*& Report  Z_WHERE_USED_FIELDS
*&---------------------------------------------------------------------*

REPORT  ZWHERE_USED_FIELDS line-size 255.

data : begin of it_dd03l_one occurs 0,
         tabname   type dd03l-tabname,
         fieldname type dd03l-fieldname,
         keyflag   type dd03l-keyflag,
       end of it_dd03l_one.
data : begin of it_dd03l_two occurs 0,
         tabname   type dd03l-tabname,
         fieldname type dd03l-fieldname,
         keyflag   type dd03l-keyflag,
       end of it_dd03l_two.
data : begin of it_details occurs 0,
         tabname   type dd03l-tabname,
         keyfl1    type dd03l-keyflag,
         keyfl2    type dd03l-keyflag,
         ddtext    type dd02t-ddtext,
       end of it_details.
tables : dd03l, dd02l.
parameters : p_field1 type dd03l-fieldname,
             p_field2 type dd03l-fieldname.
parameters : P_struc radiobutton group rb1,
             P_table radiobutton group rb1,
             P_all   radiobutton group rb1.

select-options s_search for dd03l-tabname.

select tabname
       fieldname
       keyflag
  from dd03l
  into table it_dd03l_one
 where tabname   in s_search
   and fieldname =  p_field1
   and as4local = 'A'.

select tabname
       fieldname
       keyflag
  from dd03l
  into table it_dd03l_two
 where tabname   in s_search
   and fieldname =  p_field2
   and as4local = 'A'.

loop at it_dd03l_one.
  if p_table = 'X'.
    select single *
      from dd02l
     where tabname = it_dd03l_one-tabname
       and tabclass <> 'INTTAB'.
     if sy-subrc <> 0.
       continue.
     endif.
  elseif p_struc = 'X'.
    select single *
      from dd02l
     where tabname = it_dd03l_one-tabname
       and tabclass = 'INTTAB'.
     if sy-subrc <> 0.
       continue.
     endif.
  endif.
  read table it_dd03l_two with key tabname = it_dd03l_one-tabname.
  if sy-subrc = 0.
    it_details-tabname = it_dd03l_one-tabname.
    it_details-keyfl1  = it_dd03l_one-keyflag.
    it_details-keyfl2  = it_dd03l_two-keyflag.
    select single ddtext
      from dd02t
      into it_details-ddtext
     where tabname = it_details-tabname
       and ddlanguage = 'EN'
       and AS4local   = 'A'.
    append it_details.
    clear  it_details.
  endif.
endloop.
data : w_text1(30) type c,
       w_text2(30) type c.
concatenate 'Field' p_field1 'Key in table?' into w_text1 separated by space.
concatenate 'Field' p_field2 'Key in table?' into w_text2 separated by space.
write : /(30) 'Table Name'        color col_heading,
         (30) w_text1 color col_heading,
         (30) w_text2 color col_heading,
         (60) 'Table Description' color col_heading.
sort it_details by tabname.
loop at it_details.
  write :/ it_details-tabname  color col_key hotspot on,
          46 it_details-keyfl1 as checkbox,
          76 it_details-keyfl1 as checkbox,
          94 it_details-ddtext color col_normal.
  hide it_Details-tabname.
endloop.
at line-selection.
  set parameter id 'DTB' field it_details-tabname.
  call transaction 'SE11' and skip first screen.

ċ
ZPAVAN_WHERE_USED_FIELDS_DE.TXT
(3k)
Kevin Wilson,
Jul 23, 2009, 10:10 AM
Comments