Hi Robert,
Please find the sample code which may be helpful for you.
LOOP AT it_sprg1 INTO wa_sprg1.
wa_sprg = wa_sprg1.
AT NEW sponsored_prog. "Fill header data
v_var = 0.
clear it_gmsfmbt.
wa_gmsprg-sponsored_prog = wa_sprg-sponsored_prog.
wa_gmsprg-validate_fmbt = wa_sprg-validate.
wa_gmsprg-description = wa_sprg-description.
APPEND wa_gmsprg TO it_gmsprg.
ENDAT.
* Fill Item data
wa_gmsfmbt-sponsored_prog = wa_sprg1-sponsored_prog.
wa_gmsfmbt-fm_area = c_funa.
wa_gmsfmbt-funds_center = wa_sprg1-funds_center.
wa_gmsfmbt-functional_area = wa_sprg1-functional_area.
wa_gmsfmbt-measure = wa_sprg1-measure.
wa_gmsfmbt-default_budget = wa_sprg1-default.
APPEND wa_gmsfmbt TO it_gmsfmbt.
CLEAR wa_gmsfmbt.
AT END OF sponsored_prog. "Call the FM
CALL FUNCTION 'Z_SPONSORED_PROGRAM'
EXPORTING
i_igmspprogram = wa_gmsprg
TABLES
t_gmspprogram_fmbt = it_gmsfmbt
EXCEPTIONS
error = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE text-004 TYPE 'E'.
endif
clear: wa_gmsprg,it_gmsfmbt.
ENDAT.
ENDLOOP.
Regards,
Manasa Veena P.