PARAMETER:
  p_objnr TYPE ihpa-objnr,
  p_parvw TYPE ihpa-parvw DEFAULT 'LF',
  p_count TYPE ihpa-counter,
  p_adrnr TYPE ihpa-adrnr.

DATA:
  gv_tabix TYPE sy-tabix,
  gs_tq80 TYPE tq80,
  gt_ihpa TYPE STANDARD TABLE OF ihpavb,
  gs_ihpa TYPE ihpavb.

SELECT SINGLE * INTO gs_tq80
  FROM tq80
  WHERE qmart = 'M3'.

CALL FUNCTION 'PM_PARTNER_INIT'
  EXPORTING
    aktyp      = 'V'
    objnr      = p_objnr
    obtyp      = 'QMI'
    pargr      = 'L1'
    parvw_ap   = gs_tq80-parvw_ap
    parvw_kund = gs_tq80-parvw_kund
    parvw_lief = gs_tq80-parvw_lief
    parvw_her  = gs_tq80-parvw_her
    parvw_int  = gs_tq80-parvw_int
    parvw_vera = gs_tq80-parvw_vera
    parvw_auto = gs_tq80-parvw_auto
    read_all   = 'X'.

CALL FUNCTION 'PM_PARTNER_GET_XIHPA'
  TABLES
    h_xihpa = gt_ihpa.

READ TABLE gt_ihpa INTO gs_ihpa
  WITH KEY parvw   = p_parvw
           counter = p_count.
gv_tabix = sy-tabix.

CALL FUNCTION 'PM_PARTNER_MAINTAIN'
  EXPORTING
    objnr         = p_objnr
    parnr         = gs_ihpa-parnr
    parvw         = gs_ihpa-parvw
    adrnr         = p_adrnr
    tabix_objnr   = gv_tabix
  EXCEPTIONS
    invalid_parnr = 1
    cpd_customer  = 2
    invalid_parvw = 3
    parvw_unique  = 4
    OTHERS        = 5.

*<<<<<
CALL FUNCTION 'PM_PARTNER_GET_XIHPA'
  TABLES
    h_xihpa = gt_ihpa.
gs_ihpa-updkz = 'U'.
MODIFY gt_ihpa FROM gs_ihpa INDEX gv_tabix TRANSPORTING updkz.
CALL FUNCTION 'PM_PARTNER_PUT_XIHPA'
  TABLES
    h_xihpa = gt_ihpa.
*>>>>>


CALL FUNCTION 'PM_PARTNER_CALL_VB'
  EXPORTING
    objnr = p_objnr.
COMMIT WORK.

CALL FUNCTION 'PM_PARTNER_GET_XIHPA'
  TABLES
    h_xihpa = gt_ihpa.
gs_ihpa-updkz = 'U'.
MODIFY gt_ihpa FROM gs_ihpa INDEX gv_tabix TRANSPORTING updkz.
CALL FUNCTION 'PM_PARTNER_PUT_XIHPA'
  TABLES
    h_xihpa = gt_ihpa.