I wrote the version on a 6.20 WebAS and it won't work on a version in which STRING is not defined. STRING is defined on the 4.6B kernel, though, so it will work down to 4.6B. Any lower release could use the coding below.
**** types: ty_char_string(72) type c, ty_char_string_tab type standard table of ty_char_string. data: gv_string type ty_char_string, gt_stringtab type ty_char_string_tab. read report program into gt_stringtab. */etc. ****Real strings are cleaner, though.
report z_print_include. */Parameters parameters: */Name of include gp_incl type progname obligatory, */Line number where exception raised gp_line type i. */Variables data: gt_strings type stringtab. */Field symbols field-symbols: <gv_string> type string. start-of-selection. read report gp_incl into gt_strings. loop at gt_strings assigning <gv_string>. if sy-tabix = gp_line. write: / <gv_string> color col_negative. else. write: / <gv_string>. endif. endloop. end-of-selection.