PERFORM rfm_creat_act USING us_prps-pspnr l_posid_h * u_maktx u_matnr l_posid_i l_description_i CHANGING ps_output .
FORM rfm_creat_act USING u_pspnr TYPE prps-pspnr u_posid TYPE prps-posid u_post1 TYPE prps-post1 u_posid2 TYPE prps-posid u_post12 TYPE prps-post1 CHANGING ps_output TYPE zsreturn. DATA: lv_network TYPE bapi_network_list-network, ls_activity TYPE bapi_bus2002_act_new, lt_activity TYPE TABLE OF bapi_bus2002_act_new, lt_return TYPE TABLE OF bapiret2. DATA: lv_message TYPE string. SELECT SINGLE aufk~aufnr, afko~aufpl, afko~pronr INTO @DATA(l_afko) FROM aufk INNER JOI