Addition of sales org in select stmt?

Question

friends i need to add the sales org infront of the names of sold 2 party and ship to party..following is the code plz modify!!
FORM write_kunnr_desc USING    p_i_tab1_kunnr p_ind.
  SELECT SINGLE name1 FROM kna1  INTO kna1-name1
                      WHERE kunnr =  p_i_tab1_kunnr.
  IF p_ind = 'SP'.
    CLEAR: v_kunnr_desc,
    v_kunnr_desc = kna1-name1.
    WRITE :/ sy-vline,'Sold-to-Party',27 ': ', kna1-name1,
             168 space,sy-vline.
  ELSEIF p_ind = 'SH'.
    CLEAR: v_kunnr_sp_desc.
    v_kunnr_sp_desc = kna1-name1.
    WRITE :/ sy-vline,'Ship-to-Party',27 ': ', kna1-name1,
            168 space,sy-vline.
  ENDIF.
ENDFORM.                    " write_kunnr_desc
I want to add the sales org(i.e 2200) in front of both sold to party and ship to party……
How do I do it.
VBAK-VKORG – SOLD TO PART SALES ORG
LIKP-VKORG – SHIP TO PARTY SALES ORG.
WHT DO I DO.
PLEASE REPLY RIGHT AWAY……..
ESSAM

Answer 1

Hi
write a select single statement for KNVV table and display the VKORG field and display
FORM write_kunnr_desc USING p_i_tab1_kunnr p_ind.
data: l_vkorg type vkorg.
clear l_vkorg.
SELECT SINGLE name1 FROM kna1 INTO kna1-name1
WHERE kunnr = p_i_tab1_kunnr.
SELECT SINGLE VKORG FROM knvv INTO l_vkorg
WHERE kunnr = p_i_tab1_kunnr.
IF p_ind = 'SP'.
CLEAR: v_kunnr_desc,
v_kunnr_desc = kna1-name1.
WRITE :/ sy-vline, l_vkorg, 'Sold-to-Party',27 ': ', kna1-name1,
168 space,sy-vline.
ELSEIF p_ind = 'SH'.
CLEAR: v_kunnr_sp_desc.
v_kunnr_sp_desc = kna1-name1.
WRITE :/ sy-vline, l_vkorg, 'Ship-to-Party',27 ': ', kna1-name1,
168 space,sy-vline.
ENDIF.
ENDFORM. " write_kunnr_desc
<b>Reward points for useful Answers</b>
Regards
Anji