Update FI item text from PO item text

Question

Hi all,
                 i am trying to update FI item text(bseg) from PO item text(ekpo).I know that bseg is a culster table therefore inner join is not allow.So is there a way i can join these two tables together so i can retrieve the line item and then i'll do a modify to update into FI item text.I have tried the various codes that are posted within this forum but can never get anything to write:/ out.
                   I've manage to retrieve the various info from PO (ekpo) and also manage to update the FI text field with some random words(but both seperately).What i need now is to create a link between bseg and ekpo.
                   I have attached my coding for better understanding..Thankss
REPORT  ZSTKLILINTEST3 LINE-SIZE 1023 LINE-COUNT 1023 NO STANDARD PAGE HEADING.
Table Declaration
TABLES: ekpo, ekko, bseg, zstkll_1.
Types Declaration
TYPES:  BEGIN OF t_bseg,
        ebeln LIKE bseg-ebeln,
        hkont LIKE bseg-hkont,
        END OF t_bseg,
        BEGIN OF t_ekpo,
        ebeln LIKE ekpo-ebeln,
        txz01 LIKE ekpo-txz01,
        bukrs LIKE ekpo-bukrs,
        ebelp LIKE ekpo-ebelp,
        hkont LIKE bseg-hkont,
        END OF t_ekpo.
Data  Declaration
*grab data from t_ekpo then append it to zstkcy008
DATA: ekpo_tab TYPE STANDARD TABLE OF t_ekpo WITH HEADER LINE,
      bseg_tab TYPE STANDARD TABLE OF t_bseg WITH HEADER LINE,
      zstkll_1_tab TYPE STANDARD TABLE OF zstkll_1,
      wa_zstkll_1 LIKE LINE OF zstkll_1_tab.
Selection-Screen
SELECT-OPTIONS: s_bukrs FOR ekpo-bukrs,
                s_ebeln FOR ekpo-ebeln,
                s_hkont FOR bseg-hkont.
INITIALIZATION EVENT
AT SELECTION-SCREEN EVENT
START-OF-SELECTION
START-OF-SELECTION.
  SELECT bukrs
  FROM ekpo
  INTO CORRESPONDING FIELDS OF TABLE ekpo_tab
  WHERE bukrs IN s_bukrs.
IF ekpo_tab[] IS NOT INITIAL.
SELECT ekkoebeln ebelp bedat txz01 ekkobukrs
FROM ekpo INNER JOIN ekko
ON ekpoebeln = ekkoebeln
INTO CORRESPONDING FIELDS OF TABLE ekpo_tab
FOR ALL ENTRIES IN ekpo_tab
WHERE ekko~bukrs = ekpo_tab-bukrs
AND ekko~ebeln IN s_ebeln.
    WRITE:/ 'Extracted Data:'.
    LOOP AT ekpo_tab.
      MOVE-CORRESPONDING ekpo_tab TO wa_zstkll_1.
      WRITE:/ ekpo_tab-bukrs, ekpo_tab-ebelp, ekpo_tab-txz01, ekpo_tab-ebeln, ekko-ebeln, ekko-bedat.
      AT END OF ebeln.
       APPEND wa_zstkll_1 TO zstkll_1_tab.
      ENDAT.
      CLEAR: wa_zstkll_1, ekpo_tab.
    ENDLOOP.
    SKIP 2.
    TRY.
        CLEAR sy-dbcnt.
INSERT zstkll_1 FROM TABLE zstkll_1_tab.
      CATCH cx_root.
        WRITE:/ 'Record(s) already exist!'.
    ENDTRY.
    WRITE:/ sy-dbcnt, ' Records are inserted.'.
ELSE.
WRITE:/ 'No data Selected.'.
ENDIF.
END-OF-SELECTION
END-OF-SELECTION.
REPORT  ZSTKLILINTEST13.
TABLES:bseg.
DATA:it_bseg LIKE bseg OCCURS 0 WITH HEADER LINE.
PARAMETERS:p_belnr LIKE bseg-belnr,
           p_bukrs LIKE bseg-bukrs,
           p_gjahr LIKE bseg-gjahr.
START-OF-SELECTION.
SELECT * FROM bseg INTO TABLE it_bseg WHERE belnr = p_belnr AND bukrs = p_bukrs AND gjahr = p_gjahr.
MOVE 'IF THIS APPEAR UPDATE IS SUCCESSFUL' TO it_bseg-sgtxt.
MODIFY it_bseg FROM it_bseg TRANSPORTING sgtxt where belnr = p_belnr AND bukrs = p_bukrs AND gjahr = p_gjahr.
LOOP AT it_bseg.
WRITE:/3 it_bseg-belnr, it_bseg-gjahr, it_bseg-sgtxt.
ENDLOOP.
MODIFY bseg FROM TABLE it_bseg.
COMMIT WORK.
IF sy-subrc EQ 0.
WRITE:/3 'BSEG TABLE UPDATED SUCCESSFULLY WITH TEXT'.
ENDIF.

Answer 1

self solved