topic Re: Include Program in Application Development and Automation Discussions

Include Program

Former Member — Wed, 16 May 2007 22:03:20 GMT

Can we do a runtime analysis for a Include Program

Re: Include Program

Former Member — Wed, 16 May 2007 22:07:34 GMT

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

Re: Include Program

Former Member — Wed, 16 May 2007 22:07:44 GMT

No..

It is only type Executable or FM OR Transaction.

Reward Points if it is helpful

Thanks

Seshu

Re: Include Program

Former Member — Wed, 16 May 2007 22:15:50 GMT

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

Re: Include Program

Former Member — Wed, 16 May 2007 22:27:45 GMT

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.

&----

*& 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