Skip to Content
0
Former Member
May 13, 2008 at 11:33 AM

reg script

33 Views

Hi Experts,

i added one field to from, i written one subroutine pool program for that field .but in that program w_egbel value are not getting. The first select statement is not working .if it all i changed the data at runtime iam getting the output. please tell me the mistake.

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 'LIPS-VBELN'.

When 'WEZLK-VBELN'.

move in_tab-value to w_vbeln.

endcase.

endloop.

select vbeln

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.

perfrom is as follows.

DEFINE &W_EKGRP& = ' '.

PERFORM F_HEAD IN PROGRAM ZAN_GOODS_RECEIPT

USING &WEZLK-VBELN&

CHANGING &W_EKGRP&

ENDPERFORM.

STORER &W_EKGRP

rewards are helpful answers.

thanks ,

Narasimha Rao,