code

Former Member — Thu, 03 Jul 2008 07:16:41 GMT

hi all,

i need to append the records when bseg-belnr = bseg1-belnr else it should append into final table.

please help me how to write code for this,

i kept code please suggest is it correcet or do i need to add anything else.

LOOP AT gt_bseg WHERE belnr NE ' '.

MOVE gt_bseg-kostl TO gt_final-kostl.

MOVE gt_bseg-prctr TO gt_final-prctr.

MOVE gt_bseg-hkont TO gt_final-hkont.

READ TABLE gt_bseg1 WITH KEY belnr = gt_bseg-belnr

bukrs = gt_bseg-bukrs

gjahr = gt_bseg-gjahr

BINARY SEARCH.

IF sy-subrc = 0.

MOVE gt_bseg1-lifnr TO gt_final-lifnr.

MOVE gt_bseg1-pswsl TO gt_final-pswsl.

MOVE gt_bseg1-augbl TO gt_final-augbl.

MOVE gt_bseg1-augdt TO gt_final-augdt.

ENDIF.

READ TABLE gt_bkpf WITH KEY belnr = gt_bseg-belnr

bukrs = gt_bseg-bukrs

gjahr = gt_bseg-gjahr

BINARY SEARCH.

IF sy-subrc = 0.

MOVE gt_bkpf-bukrs TO gt_final-bukrs.

MOVE gt_bkpf-bldat TO gt_final-bldat.

MOVE gt_bkpf-budat TO gt_final-budat.

MOVE gt_bkpf-belnr TO gt_final-belnr.

ENDIF.

READ TABLE gt_lfa1 WITH KEY lifnr = gt_bseg1-lifnr BINARY SEARCH.

IF sy-subrc = 0.

MOVE gt_lfa1-name1 TO gt_final-name1.

ENDIF.

if gt_bseg-belnr eq gt_bseg1-belnr.

APPEND gt_final.

CLEAR gt_final.

endif.

ENDLOOP.

Re: code

Former Member — Thu, 03 Jul 2008 10:11:43 GMT

This message was moderated.

Re: code

Former Member — Thu, 03 Jul 2008 10:13:43 GMT

sorry small mistake .

itab1[] = gt-bseg[].

Re: code

Former Member — Thu, 03 Jul 2008 10:14:30 GMT

ITAB[ ] = GT_BSEG[ ].

topic Re: code in Application Development and Automation Discussions

code

Re: code

Re: code

Re: code