SAP 查表程序(通过字段,元素,表名,描述)查表
2008-12-25 14:21
567 查看
对于对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
*&***************************************************************
*& 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
相关文章推荐
- oracle下通过表名查找字段名、字段类型、与字段描述
- oracle下通过表名查找字段名、字段类型、与字段描述
- oracle下通过表名查找字段名、字段类型、与字段描述
- jquery 通过 live() 方法附加的事件处理程序适用于匹配选择器的当前及未来的元素(比如由脚本创建的新元素)
- 通过java程序实现mysql 批量一个表的子段更新另一个表的字段
- SAP通过程序创建Excel模板
- 一套通过c# sap-rfc 完整处理一个bdc凭证的程序代码
- 如何导出SAP的数据表字段和字段描述
- 通过程序获得SQL Server自增型字段的函数:GetKey
- 修改SAP系统标准字段描述的方法 .
- 【转载】SAP保存操作记录CDHDR和CDPOS表,通过修改屏幕字段,查找SAP字段表和字段
- oracle下通过表名查找字段名、字段类型、与字段描述
- oracle下通过表名查找字段名、字段类型、与字段描述
- oracle下通过表名查找字段名、字段类型、与字段描述
- SAP通过JCO调用Java程序配置开发
- SAP FI 新增BSEG可替代的字段 GGB1 表GB01 程序:RGUGBR00
- oracle下通过表名查找字段名、字段类型、与字段描述
- oracle下通过表名查找字段名、字段类型、与字段描述
- oracle下通过表名查找字段名、字段类型、与字段描述
- SAP 通过事务代码与屏幕变式(SHD0)控制控制用户界面的某些字段,以控制生产订单的调度类型为例