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 .