on 01-27-2008 1:30 PM
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 ®UH-LIFNR&
CHANGING &BANKN&
ENDPERFORM
please tell me , because data is not fetching for bankn..
help me
This message was moderated.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
please somebody reply..
its urgent.points should be deffinitely will give.
please
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
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!!
User | Count |
---|---|
101 | |
13 | |
13 | |
11 | |
11 | |
7 | |
6 | |
5 | |
4 | |
4 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.