SAP代码扫描工具

游戏开发
2025-08-23 09:45:02

描述：

ZSCANNER是一个先进的代码分析工具，旨在提供对程序和功能模块内部工作的全面见解。它揭示了代码的技术细节，包括正在创建、读取、更新或删除的数据表（CRUD操作），以及正在调用的类、功能模块和BAPI（业务插件）。为了提高操作效率，ZScanner包括一个快速错误消息定位功能，允许用户直接导航到导致错误的特定代码行。

我们将其用于AS-IS项目研究和快速操作。

ZSCANNER：

*&---------------------------------------------------------------------* *& Report ZSCANNER *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT zscanner. INCLUDE zscanner_top. INCLUDE zscanner_s01. INCLUDE zscanner_f01. INCLUDE zscanner_f02. AT SELECTION-SCREEN OUTPUT. PERFORM frm_modify_screen. START-OF-SELECTION. IF p_ck1 = abap_true. ***GET basic info -- programs PERFORM frm_get_basic_info. ***GET PROGRAMS-includings PERFORM frm_get_devc_pgmna. ELSE. ***Get basic info -- functions PERFORM frm_get_basic_func_info. ENDIF. ***GET FUNCTION GROUPS && CLASS PERFORM frm_get_devc_func. ***GET CLASSES * PERFORM frm_get_devc_class. ***GET KEY WORDS. PERFORM frm_key_word_scan. ***ALV PERFORM frm_alv_list.

INCLUDE zscanner_top.

*&---------------------------------------------------------------------* *& Include ZSCANNER_TOP *&---------------------------------------------------------------------* TABLES: tstc, tfdir. CONSTANTS: con_true TYPE afx_dte_boolean VALUE 'X', con_false TYPE afx_dte_boolean VALUE ' '. DATA: gr_tcode TYPE RANGE OF tstc-tcode, gr_pgmna TYPE RANGE OF tstc-pgmna. DATA: BEGIN OF gs_alv_item, repname TYPE sy-repid, dynnr TYPE sy-dynnr, versno TYPE vrsd-versno, line_no TYPE rsrow, text TYPE text255, hit TYPE xfeld, cell_color TYPE lvc_t_scol, END OF gs_alv_item, gt_alv_item LIKE STANDARD TABLE OF gs_alv_item. TYPES: BEGIN OF t_str_lines, devclass LIKE tadir-devclass, progname LIKE rs38m-programm, linno LIKE rslgaxdata-line, line LIKE abapsource-line, END OF t_str_lines. DATA: BEGIN OF g_tab_lines OCCURS 0, devclass LIKE tadir-devclass, progname LIKE rs38m-programm, linno LIKE rslgaxdata-line, line LIKE abapsource-line, END OF g_tab_lines. TYPES: BEGIN OF ts_result, sel, tcode TYPE tstc-tcode, "t-code pgmna TYPE tstc-pgmna, "program fname TYPE rs38l_fnam, "function module instance TYPE char100, title TYPE trdirt-text, spras TYPE tadir-masterlang, created_on TYPE tadir-created_on, changed_on TYPE tadir-created_on, devclass TYPE tadir-devclass, devclass_t TYPE tdevct-ctext, component TYPE tdevc-component, "package component?? select TYPE char255, insert TYPE char255, delete TYPE char255, update TYPE char255, callfunc TYPE char255, callbapi TYPE char255, callrfc TYPE char255, callclass TYPE char255, calltran TYPE char255, submit TYPE char255, forms TYPE char255, isalv TYPE flag, lines TYPE i, button_t TYPE char255, END OF ts_result. TYPES: tt_result TYPE TABLE OF ts_result. DATA: gt_result TYPE tt_result, gs_result TYPE ts_result. TYPES: BEGIN OF ts_prog, main_name TYPE trdir-name, "主程序 name TYPE trdir-name, type TYPE char02, "01-program, 02-function, 03-class, from TYPE i, to TYPE i, lines TYPE i, END OF ts_prog. TYPES: tt_prog TYPE TABLE OF ts_prog. DATA: gt_prog TYPE tt_prog, gs_prog TYPE ts_prog, gt_prog_part TYPE tt_prog, "section for FORM gs_prog_part TYPE ts_prog. TYPES: BEGIN OF ts_function, main_name TYPE trdir-name, "主程序 pname TYPE trdir-name, "当前程序 name TYPE rs38l-name, position TYPE i, "function所在程序的行 type TYPE char02, "01-function, 02-BAPI, 03-STD.function, 04-destination RFC END OF ts_function, tt_function TYPE TABLE OF ts_function. DATA: gt_function TYPE tt_function, gs_function TYPE ts_function. TYPES: BEGIN OF ts_class, main_name TYPE trdir-name, "主程序 class_name TYPE eu_lname, "CLASS include TYPE programm, "调用CLASS的程序名 END OF ts_class, tt_class TYPE TABLE OF ts_class. DATA: gt_class TYPE tt_class, gs_class TYPE ts_class. TYPES: BEGIN OF ts_key_word, main_name TYPE trdir-name, "主程序 name TYPE trdir-name, "程序 keyname TYPE char40, type TYPE char10, " position TYPE i, ddtext TYPE dd02t-ddtext, END OF ts_key_word, tt_key_word TYPE TABLE OF ts_key_word. DATA: gs_key_word TYPE ts_key_word, gt_key_word TYPE tt_key_word. DATA: gs_detail TYPE ts_key_word, gt_detail TYPE tt_key_word. DATA: gr_code_std TYPE RANGE OF rsmptexts-obj_code. TYPES: BEGIN OF ts_button, main_name TYPE trdir-name, obj_code TYPE rsmptexts-obj_code, text TYPE rsmptexts-text, END OF ts_button, tt_button TYPE TABLE OF ts_button. DATA: gs_button TYPE ts_button, gt_button TYPE tt_button. DEFINE append_to_key_word. gs_key_word-main_name = &1. gs_key_word-name = &2. gs_key_word-keyname = &3. gs_key_word-position = &4. gs_key_word-type = &5. APPEND gs_key_word TO gt_key_word. CLEAR gs_key_word. END-OF-DEFINITION.

INCLUDE zscanner_s01.

*&---------------------------------------------------------------------* *& Include ZSCANNER_S01 *&---------------------------------------------------------------------* SELECTION-SCREEN BEGIN OF BLOCK b0 WITH FRAME TITLE text-000. PARAMETERS: p_ck1 RADIOBUTTON GROUP g1 DEFAULT 'X' USER-COMMAND u1, p_ck2 RADIOBUTTON GROUP g1. SELECTION-SCREEN END OF BLOCK b0. SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001. SELECT-OPTIONS: s_tcode FOR tstc-tcode MODIF ID m3, s_pgmna FOR tstc-pgmna MODIF ID m3, s_fname FOR tfdir-funcname MODIF ID m4. SELECTION-SCREEN END OF BLOCK b1. SELECTION-SCREEN: BEGIN OF BLOCK b2 WITH FRAME TITLE text-002. PARAMETERS: p_prog AS CHECKBOX DEFAULT con_true MODIF ID m1, p_fugr AS CHECKBOX DEFAULT con_true MODIF ID m2, p_cinc AS CHECKBOX DEFAULT con_true. SELECTION-SCREEN END OF BLOCK b2.

INCLUDE zscanner_f01.

*&---------------------------------------------------------------------* *& Include ZSCANNER_F01 *&---------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Form FRM_MODIFY_SCREEN *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_modify_screen . LOOP AT SCREEN. IF p_ck1 = abap_true. IF screen-group1 = 'M1'. screen-input = 0. ENDIF. IF screen-group1 = 'M4'. screen-active = 0. ENDIF. ELSE. IF screen-group1 = 'M3'. screen-active = 0. ENDIF. IF screen-group1 = 'M1'. screen-active = 0. ENDIF. IF screen-group1 = 'M2'. screen-input = 0. ENDIF. ENDIF. MODIFY SCREEN. ENDLOOP. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_GET_BASIC_INFO *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_get_basic_info . DATA: lr_pgmna TYPE RANGE OF trdir-name, lt_tstc TYPE TABLE OF tstc. DATA: lt_source TYPE abaptxt255_tab. IF s_tcode IS NOT INITIAL. SELECT * FROM tstc INTO TABLE lt_tstc WHERE tcode IN s_tcode. IF sy-subrc = 0. lr_pgmna = VALUE #( FOR ls_tstc IN lt_tstc ( sign = 'I' option = 'EQ' low = ls_tstc-pgmna ) ). ENDIF. ENDIF. ***GET programs SELECT tadir~object, tadir~obj_name, tadir~devclass, tadir~masterlang, tadir~component, tadir~created_on, tstc~tcode, reposrc~cnam INTO TABLE @DATA(lt_tadir) FROM tadir INNER JOIN reposrc ON reposrc~progname = tadir~obj_name LEFT JOIN tstc ON tstc~pgmna = tadir~obj_name "NO TCODE IN-CASE WHERE reposrc~subc EQ '1' "Executable program AND obj_name IN @lr_pgmna AND obj_name IN @s_pgmna AND pgmid = 'R3TR' AND object = 'PROG' . IF sy-subrc <> 0. MESSAGE s001(00) WITH 'No program found!' DISPLAY LIKE 'E'. LEAVE LIST-PROCESSING. ENDIF. LOOP AT lt_tadir INTO DATA(ls_tadir). APPEND INITIAL LINE TO gt_prog ASSIGNING FIELD-SYMBOL(<ls_prog>). <ls_prog>-main_name = ls_tadir-obj_name. <ls_prog>-name = ls_tadir-obj_name. <ls_prog>-type = '01'. READ REPORT ls_tadir-obj_name INTO lt_source. <ls_prog>-from = 1. <ls_prog>-to = lines( lt_source ). <ls_prog>-lines = lines( lt_source ). UNASSIGN <ls_prog>. APPEND INITIAL LINE TO gt_result ASSIGNING FIELD-SYMBOL(<ls_result>). "T-code <ls_result>-tcode = ls_tadir-tcode. "Program <ls_result>-pgmna = ls_tadir-obj_name. "Language <ls_result>-spras = ls_tadir-masterlang. "Create_ON <ls_result>-created_on = ls_tadir-created_on. "Package <ls_result>-devclass = ls_tadir-devclass. "Title SELECT SINGLE text INTO <ls_result>-title FROM trdirt WHERE name = <ls_result>-pgmna AND sprsl = <ls_result>-spras. "Package Desc. SELECT SINGLE ctext INTO <ls_result>-devclass_t FROM tdevct WHERE devclass = <ls_result>-devclass AND spras = <ls_result>-spras. "Package Component SELECT SINGLE component FROM tdevc INTO <ls_result>-component WHERE devclass = <ls_result>-devclass. "Last changed SELECT SINGLE udat FROM trdir INTO <ls_result>-changed_on WHERE name = <ls_result>-pgmna. UNASSIGN <ls_result>. ENDLOOP. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_GET_DEVC_PGMNA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_get_devc_pgmna . DATA: lv_program TYPE sy-repid, lt_inc_tmp TYPE TABLE OF tadir-obj_name. DATA: lt_source TYPE abaptxt255_tab. ***Get includes LOOP AT gt_prog INTO DATA(ls_pgmna). lv_program = ls_pgmna-name. CALL FUNCTION 'RS_GET_ALL_INCLUDES' EXPORTING program = lv_program TABLES includetab = lt_inc_tmp EXCEPTIONS OTHERS = 0. LOOP AT lt_inc_tmp INTO DATA(ls_inc_tmp). gs_prog-main_name = lv_program. "main gs_prog-name = ls_inc_tmp. "include gs_prog-type = '01'. "01-program, 02-function, 03-class READ REPORT ls_inc_tmp INTO lt_source. gs_prog-from = 1. gs_prog-to = lines( lt_source ). gs_prog-lines = lines( lt_source ). APPEND gs_prog TO gt_prog. CLEAR gs_prog. ENDLOOP. * APPEND LINES OF lt_inc_tmp TO gt_prog. ENDLOOP. SORT gt_prog BY main_name name. DELETE ADJACENT DUPLICATES FROM gt_prog COMPARING main_name name. ENDFORM. *&---------------------------------------------------------------------* *& Form SEARCH_SOURCE_CALLFUNC *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM search_source_callfunc USING it_prog TYPE tt_prog CHANGING ct_function TYPE tt_function ct_function_std TYPE tt_function ct_bapis TYPE tt_function . DATA: lt_source TYPE abaptxt255_tab, lt_results TYPE match_result_tab. DATA: lt_function TYPE tt_function, lv_regex TYPE string, lv_regex2 TYPE string. PERFORM frm_pattern_call_function USING 'CALL_FUNCTION' CHANGING lv_regex lv_regex2. LOOP AT it_prog INTO gs_prog. IF NOT ( sy-tabix >= gs_prog-from AND sy-tabix <= gs_prog-to ). EXIT. ENDIF. READ REPORT gs_prog-name INTO lt_source. IF sy-subrc <> 0. CONTINUE. ENDIF. FIND ALL OCCURRENCES OF REGEX lv_regex IN TABLE lt_source IN CHARACTER MODE IGNORING CASE RESULTS lt_results. IF lt_results[] IS NOT INITIAL. * lv_found = abap_true. LOOP AT lt_results INTO DATA(ls_results). READ TABLE lt_source INTO DATA(ls_source2) INDEX ls_results-line. IF sy-subrc = 0. "是注释行时 continue IF ls_source2-line(1) = '*'. CONTINUE. ENDIF. SEARCH ls_source2-line FOR '"'. IF sy-subrc = 0 AND sy-fdpos <= ls_results-offset. CONTINUE. ENDIF. ENDIF. PERFORM frm_get_hit_set USING lt_source gs_prog-name ls_results-line. PERFORM frm_get_fm_name USING lt_source lv_regex ls_results-line gs_prog-main_name gs_prog-name CHANGING ct_function ct_function_std ct_bapis. ENDLOOP. ENDIF. ENDLOOP. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_GET_DEVC_CLASS *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_get_devc_class . DATA: lt_wbcrossgt TYPE TABLE OF wbcrossgt, lt_class TYPE tt_class. LOOP AT gt_result INTO gs_result. "逐个程序处理 DATA(lt_prog) = gt_prog. DELETE lt_prog WHERE main_name NE gs_result-pgmna. WHILE lt_prog[] IS NOT INITIAL. ***Search source "程序里找出 class PERFORM search_source_class USING lt_prog CHANGING lt_wbcrossgt. CLEAR lt_prog. ***class 找出 class程序名(到function) PERFORM get_class_obj USING gs_result-pgmna lt_wbcrossgt CHANGING lt_prog lt_class. ENDWHILE. SORT lt_class BY main_name class_name. DELETE ADJACENT DUPLICATES FROM lt_class COMPARING main_name class_name. "拼接class LOOP AT lt_class INTO DATA(ls_class). gs_result-callclass = ls_class-class_name && ',' && gs_result-callclass. CONDENSE gs_result-callclass. append_to_key_word: gs_result-pgmna ls_class-class_name ls_class-class_name 1 'CALLCLASS'. "CALL_CLASS ENDLOOP. CLEAR lt_class. MODIFY gt_result FROM gs_result TRANSPORTING callclass. ENDLOOP. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_GET_DEVC_FUNC *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_get_devc_func . DATA: lt_function TYPE tt_function, lt_function_std TYPE tt_function, lt_bapis TYPE tt_function, lt_function_all TYPE tt_function, lt_bapis_all TYPE tt_function. DATA: lt_wbcrossgt TYPE TABLE OF wbcrossgt, lt_class TYPE tt_class. DATA: lt_prog_next TYPE tt_prog, lv_start_from_se37. IF p_ck1 = abap_true. lv_start_from_se37 = abap_false. ELSE. lv_start_from_se37 = abap_true. ENDIF. LOOP AT gt_result INTO gs_result. "逐个程序处理 DATA(lt_prog) = gt_prog. DELETE lt_prog WHERE main_name NE gs_result-pgmna. WHILE lt_prog[] IS NOT INITIAL. IF lv_start_from_se37 = abap_false. ***Search source "程序里找出 function PERFORM search_source_callfunc USING lt_prog CHANGING lt_function lt_function_std lt_bapis. CLEAR lv_start_from_se37. ELSE. "初始 function lt_function = VALUE #( FOR ls_prog2 IN lt_prog ( main_name = ls_prog2-main_name name = ls_prog2-name type = ls_prog2-type ) ). ENDIF. ***get function programs. IF p_fugr = abap_true. "function里找出程序名, 继续下一次程序找function PERFORM get_function_obj USING gs_result-pgmna lt_function CHANGING lt_prog_next. "call function IN call function. ENDIF. CLEAR lt_function. ***Search source "程序里找出 class PERFORM search_source_class USING lt_prog CHANGING lt_wbcrossgt. ***get class programs. IF p_cinc = abap_true. "class 找出 class程序名(到function) PERFORM get_class_obj USING gs_result-pgmna lt_wbcrossgt CHANGING lt_prog_next lt_class. ENDIF. lt_prog[] = lt_prog_next[]. CLEAR: lt_prog_next, lt_wbcrossgt, lt_function, lt_function_std, lt_bapis. ENDWHILE. * SORT gt_function by type name. LOOP AT gt_function INTO gs_function WHERE main_name = gs_result-pgmna. "01-function, 02-BAPI, 03-STD.function IF gs_function-type = '01'. CONCATENATE gs_function-name gs_result-callfunc INTO gs_result-callfunc SEPARATED BY ','. CONDENSE gs_result-callfunc. "append to keyword. append_to_key_word: gs_result-pgmna gs_function-pname gs_function-name gs_function-position 'CALLFUNC'. ELSEIF gs_function-type = '04'. CONCATENATE gs_function-name gs_result-callrfc INTO gs_result-callrfc SEPARATED BY ','. CONDENSE gs_result-callrfc. "append to keyword. append_to_key_word: gs_result-pgmna gs_function-pname gs_function-name gs_function-position 'CALLRFC'. ELSE. CONCATENATE gs_function-name gs_result-callbapi INTO gs_result-callbapi SEPARATED BY ','. CONDENSE gs_result-callbapi. "append to keyword. append_to_key_word: gs_result-pgmna gs_function-pname gs_function-name gs_function-position 'CALLBAPI'. ENDIF. ENDLOOP. ***CLASS SORT lt_class BY main_name class_name. DELETE ADJACENT DUPLICATES FROM lt_class COMPARING main_name class_name. APPEND LINES OF lt_class TO gt_class. "拼接class LOOP AT lt_class INTO DATA(ls_class) WHERE main_name = gs_result-pgmna. gs_result-callclass = ls_class-class_name && ',' && gs_result-callclass. CONDENSE gs_result-callclass. "append to keyword. append_to_key_word: gs_result-pgmna ls_class-class_name ls_class-class_name 1 'CALLCLASS'. "CALL_CLASS ENDLOOP. CLEAR lt_class. * MODIFY gt_result FROM gs_result TRANSPORTING callfunc callbapi callclass. MODIFY gt_result FROM gs_result TRANSPORTING callfunc callbapi callrfc callclass. CLEAR: gs_result. ENDLOOP. ENDFORM. *&---------------------------------------------------------------------* *& Form GET_function_OBJ *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_LT_function text * <--P_GT_prog text *----------------------------------------------------------------------* FORM get_function_obj USING iv_main_name TYPE program_id it_function TYPE tt_function CHANGING ct_prog TYPE tt_prog. DATA: lv_progname TYPE char100, ls_prog TYPE ts_prog. DATA: lt_source TYPE abaptxt255_tab. CHECK it_function[] IS NOT INITIAL. SELECT * FROM tfdir INTO TABLE @DATA(lt_tfdir) FOR ALL ENTRIES IN @it_function WHERE funcname = @it_function-name. IF sy-subrc = 0. LOOP AT lt_tfdir INTO DATA(ls_tfdir). CONCATENATE ls_tfdir-pname 'U' ls_tfdir-include INTO lv_progname. "SAPLXXX01--->SAPLXXX01, /BMW/SAPLXXX02--->/BMW/LXXX02 REPLACE 'SAP' IN lv_progname WITH space . CONDENSE lv_progname. "CHECK是未处理过的程序--避免相互调用造成的死循环 READ TABLE gt_prog INTO gs_prog WITH KEY name = lv_progname from = 1 to = lines( lt_source ). IF sy-subrc NE 0. ls_prog-main_name = iv_main_name. ls_prog-name = lv_progname. ls_prog-type = '02'. READ REPORT lv_progname INTO lt_source. ls_prog-from = 1. ls_prog-to = lines( lt_source ). ls_prog-lines = lines( lt_source ). APPEND ls_prog TO ct_prog. APPEND ls_prog TO gt_prog. "遍历当前程序体里的PERFORM调用. PERFORM frm_search_source_form USING ls_prog CHANGING ct_prog . CLEAR ls_prog. ENDIF. ENDLOOP. ENDIF. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_GET_HIT_SET *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_GT_SOURCE text * -->P_gs_prog_NAME text * -->P_LS_RESULTS_LINE text *----------------------------------------------------------------------* FORM frm_get_hit_set USING it_abap TYPE abaptxt255_tab iv_pgmna_name TYPE trdir-name iv_tabix TYPE match_result-line. DATA: lv_end TYPE i, lv_start TYPE i, lv_xtabix TYPE sy-tabix, lv_hitline TYPE xfeld. DATA: gv_hit_count TYPE i. DATA: ls_col LIKE LINE OF gs_alv_item-cell_color. FIELD-SYMBOLS: <lv_abap> TYPE any. lv_start = iv_tabix - 2 . lv_end = iv_tabix + 2. IF lv_start < 1. lv_start = 1. ENDIF. WHILE lv_start <= lv_end. READ TABLE it_abap ASSIGNING <lv_abap> INDEX lv_start. IF sy-subrc IS NOT INITIAL. EXIT. ENDIF. lv_xtabix = sy-tabix. IF lv_start = iv_tabix. lv_hitline = 'X'. ELSE. CLEAR lv_hitline. ENDIF. ADD 1 TO lv_start. IF <lv_abap>(1) = '*' OR <lv_abap>(1) = '"'. CONTINUE. ENDIF. gs_alv_item-repname = iv_pgmna_name. gs_alv_item-line_no = lv_xtabix. gs_alv_item-text = <lv_abap>. IF lv_hitline IS NOT INITIAL. gs_alv_item-hit = 'X'. ADD 1 TO gv_hit_count. ls_col-fname = 'TEXT'. ls_col-color-col = '5'. APPEND ls_col TO gs_alv_item-cell_color. ENDIF. APPEND gs_alv_item TO gt_alv_item. CLEAR gs_alv_item. ENDWHILE. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_GET_FM_NAME *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_LT_SOURCE text * -->P_LS_RESULTS_LINE text * <--P_LT_function text *----------------------------------------------------------------------* FORM frm_get_fm_name USING it_abap TYPE abaptxt255_tab iv_regex TYPE string iv_tabix TYPE match_result-line iv_main_name TYPE trdir-name iv_pname TYPE trdir-name CHANGING ct_function TYPE tt_function ct_function_std TYPE tt_function ct_bapis TYPE tt_function . DATA: lv_exit, lv_character, lv_fname(30), lv_fdpos TYPE i. DATA: ls_function TYPE ts_function. CLEAR lv_exit. LOOP AT it_abap INTO DATA(ls_abap) FROM iv_tabix. DATA(lv_index) = iv_tabix. "line FIND REGEX iv_regex IN ls_abap-line IGNORING CASE. IF sy-subrc = 0. DO 10 TIMES. "search 10 lines at most READ TABLE it_abap INTO DATA(ls_abap_curr) INDEX lv_index. SEARCH ls_abap_curr-line FOR '''' . IF sy-subrc = 0. lv_fdpos = sy-fdpos. DO 30 TIMES. lv_fdpos = lv_fdpos + 1. lv_character = ls_abap_curr-line+lv_fdpos(1). IF lv_character = ''''. EXIT. ELSE. lv_fname = lv_fname && lv_character. ENDIF. ENDDO. CONDENSE lv_fname. ls_function-main_name = iv_main_name. ls_function-pname = iv_pname. "function位置所在的程序 ls_function-position = lv_index. "function位置所在的程序行 ls_function-name = lv_fname. SELECT SINGLE funcname INTO lv_fname FROM tfdir WHERE funcname = lv_fname. IF sy-subrc = 0. "是当前系统function. IF lv_fname(1) = 'Z' OR lv_fname(5) = '/BMW/'. ls_function-type = '01'. APPEND ls_function TO gt_function. APPEND ls_function TO ct_function. ELSEIF lv_fname(4) = 'BAPI'. ls_function-type = '02'. APPEND ls_function TO gt_function. APPEND ls_function TO ct_bapis. ELSE. ls_function-type = '03'. APPEND ls_function TO gt_function. APPEND ls_function TO ct_function_std. ENDIF. ELSE. "是destination系统 * ZSCANNER_F01 FIND REGEX 'DESTINATION' IN ls_abap-line IGNORING CASE. IF sy-subrc NE 0. DATA(lv_next) = iv_tabix + 1. LOOP AT it_abap INTO DATA(ls_abap_rfc) FROM lv_next. IF ls_abap_rfc(1) = '*' OR ls_abap_rfc IS INITIAL. CONTINUE. ELSE. "非注释行&非空行&非"DEST.行 --- 校验DESTINATION. FIND REGEX 'DESTINATION' IN ls_abap_rfc-line IGNORING CASE. IF sy-subrc = 0. FIND REGEX '"\s+DESTINATION' IN ls_abap_rfc-line IGNORING CASE. IF sy-subrc NE 0. ls_function-type = '04'. "RFC. APPEND ls_function TO gt_function. ENDIF. ENDIF. EXIT. "检测到非空行即跳出 ENDIF. ENDLOOP. ELSE. ls_function-type = '04'. "RFC. APPEND ls_function TO gt_function. ENDIF. ENDIF. lv_exit = abap_true. EXIT. ELSE. "next line lv_index = lv_index + 1. CONTINUE. ENDIF. ENDDO. IF lv_exit = abap_true.. EXIT. ENDIF. CLEAR lv_fname. ELSE. ENDIF. ENDLOOP. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_PATTERN_CALL_FUNCTION *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_0183 text * <--P_LV_REGEX text *----------------------------------------------------------------------* FORM frm_pattern_call_function USING iv_type TYPE char20 CHANGING cv_regex TYPE string cv_regex2 TYPE string. CASE iv_type. WHEN 'CALL_FUNCTION'. "Start with 'CALL', end with 'FUNCTION' cv_regex = '\<CALL\s+FUNCTION\>'. cv_regex2 = '"\s+\<CALL\s+FUNCTION\>'. WHEN 'CREATE_OBJECT'. WHEN OTHERS. ENDCASE. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_ALV_prog *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_alv_list . CONSTANTS: lc_pf_status TYPE slis_formname VALUE 'FRM_PF_STATUS', lc_user_command TYPE slis_formname VALUE 'FRM_USER_COMMAND'. DATA: lv_repid TYPE sy-repid, ls_layout TYPE lvc_s_layo, lt_fieldcat TYPE lvc_t_fcat. lv_repid = sy-repid. ls_layout-zebra = abap_true. ls_layout-box_fname = 'SEL'. PERFORM frm_set_fieldcat CHANGING lt_fieldcat. CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC' EXPORTING i_callback_program = lv_repid is_layout_lvc = ls_layout * i_grid_title = it_fieldcat_lvc = lt_fieldcat * i_callback_pf_status_set = lc_pf_status i_callback_user_command = lc_user_command i_save = 'X' TABLES t_outtab = gt_result[] EXCEPTIONS program_error = 1 OTHERS = 2. . IF sy-subrc <> 0. * Implement suitable error handling here ENDIF. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_SET_FIELDCAT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * <--P_LT_FIELDCAT text *----------------------------------------------------------------------* FORM frm_set_fieldcat CHANGING ct_fieldcat TYPE lvc_t_fcat. DATA: ls_fieldcat TYPE lvc_s_fcat. DEFINE marco_fieldcat. CLEAR ls_fieldcat. ls_fieldcat-key = &1. ls_fieldcat-fieldname = &2. ls_fieldcat-coltext = &3. ls_fieldcat-col_opt = &4. ls_fieldcat-hotspot = &5. ls_fieldcat-ref_field = &6. ls_fieldcat-ref_table = &7. APPEND ls_fieldcat TO ct_fieldcat. END-OF-DEFINITION. marco_fieldcat: 'X' 'TCODE' 'T-code' 'X' '' '' '', 'X' 'PGMNA' 'Program' 'X' '' '' '', '' 'INSTANCE' 'Instance' 'X' '' '' '', '' 'TITLE' 'Title' 'X' '' '' '', '' 'SPRAS' 'Language' 'X' '' '' '', '' 'CREATED_ON' 'Created on' 'X' '' '' '', '' 'CHANGED_ON' 'Changed on' 'X' '' '' '', '' 'DEVCLASS' 'Package' 'X' '' '' '', '' 'DEVCLASS_T' 'Package Desc.' 'X' '' '' '', '' 'COMPONENT' 'Package Component' 'X' '' '' '', '' 'SELECT' 'Select table' 'X' 'X' '' '', '' 'INSERT' 'Insert table' 'X' 'X' '' '', '' 'DELETE' 'Delete table' 'X' 'X' '' '', '' 'UPDATE' 'Update table' 'X' 'X' '' '', '' 'CALLFUNC' 'call Function' 'X' 'X' '' '', '' 'CALLBAPI' 'call Bapi' 'X' 'X' '' '', '' 'CALLRFC' 'call RFC' 'X' 'X' '' '', '' 'CALLCLASS' 'Class/Interface' 'X' 'X' '' '', '' 'CALLTRAN' 'call TRANSACTION' 'X' 'X' '' '', '' 'SUBMIT' 'Submit program' 'X' 'X' '' '', '' 'FORMS' 'Print Form' 'X' 'X' '' '', '' 'ISALV' 'ALV Display' 'X' '' '' '', '' 'LINES' 'Coding Line' 'X' '' '' '', '' 'BUTTON_T' 'Button text' 'X' 'X' '' ''. ENDFORM. *&---------------------------------------------------------------------* *& Form SEARCH_SOURCE_CLASS *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_LT_PROG text * <--P_LT_FUNCTION text * <--P_LT_FUNCTION_STD text * <--P_LT_BAPIS text *----------------------------------------------------------------------* FORM search_source_class USING it_prog TYPE tt_prog CHANGING ct_wbcrossgt TYPE wbcrossgtt. SELECT * FROM wbcrossgt INTO TABLE ct_wbcrossgt FOR ALL ENTRIES IN it_prog WHERE include = it_prog-name AND otype = 'ME' . "METHOD * AND ( otype = 'TY' "CLASS * OR otype = 'ME' ). "METHOD . "删除标准的CLASS. DELETE ct_wbcrossgt WHERE name(1) NE 'Z' AND name(5) NE '/BMW/'. ENDFORM. *&---------------------------------------------------------------------* *& Form GET_CLASS_OBJ *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_LT_WBCROSSGT text * <--P_LT_PROG text *----------------------------------------------------------------------* FORM get_class_obj USING iv_main_name TYPE program_id it_wbcrossgt TYPE wbcrossgtt CHANGING ct_prog TYPE tt_prog ct_class TYPE tt_class. DATA: ls_prog TYPE ts_prog, ls_tmdir TYPE tmdir, lt_tmdir TYPE TABLE OF tmdir. DATA: lv_suffix TYPE c LENGTH 5, lv_progname(50), lv_flag(30). DATA: lt_source TYPE abaptxt255_tab. LOOP AT it_wbcrossgt INTO DATA(ls_wbcrossgt) WHERE otype = 'ME'. SPLIT ls_wbcrossgt-name AT '\ME:' INTO ls_tmdir-classname ls_tmdir-methodname. ***CLASS name gs_class-main_name = iv_main_name. "MAIN_NAME gs_class-class_name = ls_tmdir-classname. "CLASS APPEND gs_class TO ct_class. CLEAR gs_class. SELECT * FROM tmdir INTO TABLE lt_tmdir WHERE classname = ls_tmdir-classname AND methodname = ls_tmdir-methodname. IF sy-subrc = 0. LOOP AT lt_tmdir INTO ls_tmdir. PERFORM convert_numc_35 USING ls_tmdir-methodindx CHANGING lv_suffix. "/BMW/XXXXXX====MCNNN 总长度是35. DATA(lv_length) = 30 - strlen( ls_tmdir-classname ). DO lv_length TIMES. lv_flag = lv_flag && '='. CONDENSE lv_flag. ENDDO. lv_progname = ls_tmdir-classname && lv_flag && lv_suffix. "CHECK是未处理过的程序--避免相互调用造成的死循环 READ TABLE gt_prog INTO gs_prog WITH KEY name = lv_progname. IF sy-subrc NE 0. ls_prog-main_name = iv_main_name. ls_prog-name = lv_progname. ls_prog-type = '03'. READ REPORT lv_progname INTO lt_source. ls_prog-from = 1. ls_prog-to = lines( lt_source ). ls_prog-lines = lines( lt_source ). APPEND ls_prog TO ct_prog. APPEND ls_prog TO gt_prog. CLEAR ls_prog. ENDIF. CLEAR lv_flag. ENDLOOP. ENDIF. ENDLOOP. ENDFORM. *&---------------------------------------------------------------------* *& Form CONVERT_NUMC_35 *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_LS_TMDIR_METHODINDX text * <--P_LV_SUFFIX text *----------------------------------------------------------------------* FORM convert_numc_35 USING iv_methodindx CHANGING cv_suffix TYPE char5. CONSTANTS: lc_character TYPE c LENGTH 36 VALUE '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'. DATA: lv_mod TYPE numc2, lv_div TYPE numc2. lv_div = iv_methodindx DIV 36. lv_mod = iv_methodindx MOD 36. cv_suffix = 'CM' && lv_div && lc_character+lv_mod(1). ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_KEY_WORD_SCAN *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_key_word_scan . DATA: lv_subrc TYPE sy-subrc. DATA: lt_source TYPE abaptxt255_tab. DATA: lt_keywrd_sel TYPE abaptxt255_tab, lt_keywrd_ins TYPE abaptxt255_tab, lt_keywrd_del TYPE abaptxt255_tab, lt_keywrd_upd TYPE abaptxt255_tab, lt_keywrd_submit TYPE abaptxt255_tab, lt_keywrd_call TYPE abaptxt255_tab, lt_stoken TYPE stoken_tab, lt_sstmnt TYPE sstmnt_tab. DATA: lr_code_std TYPE RANGE OF rsmptexts-obj_code. lt_keywrd_sel[] = VALUE #( ( line = 'SELECT' ) ). lt_keywrd_ins[] = VALUE #( ( line = 'INSERT' ) ). lt_keywrd_del[] = VALUE #( ( line = 'DELETE' ) ). lt_keywrd_upd[] = VALUE #( ( line = 'UPDATE' ) ). lt_keywrd_submit[] = VALUE #( ( line = 'SUBMIT' ) ). lt_keywrd_call[] = VALUE #( ( line = 'CALL' ) ). LOOP AT gt_prog INTO gs_prog. READ REPORT gs_prog-name INTO lt_source. ***SELECT SCAN ABAP-SOURCE lt_source KEYWORDS FROM lt_keywrd_sel TOKENS INTO lt_stoken STATEMENTS INTO lt_sstmnt. "select xxx from db. "select xxx from db-a join db-b xxxx LOOP AT lt_stoken INTO DATA(ls_stoken) WHERE ( str = 'FROM' OR str = 'JOIN' ). DATA(lv_index) = sy-tabix + 1. "FROM 下一行是表名称 READ TABLE lt_stoken INTO DATA(ls_stoken1) INDEX lv_index. IF sy-subrc = 0. PERFORM check_tabname USING ls_stoken1-str CHANGING lv_subrc. IF lv_subrc = 0. append_to_key_word: gs_prog-main_name gs_prog-name ls_stoken1-str ls_stoken1-row 'SELECT'. "SELECT ENDIF. ENDIF. ENDLOOP. ***INSERT SCAN ABAP-SOURCE lt_source KEYWORDS FROM lt_keywrd_ins TOKENS INTO lt_stoken STATEMENTS INTO lt_sstmnt. "insert db from xxx. "insert into db values xxx. LOOP AT lt_stoken INTO ls_stoken WHERE ( str = 'INSERT' OR str = 'INTO' ). lv_index = sy-tabix + 1. "下一行是表名称 READ TABLE lt_stoken INTO ls_stoken1 INDEX lv_index. IF sy-subrc = 0. PERFORM check_tabname USING ls_stoken1-str CHANGING lv_subrc. IF lv_subrc = 0. append_to_key_word: gs_prog-main_name gs_prog-name ls_stoken1-str ls_stoken1-row 'INSERT'. "INSERT ENDIF. ENDIF. ENDLOOP. ***DELETE SCAN ABAP-SOURCE lt_source KEYWORDS FROM lt_keywrd_del TOKENS INTO lt_stoken STATEMENTS INTO lt_sstmnt. "delete db from itab xxxx "delete from db where xxxx LOOP AT lt_stoken INTO ls_stoken WHERE ( str = 'DELETE' OR str = 'FROM' ). lv_index = sy-tabix + 1. "下一行是表名称 READ TABLE lt_stoken INTO ls_stoken1 INDEX lv_index. IF sy-subrc = 0. PERFORM check_tabname USING ls_stoken1-str CHANGING lv_subrc. IF lv_subrc = 0. append_to_key_word: gs_prog-main_name gs_prog-name ls_stoken1-str ls_stoken1-row 'DELETE'. "DELETE ENDIF. ENDIF. ENDLOOP. ***UPDATE SCAN ABAP-SOURCE lt_source KEYWORDS FROM lt_keywrd_upd TOKENS INTO lt_stoken STATEMENTS INTO lt_sstmnt. "delete db from xxxx LOOP AT lt_stoken INTO ls_stoken WHERE ( str = 'UPDATE' ). lv_index = sy-tabix + 1. "下一行是表名称 READ TABLE lt_stoken INTO ls_stoken1 INDEX lv_index. IF sy-subrc = 0. PERFORM check_tabname USING ls_stoken1-str CHANGING lv_subrc. IF lv_subrc = 0. append_to_key_word: gs_prog-main_name gs_prog-name ls_stoken1-str ls_stoken1-row 'UPDATE'. "UPDATE ENDIF. ENDIF. ENDLOOP. ***SUBMIT. SCAN ABAP-SOURCE lt_source KEYWORDS FROM lt_keywrd_submit TOKENS INTO lt_stoken STATEMENTS INTO lt_sstmnt. "delete db from xxxx LOOP AT lt_stoken INTO ls_stoken WHERE ( str = 'SUBMIT' ). lv_index = sy-tabix + 1. "下一行是程序名称 READ TABLE lt_stoken INTO ls_stoken1 INDEX lv_index. IF sy-subrc = 0. PERFORM check_progname USING ls_stoken1-str CHANGING lv_subrc. IF lv_subrc = 0. append_to_key_word: gs_prog-main_name gs_prog-name ls_stoken1-str ls_stoken1-row 'SUBMIT'. "UPDATE ENDIF. ENDIF. ENDLOOP. ***CALL TRANSACTION SCAN ABAP-SOURCE lt_source KEYWORDS FROM lt_keywrd_call TOKENS INTO lt_stoken STATEMENTS INTO lt_sstmnt. "call transaction xxxxx LOOP AT lt_stoken INTO ls_stoken WHERE ( str = 'CALL' ). lv_index = sy-tabix + 1. "下一行是TRANSACTION. READ TABLE lt_stoken INTO ls_stoken1 INDEX lv_index. IF sy-subrc = 0. TRANSLATE ls_stoken1-str TO UPPER CASE. CHECK ls_stoken1-str = 'TRANSACTION'. lv_index = lv_index + 1. "下一行是TCODE名称 READ TABLE lt_stoken INTO DATA(ls_stoken2) INDEX lv_index. IF sy-subrc = 0. PERFORM check_tcode USING ls_stoken2-str CHANGING lv_subrc. IF lv_subrc = 0. append_to_key_word: gs_prog-main_name gs_prog-name ls_stoken2-str ls_stoken2-row 'CALL_TRANSACTION'. "CALL_TRANSACTION ENDIF. ENDIF. ENDIF. ENDLOOP. ENDLOOP. SORT gt_key_word. DELETE ADJACENT DUPLICATES FROM gt_key_word COMPARING ALL FIELDS. "standard function-code PERFORM append_code_std CHANGING lr_code_std. "更新到result表 LOOP AT gt_result INTO gs_result. LOOP AT gt_key_word INTO gs_key_word WHERE main_name = gs_result-pgmna. CASE gs_key_word-type. WHEN 'SELECT'. gs_result-select = gs_key_word-keyname && ',' && gs_result-select. CONDENSE gs_result-select. WHEN 'INSERT'. gs_result-insert = gs_key_word-keyname && ',' && gs_result-insert. CONDENSE gs_result-insert. WHEN 'DELETE'. gs_result-delete = gs_key_word-keyname && ',' && gs_result-delete. CONDENSE gs_result-delete. WHEN 'UPDATE'. gs_result-update = gs_key_word-keyname && ',' && gs_result-update. CONDENSE gs_result-update. WHEN 'SUBMIT'. gs_result-submit = gs_key_word-keyname && ',' && gs_result-submit. CONDENSE gs_result-submit. WHEN 'CALL_TRANSACTION'. gs_result-calltran = gs_key_word-keyname && ',' && gs_result-calltran. CONDENSE gs_result-calltran. ENDCASE. ENDLOOP. ***lines LOOP AT gt_prog INTO gs_prog WHERE main_name = gs_result-pgmna. gs_result-lines = gs_result-lines + ( gs_prog-to - gs_prog-from + 1 ). ENDLOOP. ***button SELECT * FROM rsmptexts INTO TABLE @DATA(lt_rsmptexts) WHERE progname = @gs_result-pgmna AND obj_type = 'F' AND texttype IN ('Q','M','I') "I-icon info, M-Object text, Q-quick info. AND obj_code NOT IN @lr_code_std. "优先取icon info,再取Object text, 最后取quick info. SORT lt_rsmptexts BY progname obj_code obj_type texttype. DELETE ADJACENT DUPLICATES FROM lt_rsmptexts COMPARING progname obj_code obj_type . LOOP AT lt_rsmptexts INTO DATA(ls_rsmptexts). gs_result-button_t = ls_rsmptexts-text && ',' && gs_result-button_t. CONDENSE gs_result-button_t. gs_key_word-main_name = gs_result-pgmna. * gs_key_word-keyname = ls_rsmptexts-obj_code. gs_key_word-keyname = ls_rsmptexts-text. gs_key_word-type = 'BUTTON_T'. "插入到key_word表用于双击分解? APPEND gs_key_word TO gt_key_word. CLEAR gs_key_word. ENDLOOP. ***Smartforms READ TABLE gt_function INTO gs_function WITH KEY type = '03' name = 'SSF_FUNCTION_MODULE_NAME'. IF sy-subrc = 0. "存在调smartforms. "----->如何找smartforms名称. ENDIF. MODIFY gt_result FROM gs_result. ENDLOOP. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_SEARCH_SOURCE_FORM *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_LS_PROG text *----------------------------------------------------------------------* FORM frm_search_source_form USING is_prog TYPE ts_prog CHANGING ct_prog TYPE tt_prog. DATA: lt_source TYPE abaptxt255_tab, lt_results TYPE match_result_tab. DATA: lt_function TYPE tt_function, lv_regex TYPE string, lv_regex2 TYPE string, lv_regex3 TYPE string, lv_regex4 TYPE string, lv_from_done, lv_to_done. DATA: lt_keywrd TYPE abaptxt255_tab, lt_keywrd2 TYPE abaptxt255_tab, lt_stoken TYPE stoken_tab, lt_sstmnt TYPE sstmnt_tab. DATA: lv_program TYPE sy-repid, lt_inc_tmp TYPE TABLE OF tadir-obj_name. DATA: lt_prog_form TYPE tt_prog, lt_prog_next TYPE tt_prog. TYPES: BEGIN OF ts_form, str TYPE token_str, END OF ts_form. DATA: ls_form TYPE ts_form, lt_form TYPE TABLE OF ts_form. DATA: lv_index TYPE i, lv_from TYPE i, lv_to TYPE i. PERFORM frm_pattern_call_function USING 'PERFORM' CHANGING lv_regex lv_regex2. * READ REPORT is_prog-name INTO lt_source. lt_keywrd[] = VALUE #( ( line = 'PERFORM' ) ). lt_prog_form = VALUE #( ( main_name = is_prog-main_name name = is_prog-name type = is_prog-type from = is_prog-from to = is_prog-to ) ). WHILE lt_prog_form[] IS NOT INITIAL. LOOP AT lt_prog_form INTO DATA(ls_prog_form). ***读取PERFORMS. READ REPORT ls_prog_form-name INTO lt_source. SCAN ABAP-SOURCE lt_source KEYWORDS FROM lt_keywrd TOKENS INTO lt_stoken STATEMENTS INTO lt_sstmnt. "删除范围外的mapping行 DELETE lt_stoken WHERE row LT ls_prog_form-from OR row GT ls_prog_form-to. CHECK lt_stoken[] IS NOT INITIAL. CHECK lt_sstmnt[] IS NOT INITIAL. LOOP AT lt_stoken INTO DATA(ls_stoken) WHERE str = 'PERFORM'. lv_index = sy-tabix + 1. READ TABLE lt_stoken INTO ls_stoken INDEX lv_index. IF sy-subrc = 0. ls_form-str = ls_stoken-str. APPEND ls_form TO lt_form. ENDIF. ENDLOOP. CLEAR: lt_stoken, lt_sstmnt. "include程序--->main程序 SELECT * FROM d010inc INTO TABLE @DATA(lt_d010inc) WHERE include = @is_prog-name. IF sy-subrc = 0. CHECK lines( lt_d010inc[] ) = 1. READ TABLE lt_d010inc INTO DATA(ls_d010inc) INDEX 1. "main程序--->所有程序 lv_program = ls_d010inc-master. CALL FUNCTION 'RS_GET_ALL_INCLUDES' EXPORTING program = lv_program TABLES includetab = lt_inc_tmp EXCEPTIONS OTHERS = 0. "在所有including程序中找出FORM的开始行到结束行. LOOP AT lt_inc_tmp INTO DATA(ls_inc_tmp) . READ REPORT ls_inc_tmp INTO lt_source. "逐个perform进行查找. LOOP AT lt_form INTO ls_form. "开始行 "FORM xxxxx . lv_regex = 'FORM\s+' && ls_form-str && '[\s.]'. "开始行 lv_regex2 = '"\s+FORM\s+' && ls_form-str && '[\s.]'. "被注释的开始行 lv_regex3 = 'ENDFORM' && '[\s.]'. "结束行 lv_regex4 = '"\s+ENDFORM' && '[\s.]'. "被注释的结束行 LOOP AT lt_source INTO DATA(ls_source). CHECK ls_source(1) NE '*'. "注释行. IF lv_from_done = abap_false. "找开始行 lv_from = sy-tabix. FIND REGEX lv_regex IN ls_source-line IGNORING CASE. IF sy-subrc = 0. "check是否注释的 FIND REGEX lv_regex2 IN ls_source-line IGNORING CASE. IF sy-subrc NE 0. CONDENSE ls_source-line. CHECK ls_source-line(4) = 'FORM'. "是FORM开头. lv_from_done = abap_true. ENDIF. ENDIF. ELSE. "找结束行. lv_to = sy-tabix. FIND REGEX lv_regex3 IN ls_source-line IGNORING CASE. IF sy-subrc = 0. "check是否注释的 FIND REGEX lv_regex4 IN ls_source-line IGNORING CASE. IF sy-subrc NE 0. lv_to_done = abap_true. EXIT. ENDIF. ENDIF. ENDIF. ENDLOOP. IF lv_to_done = 'X'. "CHECK是未处理过的程序--避免相互调用造成的死循环 READ TABLE gt_prog INTO gs_prog WITH KEY name = ls_inc_tmp from = lv_from to = lv_to. IF sy-subrc NE 0. gs_prog_part-main_name = is_prog-main_name. gs_prog_part-name = ls_inc_tmp. gs_prog_part-type = '02'. "including program gs_prog_part-from = lv_from. gs_prog_part-to = lv_to. APPEND gs_prog_part TO ct_prog. APPEND gs_prog_part TO gt_prog. APPEND gs_prog_part TO lt_prog_next. "下一个PERFORM. ENDIF. ENDIF. CLEAR: lv_from_done, lv_to_done, lv_from, lv_to. ENDLOOP. ENDLOOP. ENDIF. CLEAR: lt_form. ENDLOOP. lt_prog_form[] = lt_prog_next[]. CLEAR: lt_prog_next[]. ENDWHILE. ENDFORM. *&---------------------------------------------------------------------* *& Form CHECK_TABNAME *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_LS_STOKEN1_STR text * <--P_LV_SUBRC text *----------------------------------------------------------------------* FORM check_tabname USING iv_tabname TYPE char30 CHANGING cv_subrc TYPE syst-subrc. SELECT SINGLE tabname FROM dd02l INTO @DATA(lv_tname) WHERE tabname = @iv_tabname. cv_subrc = sy-subrc. ENDFORM. *&---------------------------------------------------------------------* *& Form CHECK_PROGNAME *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_LS_STOKEN1_STR text * <--P_LV_SUBRC text *----------------------------------------------------------------------* FORM check_progname USING iv_progname TYPE char30 CHANGING cv_subrc TYPE syst-subrc. SELECT SINGLE progname FROM reposrc INTO @DATA(lv_progname) WHERE progname = @iv_progname. cv_subrc = sy-subrc. ENDFORM. *&---------------------------------------------------------------------* *& Form CHECK_TCODE *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_LS_STOKEN2_STR text * <--P_LV_SUBRC text *----------------------------------------------------------------------* FORM check_tcode USING iv_tcode TYPE char30 CHANGING cv_subrc TYPE syst-subrc. DATA: lv_tcode TYPE tstc-tcode. lv_tcode = iv_tcode. "去除引号 'FB03'-->FB03. SHIFT lv_tcode RIGHT DELETING TRAILING space. SHIFT lv_tcode RIGHT DELETING TRAILING ''''. CONDENSE lv_tcode. SHIFT lv_tcode LEFT DELETING LEADING ''''. SELECT SINGLE tcode FROM tstc INTO lv_tcode WHERE tcode = lv_tcode. cv_subrc = sy-subrc. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_USER_COMMAND *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_user_command USING iv_ucomm TYPE sy-ucomm is_selfield TYPE slis_selfield. CASE iv_ucomm. WHEN '&IC1'. READ TABLE gt_result INTO gs_result INDEX is_selfield-tabindex. IF sy-subrc = 0. CASE is_selfield-fieldname. WHEN 'SELECT' OR 'DELETE' OR 'UPDATE' OR 'INSERT' OR 'CALLFUNC' OR 'CALLBAPI' OR 'CALLRFC' OR 'CALLCLASS' OR 'CALLTRAN' OR 'SUBMIT' OR 'FORMS' OR 'BUTTON_T' . PERFORM show_detail_sql USING is_selfield-fieldname gs_result. WHEN OTHERS. ENDCASE. ENDIF. WHEN OTHERS. ENDCASE. ENDFORM. *&---------------------------------------------------------------------* *& Form SHOW_DETAIL_SQL *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_GS_RESULT text *----------------------------------------------------------------------* FORM show_detail_sql USING iv_fname TYPE char30 is_result TYPE ts_result. DATA: lt_structure TYPE lvc_t_fcat, ls_structure TYPE lvc_s_fcat, ls_layout TYPE lvc_s_layo. DATA: lv_title TYPE lvc_title. CONSTANTS: lc_user_command_sub TYPE slis_formname VALUE 'FRM_USER_COMMAND_SUB'. ***gt_key_word CLEAR lt_structure. IF iv_fname = 'SELECT' OR iv_fname = 'UPDATE' OR iv_fname = 'INSERT' OR iv_fname = 'DELETE' OR iv_fname = 'CALLFUNC' OR iv_fname = 'CALLBAPI' OR iv_fname = 'CALLRFC' OR iv_fname = 'CALLTRAN' OR iv_fname = 'SUBMIT'. ls_structure-fieldname = 'NAME'. ls_structure-coltext = 'Program'. ls_structure-col_pos = 1. ls_structure-ref_table = ''. ls_structure-ref_field = ''. APPEND ls_structure TO lt_structure. ls_structure-fieldname = 'POSITION'. ls_structure-coltext = 'Position'. ls_structure-hotspot = 'X'. ls_structure-col_pos = 3. ls_structure-datatype = 'INT4'. ls_structure-dd_outlen = '255'. APPEND ls_structure TO lt_structure. CLEAR ls_structure. IF iv_fname = 'SELECT' OR iv_fname = 'UPDATE' OR iv_fname = 'INSERT' OR iv_fname = 'DELETE'. ls_structure-fieldname = 'DDTEXT'. ls_structure-coltext = 'TableName'. ls_structure-col_pos = 4. ls_structure-REF_TABLE = 'DD02T'. ls_structure-REF_FIELD = 'DDTEXT'. APPEND ls_structure TO lt_structure. CLEAR ls_structure. ENDIF. ENDIF. CLEAR ls_structure. ls_structure-fieldname = 'KEYNAME'. ls_structure-coltext = 'Value'. ls_structure-col_pos = 2. ls_structure-datatype = 'CHAR'. ls_structure-dd_outlen = '40'. APPEND ls_structure TO lt_structure. CLEAR ls_structure. ****创建dyn_table * CALL METHOD cl_alv_table_create=>create_dynamic_table * EXPORTING * it_fieldcatalog = lt_structure * IMPORTING * ep_table = dy_table * EXCEPTIONS * generate_subpool_dir_full = 1 * OTHERS = 2. * IF sy-subrc = 0. * "table * ASSIGN dy_table->* TO <dyn_table>. * ENDIF. * ****dyn_table 赋值 * CREATE DATA dy_line LIKE LINE OF <dyn_table>. * ASSIGN dy_line->* TO <dyn_wa>. DATA: lt_sort TYPE lvc_t_sort. lt_sort = VALUE #( ( fieldname = 'KEYNAME' up = 'X' ) ). gt_detail[] = gt_key_word[]. DELETE gt_detail WHERE type <> iv_fname. CHECK gt_detail[] IS NOT INITIAL. LOOP AT gt_detail ASSIGNING FIELD-SYMBOL(<ls_detail>). SELECT SINGLE ddtext FROM dd02t INTO <ls_detail>-ddtext WHERE tabname = <ls_detail>-keyname AND ddlanguage = 'E'. ENDLOOP. lv_title = iv_fname. ls_layout-zebra = abap_true. ls_layout-cwidth_opt = abap_true. CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC' EXPORTING i_callback_program = sy-repid is_layout_lvc = ls_layout it_fieldcat_lvc = lt_structure it_sort_lvc = lt_sort i_callback_user_command = lc_user_command_sub i_save = 'X' i_grid_title = lv_title TABLES t_outtab = gt_detail EXCEPTIONS program_error = 1 OTHERS = 2. . IF sy-subrc <> 0. * Implement suitable error handling here ENDIF. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_GET_BASIC_FUNC_INFO *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_get_basic_func_info . DATA: lr_pgmna TYPE RANGE OF trdir-name, lt_tstc TYPE TABLE OF tstc. DATA: lv_progname(50), lt_source TYPE abaptxt255_tab. ***GET programs SELECT tfdir~funcname, tfdir~pname, tfdir~include, tfdir~pname_main INTO TABLE @DATA(lt_tfdir) FROM tfdir WHERE tfdir~funcname IN @s_fname. IF sy-subrc <> 0. MESSAGE s001(00) WITH 'No functions found!' DISPLAY LIKE 'E'. LEAVE LIST-PROCESSING. ENDIF. LOOP AT lt_tfdir INTO DATA(ls_tfdir). APPEND INITIAL LINE TO gt_prog ASSIGNING FIELD-SYMBOL(<ls_prog>). * <ls_prog>-main_name = ls_tfdir-funcname. CONCATENATE ls_tfdir-pname 'U' ls_tfdir-include INTO lv_progname. "SAPLXXX01--->LXXX01, /BMW/SAPLXXX02--->/BMW/LXXX02 REPLACE 'SAP' IN lv_progname WITH space . CONDENSE lv_progname. <ls_prog>-main_name = lv_progname. "Function对应的程序名 <ls_prog>-name = ls_tfdir-funcname. "Function name <ls_prog>-type = '02'. READ REPORT lv_progname INTO lt_source. <ls_prog>-from = 1. <ls_prog>-to = lines( lt_source ). <ls_prog>-lines = lines( lt_source ). UNASSIGN <ls_prog>. APPEND INITIAL LINE TO gt_result ASSIGNING FIELD-SYMBOL(<ls_result>). "Program <ls_result>-pgmna = lv_progname. "Function对应的程序名 <ls_result>-fname = ls_tfdir-funcname. "Function name "Language "Create_ON "Package DATA(lv_group) = ls_tfdir-pname. REPLACE 'SAPL' IN lv_group WITH space . CONDENSE lv_group. SELECT SINGLE devclass, masterlang, created_on INTO ( @<ls_result>-devclass, @<ls_result>-spras, @<ls_result>-created_on ) FROM tadir WHERE pgmid = 'R3TR' AND object = 'FUGR' AND obj_name = @lv_group. "Title SELECT SINGLE stext INTO <ls_result>-title FROM tftit WHERE funcname = <ls_result>-pgmna AND spras = <ls_result>-spras. "Package Desc. SELECT SINGLE ctext INTO <ls_result>-devclass_t FROM tdevct WHERE devclass = <ls_result>-devclass AND spras = <ls_result>-spras. "Package Component SELECT SINGLE component FROM tdevc INTO <ls_result>-component WHERE devclass = <ls_result>-devclass. "Last changed SELECT SINGLE udat FROM trdir INTO <ls_result>-changed_on WHERE name = <ls_result>-pgmna. "Lines <ls_result>-lines = lines( lt_source ). UNASSIGN <ls_result>. ENDLOOP. ENDFORM. *&---------------------------------------------------------------------* *& Form APPEND_CODE_STD *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * <--P_LR_CODE_STD text *----------------------------------------------------------------------* FORM append_code_std CHANGING cr_code_std LIKE gr_code_std. DATA: ls_code_std LIKE LINE OF gr_code_std. ls_code_std(3) = 'IEQ'. ls_code_std-low = '%ML'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '%PC'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '%SC'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '%SC+'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '%SL'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&ABC'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&ALL'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&AQW'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&AUF'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&AVE'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&AVR'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&CDF'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&CFI'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&COUNT'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&CRB'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&CRE'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&CRB'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&CRL'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&CRR'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&DAU'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&DOF'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&DON'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&EB9'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&ELP'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&ERW'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&ETA'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&F03'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&F12'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&F15'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&IC1'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&ILD'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&ILT'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&KOM'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&LFO'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&LIS'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&MAX'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&MIN'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&NFO'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&NTE'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&OAD'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&ODN'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&OL0'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&OLX'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&OMP'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&OPT'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&OUP'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&RNT'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&RNT_PREV'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&SAL'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&SUM'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&UMC'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&XML'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&XPA'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = '&XXL'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = 'P+'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = 'P++'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = 'P-'. APPEND ls_code_std TO cr_code_std. ls_code_std-low = 'P--'. APPEND ls_code_std TO cr_code_std. ENDFORM.

INCLUDE zscanner_f02.

000 Scanning type 001 Search Criteria 002 Objects to Be Scanned

P_CINC Class/Interface P_CK1 Program P_CK2 Function P_FUGR Function P_PROG Program S_FNAME Function Module S_PGMNA Program S_TCODE Tcode

标签：

SAP代码扫描工具由讯客互联游戏开发栏目发布，感谢您对讯客互联的认可，以及对我们原创作品以及文章的青睐，非常欢迎各位朋友分享到个人网站或者朋友圈，但转载请说明文章出处“SAP代码扫描工具”

上一篇
IDEA中查询Maven项目的依赖树

下一篇
Debezium连接器对比