【正文】
write : v1, 39。 , v2.data : begin of wa1, ebeln(3) type c, dat type d, menge type i, end of wa1. data itab like table of wa1. wa1ebeln = 39。. wa1dat = 39。. wa1menge = 39。. append wa1 to itab. clear wa1. wa1ebeln = 39。. wa1dat = 39。. wa1menge = 39。. append wa1 to itab. clear wa1. wa1ebeln = 39。. wa1dat = 39。. wa1menge = 39。. append wa1 to itab. clear wa1. wa1ebeln = 39。. wa1dat = 39。. wa1menge = 39。. append wa1 to itab. clear wa1.loop at itab into wa1.write : / wa1ebeln, wa1dat, wa1menge.endloop.uline.data : begin of wa2, ebeln(3) type c, menge type i, end of wa2. data itab2 like table of wa2.loop at itab into wa1.movecorresponding wa1 to wa2.collect wa2 into itab2.endloop.loop at itab2 into wa2.write : / wa2ebeln, wa2menge.endloop.sysubrc 判斷有沒有東西condense 字符型 //去空格for all entries in 內(nèi)表 DATA wa LIKE LINE OF itab. //參照內(nèi)表建結(jié)構(gòu)sort it by carrid connid fldate.delete adjacent duplicates from it paring all fields.7 /