Skip to Content
0
Former Member
May 13, 2008 at 01:30 PM

reg script

23 Views

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&regards,

Narasimha.