Fill final internal table.

[Former Member]

hi,

1.I extracted the delivery document no from NAST table based on output type.

2.extracted delivery doc no, kunag(sold-to-party), kunnr (ship-to-party) and sdabw (process indicator) from

LIKP table into table IT_likp based on delivery doc no.

3. extracted kunnr,name1, ort01, tel.ph no, postalcode,address from KNA1 table into it_kna1 , for all entries in it_likp.

Now my requirement is i want fill my final internal table from these two tables.

final IT structure is : vbeln, likp-kunag(sold-to-party), name1,tel ph no, address, likp-kunnr(ship-to-party),name1, tel ph no,address.

Now the condition is if likp-sdabe = SH , in this case only we fill the ship-to-part details, if the condition is false we don't fill ship-to-party details.

but in both cases we must fill remaining(sold-to-party details) all fields.

Can any one please help me for filling the final table.

thanks in advance.

[Former Member]

like this

  LOOP AT it_likp INTO likp_rec.
    CLEAR final_rec.
    final_rec-vbeln         = likp_rec-vbeln.
    final_rec-kunag         = likp_rec-kunag.
    READ TABLE it_kna1 INTO kna1_rec WITH KEY kunnr = final_rec-kunag.
    IF sy-subrc EQ 0.
      final_rec-name1       = kna1_rec-name1.
      final_rec-stras       = kna1_rec-stras.
      final_rec-ort01       = kna1_rec-ort01.
      final_rec-pstlz       = kna1_rec-pstlz.
      final_rec-telf1       = kna1_rec-telf1.
    ENDIF.
    IF likp_rec-sdabw = 'SH'.
      final_rec-kunnr       = likp_rec-kunnr.
      READ TABLE it_kna1 INTO kna1_rec WITH KEY kunnr = final_rec-kunnr.
      IF sy-subrc EQ 0.
        final_rec-st_name1       = kna1_rec-name1.
        final_rec-st_stras       = kna1_rec-stras.
        final_rec-st_ort01       = kna1_rec-ort01.
        final_rec-st_pstlz       = kna1_rec-pstlz.
        final_rec-st_telf1       = kna1_rec-telf1.
      ENDIF.
    ENDIF.
    APPEND final_rec TO it_final.
  ENDLOOP.