*&---------------------------------------------------------------------*
*& Report ZTESTBAPI
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ztestbapi.
TYPE-POOLS:slis, vrm.
TABLES: sscrfields.
TABLES:zmmr604.
DATA: BEGIN OF wa_tab OCCURS 0,
zrkno LIKE zmmr604-zrkno,
END OF wa_tab.
DATA:save_code LIKE sy-ucomm,
ok_code LIKE sy-ucomm,
loc_msg(50),
gmnga LIKE afru-gmnga,
mtsnr LIKE rm07m-mtsnr,
errflag.
DATA:message type ZMESSAGE500.
data: itab type table of zmms604 with header line.
DATA:gmhead LIKE bapi2017_gm_head_01.
DATA: BEGIN OF gmcode.
INCLUDE STRUCTURE bapi2017_gm_code.
DATA: END OF gmcode.
DATA: BEGIN OF mthead.
INCLUDE STRUCTURE bapi2017_gm_head_ret.
DATA: END OF mthead.
DATA: BEGIN OF errmsg OCCURS 10.
IN
*& Report ZTESTBAPI
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ztestbapi.
TYPE-POOLS:slis, vrm.
TABLES: sscrfields.
TABLES:zmmr604.
DATA: BEGIN OF wa_tab OCCURS 0,
zrkno LIKE zmmr604-zrkno,
END OF wa_tab.
DATA:save_code LIKE sy-ucomm,
ok_code LIKE sy-ucomm,
loc_msg(50),
gmnga LIKE afru-gmnga,
mtsnr LIKE rm07m-mtsnr,
errflag.
DATA:message type ZMESSAGE500.
data: itab type table of zmms604 with header line.
DATA:gmhead LIKE bapi2017_gm_head_01.
DATA: BEGIN OF gmcode.
INCLUDE STRUCTURE bapi2017_gm_code.
DATA: END OF gmcode.
DATA: BEGIN OF mthead.
INCLUDE STRUCTURE bapi2017_gm_head_ret.
DATA: END OF mthead.
DATA: BEGIN OF errmsg OCCURS 10.
IN