Can anybody help me in updating forwarding agent

Question

I am trying to update forwarding agent(
Parvw = CR partners) in delivery using function module
SHP_DELIVERY_PARTNER_UPDATE. but it is not working in
code, but it is working from se37.can anybody tell me why it is so ad what to do

Answer 1

Hai Srinivas..thanks for ur valuable reply and sorry for opening 2 posts...
I am trying to call from se38
and the code is
DATA : it_partner type shp_partner_update_t,
      partner type shp_partner_update.
      partner-VBELN_VL = '0080955348'.
      partner-parvw = 'CR'.
      partner-parnr = '0000005305'.
      partner-UPDKZ_PAR = 'I'.
      partner-hausn = '000000'.
      append partner to it_partner.
DATA:    BEGIN OF YVBADR OCCURS 1.
           INCLUDE STRUCTURE SADRVB.
DATA:    END OF YVBADR.
Aktueller Tabellenstand
DATA:    BEGIN OF XVBADR OCCURS 5.
           INCLUDE STRUCTURE SADRVB.
DATA:    END OF XVBADR.
DATA: BEGIN OF XVBPA OCCURS 0.
        INCLUDE STRUCTURE VBPAVB.
DATA: END OF XVBPA.
Belegpartnertabelle : Alter Tabellenstand beim
ändern
DATA:    BEGIN OF YVBPA OCCURS 0.
           INCLUDE STRUCTURE VBPAVB.
DATA:    END OF YVBPA.
DATA:    BEGIN OF XVBUV OCCURS 9.
           INCLUDE STRUCTURE VBUVVB.
DATA:    END OF XVBUV.
CALL FUNCTION 'SHP_DELIVERY_PARTNER_UPDATE'
    EXPORTING
      IT_PARTNER_UPDATE          = IT_PARTNER
      IF_VBTYP                   = 'J'
      IF_PARGR                   = 'LF'
      IF_VKORG                   = 'US01'
      IF_VTWEG                   = '00'
      IF_SPART                   = '00'
      IF_IGNORE_UPDATE_ERRORS    = SPACE
    TABLES
      CT_XVBPA                   = XVBPA
      CT_YVBPA                   = YVBPA
      CT_XVBADR                  = XVBADR
      CT_YVBADR                  = YVBADR
      CT_XVBUV                   = XVBUV
    EXCEPTIONS
      MISSING_PARTNER_SCHEME     = 1
      PARTNER_CHANGE_NOT_ALLOWED = 2
      ERROR_ON_PARTNER_CHANGE    = 3
      OTHERS                     = 4.
  IF SY-SUBRC NE 0.
  write : 'error'.
  else.
  commit work.
  write 'updated'.
   ENDIF.