where to write perform statement

[Former Member]

hi guru

i declared a itcsy structure in my print program.

in my main window where to write perform staement

like

PERFORM SCRIPT_ADDONS IN PROGRAM ZFI_RFFOUS_C

USING &REGUH-LIFNR&

CHANGING &BANKN&

ENDPERFORM

please tell me , because data is not fetching for bankn..

help me

[Former Member]

This message was moderated.

[Former Member]

please somebody reply..

its urgent.points should be deffinitely will give.

please

[Former Member]

Hi,

try creating codelines....as..

right click on main window->create->flow logic ->program lines..

write in that...what ever you want to code..

hope it helps...revert back if any issue

pls reward if helps,

regards.

[Former Member]

HI,

I AM DOING IN SCRIPT..

TELL ME ...

WHERE TO WRITE PERFORM STATEMENT IN MAIN WINDOW

[Former Member]

Hi Subasis,

You need to write the perform statement in any window where you need.

You need to do as below(Example):

In any window in the text elements:

/: DEFINE &TOT_PRICE&:= ' '

/: PERFORM GET_TOT IN PROGRAM YCQ

/: USING &GS_REGUH-LIFNR&

/: USING &GS_REGUH-VBLNR&

/: CHANGING &TOT_PRICE&

/: ENDPERFORM

IT <B> TOTAL: &TOT_PRICE& </>

In the driver program(YCQ) write the subroutine as below:

FORM get_tot TABLES in_tab STRUCTURE itcsy out_tab STRUCTURE itcsy.

DATA: tot_price TYPE rbetr,

lv_var TYPE char25,

lv_var1 TYPE char25,

lv_var2 TYPE char25.

SORT gt_reguh BY lifnr vblnr.

SORT gt_reguh1 BY lifnr.

READ TABLE in_tab WITH KEY 'GS_REGUH-LIFNR'.

IF sy-subrc EQ 0.

lv_var = in_tab-value.

ENDIF.

READ TABLE in_tab WITH KEY 'GS_REGUH-VBLNR'.

IF sy-subrc EQ 0.

lv_var1 = in_tab-value.

ENDIF.

READ TABLE gt_reguh1 INTO gs_reguh1 WITH KEY lifnr = lv_var BINARY SEARCH.

IF sy-subrc EQ 0.

tot_price = gs_reguh1-rbetr.

lv_var2 = tot_price.

READ TABLE out_tab WITH KEY 'TOT_PRICE'.

IF sy-subrc EQ 0.

out_tab-value = lv_var2.

MODIFY out_tab INDEX 1.

ENDIF.

ENDIF.

ENDFORM. "get_tot

Hope this helps you,

Regards,

Narendra.

Reward points if helpful!!