hi ecperts,
i am addiing one field to the form but iam not getting the value into
w_egbel . pleae tell me the error why it is not getting the value.
rewards are helpful answers.
PROGRAM ZAN_GOODS_RECEIPT.
*----
TABLES DECLARATION.
tables : likp,lips,ekko,ekpo,wezlk.
*----
FORM STRUCTURE DECLARATION.
form f_head tables in_tab structure itcsy
out_tab structure itcsy.
data: w_vbeln(10) type c,
w_vgbel(10) type c,
w_ekgrp(3) type c.
loop at in_tab.
case in_tab-name.
When 'WEZLK-VBELN'.
move in_tab-value to w_vbeln.
endcase.
endloop.
select vgbel
from lips
into w_vgbel
where vbeln = w_vbeln.
endselect.
select single ekgrp
from ekko
into w_ekgrp
where ebeln = w_vgbel.
if sy-subrc ne 0.
endif.
loop at out_tab.
case out_tab-name.
when 'W_EKGRP'.
move w_ekgrp to out_tab-value.
modify out_tab.
endcase.
endloop.
endform.
Perfom as follows.
DEFINE &W_EKGRP& = ' '.
PERFORM F_HEAD IN PROGRAM ZAN_GOODS_RECEIPT
USING &WEZLK-VBELN&
CHANGING &W_EKGRP&
ENDPERFORM.
STORER &W_EKGRP
thanks®ards,
Narasimha.