REPORT z_scm_gr_his .
TABLES: ekko,ekbe.
CONSTANTS : once TYPE i VALUE 100000.
TYPES: BEGIN OF ty_ekbe ,
ebeln LIKE ekbe-ebeln ,
ebelp LIKE ekbe-ebelp ,
dmbtr LIKE ekbe-dmbtr ,
bewtp LIKE ekbe-bewtp , "E Q
shkzg LIKE ekbe-shkzg , "借贷
arewr LIKE ekbe-arewr ,
END OF ty_ekbe.
DATA: hs_ekbe TYPE HASHED TABLE OF ty_ekbe
WITH UNIQUE KEY ebeln ebelp bewtp shkzg WITH HEADER LINE .
DATA: wa LIKE LINE OF hs_ekbe.
TYPES: BEGIN OF ty_ekbe_sum ,
mandt LIKE sy-mandt ,