REPORT y7partner NO STANDARD PAGE HEADING LINE-SIZE 1023.
DATA: BEGIN OF st_tpar
    ,   parvw LIKE tpar-parvw
    , END   OF st_tpar
    , salesdocument         LIKE bapivbeln-vbeln VALUE '0000000010'
    , contract_header_in    LIKE bapisdh1
    , contract_header_inx   LIKE bapisdh1x
    , return                LIKE bapiret2 OCCURS 0 WITH HEADER LINE
    , contract_item_in      LIKE bapisditm
    , contract_item_inx     LIKE bapisditmx
    , partners              LIKE bapiparnr  OCCURS 0 WITH HEADER LINE
    , partnerchanges        LIKE bapiparnrc OCCURS 0 WITH HEADER LINE
    , partneraddresses      LIKE bapiaddr1
    , it_tpar               LIKE TABLE OF st_tpar WITH HEADER LINE
    .
contract_header_inx-updateflag = 'U'.

partnerchanges-document   = salesdocument.
partnerchanges-itm_number = '000000'.
partnerchanges-updateflag = 'I'.
partnerchanges-p_numb_old = 'CST1104'.
partnerchanges-partn_role = 'SP'.
*partnerchanges-address    = '23804'.
APPEND partnerchanges.

partners-partn_role = partnerchanges-partn_role.
partners-partn_numb = partnerchanges-p_numb_old.
partners-itm_number = partnerchanges-itm_number.
APPEND partners.

CALL FUNCTION 'BAPI_CUSTOMERCONTRACT_CHANGE'
  EXPORTING
    salesdocument       = salesdocument
    contract_header_in  = contract_header_in
    contract_header_inx = contract_header_inx
  TABLES
    return              = return
    partnerchanges      = partnerchanges
    partners            = partners.
IF NOT return IS INITIAL.
  LOOP AT return.
    WRITE: / return-type     
           , return-id       
           , return-number   
           , return-message   
           , return-log_no   
           , return-log_msg_no
           , return-message_v1
           , return-message_v2
           , return-message_v3
           , return-message_v4
           , return-parameter
           , return-row       
           , return-field     
           , return-system
           .
  ENDLOOP.
ENDIF.