Skip to Content
0
Former Member
May 12, 2008 at 08:44 AM

reg.script

31 Views

Hi Friends,

iam facing one proble in this program iam not gettting ekko data and ekko-ebeln value . so ,please correct the program and send it to me . reards are helpful answers.

Thanks& regards,

Narasimha Rao.

PROGRAM ZAN_GOODS_RECEIPT.

*----


TABLES DECLARATION.

tables : likp,lips,ekko,ekpo.

*----


FORM STRUCTURE DECLARATION.

form f_head tables in_tab structure itcsy

data:l_ebeln(10) type n.

data: begin of l_ekgrp occurs 0,

ekgrp type ekko-ekgrp,

end of l_ekgrp.

read table in_tab with key name = 'EKKO-EBELN'.

if sy-subrc = 0.

l_ebeln = in_tab-value.

select ekgrp

from ekko

into table l_ekgrp

where ebeln = l_ebeln.

endif.

read table out_tab with key name = 'EKGRP'.

if sy-subrc = 0.

out_tab-value = l_ekgrp.

modify out_tab index 1.

endif.

endform.