parameters : p_vkorg like tvko-vkorg. data : v_vkorg like vbak-vkorg. data: v_bukrs like ekpo-bukrs. data: v_land1 like kna1-land1. select single vkorg bukrs into (v_vkorg , v_bukrs) from tvko where vkorg = p_vkorg. if sy-subrc eq 0. write:/ v_vkorg, v_bukrs. else. write:/ 'Invalid sales org'. endif. select single land1 into v_land1 from t001 where bukrs = v_bukrs. write:/ 'Country', v_land1.
check this ..
regards,
vijay.
Add a comment