BAPI_PR_CHANGE 修改项目长文本

DATA: itemtext TYPE bapimereqitemtext OCCURS 0 WITH HEADER LINE,
      i_return TYPE bapiret2 OCCURS 0 WITH HEADER LINE .

PARAMETERS p_banfn LIKE eban-banfn .

START-OF-SELECTION.

  itemtext-preq_no = p_banfn.
  itemtext-preq_item = '00010'.
  itemtext-text_id  = 'B01'.
  itemtext-text_form = '*'.
  itemtext-text_line = 'aaaa'.
  APPEND itemtext.
  itemtext-text_form = '/'.
  itemtext-text_line = 'bbbb'.
  APPEND itemtext.

  itemtext-preq_item = '00020'.
  itemtext-text_form = '*'.
  itemtext-text_line = 'cccc'.
  APPEND itemtext.
  itemtext-text_form = '*'.
  itemtext-text_line = 'dddd'.
  APPEND itemtext.

  CALL FUNCTION 'BAPI_PR_CHANGE'
    EXPORTING
      number     = p_banfn
    TABLES
      return     = i_return[]
      pritemtext = itemtext[].

  COMMIT WORK AND WAIT .