Hello world!

One of the simpliest programs that you can create in abap, is the famous Hello World.


report y_hello_world.

write:/ 'Hello World!'.

Scan string in ABAP programs

As with sapscript, sometimes we need to find certain strings present in abap source code. For this, sap provides us with an interesting program: RPR_ABAP_SOURCE_SCAN

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.