例子获取销售订单we的地址信息
DATA: lv_message TYPE char255.
DATA: ls_selection LIKE addr1_sel,
ls_central_addr LIKE addr1_val.
SELECT SINGLE adrnr INTO gs_out-adrnr_cso FROM vbpa WHERE vbeln = gs_out-vbeln_cso AND posnr = '000000'
AND parvw = 'WE'.
IF sy-subrc = 0.
CLEAR: ls_selection,ls_central_addr.
ls_selection-addrnumber = gs_out-adrnr_cso.
CALL FUNCTION 'ADDR_GET'
EXPORTING
address_selection = ls_selection
IMPORTING
address_value = ls_central_addr
EXCEPTIONS
parameter_error = 1
OTHERS = 2.