Scan string in SAPScript Sources

Every now and then, there is the need to find an particular string in multiple layouts/languages. This could be done by displaying the form info and search there. However, this is painfully slow and boring. For that need, I've created a small and simple program that can show if an form has that string. Below is the source code for it. Just create an empty program and copy & paste. Enjoy.

*&---------------------------------------------------------------------* *& Report Y_SEARCH_SAPSCRIPT_SOURCE * *&---------------------------------------------------------------------* report y_search_sapscript_source line-size 255. tables: stxh, phtmlb_fli. type-pools: sscr. data: begin of wt_forms occurs 0, tdform like stxh-tdform, tdspras like stxh-tdspras, found, end of wt_forms, begin of wt_final occurs 0, form like stxh-tdform, lang like stxh-tdspras, line_no like sy-tabix, format type tdformat, line type tline, string type char30, end of wt_final, wt_lines type table of tline with header line, l_tabix type sy-tabix. field-symbols: <w_form> like line of wt_forms, <w_line> like line of wt_lines, <w_final> like line of wt_final. selection-screen: begin of block b1 with frame. select-options: s_form for stxh-tdform, s_lang for stxh-tdspras. selection-screen: end of block b1. selection-screen: skip. selection-screen: begin of block b2 with frame. select-options: s_string for phtmlb_fli-fli_id lower case obligatory no intervals. selection-screen: end of block b2. selection-screen: skip. selection-screen: begin of block b3 with frame. parameters: p_com as checkbox default ' ', p_par as checkbox default ' ', p_ins as checkbox default ' ', p_ele as checkbox default ' ', p_win as checkbox default ' '. selection-screen: end of block b3. initialization. data: l_restriction type sscr_restrict, l_opt type sscr_opt_list, l_assign type sscr_ass. clear: l_restriction, l_opt, l_assign. free: l_restriction, l_opt, l_assign. l_opt-name = 'ONE'. l_opt-options-eq = 'X'. l_assign-kind = 'S'. l_assign-name = 'S_STRING'. l_assign-sg_main = 'I'. l_assign-op_main = 'ONE'. append l_opt to l_restriction-opt_list_tab. append l_assign to l_restriction-ass_tab. call function 'SELECT_OPTIONS_RESTRICT' exporting restriction = l_restriction exceptions too_late = 1 repeated = 2 selopt_without_options = 3 selopt_without_signs = 4 invalid_sign = 5 empty_option_list = 6 invalid_kind = 7 repeated_kind_a = 8 others = 9. clear: l_restriction, l_opt, l_assign. free: l_restriction, l_opt, l_assign. start-of-selection. clear: wt_forms, wt_forms[], wt_lines, wt_lines[], wt_final, wt_final[]. select tdform tdspras into corresponding fields of table wt_forms from stxh where tdobject = 'FORM' and tdname in s_form and tdid = 'TXT' and tdspras in s_lang. if sy-subrc is initial. clear: wt_lines. loop at wt_forms assigning <w_form>. clear: <w_form>-found, wt_lines, wt_lines[]. free: wt_lines, wt_lines[]. call function 'READ_FORM' exporting form = <w_form>-tdform language = <w_form>-tdspras importing found = <w_form>-found tables form_lines = wt_lines. if not <w_form>-found is initial and not wt_lines[] is initial. loop at wt_lines assigning <w_line>. if ( p_com = 'X' and <w_line>-tdformat = '/*' ) or ( p_par = 'X' and <w_line>-tdformat(1) <> '/' and <w_line>-tdformat(1) <> '>' ) or ( p_ins = 'X' and <w_line>-tdformat = '/:' ) or ( p_ele = 'X' and <w_line>-tdformat = '/E' ) or ( p_win = 'X' and <w_line>-tdformat = '/W' ) or <w_line>-tdformat(1) = '>'. continue. endif. l_tabix = sy-tabix. loop at s_string. if <w_line>-tdline cs s_string-low. wt_final-form = <w_form>-tdform. wt_final-lang = <w_form>-tdspras. wt_final-line_no = l_tabix. wt_final-format = <w_line>-tdformat. wt_final-line = <w_line>-tdline. wt_final-string = s_string-low. append wt_final. clear wt_final. endif. endloop. endloop. endif. endloop. if not wt_final[] is initial. write:/ 'FORM ', ';', 'LG', ';', 'LINE No ', ';', 'STRING ', ';', ' ', ';', 'LINE'. loop at wt_final assigning <w_final>. write:/ <w_final>-form, ';', <w_final>-lang, ';', <w_final>-line_no, ';', <w_final>-string, ';', <w_final>-format, ';', <w_final>-line. endloop. else. write:/ 'Not Found!'. endif. else. write:/ 'Not Found!'. endif.