Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

Include Program

Former Member
0 Kudos
84

Can we do a runtime analysis for a Include Program

1 ACCEPTED SOLUTION

Former Member
0 Kudos
56

Hi,

No...You cannot do it in SE30 for include programs..

But you can use the syntax GET RUN TIME FIELD to check for the run time..

Ex..



GET RUN TIME FIELD T1. 
    INCLUDE z...             " Give your include here
  GET RUN TIME FIELD T2.

T2 = T2 - T1.

WRITE: / 'Run time ', T2.

Thanks,

Naren

4 REPLIES 4

Former Member
0 Kudos
57

Hi,

No...You cannot do it in SE30 for include programs..

But you can use the syntax GET RUN TIME FIELD to check for the run time..

Ex..



GET RUN TIME FIELD T1. 
    INCLUDE z...             " Give your include here
  GET RUN TIME FIELD T2.

T2 = T2 - T1.

WRITE: / 'Run time ', T2.

Thanks,

Naren

Former Member
0 Kudos
56

No..

It is only type Executable or FM OR Transaction.

Reward Points if it is helpful

Thanks

Seshu

0 Kudos
56

Alexander,

If possible, create a skelton executable and include the include file there to analyze. Another possibility is if the include code is small, convert it to a function module, or use it in a function module, then run it in SE37.

Regards,

Daniel Perecky

Former Member
0 Kudos
56

Use below Logic to test ur include :

Report ztest 01.

DATA: it_mara TYPE STANDARD TABLE OF mara,

wa_mara TYPE mara,

it_makt TYPE STANDARD TABLE OF makt,

wa_makt TYPE makt,

it_temp_mara TYPE STANDARD TABLE OF mara,

wa_temp_mara TYPE mara.

Data : t1 type I,

T2 type I,

T3 type i.

GET RUN TIME FIELD t1.

Include ztest02.

Get run time field t2.

WRITE:/ ' Time(ms) = ', t3.

T3 = t2 – t1.

Ztest02

  • Get all the records from MARA

SELECT * FROM mara

INTO TABLE it_temp_mara.

IF sy-subrc = 0.

IF it_temp_mara[] IS NOT INITIAL.

  • Duplicate the driver table with the data

do 100 times.

append lines of it_Temp_mara to it_mara.

enddo.

IF it_mara[] IS NOT INITIAL.

  • Select MAKT

perform select_makt.

sort it_mara by matnr.

perform select_makt.

DELETE ADJACENT DUPLICATES FROM it_mara COMPARING matnr.

perform select_makt.

ENDIF.

ENDIF.

ENDIF.

&----


*& Form select_makt

&----


  • Select data friom MAKT

----


form select_makt .

DATA: t1 TYPE i,

t2 TYPE i,

tmin TYPE i.

refresh it_makt[].

SELECT *

FROM makt

INTO TABLE it_makt

FOR ALL ENTRIES IN it_mara

WHERE matnr = it_mara-matnr.

Endform.

Reward Points if it is useful

Thanks

Seshu