SAP 查表程序（通過字段，元素，表名，描述）查表

對於對SAP不是很熟悉的人來說，查表是件痛苦的事，對於ABAPER菜鳥來說更是痛苦，爲些我寫了一個查表程序，大多數情況下我是用它來找表的。

*&***************************************************************
*& Finding the table thru a field or field description , tables
*& description,Element,etc.
*& Creation Date: 2008-01-24
*& Created BY : Michael Chow
*&****************************************************************
REPORT   ZKFTB.

PARAMETERS:   p_tb        LIKE DD02L-TABNAME,                         "Table Name
         p_tbTx    LIKE DD02T-DDTEXT,                         "Table Name
         p_fld    LIKE DD03L-FIELDNAME,                      "Field Name
         P_fldTx     LIKE DD04T-DDTEXT,
         p_cls    LIKE DD02L-TABCLASS DEFAULT 'TRANSP',       "Table category
         p_ROLL    LIKE DD03L-ROLLNAME,                          "Element
         P_value(80) TYPE C,                                     "Field Value
         p_lang    LIKE DD02T-DDLANGUAGE DEFAULT 'EN'.           "Language

TYPE-POOLS: SLIS.
DATA: WA_LINE TYPE SLIS_FIELDCAT_ALV.
DATA: IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV .
DATA: WA_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA: IT_SORT TYPE SLIS_T_SORTINFO_ALV WITH HEADER LINE.


DATA:   BEGIN OF IT_Tab OCCURS 0,
         TABNAME     LIKE DD02L-TABNAME,
         TABCLASS LIKE DD02L-TABCLASS,
         TABTEXT     LIKE DD02T-DDTEXT,
         FIELDNAME LIKE DD03L-FIELDNAME,
         DATATYPE LIKE DD03L-DATATYPE,
         ROLLNAME LIKE DD04T-ROLLNAME,
         FILDTEXT LIKE DD04T-DDTEXT,
         DEL_IND(1)   TYPE C.             "Deleted indicator.

DATA:    END OF IT_Tab.

DATA: g_command_form TYPE slis_formname VALUE 'USER_COMMAND',
   it_event TYPE slis_t_event,
   wa_event TYPE slis_alv_event,
   g_repid LIKE sy-repid.

INITIALIZATION.

g_repid = sy-repid.

START-OF-SELECTION.

PERFORM PERFORMSQL.
PERFORM ALV_FIELDS.
PERFORM Dispaly_ALV.

END-OF-SELECTION.

*e+ Delete reducing Informaton from Internal Table
FORM Clean_DATA.

*DATA: v_value TYPE REF TO DATA,
*    V_INDEX like sy-tabix.
*
*FIELD-SYMBOLS <FS> TYPE ANY.
*
*
*if ( p_value is not initial )
*   AND ( p_fld   is not initial )
*   AND LINES( IT_TAB ) > 0.
*   Loop at it_tab where Fieldname = p_fld.
* V_INDEX = SY-TABIX.
* if sy-subrc NE 0.
*    it_tab-del_ind = 'X'.
*    modify it_tab index v_index.
* else.
*    ASSIGN it_tab-FIELDNAME TO <FS>.
*
*





ENDFORM.



FORM Dispaly_ALV.
DATA:
      report_name    LIKE sy-repid,
      alvlo_stb        TYPE slis_layout_alv.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
   IT_FIELDCAT = IT_FIELDCAT[]
   IS_LAYOUT     = WA_LAYOUT
   I_callback_program    = g_repid
   i_callback_user_command = g_command_form
   it_events = it_event
   IT_SORT    = IT_SORT[]
    TABLES
   T_OUTTAB    = IT_Tab
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.

ENDFORM.

DEFINE APPEND_ALV_FIELD.
   CLEAR WA_LINE .
   WA_LINE-FIELDNAME = &1.
   WA_LINE-SELTEXT_L = &2.
   WA_LINE-SELTEXT_M = &2.
   WA_LINE-SELTEXT_S = &2.
   WA_LINE-CFIELDNAME = &3.
   WA_LINE-TECH = &4.
   WA_LINE-QFIELDNAME = &5.
   WA_LINE-EDIT_MASK   = &6.
   WA_LINE-OUTPUTLEN   = &7.
   WA_LINE-DDICTXT = 'L'.
   APPEND WA_LINE TO IT_FIELDCAT.
END-OF-DEFINITION .

FORM ALV_FIELDS .
   CLEAR IT_FIELDCAT[].
   APPEND_ALV_FIELD 'TABNAME' TEXT-H01 '' '' ''   '' 10.
   APPEND_ALV_FIELD 'TABCLASS'   TEXT-H02 '' '' ''   '' 10.
   APPEND_ALV_FIELD 'TABTEXT' TEXT-H03 '' '' ''   '' 30.
   APPEND_ALV_FIELD 'FIELDNAME' TEXT-H04 '' '' ''   '' 15.
   APPEND_ALV_FIELD 'DATATYPE'   TEXT-H08 '' '' ''   '' 10.
   APPEND_ALV_FIELD 'ROLLNAME'   TEXT-H05 '' '' ''   '' 15.
   APPEND_ALV_FIELD 'FILDTEXT'   TEXT-H06 '' '' ''   '' 30.
*   APPEND_ALV_FIELD 'Language'   TEXT-H07 '' '' ''   '' 10.

ENDFORM.                    " ALV_FIELDS


FORM PERFORMSQL.

   DATA: SQLstr(72) TYPE c,
   itabSQL LIKE TABLE OF SQLstr,
   v_text(30) TYPE C.

CONCATENATE SPACE 't2~DDLANGUAGE = ''' p_lang   '''' INTO   SQLstr.
CONCATENATE SPACE 't4~DDLANGUAGE = ''' p_lang   '''' INTO   SQLstr.
APPEND   SQLstr TO   itabSQL.

IF ( p_tb IS NOT INITIAL ).
CONCATENATE SPACE 'AND t1~TABNAME = ''' p_tb   '''' INTO   SQLstr.
APPEND   SQLstr TO   itabSQL.
ENDIF.

IF ( p_tbtx is not initial   ).
clear v_text.
concatenate   p_tbtx '%' into v_text.
CONCATENATE SPACE 'AND t2~DDTEXT Like   ''' v_text   '''' INTO   SQLstr.
APPEND   SQLstr TO   itabSQL.
ENDIF.

IF ( p_fld is not initial ).
CONCATENATE SPACE 'AND t3~FIELDNAME = ''' p_fld '''' INTO   SQLstr.
APPEND   SQLstr TO   itabSQL.
ENDIF.

if ( p_fldtx is not initial ).
clear v_text.
concatenate   P_fldTx   '%' into v_text.
CONCATENATE SPACE 'AND t4~DDTEXT Like   ''' v_text   ''''   INTO   SQLstr.
APPEND   SQLstr TO   itabSQL.
ENDIF.

IF ( p_cls is not initial ).
CONCATENATE SPACE 'AND t1~TABCLASS = ''' p_cls '''' INTO   SQLstr.
APPEND   SQLstr TO   itabSQL.
ENDIF.

IF ( p_ROLL is not initial   ).
clear v_text.
concatenate   p_ROLL '%' into v_text.
CONCATENATE SPACE 'AND t3~ROLLNAME Like   ''' v_text   '''' INTO   SQLstr.
APPEND   SQLstr TO   itabSQL.
ENDIF.


SELECT DISTINCT T1~TABNAME t1~TABCLASS t2~DDTEXT AS TABTEXT
         T3~FIELDNAME t3~DATATYPE t3~ROLLNAME
         t4~DDTEXT as FILDTEXT
         INTO Corresponding fields of table it_tab
         FROM   DD02L AS t1
         INNER JOIN DD02T as t2
         ON t1~TABNAME = t2~TABNAME
         INNER JOIN DD03L AS t3
         ON t2~TABNAME = t3~TABNAME
         INNER JOIN DD04T as t4
         ON t3~ROLLNAME = t4~ROLLNAME
         AND t2~DDLANGUAGE = t4~DDLANGUAGE
         WHERE (itabSQL).

sort it_tab by tabname fieldname.


ENDFORM.

FORM user_command USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
CASE r_ucomm.
WHEN '&IC1'. "doubleclick
READ TABLE it_tab INDEX rs_selfield-tabindex.
IF sy-subrc = 0.
IF rs_selfield-fieldname EQ 'TABNAME' AND
   it_TAB-TABNAME IS NOT INITIAL.
SET PARAMETER ID 'DTB' FIELD it_TAB-TABNAME .
CALL TRANSACTION 'SE11' AND SKIP FIRST SCREEN.
CLEAR r_ucomm.
ENDIF.
ENDIF.
ENDCASE.

ENDFORM. "user_command