topic Re: Need to find Sort inside the loop in Application Development and Automation Discussions

Need to find Sort inside the loop

Former Member — Wed, 28 Sep 2016 05:34:30 GMT

Hi Experts,

I need to find in the report where any sort are present inside the loop,we have almost 500 developments so it is impossible to look into it manually.

So we are writing a report to display the list.

Can anyone provide me some sample code for this .

Thanks in advance.

Re: Need to find Sort inside the loop

RaymondGiuseppi — Wed, 28 Sep 2016 05:43:55 GMT

Did you try report RS_ABAP_SOURCE_SCAN or similar program (use F4) or did you build you own report with statements like READ REPORT, what did you already try, and where are you stuck?

Regards,

Raymond

Re: Need to find Sort inside the loop

Former Member — Wed, 28 Sep 2016 05:49:14 GMT

Try transaction CODE_SCANNER

Regards,

Pranav

Re: Need to find Sort inside the loop

Former Member — Wed, 28 Sep 2016 06:12:04 GMT

Hi Raymond Giuseppi,

If we are using standard reports/T-Codes it is displaying all the records of sorts even if it is not inside the loop.

As suggested i had got all the coding lines of the report by using read report after that once this is successfully we are planning it to extend for select inside loop etc.we don't want to run many times to loops the same internal table.

we are searching for the better way.we are planning to code by using of Keyword:Find all occurence of regex

Thanks.

Re: Need to find Sort inside the loop

Former Member — Wed, 28 Sep 2016 07:31:08 GMT

Hi Vinay,

You could try with below code:

TYPES : BEGIN OF gx_comm,

name TYPE char15,

start TYPE int4,

end TYPE int4,

END OF gx_comm,

BEGIN OF abapsource,

line TYPE char255,

END OF abapsource.

DATA : lt_command TYPE TABLE OF gx_comm,

lt_loop TYPE TABLE OF gx_comm,

lt_read TYPE TABLE OF gx_comm,

wa_command LIKE LINE OF lt_command,

wa_read LIKE LINE OF lt_read,

wa_loop LIKE LINE OF lt_loop,

lv_line TYPE int4,

lv_counter TYPE int4,

lv_found TYPE char1,

lt_source TYPE TABLE OF abapsource,

wa_source LIKE LINE OF lt_source.

FIELD-SYMBOLS : <loop> LIKE LINE OF lt_command.

PARAMETERS : p_report TYPE sobj_name.

READ REPORT p_report INTO lt_source.

LOOP AT lt_source INTO wa_source.

lv_line = sy-tabix.

IF wa_source-line CS 'SORT'.

wa_read-name = 'SORT'.

wa_read-start = sy-tabix.

APPEND wa_read TO lt_read.

ELSEIF wa_source-line CS 'LOOP AT'.

wa_command-name = 'LOOP'.

wa_command-start = sy-tabix.

APPEND wa_command TO lt_command.

lv_counter = lv_counter + 1.

ELSEIF wa_source-line CS 'ENDLOOP'.

READ TABLE lt_command ASSIGNING <loop> INDEX lv_counter.

IF sy-subrc EQ 0.

<loop>-end = lv_line.

APPEND <loop> TO lt_loop.

DELETE lt_command INDEX lv_counter.

lv_counter = lv_counter - 1.

ENDIF.

ENDLOOP.

LOOP AT lt_read INTO wa_read.

LOOP AT lt_loop INTO wa_loop WHERE start LT wa_read-start

AND end GT wa_read-start.

EXIT.

ENDLOOP.

IF sy-subrc EQ 0.

lv_found = 'X'.

EXIT.

ENDIF.

ENDLOOP.

Reagrds,

Pranav